From 9a8d1f41dbe944f2b7d5e20fef5069d1ca53716c Mon Sep 17 00:00:00 2001 From: Marius Mutu Date: Sat, 19 Sep 2026 18:02:07 +0300 Subject: [PATCH] sync SVN r18185 --- CLAUDE.md | 9 +++++---- Ferestre/frm_import_extrase_banca.sc2 | 4 +++- Programe/oproceduri_import.prg | 22 ++++++++++++++++++++++ changelog_roacont.txt | 5 ++--- 4 files changed, 32 insertions(+), 8 deletions(-) diff --git a/CLAUDE.md b/CLAUDE.md index ee099a1..d4996aa 100644 --- a/CLAUDE.md +++ b/CLAUDE.md @@ -213,8 +213,8 @@ codebase unless told otherwise. ## Reguli de lucru si testare **Inainte de orice modificare de cod sau testare, citeste `COMUN\docs\reguli_lucru.md`.** -Nu e optional si nu e doar context: contine regulile de livrare (diff ca fisier + aprobare -inainte de write-back), comentariile (max o linie), modificarile minime, harnessul de testare +Nu e optional si nu e doar context: contine regulile de livrare (diff ca fisier, write-back si teste imediat, aprobare +inainte de commit), comentariile (max o linie), modificarile minime, harnessul de testare headless si — la punctul 7 — lista de conventii obligatorii per zona atinsa (encoding cp1252 la editarea `.vc2`/`.sc2`, UX formulare/griduri, `GO` pe `Recno()`, `goExecutor` + `ALTER TABLE`, testare UI, export Oracle). Fisierul e index: urmeaza linkurile relevante pentru sarcina curenta. @@ -237,8 +237,9 @@ Preferintele lui Marius pentru sesiunile pe acest proiect: agatate), decizii si verificari. - **Fara commit fara review**: nu da commit (git sau svn) din proprie initiativa pe modificari de cod — Marius vrea intai sa **vada diff-ul**, ca fisier in `docs/`. Pentru binarele VFP - (`.vcx`/`.scx`), diff-ul lizibil se face pe forma text `.vc2`/`.sc2` regenerata cu - `git_sync.ps1`, inainte de write-back cu `txt2vcx.ps1`. + (`.vcx`/`.scx`), diff-ul lizibil se face pe forma text `.vc2`/`.sc2`. Write-back-ul cu + `txt2vcx.ps1` si testele se fac imediat dupa editare; doar commit-ul asteapta aprobarea + diff-ului (regula 1 din `COMUN\docs\reguli_lucru.md`). ## Stil de raspuns: scurt si concret diff --git a/Ferestre/frm_import_extrase_banca.sc2 b/Ferestre/frm_import_extrase_banca.sc2 index 609812e..aec8787 100644 --- a/Ferestre/frm_import_extrase_banca.sc2 +++ b/Ferestre/frm_import_extrase_banca.sc2 @@ -1714,9 +1714,11 @@ DEFINE CLASS form1 AS form Append From Dbf('actactan') ENDIF - Select .F. As ales, a.explicatia4 As iban, Iif(!Empty(Nvl(a.id_jtva_coloana, 0)), 1, 0) As Cu_tva, Cast(0 As N(2)) As tipnota, .F. As listoric, .F. As dublura, Cast(0 As I) As ngrupa, Cast(0 As I) As npoz, Space(1) As csursa_f, Space(3) As cbuget, a.*, b.denumire As explicatie_tva_2 ; + Select .F. As ales, a.explicatia4 As iban, Iif(!Empty(Nvl(a.id_jtva_coloana, 0)), 1, 0) As Cu_tva, Cast(0 As N(2)) As tipnota, .F. As listoric, .F. As dublura, Cast(0 As I) As ngrupa, Cast(0 As I) As npoz, Space(1) As csursa_f, Space(3) As cbuget, Cast(0 As I) As nordine, a.*, b.denumire As explicatie_tva_2 ; From actactan_temp a Left Join crsExplicatiiTVATemp b On a.id_jtva_coloana = b.id_jtva_coloana ; Into Cursor tact Readwrite + Select tact + Replace All nordine With Recno() * 100 && ordinea de afisare; grupurile defalcate/imperecheate se intercaleaza intre sute IF Used('cIstoricMarcaj') Select tact diff --git a/Programe/oproceduri_import.prg b/Programe/oproceduri_import.prg index 0d8c603..2b819eb 100644 --- a/Programe/oproceduri_import.prg +++ b/Programe/oproceduri_import.prg @@ -1520,6 +1520,9 @@ Procedure AplicaDefalcareBuget If m.lnPoz > 1 Append Blank Gather Memo Name loR + If Type('loR.nordine') = 'N' + Replace nordine With loR.nordine + m.lnPoz - 1 + Endif Endif Replace scd With Alltrim(cDefalcare.cont), ascd With Alltrim(cDefalcare.acont), ; suma With cDefalcare.suma, ngrupa With m.lnGrupa, npoz With m.lnPoz, csursa_f With 'B' @@ -1531,6 +1534,25 @@ Procedure AplicaDefalcareBuget Endif Select cDefalcare Endscan + OrdoneazaTactDupaNordine() +Endproc + +* -------------------------------------------------------------------- +* Reface ordinea de afisare a tact pe nordine, fara sa schimbe Recno() - randurile unui grup ramin alaturate +* -------------------------------------------------------------------- +Procedure OrdoneazaTactDupaNordine + Lparameters tcAlias + Local lcAlias, lcSelect + + lcAlias = Evl(m.tcAlias, 'tact') + If !Used(m.lcAlias) Or Type(m.lcAlias + '.nordine') <> 'N' + Return + Endif + lcSelect = Select() + Select (m.lcAlias) + Index On Iif(nordine = 0, 2147483647, nordine) Tag ordtact Additive && randurile noi fara nordine raman la sfarsit + Set Order To Tag ordtact + Select (m.lcSelect) Endproc diff --git a/changelog_roacont.txt b/changelog_roacont.txt index ab7bf40..ac86ef0 100644 --- a/changelog_roacont.txt +++ b/changelog_roacont.txt @@ -7,10 +7,9 @@ ROACONT - 2.11.81 Import extrase bancare. Factura pereche se identifica si dupa numere de factura din 2 cifre. - Import extrase bancare. Platile la buget de defalcat au aceeasi culoare in grid, pe eticheta "Plati la buget de defalcat" si pe butonul "Defalcare buget". + Import extrase bancare. Platile catre Trezorerie (TVA, CAM, CU) sunt marcate in lista; "Buget: N" duce la urmatoarea, "Defalcare buget" o imparte pe analitice. -:eroare: - Import extrase bancare. Inchiderea ferestrei de alegere a documentului pereche fara a alege nimic nu mai marcheaza randul ca ales manual (M). + Modificare note contabile. Campurile de completat sunt marcate cu rosu inca de la deschidere; "Completeaza: N" duce la randul urmator. -->