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

Verificare ANAF la alegerea partenerului: opt-in pe introducerea de documente

Browse Source 
Cablarea din ROACONT pentru verificarea ANAF implementata in COMUN (ocautare.prg):

- ointroduceri_cont.vc2: 6 apeluri de cautare partener trec lVerificaANAF=1
  (frm_introd_compact, frm_introd_compact2007, frm_note, frm_note2007), plus
  frm_plati_impozite prin caut_parteneri. Raman fara verificare cautarile de
  responsabili, achizitor, casa si creditor.
- cont2000.mn2: punct de meniu Initializari > Optiuni utilizator >
  "Verificare ANAF la alegerea partenerului" (DO ANAF_ComutaVerificare IN ocautare.prg).
- roacont.prg: incarcarea procedurilor necesare verificarii.
- oproceduri_import.prg: la importul cu cod fiscal discordant se cere confirmare
  in loc sa se aleaga tacit.
- changelog 2.11.65 si documentul de design al functionalitatii.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_019H3r66sVojGhgaKq5niu1u
This commit is contained in:
Marius Mutu
2026-07-27 01:29:20 +03:00
parent a284dd3530
commit 5b0a3321db
9 changed files with 1014 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Clase/ointroduceri_cont.vc2
View File

@@ -922,7 +922,9 @@ DEFINE CLASS frm_introd_compact AS formtermin OF "..\comun\clase\baza.vcx"
PARAMETERS tcCont, lcCampId, lcCampNume
lcCont = ALLTRIM(tcCont)
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Nume partener ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont))
loHash = GetHash([cTitlu=>Nume partener ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont + [??lVerificaANAF=>1])
loHash.SetValue('dDataDoc', Iif(Type('poAct.dataact') = 'D', poAct.dataact, {}))
loCauta = CautPartenerContabilitate(loHash)
If !Empty(locauta.nume)
lnid_part=locauta.id_part
@@ -3849,7 +3851,9 @@ DEFINE CLASS frm_introd_compact2007 AS formtermin OF "..\comun\clase\baza.vcx"
PARAMETERS tcCont, lcCampId, lcCampNume
lcCont = ALLTRIM(tcCont)
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Nume partener ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont))
loHash = GetHash([cTitlu=>Nume partener ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont + [??lVerificaANAF=>1])
loHash.SetValue('dDataDoc', Iif(Type('poAct.dataact') = 'D', poAct.dataact, {}))
loCauta = CautPartenerContabilitate(loHash)
If !Empty(locauta.nume)
lnid_part=locauta.id_part
@@ -7087,7 +7091,9 @@ DEFINE CLASS frm_note AS formtermin OF "..\comun\clase\baza.vcx"
ENDIF
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont))
loHash = GetHash([cTitlu=>Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont + [??lVerificaANAF=>1])
loHash.SetValue('dDataDoc', Iif(Type('poAct.dataact') = 'D', poAct.dataact, {}))
loCauta = CautPartenerContabilitate(loHash)
SELECT actactan
REPLACE id_partd WITH loCauta.id_part, partd WITH locauta.nume
@@ -7109,7 +7115,9 @@ DEFINE CLASS frm_note AS formtermin OF "..\comun\clase\baza.vcx"
ENDIF
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont))
loHash = GetHash([cTitlu=>Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont + [??lVerificaANAF=>1])
loHash.SetValue('dDataDoc', Iif(Type('poAct.dataact') = 'D', poAct.dataact, {}))
loCauta = CautPartenerContabilitate(loHash)
SELECT actactan
REPLACE id_partc WITH loCauta.id_part, partc WITH locauta.nume
@@ -8930,7 +8938,9 @@ DEFINE CLASS frm_note2007 AS formtermin OF "..\comun\clase\baza.vcx"
If lnsucces=1
If lnrezultat>0
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + [??lAdaugCorespondente=>1??cCont=>] + pcCont))
loHash = GetHash([cTitlu=>Alegeti partenerul ] + pcCont + [??lAdaugCorespondente=>1??cCont=>] + pcCont + [??lVerificaANAF=>1])
loHash.SetValue('dDataDoc', Iif(Type('poAct.dataact') = 'D', poAct.dataact, {}))
loCauta = CautPartenerContabilitate(loHash)
Select actactan
Replace id_partd With loCauta.id_part, partd With loCauta.nume
IF lnIdPartd <> loCauta.id_part
@@ -8969,7 +8979,9 @@ DEFINE CLASS frm_note2007 AS formtermin OF "..\comun\clase\baza.vcx"
If lnsucces=1
If lnrezultat>0
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + [??lAdaugCorespondente=>1??cCont=>] + pcCont))
loHash = GetHash([cTitlu=>Alegeti partenerul ] + pcCont + [??lAdaugCorespondente=>1??cCont=>] + pcCont + [??lVerificaANAF=>1])
loHash.SetValue('dDataDoc', Iif(Type('poAct.dataact') = 'D', poAct.dataact, {}))
loCauta = CautPartenerContabilitate(loHash)
Select actactan
Replace id_partc With loCauta.id_part, partc With loCauta.nume
IF lnIdPartc <> loCauta.id_part
@@ -9662,7 +9674,7 @@ DEFINE CLASS frm_plati_impozite AS _frmbase OF "..\comun\clase\_frm_base.vcx"
SELECT c_part
IF valoare > 0
lcTitlu = 'Nume partener ' + lcCont
locauta = caut_parteneri(lcCont, lcTitlu)
locauta = caut_parteneri(lcCont, lcTitlu, .F., .F., .F., .T., Iif(Type('poAct.dataact') = 'D', poAct.dataact, {}))
If !Empty(locauta.denumire) AND !EMPTY(locauta.id_part)
lnid_part=locauta.id_part
@@ -9701,7 +9713,7 @@ DEFINE CLASS frm_plati_impozite AS _frmbase OF "..\comun\clase\_frm_base.vcx"
SELECT c_part
IF valoare > 0
lcTitlu = 'Nume partener ' + lcCont
locauta = caut_parteneri(lcCont, lcTitlu)
locauta = caut_parteneri(lcCont, lcTitlu, .F., .F., .F., .T., Iif(Type('poAct.dataact') = 'D', poAct.dataact, {}))
If !Empty(locauta.denumire) AND !EMPTY(locauta.id_part)
lnid_part=locauta.id_part