********* INCEPUT: viz_retetar ***********
Procedure viz_retetar
Private pnIdReteta
Store 0 To pnIdReteta
ofrm_ret = Createobject('frm_retetar')
ofrm_ret.Show(1)
Release ofrm_ret
*!*		&& Produse
*!*		lcSelect1 = ['select distinct id_produs,codmat_pr,denumire_pr,um_pr,cont_pr ] + ;
*!*					[ from ] + gcS + [.vgest_retetar where 1=2']
*!*		lcCursor1 = [crsProduse]
*!*		lcSchema1 = ['']
*!*		lcOrder1 = [denumire_pr]
*!*		lcFiltru1 = [1=1]
*!*		lcNume_coloane1= [codmat_pr;denumire_pr;um_pr;cont_pr]
*!*		lcTitlu_coloane1 = [Cod produs,Denumire,Unitate de masura,Cont]
*!*
*!*		PRIVATE pnId_produs,pncant_veche,pncant_noua
*!*		STORE 0 TO pnId_produs,pncant_veche,pncant_noua
*!*
*!*		&&Materiale
*!*		lcSelect2 = ['select id_retetar,id_produs,id_material,codmat_mat,denumire_mat,'+] +;
*!*					['um_mat,cont_mat,cant_mat from ] + gcS + [.vgest_retetar where 1=2']
*!*		lcCursor2 = [crsMateriale]
*!*		lcSchema2 = ['id_retetar n(5),id_produs n(10),id_material n(10),codmat_mat c(50),' +] +;
*!*					['denumire_mat c(100),um_mat c(6),cont_mat c(4),cant_mat n(12,4)']
*!*		lcOrder2 = [denumire_mat]
*!*		lcFiltru2 = [ id_produs = ?pnId_produs ]
*!*		lcNume_coloane2= [codmat_mat;denumire_mat;um_mat;cont_mat;cant_mat]
*!*		lcTitlu_coloane2 = [Cod material,Denumire,Unitate de masura,Cont,Cantitate]
*!*
*!*		ofrm_ret = CREATEOBJECT('frm_retetar')
*!*
*!*		WITH ofrm_ret.ct_grid_search1
*!*			.cSelect = lcSelect1
*!*			.cSchema = lcSchema1
*!*			.cFiltruOriginal = lcFiltru1
*!*			.cFiltru = lcFiltru1
*!*			.cTitlu = 'PRODUSE'
*!*			.corder = lcorder1
*!*			.cnume_coloane = lcnume_coloane1
*!*			.ctitlu_coloane = lctitlu_coloane1
*!*			.cnumecursor = lccursor1
*!*		ENDWITH

*!*		WITH ofrm_ret.ct_grid_search2
*!*			.cSelect = lcSelect2
*!*			.cSchema = lcSchema2
*!*			.cFiltruOriginal = lcFiltru2
*!*			.cFiltru = [1=1]
*!*			.cTitlu = 'MATERIALE'
*!*			.corder = lcorder2
*!*			.cnume_coloane = lcnume_coloane2
*!*			.ctitlu_coloane = lctitlu_coloane2
*!*			.cnumecursor = lccursor2
*!*		ENDWITH
*!*
*!*		ofrm_ret.show(1)
*!*		RELEASE ofrm_ret

Endproc
********* SFARSIT: viz_retetar ***********