143 lines
3.7 KiB
Plaintext
143 lines
3.7 KiB
Plaintext
|
|
*******************************************
|
|
* PROCEDURE update_responsabil( )
|
|
* Date : 05/23/05, 12:25:08
|
|
* author : liana.macinic
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
*******************************************
|
|
PROCEDURE update_responsabil( )
|
|
If Used('v_resp')
|
|
Use In v_resp
|
|
Endif
|
|
|
|
lcSql = [select * from ] + gcS + [.sal_responsabil where ales_decl = 1 and sters = 0 and inactiv = 0]
|
|
lcCursor = [v_resp]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
ENDPROC
|
|
*----------------------------------sfarsit procedura update_responsabil----------------------------------
|
|
|
|
*******************************************
|
|
* PROCEDURE update_sectie( )
|
|
* Data/ora : 12/16/04, 14:26:22
|
|
* autor : liana.macinic
|
|
* descriere:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parametri : 0
|
|
*
|
|
*******************************************
|
|
Procedure update_sectie( )
|
|
If Used('v_sectie')
|
|
Use In v_sectie
|
|
Endif
|
|
|
|
lcSql = [select * from ] + gcS + [.vnom_sectii order by sectie]&& where inactiv = 0]
|
|
lcCursor = [v_sectie]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
Return lnSucces
|
|
|
|
Endproc
|
|
*******************************************
|
|
* PROCEDURE update_transe( )
|
|
* Date : 05/26/05, 16:25:42
|
|
* author : liana.macinic
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
*******************************************
|
|
PROCEDURE update_transe( )
|
|
If Used('v_transe')
|
|
Use In v_sectie
|
|
Endif
|
|
|
|
lcSql = [select * from ] + gcS + [.SAL_NOM_TRANSE where inactiv = 0 and sters = 0]
|
|
lcCursor = [v_transe]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
Return lnSucces
|
|
|
|
ENDPROC
|
|
*----------------------------------sfarsit procedura update_transa----------------------------------
|
|
*******************************************
|
|
* PROCEDURE update_semnaturi( )
|
|
* Date : 05/26/05, 16:25:42
|
|
* author : liana.macinic
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
*******************************************
|
|
PROCEDURE update_semnaturi( )
|
|
If Used('v_semnaturi')
|
|
Use In v_semnaturi
|
|
Endif
|
|
|
|
lcSql = [select a.*,a.denumire as semnatura from SAL_semnaturi a where a.inactiv = 0 and a.sters = 0]
|
|
lcCursor = [v_semnaturi]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
Return lnSucces
|
|
|
|
ENDPROC
|
|
*----------------------------------sfarsit procedura update_transa----------------------------------
|
|
*******************************************
|
|
* PROCEDURE update_ore( )
|
|
* Date : 05/26/05, 16:25:42
|
|
* author : liana.macinic
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
*******************************************
|
|
PROCEDURE update_ore( )
|
|
If Used('v_nomore')
|
|
Use In v_nomore
|
|
Endif
|
|
|
|
lcSql = [select * from ] + gcS + [.SAL_NOMORE where inactiv = 0 and sters = 0]
|
|
lcCursor = [v_nomore]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
Return lnSucces
|
|
|
|
ENDPROC
|
|
*----------------------------------sfarsit procedura update_ore----------------------------------
|
|
*******************************************
|
|
* PROCEDURE update_calcdin( )
|
|
* Date : 06/17/05, 12:52:29
|
|
* author : liana.macinic
|
|
* description:
|
|
|
|
****** PARAMETER BLOCK **************
|
|
* Parameters : 0
|
|
*
|
|
*******************************************
|
|
PROCEDURE update_calcdin( )
|
|
If Used('v_calcdin')
|
|
Use In v_calcdin
|
|
Endif
|
|
|
|
lcSql = [select id_calcdin,camp,denumire as nume_camp,tabel from ] + gcS + [.sal_nom_calcdin where 2=2]
|
|
lcCursor = [v_calcdin]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
|
|
Return lnSucces
|
|
|
|
ENDPROC
|
|
*----------------------------------sfarsit procedura update_calcdin---------------------------------- |