512 lines
19 KiB
Plaintext
512 lines
19 KiB
Plaintext
*!* 19.12.2019
|
|
*!* marius.mutu
|
|
*!* Adauga_modifica_inregistrare, sterge_inregistrare: Am adaugat variabila pnIdAMS pentru a fi completata cu id-ul generat la salvarea unei inregistrari noi in baza de date
|
|
|
|
&& ------------------------------INCEPUT: Adauga_Modifica_Inregistrare------------------------------
|
|
*!* Procedura: Adauga_Modifica_Inregistrare
|
|
*!* Parametri: tcForm, toRec, tnId
|
|
*!* Data/Ora generarii: 26/04/2004 11:21
|
|
*!* Autor: MARIUS.MUTU
|
|
Procedure Adauga_Modifica_Inregistrare
|
|
Lparameters tcAlias, toRec, tnId, tcActiune,tlNoShow,tcObjName
|
|
|
|
* parametrul @tnId se transmite optional prin referinta la INSERT pentru a fi completat cu Id-ul generat la adaugarea in baza de date
|
|
* trebuie modificate cus_odata_xxx.make_sql pentru a completa variabila pnIdAMS
|
|
Private pnIdAMS
|
|
pnIdAMS = m.tnId
|
|
|
|
Local lcAlias,llNoShow,lcObjName
|
|
lcAlias = Upper(Alltrim(tcAlias))
|
|
|
|
lcForm = 'frm_' + lcAlias + '_nou'
|
|
llNoShow = tlNoShow
|
|
Private poRec
|
|
poRec = toRec
|
|
If Empty(tcObjName)
|
|
lcObjName = 'loAdMod' + lcAlias
|
|
Else
|
|
lcObjName = Alltrim(tcObjName)
|
|
Endif
|
|
*DO FORM &lcForm NAME loAdMod WITH toRec,tnId,tcActiune NOSHOW
|
|
|
|
&lcObjName = Createobject(lcForm,poRec,tnId,tcActiune)
|
|
If !tlNoShow
|
|
&lcObjName..Show(1)
|
|
Endif
|
|
|
|
tnId = m.pnIdAMS
|
|
|
|
Return gnButon
|
|
Endproc
|
|
&& ------------------------------SFARSIT: Adauga_Modifica_Inregistrare------------------------------
|
|
|
|
&& ------------------------------INCEPUT: Sterge_Inregistrare ------------------------------
|
|
*!* Procedura: Sterge_Inregistrare
|
|
*!* Parametri: tcAlias, tnId
|
|
*!* Data/Ora generarii: 26/04/2004 11:28
|
|
*!* Autor: MARIUS.MUTU
|
|
Procedure Sterge_Inregistrare
|
|
Lparameters tcAlias, tnId, tlNoSave,tcObjName
|
|
|
|
Private pnIdAMS
|
|
pnIdAMS = m.tnId
|
|
|
|
lcAlias = Upper(Alltrim(tcAlias))
|
|
lnId = tnId
|
|
|
|
llNoSave = tlNoSave
|
|
If Empty(tcObjName)
|
|
lcObjName = 'loData'
|
|
Else
|
|
lcObjName = Alltrim(tcObjName)
|
|
Endif
|
|
|
|
|
|
lcData = 'cus_odata_' + lcAlias
|
|
&lcObjName = Createobject(lcData)
|
|
&lcObjName..cActiune = "DELETE"
|
|
|
|
If !llNoSave
|
|
Return &lcObjName..salvare(,lnId)
|
|
Else
|
|
Return .T.
|
|
Endif
|
|
|
|
Endproc
|
|
&& ------------------------------SFARSIT: Sterge_Inregistrare ------------------------------
|
|
|
|
Define Class BizDataObject As Custom
|
|
oObject = Null
|
|
cObjectName = ''
|
|
cSelect = ''
|
|
cSchema = ''
|
|
nId = NULL
|
|
|
|
Procedure Init
|
|
Lparameters toHash
|
|
*nId: id inregistrare, doar daca se transmite si cObjectName
|
|
*cObjectName: identificator select, schema dintr-o colectie (optional)
|
|
*cSelect: instructiune [select a,b,c from tabel where id = ?pnId], in cazul in care nu exista cObjectName (optional)
|
|
*cSchema: schema pentru cSelect (optional)
|
|
* loBizDataObject = CreateObject("BizDataObject", GetHash([cSelect=>select a,b,c from tabel where id = ?pnId]))
|
|
* loBizDataObject.GetDataObject()
|
|
This.nId = toHash.GetValue("nId")
|
|
This.cObjectName = toHash.GetValue("cObjectName")
|
|
This.cSelect = toHash.GetValue("cSelect")
|
|
This.cSchema = toHash.GetValue("cSchema")
|
|
Endproc && Init
|
|
|
|
***************************************************************
|
|
*** Intoarce un obiect selectat din baza de date pe baza tnId
|
|
***************************************************************
|
|
Procedure GetDataObject
|
|
LOCAL lcSelect, lcSelectV, llSucces
|
|
PRIVATE pnObjectId, poObject
|
|
lcSelectV = SELECT()
|
|
llSucces = .F.
|
|
poObject = NULL
|
|
pnObjectId = this.nId
|
|
|
|
lcSelect = this.cSelect
|
|
lcSchema = this.cSchema && id_articol N(20), codmat V(50), denumire V(100), descriere V(200), um V(10), id_grupa N(5), grupa V(50), id_subgrupa N(5), subgrupa V(50), tip N(3)
|
|
IF !(Empty(This.cObjectName) OR EMPTY(This.nId))
|
|
loDefObject = This.GetDefObject()
|
|
lcSelect = loDefObject.GetValue("cSelect")
|
|
lcSchema = loDefObject.GetValue("cSchema")
|
|
lcIdColumn = loDefObject.GetValue("cIdColoana")
|
|
lcSelect = lcSelect + " where " + m.lcIdColumn + " = ?pnObjectId"
|
|
This.cSelect = m.lcSelect
|
|
ENDIF
|
|
|
|
IF !EMPTY(m.lcSelect)
|
|
IF EMPTY(m.lcSchema)
|
|
llSucces = goExecutor.oSelecteaza2Object(m.lcSelect, @poObject)
|
|
ELSE
|
|
poCursor = Null
|
|
gencursor_hash(gethash([cnume=>poCursor??cAlias=>crsDataObject??cselect=>] + m.lcSelect + [??cschema=>] + m.lcSchema + [??lModParam=>.T.??cwhere=>] + m.lcIdColumn + [=pnObjectId]))
|
|
IF USED('crsDataObject')
|
|
llSucces = .T.
|
|
SELECT crsDataObject
|
|
SCATTER NAME poObject MEMO
|
|
USE IN (SELECT('crsDataObject'))
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
IF !m.llSucces
|
|
poObject = NULL
|
|
ENDIF
|
|
SELECT (m.lcSelectV)
|
|
RETURN poObject
|
|
ENDPROC && GetDataObject
|
|
|
|
*************************************************
|
|
Function GetDefObject
|
|
lcObjectName = Lower(This.cObjectName)
|
|
loHash = GetHash()
|
|
Do Case
|
|
CASE EMPTY(m.lcObjectName)
|
|
*
|
|
Case lcObjectName = "nom_parteneri"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_part, denumire, cod_fiscal from nom_parteneri")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "denumire")
|
|
.SetValue("cColoana", "denumire,cod_fiscal,id_part")
|
|
.SetValue("cTitlu", "Alegeti partenerul")
|
|
.SetValue("cTitluColoana", "Nume,Cod fiscal,ID")
|
|
.SetValue("cFiltruOriginal", [STERS = 0 AND INACTIV = 0])
|
|
.SetValue("cresultcoloana","denumire")
|
|
.SetValue("cidcoloana","id_Part")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_parteneri4111"
|
|
With loHash
|
|
.SetValue("cSelect", "SELECT B.ID_PART, B.DENUMIRE, B.COD_FISCAL " + ;
|
|
" FROM CORESP_TIP_PART A " + ;
|
|
" LEFT JOIN NOM_PARTENERI B ON A.ID_PART = B.ID_PART")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "b.denumire")
|
|
.SetValue("cColoana", "b.denumire,b.cod_fiscal,b.id_part")
|
|
.SetValue("cTitlu", "Alegeti partenerul")
|
|
.SetValue("cTitluColoana", "Nume,Cod fiscal,ID")
|
|
.SetValue("cFiltruOriginal", [B.STERS = 0 AND B.INACTIV = 0 AND A.ID_TIP_PART IN (SELECT id_tip_part FROM coresp_tip_cont WHERE cont = '4111')])
|
|
.SetValue("cresultcoloana","denumire")
|
|
.SetValue("cidcoloana","id_Part")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_responsabil"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_responsabil, nume, marca, bi, cnp from vnom_responsabili")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "nume")
|
|
.SetValue("cColoana", "nume, marca, bi, cnp, id_responsabil")
|
|
.SetValue("cTitlu", "Alegeti responsabilul")
|
|
.SetValue("cTitluColoana", "Nume, Marca, BI, CNP, Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","nume")
|
|
.SetValue("cidcoloana","id_responsabil")
|
|
Endwith
|
|
|
|
|
|
Case lcObjectName = "nom_feldoc"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_fdoc, fel_document FROM vnom_fdoc")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "fel_document")
|
|
.SetValue("cColoana", "fel_document,id_fdoc")
|
|
.SetValue("cTitlu", "Alegeti felul documentului")
|
|
.SetValue("cTitluColoana", "Document,ID")
|
|
.SetValue("cFiltruOriginal", [inactiv = 0])
|
|
.SetValue("cresultcoloana","fel_document")
|
|
.SetValue("cidcoloana","id_fdoc")
|
|
Endwith
|
|
|
|
|
|
Case lcObjectName = "nom_gestiune"
|
|
With loHash
|
|
.SetValue("cSelect", "select nume_gestiune,cgest,id_gestiune,nr_pag,cont from vnom_gestiuni ")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "nume_gestiune")
|
|
.SetValue("cColoana", "nume_gestiune,cgest")
|
|
.SetValue("cTitlu", "Alegeti Gestiunea")
|
|
.SetValue("cTitluColoana", "Gestiune,Cgest")
|
|
.SetValue("cFiltruOriginal", [inactiv = 0])
|
|
.SetValue("cresultcoloana","nume_gestiune")
|
|
.SetValue("cidcoloana","id_gestiune")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_lucrare"
|
|
With loHash
|
|
.SetValue("cSelect", "select nrord, id_lucrare from vnom_lucrari")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "nrord")
|
|
.SetValue("cColoana", "nrord,id_lucrare")
|
|
.SetValue("cTitlu", "Alegeti lucrarea")
|
|
.SetValue("cTitluColoana", "Lucrare,ID")
|
|
.SetValue("cFiltruOriginal", [inactiv = 0])
|
|
.SetValue("cresultcoloana","nrord")
|
|
.SetValue("cidcoloana","id_lucrare ")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_sectie"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_sectie, sectie, csectie FROM vnom_sectii")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "sectie")
|
|
.SetValue("cColoana", "sectie, csectie")
|
|
.SetValue("cTitlu", "Alegeti sectia")
|
|
.SetValue("cTitluColoana", "Sectie, Indicativ")
|
|
.SetValue("cFiltruOriginal", [inactiv = 0])
|
|
.SetValue("cresultcoloana","sectie")
|
|
.SetValue("cidcoloana","id_sectie")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_valuta"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_valuta, nume_val FROM vnom_valute")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "nume_val")
|
|
.SetValue("cColoana", "nume_val")
|
|
.SetValue("cTitlu", "Alegeti valuta")
|
|
.SetValue("cTitluColoana", "Valuta")
|
|
.SetValue("cFiltruOriginal", [inactiv = 0 and moneda_nationala = 0])
|
|
.SetValue("cresultcoloana","nume_val")
|
|
.SetValue("cidcoloana","id_valuta")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_sucursala"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_sucursala, sucursala, inactiv from vnom_sucursale")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "2=2")
|
|
.SetValue("cOrder", "sucursala")
|
|
.SetValue("cColoana", "sucursala,id_sucursala")
|
|
.SetValue("cTitlu", "Alegeti sucursala")
|
|
.SetValue("cTitluColoana", "Sucursala, Id")
|
|
If glEMama && DACA SUNT PE FIRMA MAMA ARAT DOAR SUCURSALELE EI
|
|
.SetValue("cFiltruOriginal", [inactiv = 0 AND id_mama = ?gnIdFirma])
|
|
Else && DACA SUNT PE O SUCURSALA SAU PE FIRMA INDEPENDENTA NU ARAT NIMIC
|
|
.SetValue("cFiltruOriginal", [1=2])
|
|
Endif
|
|
.SetValue("cresultcoloana","sucursala")
|
|
.SetValue("cidcoloana","id_sucursala")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_utilizator"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_util,utilizator from syn_vutilizatori")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "utilizator")
|
|
.SetValue("cColoana", "utilizator")
|
|
.SetValue("cTitlu", "Alegeti utilizatorul")
|
|
.SetValue("cTitluColoana", "Utilizator")
|
|
.SetValue("cFiltruOriginal", [inactiv = 0])
|
|
.SetValue("cresultcoloana","utilizator")
|
|
.SetValue("cidcoloana","id_util")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_venchel"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_venchelt, explicatie, (case tip_venchelt when 1 then 'Cheltuiala' else 'Venit' end) as tip_venchelt FROM vnom_venchel")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "explicatie")
|
|
.SetValue("cColoana", "explicatie,tip_venchelt")
|
|
.SetValue("cTitlu", "Alegeti venitul/cheltuiala")
|
|
.SetValue("cTitluColoana", "Explicatia, Tip")
|
|
.SetValue("cFiltruOriginal", [inactiv = 0])
|
|
.SetValue("cresultcoloana","explicatie")
|
|
.SetValue("cidcoloana","id_venchelt")
|
|
Endwith
|
|
|
|
Case Inlist(lcObjectName, "nom_articol", "nom_articole")
|
|
With loHash
|
|
.SetValue("cSelect", "select denumire, codmat, um, grupa, subgrupa, id_grupa, id_subgrupa, descriere, dnf, cont, acont, inactiv, id_articol from vnom_articole")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "denumire")
|
|
.SetValue("cColoana", "denumire,codmat,um,grupa,subgrupa,cont,acont,dnf,id_articol")
|
|
.SetValue("cTitlu", "Alegeti articolul")
|
|
.SetValue("cTitluColoana", "Denumire,Cod Material,UM,Grupa,Subgrupa,Cont,Analitic,DNF,Id")
|
|
.SetValue("cFiltruOriginal", [inactiv = 0])
|
|
.SetValue("cresultcoloana","denumire")
|
|
.SetValue("cidcoloana","id_articol")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_grupa_articol"
|
|
With loHash
|
|
.SetValue("cSelect", "select grupa, id_grupa from vgest_art_gr")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "grupa")
|
|
.SetValue("cColoana", "grupa,id_grupa")
|
|
.SetValue("cTitlu", "Alegeti grupa de articole")
|
|
.SetValue("cTitluColoana", "Grupa,Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","grupa")
|
|
.SetValue("cidcoloana","id_grupa")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_subgrupa_articol"
|
|
With loHash
|
|
.SetValue("cSelect", "select subgrupa, grupa, id_subgrupa from vgest_art_sbgr")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "subgrupa")
|
|
.SetValue("cColoana", "subgrupa,grupa,id_subgrupa")
|
|
.SetValue("cTitlu", "Alegeti subgrupa de articole")
|
|
.SetValue("cTitluColoana", "Subgrupa,Grupa,Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","subgrupa")
|
|
.SetValue("cidcoloana","id_subgrupa")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_grupa_gestiune"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_grupe, nume_grupa, nume_parinte, parent_id FROM vgest_nom_grupe")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "nume_grupa")
|
|
.SetValue("cColoana", "nume_grupa,nume_parinte,id_grupe,parent_id")
|
|
.SetValue("cTitlu", "Alegeti grupa de gestiuni")
|
|
.SetValue("cTitluColoana", "Grupa,Grupa parinte,Id,Id parinte")
|
|
.SetValue("cFiltruOriginal", [inactiv = 0])
|
|
.SetValue("cresultcoloana","nume_grupa")
|
|
.SetValue("cidcoloana","id_grupe")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_meserie"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_meseria, meserie from SAL_VNOM_MES")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "meserie")
|
|
.SetValue("cColoana", "id_meseria, meserie")
|
|
.SetValue("cTitlu", "Alegeti meseria")
|
|
.SetValue("cTitluColoana", "Meseria, Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","meserie")
|
|
.SetValue("cidcoloana","meseria")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_formatie"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_formatia, denumire from sal_vnom_formatii")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "denumire")
|
|
.SetValue("cColoana", "denumire, id_formatia")
|
|
.SetValue("cTitlu", "Alegeti formatia")
|
|
.SetValue("cTitluColoana", "Formatia, Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","denumire")
|
|
.SetValue("cidcoloana","id_formatia")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_tip_rulaj"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_tip_rulaj,descriere from nom_tip_rulaj")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "2=2")
|
|
.SetValue("cOrder", "descriere")
|
|
.SetValue("cColoana", "descriere,id_tip_rulaj")
|
|
.SetValue("cTitlu", "Alegeti tipul de rulaj")
|
|
.SetValue("cTitluColoana", "Descriere,ID")
|
|
.SetValue("cFiltruOriginal", [STERS = 0])
|
|
.SetValue("cresultcoloana","descriere")
|
|
.SetValue("cidcoloana","id_tip_rulaj")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_contracte"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_ctr, id_part, denumire, contract, numar, data from vcontracte")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "data desc, numar")
|
|
.SetValue("cColoana", "contract,denumire,id_ctr")
|
|
.SetValue("cTitlu", "Alegeti contractul")
|
|
.SetValue("cTitluColoana", "Contract,Partener,Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","contract")
|
|
.SetValue("cidcoloana","id_ctr")
|
|
Endwith
|
|
|
|
Case lcObjectName = "tipuri_contracte"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_tip_ctr,denumire from tipuri_contracte")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "2=2")
|
|
.SetValue("cOrder", "denumire")
|
|
.SetValue("cColoana", "denumire,id_tip_ctr")
|
|
.SetValue("cTitlu", "Alegeti tipul de contract")
|
|
.SetValue("cTitluColoana", "Denumire,ID")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","denumire")
|
|
.SetValue("cidcoloana","id_tip_ctr")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_transe"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_transa, transa from sal_vnom_transe")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "transa")
|
|
.SetValue("cColoana", "transa, id_transa")
|
|
.SetValue("cTitlu", "Alegeti transa")
|
|
.SetValue("cTitluColoana", "Transa, Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","transa")
|
|
.SetValue("cidcoloana","id_transa")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_tichete"
|
|
With loHash
|
|
.SetValue("cSelect", "select id, denumire,valoare from sal_vnom_tichete")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "denumire")
|
|
.SetValue("cColoana", "denumire, valoare, id")
|
|
.SetValue("cTitlu", "Alegeti tipul tichetului")
|
|
.SetValue("cTitluColoana", "Tip tichet,Valoare, Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","denumire")
|
|
.SetValue("cidcoloana","id")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_locatii"
|
|
With loHash
|
|
.SetValue("cSelect", "select id, denumire, sters, inactiv, id_util, dataora, id_utils, dataoras from vnom_locatii")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "denumire")
|
|
.SetValue("cColoana", "denumire,id")
|
|
.SetValue("cTitlu", "Alegeti locatia")
|
|
.SetValue("cTitluColoana", "Denumire,Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","denumire")
|
|
.SetValue("cidcoloana","id")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_tipfactura"
|
|
With loHash
|
|
.SetValue("cSelect", "select id, denumire from fact_tipuri")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "denumire")
|
|
.SetValue("cColoana", "denumire,id")
|
|
.SetValue("cTitlu", "Alegeti tipul facturii")
|
|
.SetValue("cTitluColoana", "Denumire,Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","denumire")
|
|
.SetValue("cidcoloana","id")
|
|
Endwith
|
|
|
|
Case lcObjectName = "nom_ruta"
|
|
With loHash
|
|
.SetValue("cSelect", "select id_ruta, ruta from fact_nom_rute")
|
|
.SetValue("cSchema", "")
|
|
.SetValue("cFiltru", "1=2")
|
|
.SetValue("cOrder", "ruta")
|
|
.SetValue("cColoana", "denumire,id")
|
|
.SetValue("cTitlu", "Alegeti ruta")
|
|
.SetValue("cTitluColoana", "Ruta,Id")
|
|
.SetValue("cFiltruOriginal", [])
|
|
.SetValue("cresultcoloana","ruta")
|
|
.SetValue("cidcoloana","id_ruta")
|
|
Endwith
|
|
ENDCASE
|
|
|
|
RETURN loHash
|
|
ENDFUNC && GetDefObjectByName
|
|
|
|
Enddefine && BizDataObject
|