377 lines
17 KiB
Plaintext
377 lines
17 KiB
Plaintext
* test_todo21_mesaj_meniu.prg
|
|
* TODO #21: regresie pentru D6/D7 (mesajul de detalii grupat pe sectiuni) si D10 (meniul
|
|
* scurtat de verificare cod fiscal), ca schimbari ulterioare in formular sa nu le strice tacut.
|
|
* Fara HTTP, fara ANAF live, fara Oracle - GetMeniuVerificareCodFiscal/GetOptiuneVerificareCodFiscal/
|
|
* verifica_partener_show_info nu depind de ele (doar de parametri si de variabila globala crlf,
|
|
* setata mai jos ca in test_init_env_auto.prg).
|
|
*
|
|
* Pas 1-2: GetMeniuVerificareCodFiscal / GetOptiuneVerificareCodFiscal apelate DIRECT (functii
|
|
* pure, fara XMENU in interior).
|
|
* Pas 3: aritmetica optiuni_meniu_ante - copiata LITERAL din VerificaCodFiscal
|
|
* (COMUN\programe\oproceduri_comune.prg:4960-4967: "lnOptiuneVerificare = m.lnOptiune" apoi
|
|
* "lnOptiuneVerificare = m.lnOptiuneVerificare - Occurs(';', m.lcOptiuniMeniuAnte)"), aplicata pe
|
|
* o pozitie FABRICATA (nu se apeleaza VerificaCodFiscal, care ar deschide XMENU si ar bloca
|
|
* headless-ul).
|
|
* Pas 4: verifica_partener_show_info, apelata prin umbra (copie a oproceduri_comune.prg cu
|
|
* amessagebox redenumit, ca in test_todo21_perioade_anaf.prg) - amessagebox e inlocuit de
|
|
* mock_amessagebox.prg, textul se captureaza in gcMockUltimMesaj fara dialog modal. Obiectele
|
|
* partener sunt fabricate (CREATEOBJECT("empty") + ADDPROPERTY), fara verificare reala.
|
|
*
|
|
* Rulare: vfp9.exe -A -T "D:\ROA\ROACONT\COMUN\utile\Teste\todo21\test_todo21_mesaj_meniu.prg"
|
|
* Verdict in log: TOTAL OK / TOTAL FAIL: n pas(i).
|
|
|
|
SET SAFETY OFF
|
|
SET TALK OFF
|
|
SET DELETED ON
|
|
SET EXACT ON
|
|
SET CENTURY ON
|
|
SET DATE DMY
|
|
SET NULLDISPLAY TO ''
|
|
CLOSE DATABASES
|
|
|
|
PUBLIC gcLog, gcMockUltimMesaj, gnMockUltimTip, gnMockRaspuns, crlf
|
|
gcLog = "D:\ROA\ROACONT\COMUN\utile\Teste\todo21\test_todo21_mesaj_meniu_log.txt"
|
|
gcMockUltimMesaj = ''
|
|
gnMockUltimTip = 0
|
|
gnMockRaspuns = 6
|
|
crlf = CHR(13) + CHR(10)
|
|
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcLog)
|
|
|
|
PUBLIC gnEsecuri
|
|
gnEsecuri = 0
|
|
|
|
ON ERROR DO WriteTestErr WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
|
|
ON SHUTDOWN QUIT
|
|
|
|
TRY
|
|
*-- umbra: copie a oproceduri_comune.prg cu FUNCTION amessagebox redenumita, ca apelul din
|
|
*-- verifica_partener_show_info sa cada pe mock_amessagebox.prg (fara conflict de nume) si
|
|
*-- niciun dialog modal sa nu apara. VFP rezolva numele duplicate de procedura in favoarea
|
|
*-- fisierului deschis PRIMUL cu SET PROCEDURE - de-asta mock-ul si umbra se incarca aici,
|
|
*-- inaintea oricarui alt cod.
|
|
LOCAL lcSrc, lcUmbra
|
|
lcUmbra = ADDBS(SYS(2023)) + 'oproceduri_comune_umbra_mesajmeniu.prg'
|
|
lcSrc = FILETOSTR("D:\ROA\ROACONT\COMUN\programe\oproceduri_comune.prg")
|
|
lcSrc = STRTRAN(lcSrc, CHR(13) + CHR(10) + 'Function amessagebox' + CHR(13) + CHR(10), ;
|
|
CHR(13) + CHR(10) + 'Function amessagebox_umbrit_mm' + CHR(13) + CHR(10))
|
|
STRTOFILE(lcSrc, lcUmbra)
|
|
ERASE (FORCEEXT(lcUmbra, 'fxp'))
|
|
|
|
SET PROCEDURE TO "D:\ROA\ROACONT\COMUN\utile\Teste\mock_amessagebox.prg" ADDITIVE
|
|
SET PROCEDURE TO (lcUmbra) ADDITIVE
|
|
DO WriteTestLog WITH 'mock si umbra incarcate (fara Oracle - functiile testate nu depind de el)'
|
|
|
|
*==================================================================
|
|
* Pas 1: GetMeniuVerificareCodFiscal - cele 5 pozitii, in ordine, cu cod fiscal prezent
|
|
*==================================================================
|
|
LOCAL lcMenu, lcMenuAsteptat, lcMenuFaraCod, lcMenuFaraCodAsteptat
|
|
|
|
lcMenu = GetMeniuVerificareCodFiscal('RO1890420')
|
|
lcMenuAsteptat = "VERIFICARE ANAF;VERIFICARE VIES;ISTORIC VERIFICARI COD FISCAL;\-;DESCHIDE FISA PE MFINANTE.RO"
|
|
IF m.lcMenu == m.lcMenuAsteptat
|
|
DO WriteTestLog WITH 'OK P1a: meniul cu cod fiscal are exact cele 5 pozitii, in ordine'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P1a: meniu=[' + m.lcMenu + '] asteptat=[' + m.lcMenuAsteptat + ']'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
|
|
*-- Pas 3 (partial aici): fara cod fiscal, pozitiile dezactivabile au prefixul "\";
|
|
*-- ISTORIC (pozitia 3) ramane activa oricum.
|
|
lcMenuFaraCod = GetMeniuVerificareCodFiscal('')
|
|
lcMenuFaraCodAsteptat = "\VERIFICARE ANAF;\VERIFICARE VIES;ISTORIC VERIFICARI COD FISCAL;\-;\DESCHIDE FISA PE MFINANTE.RO"
|
|
IF m.lcMenuFaraCod == m.lcMenuFaraCodAsteptat
|
|
DO WriteTestLog WITH 'OK P1b: fara cod fiscal, ANAF/VIES/MFINANTE dezactivate (\), ISTORIC ramane activ'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P1b: meniu=[' + m.lcMenuFaraCod + '] asteptat=[' + m.lcMenuFaraCodAsteptat + ']'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
|
|
*==================================================================
|
|
* Pas 2: GetOptiuneVerificareCodFiscal - 1/2/3/5 mapate, 4 (separator) si restul goale
|
|
*==================================================================
|
|
LOCAL lnI, lcOptRezultat, lcOptAsteptat
|
|
DIMENSION laOptiuni(7,2)
|
|
laOptiuni(1,1) = 0
|
|
laOptiuni(1,2) = ''
|
|
laOptiuni(2,1) = 1
|
|
laOptiuni(2,2) = 'ANAF_SERVICIU_WEB'
|
|
laOptiuni(3,1) = 2
|
|
laOptiuni(3,2) = 'VIES_AUTO'
|
|
laOptiuni(4,1) = 3
|
|
laOptiuni(4,2) = 'ISTORIC'
|
|
laOptiuni(5,1) = 4
|
|
laOptiuni(5,2) = ''
|
|
laOptiuni(6,1) = 5
|
|
laOptiuni(6,2) = 'MFIN_MANUAL_COD'
|
|
laOptiuni(7,1) = 6
|
|
laOptiuni(7,2) = ''
|
|
|
|
FOR lnI = 1 TO 7
|
|
lcOptRezultat = GetOptiuneVerificareCodFiscal(laOptiuni(m.lnI,1))
|
|
lcOptAsteptat = laOptiuni(m.lnI,2)
|
|
IF m.lcOptRezultat == m.lcOptAsteptat
|
|
DO WriteTestLog WITH 'OK P2: GetOptiuneVerificareCodFiscal(' + TRANSFORM(laOptiuni(m.lnI,1)) + ') = [' + m.lcOptRezultat + ']'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P2: GetOptiuneVerificareCodFiscal(' + TRANSFORM(laOptiuni(m.lnI,1)) + ') = [' + m.lcOptRezultat + '], asteptat [' + m.lcOptAsteptat + ']'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
ENDFOR
|
|
|
|
*==================================================================
|
|
* Pas 3: aritmetica optiuni_meniu_ante - formula copiata din VerificaCodFiscal:4960-4967
|
|
*==================================================================
|
|
LOCAL lcOptiuniMeniuAnte, lcMenuCombinat, lcMenuCombinatAsteptat, lnOptiuneSimulat, lnOptiuneVerificare, lcTip
|
|
|
|
lcOptiuniMeniuAnte = "MODIFICARE PARTENER - X;\-;"
|
|
|
|
*-- meniul combinat trebuie sa fie exact prepandatul + submeniul de verificare neschimbat
|
|
lcMenuCombinat = GetMeniuVerificareCodFiscal('RO1890420', m.lcOptiuniMeniuAnte)
|
|
lcMenuCombinatAsteptat = m.lcOptiuniMeniuAnte + m.lcMenuAsteptat
|
|
IF m.lcMenuCombinat == m.lcMenuCombinatAsteptat
|
|
DO WriteTestLog WITH 'OK P3a: meniul combinat = prepandate (2 pozitii) + submeniul de verificare neschimbat'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P3a: combinat=[' + m.lcMenuCombinat + '] asteptat=[' + m.lcMenuCombinatAsteptat + ']'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
|
|
*-- pozitia 3 din meniul COMBINAT (dupa cele 2 prepandate: "MODIFICARE PARTENER - X" si "\-")
|
|
*-- e primul element din submeniul de verificare -> trebuie sa cada pe ANAF_SERVICIU_WEB
|
|
lnOptiuneSimulat = 3
|
|
lnOptiuneVerificare = m.lnOptiuneSimulat
|
|
IF !EMPTY(m.lcOptiuniMeniuAnte)
|
|
lnOptiuneVerificare = m.lnOptiuneVerificare - OCCURS(';', m.lcOptiuniMeniuAnte)
|
|
ENDIF
|
|
lcTip = GetOptiuneVerificareCodFiscal(m.lnOptiuneVerificare)
|
|
IF m.lcTip == 'ANAF_SERVICIU_WEB'
|
|
DO WriteTestLog WITH 'OK P3b: pozitia 3 din meniul combinat (dupa cele 2 prepandate) = ANAF_SERVICIU_WEB'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P3b: pozitia 3 combinata a dat [' + m.lcTip + '], asteptat ANAF_SERVICIU_WEB'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
|
|
*-- pozitia 7 (ultima din meniul combinat) e ultimul element din submeniu -> MFIN_MANUAL_COD
|
|
lnOptiuneSimulat = 7
|
|
lnOptiuneVerificare = m.lnOptiuneSimulat - OCCURS(';', m.lcOptiuniMeniuAnte)
|
|
lcTip = GetOptiuneVerificareCodFiscal(m.lnOptiuneVerificare)
|
|
IF m.lcTip == 'MFIN_MANUAL_COD'
|
|
DO WriteTestLog WITH 'OK P3c: pozitia 7 din meniul combinat = MFIN_MANUAL_COD'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P3c: pozitia 7 combinata a dat [' + m.lcTip + '], asteptat MFIN_MANUAL_COD'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
|
|
*==================================================================
|
|
* Pas 4: verifica_partener_show_info - structura mesajului, pe obiecte fabricate
|
|
*==================================================================
|
|
LOCAL loPart
|
|
|
|
*-- 4a: sursa ANAF, atribut RO nepotrivit (neplatitor + cod RO) -> *** ATENTIE ***,
|
|
*-- Mesaj ANAF completat, identificare PARTIALA (telefon/fax/cod postal goale -> absente)
|
|
loPart = CREATEOBJECT("empty")
|
|
ADDPROPERTY(loPart, "firma", "FIRMA UNU SRL")
|
|
ADDPROPERTY(loPart, "sursa", "ANAF")
|
|
ADDPROPERTY(loPart, "data_sursa", {})
|
|
ADDPROPERTY(loPart, "platitortvamfin", .F.)
|
|
ADDPROPERTY(loPart, "datatvamfin", "")
|
|
ADDPROPERTY(loPart, "PlatitorTVA", .F.)
|
|
ADDPROPERTY(loPart, "tvaincasare", .T.)
|
|
ADDPROPERTY(loPart, "splittva", .F.)
|
|
ADDPROPERTY(loPart, "inactiv", .F.)
|
|
ADDPROPERTY(loPart, "stare", "ANULAT DIN OFICIU - TEST")
|
|
ADDPROPERTY(loPart, "adresa", "STR TEST NR 1")
|
|
ADDPROPERTY(loPart, "judet", "BUCURESTI")
|
|
ADDPROPERTY(loPart, "regcom", "J40/1/2020")
|
|
ADDPROPERTY(loPart, "codpostal", "")
|
|
ADDPROPERTY(loPart, "telefon", "")
|
|
ADDPROPERTY(loPart, "fax", "")
|
|
ADDPROPERTY(loPart, "eroare", "")
|
|
|
|
gcMockUltimMesaj = ''
|
|
verifica_partener_show_info(m.loPart, 'RO1234567', 'FIRMA UNU SRL', '')
|
|
|
|
IF 'ANAF: FIRMA UNU SRL' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'OK P4a1: prefix sursa "ANAF: " pe linia denumirii'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4a1: prefixul ANAF lipseste din mesaj'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
IF '*** ATENTIE ***' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'OK P4a2: *** ATENTIE *** prezent (atribut RO nepotrivit)'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4a2: *** ATENTIE *** lipseste pentru atribut RO nepotrivit'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
IF '--- TVA ---' $ m.gcMockUltimMesaj AND '--- STARE FIRMA ---' $ m.gcMockUltimMesaj AND '--- IDENTIFICARE ---' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'OK P4a3: cele 3 titluri de sectiune sunt prezente'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4a3: lipseste cel putin un titlu de sectiune - [' + m.gcMockUltimMesaj + ']'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
IF 'Mesaj ANAF: ANULAT DIN OFICIU - TEST' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'OK P4a4: Mesaj ANAF completat cand stare e nevida'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4a4: linia Mesaj ANAF lipseste sau e gresita'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
IF NOT ('Cod postal:' $ m.gcMockUltimMesaj) AND NOT ('Telefon:' $ m.gcMockUltimMesaj) AND NOT ('Fax:' $ m.gcMockUltimMesaj)
|
|
DO WriteTestLog WITH 'OK P4a5: liniile pentru campurile goale (cod postal/telefon/fax) lipsesc'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4a5: cel putin un camp gol si-a pastrat linia - [' + m.gcMockUltimMesaj + ']'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
IF 'Adresa: STR TEST NR 1' $ m.gcMockUltimMesaj AND 'Judet: BUCURESTI' $ m.gcMockUltimMesaj AND 'Reg. comertului: J40/1/2020' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'OK P4a6: campurile completate (adresa/judet/reg. comertului) apar'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4a6: lipseste cel putin un camp completat de identificare'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
|
|
*-- 4b: sursa CACHE cu data, platitor+cod RO potrivite dar INACTIV -> *** ATENTIE *** pt. inactiv,
|
|
*-- fara proprietatile de perioada ANAF (ramura Else din verifica_partener_show_info),
|
|
*-- identificare COMPLETA (toate cele 6 campuri completate)
|
|
loPart = CREATEOBJECT("empty")
|
|
ADDPROPERTY(loPart, "firma", "FIRMA DOI SRL")
|
|
ADDPROPERTY(loPart, "sursa", "CACHE")
|
|
ADDPROPERTY(loPart, "data_sursa", {^2026-08-21})
|
|
ADDPROPERTY(loPart, "platitortvamfin", .T.)
|
|
ADDPROPERTY(loPart, "datatvamfin", "01/01/2015")
|
|
ADDPROPERTY(loPart, "PlatitorTVA", .T.)
|
|
ADDPROPERTY(loPart, "tvaincasare", .F.)
|
|
ADDPROPERTY(loPart, "splittva", .F.)
|
|
ADDPROPERTY(loPart, "inactiv", .T.)
|
|
ADDPROPERTY(loPart, "stare", "")
|
|
ADDPROPERTY(loPart, "adresa", "STR DOI NR 2")
|
|
ADDPROPERTY(loPart, "judet", "CLUJ")
|
|
ADDPROPERTY(loPart, "regcom", "J12/2/2015")
|
|
ADDPROPERTY(loPart, "codpostal", "400000")
|
|
ADDPROPERTY(loPart, "telefon", "0264000000")
|
|
ADDPROPERTY(loPart, "fax", "0264000001")
|
|
ADDPROPERTY(loPart, "eroare", "")
|
|
|
|
gcMockUltimMesaj = ''
|
|
verifica_partener_show_info(m.loPart, 'RO7654321', 'FIRMA DOI SRL', '')
|
|
|
|
IF 'CACHE 21/08/2026: FIRMA DOI SRL' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'OK P4b1: prefix sursa "CACHE dd/mm/yyyy: " pe linia denumirii'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4b1: prefixul CACHE lipseste sau e gresit - [' + m.gcMockUltimMesaj + ']'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
IF '*** ATENTIE ***' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'OK P4b2: *** ATENTIE *** prezent (inactiv)'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4b2: *** ATENTIE *** lipseste pentru partener inactiv'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
IF 'Mesaj ANAF:' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'FAIL P4b3: linia Mesaj ANAF apare desi stare e goala'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ELSE
|
|
DO WriteTestLog WITH 'OK P4b3: linia Mesaj ANAF lipseste cand stare e goala'
|
|
ENDIF
|
|
IF 'Cod postal: 400000' $ m.gcMockUltimMesaj AND 'Telefon: 0264000000' $ m.gcMockUltimMesaj AND 'Fax: 0264000001' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'OK P4b4: identificare completa (cod postal/telefon/fax completate) apare integral'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4b4: lipseste cel putin un camp de identificare completat'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
|
|
*-- 4c: sursa CACHE_INDISP, fara atentie, IDENTIFICARE complet goala -> sectiunea lipseste
|
|
loPart = CREATEOBJECT("empty")
|
|
ADDPROPERTY(loPart, "firma", "FIRMA TREI SRL")
|
|
ADDPROPERTY(loPart, "sursa", "CACHE_INDISP")
|
|
ADDPROPERTY(loPart, "data_sursa", {^2026-08-20})
|
|
ADDPROPERTY(loPart, "platitortvamfin", .T.)
|
|
ADDPROPERTY(loPart, "datatvamfin", "01/01/2015")
|
|
ADDPROPERTY(loPart, "PlatitorTVA", .T.)
|
|
ADDPROPERTY(loPart, "tvaincasare", .F.)
|
|
ADDPROPERTY(loPart, "splittva", .F.)
|
|
ADDPROPERTY(loPart, "inactiv", .F.)
|
|
ADDPROPERTY(loPart, "stare", "")
|
|
ADDPROPERTY(loPart, "adresa", "")
|
|
ADDPROPERTY(loPart, "judet", "")
|
|
ADDPROPERTY(loPart, "regcom", "")
|
|
ADDPROPERTY(loPart, "codpostal", "")
|
|
ADDPROPERTY(loPart, "telefon", "")
|
|
ADDPROPERTY(loPart, "fax", "")
|
|
ADDPROPERTY(loPart, "eroare", "")
|
|
|
|
gcMockUltimMesaj = ''
|
|
verifica_partener_show_info(m.loPart, 'RO1112223', 'FIRMA TREI SRL', '')
|
|
|
|
IF 'CACHE 20/08/2026 (ANAF indisponibil): FIRMA TREI SRL' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'OK P4c1: prefix "CACHE dd/mm/yyyy (ANAF indisponibil): " pe linia denumirii'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4c1: prefixul CACHE_INDISP lipseste sau e gresit - [' + m.gcMockUltimMesaj + ']'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
IF '*** ATENTIE ***' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'FAIL P4c2: *** ATENTIE *** apare desi codul si starea sunt consistente'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ELSE
|
|
DO WriteTestLog WITH 'OK P4c2: *** ATENTIE *** absent cand nu e cazul'
|
|
ENDIF
|
|
IF '--- IDENTIFICARE ---' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'FAIL P4c3: sectiunea IDENTIFICARE apare desi toate campurile ei sunt goale'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ELSE
|
|
DO WriteTestLog WITH 'OK P4c3: sectiunea IDENTIFICARE lipseste cand toate campurile ei sunt goale'
|
|
ENDIF
|
|
IF '--- TVA ---' $ m.gcMockUltimMesaj AND '--- STARE FIRMA ---' $ m.gcMockUltimMesaj
|
|
DO WriteTestLog WITH 'OK P4c4: sectiunile TVA/STARE FIRMA raman prezente'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4c4: lipseste sectiunea TVA sau STARE FIRMA'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
|
|
*-- 4d: fara proprietatea sursa (stil mfinante.ro) -> fara prefix pe linia denumirii
|
|
loPart = CREATEOBJECT("empty")
|
|
ADDPROPERTY(loPart, "firma", "FIRMA PATRU SRL")
|
|
ADDPROPERTY(loPart, "platitortvamfin", .T.)
|
|
ADDPROPERTY(loPart, "datatvamfin", "01/01/2015")
|
|
ADDPROPERTY(loPart, "PlatitorTVA", .T.)
|
|
ADDPROPERTY(loPart, "tvaincasare", .F.)
|
|
ADDPROPERTY(loPart, "splittva", .F.)
|
|
ADDPROPERTY(loPart, "inactiv", .F.)
|
|
ADDPROPERTY(loPart, "stare", "")
|
|
ADDPROPERTY(loPart, "adresa", "")
|
|
ADDPROPERTY(loPart, "judet", "")
|
|
ADDPROPERTY(loPart, "regcom", "")
|
|
ADDPROPERTY(loPart, "codpostal", "")
|
|
ADDPROPERTY(loPart, "telefon", "")
|
|
ADDPROPERTY(loPart, "fax", "")
|
|
ADDPROPERTY(loPart, "eroare", "")
|
|
|
|
gcMockUltimMesaj = ''
|
|
verifica_partener_show_info(m.loPart, 'RO4445556', 'FIRMA PATRU SRL', '')
|
|
|
|
IF 'FIRMA PATRU SRL' $ m.gcMockUltimMesaj AND NOT ('ANAF:' $ m.gcMockUltimMesaj) AND NOT ('CACHE' $ m.gcMockUltimMesaj)
|
|
DO WriteTestLog WITH 'OK P4d: fara proprietatea sursa, linia denumirii nu are niciun prefix'
|
|
ELSE
|
|
DO WriteTestLog WITH 'FAIL P4d: mesajul are un prefix desi obiectul nu are proprietatea sursa'
|
|
gnEsecuri = gnEsecuri + 1
|
|
ENDIF
|
|
|
|
DO WriteTestLog WITH IIF(gnEsecuri = 0, 'TOTAL OK', 'TOTAL FAIL: ' + TRANSFORM(gnEsecuri) + ' pas(i)')
|
|
CATCH TO loEx
|
|
DO WriteTestLog WITH 'EXCEPTIE: ' + loEx.Message + ' (' + TRANSFORM(loEx.LineNo) + ') ' + loEx.Procedure
|
|
DO WriteTestLog WITH 'TOTAL FAIL: exceptie neasteptata'
|
|
ENDTRY
|
|
|
|
QUIT
|
|
|
|
**********************************************************
|
|
PROCEDURE WriteTestLog
|
|
LPARAMETERS tcMsg
|
|
LOCAL lcL
|
|
SET SAFETY OFF
|
|
lcL = IIF(FILE(gcLog), FILETOSTR(gcLog), '')
|
|
STRTOFILE(lcL + TRANSFORM(tcMsg) + CHR(13) + CHR(10), gcLog)
|
|
ENDPROC
|
|
|
|
**********************************************************
|
|
PROCEDURE WriteTestErr
|
|
LPARAMETERS tnError, tcMessage, tcProgram, tnLineNo
|
|
DO WriteTestLog WITH 'EROARE ' + TRANSFORM(tnError) + ' ' + TRANSFORM(tcMessage) + ' in ' + TRANSFORM(tcProgram) + ' linia ' + TRANSFORM(tnLineNo)
|
|
ENDPROC
|