3023 lines
125 KiB
Plaintext
3023 lines
125 KiB
Plaintext
*!* 24.07.2009
|
||
*!* marius.mutu
|
||
*!* CAUT_ARTICOL (tlCautPlus - daca se foloseste formularul caut_alfa_form_plus cu butonul but_start_criterii)
|
||
|
||
*!* 04.09.2009
|
||
*!* marius.mutu
|
||
*!* caut_gestiune_xml ( + tnPornire)
|
||
|
||
*!* 22.02.2010
|
||
*!* marius.mutu
|
||
*!* caut_gestiune_xml gcCondSucursala
|
||
|
||
*!* 06.07.2011
|
||
*!* marius.mutu
|
||
*!* caut_politici_preturi
|
||
*!* cautare in vcrm_politici_preturi dupa drepturi utilizator
|
||
|
||
*!* 19.12.2011
|
||
*!* marius.mutu
|
||
*!* caut_parteneri_xml - selectie inclusiv parteneri vechi unificati si transformati in parteneri noi
|
||
|
||
*!* 01.02.2013
|
||
*!* marius.mutu
|
||
*!* caut_gestiune_xml - corectat c.id_sucursala in loc de a.id_sucursala
|
||
|
||
*!* 06.01.2014
|
||
*!* marius.mutu
|
||
*!* caut_gestiune_dest - am mutat conditia de la planul de conturi sintetic si analitic in join, in loc de where - nu mergea in unele cazuri
|
||
|
||
*!* 28.09.2018
|
||
*!* marius.mutu
|
||
*!* caut_parteneri + parametru tlInactiv: daca arat si partenerii inactivi (ex: la fisa de cont, cand un partener s-a unificat, partenerul vechi este inactiv)
|
||
|
||
*!* 17.01.2020
|
||
*!* marius.mutu
|
||
*!* caut_responsabil - include CNP, se foloseste in baza.vcx > item.gotfocus, ca sa se afiseza si marca responsabilului
|
||
|
||
*!* 12.12.2024
|
||
*!* marius.mutu
|
||
*!* caut_client_contract_activ - nu se iau contracte active de pe clienti inactivi
|
||
|
||
*!* #DEFINE CRLF CHR(13) + CHR(10)
|
||
#INCLUDE COMUN\ROA.H
|
||
|
||
************************************************************************************************************************
|
||
* CautPartenerContabilitate(cTitlu, cTipuriParteneri)
|
||
* Date : 04/10/2006
|
||
* author : marius.mutu
|
||
* se cauta un partener dupa o lista de tipuri partener in toti partenerii
|
||
* se ordoneaza lista de parteneri - intai partenerii cu tip in lista de tipuri, apoi restul
|
||
* se coloreaza partenerii care nu au tip in lista de tipuri
|
||
* se poate da un cont - se obtine lista de tipuri partener din coresp_tip_cont
|
||
* se pot adauga corespondentele daca aleg un partener care nu are tipurile asociate
|
||
* loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul 401??lAdaugCorespondente=>1??cCont=>401])
|
||
******************************************* INCEPUT:CautPartenerContabilitate*******************************************
|
||
Procedure CautPartenerContabilitate
|
||
Lparameters toHash
|
||
&& ctitlu: Nume client/furnizor etc.
|
||
&& cTipuriParteneri: lista de id-uri tipuri partener delimitata prin ','
|
||
&& cCont: contul pentru care se obtine lista de tipuri partener
|
||
&& llAdaugCorespondente: daca se adauga corespondente partener - tipuri partener
|
||
|
||
|
||
|
||
Local loHash As MyHash, lcSelect, lcTitlu, lcTipuriParteneri, lnSucces, llAllInList, lnPornire, lcFiltruOrig, lcNumeProcedura, llAdaugCorespondente
|
||
|
||
*!* parametrii
|
||
lcTitlu = toHash.GetValue("cTitlu")
|
||
lcTipuriParteneri = toHash.GetValue("cTipuriParteneri")
|
||
lcCont = toHash.GetValue("cCont")
|
||
llAdaugCorespondente = toHash.GetValue("lAdaugCorespondente")
|
||
lcNumeProcedura = toHash.GetValue("cNumeProc")
|
||
lcFiltruOrig = toHash.GetValue("cFiltruOrig")
|
||
llAllInList = toHash.GetValue("lAllInList")
|
||
lnPornire = toHash.GetValue("nPornire")
|
||
|
||
*!* parametrii
|
||
|
||
If Empty(lcTitlu)
|
||
lcTitlu = 'Alegeti partenerul'
|
||
Endif
|
||
|
||
&& se obtine lista de tipuri parteneri asociata unui cont
|
||
If !Empty(lcCont) And Empty(lcTipuriParteneri)
|
||
lcSelect = [SELECT stringAgg(to_char(id_tip_part)) FROM coresp_tip_cont WHERE cont = '] + lcCont + [']
|
||
lnSucces = goExecutor.oSelect2Value(lcSelect, @lcTipuriParteneri)
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare')
|
||
Endif
|
||
Endif
|
||
lcTipuriParteneri = Nvl(lcTipuriParteneri, '')
|
||
|
||
If !Empty(lcTipuriParteneri)
|
||
*!* selectia se face din corespondente tipuri partener
|
||
lcSelect = [SELECT MIN(CASE WHEN A.ID_TIP_PART in (] + lcTipuriParteneri + [) THEN 0 ELSE 1 END) AS TIP,] + ;
|
||
[B.ID_PART, B.DENUMIRE AS NUME, B.COD_FISCAL, B.DENUMIRE ] + ;
|
||
[ FROM CORESP_TIP_PART A ] + ;
|
||
[ LEFT JOIN NOM_PARTENERI B ON A.ID_PART = B.ID_PART ]
|
||
Else
|
||
*!* selectia se face din parteneri
|
||
lcSelect = [SELECT 0 as TIP, B.ID_PART, B.DENUMIRE AS NUME, B.COD_FISCAL, B.DENUMIRE ] + ;
|
||
[ FROM NOM_PARTENERI B ]
|
||
Endif
|
||
|
||
loHash = GetHash()
|
||
With loHash
|
||
.SetValue("cSelect", lcSelect)
|
||
.SetValue("cFiltru", "1=2")
|
||
.SetValue("cOrder", "1,NUME")
|
||
If !Empty(Nvl(lcTipuriParteneri, ''))
|
||
.SetValue("cGroup", "B.ID_PART, B.DENUMIRE, B.COD_FISCAL")
|
||
Endif
|
||
.SetValue("cColoana", "denumire,cod_fiscal,id_part")
|
||
.SetValue("cTitlu", lcTitlu)
|
||
.SetValue("cTitluColoana", "Nume,Cod fiscal,ID")
|
||
If !Empty(lcFiltruOrig)
|
||
lcFiltruOrig = [B.STERS = 0 AND B.INACTIV = 0 AND ] + lcFiltruOrig
|
||
Else
|
||
lcFiltruOrig = [B.STERS = 0 AND B.INACTIV = 0]
|
||
Endif
|
||
.SetValue("cFiltruOriginal", lcFiltruOrig)
|
||
*!* IF EMPTY(lcTipuriParteneri)
|
||
*!* && daca nu exista tipuri la un cont
|
||
*!* .SetValue("cFiltruOriginal", "1=2")
|
||
*!* ENDIF
|
||
.SetValue("cPrimaColoana", "denumire")
|
||
If Empty(lcNumeProcedura)
|
||
.SetValue("cNumeProc", [nom_parteneri;"] + lcTipuriParteneri + ["])
|
||
Else
|
||
.SetValue("cNumeProc", lcNumeProcedura)
|
||
ENDIF
|
||
.SetValue("cProceduraVerifica", "nom_parteneri_verifica")
|
||
.SetValue("cProceduraCopiaza", "nom_parteneri_copiaza")
|
||
If !Empty(lcTipuriParteneri)
|
||
*!* daca partenerii sunt ordonati dupa tip - coloreaza partenerii care au tip = 1
|
||
.SetValue("cGridDynamicBackColor", [IIF(TIP = 1, RGB(225,225,225), RGB(255,255,255))])
|
||
.SetValue("cGridToolTip", "Partenerii de alt tip sunt colorati gri.")
|
||
Endif
|
||
.SetValue("lAllInList", llAllInList)
|
||
.SetValue("nPornire", lnPornire)
|
||
|
||
Endwith
|
||
|
||
|
||
loCauta = cauta_alfa_hash(loHash) && 11.07.2007
|
||
|
||
*!* ADAUG TIPURI DE PARTENER - PARTENER DACA NU EXISTA
|
||
If llAdaugCorespondente And !Isnull(loCauta) And Type('loCauta.id_part') = 'N' And loCauta.id_part <> 0 And !Empty(lcTipuriParteneri) And loCauta.tip = 1
|
||
Do ADAUGA_CORESP_TIP_PART With loCauta.id_part, lcTipuriParteneri In oproceduri_parteneri.prg
|
||
Endif
|
||
|
||
Return loCauta
|
||
|
||
Endproc && CautPartenerContabilitate
|
||
******************************************* SFARSIT: CautPartenerContabilitate*******************************************
|
||
|
||
* PROCEDURE caut_parteneri( tcCont )
|
||
* Date : 04/11/2004, 14:01:21
|
||
* author : lavinia.viziru
|
||
******************************************* INCEPUT:caut_parteneri *******************************************
|
||
Procedure caut_parteneri( tcCont, tcTitlu, tlToateIreg, tlNou, tlInactiv)
|
||
Local lcCont, loCauta, lcFiltruOriginal
|
||
Local lcTitlu, lcFiltru, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
|
||
Store "" To loCauta
|
||
lcCont = tcCont
|
||
llInactiv = m.tlInactiv && daca arat si partenerii inactivi (ex: la fisa de cont, cand un partener s-a unificat, partenerul vechi este inactiv)
|
||
|
||
lcSelect = [select distinct p.denumire, p.nume, p.cod_fiscal, p.id_part, p.inactiv FROM Vcoresp_tip_part p ] + ;
|
||
[ join vcoresp_tip_cont c on p.id_tip_part=c.id_tip_part ]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [P.denumire]
|
||
lccoloane = [denumire, nume, cod_fiscal, id_part, inactiv]
|
||
If Empty(lcCont)
|
||
lcFiltruOriginal = IIF(m.llInactiv, [1=1],[p.inactiv = 0])
|
||
Else
|
||
lcFiltruOriginal = IIF(m.llInactiv, [1=1],[p.inactiv = 0]) + [ and c.cont='] + Alltrim(lcCont) + [']
|
||
Endif
|
||
If Empty(tcTitlu)
|
||
lcTitlu = "Alegeti partenerul"
|
||
Else
|
||
lcTitlu = tcTitlu
|
||
Endif
|
||
If tlNou
|
||
lcNumeProc = [nom_parteneri]
|
||
Else
|
||
lcNumeProc = []
|
||
ENDIF
|
||
|
||
lcTitluColoane = [Denumire, Nume,Cod fiscal, Id, Inactiv]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
|
||
Endproc
|
||
******************************************* SFARSIT: caut_parteneri *******************************************
|
||
******************************************* INCEPUT:caut_parteneri_xml *******************************************
|
||
*** se cauta inclusiv partenerii vechi care au fost unificati in parteneri noi
|
||
Procedure caut_parteneri_xml( tcCont, tcTitlu, tlToateIreg, tlNou)
|
||
Local lcCont, loCauta, lcFiltruOriginal
|
||
Local lcTitlu, lcFiltru, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
|
||
Store "" To loCauta
|
||
lcCont = tcCont
|
||
|
||
TEXT TO lcSelect NOSHOW
|
||
select distinct
|
||
case when p2.id_part <> p1.id_part then p1.denumire || ' <<< 'else '' end || nvl(p2.denumire, p1.denumire) as denumire,
|
||
p2.nume,
|
||
p2.cod_fiscal,
|
||
CASE WHEN NVL(p2.inactiv,0) <> 0 THEN 'INACTIV' ELSE ' ' END AS inactiv,
|
||
p2.id_part
|
||
FROM CORESP_TIP_PART p
|
||
JOIN CORESP_TIP_CONT c
|
||
on p.id_tip_part = c.id_tip_part
|
||
left join nom_parteneri_modificari pm
|
||
on p.id_part = pm.id_part_vechi
|
||
left JOIN NOM_PARTENERI p1
|
||
on pm.id_part_NOU = p1.ID_PART
|
||
left join nom_parteneri p2
|
||
on p.id_part = p2.ID_PART
|
||
ENDTEXT
|
||
|
||
*!* lcSelect = [select distinct p.denumire, p.nume, p.cod_fiscal, p.id_part FROM Vcoresp_tip_part p ]+;
|
||
*!* [ join vcoresp_tip_cont c on p.id_tip_part=c.id_tip_part ]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [3]
|
||
lccoloane = [denumire, nume, cod_fiscal, inactiv, id_part]
|
||
*!* lcFiltruOriginal = [p.inactiv = 0]
|
||
lcFiltruOriginal = []
|
||
If !Empty(lcCont)
|
||
*!* lcFiltruOriginal = [p.inactiv = 0 and c.cont=']+ Alltrim(lcCont) + [']
|
||
*!* modificare ROACONT v 2.5.40
|
||
lcFiltruOriginal = lcFiltruOriginal + [c.cont='] + Alltrim(lcCont) + [']
|
||
Endif
|
||
If Empty(tcTitlu)
|
||
lcTitlu = "Alegeti partenerul (mouse-click pe nume sau apasati SPACE)"
|
||
Else
|
||
lcTitlu = tcTitlu + " (mouse-click pe nume sau apasati SPACE)"
|
||
Endif
|
||
If tlNou
|
||
lcNumeProc = [nom_parteneri]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Denumire, Nume, Cod fiscal, Inactiv, Id]
|
||
lnTipReturn = 1 && XML
|
||
*!* lcPrimaColoana = "denumire"
|
||
lcPrimaColoana = "nvl(p1.denumire, p2.denumire)"
|
||
lcIdColumn = "id_part"
|
||
lcNume_Proc = []
|
||
lnPornire = 1
|
||
lcXMLParteneri = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNume_Proc, tlToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn)
|
||
Return lcXMLParteneri
|
||
Endfunc && caut_parteneri_xml
|
||
******************************************* SFARSIT: caut_parteneri_xml *******************************************
|
||
* PROCEDURE caut_partener()
|
||
* author : paula.mutu
|
||
* -- SIR CU ID-URI TIP PARTENER PENTRU -1,-2 (CLIENT/FURNIZOR)
|
||
******************************************* INCEPUT:caut_partener *******************************************
|
||
Procedure caut_partener(tcIdTipPart, tcTitlu, tlToateIreg, tlNou)
|
||
|
||
Private pnIdTip, pcSir_Id_tip_part
|
||
Store '' To pcSir_Id_tip_part
|
||
pnIdTip = tcIdTipPart
|
||
&& pnIdTip && -1 - Clienti; -2 - Furnizori
|
||
lcSql = [begin pack_def.get_conturi_tip_part(?pnIdTip, ?@pcSir_Id_tip_part); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare')
|
||
Return
|
||
Endif
|
||
|
||
Local lcCont, loCauta, lcFiltruOriginal
|
||
Local lcTitlu, lcFiltru, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
|
||
Store "" To loCauta
|
||
|
||
lcSelect = [select denumire, cod_fiscal, id_part from vnom_parteneri ]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lccoloane = [denumire, cod_fiscal, id_part]
|
||
If Empty(pcSir_Id_tip_part) Or Isnull(pcSir_Id_tip_part)
|
||
lcFiltruOriginal = [inactiv = 0]
|
||
Else
|
||
lcFiltruOriginal = [inactiv = 0 and id_part in (select distinct id_part from coresp_tip_part where id_tip_part in (] + pcSir_Id_tip_part + [))]
|
||
Endif
|
||
|
||
If Empty(tcTitlu)
|
||
lcTitlu = "Alegeti partenerul"
|
||
Else
|
||
lcTitlu = tcTitlu
|
||
Endif
|
||
If tlNou
|
||
lcNumeProc = [nom_parteneri]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Denumire,Cod fiscal,Id]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
|
||
Endproc
|
||
******************************************* SFARSIT: caut_partener *******************************************
|
||
|
||
******************************************* INCEPUT: caut_partener_dupa_tip *******************************************
|
||
Procedure caut_partener_dupa_tip
|
||
Lparameters tnIdTipPart, tcTitlu, tnIdPart, tcNumePart, tcSirIdTipPart
|
||
Local loCauta, llReturn
|
||
Store "" To loCauta
|
||
Store .F. To llReturn
|
||
pcselect = [select id_part,denumire from vcoresp_tip_part]
|
||
pcFiltruOrig = [id_tip_part=] + Alltrim(Str(tnIdTipPart))
|
||
lcProceduraNou = [nom_parteneri;] + Alltrim(Str(tnIdTipPart)) + [,'Entitate',1,2]
|
||
If !Empty(tcSirIdTipPart)
|
||
pcFiltruOrig = pcFiltruOrig + [and id_part not in (select id_part from coresp_tip_part where id_tip_part in (] + tcSirIdTipPart + [))]
|
||
Endif
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [2]
|
||
pccoloane = [denumire]
|
||
pcTitlu = Iif(!Empty(tcTitlu), tcTitlu, [Alegeti partenerul])
|
||
pcTitluColoane = [Nume]
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcProceduraNou, .F., pcFiltruOrig) && 11.07.2007
|
||
If !Empty(loCauta.id_part)
|
||
tnIdPart = loCauta.id_part
|
||
tcNumePart = Alltrim(loCauta.denumire)
|
||
llReturn = .T.
|
||
Endif
|
||
Return llReturn
|
||
Endproc
|
||
******************************************* SFARSIT: caut_partener_dupa_tip *******************************************
|
||
******************************************* INCEPUT: caut_categorie_entitate *******************************************
|
||
Procedure caut_categorie_entitate
|
||
Local loCauta, llReturn
|
||
Store "" To loCauta
|
||
Store .F. To llReturn
|
||
pcselect = [select id_categorie_entitate,categorie_entitate from vnom_categorii_entitati]
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [2]
|
||
pccoloane = [categorie_entitate]
|
||
pcTitlu = [Alegeti categoria]
|
||
pcTitluColoane = [Categorie entitate]
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, "") && 11.07.2007
|
||
Return loCauta
|
||
Endproc
|
||
******************************************* SFARSIT: caut_categorie_entitate *******************************************
|
||
******************************************* INCEPUT: caut_marca_masina *******************************************
|
||
Procedure caut_marca_masina
|
||
Local loCauta, llReturn
|
||
Store "" To loCauta
|
||
Store .F. To llReturn
|
||
pcselect = [select id_marca_masina,marca_masina from vnom_marci_masini]
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [2]
|
||
pccoloane = [marca_masina]
|
||
pcTitlu = [Alegeti marca masinii]
|
||
pcTitluColoane = [Marca]
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, "") && 11.07.2007
|
||
Return loCauta
|
||
Endproc
|
||
******************************************* SFARSIT: caut_marca_masina *******************************************
|
||
|
||
* PROCEDURE caut_lucrare
|
||
* Date : 31.07.2006
|
||
* author : marius.mutu
|
||
******************************************* INCEPUT:caut_lucrare *******************************************
|
||
Procedure caut_lucrare(tlToateIreg, tlNou, tcFiltruOriginal)
|
||
*!* modificare 30.06.2011 ( ROAAUTO v 2.0.28 ) : am adaugat tcFiltruOriginal
|
||
|
||
Local loCauta, lcFiltruOriginal
|
||
Local lcTitlu, lcFiltru, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
|
||
Store Null To loCauta
|
||
|
||
lcSelect = [select nrord, id_lucrare from vnom_lucrari]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [nrord]
|
||
lccoloane = [nrord,id_lucrare]
|
||
lcFiltruOriginal = [inactiv = 0] + IIF(!EMPTY(tcfiltruOriginal), [ and ] + tcFiltruOriginal, [])
|
||
|
||
lcTitlu = "Alegeti lucrarea"
|
||
If tlNou
|
||
lcNumeProc = [nom_lucrari]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Lucrare,Id]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
|
||
Endproc
|
||
******************************************* SFARSIT: caut_lucrare *******************************************
|
||
|
||
******************************************* INCEPUT:caut_articol *******************************************
|
||
Function caut_articol
|
||
Lparameters tntipg, tlToateIreg, tlMultipleArticles, tlCRM, tlCautPlus, tlFaraAdaugare, tnIdGrupa, tlInactive
|
||
Store "" To loCauta
|
||
*!* tlCautPlus - daca se foloseste formularul caut_alfa_form_plus cu butonul but_start_criterii
|
||
*!* 24.07.2009
|
||
*!* 29.01.2013 : am adaugat um2 in selectie
|
||
*!* 19.07.2013 : am adaugat in_stoc in selectie
|
||
*!* 11.09.2013 : am adaugat tlInactive
|
||
Local lcStringCriterii
|
||
lcStringCriterii = ""
|
||
If tlCautPlus
|
||
lcStringCriterii = "Cod material\codmat\T\none\" + crlf + ;
|
||
"Denumire articol\denumire\T\id_articol\nom_articol" + crlf + ;
|
||
"Subgrupa articol\none\I\id_subgrupa\nom_subgrupa_articol" + crlf
|
||
lcTitluColoane = [Cod Material, Denumire,Subgrupa, Cod bare,U.M.,Cont,Id]
|
||
lccoloane = [codmat,denumire,subgrupa,codbare,um,cont,id_articol]
|
||
Else
|
||
lccoloane = [denumire,codmat,codbare,um,cont,id_articol]
|
||
lcTitluColoane = [Denumire,Cod Material,Cod bare,U.M.,Cont,Id]
|
||
Endif
|
||
*!* 24.07.2009 ^
|
||
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lcNumeProc = []
|
||
|
||
If tlMultipleArticles
|
||
lcTitlu = [Alegeti articolele (mouse-click pe denumire sau apasati SPACE)]
|
||
Else
|
||
lcTitlu = [Alegeti articolul]
|
||
Endif
|
||
|
||
llMultipleArticles = tlMultipleArticles
|
||
If tlCRM
|
||
lcSelect = [select distinct a.denumire,a.codmat,a.codbare,a.um,a.um2,a.cont, ] + ;
|
||
[ a.id_articol, 0 as id_tipgest,a.in_stoc, a.inactiv from vnom_articole_crm a ]
|
||
lcFiltruOriginal = IIF(tlInactive, [2=2], [a.inactiv=0])
|
||
*lcNumeProc = [nom_articole2]
|
||
*!* modificare 03.02.2010
|
||
*!* lcNumeProc = [nom_articole]
|
||
If !tlFaraAdaugare
|
||
lcNumeProc = [nom_articole]
|
||
Endif
|
||
*!* modificare 03.02.2010 ^
|
||
Else
|
||
If Type('tnTipg') = 'N' And tntipg > 0
|
||
lcSelect = [select distinct a.denumire,a.codmat,a.codbare,a.um,a.um2,a.cont,a.acont, ] + ;
|
||
[a.id_articol, a.grupa, a.subgrupa, a.id_grupa, a.id_subgrupa, a.dnf, b.id_tipgest, a.in_stoc, a.inactiv from vnom_articole a inner join coresp_cont_tipgest b on a.cont = b.cont]
|
||
lcFiltruOriginal = IIF(tlInactive, [], [ a.inactiv=0 and]) + [ b.id_tipgest = ] + Alltrim(Str(tntipg))
|
||
Else
|
||
lcSelect = [select distinct a.denumire,a.codmat,a.codbare,a.um,a.um2,a.cont,a.acont,] + ;
|
||
[a.id_articol, a.grupa, a.subgrupa, a.id_grupa, a.id_subgrupa, a.dnf, 0 as id_tipgest, a.in_stoc, a.inactiv from vnom_articole a ]
|
||
lcFiltruOriginal = IIF(tlInactive, [2=2], [a.inactiv=0])
|
||
Endif
|
||
*!* modificare 03.02.2010
|
||
*!* lcNumeProc = [nom_articole]
|
||
If !tlFaraAdaugare
|
||
lcNumeProc = [nom_articole]
|
||
Endif
|
||
*!* modificare 03.02.2010 ^
|
||
Endif
|
||
*!* modificare v 10.01.2011
|
||
IF !EMPTY(tnIdGrupa)
|
||
lcFiltruOriginal = lcFiltruOriginal + [ and a.id_subgrupa in (select id_subgrupa from vgest_art_sbgr where id_grupa = ] + ALLTRIM(STR(tnIdGrupa)) + [)]
|
||
ENDIF
|
||
*!* modificare v 10.01.2011 ^
|
||
llToateIreg = tlToateIreg
|
||
lcPrimaColoana = [denumire]
|
||
lnPornire = 1
|
||
lnTipReturn = Iif(tlMultipleArticles, 1, 0)
|
||
lcIdColumn = "id_articol"
|
||
|
||
*!* 24.07.2009
|
||
loHash = GetHash()
|
||
With loHash
|
||
.SetValue("cSelect", lcSelect)
|
||
.SetValue("cFiltru", lcFiltru)
|
||
.SetValue("cSchema", lcSchema)
|
||
.SetValue("cOrder", lcOrder)
|
||
.SetValue("cColoana", lccoloane)
|
||
.SetValue("cTitlu", lcTitlu)
|
||
.SetValue("cTitluColoana", lcTitluColoane)
|
||
.SetValue("cNumeProc", lcNumeProc)
|
||
.SetValue("lToateIreg", llToateIreg)
|
||
.SetValue("cFiltruOriginal", lcFiltruOriginal)
|
||
.SetValue("cPrimaColoana", lcPrimaColoana)
|
||
.SetValue("nPornire", lnPornire)
|
||
.SetValue("nTipReturn", lnTipReturn)
|
||
.SetValue("cIdColumn", lcIdColumn)
|
||
.SetValue("cStringCriterii", lcStringCriterii)
|
||
If tlInactive
|
||
.SetValue("cGridDynamicBackColor", [IIF(inactiv = 1, RGB(225,225,225), RGB(255,255,255))])
|
||
Endif
|
||
Endwith
|
||
*!* loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn , lcIdColumn, lcStringCriterii) && 11.07.2007
|
||
loCauta = cauta_alfa_hash(loHash)
|
||
*!* 24.07.2009 ^
|
||
|
||
Return loCauta && caut_articol
|
||
|
||
******************************************* SFARSIT: caut_articol *******************************************
|
||
|
||
Function cauta_articole
|
||
Lparameters tcFiltruOriginal, tnPornire, tlLoud, tcListaId, tcListaDenumire
|
||
*** tnPornire: incepe cu...,1,este...,2,nu este...,3,contine...,4,nu contine...,5,toate,6
|
||
*** tlLoud = .T. daca apare messagebox "Nu ati selectat nici o inregistare" pentru cautarea multipla. Default = .F.
|
||
*** tcListaId = parametru OUT - lista id-uri articole
|
||
*** tcListaDenumire = parametru OUT - lista denumiri articole
|
||
|
||
Local lcFiltru, lcFiltruOriginal, lcIdColumn, lcNumeProc, lcOrder, lcPrimaColoana, lcSchema
|
||
Local lcSelect, lcTitlu, lcTitluColoane, lccoloane, llMultipleArticles, llToateIreg, lnPornire
|
||
Local lnTipReturn, loCauta, loLista
|
||
|
||
Store "" To loCauta
|
||
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lccoloane = [denumire,codmat,codbare,um,grupa,subgrupa,cont,acont,dnf,id_articol]
|
||
lcTitlu = [Alegeti articolele (mouse-click pe denumire sau apasati SPACE)]
|
||
lcTitluColoane = [Denumire,Cod Material,Cod bare,UM,Grupa,Subgrupa,Cont,Analitic,DNF,Id]
|
||
llMultipleArticles = .T.
|
||
lcSelect = [select a.denumire,a.codmat,a.codbare,a.um, a.grupa, a.subgrupa, a.id_grupa, a.id_subgrupa,a.dnf,a.cont, a.acont, a.inactiv, a.id_articol from vnom_articole a ]
|
||
lcFiltruOriginal = Iif(!Empty(tcFiltruOriginal), Alltrim(tcFiltruOriginal), "")
|
||
lcNumeProc = [nom_articole]
|
||
llToateIreg = .F.
|
||
lcPrimaColoana = [denumire]
|
||
lnPornire = Iif(Empty(m.tnPornire), CA_PORNIRE_INCEPE, m.tnPornire)
|
||
lnTipReturn = Iif(llMultipleArticles, 1, 0)
|
||
lcIdColumn = "id_articol"
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn) && 11.07.2007
|
||
|
||
*!* 24.08.2011
|
||
IF m.llMultipleArticles
|
||
loLista = XML2ListaIDDescriere(loCauta, "id_articol", "denumire", tlLoud)
|
||
tcListaId = loLista.ListaId
|
||
tcListaDenumire = loLista.ListaDenumire
|
||
ENDIF
|
||
*!* 24.08.2011
|
||
|
||
Return loCauta && cauta_articole
|
||
|
||
Endfunc && cauta_articole
|
||
******************************************* SFARSIT: cauta_articole *******************************************
|
||
Function cauta_nom_articole
|
||
Lparameters tcFiltruOriginal, tnPornire, tlLoud, tcListaId, tcListaDenumire
|
||
*** tnPornire: incepe cu...,1,este...,2,nu este...,3,contine...,4,nu contine...,5,toate,6
|
||
*** tlLoud = .T. daca apare messagebox "Nu ati selectat nici o inregistare" pentru cautarea multipla. Default = .F.
|
||
*** tcListaId = parametru OUT - lista id-uri articole
|
||
*** tcListaDenumire = parametru OUT - lista denumiri articole
|
||
Local lcFiltru, lcFiltruOriginal, lcIdColumn, lcNumeProc, lcOrder, lcPrimaColoana, lcSchema, lnPornire
|
||
Local lcSelect, lcTitlu, lcTitluColoane, lccoloane, llMultipleArticles, llToateIreg, lnTipReturn
|
||
Local loCauta, loLista
|
||
Store "" To loCauta
|
||
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lccoloane = [denumire,codmat,codbare,um,grupa,subgrupa,cont,acont,dnf,id_articol]
|
||
lcTitlu = [Alegeti articolele (mouse-click pe denumire sau apasati SPACE)]
|
||
lcTitluColoane = [Denumire,Cod Material,Cod bare,UM,Grupa,Subgrupa,Cont,Analitic,DNF,Id]
|
||
llMultipleArticles = .T.
|
||
lcSelect = [select a.denumire,a.codmat,a.codbare,a.um, a.grupa, a.subgrupa, a.id_grupa, a.id_subgrupa,a.dnf,a.cont, a.acont, a.inactiv, a.id_articol from ] + gcS + [.vnom_articole_toate a ]
|
||
lcFiltruOriginal = Iif(!Empty(tcFiltruOriginal), Alltrim(tcFiltruOriginal) + [ and ], "") + [a.inactiv = 0]
|
||
lcNumeProc = [nom_articole]
|
||
llToateIreg = .F.
|
||
lcPrimaColoana = [denumire]
|
||
lnPornire = Iif(Empty(m.tnPornire), CA_PORNIRE_INCEPE, m.tnPornire)
|
||
lnTipReturn = Iif(llMultipleArticles, 1, 0)
|
||
lcIdColumn = "id_articol"
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn) && 11.07.2007
|
||
|
||
*!* 24.08.2011
|
||
IF m.llMultipleArticles
|
||
loLista = XML2ListaIDDescriere(loCauta, "id_articol", "denumire", tlLoud)
|
||
tcListaId = loLista.ListaId
|
||
tcListaDenumire = loLista.ListaDenumire
|
||
ENDIF
|
||
*!* 24.08.2011
|
||
|
||
Return loCauta && cauta_nom_articole
|
||
|
||
Endfunc && cauta_nom_articole
|
||
******************************************* SFARSIT: cauta_nom_articole *******************************************
|
||
|
||
*** transforma un xml din cautare alfa multipla intr-o lista cu id-uri si o lista cu denumiri
|
||
*** ex: lista xml articole -> lista id-uri articole (100|101|102|) si lista denumiri articole (banana,morcov,telina)
|
||
*** intoarce un obiect cu 2 proprietati: ocautare.listaid, ocautare.listadenumire
|
||
FUNCTION XML2ListaIDDescriere
|
||
LPARAMETERS tcXML, tcCampId, tcCampDenumire, tlLoud
|
||
*** tcXML = xml cursor cautare alfa
|
||
*** tcCampId = nume camp ID din cursor. Ex: id_articol
|
||
*** tcCampDenumire = nume camp Denumire din cursor. Ex: denumire
|
||
*** tlLoud = .T. daca apare messagebox "Nu ati selectat nici o inregistare", Default = .F.
|
||
|
||
LOCAL lcXML, llLoud, loCautare, lcSelect
|
||
|
||
lcSelect = SELECT()
|
||
lcXML = IIF(TYPE('tcXML') <> 'C' or PCOUNT() < 1, "", m.tcXML)
|
||
lcCampId = IIF(TYPE('tcCampId') <> 'C' or PCOUNT() < 2, "", m.tcCampId)
|
||
lcCampDenumire = IIF(TYPE('tcCampDenumire') <> 'C' or PCOUNT() < 3, "", m.tcCampDenumire)
|
||
llLoud = IIF(TYPE('tlLoud') <> 'L' or PCOUNT() < 4, .F., m.tlLoud)
|
||
|
||
loCautare = CREATEOBJECT("empty")
|
||
ADDPROPERTY(loCautare, "ListaId", "")
|
||
ADDPROPERTY(loCautare, "ListaDenumire", "")
|
||
|
||
If Empty(m.lcXML) OR EMPTY(m.lcCampId) OR EMPTY(m.lcCampDenumire)
|
||
SELECT (lcSelect)
|
||
RETURN loCautare
|
||
ENDIF
|
||
|
||
Xmltocursor(lcXML, "crsXMLTemp")
|
||
If Reccount('crsXMLTemp') = 0 AND m.llLoud
|
||
AMessageBox('Nu ati selectat nici o inregistrare!', 0 + 48, _screen.caption)
|
||
USE IN (SELECT("crsXMLTemp"))
|
||
SELECT (lcSelect)
|
||
RETURN loCautare
|
||
ENDIF
|
||
|
||
Select crsXMLTemp
|
||
Locate For &lcCampId = 0
|
||
If Found() And Reccount('crsXMLTemp') = 1
|
||
loCautare.ListaId = [NULL]
|
||
loCautare.ListaDenumire = [TOATE INREGISTRARILE]
|
||
Else
|
||
loCautare.ListaId = ['] + cursor2lista("crsXMLTemp", lcCampId, "|")
|
||
loCautare.ListaDenumire = cursor2lista("crsXMLTemp", lcCampDenumire, ",")
|
||
Endif
|
||
Use In (SELECT('crsXMLTemp'))
|
||
If(Right(loCautare.ListaId, 1) # "|" And loCautare.ListaId # [NULL])
|
||
loCautare.ListaId = loCautare.ListaId + "|"
|
||
Endif
|
||
If loCautare.ListaId <> [NULL]
|
||
loCautare.ListaId = loCautare.ListaId + "'"
|
||
Endif
|
||
|
||
SELECT (lcSelect)
|
||
RETURN loCautare
|
||
ENDFUNC && XML2ListaIDDescriere
|
||
******************************************* INCEPUT: caut_articol_gs *******************************************
|
||
Function caut_articol_gs
|
||
Lparameters tntipg, tlToateIreg, tlMultipleArticles, tcFiltruCont
|
||
Store "" To loCauta
|
||
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lccoloane = [denumire,codmat,codbare,id_articol]
|
||
lcTitlu = [Alegeti articolul]
|
||
lcTitluColoane = [Denumire,Cod Material,Cod bare,Id]
|
||
llMultipleArticles = tlMultipleArticles
|
||
If Type('tnTipg') = 'N' And tntipg > 0
|
||
lcSelect = [select distinct a.denumire,a.codmat,a.codbare,a.um,a.cont,a.acont,] + ;
|
||
[a.id_articol, a.grupa, a.subgrupa, a.id_grupa, a.id_subgrupa, a.dnf, b.id_tipgest from vnom_articole a ] + ;
|
||
[inner join coresp_cont_tipgest b on a.cont = b.cont where 2=2 ]
|
||
lcFiltruOriginal = [ b.id_tipgest = ] + Alltrim(Str(tntipg))
|
||
Else
|
||
lcSelect = [select distinct a.denumire,a.codmat,a.codbare,a.um,a.cont,a.acont,] + ;
|
||
[a.id_articol, a.grupa, a.subgrupa, a.id_grupa, a.id_subgrupa, a.dnf, 0 as id_tipgest ] + ;
|
||
[from vnom_articole a where 2=2 ]
|
||
lcFiltruOriginal = [ 2=2 ]
|
||
Endif
|
||
*!* modificare 10.02.2010 ROAGRESTAURANT v 0.0.17
|
||
IF !EMPTY(tcFiltruCont)
|
||
*!* tcFiltruCont poate fi : 34% / 345 / 345,371
|
||
Do Case
|
||
CASE AT([%], tcFiltruCont) > 0
|
||
lcFiltruOriginal = lcFiltruOriginal + [ and a.cont like '] + Alltrim(tcFiltruCont) + [']
|
||
CASE AT([,], tcFiltruCont) > 0
|
||
lcFiltruOriginal = lcFiltruOriginal + [ and a.cont in ('] + Strtran(Alltrim(tcFiltruCont), [,], [',']) + [')]
|
||
Otherwise
|
||
lcFiltruOriginal = lcFiltruOriginal + [ and a.cont = '] + Alltrim(tcFiltruCont) + [']
|
||
Endcase
|
||
ENDIF
|
||
*!* modificare 10.02.2010 ROAGRESTAURANT v 0.0.17 ^
|
||
lcNumeProc = [nom_articole]
|
||
llToateIreg = tlToateIreg
|
||
lcPrimaColoana = [denumire]
|
||
lnPornire = 1
|
||
lnTipReturn = Iif(tlMultipleArticles, 1, 0)
|
||
lcIdColumn = "id_articol"
|
||
loCauta = cauta_alfa_gs(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn) && 11.07.2007
|
||
|
||
Return loCauta && caut_articol_gs
|
||
|
||
Endfunc && caut_articol_gs
|
||
******************************************* SFARSIT: caut_articol_gs *******************************************
|
||
|
||
******************************************* INCEPUT: cauta_articole_alege *******************************************
|
||
*!* cautare dupa codmat, denumire, subgrupa si bifarea articolelor dorite
|
||
Function cauta_articole_alege
|
||
Private poArticole
|
||
poArticole = Null
|
||
gencursor('deca_baza1', lcCursor, tcselect, tcfiltru, tcschema, tcorder, .F., lcGroup, llModParam, lcFiltOriginal)
|
||
deca_baza1.ca_baza1.afisare()
|
||
Endfunc && cauta_articole_alege
|
||
******************************************* SFARSIT: cauta_articole_alege *******************************************
|
||
|
||
******************************************* INCEPUT: caut_cont *******************************************
|
||
Function caut_cont
|
||
Lparameters tntipg, tcListaConturi, tlToateIreg, tlDoarConturi
|
||
|
||
Store "" To loCauta
|
||
Local llToateIreg
|
||
llToateIreg = tlToateIreg
|
||
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [cont,acont]
|
||
pcTitlu = [Alegeti contul]
|
||
If tlDoarConturi
|
||
pccoloane = [cont,explicatie,tip_sold]
|
||
pcTitluColoane = [Cont,Explicatie,Tip sold]
|
||
Else
|
||
pccoloane = [cont,acont,explicatie,tip_sold]
|
||
pcTitluColoane = [Cont,Analitic,Explicatie,Tip sold]
|
||
Endif
|
||
|
||
If Empty(tntipg) And Empty(tcListaConturi)
|
||
If llToateIreg
|
||
pcselect = [select a.explicatie,rpad(a.cont,22) as cont,] + ;
|
||
IIF(tlDoarConturi, [], [a.acont,]) + [a.id_plcont,a.tip_sold from vplcont_used a ]
|
||
Else
|
||
pcselect = [select a.explicatie,a.cont,] + ;
|
||
IIF(tlDoarConturi, [], [a.acont,]) + [a.id_plcont,a.tip_sold from vplcont_used a ]
|
||
Endif
|
||
pcFiltruOriginal = [ a.an=] + Alltrim(Str(gnan)) + IIF(tlDoarConturi, [ and a.acont is null], [])
|
||
Endif
|
||
|
||
If !Empty(tcListaConturi) And Empty(tntipg)
|
||
pcselect = [select a.explicatie,a.cont,] + ;
|
||
IIF(tlDoarConturi, [], [a.acont,]) + [a.id_plcont,a.tip_sold from vplcont_used a ]
|
||
pcFiltruOriginal = [ a.an=] + Alltrim(Str(gnan)) + [ and a.cont in (] + Alltrim(tcListaConturi) + [)] + ;
|
||
IIF(tlDoarConturi, [ and a.acont is null], [])
|
||
Endif
|
||
|
||
If !Empty(tntipg) And Empty(tcListaConturi)
|
||
pcselect = [select a.explicatie,a.cont,] + ;
|
||
IIF(tlDoarConturi, [], [a.acont,]) + [a.id_plcont,a.tip_sold,b.id_tipgest from vplcont_used a inner join coresp_cont_tipgest b on a.cont = b.cont ]
|
||
pcFiltruOriginal = [ b.id_tipgest = ] + Alltrim(Str(tntipg)) + [ and a.an=] + Alltrim(Str(gnan)) + ;
|
||
IIF(tlDoarConturi, [ and a.acont is null], [])
|
||
Endif
|
||
|
||
If !Empty(tntipg) And !Empty(tcListaConturi)
|
||
pcselect = [select a.explicatie,a.cont,] + ;
|
||
IIF(tlDoarConturi, [], [a.acont,]) + [a.id_plcont,a.tip_sold,b.id_tipgest from vplcont_used a inner join coresp_cont_tipgest b on a.cont = b.cont ]
|
||
pcFiltruOriginal = [ b.id_tipgest = ] + Alltrim(Str(tntipg)) + [ and a.an=] + Alltrim(Str(gnan)) + ;
|
||
[ and a.cont in (] + Alltrim(tcListaConturi) + [)] + ;
|
||
IIF(tlDoarConturi, [ and a.acont is null], [])
|
||
Endif
|
||
|
||
lcNumeProc = []
|
||
lcPrimaColoana = [a.cont]
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcNumeProc, llToateIreg, pcFiltruOriginal, lcPrimaColoana) && 11.07.2007
|
||
|
||
Return loCauta
|
||
******************************************* SFARSIT: caut_cont *******************************************
|
||
|
||
|
||
******************************************* INCEPUT:caut_acont *******************************************
|
||
|
||
Function caut_acont
|
||
Lparameters tncont
|
||
|
||
lcCont = tncont
|
||
Store "" To loCauta
|
||
pcselect = [select a.acont,a.explicatie,a.id_plcont,a.an FROM vplcont_used_analitic a ]
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [acont]
|
||
pccoloane = [acont,explicatie]
|
||
If Pcount() < 1
|
||
pcTitlu = [Alegeti contul analitic]
|
||
Else
|
||
pcTitlu = [Alegeti contul analitic pentru contul ] + Alltrim(lcCont)
|
||
Endif
|
||
pcTitluColoane = [Acont,Explicatie]
|
||
If Pcount() < 1
|
||
pcFiltruOriginal = [1=2]
|
||
Else
|
||
pcFiltruOriginal = [ a.cont=] + Alltrim(lcCont) + [ and a.an=] + Alltrim(Str(gnan))
|
||
Endif
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
lcPrimaColoana = [a.acont]
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcNumeProc, llToateIreg, pcFiltruOriginal, lcPrimaColoana) && 11.07.2007
|
||
|
||
Return loCauta
|
||
|
||
******************************************* SFARSIT: caut_acont *******************************************
|
||
|
||
******************************************* INCEPUT:caut_gestiune *******************************************
|
||
|
||
Function caut_gestiune
|
||
Lparameters tntipg, tnid_util, tlToateIreg, tcTitlu
|
||
|
||
Store "" To loCauta
|
||
pcselect = [select distinct nume_gestiune,cgest,id_gestiune,nr_pag,cont from vgest_gestiuni_util ]
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [nume_gestiune]
|
||
pccoloane = [nume_gestiune,cgest]
|
||
pcTitlu = Iif(Empty(tcTitlu), [Alegeti gestiunea], Alltrim(Upper(tcTitlu)))
|
||
pcTitluColoane = [Gestiune,Cgest]
|
||
lncount = Pcount()
|
||
|
||
Do Case
|
||
Case Type('tnId_Util') = 'N'
|
||
If Empty(tntipg)
|
||
pcFiltruOriginal = [inactiv = 0 and id_util = ] + Alltrim(Str(tnid_util))
|
||
Else
|
||
pcFiltruOriginal = [inactiv = 0 and nr_pag = ] + Alltrim(Str(tntipg)) + [ and id_util = ] + Alltrim(Str(tnid_util))
|
||
Endif
|
||
Case Type('tnTipg') = 'N'
|
||
pcFiltruOriginal = [inactiv = 0]
|
||
Otherwise
|
||
pcselect = [select nume_gestiune,cgest,id_gestiune,nr_pag,cont from vnom_gestiuni ]
|
||
pcFiltruOriginal = [inactiv = 0]
|
||
Endcase
|
||
|
||
lcNumeProc = []
|
||
llToateIreg = tlToateIreg
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcNumeProc, llToateIreg, pcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
|
||
******************************************* SFARSIT: caut_gestiune *******************************************
|
||
Function caut_gestiune_sectie
|
||
Lparameters tntipg, tnIdSectie, tnid_util, tcTitlu
|
||
|
||
Store "" To loCauta
|
||
pcselect = [select distinct nume_gestiune,cgest,id_gestiune,nr_pag,cont from vgest_gestiuni_util ]
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [nume_gestiune]
|
||
pccoloane = [nume_gestiune,cgest]
|
||
pcTitlu = Iif(Empty(tcTitlu), [Alegeti gestiunea], Alltrim(Upper(tcTitlu)))
|
||
pcTitluColoane = [Gestiune,Cgest]
|
||
|
||
pcFiltruOriginal = [inactiv = 0]
|
||
if Type('tnTipg') = 'N'
|
||
pcFiltruOriginal = pcFiltruOriginal + [ and nr_pag = ] + Alltrim(Str(tntipg))
|
||
endif
|
||
if Type('tnIdSectie') = 'N'
|
||
pcFiltruOriginal = pcFiltruOriginal + [ and id_sectie = ] + Alltrim(Str(tnIdSectie))
|
||
Endif
|
||
if Type('tnId_Util') = 'N'
|
||
pcFiltruOriginal = pcFiltruOriginal + [ and id_util = ] + Alltrim(Str(tnid_util))
|
||
Endif
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcNumeProc, llToateIreg, pcFiltruOriginal)
|
||
|
||
Return loCauta
|
||
|
||
******************************************* SFARSIT: caut_gestiune *******************************************
|
||
******************************************* INCEPUT: caut_gestiune_xml *******************************************
|
||
Function caut_gestiune_xml
|
||
Lparameters tnTip, tlToateIreg, tnPornire, tlLoud, tcListaId, tcListaDenumire
|
||
&& tnTip : 1 = toate gestiunile; 2 = gestiunile pe care are drept utilizatorul
|
||
*** tnPornire: incepe cu...,1,este...,2,nu este...,3,contine...,4,nu contine...,5,toate,6
|
||
*** tlLoud = .T. daca apare messagebox "Nu ati selectat nici o inregistare" pentru cautarea multipla. Default = .F.
|
||
*** tcListaId = parametru OUT - lista id-uri articole
|
||
*** tcListaDenumire = parametru OUT - lista denumiri articole
|
||
|
||
*!* 04.09.2009
|
||
Local lnPornire
|
||
Local lcFiltru, lcIdColumn, lcNume_Proc, lcPrimaColoana, lcTitlu, lcXMLGestiuni, lnTipReturn
|
||
Local loLista
|
||
Local lnTip, llAllInList
|
||
Local lcSelect, lcSchema, lcOrder, llAfisare, lcGroup, llModParam, lcFiltruOriginal, lcCOloana, lcTitluColoana, lnPornire
|
||
|
||
lnPornire = Iif(Empty(tnPornire), CA_PORNIRE_TOATE, tnPornire)
|
||
|
||
If Empty(tnTip) Or Type('tnTip') <> 'N'
|
||
lnTip = 1
|
||
Else
|
||
lnTip = tnTip
|
||
Endif
|
||
|
||
If lnTip = 1
|
||
lcSelect = [select distinct a.nume_gestiune,a.cgest,a.id_gestiune,a.nr_pag,a.cont from vgest_gestiuni_util a]
|
||
*!* 22.02.2010
|
||
*!* lcFiltruOriginal = []
|
||
*!* modificare ROAGEST v 2.2.4
|
||
*!* lcFiltruOriginal = SUBSTR(gcCondSucursala, 6)
|
||
lcFiltruOriginal = SUBSTR(STRTRAN(gcCondSucursala, [id_sucursala], [a.id_sucursala]), 6)
|
||
*!* modificare ROAGEST v 2.2.4 ^
|
||
*!* 22.02.2010 ^
|
||
lcFiltruOriginal = lcFiltruOriginal + [ and a.inactiv = 0 ] && modificare ROAGEST v 2.2.4
|
||
Else
|
||
lcSelect = [select distinct c.nume_gestiune,c.cgest,b.id_gestiune,c.nr_pag,c.cont ] + ;
|
||
[from gest_coresp_util_grupe a ] + ;
|
||
[left join gest_coresp_grupe_gestiuni b on a.id_grupe=b.id_grupe ] + ;
|
||
[left join nom_gestiuni c on b.id_gestiune=c.id_gestiune ]
|
||
|
||
*!* 22.02.2010
|
||
*!* lcFiltruOriginal = [a.id_util = ] + Alltrim(Str(gnIdUtil))
|
||
*!* modificare ROAGEST v 2.2.4
|
||
*!* lcFiltruOriginal = [a.id_util = ] + Alltrim(Str(gnIdUtil)) + gcCondSucursala
|
||
lcFiltruOriginal = [a.id_util = ] + Alltrim(Str(gnIdUtil)) + STRTRAN(gcCondSucursala, [id_sucursala], [c.id_sucursala])
|
||
*!* modificare ROAGEST v 2.2.4 ^
|
||
*!* 22.02.2010 ^
|
||
lcFiltruOriginal = lcFiltruOriginal + [ and c.inactiv = 0 ] && modificare ROAGEST v 2.2.4
|
||
Endif
|
||
|
||
lcFiltru = []
|
||
lcSchema = [nume_gestiune C(50),cgest C(20),id_gestiune N(5),nr_pag N(2),cont C(4)]
|
||
lcOrder = [nume_gestiune]
|
||
llAfisare = .F.
|
||
lcGroup = []
|
||
llModParam = .T.
|
||
|
||
|
||
lcCOloana = "nume_gestiune,cgest,nr_pag,cont"
|
||
lcTitluColoana = "Nume, Cgest, Nr.pag, Cont"
|
||
llAllInList = tlToateIreg
|
||
lcPrimaColoana = "nume_gestiune"
|
||
lcNume_Proc = ""
|
||
lcTitlu = "Alegeti gestiunea (mouse-click pe nume sau apasati SPACE)"
|
||
lnTipReturn = 1 && XML
|
||
lcIdColumn = "id_gestiune"
|
||
lcXMLGestiuni = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcCOloana, lcTitlu, lcTitluColoana, lcNume_Proc, llAllInList, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn) && 11.07.2007
|
||
|
||
*!* XMLTOCURSOR(lcXMLFacturi, "crsFacturi",0)
|
||
*!* 24.08.2011
|
||
loLista = XML2ListaIDDescriere(lcXMLGestiuni, "id_gestiune", "nume_gestiune", m.tlLoud)
|
||
tcListaId = loLista.ListaId
|
||
tcListaDenumire = loLista.ListaDenumire
|
||
*!* 24.08.2011
|
||
|
||
Return lcXMLGestiuni
|
||
Endfunc && caut_gestiune_xml
|
||
******************************************* SFARSIT: caut_gestiune_xml *******************************************
|
||
******************************************* INCEPUT:caut_responsabil *******************************************
|
||
Function caut_responsabil
|
||
Lparameters tlToateIreg
|
||
|
||
Local lcCont, loCauta
|
||
|
||
Store "" To loCauta
|
||
|
||
pcselect = [select id_responsabil, nume, marca, cnp, formatie, meserie FROM Vnom_responsabili ]
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [NUME, marca]
|
||
pccoloane = [nume,marca,cnp,formatie,meserie,id_responsabil]
|
||
pcTitlu = [Alegeti responsabilul]
|
||
pcTitluColoane = [Nume,Marca,CNP,formatie,meserie,Id]
|
||
pcFiltruOriginal = [inactiv = 0]
|
||
lcNumeProc = [nom_parteneri;] + Alltrim(Str(gnIdTipResponsabili)) + [,'RESPONSABIL',1,2]
|
||
llToateIreg = tlToateIreg
|
||
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcNumeProc, llToateIreg, pcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
******************************************* SFARSIT: caut_responsabil *******************************************
|
||
******************************************* INCEPUT:caut_responsabil_stoc *******************************************
|
||
Function caut_responsabil_stoc
|
||
Lparameters tlToateIreg
|
||
|
||
Local lcCont, loCauta
|
||
|
||
Store "" To loCauta
|
||
|
||
pcselect = [select distinct s.id_responsabil, p.denumire, sp.marca ] + ;
|
||
[ from stoc_obinv s left join nom_parteneri p on s.id_responsabil = p.id_part ] + ;
|
||
[ left join sal_personal sp on s.id_responsabil = sp.id_part ]
|
||
pcfiltru = [1=2]
|
||
pcschema = [id_responsabil n(10), denumire c(50), marca n(10)]
|
||
pcorder = [denumire, marca]
|
||
pccoloane = [denumire, Marca, id_responsabil]
|
||
pcTitlu = [Alegeti responsabilul]
|
||
pcTitluColoane = [Nume,Marca,Id]
|
||
pcFiltruOriginal = [s.an = ?gnAn and s.luna = ?gnLuna] + Strtran(gcCondSucursala, [id_sucursala], [s.id_sucursala])
|
||
lcNumeProc = [nom_parteneri;] + Alltrim(Str(gnIdTipResponsabili)) + [,'RESPONSABIL',1,2]
|
||
llToateIreg = tlToateIreg
|
||
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcNumeProc, llToateIreg, pcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
******************************************* SFARSIT: caut_responsabil_stoc *******************************************
|
||
******************************************* INCEPUT: caut_delegati *******************************************
|
||
Procedure caut_delegati
|
||
Lparameters tnIdPart
|
||
Local loCauta, llReturn, lcSelect, lcProcedura
|
||
Store "" To loCauta
|
||
Store .F. To llReturn
|
||
If !Empty(tnIdPart)
|
||
lcSelect = [select id_responsabil,nume,bi,cnp,eliberatde from vnom_delegati_part]
|
||
lcFiltruOrig = [id_part=] + Alltrim(Str(tnIdPart))
|
||
lcProcedura = [nom_parteneri;] + Alltrim(Str(gnIdTipDelegati)) + [,'DELEGAT',1,2,] + Alltrim(Str(tnIdPart))
|
||
Else
|
||
lcSelect = [select id_responsabil,nume,bi,cnp,eliberatde from vnom_delegati]
|
||
lcProcedura = [nom_parteneri;] + Alltrim(Str(gnIdTipDelegati)) + [,'DELEGAT',1,2]
|
||
lcFiltruOrig = []
|
||
Endif
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [2]
|
||
lccoloane = [nume,bi,cnp]
|
||
lcTitlu = [Alegeti delegatul]
|
||
lcTitluColoane = [Nume,BI/CI,CNP]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcProcedura, .F., lcFiltruOrig) && 11.07.2007
|
||
Return loCauta
|
||
Endproc
|
||
******************************************* SFARSIT: caut_delegati *******************************************
|
||
***************************************** INCEPUT: caut_delegati_hash *****************************************
|
||
Procedure caut_delegati_hash
|
||
Lparameters tnIdPart, tlAdaugaCoresp
|
||
Local loCauta, llReturn, lcSelect, lcProcedura
|
||
Store "" To loCauta
|
||
Store .F. To llReturn
|
||
If Empty(tnIdPart)
|
||
loCauta = caut_delegati()
|
||
Else
|
||
lcSelect = [select MIN(case when c.id_part = ] + Alltrim(Str(tnIdPart)) + [ then 0 ] + ;
|
||
[when b.id_tip_part = ] + Alltrim(Str(gnIdTipDelegati)) + [ then 2 ] + ;
|
||
[else 1 end) as tip,] + ;
|
||
[a.id_part as id_responsabil,a.denumire as nume,a.reg_comert as bi,a.cod_fiscal as cnp,] + ;
|
||
[a.localitate_inreg as eliberatde,a.telefon as telefon1,a.telefon2 ] + ;
|
||
[from vnom_parteneri a ] + ;
|
||
[join coresp_tip_part b on a.ID_PART = b.id_part ] + ;
|
||
[left join coresp_delegati_part c on b.id_part = c.id_delegat and c.sters = 0 ]
|
||
lcFiltruOrig = [a.inactiv = 0]
|
||
lcProcedura = [nom_parteneri;] + Alltrim(Str(gnIdTipDelegati)) + [,'DELEGAT',1,2,] + Alltrim(Str(tnIdPart))
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcGroup = [a.id_part, a.denumire, a.reg_comert, a.cod_fiscal, a.localitate_inreg, a.telefon, a.telefon2]
|
||
lcOrder = [min(case when c.id_part = ] + Alltrim(Str(tnIdPart)) + [ then 0 else 1 end),a.denumire]
|
||
lccoloane = [nume,bi,cnp]
|
||
lcTitlu = [Alegeti delegatul]
|
||
lcTitluColoane = [Nume,BI/CI,CNP]
|
||
loHash = GetHash()
|
||
With loHash
|
||
.SetValue("cSelect", lcSelect)
|
||
.SetValue("cFiltru", lcFiltru)
|
||
.SetValue("cGroup", lcGroup)
|
||
.SetValue("cOrder", lcOrder)
|
||
.SetValue("cColoana", lccoloane)
|
||
.SetValue("cTitlu", lcTitlu)
|
||
.SetValue("cTitluColoana", lcTitluColoane)
|
||
.SetValue("cFiltruOriginal", lcFiltruOrig)
|
||
.SetValue("cPrimaColoana", "nume")
|
||
.SetValue("cNumeProc", lcProcedura)
|
||
.SetValue("cGridDynamicBackColor", [IIF(TIP = 2, Rgb(180,180,180), Iif(TIP=1, RGB(225,225,225), RGB(255,255,255) ))])
|
||
.SetValue("cGridToolTip", "Parteneri colorati in gri deschis nu sunt delegati ai acestui partener." + ;
|
||
Chr(13) + Chr(10) + "Partenerii colorati in gri inchis nu sunt delegati.")
|
||
Endwith
|
||
|
||
loCauta = cauta_alfa_hash(loHash)
|
||
|
||
If tlAdaugaCoresp And !Isnull(loCauta) And Type('loCauta.id_responsabil') = 'N' And loCauta.id_responsabil <> 0 And loCauta.tip <> 0
|
||
If loCauta.tip = 1
|
||
Do ADAUGA_CORESP_DELEGAT With loCauta.id_responsabil, tnIdPart In oproceduri_parteneri.prg
|
||
Else
|
||
Do Adauga_Delegat_Partener With loCauta.id_responsabil, tnIdPart In oproceduri_parteneri.prg
|
||
Endif
|
||
Endif
|
||
Endif
|
||
Return loCauta
|
||
Endproc && caut_delegati_hash
|
||
***************************************** SFARSIT: caut_delegati_hash *****************************************
|
||
******************************************* INCEPUT: caut_grupa_articole *******************************************
|
||
Procedure caut_grupa_articole
|
||
Lparameters tlToateIreg
|
||
Local loCauta, llReturn
|
||
Store "" To loCauta
|
||
Store .F. To llReturn
|
||
pcselect = [select id_grupa,grupa from vgest_art_gr]
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [2]
|
||
pccoloane = [grupa]
|
||
pcTitlu = [Alegeti grupa de articole]
|
||
pcTitluColoane = [Grupa]
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, "", tlToateIreg) && 11.07.2007
|
||
Return loCauta
|
||
Endproc
|
||
****************************************** SFARSIT: caut_grupa_articole *******************************************
|
||
******************************************* INCEPUT: caut_grupa_articole_xml *******************************************
|
||
Procedure caut_grupa_articole_xml
|
||
Lparameters tlToateIreg
|
||
Local loCauta, llReturn
|
||
Store "" To loCauta
|
||
Store .F. To llReturn
|
||
pcselect = [select id_grupa,grupa from vgest_art_gr]
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [2]
|
||
pccoloane = [grupa]
|
||
pcTitlu = [Alegeti grupele (mouse-click pe nume sau apasati SPACE)]
|
||
pcTitluColoane = [Grupa]
|
||
|
||
lcFiltruOriginal = [2=2]
|
||
lcPrimaColoana = "grupa"
|
||
lnPornire = 5
|
||
lnTipReturn = 1 && XML
|
||
lcIdColumn = "id_grupa"
|
||
lcXMLGrupe = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, "", tlToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn)
|
||
|
||
Return lcXMLGrupe
|
||
Endproc
|
||
****************************************** SFARSIT: caut_grupa_articole_xml *******************************************
|
||
**************************************** INCEPUT: caut_subgrupa_articole ******************************************
|
||
Procedure caut_subgrupa_articole
|
||
LPARAMETERS tcFiltruOriginal, tlToateIreg, tlMultipleArticles, tnPornire, tlLoud, tcListaId, tcListaDenumire
|
||
*** tnPornire: incepe cu...,1,este...,2,nu este...,3,contine...,4,nu contine...,5,toate,6
|
||
*** tlLoud = .T. daca apare messagebox "Nu ati selectat nici o inregistare" pentru cautarea multipla. Default = .F.
|
||
*** tcListaId = parametru OUT - lista id-uri articole
|
||
*** tcListaDenumire = parametru OUT - lista denumiri articole
|
||
|
||
Local loCauta, llReturn, loLista
|
||
Local lcFiltruOriginal, lcIdColumn, lcNumeProc, lcPrimaColoana, lcTitlu, lcTitluColoane, lccoloane
|
||
Local lcfiltru, lcorder, lcschema, lcselect, llMultipleArticles, llToateIreg, lnPornire, lnTipReturn
|
||
|
||
loCauta = ""
|
||
llReturn = .F.
|
||
lcselect = [select id_subgrupa,subgrupa,grupa,indicativ from vgest_art_sbgr]
|
||
lcfiltru = [1=2]
|
||
lcschema = []
|
||
lcorder = [2]
|
||
lccoloane = [subgrupa,grupa,indicativ]
|
||
lcIdColumn = "id_subgrupa"
|
||
lcPrimaColoana = "subgrupa"
|
||
|
||
lcTitluColoane = [Subgrupa,Grupa,Indicativ]
|
||
llToateIreg = tlToateIreg
|
||
If tlMultipleArticles
|
||
lcTitlu = [Alegeti subgrupele (mouse-click pe denumire sau apasati SPACE)]
|
||
Else
|
||
lcTitlu = [Alegeti subgrupa de articole]
|
||
Endif
|
||
lcNumeProc = ""
|
||
lcFiltruOriginal = Iif(!Empty(tcFiltruOriginal), Alltrim(tcFiltruOriginal), "")
|
||
llMultipleArticles = tlMultipleArticles
|
||
llToateIreg = tlToateIreg
|
||
lnPornire = Iif(Empty(m.tnPornire), CA_PORNIRE_INCEPE, m.tnPornire)
|
||
lnTipReturn = Iif(tlMultipleArticles, 1, 0)
|
||
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn) && 11.07.2007
|
||
|
||
*!* 24.08.2011
|
||
IF m.llMultipleArticles
|
||
loLista = XML2ListaIDDescriere(loCauta, "id_subgrupa", "subgrupa", tlLoud)
|
||
tcListaId = loLista.ListaId
|
||
tcListaDenumire = loLista.ListaDenumire
|
||
ENDIF
|
||
*!* 24.08.2011
|
||
|
||
Return loCauta
|
||
Endproc
|
||
******************************************* SFARSIT: caut_delegati *******************************************
|
||
******************************************* INCEPUT:caut_grupa_gestiune *******************************************
|
||
Function caut_grupa_gestiune
|
||
Lparameters tnIdGrupa, tlToateIreg
|
||
|
||
** tnIdGrupa = arat toate grupele in afara (eventual) de grupa pe care am selectat-o in cazul alegerii grupei parinte
|
||
Local lcCont, loCauta
|
||
|
||
Store "" To loCauta
|
||
If Pcount() = 2
|
||
llToateIreg = tlToateIreg
|
||
ELSE
|
||
llToateIreg = .T.
|
||
Endif
|
||
|
||
pcselect = [select id_grupe, nume_grupa FROM vgest_nom_grupe]
|
||
pcfiltru = []
|
||
pcschema = []
|
||
pcorder = [nume_grupa]
|
||
pccoloane = [nume_grupa]
|
||
pcTitlu = [Grupa]
|
||
pcTitluColoane = [Grupa]
|
||
pcFiltruOriginal = [inactiv = 0 ] + Iif(!Empty(tnIdGrupa), [ and id_grupe <> ] + Transform(tnIdGrupa), [])
|
||
lcNumeProc = []
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcNumeProc, llToateIreg, pcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
Endfunc && caut_grupa_gestiune
|
||
******************************************* SFARSIT: caut_grupa_gestiune *******************************************
|
||
|
||
|
||
******************************************* INCEPUT:caut_valuta *******************************************
|
||
Function caut_valuta
|
||
Parameters tnPornire, tlDesktop, tlFaraMonedaNationala
|
||
|
||
Local lcCont, loCauta, lnPornire, llDesktop
|
||
lnPornire = tnPornire && 1-incepe cu...6-toate
|
||
llDesktop = tlDesktop
|
||
llFaraMonedaNationala = tlFaraMonedaNationala
|
||
Store "" To loCauta
|
||
|
||
lcSelect = [select id_valuta, nume_val, nume_val2, moneda_nationala FROM vnom_valute]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [nume_val]
|
||
lccoloane = [nume_val,nume_val2]
|
||
lcTitlu = [Alegeti valuta]
|
||
lcTitluColoane = [Valuta,Simbol]
|
||
If llFaraMonedaNationala
|
||
lcFiltruOriginal = [inactiv = 0 and moneda_nationala = 0]
|
||
Else
|
||
lcFiltruOriginal = [inactiv = 0]
|
||
Endif
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, , lnPornire, , , llDesktop) && 11.07.2007
|
||
|
||
Return loCauta
|
||
Endfunc && caut_valuta
|
||
******************************************* SFARSIT: caut_valuta *******************************************
|
||
******************************************* INCEPUT:caut_valuta_iso *******************************************
|
||
Function cauta_valuta_iso
|
||
Lparameters tnTipCautare, tcParametru
|
||
*!* tnTipCautare
|
||
*!* 1 - arata pe toate
|
||
*!* 2 - arata pe toate in afara de cele care se afla deja in nom_valute si nu sunt sterse/inactive
|
||
*!* 3 - nu arata formularul de cautare, ci cauta direct in baza de date o valuta care sa aiba iso-ul ca tcParametru
|
||
Local lcValutaIso, loCauta, lcSelect, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc, llToateIreg, lnSucces, lcCursor, lnTipCautare
|
||
Store "" To loCauta
|
||
lcSelect = [select id_valuta_iso,nume_valuta,iso_valuta from syn_vnom_valute_iso]
|
||
lcFiltru = IIF(!EMPTY(tcParametru), [iso_valuta like '] + Upper(Alltrim(tcParametru)) + [%'], [1=2])
|
||
lnTipCautare = IIF(EMPTY(tnTipCautare), 1, tnTipCautare)
|
||
If Inlist(lnTipCautare, 1, 2)
|
||
lcSchema = []
|
||
lcOrder = [iso_valuta]
|
||
lcColoane = [nume_valuta,iso_valuta]
|
||
lcTitlu = [Alegeti simbolul ISO]
|
||
lcTitluColoane = [Denumire,Simbol ISO]
|
||
If lnTipCautare = 2
|
||
lcFiltruOriginal = [id_valuta_iso not in (select id_valuta_iso from nom_valute where sters = 0 and inactiv = 0 and id_valuta_iso is not null)]
|
||
Else
|
||
lcFiltruOriginal = [2=2]
|
||
Endif
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal)
|
||
Else
|
||
If lcFiltru <> [1=2]
|
||
lcSelect = lcSelect + [ where ] + lcFiltru
|
||
lcCursor = Sys(2015)
|
||
lnSucces = goExecutor.oExecute(lcSelect, lcCursor)
|
||
If lnSucces < 0
|
||
amessagebox(goExecutor.cEroare, 64, "Eroare")
|
||
Else
|
||
If Reccount(lcCursor) = 1
|
||
Select (lcCursor)
|
||
Scatter Name loCauta
|
||
Endif
|
||
Use In (lcCursor)
|
||
Endif
|
||
Endif
|
||
Endif
|
||
Release lcValutaIso, lcSelect, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc, llToateIreg, lnSucces, lcCursor
|
||
Return IIF(TYPE('loCauta') = 'C', NULL, loCauta)
|
||
Endfunc && caut_valuta_iso
|
||
******************************************* SFARSIT: caut_valuta_iso *******************************************
|
||
******************************************* INCEPUT:caut_fdoc *******************************************
|
||
Function caut_fdoc
|
||
Parameters llToateIreg, tlNou
|
||
Local lcCont, loCauta
|
||
|
||
Store "" To loCauta
|
||
|
||
lcSelect = [select id_fdoc, fel_document, tip_doc, descriere FROM vnom_fdoc]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [fel_document]
|
||
lccoloane = [fel_document, tip_doc, descriere]
|
||
lcTitlu = [Alegeti felul documentului]
|
||
lcTitluColoane = [Fel Document, Tip, Descriere]
|
||
lcFiltruOriginal = [inactiv = 0]
|
||
If tlNou
|
||
lcNumeProc = [nom_fdoc]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
******************************************* SFARSIT: caut_fdoc *******************************************
|
||
Procedure caut_alfa_beta
|
||
Lparameters tcTabela, tcSuperCombo, tnvalueSC && tcSuperCombo = "nume_camp:tip_data;"
|
||
|
||
|
||
lcTabela = Alltrim(tcTabela)
|
||
lcSC = Alltrim(tcSuperCombo)
|
||
|
||
lnLen = Getwordcount(lcSC, ';')
|
||
|
||
Dimension taSC[lnLen, 5] &&1-camp,2-tip_data,3-nrzec,4-inputmask,5-rezervat filtru
|
||
|
||
For i = 1 To lnLen
|
||
lcSc1 = Getwordnum(lcSC, i, ';')
|
||
taSC[i, 1] = Getwordnum(lcSc1, 1, ':')
|
||
taSC[i, 2] = Getwordnum(lcSc1, 2, ':')
|
||
taSC[i, 3] = Getwordnum(lcSc1, 3, ':')
|
||
taSC[i, 4] = Getwordnum(lcSc1, 4, ':')
|
||
Endfor
|
||
|
||
Return @taSC
|
||
|
||
Endproc
|
||
|
||
*****************************************************************************
|
||
Procedure update_articole
|
||
If Used('v_articole')
|
||
Use In v_articole
|
||
Endif
|
||
lcSql = [select id_articol, codmat, denumire as nume_articol, um, cant_bax, um2,compus from vnom_articole_crm order by denumire ]
|
||
lnSucces = goExecutor.oExecute(lcSql, 'v_articole')
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare')
|
||
Endif
|
||
goExecutor.oReset()
|
||
Return lnSucces
|
||
|
||
Endproc && update_articole
|
||
*****************************************************************************
|
||
******************************************* INCEPUT:caut_sectie *******************************************
|
||
Function caut_sectie
|
||
Parameters tnPornire, tlDesktop, tlToateIreg, tlNou, tcFiltruOriginal
|
||
|
||
Local lcCont, loCauta, lnPornire, llDesktop
|
||
lnPornire = tnPornire && 1-incepe cu...6-toate
|
||
llDesktop = tlDesktop
|
||
|
||
Store "" To loCauta
|
||
|
||
lcSelect = [select id_sectie, sectie, csectie FROM vnom_sectii]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [sectie]
|
||
lccoloane = [sectie, csectie]
|
||
lcTitlu = [Alegeti sectia]
|
||
lcTitluColoane = [Sectie, Indicativ]
|
||
lcFiltruOriginal = [inactiv = 0] + gcCondSucursala + IIF(!EMPTY(tcfiltruOriginal), [ and ] + tcFiltruOriginal, [])
|
||
lcNumeProc = IIF(m.tlNou, [nom_sectii], [])
|
||
llToateIreg = m.tlToateIreg
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, , lnPornire, , , llDesktop) && 11.07.2007
|
||
|
||
Return loCauta
|
||
Endfunc && caut_sectie
|
||
******************************************* SFARSIT: caut_sectie *******************************************
|
||
|
||
******************************************* INCEPUT:caut_venchelt *******************************************
|
||
Function caut_venchelt
|
||
Parameters tnPornire, tlDesktop, tnTip, tnId, tlToateIreg, tlNou, tcFiltruOriginal
|
||
|
||
Local lcCont, loCauta, lnPornire, llDesktop
|
||
lnPornire = Iif(!Empty(tnPornire), 1, tnPornire) && 1-incepe cu...6-toate
|
||
llDesktop = Iif(!Empty(tlDesktop), tlDesktop, .F.) && formulare desktop = .T.
|
||
&& tnTip: 1 = cheltuieli, ,2 = venituri
|
||
|
||
Store "" To loCauta
|
||
lcFiltruOriginal = [inactiv = 0] + IIF(!EMPTY(m.tcFiltruOriginal), [ and ] + m.tcFiltruOriginal, [])
|
||
If !Empty(tnId)
|
||
lcFiltruOriginal = lcFiltruOriginal + [ and id_venchelt <> ] + Alltrim(Str(tnId))
|
||
Endif
|
||
If !Empty(tnTip)
|
||
lcFiltruOriginal = lcFiltruOriginal + [ and tip_venchelt = ] + Alltrim(Str(tnTip))
|
||
Endif
|
||
|
||
lcSelect = [select id_venchelt, explicatie, (case tip_venchelt when 1 then 'C' else 'V' end) as tip_venchelt FROM vnom_venchel ]
|
||
lcFiltru = [1=2]
|
||
lcSchema = [id_venchelt n(10),explicatie c(100),tip_venchelt c(1)]
|
||
lcOrder = [explicatie]
|
||
lccoloane = [explicatie,tip_venchelt]
|
||
lcTitlu = [Alegeti venitul/cheltuiala]
|
||
lcTitluColoane = [Explicatia, Tip]
|
||
lcNumeProc = IIF(m.tlNou, [nom_venchel], [])
|
||
llToateIreg = m.tlToateIreg
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, , lnPornire, , , llDesktop) && 11.07.2007
|
||
|
||
Return loCauta
|
||
Endfunc && caut_venchelt
|
||
******************************************* SFARSIT: caut_venchelt *******************************************
|
||
******************************************* INCEPUT:caut_ven *******************************************
|
||
Function caut_ven
|
||
Parameters tnPornire, tlDesktop
|
||
|
||
Local lcCont, loCauta, lnPornire, llDesktop
|
||
lnPornire = tnPornire && 1-incepe cu...6-toate
|
||
llDesktop = tlDesktop
|
||
|
||
Store "" To loCauta
|
||
|
||
lcSelect = [select id_venchelt, explicatie FROM vnom_venchel ]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [explicatie]
|
||
lccoloane = [explicatie]
|
||
lcTitlu = [Alegeti venitul]
|
||
lcTitluColoane = [Explicatia]
|
||
lcFiltruOriginal = [inactiv = 0 and tip_venchelt <> 1]
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, , lnPornire, , , llDesktop) && 11.07.2007
|
||
|
||
Return loCauta
|
||
Endfunc && caut_ven
|
||
******************************************* SFARSIT: caut_ven *******************************************
|
||
|
||
|
||
|
||
*------------------------------------------------------------
|
||
* Description: INTOARCE XML CU FACTURI ALESE DIN FACTURI EMISE IN PERIOADA
|
||
* Parameters: tcCont, tnIdPart, tdData1, tdData2
|
||
* Return: lcXMLFacturi
|
||
* Use: lcXMLFacturi = Caut_Facturi(lcCont, lnIdPart, ldData1, ldData2)
|
||
*------------------------------------------------------------
|
||
* Id Date By Description
|
||
* 1 23/06/2006 marius.mutu Initial Creation
|
||
*------------------------------------------------------------
|
||
Function caut_facturi
|
||
Lparameters tcCont, tnIdPart, tdData1, tdData2
|
||
|
||
Local loCauta, ldData1, ldData2, lnTipCont
|
||
|
||
Store Null To loCauta
|
||
ldData1 = tdData1
|
||
ldData2 = tdData2
|
||
|
||
|
||
Private pnNrLuna1, pnNrLuna2, pnIdPart, pcCont
|
||
pnNrLuna1 = Year(ldData1) * 12 + Month(ldData1)
|
||
pnNrLuna2 = Year(ldData2) * 12 + Month(ldData2)
|
||
pnIdPart = tnIdPart
|
||
pcCont = tcCont
|
||
|
||
lnTipCont = GetTipContIreg(pcCont)
|
||
|
||
lcSelect = [select i.id_ireg_part, i.an, i.luna, i.nume, i.cont, i.acont, i.id_fact, i.serie_act, i.nract, i.dataact, i.datascad, i.preccred + i.credit as totctva FROM VIREG_EMISE_IN_PERIOADA i]
|
||
lcFiltru = []
|
||
lcSchema = [id_ireg_part N(20), AN N(4), LUNA N(2), NUME C(100), CONT C(4), ACONT C(4), ID_FACT N(20), SERIE_ACT C(10), NRACT N(20), DATAACT D, DATASCAD D, TOTCTVA N(20,4)]
|
||
lcOrder = [i.dataact, i.nract]
|
||
llAfisare = .F.
|
||
lcGroup = []
|
||
llModParam = .T.
|
||
lcFiltruOriginal = [i.an * 12 + i.luna between ?pnNrLuna1 and ?pnNrLuna2 and i.id_part = ?pnIdPart AND i.cont in (SELECT x AS cont FROM table(charc2collection(?pcCont, ',')))]
|
||
|
||
lcCOloana = "nume, serie_act, nract, dataact, datascad, totctva"
|
||
lcTitluColoana = "Nume, Serie act, Numar act, Data act, Data scad, Total factura"
|
||
llAllInList = .F.
|
||
lnPornire = 6 && TOATE
|
||
lcPrimaColoana = "NUME"
|
||
lcNume_Proc = ""
|
||
lcTitlu = "Alegeti facturile (mouse-click pe nume sau apasati SPACE)"
|
||
lnTipReturn = 1 && XML
|
||
lcIdColumn = "id_ireg_part"
|
||
lcXMLFacturi = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcCOloana, lcTitlu, lcTitluColoana, lcNume_Proc, llAllInList, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn) && 11.07.2007
|
||
|
||
*!* XMLTOCURSOR(lcXMLFacturi, "crsFacturi",0)
|
||
|
||
Return lcXMLFacturi
|
||
Endfunc && caut_facturi
|
||
******************************************* SFARSIT: caut_facturi *******************************************
|
||
|
||
*------------------------------------------------------------
|
||
* caut factura in luna curenta dupa nume, numar si intorc id_fact
|
||
*------------------------------------------------------------
|
||
Function caut_factura
|
||
Lparameters tcCont, tdData1, tdData2
|
||
|
||
Local loFactura, ldData1, ldData2
|
||
|
||
loFactura = NULL
|
||
ldData1 = tdData1
|
||
ldData2 = tdData2
|
||
|
||
Private pnNrLuna1, pnNrLuna2, pcCont
|
||
pnNrLuna1 = Year(ldData1) * 12 + Month(ldData1)
|
||
pnNrLuna2 = Year(ldData2) * 12 + Month(ldData2)
|
||
pcCont = tcCont
|
||
|
||
lcSelect = [select i.id_ireg_part, i.an, i.luna, i.nume, i.cont, i.acont, i.id_fact, i.serie_act, i.nract, i.dataact, i.datascad, i.preccred + i.credit as totctva FROM VIREG_EMISE_IN_PERIOADA i]
|
||
lcFiltru = []
|
||
lcSchema = [id_ireg_part N(20), AN N(4), LUNA N(2), NUME C(100), CONT C(4), ACONT C(4), ID_FACT N(20), SERIE_ACT C(10), NRACT N(20), DATAACT D, DATASCAD D, TOTCTVA N(20,4)]
|
||
lcOrder = [i.dataact, i.nract]
|
||
llAfisare = .F.
|
||
lcGroup = []
|
||
llModParam = .T.
|
||
lcFiltruOriginal = [i.an * 12 + i.luna between ?pnNrLuna1 and ?pnNrLuna2 AND i.cont in (SELECT x AS cont FROM table(charc2collection(?pcCont, ',')))]
|
||
|
||
lcCOloana = "nume, serie_act, nract, dataact, datascad, totctva, id_fact"
|
||
lcTitluColoana = "Nume, Serie act, Numar act, Data act, Data scad, Total factura, Id Fact"
|
||
llAllInList = .F.
|
||
lnPornire = 1 && INCEPE CU
|
||
lcPrimaColoana = "NUME"
|
||
lcNume_Proc = ""
|
||
lcTitlu = "Alegeti factura"
|
||
lnTipReturn = 0 && object
|
||
lcIdColumn = "id_fact"
|
||
loFactura = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcCOloana, lcTitlu, lcTitluColoana, lcNume_Proc, llAllInList, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn) && 11.07.2007
|
||
|
||
Return loFactura
|
||
Endfunc && caut_facturi
|
||
******************************************* SFARSIT: caut_facturi *******************************************
|
||
|
||
*------------------------------------------------------------
|
||
* Description: INTOARCE TIPUL SOLDULUI CONTULUI (0 = ACTIV/DEBITOR, 1 = PASIV/CREDITOR)
|
||
* Parameters: <tcCont>
|
||
* Return: 0 (DEBITOR), 1 (CREDITOR)
|
||
* Use: lnTip = GetTipContIreg("401")
|
||
*------------------------------------------------------------
|
||
* Id Date By Description
|
||
* 1 23/06/2006 marius.mutu Initial Creation
|
||
*------------------------------------------------------------
|
||
Function GetTipContIreg
|
||
Parameters tcCont
|
||
|
||
Local lcSql, lcCursor, lnSucces, lnTip
|
||
|
||
lnTip = 0
|
||
|
||
lcSql = [select FEL_CONT from config_cont_ireg WHERE CONT = ?tcCont]
|
||
lcCursor = [crsTipContIreg]
|
||
lnSucces = goExecutor.oExecute(lcSql, lcCursor)
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare")
|
||
Else
|
||
Select crsTipContIreg
|
||
If Reccount('crsTipContIreg') > 0
|
||
Go Top
|
||
lnTip = FEL_CONT
|
||
Endif
|
||
Use In crsTipContIreg
|
||
Endif
|
||
|
||
Return lnTip
|
||
Endfunc && GetTipContIreg
|
||
|
||
|
||
*!* 04.07.2006
|
||
*!* marius.mutu
|
||
*!* adaugat cauta_utilizator si cauta_client din roaauto\programe\update_devize.prg
|
||
***********************************************************************
|
||
Function cauta_utilizator
|
||
Lparameters tnIdUtil, tcUtilizator
|
||
Local loCauta, llReturn
|
||
Store "" To loCauta
|
||
Store .F. To llReturn
|
||
pcselect = [select id_util,utilizator from syn_vutilizatori]
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
pcorder = [utilizator]
|
||
pccoloane = [Utilizator]
|
||
pcTitlu = [Alegeti utilizatorul]
|
||
pcTitluColoane = [Utilizator]
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, "") && 11.07.2007
|
||
If !Empty(loCauta.id_util)
|
||
tnIdUtil = loCauta.id_util
|
||
tcUtilizator = Alltrim(loCauta.utilizator)
|
||
llReturn = .T.
|
||
Endif
|
||
Return llReturn
|
||
Endfunc && cauta_utilizator
|
||
***********************************************************************
|
||
Function cauta_utilizator_firma
|
||
Parameters tnPornire, tlDesktop
|
||
Local lcCont, loCauta, lnPornire, llDesktop
|
||
***** 17.11.2008 *****
|
||
|
||
lnPornire = tnPornire && 1-incepe cu...6-toate
|
||
llDesktop = tlDesktop
|
||
Store "" To loCauta
|
||
|
||
lcSelect = [select distinct b.utilizator,a.id_util from syn_vdef_util_firme a ] + ;
|
||
[left join syn_vutilizatori b on a.id_util = b.id_util ]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [b.utilizator]
|
||
lccoloane = [utilizator]
|
||
lcTitlu = [Alegeti utilizatorul]
|
||
lcTitluColoane = [Utilizator]
|
||
lcFiltruOriginal = [a.id_firma = ?gnIdFirma]
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, , lnPornire, , , llDesktop) && 11.07.2007
|
||
|
||
Return loCauta
|
||
Endfunc && cauta_utilizatori_firma
|
||
***********************************************************************
|
||
Function cauta_client
|
||
Lparameters tnIdPartener, tcNume
|
||
Local loCauta, llReturn
|
||
Store "" To loCauta
|
||
Store .F. To llReturn
|
||
pcselect = [select p.id_part,p.nume,p.cod_fiscal from vcoresp_tip_part p ] + ;
|
||
[join vcoresp_tip_cont c on p.id_tip_part=c.id_tip_part]
|
||
pcFiltruOrig = [c.cont ='4111' and p.inactiv=0]
|
||
pcfiltru = [1=2]
|
||
pcschema = ['id_part n(10),nume c(100),cod_fiscal c(100)']
|
||
pcorder = [nume]
|
||
pccoloane = [nume,cod_fiscal]
|
||
pcTitlu = [Alegeti clientul]
|
||
pcTitluColoane = [Client,Cod fiscal]
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, "", .F., pcFiltruOrig) && 11.07.2007
|
||
If !Empty(loCauta.id_part)
|
||
tnIdPartener = loCauta.id_part
|
||
tcNume = Alltrim(loCauta.nume)
|
||
llReturn = .T.
|
||
Endif
|
||
Return llReturn
|
||
Endfunc
|
||
***********************************************************************
|
||
|
||
|
||
*------------------------------------------------------------
|
||
* Description: INTOARCE PRIMUL ID_TIP_PART PENTRU UN CONT
|
||
* Parameters: <tcCont>
|
||
* Return: ID_TIP_PART
|
||
* Use: lnIdTipPart = GetContIdTipPart("4111")
|
||
*------------------------------------------------------------
|
||
* Id Date By Description
|
||
* 1 14/07/2006 marius.mutu Initial Creation
|
||
*------------------------------------------------------------
|
||
Function GetContIdTipPart
|
||
Parameters tcCont
|
||
|
||
Local lcSql, lcCursor, lnSucces, lnIdTipPart
|
||
|
||
lnIdTipPart = 0
|
||
|
||
lcSql = [select id_tip_part from coresp_tip_cont WHERE CONT = ?tcCont]
|
||
lcCursor = [crsTipPartTemp]
|
||
lnSucces = goExecutor.oExecute(lcSql, lcCursor)
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare")
|
||
Else
|
||
If Reccount('crsTipPartTemp') > 0
|
||
Select crsTipPartTemp
|
||
Go Top
|
||
lnIdTipPart = id_tip_part
|
||
Endif
|
||
Use In crsTipPartTemp
|
||
Endif
|
||
|
||
Return lnIdTipPart
|
||
Endfunc && GetContIdTipPart
|
||
|
||
|
||
|
||
*** modificare serii numere - 10.2007
|
||
*!* Procedure getNirPlajaCMP
|
||
*!* Lparameters tnPlaja1, tnPlaja2
|
||
|
||
*!* && PLAJE NIR-URI CMP
|
||
*!* lnTip = 4 && NIR PT CMP
|
||
*!* lnSerie = 2
|
||
*!* lnId_entitate = 0
|
||
*!* tnPlaja1 = 0
|
||
*!* tnPlaja2 = 0
|
||
*!* lcSelect = [select id_plaja,pl_inf,pl_sup from vplaje_numere where ] +;
|
||
*!* [inactiv = 0 and tip = ] + Alltrim(Str(lnTip)) + [ and serie = ] + ;
|
||
*!* ALLTRIM(Str(lnSerie)) + [ and id_entitate = ] + Alltrim(Str(lnId_entitate))
|
||
*!* lcCursor = [crsplaja]
|
||
*!* lnSucces = goExecutor.oExecute(lcSelect,lcCursor)
|
||
*!* If lnSucces < 0
|
||
*!* AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
|
||
*!* Else
|
||
*!* Select crsPlaja
|
||
*!* tnPlaja1= pl_inf
|
||
*!* tnPlaja2 = pl_sup
|
||
*!* Use In crsPlaja
|
||
*!* Endif
|
||
|
||
*!* &&(NNIR NOT BETWEEN ] + TRANSFORM(lnNnir1) + [ AND ] + TRANSFORM(lnNnir2) + [)]
|
||
*!* && getNirPlajaCMP(@lnPlaja1, @lnPlaja2)
|
||
|
||
*!* Endproc &&getNirPlajaCMP
|
||
*** modificare serii numere - 10.2007 ^
|
||
*******************************************************************************************************************
|
||
Function GetTipGestiune
|
||
Lparameters tnIdGestiune
|
||
Local lnTipGestiune, lcCursor
|
||
lnTipGestiune = -1
|
||
lcCursor = [crsTipGest]
|
||
If Used(lcCursor)
|
||
Use In (lcCursor)
|
||
Endif
|
||
|
||
lcSql = [select nr_pag from ] + gcS + [.vnom_gestiuni where id_gestiune = ] + Alltrim(Str(tnIdGestiune))
|
||
lnSucces = goExecutor.oExecute(lcSql, lcCursor)
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare, 16, "Eroare")
|
||
Else
|
||
If Reccount(lcCursor) > 0
|
||
Select (lcCursor)
|
||
lnTipGestiune = nr_pag
|
||
Endif
|
||
Endif
|
||
|
||
If Used(lcCursor)
|
||
Use In (lcCursor)
|
||
Endif
|
||
Return lnTipGestiune
|
||
Endfunc && GetTipGestiune
|
||
*******************************************************************************************************************
|
||
|
||
* PROCEDURE caut_gruputilizatori
|
||
* Date : 18.09.2006
|
||
* author : marius.mutu
|
||
******************************************* INCEPUT:caut_gruputilizatori *******************************************
|
||
Procedure caut_gruputilizatori(tlToateIreg, tlNou)
|
||
|
||
Local loCauta, lcFiltruOriginal
|
||
Local lcTitlu, lcFiltru, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
|
||
Store Null To loCauta
|
||
|
||
lcSelect = [select id_grup, id_tata, denumire_grup, inactiv, nume_parinte from vgrupuri_utilizatori]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [denumire_grup]
|
||
lccoloane = [denumire_grup,id_grup]
|
||
lcFiltruOriginal = [inactiv = 0]
|
||
|
||
|
||
lcTitlu = "Alegeti grupul"
|
||
If tlNou
|
||
lcNumeProc = [nom_gruputilizatori]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Grup, Id]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
|
||
Endproc
|
||
******************************************* SFARSIT: caut_gruputilizatori *******************************************
|
||
|
||
|
||
|
||
* PROCEDURE caut_sucursala
|
||
* Date : 18.09.2006
|
||
* author : marius.mutu
|
||
******************************************* INCEPUT:caut_sucursala *******************************************
|
||
Procedure caut_sucursala(tlToateIreg, tlNou, tlBlank)
|
||
&& tlBlank = .T. => arat o inregistrare goala (daca vreau sa aleg sucursala NULL pentru mama in initializari balante)
|
||
|
||
Local loCauta, lcFiltruOriginal
|
||
Local lcTitlu, lcFiltru, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
|
||
Store Null To loCauta
|
||
|
||
lcSelect = [select id_sucursala, sucursala, inactiv from vnom_sucursale]
|
||
If tlBlank
|
||
lcSelect = [select cast (null as number(5)) as id_sucursala, rpad(' ',100, ' ') as sucursala, 0 as inactiv from dual ] + ;
|
||
[ UNION ] + ;
|
||
lcSelect
|
||
Endif
|
||
lcFiltru = []
|
||
lcSchema = []
|
||
lcOrder = [sucursala]
|
||
lccoloane = [sucursala,id_sucursala]
|
||
If glEMama && daca este mama - arat doar sucursalele ei
|
||
lcFiltruOriginal = [inactiv = 0 and id_mama = ?gnIdFirma]
|
||
Else && daca este sucursala nu arat nimic
|
||
lcFiltruOriginal = [1=2]
|
||
Endif
|
||
|
||
|
||
lcTitlu = "Alegeti sucursala"
|
||
If tlNou
|
||
lcNumeProc = [nom_sucursale]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Sucursala, Id]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
|
||
Endproc
|
||
******************************************* SFARSIT: caut_gruputilizatori *******************************************
|
||
******************************************* INCEPUT: caut_masina_gs *******************************************
|
||
Function caut_masina_gs
|
||
Lparameters tlToateIreg, tlMaiMulteMasini
|
||
Store "" To loCauta
|
||
|
||
lcFiltru = [1=2]
|
||
lcSchema = [id_masina n(20),nrinmat c(35),marca_masina c(24),model_masina c(20)]
|
||
lcOrder = [nrinmat]
|
||
lccoloane = [nrinmat,marca_masina,model_masina]
|
||
lcTitlu = [Alegeti ma<6D>ina]
|
||
lcTitluColoane = [Nr.inmatriculare,Marca,Model]
|
||
llMaiMulteMasini = tlMaiMulteMasini
|
||
lcSelect = [select id_masina,nrinmat,marca_masina,model_masina from vnom_masini where 2=2]
|
||
lcFiltruOriginal = [2=2]
|
||
lcNumeProc = [nom_masini]
|
||
llToateIreg = tlToateIreg
|
||
lcPrimaColoana = [nrinmat]
|
||
lnPornire = 1
|
||
lnTipReturn = Iif(tlMaiMulteMasini, 1, 0)
|
||
lcIdColumn = "id_masina"
|
||
loCauta = cauta_alfa_gs(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn)
|
||
|
||
Return loCauta
|
||
Endfunc && caut_masina_gs
|
||
******************************************* SFARSIT: caut_masina_gs *******************************************
|
||
|
||
* primeste un hash cu parametri: cTitlu, cText, cTip, cEnums
|
||
* afiseaza un textbox/editbox/combobox initializat cu cText si intoarce textul modificat
|
||
* daca tipul este COMBO - trebuie si parametrul cEnums (sir separat prin virgula cu valorile de afisat in combo)
|
||
* lcText = GetText(GetHash("cTitlu=>titlul meu??cText=>text initial??cTip=>TEXT/COMBO/EDIT??cEnums=>DA,NU"))
|
||
Procedure GetText
|
||
Parameters toHash
|
||
|
||
Local lcText, lcTitlu, lcTip
|
||
Private pcText
|
||
|
||
lcTitlu = toHash.GetValue("cTitlu")
|
||
pcText = toHash.GetValue("cText")
|
||
lcTip = Upper(Alltrim(toHash.GetValue("cTip"))) && text/edit/combo
|
||
lcEnums = toHash.GetValue("cEnums")
|
||
|
||
If Empty(lcTitlu)
|
||
lcTitlu = "Valoare"
|
||
Endif
|
||
If Empty(lcTip)
|
||
lcTip = "TEXT"
|
||
Endif
|
||
lcText = pcText
|
||
|
||
Do Case
|
||
Case lcTip = 'TEXT'
|
||
loText = Newobject("frm_textbox", "cautare.vcx")
|
||
loText.ct_text.text_simplu1.ControlSource = "pcText"
|
||
loText.ct_text.lb_simplu1.Caption = lcTitlu
|
||
|
||
Case lcTip = 'COMBO'
|
||
loText = Newobject("frm_combobox", "cautare.vcx")
|
||
With loText.ct_text._cbbase1
|
||
.ControlSource = "pcText"
|
||
.RowSourceType = 1 && value
|
||
.RowSource = lcEnums && sir valori
|
||
.ColumnCount = 1 && sir valori
|
||
Endwith
|
||
loText.ct_text._lbbase1.Caption = lcTitlu
|
||
|
||
Otherwise && EDIT
|
||
loText = Newobject("frm_editbox", "cautare.vcx")
|
||
loText.ct_text._edbase1.ControlSource = "pcText"
|
||
loText.ct_text._lbbase1.Caption = lcTitlu
|
||
|
||
Endcase
|
||
|
||
loText.lb_titlu_alb_b121.Caption = lcTitlu
|
||
|
||
loText.Show(1)
|
||
If gnButon = 1
|
||
lcText = pcText
|
||
Endif
|
||
|
||
Return lcText
|
||
Endproc && GetText
|
||
|
||
******************************************* INCEPUT:caut_politici_preturi *******************************************
|
||
Function caut_politici_preturi
|
||
Local lcCont, loCauta
|
||
|
||
Store "" To loCauta
|
||
|
||
*!* 06.07.2011
|
||
*!* lcSelect = [select NUME_LISTA_PRETURI,DATAI,DATAS,ID_POL FROM vcrm_politici_preturi ]
|
||
lcSelect = [select nume_lista_preturi, datai, datas, id_pol from crm_vpolpretcurutil]
|
||
*!* 06.07.2011 ^
|
||
lcFiltru = [1=2]
|
||
lcSchema = [NUME_LISTA_PRETURI C(100),DATAI D,DATAS D,ID_POL N(10)]
|
||
lcOrder = [nume_lista_preturi]
|
||
lccoloane = [NUME_LISTA_PRETURI,DATAI,DATAS,ID_POL]
|
||
lcTitlu = [Alegeti lista de pre_uri]
|
||
lcTitluColoane = [LISTA PRETURI,DATA INCEPUT,DATA SFARSIT,ID]
|
||
*!* 06.07.2011
|
||
*!* lcFiltruOriginal = [inactiv = 0]
|
||
lcFiltruOriginal = [id_util = ?gnIdUtil] + m.gcCondSucursala
|
||
*!* 06.07.2011 ^
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
******************************************* SFARSIT:caut_politici_preturi *******************************************
|
||
******************************************* INCEPUT:caut_imprimanta *******************************************
|
||
Function caut_imprimanta
|
||
Local loCauta
|
||
Store [] To loCauta
|
||
|
||
Create Cursor crsprinters (imprimanta C(100), port C(20))
|
||
Aprinters(laPrinters)
|
||
Insert Into crsprinters From Array laPrinters
|
||
lcSelect = [select imprimanta,port from crsprinters]
|
||
lcFiltru = [1=2]
|
||
lcSchema = [imprimanta c(100),port c(20)]
|
||
lcOrder = [imprimanta]
|
||
lccoloane = [imprimanta,port]
|
||
lcTitlu = [Alegeti imprimanta]
|
||
lcTitluColoane = [Imprimanta,Port de conectare]
|
||
lcFiltruOriginal = []
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
|
||
loCauta = cauta_alfa_vfp(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal) && 11.07.2007
|
||
|
||
Release laPrinters
|
||
Return loCauta
|
||
Endproc &&caut_imprimanta
|
||
******************************************* SFARSIT:caut_imprimanta *******************************************
|
||
************************************** INCEPUT:caut_politici_curente_util *************************************
|
||
Procedure caut_politici_curente_util
|
||
Local loCauta, llReturn
|
||
Store "" To loCauta
|
||
Store .F. To llReturn
|
||
lcSelect = [select id_pol,nume,datai,datas from crm_vpolpretcurutil]
|
||
lcFiltru = [1=2]
|
||
lcSchema = [id_pol n(5), nume c(100), datai d,datas d]
|
||
lcOrder = [2]
|
||
lccoloane = [nume,datai,datas]
|
||
lcTitlu = [Alegeti politica de pre_uri]
|
||
lcTitluColoane = [Nume,Data inceput,Data sfarsit]
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
lcFiltruOriginal = [id_util = ?gnIdUtil]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal) && 11.07.2007
|
||
Return loCauta
|
||
Endproc && caut_politici_curente_util
|
||
************************************** SFARSIT: caut_politici_curente_util **************************************
|
||
***************************************** INCEPUT:caut_explicatie_tva *******************************************
|
||
Function caut_explicatie_tva
|
||
Parameters tnIdJtva, tnPornire, tlDesktop, tlTipEx
|
||
*!* tlTipEx = 0 - toate
|
||
*!* = 1 - doar TVA exigibil din JC
|
||
*!* = 2 - doar TVA neexigibil din JC
|
||
*!* = 3 - doar TVA exigibil din JV
|
||
*!* = 4 - doar TVA neexigibil din JV
|
||
*!* = 5 - doar TVA exigibil ( JC + JV )
|
||
*!* = 6 - doar TVA neexigibil ( JC + JV )
|
||
|
||
Local lcCont, loCauta, lnPornire, llDesktop
|
||
lnPornire = tnPornire && 1-incepe cu...6-toate
|
||
llDesktop = tlDesktop
|
||
lnIdJtva = Iif(Empty(tnIdJtva), -1, tnIdJtva)
|
||
|
||
Store "" To loCauta
|
||
|
||
lcSelect = [select id_jtva_coloana, denumire, cota_tva FROM vjtva_coloane]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lccoloane = [denumire,cota_tva]
|
||
lcTitlu = [Alegeti explica_ia TVA]
|
||
lcTitluColoane = [Explicatie TVA,Cota TVA]
|
||
*!* modificare ROACONT v 2.4.4
|
||
do case
|
||
case empty(tlTipEx)
|
||
lcFiltruOriginal = [id_jtva_coloana > 0]
|
||
case tlTipEx = 1
|
||
lcFiltruOriginal = [id_jtva_coloana in (select id_tva from vjtva_coloane where ] + ;
|
||
[jc = 1 and id_jtva_neex is not null)]
|
||
case tlTipEx = 2
|
||
lcFiltruOriginal = [id_jtva_coloana in (select id_tva from vjtva_coloane where ] + ;
|
||
[jc = 1 and id_jtva_ex is not null)]
|
||
case tlTipEx = 3
|
||
lcFiltruOriginal = [id_jtva_coloana in (select id_tva from vjtva_coloane where ] + ;
|
||
[jv = 1 and id_jtva_neex is not null)]
|
||
case tlTipEx = 4
|
||
lcFiltruOriginal = [id_jtva_coloana in (select id_tva from vjtva_coloane where ] + ;
|
||
[jv = 1 and id_jtva_ex is not null)]
|
||
case tlTipEx = 5
|
||
lcFiltruOriginal = [id_jtva_coloana in (select id_tva from vjtva_coloane where ] + ;
|
||
[id_jtva_neex is not null)]
|
||
Otherwise
|
||
lcFiltruOriginal = [id_jtva_coloana in (select id_tva from vjtva_coloane where ] + ;
|
||
[id_jtva_ex is not null)]
|
||
Endcase
|
||
*!* *!* If tnIdJtva > 0
|
||
*!* *!* lcFiltruOriginal = [jc * 4 + jv * 2 + decode(afisat,0,0,1) in ] + ;
|
||
*!* *!* [(select jc * 4 + jv * 2 + decode(afisat,0,0,1) from ] + gcS + [.vjtva_coloane ] + ;
|
||
*!* *!* [where id_jtva_coloana = ] + Alltrim(Str(lnIdJtva)) + [) and id_jtva_coloana > 0]
|
||
*!* *!* ELSE
|
||
*!* lcFiltruOriginal = [id_jtva_coloana > 0]
|
||
*!* *!* Endif
|
||
*!* modificare ROACONT v 2.4.4 ^
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, , lnPornire, , , llDesktop) && 11.07.2007
|
||
|
||
Return loCauta
|
||
Endfunc && caut_explicatie_tva
|
||
***************************************** SFARSIT: caut_explicatie_tva *******************************************
|
||
|
||
* PROCEDURE caut_formatie
|
||
* Date : 26.03.2007
|
||
* author : paula.mutu
|
||
******************************************* INCEPUT: caut_formatie *******************************************
|
||
Procedure caut_formatie
|
||
Lparameters tlToateIreg, tlNou, tlTranse
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg
|
||
lcSelect = [select * from sal_vnom_formatii]
|
||
lcFiltruInitial = [inactiv = 0]
|
||
lcFiltru = [1=1]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lcColoane = [denumire,sectie] + IIF(tlTranse, [,transa], [])
|
||
lcTitlu = [Alegeti forma_ia]
|
||
If tlNou
|
||
lcNumeProc = [sal_nom_formatii] && [nom_formatie]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Formatie,Sectia] + IIF(tlTranse, [,Transa], [])
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruInitial) && 11.07.2007
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endproc && caut_formatie
|
||
***************************************** SFARSIT: caut_formatie *******************************************
|
||
******************************************* INCEPUT: caut_gestiune_dest *******************************************
|
||
Function caut_gestiune_dest
|
||
Lparameters tnIdGestiune, tcTip, tnTip
|
||
*!* tnIdGestiune - daca e diferit de zero atunci exclude din rezultate gestiunea cu id-ul respectiv
|
||
*!* tcTip - lista cu tipurile de gestiuni
|
||
*!* tnTip - daca e 1 atunci arata doar gestiunile, fara conturi si analitice
|
||
Local lcTip, lnTip
|
||
Store "" To loCauta, lcTip
|
||
If Empty(tcTip)
|
||
lcTip = [2,4,5,6,7]
|
||
Else
|
||
lcTip = tcTip
|
||
Endif
|
||
If Empty(tnTip)
|
||
lnTip = 0
|
||
Else
|
||
lnTip = tnTip
|
||
Endif
|
||
pcFiltruOriginal = [a.id_util=?gnIdUtil and a.sters=0 and b.sters=0 and c.sters=0 and c.nr_pag in (] + Alltrim(lcTip) + [)]
|
||
If !Empty(Nvl(tnIdGestiune, 0))
|
||
pcFiltruOriginal = pcFiltruOriginal + [ and b.id_gestiune!=] + Alltrim(Str(tnIdGestiune))
|
||
Endif
|
||
|
||
If lnTip = 1
|
||
pcselect = [select distinct c.nume_gestiune,c.cgest,b.id_gestiune ] + ;
|
||
[from gest_coresp_util_grupe a ] + ;
|
||
[left join gest_coresp_grupe_gestiuni b on a.id_grupe=b.id_grupe ] + ;
|
||
[left join nom_gestiuni c on b.id_gestiune=c.id_gestiune ]
|
||
pcorder = [nume_gestiune]
|
||
pccoloane = [nume_gestiune,cgest]
|
||
pcTitlu = [Alegeti gestiunea destina_ie]
|
||
pcTitluColoane = [Gestiune,Cgest]
|
||
Else
|
||
pcselect = [select distinct c.nume_gestiune,c.cgest,b.id_gestiune,d.id_tipgest,] + ;
|
||
[NVL(c.cont, d.cont) as cont,NVL(c.acont, p.acont) as acont ] + ;
|
||
[from gest_coresp_util_grupe a ] + ;
|
||
[left join gest_coresp_grupe_gestiuni b on a.id_grupe=b.id_grupe ] + ;
|
||
[left join nom_gestiuni c on b.id_gestiune=c.id_gestiune ] + ;
|
||
[left join coresp_cont_tipgest d on c.nr_pag=d.id_tipgest ] + ;
|
||
[left join vplcont_analitic p on NVL(c.cont, d.cont) = p.cont and p.an = ?gnAn and p.inactiv = 0 ] + ;
|
||
[left join vplcont_sintetic s on NVL(c.cont, d.cont) = s.cont and s.an = ?gnAn and s.inactiv = 0 ]
|
||
*!* modificare ROAFACTURARE v 2.0.19 ^
|
||
pcorder = [nume_gestiune,cgest,cont,acont]
|
||
pccoloane = [nume_gestiune,cgest,cont,acont]
|
||
pcTitlu = [Alegeti gestiunea <20>i contul de transfer]
|
||
pcTitluColoane = [Gestiune,Cgest,Cont,Analitic]
|
||
*!* pcFiltruOriginal = pcFiltruOriginal + [ and s.an=?gnAn and s.inactiv = 0 and NVL(p.an,?gnAn)=?gnAn and NVL(p.inactiv,0) = 0] && modificare v 2.2.25
|
||
Endif
|
||
pcfiltru = [1=2]
|
||
pcschema = []
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcNumeProc, llToateIreg, pcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
Endfunc
|
||
******************************************* SFARSIT: caut_gestiune_dest *******************************************
|
||
******************************************* INCEPUT:caut_mediu_transmisie *******************************************
|
||
Function caut_mediu_transmisie
|
||
Parameters llToateIreg, tlNou
|
||
Local lcCont, loCauta
|
||
|
||
Store "" To loCauta
|
||
|
||
lcSelect = [select id_mediu, mediu_transmisie FROM vnom_medii_transmisie]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [mediu_transmisie]
|
||
lccoloane = [mediu_transmisie]
|
||
lcTitlu = [Alegeti mediul de transmisie]
|
||
lcTitluColoane = [Mediu transmisie]
|
||
lcFiltruOriginal = []
|
||
If tlNou
|
||
lcNumeProc = [nom_medii_transmisie]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal) && 11.07.2007
|
||
|
||
Return loCauta
|
||
******************************************* SFARSIT: caut_mediu_transmisie *******************************************
|
||
******************************************* INCEPUT:caut_contract *******************************************
|
||
Function caut_contract
|
||
Lparameters tnIdTipCtr, tnIdPart, tlToate
|
||
*!* 0 - toate
|
||
*!* -1 - clienti
|
||
*!* -2 - furnizori
|
||
Local loCauta, lcFiltru
|
||
lcFiltru = []
|
||
Store "" To loCauta
|
||
If !Empty(tnIdPart)
|
||
lcFiltru = [ and id_part = ] + Alltrim(Str(tnIdPart))
|
||
Endif
|
||
If !Empty(tnIdTipCtr)
|
||
lcFiltru = lcFiltru + [ and id_tip_ctr = ] + Alltrim(Str(tnIdTipCtr))
|
||
Endif
|
||
If tlToate
|
||
pcselect = [select id_ctr,id_part,denumire,data,numar_aa,numar,data_inceput,data_sfarsit,id_responsabil,observatii,] + ;
|
||
[responsabil,contract,descriere from ] + gcS + [.vcontracte_toate ]
|
||
pcorder = [data,numar_aa]
|
||
pccoloane = [numar_aa,data,denumire,data_inceput,data_sfarsit,responsabil]
|
||
Else
|
||
pcselect = [select id_ctr,id_part,denumire,data,numar,data_inceput,data_sfarsit,id_responsabil,observatii,] + ;
|
||
[responsabil,contract,descriere from ] + gcS + [.vcontracte ]
|
||
pcorder = [data,numar]
|
||
pccoloane = [numar,data,denumire,data_inceput,data_sfarsit,responsabil]
|
||
Endif
|
||
pcfiltru = [1=2]
|
||
pcschema = ['']
|
||
pcTitlu = [Alegeti contractul]
|
||
pcTitluColoane = [Numar,Data,Denumire,Data inceput,Data sfarsit,Responsabil]
|
||
pcFiltruOriginal = Substr(lcFiltru, 5)
|
||
lcNumeProc = [contracte]
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitluColoane, lcNumeProc, llToateIreg, pcFiltruOriginal)
|
||
|
||
Return loCauta
|
||
******************************************* SFARSIT: caut_contract *******************************************
|
||
******************************************* INCEPUT: caut_raport *******************************************
|
||
Procedure caut_raport
|
||
Lparameters tnIdFormular, tlDrepturi
|
||
Local loCauta, lcSelect
|
||
loCauta = NULL
|
||
|
||
IF m.tlDrepturi
|
||
lcSelect = [select r.id_raport,Substr(denumire,1,254) as denumire,titlu, dataora, utilizator from vrapoarte r join rapoarte_utilizatori ru on r.id_raport = ru.id_raport]
|
||
ELSE
|
||
lcSelect = [select r.id_raport,Substr(denumire,1,254) as denumire,titlu, dataora, utilizator from vrapoarte r]
|
||
ENDIF
|
||
|
||
loHash = GetHash()
|
||
loHash.SetValue("cSelect", lcSelect)
|
||
loHash.SetValue("cFiltru", [1=2])
|
||
loHash.SetValue("cSchema", [id_raport n(10),denumire c(254),titlu c(150),dataora t,utilizator c(100)])
|
||
loHash.SetValue("cOrder", [denumire])
|
||
loHash.SetValue("cColoana", [denumire,titlu,utilizator,dataora])
|
||
loHash.SetValue("cTitlu", [Alegeti raportul])
|
||
loHash.SetValue("cTitluColoana", [Denumire,Titlu,Utilizator,Dataora])
|
||
loHash.SetValue("lToateIreg", .F.)
|
||
loHash.SetValue("cFiltruOriginal", [r.id_formular_raport = ] + Alltrim(Str(m.tnIdFormular)) + IIF(m.tlDrepturi, [ and ru.id_utilizator = ] + ALLTRIM(STR(m.gnIdUtil)), []))
|
||
loHash.SetValue("cIdColumn", "id_raport")
|
||
loHash.SetValue('lModParam', .T.)
|
||
|
||
loCauta = cauta_alfa_hash(loHash)
|
||
Return loCauta
|
||
Endproc && caut_raport
|
||
******************************************* SFARSIT: caut_raport *******************************************
|
||
************************************************************************************************************
|
||
Procedure caut_sectie_util
|
||
Lparameters tnIdUtil, tnIdSucursala
|
||
Local loCauta, lcFiltru
|
||
Store "" To loCauta
|
||
If Empty(tnIdSucursala)
|
||
lcFiltruOriginal = [ and id_sectie in (select a1.id_sectie from asociere_parteneri_sectii a1 ] + ;
|
||
[left join nom_sectii a2 on a1.id_sectie = a2.id_sectie ] + ;
|
||
[where a1.id_tip = 2 and a2.sters = 0 and a1.id_part in ] + ;
|
||
[(select id_partener from vutilizatori_rol_intern where id_util = ] + Alltrim(Str(tnIdUtil)) + [))]
|
||
Else
|
||
lcFiltruOriginal = [ and id_sectie in (select a1.id_sectie from asociere_parteneri_sectii a1 ] + ;
|
||
[left join nom_sectii a2 on a1.id_sectie = a2.id_sectie ] + ;
|
||
[where a1.id_tip = 2 and a2.sters = 0 and a1.id_part in ] + ;
|
||
[(select id_partener from vutilizatori_rol_intern where id_util = ] + Alltrim(Str(tnIdUtil)) + [) ] + ;
|
||
[and a2.id_sucursala = ] + Alltrim(Str(tnIdSucursala)) + [)]
|
||
Endif
|
||
lcFiltruOriginal = [inactiv = 0] + lcFiltruOriginal
|
||
lcSelect = [select id_sectie, sectie, csectie from ] + gcS + [.vnom_sectii ]
|
||
lcOrder = [sectie]
|
||
lccoloane = [sectie,csectie]
|
||
lcFiltru = [1=2]
|
||
lcSchema = ['id_sectie n(10),sectie c(254),csectie c(50)']
|
||
lcTitlu = [Alegeti sec_ia]
|
||
lcTitluColoane = [Sectie, Indicativ]
|
||
llToateIreg = .T.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, [], llToateIreg, lcFiltruOriginal)
|
||
Return loCauta
|
||
Endproc
|
||
************************************************************************************************************
|
||
Procedure caut_lucrare_sectie
|
||
Lparameters tnIdUtil, tnIdSectie, tnIdSucursala
|
||
Local loCauta, lcFiltru
|
||
Store "" To loCauta
|
||
If !Empty(tnIdSectie)
|
||
lcFiltruOriginal = [ and id_sectie = ] + Alltrim(Str(tnIdSectie))
|
||
Else
|
||
If Empty(tnIdSucursala)
|
||
lcFiltruOriginal = [ and id_sectie in (select a1.id_sectie from asociere_parteneri_sectii a1 ] + ;
|
||
[left join nom_sectii a2 on a1.id_sectie = a2.id_sectie ] + ;
|
||
[where a1.id_tip = 2 and a2.sters = 0 and a1.id_part in ] + ;
|
||
[(select id_partener from vutilizatori_rol_intern where id_util = ] + Alltrim(Str(tnIdUtil)) + [))]
|
||
Else
|
||
lcFiltruOriginal = [ and id_sectie in (select a1.id_sectie from asociere_parteneri_sectii a1 ] + ;
|
||
[left join nom_sectii a2 on a1.id_sectie = a2.id_sectie ] + ;
|
||
[where a1.id_tip = 2 and a2.sters = 0 and a1.id_part in ] + ;
|
||
[(select id_partener from vutilizatori_rol_intern where id_util = ] + Alltrim(Str(tnIdUtil)) + [) ] + ;
|
||
[and a2.id_sucursala = ] + Alltrim(Str(tnIdSucursala)) + [)]
|
||
Endif
|
||
Endif
|
||
lcFiltruOriginal = [inactiv = 0] + lcFiltruOriginal
|
||
lcSelect = [select id_lucrare,nrord from ] + gcS + [.vlucrari_sectii ]
|
||
lcOrder = [nrord]
|
||
lccoloane = [nrord]
|
||
lcFiltru = [1=2]
|
||
lcSchema = ['id_lucrare n(10),nrord c(200)']
|
||
lcTitlu = [Alegeti lucrarea]
|
||
lcTitluColoane = [Lucrare]
|
||
llToateIreg = .T.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, [], llToateIreg, lcFiltruOriginal)
|
||
Return loCauta
|
||
Endproc
|
||
************************************************************************************************************
|
||
Procedure caut_sucursala_sectii
|
||
Lparameters tnIdUtil
|
||
Local loCauta, lcFiltru
|
||
Store "" To loCauta
|
||
lcFiltruOriginal = [inactiv = 0 and id_sucursala in (select id_sucursala from nom_sectii where id_sectie in (] + ;
|
||
[select id_sectie from asociere_parteneri_sectii where id_tip = 2 and id_part in ] + ;
|
||
[(select id_partener from vutilizatori_rol_intern where id_util = ] + Alltrim(Str(tnIdUtil)) + [)) and sters = 0)]
|
||
lcSelect = [select id_sucursala,sucursala from ] + gcS + [.vnom_sucursale ]
|
||
lcOrder = [sucursala]
|
||
lccoloane = [sucursala]
|
||
lcFiltru = [1=2]
|
||
lcSchema = ['id_sucursala n(10),sucursala c(200)']
|
||
lcTitlu = [Alegeti sucursala]
|
||
lcTitluColoane = [Sucursale]
|
||
llToateIreg = .T.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, [], llToateIreg, lcFiltruOriginal)
|
||
Return loCauta
|
||
Endproc
|
||
************************************************************************************************************
|
||
*!* 11.11.2009
|
||
Procedure caut_tipuri_imobilizare
|
||
Local loHash, loCauta
|
||
loHash = GetHash()
|
||
With loHash
|
||
.SetValue("cSelect", [select id_tip_imobilizare, denumire from imob_tipuri_imobilizare])
|
||
*!* .SetValue("cFiltru", "sters = 0 and inactiv = 0")
|
||
.SetValue("cOrder", "id_tip_imobilizare")
|
||
.SetValue("cColoana", "denumire, id_tip_imobilizare")
|
||
.SetValue("cTitlu", "Tipuri imobilizari")
|
||
.SetValue("cTitluColoana", "Denumire,Id")
|
||
.SetValue("cFiltruOriginal", "sters = 0 and inactiv = 0")
|
||
|
||
.SetValue("cPrimaColoana", "denumire")
|
||
*!* .SetValue("cNumeProc", lcNumeProcedura)
|
||
.SetValue("nPornire", 6) && TOATE
|
||
|
||
Endwith
|
||
|
||
loCauta = cauta_alfa_hash(loHash)
|
||
Return loCauta
|
||
Endproc && caut_tipuri_imobilizare
|
||
*!* 11.11.2009 ^
|
||
************************************************************************************************************
|
||
Function caut_cass
|
||
Lparameters tlNou
|
||
Local loHash, loCauta
|
||
loHash = GetHash()
|
||
With loHash
|
||
.SetValue("cSelect", [select numecasa,judet,id_caseasig,indicativ from sal_vcaseasig])
|
||
.SetValue("cOrder", "numecasa,judet")
|
||
.SetValue("cColoana", "numecasa,judet")
|
||
.SetValue("cTitlu", "Alegeti casa de sanatate")
|
||
.SetValue("cTitluColoana", "Casa asigurari,Judet")
|
||
.SetValue("cFiltruOriginal", "2=2")
|
||
If tlNou
|
||
.SetValue("cNumeProc", "sal_caseasig")
|
||
Endif
|
||
Endwith
|
||
loCauta = cauta_alfa_hash(loHash)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
************************************************************************************************************
|
||
Function caut_salariat
|
||
Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select nume,prenume,marca,id_stat,id_salariat from sal_vnom_pers ]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [nume,prenume]
|
||
lcColoane = [nume,prenume,marca,id_stat,id_salariat]
|
||
lcTitlu = [Angaja_i]
|
||
lcTitluColoane = [Nume,Prenume,Marca]
|
||
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane,,,,[nume,prenume,marca])
|
||
*!*
|
||
*!* tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana, ;
|
||
*!* tcNume_Proc,tl_AllInList,tcFiltruOriginal,tcPrimaColoana,
|
||
|
||
|
||
Return IIF(gnbuton = 2, Null, locauta)
|
||
Endfunc
|
||
************************************************************************************************************
|
||
Function caut_salariat_spec
|
||
Lparameters tnTip, tlToti
|
||
Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
If tlToti
|
||
lcSelect = [select distinct id_part,nume,prenume,codpers from spec_vvenituri_tot]
|
||
Else
|
||
lcSelect = [select id_venit,codpers,nume,prenume,judet,sector,localitate,] + ;
|
||
[strada,numar,bloc,scara,etaj,apart,codpostal,id_colaborator,id_part from spec_vvenituri]
|
||
Endif
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [nume,prenume]
|
||
lcColoane = [nume,prenume,codpers]
|
||
lcTitluColoane = [Nume,Prenume,CNP]
|
||
If tnTip = 0
|
||
lcTitlu = [Alegeti persoana]
|
||
locauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane)
|
||
Return Iif(gnbuton = 2, Null, locauta)
|
||
Else
|
||
lcTitlu = [Alegeti persoanele (mouse-click pe nume sau apasati SPACE)]
|
||
lnTipReturn = 1 && XML
|
||
lcPrimaColoana = "nume"
|
||
lcIdColumn = "id_venit"
|
||
lnPornire = 1
|
||
lcXMLParteneri = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, [], .F., [2=2], lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn)
|
||
Return lcXMLParteneri
|
||
Endif
|
||
Endfunc
|
||
************************************************************************************************************
|
||
FUNCTION caut_tip_cm
|
||
Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcFiltruOriginal
|
||
lcSelect = [select * from ] + gcS + [.sal_vnom_cm]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [ordine,cod_cm,conc_med]
|
||
lcColoane = [cod_cm,conc_med]
|
||
lcTitlu = [Cod CM,Concediu]
|
||
lcTitluColoane = [Cod CM,Concediu]
|
||
lcFiltruOriginal = [sters = 0 ]
|
||
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, [], .F., lcFiltruOriginal )&&30iul2007
|
||
Return IIF(gnbuton = 2, Null, locauta)
|
||
Endfunc
|
||
************************************************************************************************************
|
||
FUNCTION caut_loc_prescriere
|
||
Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcFiltruOriginal
|
||
lcSelect = [select * from sal_loc_prescriere]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [cod_pres]
|
||
lcColoane = [locPrescriere]
|
||
lcTitlu = [Loc Prescriere]
|
||
lcTitluColoane = [Loc Prescriere]
|
||
lcFiltruOriginal = [sters = 0 ]
|
||
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, [], .F., lcFiltruOriginal )&&30iul2007
|
||
Return IIF(gnbuton = 2, Null, locauta)
|
||
endfunc
|
||
************************************************************************************************************
|
||
FUNCTION caut_tip_spor
|
||
Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcFiltruOriginal
|
||
lcSelect = [select id_tip_spor,nume_tip_spor,cod_categorie from syn_sal_nom_tip_spor]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [cod_categorie desc,id_tip_spor]
|
||
lcColoane = [nume_tip_spor]
|
||
lcTitlu = [Tip sporuri]
|
||
lcTitluColoane = [Tip spor]
|
||
lcFiltruOriginal = [NVL(data_inactiv,to_date('20991231','YYYYMMDD')) > to_date('] + ALLTRIM(STR(gnAn)) + ALLTRIM(STR(gnLuna)) + [','YYYYMM')]
|
||
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, [], .F., lcFiltruOriginal )&&30iul2007
|
||
Return IIF(gnbuton = 2, Null, locauta)
|
||
endfunc
|
||
***********************************************************************************************************
|
||
Function caut_tara
|
||
Lparameters tnIdCetatenie
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from syn_nom_tari]
|
||
lcFiltruInitial = [sters = 0]
|
||
If !Empty(tnIdCetatenie)
|
||
lcFiltruInitial = lcFiltruInitial + [ and id_cetatenie = ] + Alltrim(Str(tnIdCetatenie))
|
||
Endif
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [tara]
|
||
lcColoane = [tara,prescurtare]
|
||
lcTitlu = [Na_ionalitate]
|
||
lcTitluColoane = [Tara,Abreviere]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
Function caut_judet
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from syn_vnom_judete]
|
||
lcFiltruInitial = [inactiv=0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [judet,indicativ]
|
||
lcColoane = [judet,indicativ]
|
||
lcTitlu = [Jude_]
|
||
lcTitluColoane = [Judet,Indicativ]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
Function caut_localitate
|
||
Lparameters tnIdJudet, tnIdTara
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from syn_vnom_localitati]
|
||
lcFiltruInitial = Iif(!Empty(Nvl(tnIdJudet, 0)), [id_judet = ] + Alltrim(Str(tnIdJudet)), IIF(!EMPTY(NVL(tnIdTara, 0)), [id_tara = ] + ALLTRIM(STR(tnIdTara)), [2=2]))
|
||
lcFiltru = [inactiv=0]
|
||
lcSchema = []
|
||
lcOrder = [localitate]
|
||
lcColoane = [localitate,siruta,judet,tara]
|
||
lcTitlu = [Localita_i]
|
||
lcTitluColoane = [Localitate,Siruta,Judet,Tara]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, [nom_localitati], , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
Function caut_tipautorizatie
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select id_tipautorizatie,denumire from syn_sal_nom_tipautorizatie]
|
||
lcFiltruInitial = [sters=0 and inactiv = 0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = [id_tipautorizatie n(10),denumire c(250)]
|
||
lcOrder = [denumire]
|
||
lcColoane = [denumire]
|
||
lcTitlu = [Tipuri de autoriza_ie]
|
||
lcTitluColoane = [Tip autorizatie]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
Function caut_cetatenie
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from syn_nom_cetatenii]
|
||
lcFiltruInitial = [sters=0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lcColoane = [denumire]
|
||
lcTitlu = [Ceta_enie]
|
||
lcTitluColoane = [Cetatenie]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
Function caut_tipact
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from ] + gcS + [.sal_nom_tip_acte]
|
||
lcFiltruInitial = [sters=0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lcColoane = [denumire]
|
||
lcTitlu = [Tip act identitate]
|
||
lcTitluColoane = [Act]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
Function caut_tipcontract
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from ] + gcS + [.sal_vnom_tipctr]
|
||
lcFiltruInitial = [sters=0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [tip_contract]
|
||
lcColoane = [tip_contract]
|
||
lcTitlu = [Tip Contract]
|
||
lcTitluColoane = [Tip Contract]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
Function caut_meserie
|
||
LPARAMETERS tnTip
|
||
*!* 1 = meseria ; 2 = profesia
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from ] + gcS + [.sal_nom_mes]
|
||
lcFiltruInitial = [sters=0 and inactiv = 0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [meserie]
|
||
If tnTip = 1
|
||
lcColoane = [meserie,cod_meserie]
|
||
lcTitlu = [Meserii]
|
||
lcTitluColoane = [Meserie,Cod]
|
||
Else
|
||
lcColoane = [meserie]
|
||
lcTitlu = [Profesii]
|
||
lcTitluColoane = [Profesie]
|
||
Endif
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, 'sal_nom_mes', , lcFiltruInitial,[meserie,cod_meserie])
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
FUNCTION caut_grupamunca
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from ] + gcS + [.sal_coef_cas]
|
||
lcFiltruInitial = [sters=0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [dengrupa]
|
||
lcColoane = [dengrupa]
|
||
lcTitlu = [Grupa de munca]
|
||
lcTitluColoane = [Denumire]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
ENDFUNC
|
||
***********************************************************************************************************
|
||
Function caut_clasasal
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from ] + gcS + [.sal_vnom_clasesal]
|
||
lcFiltruInitial = [sters=0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [cod]
|
||
lcColoane = [cod,tarifar]
|
||
lcTitlu = [Clase salarizare]
|
||
lcTitluColoane = [Cod,Tarifar]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
Function caut_bancasal
|
||
Lparameters tlNou
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc
|
||
lcSelect = [select id_banca,denumire from ] + gcS + [.sal_nom_banci]
|
||
lcFiltruInitial = [sters=0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lcColoane = [denumire]
|
||
lcTitlu = [Banca]
|
||
lcTitluColoane = [Banca]
|
||
If tlNou
|
||
lcNumeProc = [sal_nom_banci]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
Function caut_contract_activ
|
||
Lparameters tnIdTipCtr, tnIdPart, tdActivLaData
|
||
*!* 0 - toate
|
||
*!* -1 - clienti
|
||
*!* -2 - furnizori
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, lcPrimaColoana
|
||
Store "" To loCauta
|
||
lcSelect = [select id_ctr,id_part,denumire,data,numar,data_inceput,data_sfarsit,id_responsabil,observatii,] + ;
|
||
[responsabil,contract,descriere from ] + gcS + [.vcontracte ]
|
||
lcFiltru = [1=2]
|
||
lcSchema = ['']
|
||
lcOrder = [data,numar]
|
||
lcColoane = [numar,data,denumire,data_inceput,data_sfarsit,responsabil]
|
||
lcTitlu = [Alegeti contractul]
|
||
lcTitluColoane = [Numar,Data,Denumire,Data inceput,Data sfarsit,Responsabil]
|
||
lcFiltruInitial = []
|
||
If !Empty(tnIdPart)
|
||
lcFiltruInitial = [ and id_part = ] + Alltrim(Str(tnIdPart))
|
||
Endif
|
||
If !Empty(tdActivLaData)
|
||
lcFiltruInitial = lcFiltruInitial + [ and NVL(data_sfarsit,to_date('] + DTOC(tdActivLaData, 1) + [','YYYYMMDD')) >= to_date('] + DTOC(tdActivLaData, 1) + [','YYYYMMDD')]
|
||
Else
|
||
lcFiltruInitial = lcFiltruInitial + [ and data_sfarsit is null]
|
||
Endif
|
||
lcFiltruInitial = [incetat = 0] + gcCondSucursala + lcFiltruInitial
|
||
lcNumeProc = [contracte]
|
||
lcPrimaColoana = [numar,denumire]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, , lcFiltruInitial, lcPrimaColoana)
|
||
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
FUNCTION caut_sporuri
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from ] + gcS + [.sal_vnom_sporuri]
|
||
lcFiltruInitial = [sters=0 and inactiv = 0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [nume_spor]
|
||
lcColoane = [nume_spor,nume_tip_spor]
|
||
lcTitlu = [Sporuri]
|
||
lcTitluColoane = [Nume spor,Tip spor]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
ENDFUNC
|
||
***********************************************************************************************************
|
||
Function caut_formatii_xml
|
||
Lparameters tlToateIreg, tlNou
|
||
Local loCauta, lcFiltruOriginal
|
||
Local lcTitlu, lcFiltru, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
|
||
Store "" To loCauta
|
||
lcSelect = [select * from sal_vnom_formatii]
|
||
lcFiltru = [1=1]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lccoloane = [denumire,sectie,semnatura,directie,transa,id_formatia]
|
||
lcFiltruOriginal = [inactiv = 0]
|
||
lcTitlu = [Alegeti forma_ia (mouse-click pe nume sau apasati SPACE)]
|
||
If tlNou
|
||
lcNumeProc = [sal_nom_formatii]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Formatia,Sectie,Semnatura,Directie,Transa,Id_formatia]
|
||
lnTipReturn = 1 && XML
|
||
lcPrimaColoana = "denumire"
|
||
lcIdColumn = "id_formatia"
|
||
lnPornire = 1
|
||
lcXMLFormatii = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn)
|
||
Return lcXMLFormatii
|
||
Endfunc && caut_formatii_xml
|
||
***********************************************************************************************************
|
||
Procedure caut_transa
|
||
Lparameters tlToateIreg, tlNou
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc
|
||
lcSelect = [select * from sal_vnom_transe]
|
||
lcFiltruInitial = [inactiv = 0]
|
||
lcFiltru = [1=1]
|
||
lcSchema = []
|
||
lcOrder = [transa]
|
||
lcColoane = [transa]
|
||
lcTitlu = [Alegeti tran<61>a]
|
||
If tlNou
|
||
lcNumeProc = [sal_nom_transe]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Transa]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruInitial) && 11.07.2007
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endproc && caut_transa
|
||
***********************************************************************************************************
|
||
Procedure caut_partener_adresa
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg
|
||
lcSelect = [select id_part, nume, prenume, cod_fiscal, reg_comert, eliberatde, dataeliberat, judet, id_judet,] + ;
|
||
[ localitate, id_loc, strada, numar, bloc, scara, etaj, apart, cont_banca, banca from vnom_parteneri]
|
||
lcFiltruInitial = [inactiv = 0 and tip_persoana = 2]
|
||
lcFiltru = [1=1]
|
||
lcSchema = []
|
||
lcOrder = [nume,prenume,cod_fiscal]
|
||
lcColoane = [nume,prenume,cod_fiscal]
|
||
lcTitlu = [Alegeti persoana]
|
||
lcNumeProc = []
|
||
lcTitluColoane = [Nume,Prenume,CNP]
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
endproc
|
||
***********************************************************************************************************
|
||
Procedure cauta_facturaTVAEx
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc
|
||
lcCursor = [crsfacturiTvaEx]
|
||
lcSql = [{call pack_contab.cauta_facturaTVAEx(?gnLuna,?gnAn)}]
|
||
if goExecutor.oExecuta(lcSql, lcCursor)
|
||
lcSelect = [select id_part,denumire,cod_fiscal,serie_act,nract,dataact,id_fact,tip from ] + lcCursor
|
||
lcFiltru = [1=2]
|
||
lcSchema = [id_part n(10),denumire c(100),cod_fiscal c(20),serie_act c(20),nract N(20),dataact d,id_fact n(20),tip c(30)]
|
||
lcOrder = [denumire]
|
||
lccoloane = [denumire,cod_fiscal,serie_act,nract,dataact,tip]
|
||
lcTitlu = [Alegeti factura]
|
||
lcTitluColoane = [Denumire,Cod fiscal,Serie,Nr.act,Data act,Tip]
|
||
lcFiltruOriginal = []
|
||
lcNumeProc = []
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa_vfp(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal)
|
||
Use In (lcCursor)
|
||
else
|
||
gnButon = 2
|
||
Endif
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
endproc
|
||
***********************************************************************************************************
|
||
Function cauta_tehnician_deviz
|
||
Lparameters tlInactivi
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg
|
||
lcSelect = [select id_mecanic,denumire as nume,sectie from devize_vtehnicieni]
|
||
lcFiltruInitial = Iif(!Empty(tlInactivi), [2=2], [inactiv = 0])
|
||
lcFiltru = [1=1]
|
||
lcSchema = []
|
||
lcOrder = [decode(id_mecanic,1,0,1),denumire]
|
||
lcColoane = [nume,sectie]
|
||
lcTitlu = [Alegeti tehnicianul]
|
||
lcNumeProc = []
|
||
lcTitluColoane = [Nume,Sectie]
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endfunc
|
||
***********************************************************************************************************
|
||
|
||
|
||
******************************************* INCEPUT: caut_adresa *******************************************
|
||
Function caut_adresa
|
||
Lparameters tnIdPartener
|
||
Local lcColoane, lcFiltru, lcFiltruInitial, lcNumeProc, lcOrder, lcSchema, lcSelect, lcTitlu
|
||
Local lcTitluColoane, llToateIreg, loCauta
|
||
loCauta = NULL
|
||
PRIVATE pnIdPartener
|
||
pnIdPartener = tnIdPartener
|
||
|
||
|
||
lcSelect = [select id_adresa, id_part, denumire_adresa, adresa, principala from vadrese_parteneri]
|
||
lcFiltruInitial = [id_part = ?pnIdPartener]
|
||
lcFiltru = [2=2]
|
||
lcSchema = [id_adresa n(20), id_part n(20), denumire_adresa c(100), adresa c(250), principala n(1)]
|
||
lcOrder = [principala desc, denumire_adresa]
|
||
lcColoane = [adresa, denumire_adresa, principala]
|
||
lcTitlu = [Alegeti adresa]
|
||
lcNumeProc = []
|
||
lcTitluColoane = [Adresa,Denumire,Principala]
|
||
llToateIreg = .F.
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
|
||
Endfunc && caut_adresa
|
||
******************************************* SFARSIT: caut_adresa *******************************************
|
||
* PROCEDURE caut_formatie_sal_salspec
|
||
* Date : 06.04.2016
|
||
* author : liana.neagu
|
||
******************************************* INCEPUT: caut_formatie_sal_salspec *******************************************
|
||
Procedure caut_formatie_sal_salspec
|
||
Lparameters tlToateIreg, tlNou, tlTranse
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg
|
||
lcSelect = [select id_formatia,id_sectie,id_transa,denumire,sectie,transa,inactiv,1 as dinSalarii from sal_vnom_formatii ]+;
|
||
[ union ]+;
|
||
[ select id_formatia,id_sectie,0 as id_transa,formatia as denumire, sectie,'' as transa,inactiv, 0 as dinSalarii from spec_vnom_formatii]
|
||
lcFiltruInitial = [inactiv = 0]
|
||
lcFiltru = [1=1]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lcColoane = [denumire,sectie] + IIF(tlTranse, [,transa], [])
|
||
lcTitlu = [Alegeti forma_ia]
|
||
If tlNou
|
||
lcNumeProc = [sal_nom_formatii] && [nom_formatie]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Formatie,Sectia] + IIF(tlTranse, [,Transa], [])
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruInitial) && 11.07.2007
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endproc && caut_formatie
|
||
***************************************** SFARSIT: caut_formatie *******************************************
|
||
Function caut_apatrid
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from syn_nom_tipapatrid]
|
||
lcFiltruInitial = [sters=0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [id_tipapatrid]
|
||
lcColoane = [denumire]
|
||
lcTitlu = [Apatrid]
|
||
lcTitluColoane = [Apatrid]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
ENDFUNC
|
||
***********************************************************************************************************
|
||
FUNCTION caut_scutireimpozit
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select * from ] + gcS + [.SAL_NOM_SCUTIRIIMP]
|
||
lcFiltruInitial = [sters=0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [tip_scutire]
|
||
lcColoane = [scutireimpozit]
|
||
lcTitlu = [Impozitare]
|
||
lcTitluColoane = [Denumire]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
ENDFUNC
|
||
|
||
***********************************************************************************************************
|
||
Function caut_client_contract_activ
|
||
Lparameters tcCond, tnIdPart, tnIdCtr
|
||
*** tnIdCtr: daca dau id_ctr direct (facturile de penalitati) selectez numai acest contractul indiferent de iscontract_valid()
|
||
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, lcPrimaColoana
|
||
Local lcFiltruContract, lcFiltruPartener, lcFiltruContractActiv, lcFiltruConditie, lcAnLuna, lcSql, lcFiltruTipPart
|
||
PRIVATE pnIdTip, pcSir_Id_tip_part
|
||
pnIdTip = -1 && CLIENTI
|
||
pcSir_Id_tip_part = ''
|
||
|
||
loCauta = NULL
|
||
lcFiltruContract = ''
|
||
lcFiltruPartener = ''
|
||
lcFiltruContractActiv = ''
|
||
lcFiltruConditie = ''
|
||
lcFiltruTipPart = ''
|
||
|
||
If Type('tnIdCtr') = 'N' And !Empty(m.tnIdCtr)
|
||
lcFiltruContract = [ and (c.id_ctr = ] + Alltrim(Str(m.tnIdCtr)) + [)]
|
||
ENDIF
|
||
If Type('tnIdPart') = 'N' And !Empty(m.tnIdPart)
|
||
lcFiltruPartener = [ and p.id_part = ] + Alltrim(Str(m.tnIdPart))
|
||
Endif
|
||
|
||
lcSql = [begin pack_def.get_conturi_tip_part(?pnIdTip, ?@pcSir_Id_tip_part); end;]
|
||
llSucces = goExecutor.oExecuta(m.lcSql)
|
||
|
||
If llSucces AND !Empty(NVL(m.pcSir_Id_tip_part,''))
|
||
lcFiltruTipPart = [ and p.id_part in (select distinct id_part from coresp_tip_part where id_tip_part in (] + m.pcSir_Id_tip_part + [))]
|
||
ENDIF
|
||
|
||
lcAnLuna = Alltrim(Str(m.gnAn)) + Padl(m.gnLuna, 2, '0')
|
||
lcFiltruContractActiv = [ and ] + Alltrim(Str(m.gnAn * 12 + m.gnLuna)) + [ between extract(year from data_inceput) * 12 + extract(month from data_inceput) and ] + ;
|
||
[extract(year from nvl(data_sfarsit, to_date('] + m.lcAnLuna + [', 'yyyymm'))) * 12 + extract(month from nvl(data_sfarsit, to_date('] + m.lcAnLuna + [', 'yyyymm')))]
|
||
|
||
lcFiltruConditie = Iif(!Empty(m.tcCond), [ and (] + m.tcCond + [)], [])
|
||
|
||
TEXT TO lcSelect TEXTMERGE NOSHOW
|
||
select id_ctr, id_part, denumire, cod_fiscal, data, numar, data_inceput, data_sfarsit, nr_zile_scadenta, tip_curs from
|
||
(select CAST (null as Number(10)) as id_ctr, id_part, denumire, cod_fiscal, CAST(null as date) as data, CAST(null as Varchar2(100)) as numar, CAST(null as date) as data_inceput, CAST(null as date) as data_sfarsit, CAST(null as number(5)) as nr_zile_scadenta, CAST(null as number(1)) as tip_curs from nom_parteneri p
|
||
WHERE STERS = 0 AND INACTIV = 0 <<m.lcFiltruPartener>> <<m.lcFiltruTipPart>>
|
||
union
|
||
select c.id_ctr, c.id_part, p.denumire, p.cod_fiscal, c.data, c.numar, c.data_inceput, c.data_sfarsit, c.scadenta_incasare as nr_zile_scadenta, c.tip_curs from contracte c JOIN nom_parteneri p ON c.id_part = p.id_part
|
||
where c.sters = 0 and c.inactiv = 0 and p.sters = 0 and p.inactiv = 0 <<m.gcCondSucursala>> <<m.lcFiltruPartener>> <<m.lcFiltruTipPart>> <<m.lcFiltruContract>> <<m.lcFiltruContractActiv>> <<m.lcFiltruConditie>>)
|
||
ENDTEXT
|
||
|
||
lcFiltru = [1=2]
|
||
lcSchema = [id_ctr I, id_part I, denumire C(100), cod_fiscal C(50), data D, numar C(100), data_inceput D,data_sfarsit D, nr_zile_scadenta N(10), tip_curs N(10)]
|
||
lcOrder = [denumire, data_inceput]
|
||
lcColoane = [denumire,cod_fiscal,numar,data,data_inceput,data_sfarsit, id_part, id_ctr]
|
||
lcTitlu = [Alegeti contractul]
|
||
lcTitluColoane = [Denumire,Cod fiscal,Contract,Data,Data inceput,Data sfarsit,IdPart,IdCtr]
|
||
lcFiltruInitial = []
|
||
|
||
lcNumeProc = []
|
||
lcPrimaColoana = [denumire,numar]
|
||
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, , lcFiltruInitial, lcPrimaColoana)
|
||
|
||
Return loCauta
|
||
ENDFUNC
|
||
***********************************************************************************************************
|
||
Function caut_meserii_xml
|
||
Lparameters tlToateIreg, tlNou
|
||
Local loCauta, lcFiltruOriginal
|
||
Local lcTitlu, lcFiltru, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
|
||
Store "" To loCauta
|
||
lcSelect = [select meserie,cod_meserie,id_meseria from sal_vnom_mes]
|
||
lcFiltru = [1=1]
|
||
lcSchema = []
|
||
lcOrder = [meserie]
|
||
lccoloane = [meserie,cod_meserie,id_meseria]
|
||
lcFiltruOriginal = [inactiv = 0]
|
||
lcTitlu = [Alegeti meseriile (mouse-click pe nume sau apasati SPACE)]
|
||
If tlNou
|
||
lcNumeProc = [nom_meserii]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Meserie,Cod_meserie,Id_meseria]
|
||
lnTipReturn = 1 && XML
|
||
lcPrimaColoana = "meserie"
|
||
lcIdColumn = "id_meseria"
|
||
lnPornire = 1
|
||
lcXMLFormatii = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn)
|
||
Return lcXMLFormatii
|
||
Endfunc && caut_formatii_xml
|
||
***********************************************************************************************************
|
||
******************************************* INCEPUT: caut_formatie *******************************************
|
||
Procedure caut_locmunca
|
||
Lparameters tlToateIreg, tlNou, tlTranse,tcLocate
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg,lcLocate
|
||
lcSelect = [select * from sal_vnom_locmunca ]
|
||
lcFiltruInitial = [inactiv = 0 and sters = 0]
|
||
lcFiltru = [1=1]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lcColoane = [denumire,sectie] + IIF(tlTranse, [,transa], [])
|
||
lcTitlu = [Alegeti locul de munca]
|
||
If tlNou
|
||
lcNumeProc = [sal_nom_locmunca] && [nom_formatie]
|
||
Else
|
||
lcNumeProc = []
|
||
ENDIF
|
||
IF EMPTY(tcLocate)
|
||
lcLocate = []
|
||
ELSE
|
||
lcLocate = tcLocate
|
||
ENDIF
|
||
lcTitluColoane = [Loc munca,Sectia] + IIF(tlTranse, [,Activitate], [])
|
||
*!* loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruInitial) && 11.07.2007
|
||
|
||
loCauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lcColoane,lcTitlu,lcTitluColoane,lcNumeProc,tlToateIreg,lcFiltruInitial,,,,,,,,,,,,,lcLocate) && 19 mai 2021
|
||
*!* loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, 'sal_nom_mes', , lcFiltruInitial,[meserie,cod_meserie])
|
||
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
Endproc && caut_formatie
|
||
***************************************** SFARSIT: caut_formatie *******************************************
|
||
|
||
***********************************************************************************************************
|
||
Function caut_locmunca_xml
|
||
Lparameters tlToateIreg, tlNou
|
||
Local loCauta, lcFiltruOriginal
|
||
Local lcTitlu, lcFiltru, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
|
||
Store "" To loCauta
|
||
lcSelect = [select * from sal_vnom_locmunca ]
|
||
lcFiltru = [1=1]
|
||
lcSchema = []
|
||
lcOrder = [denumire]
|
||
lccoloane = [denumire,sectie,semnatura,directie,transa,id_locmunca]
|
||
lcFiltruOriginal = [inactiv = 0]
|
||
lcTitlu = [Alegeti forma_ia (mouse-click pe nume sau apasati SPACE)]
|
||
If tlNou
|
||
lcNumeProc = [sal_nom_formatii]
|
||
Else
|
||
lcNumeProc = []
|
||
Endif
|
||
lcTitluColoane = [Loc Munca,Sectie,Semnatura,Directie,Activitate,Id_locmunca]
|
||
lnTipReturn = 1 && XML
|
||
lcPrimaColoana = "denumire"
|
||
lcIdColumn = "id_locmunca"
|
||
lnPornire = 1
|
||
lcXMLFormatii = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn)
|
||
Return lcXMLFormatii
|
||
Endfunc && caut_formatii_xml
|
||
*-------------------------------------
|
||
Function caut_tipsal
|
||
Local lcSelect, lcFiltruInitial, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane
|
||
lcSelect = [select id_tippontaj,(case when nume_tip = 'Z' and id_tippontaj = -100 then 'L' else 'O' end) as nume_tip, inactiv,sters from ] + gcS + [.sal_vnom_pont]
|
||
lcFiltruInitial = [sters=0]
|
||
lcFiltru = [2=2]
|
||
lcSchema = []
|
||
lcOrder = [nume_tip]
|
||
lcColoane = [nume_tip]
|
||
lcTitlu = [Tip Salariu]
|
||
lcTitluColoane = [Tip Salariu]
|
||
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, , , lcFiltruInitial)
|
||
Return Iif(gnButon = 2, Null, loCauta)
|
||
ENDFUNC
|
||
|
||
*------------------------------------------------------------
|
||
* caut imobilizare si intorc obiect din imob_vsituatie_lunara
|
||
*------------------------------------------------------------
|
||
Function caut_imobilizare
|
||
Lparameters tnTip
|
||
* tnTip: 1 = corporale, 2 = necorporale, 3 = in curs
|
||
|
||
PRIVATE pdDataI
|
||
Local lcColoana, lcFiltru, lcFiltruOriginal, lcGroup, lcIdColumn, lcNume_Proc, lcOrder
|
||
Local lcPrimaColoana, lcSchema, lcSelect, lcTitlu, lcTitluColoana, llAfisare, llAllInList
|
||
Local llModParam, llSucces, lnPornire, lnTipReturn, loRec
|
||
|
||
pdDataI = Date(gnAn, gnLuna, 1)
|
||
llSucces = goExecutor.oExecuta('begin pack_imob.setlunacurenta(?pdDataI); end;')
|
||
|
||
lcSelect = [SELECT * FROM imob_vsituatie_lunara]
|
||
lcFiltru = [1=2]
|
||
lcSchema = []
|
||
lcOrder = [nr_inventar, denumire,data_pif]
|
||
llAfisare = .F.
|
||
lcGroup = []
|
||
llModParam = .T.
|
||
lcFiltruOriginal = [id_tip_imobilizare = ] + Alltrim(Str(m.tnTip)) + [ AND IESIT_DIN_GEST = 0 ] + m.gcCondSucursala
|
||
|
||
lcColoana = "nr_inventar, denumire, data_pif"
|
||
lcTitluColoana = "Numar inventar, Denumire, Data PIF"
|
||
llAllInList = .F.
|
||
lnPornire = 1 && INCEPE CU
|
||
lcPrimaColoana = "nr_inventar"
|
||
lcNume_Proc = ""
|
||
lcTitlu = "Alegeti imobilizarea"
|
||
lnTipReturn = 0 && object
|
||
lcIdColumn = "id_mf"
|
||
loRec = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcCOloana, lcTitlu, lcTitluColoana, lcNume_Proc, llAllInList, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn, lcIdColumn)
|
||
|
||
Return loRec
|
||
Endfunc && caut_imobilizare
|
||
******************************************* SFARSIT: caut_imobilizare *******************************************
|
||
|
||
FUNCTION GetImobilizareById
|
||
Lparameters tnTip, tnIdMf, tlBlank, tcAlias
|
||
* tnTip: 1 = corporale, 2 = necorporale, 3 = in curs
|
||
* tnIdMf: imob_nom_mf.id_mf. Daca tlBlank = .T., nu este nevoie de tnIdMf
|
||
* tlBlank: .T. = intoarce un obiect cu inregistrare goala tip imobilizare
|
||
* tcAlias: completat = lasa deschis cursorul tcAlias cu imobilizarile, altfel il inchide
|
||
|
||
PRIVATE pnIdMf, pdDataI
|
||
Local lcSql, llSucces, loImob, lcAlias
|
||
|
||
loImob = NULL
|
||
lcAlias = IIF(!EMPTY(m.tcAlias), m.tcAlias, SYS(2015))
|
||
pnIdMf = m.tnIdMf
|
||
|
||
pdDataI = Date(gnAn, gnLuna, 1)
|
||
llSucces = goExecutor.oExecuta('begin pack_imob.setlunacurenta(?pdDataI); end;')
|
||
IF m.llSucces
|
||
IF m.tnTip = 3 && in curs
|
||
lcSql = [SELECT * FROM imob_vlista_curs where ] + IIF(m.tlBlank, [1=2], [id_mf=?pnIdMf])
|
||
ELSE
|
||
lcSql = [SELECT * FROM imob_vsituatie_lunara where ] + IIF(m.tlBlank, [1=2], [id_mf=?pnIdMf])
|
||
ENDIF
|
||
llSucces = goExecutor.oExecuta(m.lcSql, m.lcAlias)
|
||
IF m.llSucces
|
||
SELECT (m.lcAlias)
|
||
GO TOP
|
||
SCATTER NAME loImob MEMO
|
||
ENDIF
|
||
|
||
IF EMPTY(m.tcAlias)
|
||
USE IN (SELECT(m.lcAlias))
|
||
ENDIF
|
||
|
||
ENDIF
|
||
|
||
Return loImob
|
||
Endfunc && GetImobilizareById |