*!* 27.08.2009
*!* marius.mutu
*!* viz_catalog_articole - taxa reconditionare

*!* 07.11.2019
*!* marius.mutu
*!* viz_catalog_articole - codnc8,greutate,tara origine

********* Inceput: viz_grupe_subgr_articole
PROCEDURE viz_grupe_subgr_articole

PRIVATE pnId_grupa
STORE 0 TO pnId_grupa
lcSelect1 = ['select id_grupa,grupa from ] + gcS + [.vgest_art_gr where 1=2']
lcschema1 = ['']
lcorder1= [grupa]
lcnume_coloane1 = [grupa]
lctitlu_coloane1 = [Grupa]

lcSelect2 = ['select id_subgrupa,subgrupa,id_grupa,grupa,indicativ from ] + gcS + [.vgest_art_sbgr where 1=2']
lcschema2 = ['']
lcorder2= [subgrupa]
lcnume_coloane2 = [subgrupa;indicativ]
lctitlu_coloane2 = [Subgrupa,Indicativ]
lcFiltru2 = [id_grupa=?pnId_grupa]

ofrm_gsa = CREATEOBJECT('frm_grupe_subgr_articole')
ofrm_gsa.Lb_titlu_alb_b121.caption = [Categorii de articole]
*** INITIALIZEZ PROPRIETATILE CONTAINER GRID STANGA
WITH ofrm_gsa.ct_grid_search1
	.cSelect = lcSelect1
	.cSchema = lcSchema1
	.cFiltruOriginal = [2=2]
	.cFiltru = [2=2]		
	.cTitlu = 'GRUPE' 
	.corder = lcorder1
	.cnume_coloane = lcnume_coloane1
	.ctitlu_coloane = lctitlu_coloane1
	.cnumecursor = [crsgrupe_art]
ENDWITH 	

WITH ofrm_gsa.ct_grid_search2
	.cSelect = lcSelect2
	.cSchema = lcSchema2
	.cFiltruOriginal = lcFiltru2
	.cFiltru = [2=2]		
	.cTitlu = 'SUBGRUPE' 
	.corder = lcorder2
	.cnume_coloane = lcnume_coloane2
	.ctitlu_coloane = lctitlu_coloane2
	.cnumecursor = [crssubgrupe_art]  
ENDWITH 	

ofrm_gsa.show(1)
RELEASE ofrm_gsa
	
ENDPROC
********* Sfarsit: viz_grupe_subgr_articole


********* Inceput: viz_catalog_articole
PROCEDURE viz_catalog_articole
	PARAMETERS tlMax,tlCuBifa,tcfiltru_init,tlCaut,tcTitlu,tlHide
				
	Local lcFiltru_init, lcNrColoane_check, lcSchema, lcTitlu, lcWidth_coloane, lcfiltru, lcnume_coloane
	Local lcorder, lcselect, lctitlu_coloane, llCaut, llCuBifa, llHide, llMax, lnPornire, lnparam
	Local loColoaneCatalogArticole
	lnparam = pcount()
	llMax = IIF(lnparam >= 1 and TYPE('tlMax')='L',tlMax,.t.)
	llCuBifa = IIF(lnparam >=2 and TYPE('tlCuBifa')='L', tlCuBifa,.f.)
	lcFiltru_init = IIF(lnparam >=3 and TYPE('tcFiltru_init')='C', tcFiltru_init,[1=1])
	llCaut = IIF(lnparam >=4 and TYPE('tlCaut')='L', tlCaut,.f.)		
	lcTitlu = IIF(lnparam >= 5 and TYPE('tcTitlu')='C',tcTitlu,[CATALOG DE MATERIALE SI MARFURI])	
	llHide = IIF(lnparam >=6 and TYPE('tlHide')='L', tlHide,.f.)	

	
	PRIVATE pnpretvtva
	STORE 0 TO pnpretvtva 
	
	IF (llCuBifa)
		lcselect = ['select 0 as bifa,0 as cant,'+]						
		lcNrColoane_check = [2]	 
		lcSchema = ['bifa n(1),cant n(7,3),'+]				
		lcnume_coloane = [bifa;]				
		lctitlu_coloane =[Selectat,]
	ELSE
		lcselect = ['select ' +]	
		lcSchema= []
		lcnume_coloane = []
		lctitlu_coloane =[]	
		lcNrColoane_check = [11,12,15,21] && IN_STOC, IN_CRM, INACTIV, LISTARE_CODBARE
	ENDIF	

	lcselect = lcselect + ['inactiv, id_articol, codmat, denumire, um, um2, um_iso, cod_um_iso, id_subgrupa, subgrupa,' +] +;
			['id_grupa, grupa, cant_bax, cont, acont, dnf, in_crm, in_stoc, codbare, codmatf, conditii_pastrare,' + ] + ;
			['id_part,partener,indicativ,taxa_reconditionare,' + ] + ;
			['id_articol_general, articol_general, listare_codbare, tip, timpn, codnc8, greutate, id_tara_origine, tara_origine, codcpv from vnom_articole_toate where 1=2'] 
								
	lcschema = lcschema +  ['inactiv n(1),id_articol n(20),codmat c(50),denumire c(100),um c(6),um2 c(6),um_iso c(250),cod_um_iso c(6),id_subgrupa n(5),' +] +;
			['subgrupa c(100), id_grupa n(5), grupa c(100),' +] +;
			['cant_bax n(9,4),cont c(4),acont c(4), dnf n(5), in_crm N(1), in_stoc N(1), codbare C(50), codmatf c(50),' + ] + ;
			['conditii_pastrare M,id_part n(10), partener v(70),indicativ v(10),taxa_reconditionare N(18,4),' + ] + ;
			['id_articol_general n(20),articol_general c(100), listare_codbare n(1), tip n(1), timpn n(10,3), codnc8 C(20), greutate N(12,4), id_tara_origine I, tara_origine C(100), codcpv C(20)']
	lcorder = [denumire]
	lcnume_coloane = lcnume_coloane + [codmat;denumire;um;um_iso;cod_um_iso;grupa;subgrupa;cant_bax;um2;cont;acont;in_stoc;in_crm;codbare;dnf;inactiv;codmatf;conditii_pastrare;partener;taxa_reconditionare;articol_general;listare_codbare;tip;timpn;codnc8;greutate;tara_origine;codcpv]
	lctitlu_coloane = lctitlu_coloane + [Cod material,Denumire,UM,UM ISO,Cod UM ISO,Grupa,Subgrupa,] +;
			[Cant/impachetare,UM2,Cont,Analitic,Gestionabil,Catalog,Cod bare,DNF,Inactiv,Cod Material Furnizor,Conditii Pastrare,Furnizor principal,Taxa reconditionare,Articol general, Listare CodBare,Tip,Timp Normat,Cod NC8, Greutate, Tara origine, Cod CPV]
	lcfiltru = [1=2]
	
	*!* 18.04.2012
	lcWidth_coloane = ""
	lnPornire = 1
	loColoaneCatalogArticole = CITESTE_SELECTII_OPTIUNI_UTILIZATOR("CATALOG_ARTICOLE", lcnume_coloane)
	lcnume_coloane = IIF(!EMPTY(NVL(loColoaneCatalogArticole.nume_col,'')), loColoaneCatalogArticole.nume_col, m.lcnume_coloane)
	lctitlu_coloane = IIF(!EMPTY(NVL(loColoaneCatalogArticole.titlu_col,'')), loColoaneCatalogArticole.titlu_col, m.lctitlu_coloane)	
	lcWidth_coloane = IIF(!EMPTY(NVL(loColoaneCatalogArticole.width_col,'')), loColoaneCatalogArticole.width_col, m.lcWidth_coloane)	
	lcOrder = IIF(!EMPTY(NVL(loColoaneCatalogArticole.ordine,'')), loColoaneCatalogArticole.ordine, m.lcorder)	
	lnPornire = IIF(!EMPTY(NVL(loColoaneCatalogArticole.pornire,'')), loColoaneCatalogArticole.pornire, m.lnPornire)	
	*!* 18.04.2012 ^
		
	PRIVATE ofrm_cat		
	ofrm_cat = CREATEOBJECT('frm_catalog_articole')
	ofrm_cat.Lb_titlu_alb_b121.Caption = lcTitlu
	ofrm_cat.lCaut = llCaut
	ofrm_cat.lCuBifa = llCuBifa
	ofrm_cat.lHide = llHide
		
	IF !llMax 
		ofrm_cat.windowstate = 0
		ofrm_cat.height = 350
		ofrm_cat.width = 800					
		ofrm_cat.resize
		ofrm_cat.autocenter = .t.
	ENDIF


	WITH ofrm_cat.ct_grid_search1 
		.cSelect = lcSelect
		.cSchema = lcSchema
		.cFiltruOriginal = lcFiltru_init
		.cFiltru = lcFiltru		
		.cTitlu = '' 
		.corder = lcorder
		.cnume_coloane = lcnume_coloane
		.ctitlu_coloane = lctitlu_coloane
		.cnumecursor = [crsnom_articole]  	
		.cNrColoane_check = lcNrColoane_check
		*!* 18.04.2012
		.cWidth_coloane = Alltrim(lcWidth_coloane)		
		.nPornire = lnPornire	
		*!* 18.04.2012 ^
	ENDWITH	 
	ofrm_cat.Show(1)
	
	RETURN ofrm_cat
	
*!*		USE IN (lccursor1)
*!*		USE IN (lccursor2)
ENDPROC
********* Sfarsit: viz_catalog_articole

********* Inceput: config_codmat
Procedure config_codmat


	
ofrm_configcodmat = CreateObject([frm_config_codmat])
ofrm_configcodmat.show(1)
EndProc 
********* Sfarsit: config_codmat

********* Inceput: config_codbare
Procedure config_codbare
ofrm_configcodbare = CreateObject([frm_config_codbare])
ofrm_configcodbare.show(1)
EndProc 
********* Sfarsit: config_codbare