romfast/roadef
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
This commit is contained in:
Marius Mutu
2026-08-23 18:00:57 +03:00
commit 77e98d73e9
94 changed files with 62872 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

119
Programe/update_roadef_sal.prg Normal file
View File

@@ -0,0 +1,119 @@
*******************************************
* 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 = 1 and sters = 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_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----------------------------------