***-----------------------------------------------------
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
***-----------------------------------------------------