Marius Mutu
63f3828d5e
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
497 lines
13 KiB
Plaintext
497 lines
13 KiB
Plaintext
**********************************************************
|
|
PROCEDURE update_nomenclator
|
|
|
|
*!* DO update_coresp_tip_part
|
|
*!* DO update_coresp_tip_cont
|
|
DO update_lunilean
|
|
|
|
*** tabele meniu deschise din proiect
|
|
LOCAL lcCaleDateMenu
|
|
|
|
lcCaleDateMenu=gcAppPath+[DATEMENU\]
|
|
|
|
IF !USED('XREQUEST')
|
|
USE &lcCaleDateMenu.XREQUEST IN 0 ALIAS XREQUEST
|
|
ENDIF
|
|
IF !USED('xitems')
|
|
USE &lcCaleDateMenu.xitems IN 0 ALIAS xitems
|
|
ENDIF
|
|
IF !USED('YACT')
|
|
USE &lcCaleDateMenu.YACT IN 0 ALIAS YACT
|
|
ENDIF
|
|
IF !USED('XSETS')
|
|
USE &lcCaleDateMenu.XSETS IN 0 ALIAS XSETS ORDER TAG ID_SET
|
|
ENDIF
|
|
IF !USED('xACT')
|
|
USE &lcCaleDateMenu.xACT IN 0 ALIAS xACT
|
|
ENDIF
|
|
IF !USED('xnote')
|
|
USE &lcCaleDateMenu.xnote IN 0 ALIAS xnote
|
|
ENDIF
|
|
|
|
IF !USED('menu1')
|
|
USE &lcCaleDateMenu.menu1 IN 0 ALIAS menu1 EXCL
|
|
ENDIF
|
|
|
|
IF !USED('INFISIERE')
|
|
USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE
|
|
ENDIF
|
|
|
|
IF !USED('nom_meniu')
|
|
USE &lcCaleDateMenu.nom_meniu IN 0 ALIAS nom_meniu
|
|
ENDIF
|
|
|
|
IF !USED('refaceri')
|
|
USE &lcCaleDateMenu.refaceri IN 0 ALIAS refaceri
|
|
ENDIF
|
|
|
|
IF !USED('tabela_fisa_cont')
|
|
USE &lcCaleDateMenu.tabela_fisa_cont IN 0 ALIAS tabela_fisa_cont
|
|
ENDIF
|
|
|
|
|
|
ENDPROC && update_nomenclator
|
|
|
|
* PROCEDURE update_lunilean( )
|
|
* Date : 06/10/2004, 13:27:54
|
|
* author : marius.mutu
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
******************************************* INCEPUT:update_lunilean*******************************************
|
|
PROCEDURE update_lunilean( )
|
|
|
|
IF USED('lunilean')
|
|
USE IN lunilean
|
|
ENDIF
|
|
|
|
lcSql = [select * from contafin_oracle.lunilean]
|
|
lcCursor = [lunilean]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
******************************************* SFARSIT: update_lunilean *******************************************
|
|
|
|
|
|
* PROCEDURE update_calendar( )
|
|
* Date : 06/10/2004, 13:27:54
|
|
* author : marius.mutu
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
******************************************* INCEPUT:update_calendar *******************************************
|
|
PROCEDURE update_calendar( )
|
|
|
|
IF USED('calendar')
|
|
USE IN calendar
|
|
ENDIF
|
|
|
|
lcSql = [select * from ] + gcS + [.calendar]
|
|
lcCursor = [calendar]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
******************************************* SFARSIT: update_calendar *******************************************
|
|
|
|
|
|
* PROCEDURE update_firme( )
|
|
* Date : 06/10/2004, 13:27:08
|
|
* author : marius.mutu
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
******************************************* INCEPUT:update_firme *******************************************
|
|
PROCEDURE update_firme( )
|
|
|
|
*** selectez firmele
|
|
IF USED('v_firme')
|
|
USE IN v_firme
|
|
ENDIF
|
|
|
|
lcSql = [select * from nom_firme order by firma]
|
|
lcCursor = [v_firme]
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
******************************************* SFARSIT: update_firme *******************************************
|
|
|
|
|
|
* PROCEDURE update_utilizatori( )
|
|
* Date : 06/10/2004, 13:26:23
|
|
* author : marius.mutu
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
******************************************* INCEPUT:update_utilizatori *******************************************
|
|
PROCEDURE update_utilizatori( )
|
|
|
|
IF USED('v_utilizatori')
|
|
USE IN v_utilizatori
|
|
ENDIF
|
|
|
|
lcSql = [SELECT * from utilizatori]
|
|
lcCursor = [v_utilizatori]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
******************************************* SFARSIT: update_utilizatori *******************************************
|
|
|
|
* PROCEDURE update_judete( )
|
|
* Date : 11.10.2004, 15:24:02
|
|
* author : catalin.neagu
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
******************************************* INCEPUT:update_judete *******************************************
|
|
PROCEDURE update_judete( )
|
|
|
|
IF USED('v_jud')
|
|
USE IN v_jud
|
|
ENDIF
|
|
|
|
lcSql = [SELECT * from ] + gcS + [.vnom_judete]
|
|
lcCursor = [v_jud]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
RETURN lnSucces
|
|
ENDPROC
|
|
******************************************* SFARSIT: update_judete *******************************************
|
|
|
|
**********************************************************************
|
|
PROCEDURE cclocalitati
|
|
|
|
IF USED('v_nom_localitati')
|
|
USE IN v_nom_localitati
|
|
ENDIF
|
|
|
|
lcSql = 'select id_loc,localitate from '+gcS+'.vnom_localitati order by localitate'
|
|
lcCursor = 'v_nom_localitati'
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
***********************************************************************
|
|
**************************
|
|
PROCEDURE cctipuri
|
|
|
|
IF USED('v_nom_tip_parteneri')
|
|
USE IN v_nom_tip_parteneri
|
|
endif
|
|
|
|
lcSql='select id_tip_part,tip_partener from '+gcS+'.vnom_tip_parteneri order by tip_partener' &&id_tip_part'
|
|
lcCursor = 'v_nom_tip_parteneri'
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
***********************************************************************
|
|
|
|
* PROCEDURE update_coresp_tip_part( )
|
|
* Date : 13/10/2004, 10:46:59
|
|
* author : marius.mutu
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
******************************************* INCEPUT:update_coresp_tip_part*******************************************
|
|
PROCEDURE update_coresp_tip_part( )
|
|
|
|
IF USED('coresp_tip_part')
|
|
USE IN coresp_tip_part
|
|
endif
|
|
|
|
*** deschid corespondentele parteneri
|
|
lcSql = [select * from ] + gcS + [.coresp_tip_part]
|
|
lcCursor = [coresp_tip_part]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
******************************************* SFARSIT: update_coresp_tip_part*******************************************
|
|
|
|
|
|
* PROCEDURE update_coresp_tip_cont( )
|
|
* Date : 13/10/2004, 10:49:03
|
|
* author : marius.mutu
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
******************************************* INCEPUT:update_coresp_tip_cont *******************************************
|
|
PROCEDURE update_coresp_tip_cont( )
|
|
|
|
IF USED('coresp_tip_cont')
|
|
USE IN coresp_tip_cont
|
|
ENDIF
|
|
|
|
lcSql = [select * from ] + gcS + [.coresp_tip_cont]
|
|
lcCursor = [coresp_tip_cont]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
******************************************* SFARSIT: update_coresp_tip_cont *******************************************
|
|
|
|
PROCEDURE cctipuri_selectate
|
|
LPARAMETERS tnId_part
|
|
lnId_part = tnId_part
|
|
|
|
IF USED('v_nom_tip_parteneri_selectati')
|
|
USE IN v_nom_tip_parteneri_selectati
|
|
endif
|
|
|
|
lcSql='select id_tip_part,tip_partener from '+gcS+'.VCORESP_TIP_PART where id_part = '+ALLTRIM(STR(lnId_part))+ 'order by tip_partener '
|
|
lcCursor = 'v_nom_tip_parteneri_selectati'
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
***********************************************************************
|
|
|
|
PROCEDURE cctipuri_selectate_NOU
|
|
LPARAMETERS tnId_TIP_part
|
|
lnId_TIP_part = tnId_TIP_part
|
|
|
|
IF USED('v_nom_tip_parteneri_selectati')
|
|
USE IN v_nom_tip_parteneri_selectati
|
|
ENDIF
|
|
|
|
lcSql='select id_tip_part,tip_partener from '+gcS+'.VNOM_TIP_PARTENERI where id_TIP_part = '+ALLTRIM(STR(lnId_TIP_part))+ 'order by tip_partener '
|
|
lcCursor = 'v_nom_tip_parteneri_selectati'
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
***********************************************************************
|
|
|
|
PROCEDURE ccvalute
|
|
IF USED('v_nom_valute')
|
|
USE IN v_nom_valute
|
|
ENDIF
|
|
|
|
lcSql='select id_valuta,nume_val from '+gcS+'.vnom_valute order by nume_val'
|
|
lcCursor = 'v_nom_valute'
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
|
|
***********************************************************************
|
|
|
|
PROCEDURE ccsectii
|
|
|
|
IF USED('v_nom_sectii')
|
|
USE IN v_nom_sectii
|
|
ENDIF
|
|
|
|
lcSql='select id_sectie,sectie from '+gcS+'.vnom_sectii order by sectie'
|
|
lcCursor = 'v_nom_sectii'
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
***********************************************************************
|
|
|
|
PROCEDURE ccnorme
|
|
IF USED('v_denop')
|
|
USE IN v_denop
|
|
ENDIF
|
|
|
|
lcSql='select id_norme,denop from '+gcS+'.dev_vnorme order by denop'
|
|
lcCursor = 'v_denop'
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
***********************************************************************
|
|
|
|
PROCEDURE ccmecanici
|
|
IF USED('v_mecanici')
|
|
USE IN v_mecanici
|
|
ENDIF
|
|
|
|
lcSql='select id_mecanic,nume||CHR(32)||prenume as nume from '+gcS+'.dev_vmecanici order by nume'
|
|
lcCursor = 'v_mecanici'
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
|
|
******************************************* SFARSIT: update_parteneri *******************************************
|
|
* PROCEDURE update_actper( )
|
|
* Date : 09.11.2004, 09:33:32
|
|
* author : catalin.neagu
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
******************************************* INCEPUT:update_actper *******************************************
|
|
PROCEDURE update_actper(tnCod)
|
|
IF USED('actact')
|
|
USE IN actact
|
|
ENDIF
|
|
|
|
lcCod = ALLTRIM(STR(tnCod))
|
|
lcSql = [SELECT * from ] + gcS + [.vact where cod = ] + lcCod
|
|
lcCursor = [ACTACT]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
IF lnSucces>0
|
|
SELECT * FROM actact INTO CURSOR actactan READWRITE
|
|
ENDIF
|
|
IF USED('actact')
|
|
USE IN actact
|
|
ENDIF
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
******************************************* SFARSIT: update_actper *******************************************
|
|
|
|
|
|
* PROCEDURE Get_Lista_Act
|
|
* Date : 09/11/2004, 15:05:42
|
|
* author : marius.mutu
|
|
* description: creeaza o lista cu campurile din act
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
******************************************* INCEPUT:Get_Lista_Act*******************************************
|
|
PROCEDURE Get_Lista_Act
|
|
LOCAL lcLista
|
|
lcLista = []
|
|
IF USED('crs_act')
|
|
USE IN crs_act
|
|
ENDIF
|
|
|
|
lcSql = [select * from ] + gcS + [.ACT WHERE 1=2]
|
|
lcCursor = [CRS_ACT]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
IF lnSucces < 0
|
|
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
|
ENDIF
|
|
IF lnSucces > 0
|
|
SELECT CRS_ACT
|
|
lnCount = FCOUNT()
|
|
FOR i = 1 TO lnCount
|
|
SELECT CRS_ACT
|
|
lcFieldName = UPPER(ALLTRIM(FIELD(i)))
|
|
lcLista = lcLista + [,] + lcFieldName
|
|
ENDFOR
|
|
lcLista = SUBSTR(lcLista,2)
|
|
ENDIF
|
|
IF USED('crs_Act')
|
|
USE IN CRS_ACT
|
|
ENDIF
|
|
|
|
RETURN lcLista
|
|
ENDPROC
|
|
******************************************* SFARSIT: Get_Lista_Act *******************************************
|
|
|
|
|
|
* PROCEDURE update_optiuni( )
|
|
* Date : 15.11.2004, 10:08:49
|
|
* author : catalin.neagu
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
******************************************* INCEPUT:update_optiuni *******************************************
|
|
PROCEDURE update_optiuni( )
|
|
IF USED('v_optiuni')
|
|
USE IN v_optiuni
|
|
ENDIF
|
|
|
|
lcSql='select * from '+gcS+'.optiuni order by varname'
|
|
lcCursor = 'v_optiuni'
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
******************************************* SFARSIT: update_optiuni *******************************************
|
|
|
|
******************************************* INCEPUT:update_exceptii_ireg **************************************
|
|
PROCEDURE update_exceptii_ireg( )
|
|
|
|
lcSql = [select * from ] + gcS + [.exceptii_ireg]
|
|
lcCursor = [exceptii_ireg]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
******************************************* SFARSIT:update_exceptii_ireg ***************************************
|
|
|
|
******************************************* INCEPUT:update_cote_TVA **************************************
|
|
PROCEDURE update_cote_TVA( )
|
|
|
|
lcSql = [select * from ] + gcS + [.cote_TVA where an =] + pcAn + [ and luna = ] + pcNl
|
|
lcCursor = [cote_TVA]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
******************************************* SFARSIT:update_cote_TVA ***************************************
|
|
|
|
*******************************************
|
|
* PROCEDURE update_optiuni_util( )
|
|
* Data/ora : 02/11/05, 11:07:19
|
|
* autor : liana.macinic
|
|
* descriere:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parametri : 0
|
|
*
|
|
*******************************************
|
|
PROCEDURE update_optiuni_util( )
|
|
IF USED('v_optiuni_util')
|
|
USE IN v_optiuni_util
|
|
ENDIF
|
|
|
|
lcSql='select * from optiuni_util where id_util = '+ALLTRIM(STR(gnIdUtil)) + [ or id_util = 0 order by varname]
|
|
lcCursor = 'v_optiuni_util'
|
|
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
*!* MESSAGEBOX('v_optiuni_util')
|
|
RETURN lnSucces
|
|
|
|
ENDPROC
|
|
|
|
**********************sfarsit procedura update_optiuni_util******************* |