romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r17952

Browse Source
This commit is contained in:
Marius Mutu
2026-08-03 02:50:05 +03:00
parent e4f8736543
commit 71f661092d
3 changed files with 88 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
programe/ocautare.prg
View File

@@ -4015,7 +4015,7 @@ ENDFUNC
***********************************************************************************************************
Function caut_client_contract_activ
Lparameters tcCond, tnIdPart, tnIdCtr
Lparameters tcCond, tnIdPart, tnIdCtr, tlVerificaANAF, tdDataDoc
*** 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
@@ -4071,8 +4071,25 @@ select c.id_ctr, c.id_part, p.denumire, p.cod_fiscal, c.data, c.numar, c.data_in
lcNumeProc = []
lcPrimaColoana = [denumire,numar]
Local lnNivelANAF
Private poVerifAlegere, poANAFInlocuire
poVerifAlegere = .Null.
poANAFInlocuire = .Null.
If m.tlVerificaANAF
lnNivelANAF = ANAF_NivelVerificare()
If m.lnNivelANAF > 0
poVerifAlegere = Createobject('anaf_verif_cautare')
poVerifAlegere.dDataDoc = ANAF_CaData(m.tdDataDoc)
poVerifAlegere.nNivel = m.lnNivelANAF
Endif
Endif
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcTitluColoane, lcNumeProc, , lcFiltruInitial, lcPrimaColoana)
If Type('gnbuton') = 'N' And gnbuton = 1
AplicaInlocuirePartenerANAF(loCauta, poANAFInlocuire, pcSir_Id_tip_part)
Endif
Return loCauta
ENDFUNC
***********************************************************************************************************