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

Verificare ANAF si la caut_partener: achizitie import, finalizare NIR, furnizor pe rulaj

Browse Source 
caut_partener primeste tlVerificaANAF/tdDataDoc (acelasi bloc ca la caut_parteneri) si citeste
tip_persoana din vnom_parteneri, ca banda de stare sa distinga CNP de CIF, nu dupa lungimea codului.

Apelanti pe documente: factura si partenerul DVI din achizitia de import (data din formular,
dDataAct), furnizorul de la finalizarea NIR-ului (data cade pe poAct.dataact) si schimbarea
furnizorului pe rulaj.

verific_partener si verificare_note_contabile (ooperatii_comune.prg) cer verificarea si cand
completeaza partenerul lipsa pe cont, la salvarea documentului.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
This commit is contained in:
Marius Mutu
2026-08-02 10:09:12 +03:00
parent 7abec07549
commit 521993bf85
4 changed files with 31 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
programe/ocautare.prg
View File

@@ -69,6 +69,11 @@
*!* arata atunci data verificarii citite din istoric, cu mentiune explicita cand ANAF e indisponibil;
*!* ordinea de incercare ANAF/istoric e configurabila per firma
*!* 02.08.2026
*!* marius.mutu
*!* 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
*!* #DEFINE CRLF CHR(13) + CHR(10)
#INCLUDE COMUN\ROA.H
@@ -1456,7 +1461,7 @@ Endfunc && caut_parteneri_xml
* author : paula.mutu
* -- SIR CU ID-URI TIP PARTENER PENTRU -1,-2 (CLIENT/FURNIZOR)
******************************************* INCEPUT:caut_partener *******************************************
Procedure caut_partener(tcIdTipPart, tcTitlu, tlToateIreg, tlNou)
Procedure caut_partener(tcIdTipPart, tcTitlu, tlToateIreg, tlNou, tlVerificaANAF, tdDataDoc)
Private pnIdTip, pcSir_Id_tip_part
Store '' To pcSir_Id_tip_part
@@ -1473,7 +1478,7 @@ Procedure caut_partener(tcIdTipPart, tcTitlu, tlToateIreg, tlNou)
Local lcTitlu, lcFiltru, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
Store "" To loCauta
lcSelect = [select denumire, cod_fiscal, id_part from vnom_parteneri ]
lcSelect = [select denumire, cod_fiscal, id_part, tip_persoana from vnom_parteneri ]
lcFiltru = [1=2]
lcSchema = []
lcOrder = [denumire]
@@ -1495,8 +1500,26 @@ Procedure caut_partener(tcIdTipPart, tcTitlu, tlToateIreg, tlNou)
lcNumeProc = []
Endif
lcTitluColoane = [Denumire,Cod fiscal,Id]
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, tlToateIreg, lcFiltruOriginal) && 11.07.2007
If Type('gnbuton') = 'N' And gnbuton = 1
AplicaInlocuirePartenerANAF(loCauta, poANAFInlocuire)
Endif
Return loCauta
Endproc