Import initial din SVN ROAAUTO/Trunk @HEAD
This commit is contained in:
177
COMUN/programe/oproceduri_articole.prg
Normal file
177
COMUN/programe/oproceduri_articole.prg
Normal file
@@ -0,0 +1,177 @@
|
||||
*!* 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
|
||||
Reference in New Issue
Block a user