TODO 21: perioade TVA la verificarea codurilor fiscale + diacritice ANAF
- 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
This commit is contained in:
27
utile/Teste/todo21/mock_meniu_dblclick_deps.prg
Normal file
27
utile/Teste/todo21/mock_meniu_dblclick_deps.prg
Normal file
@@ -0,0 +1,27 @@
|
||||
* 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
|
||||
Reference in New Issue
Block a user