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

teste ANAF: verificari pentru preluarea codului CAEN si a reviziei

Browse Source 
Testul sintetic acopera CaenAnaf (completarea zeroului din fata, valori
neplauzibile) si CaenRevizie (format nou/vechi de numar de registru): 42 -> 53
verificari. Proba e2e goleste caen/caen_revizie inainte de rulare si le
verifica dupa, cu contoare SEPARATE de judet/localitate ca cifrele masurate in
rundele anterioare sa ramana comparabile. Mock-ul de dialog expune acum si
codul CAEN si numarul de registru brute de la ANAF.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
This commit is contained in:
Marius Mutu
2026-08-23 21:22:56 +03:00
parent a833cf639f
commit 019d241e50
3 changed files with 64 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
utile/Teste/test_anaf_nomenclator.prg
View File

@@ -136,11 +136,26 @@ Verif("omonime fuzzy fara comuna refuzate", ;
Transform(loN.pozitioneaza_localitate("crsLocT", "SARBI")), ".F.")
Verif("loc inexistent", Transform(loN.pozitioneaza_localitate("crsLocT", "ATLANTIDA")), ".F.")
*** --- CaenAnaf: ANAF trimite codul NUMERIC, deci sectiunea agricultura pierde zeroul din fata ---
Verif("caen 4 cifre nemodificat", loV.CaenAnaf(6201), "6201")
Verif("caen 3 cifre completat", loV.CaenAnaf(141), "0141")
Verif("caen 3 cifre completat 2", loV.CaenAnaf(111), "0111")
Verif("caen primit ca text", loV.CaenAnaf("4711"), "4711")
Verif("caen gol", loV.CaenAnaf(""), "")
Verif("caen zero", loV.CaenAnaf(0), "")
Verif("caen prea lung refuzat", loV.CaenAnaf(62011), "")
*** --- CaenRevizie: numar de registru in format NOU (fara '/') <=> cod CAEN revizia 3 ---
Verif("revizie format nou", loV.CaenRevizie("J2017000999304"), "3")
Verif("revizie format nou F", loV.CaenRevizie("F1993000063034"), "3")
Verif("revizie format vechi", loV.CaenRevizie("J13/626/1991"), "")
Verif("revizie fara numar", loV.CaenRevizie(""), "")
*** On Error continua executia, deci o verificare sarita (obiect neinstantiat) nu s-ar vedea
*** in numarul de esecuri; se verifica explicit ca au rulat toate.
If m.gnOk + m.gnNok # 42
If m.gnOk + m.gnNok # 53
gnNok = m.gnNok + 1
Strtofile("ESEC au rulat doar " + Transform(m.gnOk + m.gnNok) + " verificari din 42" + Chr(13) + Chr(10), m.gcLog, .T.)
Strtofile("ESEC au rulat doar " + Transform(m.gnOk + m.gnNok) + " verificari din 53" + Chr(13) + Chr(10), m.gcLog, .T.)
Endif
Strtofile("TOTAL: " + Transform(m.gnOk) + " ok, " + Transform(m.gnNok) + " esec" + Chr(13) + Chr(10), m.gcLog, .T.)
Quit