177 lines
6.7 KiB
Plaintext
177 lines
6.7 KiB
Plaintext
*!* 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 |