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

sync SVN r18211

Browse Source
This commit is contained in:
Marius Mutu
2026-09-28 09:17:36 +03:00
parent f92e62e959
commit 3767dfc115
2 changed files with 22 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Clase/ointroduceri_cont.vc2
View File

@@ -4669,6 +4669,22 @@ DEFINE CLASS frm_introd_compact2007 AS formtermin OF "..\comun\clase\baza.vcx"
Else
Thisform.calculez(.F.)
ENDIF
IF Type('introdc.clipsa') = 'C'
This.AddProperty('oLipsuri', CreateObject('LipsuriNoteContabile', 'introdc', .T.)) && colorarea verifica mereu analiticul, salvarea ramane pe lVerificaAcont
This.NewObject('lblLipsuri', '_label', '_baza.vcx')
This.lblLipsuri.ForeColor = RGB(0,0,0)
This.lblLipsuri.BackStyle = 1
This.lblLipsuri.BackColor = RGB(255,205,205)
This.lblLipsuri.FontBold = .T.
This.lblLipsuri.MousePointer = 15
This.lblLipsuri.Visible = .F.
This.lblLipsuri.AutoSize = .T.
This.lblLipsuri.Top = 10
This.lblLipsuri.Anchor = 8
Bindevent(This.lblLipsuri, 'Click', This.oLipsuri, 'SaltUrmatoare')
This.oLipsuri.Coloreaza(This.Gridb1)
This.oLipsuri.Verifica(This)
ENDIF
GO TOP IN introdc
ENDPROC
@@ -4902,6 +4918,9 @@ DEFINE CLASS frm_introd_compact2007 AS formtermin OF "..\comun\clase\baza.vcx"
PROCEDURE Gridb1.AfterRowColChange
LPARAMETERS nColIndex
IF Type('Thisform.oLipsuri') = 'O'
Thisform.oLipsuri.Verifica(Thisform)
ENDIF
*!* SELECT introdc
*!* IF LEFT(scd,1) = '6' OR LEFT(scc,1) = '7'