62 lines
2.1 KiB
Plaintext
62 lines
2.1 KiB
Plaintext
********* 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 *********** |