romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cache ANAF: ordine explicita pe rapoartele de incasari, changelog 2.11.68-2.11.69

Browse Source 
- Programe/orapoarte.prg:1994 - verificarea split TVA pe o data din trecut
  cere explicit ordinea MASA (cache intai); :2312 - varianta pe data curenta
  cere UNIC (ANAF intai, cache-ul ramane plasa de siguranta).
- changelog_roacont.txt - intrarile 2.11.68 si 2.11.69.
- versiune_db.txt - 2026_08_01_02.
- CLAUDE.md - regula de continut pentru changelog si stilul de raspuns cerut.
- TODOS.md - amanarile din review-ul transei cache ANAF, P4 marcat preluat.
- roacont.pj2 - resincronizat cu git_sync.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01JCzVWfqscv1xyo5uvJiWiW
This commit is contained in:
Marius Mutu
2026-08-02 01:32:00 +03:00
parent 265ba78b0a
commit ea977c7bfc
6 changed files with 155 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Programe/orapoarte.prg
View File

@@ -1991,9 +1991,10 @@ select *
Use In (Select('cIncasariBanca2'))
*** Verific pe ANAF starea split tva la data curenta
*!* 31.07.2026 marius.mutu: ordine explicita MASA (CACHE,ANAF) - corect pentru data trecuta pdDataI
SELECT distinct cod_fiscal FROM cFacturiTVA INTO CURSOR cCodFiscalTemp
loVerificareANAF = CREATEOBJECT("VerificareANAF")
loVerificareANAF.VerificaListaCIF("cCodFiscalTemp", m.pdDataI, "crsANAF")
loVerificareANAF.VerificaListaCIF("cCodFiscalTemp", m.pdDataI, "crsANAF", "MASA")
USE IN (SELECT('cCodFiscalTemp'))
IF USED("crsAnaf")
*!* crsANAF (cui N(13), data D, denumire V(100), firma V(100), adresa C(244), scpTVA L, data_inceput_ScpTVA D, data_sfarsit_ScpTVA D, data_anul_imp_ScpTVA D, mesaj_ScpTVA C(244), ;
@@ -2308,9 +2309,10 @@ select *
Use In (Select('cIncasariBanca2'))
*** Verific pe ANAF starea split tva la data curenta
*!* 31.07.2026 marius.mutu: ordine explicita UNIC (ANAF intai) - starea de azi, cache-ul ramane plasa de siguranta
SELECT distinct cod_fiscal FROM cFacturiTVA INTO CURSOR cCodFiscalTemp
loVerificareANAF = CREATEOBJECT("VerificareANAF")
loVerificareANAF.VerificaListaCIF("cCodFiscalTemp", Date(), "crsANAF")
loVerificareANAF.VerificaListaCIF("cCodFiscalTemp", Date(), "crsANAF", "UNIC")
USE IN (SELECT('cCodFiscalTemp'))
IF USED("crsAnaf")
*!* crsANAF (cui N(13), data D, denumire V(100), firma V(100), adresa C(244), scpTVA L, data_inceput_ScpTVA D, data_sfarsit_ScpTVA D, data_anul_imp_ScpTVA D, mesaj_ScpTVA C(244), ;