romfast/comun
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
a580dfd6e186fe29ac625786ba1528852d70f415
comun/utile/Teste/partener_anaf/test_e2e_anaf_firma.prg
Marius Mutu a580dfd6e1 teste ANAF nomenclator: proba e2e pe formularul real + init mediu ROADEF 
Proba end-to-end ruleaza formularul frm_firme_nou_desktopf peste nomenclatorul
Oracle real; 997/1000 coduri fiscale reale potrivite corect. Testul sintetic
acopera 42 de verificari, fara Oracle si fara ANAF.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
2026-08-23 20:28:32 +03:00

300 lines
13 KiB
Plaintext
Raw Blame History

* test_e2e_anaf_firma.prg
* Proba END-TO-END pentru todo #22 (preluare date ANAF la datele firmei), pe traseul REAL:
* formularul frm_firme_nou_desktopf + Click pe But_verifica1 -> anaf_completeaza_firma ->
* verifica_partener (apel ANAF live) -> ParseAdresaAnaf/FaraPrefixLoc -> AnafNomenclator ->
* Ct_localitate1.modifica_judet / modifica_localitate, peste nomenclatorul Oracle REAL.
*
* Ce acopera in plus fata de test_anaf_nomenclator.prg: acela ruleaza potrivirea pe cursoare
* SINTETICE, in afara formularului. Aici cursoarele sunt cele construite de ct_localitate din
* syn_vnom_judete / syn_vnom_localitati (inclusiv randul-santinela "<ALEGETI ...>"), iar
* apasarea e pe butonul real - conform regulii: testele pe frontend exerseaza fluxul real,
* nu populeaza direct cursoarele.
*
* ATENTIE (1): foloseste test_init_env_auto_ROADEF, nu test_init_env_auto.prg. Acela porneste pe
* D:\ROA\ROACONT\, alt working copy de COMUN, fara modificarile necomise de aici - ar testa
* codul vechi si ar da rezultate false.
* ATENTIE (2): tot codul care construieste obiecte sta INLINE in programul principal, nu in
* proceduri (capcana l din COMUN\docs\testare-ui-vfp.md), iar TRY/CATCH nu contine RETURN
* (VFP9: eroare 2060 "RETURN/RETRY statement not allowed in TRY/CATCH").
*
* Rulare headless (nu tine VFP IDE sau roadef.exe deschis):
* Remove-Item <acest .prg cu extensia .fxp> -Force
* & "C:\Program Files (x86)\Microsoft Visual FoxPro 9\vfp9.exe" -A -T ;
* "D:\ROA\ROADEF\COMUN\utile\Teste\partener_anaf\test_e2e_anaf_firma.prg"
* Log: test_e2e_anaf_firma_log.txt, langa acest fisier.
*
* Numarul de coduri fiscale rulate: gnE2ELimita (implicit 8). Codurile vin din
* ..\cache_anaf\codes_200_reale.txt (coduri reale). Fiecare cod = un apel ANAF live.
SET SAFETY OFF
SET TALK OFF
PUBLIC gcLogE2E, gnOk, gnEsec, gnSarite, gnE2ELimita, goNomE2E, ;
gnMockRaspuns, gcMockUltimMesaj, gnMockUltimTip, ;
gnMockRaspunsShowInfo, gnMockShowInfoApeluri, ;
gcMockAnafJudet, gcMockAnafLocalitate, gcMockAnafAdresa, gcMockAnafFirma
gcLogE2E = ADDBS(JUSTPATH(SYS(16, 0))) + 'test_e2e_anaf_firma_log.txt'
IF EMPTY(JUSTPATH(SYS(16, 0)))
gcLogE2E = 'D:\ROA\ROADEF\COMUN\utile\Teste\partener_anaf\test_e2e_anaf_firma_log.txt'
ENDIF
gnOk = 0
gnEsec = 0
gnSarite = 0
* cate coduri se ruleaza: implicit 8, sau variabila de mediu E2E_LIMITA (ex. 200 pentru
* o masuratoare completa) - vfp9.exe nu poate primi parametri pentru scriptul din -T
gnE2ELimita = IIF(VAL(GETENV('E2E_LIMITA')) > 0, INT(VAL(GETENV('E2E_LIMITA'))), 8)
goNomE2E = .NULL.
gnMockRaspuns = 6 && "Da" la dialogurile amessagebox
gcMockUltimMesaj = '' && mock_amessagebox memoreaza aici textul ultimului dialog
gnMockUltimTip = 0
gnMockRaspunsShowInfo = 6 && "Da" la "Doriti sa se completeze datele in formular?"
gnMockShowInfoApeluri = 0
* datele BRUTE de la ANAF, depuse de mock_verifica_partener_show_info INAINTE de potrivire
gcMockAnafJudet = ''
gcMockAnafLocalitate = ''
gcMockAnafAdresa = ''
gcMockAnafFirma = ''
STRTOFILE('START test_e2e_anaf_firma ' + TTOC(DATETIME()) + CHR(13) + CHR(10), gcLogE2E)
ON ERROR DO E2EErr WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
ON SHUTDOWN QUIT
* ===== mock-urile de dialoguri, INAINTEA fisierelor aplicatiei =====
* La nume duplicat de FUNCTION, VFP foloseste fisierul cautat PRIMUL
* (COMUN\docs\testare-ui-vfp.md capcana g). Incarcate DUPA mediu, dialogurile raman modale
* si rularea headless se blocheaza pe primul CIF (masurat: proba s-a oprit pe 10117033).
SET PROCEDURE TO D:\ROA\ROADEF\COMUN\utile\Teste\partener_anaf\mock_verifica_partener_show_info.prg ADDITIVE
SET PROCEDURE TO D:\ROA\ROADEF\COMUN\utile\Teste\mock_amessagebox.prg ADDITIVE
* ===== mediu =====
DO D:\ROA\ROADEF\COMUN\utile\Teste\test_init_env_auto_roadef.prg WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
IF TYPE('gnHandle') <> 'N' OR gnHandle <= 0
DO E2ELog WITH 'EROARE: conectare Oracle esuata, gnHandle=' + TRANSFORM(IIF(TYPE('gnHandle') = 'N', gnHandle, -1))
DO E2ELog WITH 'REZULTAT: NEDETERMINAT'
QUIT
ENDIF
DO E2ELog WITH 'mediu OK: gcS=' + gcS + ' gnIdFirma=' + TRANSFORM(gnIdFirma) + ;
' gnScrieRegistru=' + TRANSFORM(gnScrieRegistru) + ' gcNumeProgram=' + gcNumeProgram
* ===== dovada 1: rulam pe COMUN-ul din ROADEF, cu fixul din todo #22 =====
LOCAL llAreFix, loEx AS Exception
llAreFix = .F.
TRY
goNomE2E = CREATEOBJECT('AnafNomenclator')
llAreFix = (VARTYPE(goNomE2E) = 'O')
CATCH TO loEx
llAreFix = .F.
ENDTRY
DO E2ELog WITH 'AnafNomenclator disponibil: ' + IIF(m.llAreFix, 'DA', 'NU')
IF !m.llAreFix
DO E2ELog WITH 'REZULTAT: NEDETERMINAT - s-a incarcat un COMUN fara fixul din todo #22'
QUIT
ENDIF
* ===== dovada 2: mock-ul de dialog a castigat =====
* Cu obiect gol, functia REALA moare la loPartener.platitortvamfin inainte de amessagebox;
* mock-ul intoarce 6 fara sa deschida nimic. Daca nu castiga, rularea s-ar bloca pe primul modal.
LOCAL loDummyE2E, lnProbaMock
loDummyE2E = CREATEOBJECT('empty')
lnProbaMock = -1
TRY
lnProbaMock = verifica_partener_show_info(m.loDummyE2E, '0', '', 'proba mock')
CATCH TO loEx
lnProbaMock = -2
ENDTRY
gnMockShowInfoApeluri = 0
DO E2ELog WITH 'mock verifica_partener_show_info activ: ' + ;
IIF(m.lnProbaMock = 6, 'DA', 'NU (raspuns ' + TRANSFORM(m.lnProbaMock) + ')')
IF m.lnProbaMock <> 6
DO E2ELog WITH 'REZULTAT: NEDETERMINAT - fara mock, primul dialog modal blocheaza rularea headless'
QUIT
ENDIF
* ===== firma curenta, ca in oproceduri_roadef.viz_firme =====
LOCAL lcSqlFirma
lcSqlFirma = [select * from syn_v_nom_firme where sters = 0 and id_firma = ] + ALLTRIM(STR(goFirma.id_firma))
IF !goExecutor.oExecuta(m.lcSqlFirma, 'crsFirmaE2E') OR RECCOUNT('crsFirmaE2E') = 0
DO E2ELog WITH 'EROARE: nu am putut citi firma curenta (' + m.lcSqlFirma + ')'
DO E2ELog WITH 'REZULTAT: NEDETERMINAT'
QUIT
ENDIF
SELECT crsFirmaE2E
GO TOP
DO E2ELog WITH 'firma de lucru: id_firma=' + TRANSFORM(id_firma) + ' [' + ALLTRIM(NVL(firma, '')) + ']'
* ===== lista de coduri fiscale reale =====
LOCAL lcFisCoduri, lnTotalCoduri, lnI, lcCod
LOCAL ARRAY laCoduri[1]
* lotul de coduri: implicit cel de 200, sau variabila de mediu E2E_CODURI (cale completa)
lcFisCoduri = ALLTRIM(GETENV('E2E_CODURI'))
IF EMPTY(m.lcFisCoduri)
lcFisCoduri = 'D:\ROA\ROADEF\COMUN\utile\Teste\cache_anaf\codes_200_reale.txt'
ENDIF
IF !FILE(m.lcFisCoduri)
DO E2ELog WITH 'EROARE: lipseste ' + m.lcFisCoduri
DO E2ELog WITH 'REZULTAT: NEDETERMINAT'
QUIT
ENDIF
lnTotalCoduri = ALINES(laCoduri, FILETOSTR(m.lcFisCoduri))
DO E2ELog WITH 'lot: ' + m.lcFisCoduri
DO E2ELog WITH 'coduri disponibile: ' + TRANSFORM(m.lnTotalCoduri) + ', rulez primele ' + TRANSFORM(gnE2ELimita)
DO E2ELog WITH REPLICATE('-', 110)
* ===== rulare: un cod fiscal = un formular nou + un Click pe butonul real =====
* Totul inline (capcana l): CREATEOBJECT pe formular dintr-o procedura e nesigur headless.
PRIVATE poRec
LOCAL lnRulate, loFrm, llFrmOk, llClickOk, lcErr
LOCAL lcAdrAnaf, lcJudAnaf, lcLocAnaf, lcJudet, lcLoc, lnIdJudet, lnIdLoc
LOCAL llOkJud, llOkLoc, lcDetaliu
lnRulate = 0
FOR lnI = 1 TO m.lnTotalCoduri
lcCod = ALLTRIM(laCoduri[m.lnI])
IF !EMPTY(m.lcCod) AND ISDIGIT(m.lcCod) AND m.lnRulate < gnE2ELimita
lnRulate = m.lnRulate + 1
* record proaspat pentru fiecare cod, direct din cursorul firmei (ca in viz_firme:
* Select v_firme / Scatter Name loRec), ca sa nu ramana stare de la codul anterior.
* Plasa: _frm_base.Destroy face USE IN (SELECT(thisform.ccursor)) si, cu ccursor gol,
* poate inchide zona de lucru curenta - refacem cursorul daca s-a pierdut.
IF !USED('crsFirmaE2E')
IF !goExecutor.oExecuta(m.lcSqlFirma, 'crsFirmaE2E')
DO E2ELog WITH 'CIF ' + m.lcCod + ' -> ESEC: nu am putut reface crsFirmaE2E'
gnEsec = gnEsec + 1
LOOP
ENDIF
ENDIF
SELECT crsFirmaE2E
GO TOP
SCATTER NAME poRec MEMO
* golim campurile pe care le completeaza traseul ANAF, ca sa nu confundam o valoare
* ramasa din firma curenta cu una preluata acum
poRec.cod_fiscal = m.lcCod
poRec.judet = ''
poRec.id_judet = .NULL.
poRec.localitate = ''
poRec.id_loc = .NULL.
poRec.adresa = ''
IF TYPE('poRec.modificare_schema') = 'U'
ADDPROPERTY(poRec, 'modificare_schema', 0)
ENDIF
gcMockUltimMesaj = ''
gcMockAnafJudet = ''
gcMockAnafLocalitate = ''
gcMockAnafAdresa = ''
gcMockAnafFirma = ''
gnMockShowInfoApeluri = 0
llFrmOk = .F.
lcErr = ''
TRY
loFrm = CREATEOBJECT('frm_firme_nou_desktopf', poRec, poRec.id_firma, 'UPDATE')
llFrmOk = (VARTYPE(loFrm) = 'O')
CATCH TO loEx
lcErr = loEx.Message + ' [' + loEx.Procedure + ':' + TRANSFORM(loEx.LineNo) + ']'
ENDTRY
IF !m.llFrmOk
gnEsec = gnEsec + 1
DO E2ELog WITH 'CIF ' + m.lcCod + ' -> ESEC: nu s-a putut crea formularul: ' + m.lcErr
ELSE
llClickOk = .F.
lcErr = ''
TRY
loFrm.But_verifica1.Click()
llClickOk = .T.
CATCH TO loEx
lcErr = loEx.Message + ' [' + loEx.Procedure + ':' + TRANSFORM(loEx.LineNo) + ']'
ENDTRY
IF !m.llClickOk
gnEsec = gnEsec + 1
DO E2ELog WITH 'CIF ' + m.lcCod + ' -> ESEC: exceptie in But_verifica1.Click: ' + m.lcErr
ELSE
lcAdrAnaf = UPPER(ALLTRIM(gcMockAnafAdresa))
lcJudAnaf = UPPER(ALLTRIM(gcMockAnafJudet))
lcLocAnaf = UPPER(ALLTRIM(gcMockAnafLocalitate))
lcJudet = ALLTRIM(NVL(poRec.judet, ''))
lcLoc = ALLTRIM(NVL(poRec.localitate, ''))
lnIdJudet = NVL(poRec.id_judet, -1)
lnIdLoc = NVL(poRec.id_loc, -1)
IF gnMockShowInfoApeluri = 0 OR EMPTY(m.lcJudAnaf)
* ANAF n-a intors un partener valid, sau l-a intors fara adresa (cod inactiv /
* fara raspuns / notFound): nu se poate judeca potrivirea peste nomenclator
gnSarite = gnSarite + 1
DO E2ELog WITH 'CIF ' + m.lcCod + ' -> SARIT: ANAF nu a intors adresa. Ultim dialog: [' + ;
LEFT(STRTRAN(STRTRAN(gcMockUltimMesaj, CHR(13), ' '), CHR(10), ' '), 150) + ']'
ELSE
* judetul e OK daca s-a completat, are id din nomenclator si denumirea potrivita
* corespunde textului brut primit de la ANAF
llOkJud = !EMPTY(m.lcJudet) AND m.lnIdJudet > 0 AND E2EPotrivit(m.lcJudet, m.lcJudAnaf)
* localitatea: la fel; santinela "<ALEGETI LOCALITATEA>" NU e rezultat valid
llOkLoc = !EMPTY(m.lcLoc) AND !('<ALEGETI' $ UPPER(m.lcLoc)) AND m.lnIdLoc > 0 ;
AND E2EPotrivit(m.lcLoc, m.lcLocAnaf)
lcDetaliu = 'ANAF[jud=' + m.lcJudAnaf + ' loc=' + m.lcLocAnaf + ']' + ;
' -> NOM[judet=' + m.lcJudet + ' id_judet=' + TRANSFORM(m.lnIdJudet) + ;
' localitate=' + m.lcLoc + ' id_loc=' + TRANSFORM(m.lnIdLoc) + ']'
IF m.llOkJud AND m.llOkLoc
gnOk = gnOk + 1
DO E2ELog WITH 'CIF ' + m.lcCod + ' -> OK ' + m.lcDetaliu
ELSE
gnEsec = gnEsec + 1
DO E2ELog WITH 'CIF ' + m.lcCod + ' -> ESEC ' + ;
IIF(!m.llOkJud, '[judet] ', '') + IIF(!m.llOkLoc, '[localitate] ', '') + m.lcDetaliu
DO E2ELog WITH ' adresa ANAF: ' + LEFT(m.lcAdrAnaf, 150)
DO E2ELog WITH ' ultim dialog: [' + ;
LEFT(STRTRAN(STRTRAN(gcMockUltimMesaj, CHR(13), ' '), CHR(10), ' '), 200) + ']'
ENDIF
ENDIF
ENDIF
loFrm.Release()
loFrm = .NULL.
ENDIF
ENDIF
ENDFOR
DO E2ELog WITH REPLICATE('-', 110)
DO E2ELog WITH 'TOTAL: ' + TRANSFORM(gnOk) + ' ok, ' + TRANSFORM(gnEsec) + ' esec, ' + ;
TRANSFORM(gnSarite) + ' sarite (fara raspuns ANAF), din ' + TRANSFORM(m.lnRulate) + ' coduri rulate'
DO E2ELog WITH 'REZULTAT: ' + IIF(gnEsec = 0, 'TOATE OK', 'AU FOST ESECURI') + ' ' + TTOC(DATETIME())
QUIT
*********************************************************************
* Denumirea aleasa din nomenclator corespunde textului brut de la ANAF?
* Comparatia foloseste cheia toleranta a clasei (fara sufixul dintre paranteze, fara
* separatoare, cu A si I unificate) - altfel "TIRGU MURES" din nomenclator nu ar corespunde
* cu "TARGU MURES" de la ANAF si am raporta un esec fals.
* goNomE2E e construit INLINE in main (capcana l); aici doar se foloseste.
FUNCTION E2EPotrivit
LPARAMETERS tcDinNomenclator, tcDeLaAnaf
LOCAL lcA, lcB
IF VARTYPE(goNomE2E) <> 'O' OR EMPTY(ALLTRIM(NVL(m.tcDeLaAnaf, '')))
RETURN .F.
ENDIF
lcA = goNomE2E.cheie_fuzzy(m.tcDinNomenclator)
lcB = goNomE2E.cheie_fuzzy(m.tcDeLaAnaf)
RETURN !EMPTY(m.lcA) AND (m.lcA == m.lcB)
ENDFUNC
*********************************************************************
PROCEDURE E2EErr
LPARAMETERS tnErr, tcMsg, tcProg, tnLine
DO E2ELog WITH 'ON ERROR ' + TRANSFORM(tnErr) + ' [' + tcProg + ':' + TRANSFORM(tnLine) + '] ' + tcMsg
ENDPROC
*********************************************************************
PROCEDURE E2ELog
LPARAMETERS tcMsg
LOCAL lcL
lcL = IIF(FILE(gcLogE2E), FILETOSTR(gcLogE2E), '')
STRTOFILE(m.lcL + TRANSFORM(m.tcMsg) + CHR(13) + CHR(10), gcLogE2E)
ENDPROC
Reference in New Issue View Git Blame Copy Permalink