Files
roacontracte/Programe/update_roadef_sal.prg
Marius Mutu 7cc3bff358 Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md:
- .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu)
- 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2)
- Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti
- Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back)
- CLAUDE.md, docs/README.md, roa_sync.bat

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
2026-08-03 01:51:36 +03:00

119 lines
3.0 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 = 1]
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 + [.nom_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----------------------------------