Marius Mutu
7cc3bff358
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
42 lines
967 B
Plaintext
42 lines
967 B
Plaintext
***-----------------------------------------------------
|
|
Procedure preluare_curs
|
|
PARAMETERS tcTabelCurs
|
|
|
|
LOCAL lcTabelCurs
|
|
lcTabelCurs = ALLTRIM(tcTabelCurs)
|
|
|
|
Select (lcTabelCurs)
|
|
SCAN
|
|
WAIT WINDOW ALLTRIM(STR(RECNO()))+"/"+ALLTRIM(STR(RECCOUNT())) NOWAIT
|
|
pnCurs = Curs
|
|
pdData1 = Data
|
|
pdData2 = data2
|
|
lnId_valuta = id_tipv
|
|
Do Case
|
|
Case lnId_valuta = 1
|
|
pnId_valuta = 41695
|
|
Case lnId_valuta = 2
|
|
pnId_valuta = 41692
|
|
Case lnId_valuta = 3
|
|
pnId_valuta = 41694
|
|
Case lnId_valuta = -1
|
|
pnId_valuta = 41697
|
|
OTHERWISE
|
|
pnId_valuta = 41696
|
|
Endcase
|
|
|
|
|
|
lcSql = [begin pack_crm.adauga_curs(?gcS, ?pnCurs, ?pdData1, ?pdData2, ?pnId_valuta); end;]
|
|
lnSucces = goExecutor.oExecute(lcSql)
|
|
|
|
If lnSucces < 0
|
|
Messagebox('pack_crm.adauga_curs'+goExecutor.cEroare,0+16,"Eroare")
|
|
Return
|
|
Endif
|
|
ENDSCAN
|
|
|
|
WAIT WINDOW "Preluarea s-a terminat!"
|
|
Endproc && preluare_curs
|
|
***-----------------------------------------------------
|
|
|