Marius Mutu
2b695b3656
- validare.prg: cele 7 campuri de perioada (inregistrare TVA, TVA la incasare, inactivare/reactivare) duse din raspunsul ANAF pana in cVerificareCod - validare.prg: AnafDecodeResponseText - raspunsul HTTP se citeste din responseBody prin ADODB.Stream cu Charset utf-8, cu cadere inapoi pe comportamentul vechi; repara diacriticele pierdute la marshalling-ul COM al lui responseText - oproceduri_comune.prg: perioadele in mesajul de detalii; fix id_part N(16), data D in crsXMLParteneriVerificare (Insert Into esua tacit, lista ramanea goala) - overificari.vc2: 7 coloane noi in grid, dublu-click pe Denumire/Cod fiscal deschide fisa partenerului, captionuri corectate in "inregistrare TVA" - oparteneri / ofacturare_comun / onomenclatoare: id_part in SELECT-urile care alimenteaza verificarea - teste headless noi: utile/Teste/test_todo21_perioade_anaf.prg, utile/Teste/todo21/ Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01GztNyTRxjHqBg5kyNMmcy1
28 lines
1.1 KiB
Plaintext
28 lines
1.1 KiB
Plaintext
* mock_meniu_dblclick_deps.prg - inlocuieste nom_parteneri_modifica (COMUN\programe\onomenclatoare.prg)
|
|
* si VerificaCodFiscal (COMUN\programe\oproceduri_comune.prg) in testele banda C (dublu-click in
|
|
* grid-ul de verificare coduri fiscale), ca sa nu deschida formulare modale reale. Ambele proceduri
|
|
* sunt definite in fisiere DIFERITE de overificari.vc2 (apelantul), deci mock-ul castiga normal
|
|
* daca e incarcat cu SET PROCEDURE ... ADDITIVE INAINTE de test_init_env_auto.
|
|
* Apelurile se numara in variabile PUBLIC (declarate si initializate de test inainte de fiecare pas):
|
|
* gnMockNomModCount / gnMockNomModId (nom_parteneri_modifica) si gnMockVerifCodCount (VerificaCodFiscal).
|
|
|
|
PROCEDURE nom_parteneri_modifica
|
|
LPARAMETERS tnId_Part, tnIdTipPart, tcTipPart, tnSpecial, tcMesaj
|
|
IF TYPE('gnMockNomModCount') = 'N'
|
|
gnMockNomModCount = gnMockNomModCount + 1
|
|
ENDIF
|
|
IF TYPE('gnMockNomModId') = 'N'
|
|
gnMockNomModId = tnId_Part
|
|
ENDIF
|
|
RETURN NULL
|
|
ENDPROC
|
|
|
|
PROCEDURE VerificaCodFiscal
|
|
LPARAMETERS toDate, lnOptiune, loPartener
|
|
IF TYPE('gnMockVerifCodCount') = 'N'
|
|
gnMockVerifCodCount = gnMockVerifCodCount + 1
|
|
ENDIF
|
|
loPartener = NULL
|
|
RETURN 7
|
|
ENDPROC
|