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

sync SVN r18188

Browse Source
This commit is contained in:
Marius Mutu
2026-09-19 23:45:23 +03:00
parent d0c1174829
commit 43d5a93572
13 changed files with 23 additions and 1446 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
clase/omodificari.vc2
View File

@@ -15835,7 +15835,8 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
*!* 19.09.2026
*!* marius.mutu
*!* verificare silentioasa (fara mesaje, fara efecte pe date) a campurilor lipsa; la primul apel incarca local cache-ul conturi/analitic (crsLipsuriCfg/crsLipsuriPlcont), fara Oracle la fiecare schimbare de rand; repozitioneaza pe randul curent si reactualizeaza eticheta/grid-ul
LOCAL lnRecTact, lcSql, lnSucces
LPARAMETERS tlRandCurent
LOCAL lnRecTact, lcSql, lnSucces, lcClipsaVechi
IF !Used('tact') OR Type('tact.clipsa') <> 'C' OR Inlist(This.nid_set, 99998, 90024)
RETURN
ENDIF
@@ -15857,12 +15858,15 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
ENDIF
ENDIF
lnRecTact = Recno('tact')
verificare_note_contabile('tact', .T., .F., .F., .T.)
lcClipsaVechi = tact.clipsa
verificare_note_contabile('tact', .T., .F., .F., .T., IIF(m.tlRandCurent, m.lnRecTact, 0))
IF Between(m.lnRecTact, 1, Reccount('tact'))
GO (m.lnRecTact) IN tact
ENDIF
This.ActualizeazaLabelLipsuri()
This.Grid1.Refresh()
IF !m.tlRandCurent OR !(tact.clipsa == m.lcClipsaVechi) && pe un rand, refresh doar daca s-a schimbat marcajul
This.ActualizeazaLabelLipsuri()
This.Grid1.Refresh()
ENDIF
ENDPROC
PROCEDURE But_modificaR.Click
@@ -16066,19 +16070,22 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
*!* 19.09.2026
*!* marius.mutu
*!* reverificare silentioasa a lipsurilor la schimbarea randului, doar daca randul parasit e nou sau a fost modificat
LOCAL lnRecNouLipsuri, lcSemnVeche
LOCAL lnRecNouLipsuri, lcSemnVeche, llLockLipsuri
lnRecNouLipsuri = Recno('tact')
IF m.lnRecNouLipsuri <> Thisform.nRecLipsuri
llLockLipsuri = Thisform.LockScreen
Thisform.LockScreen = .T.
IF Between(Thisform.nRecLipsuri, 1, Reccount('tact'))
GO (Thisform.nRecLipsuri) IN tact
lcSemnVeche = Transform(tact.scd) + '|' + Transform(tact.scc) + '|' + Transform(tact.ascd) + '|' + Transform(tact.ascc) + '|' + Transform(tact.id_partd) + '|' + Transform(tact.id_partc) + '|' + Transform(tact.pereched) + '|' + Transform(tact.perechec) + '|' + Transform(tact.nract) + '|' + Transform(tact.suma) + '|' + Transform(tact.id_valuta) + '|' + Transform(tact.id_jtva_coloana)
IF m.lcSemnVeche <> Thisform.cSemnLipsuri
Thisform.VerificaLipsuriSilentios()
Thisform.VerificaLipsuriSilentios(.T.)
ENDIF
GO (m.lnRecNouLipsuri) IN tact
ENDIF
Thisform.nRecLipsuri = m.lnRecNouLipsuri
Thisform.cSemnLipsuri = Transform(tact.scd) + '|' + Transform(tact.scc) + '|' + Transform(tact.ascd) + '|' + Transform(tact.ascc) + '|' + Transform(tact.id_partd) + '|' + Transform(tact.id_partc) + '|' + Transform(tact.pereched) + '|' + Transform(tact.perechec) + '|' + Transform(tact.nract) + '|' + Transform(tact.suma) + '|' + Transform(tact.id_valuta) + '|' + Transform(tact.id_jtva_coloana)
Thisform.LockScreen = m.llLockLipsuri
ENDIF
ENDIF