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

sync SVN r18238

Browse Source
This commit is contained in:
Marius Mutu
2026-09-30 22:27:28 +03:00
parent 1a24467667
commit 6f3e25d888
3 changed files with 420 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
programe/ocautare.prg
View File

@@ -74,14 +74,21 @@
*!* verificarea ANAF se poate cere si la caut_partener (parametri optionali de verificare
*!* si de data a documentului), pentru achizitia de import si pentru schimbarea furnizorului pe rulaj
*!* 29.09.2026
*!* marius.mutu
*!* ANAF_CitesteDinIstoric transmite sursa (CACHE / CACHE_INDISP) la CitesteIstoricPentruCoduri, care aplica
*!* filtrul de data doar pe CACHE; ANAF_StarePartener: parametru optional tlIstoricIntai (istoricul se citeste
*!* intai, indiferent de ordinea configurata) si lRadiatANAF / dRadiereANAF (partener radiat la data ceruta, doar
*!* din verificarea ANAF live) inclus in lDiscordanta si afisat ', Radiat' in banda de stare
*!* #DEFINE CRLF CHR(13) + CHR(10)
#INCLUDE COMUN\ROA.H
Procedure ANAF_StarePartener
Lparameters tcCodFiscal, tdData, tlDoarCache, tlNecesitaApel, tlNegasit, tcClasaEsec, tnTipPersoana
Lparameters tcCodFiscal, tdData, tlDoarCache, tlNecesitaApel, tlNegasit, tcClasaEsec, tnTipPersoana, tlIstoricIntai
Local lcCodFiscal, lcCui, loRezANAF, lcCheieCache, lnI, llValid, loOut, ldData, llNegasit, lcStareServiciu
Local lcOrdine, loVerificareANAF As "VerificareANAF", lcSelectOrig
Local lcOrdine, loVerificareANAF As "VerificareANAF", lcSelectOrig, ldRadiere, llRadiat
tlNecesitaApel = .F.
tlNegasit = .F.
@@ -139,7 +146,7 @@ Procedure ANAF_StarePartener
If Select() <> m.lcSelectOrig And Used(m.lcSelectOrig)
Select (m.lcSelectOrig)
Endif
If m.lcOrdine == 'CACHE,ANAF'
If m.lcOrdine == 'CACHE,ANAF' Or m.tlIstoricIntai
loRezANAF = ANAF_CitesteDinIstoric(m.lcCui, m.ldData, 'CACHE')
Endif
If Vartype(m.loRezANAF) <> 'O'
@@ -186,13 +193,17 @@ Procedure ANAF_StarePartener
Return .Null.
Endif
*** verdict
ldRadiere = Iif(!Pemstatus(loRezANAF, 'cSursa', 5) And Pemstatus(loRezANAF, 'dataRadiere', 5), Nvl(loRezANAF.dataRadiere, {}), {})
llRadiat = !Empty(m.ldRadiere) And m.ldRadiere <= m.ldData
loOut = Createobject("Empty")
Addproperty(loOut, "cCui", m.lcCui)
Addproperty(loOut, "lAreRO", Left(Upper(Alltrim(m.lcCodFiscal)), 2) = 'RO')
Addproperty(loOut, "lPlatitorANAF", loRezANAF.scpTVA)
Addproperty(loOut, "lInactivANAF", loRezANAF.statusInactivi)
Addproperty(loOut, "cDenumireANAF", Alltrim(Nvl(loRezANAF.denumire, '')))
Addproperty(loOut, "lDiscordanta", (loRezANAF.scpTVA <> loOut.lAreRO) Or loRezANAF.statusInactivi)
Addproperty(loOut, "lRadiatANAF", m.llRadiat)
Addproperty(loOut, "dRadiereANAF", m.ldRadiere)
Addproperty(loOut, "lDiscordanta", (loRezANAF.scpTVA <> loOut.lAreRO) Or loRezANAF.statusInactivi Or m.llRadiat)
Addproperty(loOut, "dInceputScpTVA", Iif(Pemstatus(loRezANAF, 'dInceputScpTVA', 5), Nvl(loRezANAF.dInceputScpTVA, {}), {}))
Addproperty(loOut, "dSfarsitScpTVA", Iif(Pemstatus(loRezANAF, 'dSfarsitScpTVA', 5), Nvl(loRezANAF.dSfarsitScpTVA, {}), {}))
Addproperty(loOut, "dAnulareScpTVA", Iif(Pemstatus(loRezANAF, 'dAnulareScpTVA', 5), Nvl(loRezANAF.dAnulareScpTVA, {}), {}))
@@ -221,7 +232,7 @@ Procedure ANAF_CitesteDinIstoric
Try
Use In (Select(m.lcAliasCache))
loVerificareANAF = Createobject("VerificareANAF")
loVerificareANAF.CitesteIstoricPentruCoduri(m.tcCui, m.tdData, m.lcAliasCache)
loVerificareANAF.CitesteIstoricPentruCoduri(m.tcCui, m.tdData, m.lcAliasCache, m.tcSursa)
If Used(m.lcAliasCache) And Reccount(m.lcAliasCache) > 0
Select (m.lcAliasCache)
Go Top
@@ -850,7 +861,7 @@ DEFINE CLASS anaf_verif_cautare AS Custom
PROCEDURE TextStare
Lparameters toStare, tcPerioada
Return Iif(toStare.lPlatitorANAF, 'Platitor TVA', 'Neplatitor TVA') + Nvl(m.tcPerioada, '') + Iif(toStare.lInactivANAF, ', Inactiv', '') + Iif(toStare.lTvaIncasareANAF, ', TVA la incasare', '')
Return Iif(toStare.lPlatitorANAF, 'Platitor TVA', 'Neplatitor TVA') + Nvl(m.tcPerioada, '') + Iif(toStare.lInactivANAF, ', Inactiv', '') + Iif(toStare.lRadiatANAF, ', Radiat', '') + Iif(toStare.lTvaIncasareANAF, ', TVA la incasare', '')
ENDPROC
PROCEDURE SufixPerioadaTVA
@@ -1049,7 +1060,7 @@ DEFINE CLASS anaf_verif_cautare AS Custom
If This.oStare.lAreRO = This.oStare.lPlatitorANAF
Amessagebox(This.AntetDialog(m.lcDenAles, m.lcCodAles) + m.lcPerioadaTVA + ;
Iif(This.oStare.lInactivANAF, 'Nu exista alta varianta de partener de ales.', 'Codul fiscal corespunde.'), ;
Iif(This.oStare.lInactivANAF Or This.oStare.lRadiatANAF, 'Nu exista alta varianta de partener de ales.', 'Codul fiscal corespunde.'), ;
0 + 64, 'Verificare partener ANAF')
Return
Endif