Marius Mutu
63f3828d5e
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
42 lines
926 B
Plaintext
42 lines
926 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
|
|
***-----------------------------------------------------
|
|
|