sync SVN r18185

This commit is contained in:
2026-09-19 18:02:07 +03:00
parent 0f6b97ef32
commit 9a8d1f41db
4 changed files with 32 additions and 8 deletions

View File

@@ -213,8 +213,8 @@ codebase unless told otherwise.
## Reguli de lucru si testare ## Reguli de lucru si testare
**Inainte de orice modificare de cod sau testare, citeste `COMUN\docs\reguli_lucru.md`.** **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 Nu e optional si nu e doar context: contine regulile de livrare (diff ca fisier, write-back si teste imediat, aprobare
inainte de write-back), comentariile (max o linie), modificarile minime, harnessul de testare 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 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`, 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. 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. agatate), decizii si verificari.
- **Fara commit fara review**: nu da commit (git sau svn) din proprie initiativa pe modificari de - **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 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 (`.vcx`/`.scx`), diff-ul lizibil se face pe forma text `.vc2`/`.sc2`. Write-back-ul cu
`git_sync.ps1`, inainte de write-back cu `txt2vcx.ps1`. `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 ## Stil de raspuns: scurt si concret

View File

@@ -1714,9 +1714,11 @@ DEFINE CLASS form1 AS form
Append From Dbf('actactan') Append From Dbf('actactan')
ENDIF 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 ; From actactan_temp a Left Join crsExplicatiiTVATemp b On a.id_jtva_coloana = b.id_jtva_coloana ;
Into Cursor tact Readwrite 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') IF Used('cIstoricMarcaj')
Select tact Select tact

View File

@@ -1520,6 +1520,9 @@ Procedure AplicaDefalcareBuget
If m.lnPoz > 1 If m.lnPoz > 1
Append Blank Append Blank
Gather Memo Name loR Gather Memo Name loR
If Type('loR.nordine') = 'N'
Replace nordine With loR.nordine + m.lnPoz - 1
Endif
Endif Endif
Replace scd With Alltrim(cDefalcare.cont), ascd With Alltrim(cDefalcare.acont), ; 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' suma With cDefalcare.suma, ngrupa With m.lnGrupa, npoz With m.lnPoz, csursa_f With 'B'
@@ -1531,6 +1534,25 @@ Procedure AplicaDefalcareBuget
Endif Endif
Select cDefalcare Select cDefalcare
Endscan 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 Endproc

View File

@@ -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. 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: Modificare note contabile. Campurile de completat sunt marcate cu rosu inca de la deschidere; "Completeaza: N" duce la randul urmator.
Import extrase bancare. Inchiderea ferestrei de alegere a documentului pereche fara a alege nimic nu mai marcheaza randul ca ales manual (M).
--> -->
<!-- <!--