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

TODO 21: perioade TVA la verificarea codurilor fiscale + diacritice ANAF

Browse Source 
- 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:
Marius Mutu
2026-08-22 18:26:17 +03:00
parent 02f4c9ec94
commit 2b695b3656
11 changed files with 1011 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
clase/ofacturare_comun.vc2
View File

@@ -4897,7 +4897,7 @@ DEFINE CLASS frm_facturi AS _frmbase OF "_frm_base.vcx"
lcFilter = Filter("crsFacturi")
lcWhere = Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")
IF m.lnOptiune = 1
Select distinct cod_fiscal, data_act as data, client as denumire, adresa_facturare as adresa_roa, IIF(LEFT(UPPER(cod_fiscal), 2) = "RO", "RO", " ") AS ATRIBUT_FISCAL, .T. AS IsCIF, .F. AS codvalid ;
Select distinct id_part, cod_fiscal, data_act as data, client as denumire, adresa_facturare as adresa_roa, IIF(LEFT(UPPER(cod_fiscal), 2) = "RO", "RO", " ") AS ATRIBUT_FISCAL, .T. AS IsCIF, .F. AS codvalid ;
From crsFacturi ;
Where &lcWhere ;
Into Cursor crsCoduriFiscale ;
@@ -4909,7 +4909,7 @@ DEFINE CLASS frm_facturi AS _frmbase OF "_frm_base.vcx"
ldData = GOMONTH(m.ldData,1) - 1
ENDIF
Select distinct cod_fiscal, m.ldData as data, client as denumire, adresa_facturare as adresa_roa, IIF(LEFT(UPPER(cod_fiscal), 2) = "RO", "RO", " ") AS ATRIBUT_FISCAL, .T. AS IsCIF, .F. AS codvalid ;
Select distinct id_part, cod_fiscal, m.ldData as data, client as denumire, adresa_facturare as adresa_roa, IIF(LEFT(UPPER(cod_fiscal), 2) = "RO", "RO", " ") AS ATRIBUT_FISCAL, .T. AS IsCIF, .F. AS codvalid ;
From crsFacturi ;
Where &lcWhere ;
Into Cursor crsCoduriFiscale ;