Marius Mutu
77e98d73e9
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
1319 lines
33 KiB
Plaintext
1319 lines
33 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="afisbalx.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS dataenvironment AS dataenvironment
|
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
|
|
|
*<PropValue>
|
|
Height = 200
|
|
Left = 45
|
|
Name = "Dataenvironment"
|
|
Top = 86
|
|
Width = 520
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column1.header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column9.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdlist3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdlist4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdlist5" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: afisactual
|
|
*m: butapend
|
|
*m: butdrept
|
|
*m: fisacont
|
|
*m: rulcred
|
|
*m: ruldeb
|
|
*m: ruldebcred
|
|
*m: totcred
|
|
*m: totdeb
|
|
*m: totdebcred
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 503
|
|
Name = "Ffergen1"
|
|
Width = 793
|
|
WindowType = 1
|
|
Line1.Left = -4
|
|
Line1.Name = "Line1"
|
|
Line1.Top = 475
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
|
|
Left = 648, ;
|
|
Name = "Cmdlist1", ;
|
|
Top = 564, ;
|
|
Visible = .F., ;
|
|
Width = 98
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Cmdlist3' AS cmdlist WITH ;
|
|
Caption = "", ;
|
|
DownPicture = , ;
|
|
FontName = "Arial Black", ;
|
|
FontSize = 20, ;
|
|
ForeColor = 255,255,0, ;
|
|
Left = 689, ;
|
|
Name = "Cmdlist3", ;
|
|
Picture = ..\grafice\new.bmp, ;
|
|
ToolTipText = "Linie noua", ;
|
|
Top = 300
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Cmdlist4' AS cmdlist WITH ;
|
|
Caption = "", ;
|
|
DownPicture = ..\grafice\delete.bmp, ;
|
|
Left = 689, ;
|
|
Name = "Cmdlist4", ;
|
|
Picture = ..\grafice\delete.bmp, ;
|
|
ToolTipText = "Stergerea liniei selectate", ;
|
|
Top = 333
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Cmdlist5' AS cmdlist WITH ;
|
|
Caption = "+", ;
|
|
DownPicture = , ;
|
|
FontName = "Arial Black", ;
|
|
FontSize = 20, ;
|
|
ForeColor = 0,64,128, ;
|
|
Left = 689, ;
|
|
Name = "Cmdlist5", ;
|
|
ToolTipText = "Recalculare sume", ;
|
|
Top = 367
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
|
Height = 27, ;
|
|
Left = 689, ;
|
|
Name = "Cmdtermin1", ;
|
|
TabIndex = 2, ;
|
|
Top = 428, ;
|
|
Width = 98, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command3' AS commandbutton WITH ;
|
|
Caption = "\<Verific Conturi", ;
|
|
Height = 27, ;
|
|
Left = 648, ;
|
|
Name = "Command3", ;
|
|
TabIndex = 4, ;
|
|
Top = 495, ;
|
|
Visible = .F., ;
|
|
Width = 98, ;
|
|
ZOrderSet = 22
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command4' AS commandbutton WITH ;
|
|
Caption = "\<Refac Balanta", ;
|
|
Height = 27, ;
|
|
Left = 648, ;
|
|
Name = "Command4", ;
|
|
TabIndex = 4, ;
|
|
Top = 530, ;
|
|
Visible = .F., ;
|
|
Width = 98, ;
|
|
ZOrderSet = 23
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
BackColor = 254,255,240, ;
|
|
ColumnCount = 10, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
GridLineColor = 128,128,128, ;
|
|
Height = 379, ;
|
|
Left = 5, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .F., ;
|
|
RowHeight = 19, ;
|
|
TabIndex = 1, ;
|
|
Top = 17, ;
|
|
Width = 672, ;
|
|
ZOrderSet = 9, ;
|
|
Column1.Alignment = 0, ;
|
|
Column1.BackColor = 226,226,226, ;
|
|
Column1.ColumnOrder = 1, ;
|
|
Column1.ControlSource = "bal.cont", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.FontSize = 9, ;
|
|
Column1.Format = "", ;
|
|
Column1.InputMask = "", ;
|
|
Column1.Name = "Column1", ;
|
|
Column1.ReadOnly = .F., ;
|
|
Column1.Width = 26, ;
|
|
Column2.Alignment = 0, ;
|
|
Column2.BackColor = 226,226,226, ;
|
|
Column2.ColumnOrder = 2, ;
|
|
Column2.ControlSource = "bal.denumire", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.FontSize = 9, ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .F., ;
|
|
Column2.Width = 68, ;
|
|
Column3.Alignment = 1, ;
|
|
Column3.BackColor = 249,233,217, ;
|
|
Column3.ColumnOrder = 3, ;
|
|
Column3.ControlSource = "bal.precdeb", ;
|
|
Column3.DynamicForeColor = "IIF(PRECDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.FontSize = 9, ;
|
|
Column3.Format = "r", ;
|
|
Column3.InputMask = "999 999 999 999", ;
|
|
Column3.Name = "Column3", ;
|
|
Column3.ReadOnly = .F., ;
|
|
Column3.Width = 63, ;
|
|
Column4.Alignment = 1, ;
|
|
Column4.BackColor = 249,233,217, ;
|
|
Column4.ColumnOrder = 4, ;
|
|
Column4.ControlSource = "bal.preccred", ;
|
|
Column4.DynamicForeColor = "IIF(PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.FontSize = 9, ;
|
|
Column4.Format = "r", ;
|
|
Column4.InputMask = "999 999 999 999", ;
|
|
Column4.Name = "Column4", ;
|
|
Column4.ReadOnly = .F., ;
|
|
Column4.Width = 66, ;
|
|
Column5.Alignment = 1, ;
|
|
Column5.BackColor = 236,242,241, ;
|
|
Column5.ColumnOrder = 5, ;
|
|
Column5.ControlSource = "bal.ruldeb", ;
|
|
Column5.DynamicForeColor = "IIF(RULDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.FontSize = 9, ;
|
|
Column5.Format = "R", ;
|
|
Column5.InputMask = "999 999 999 999", ;
|
|
Column5.Name = "Column5", ;
|
|
Column5.ReadOnly = .F., ;
|
|
Column5.Width = 64, ;
|
|
Column6.Alignment = 1, ;
|
|
Column6.BackColor = 236,242,241, ;
|
|
Column6.ColumnOrder = 6, ;
|
|
Column6.ControlSource = "bal.rulcred", ;
|
|
Column6.DynamicForeColor = "IIF(RULCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.FontSize = 9, ;
|
|
Column6.Format = "R", ;
|
|
Column6.InputMask = "999 999 999 999", ;
|
|
Column6.Name = "Column6", ;
|
|
Column6.ReadOnly = .F., ;
|
|
Column6.Width = 69, ;
|
|
Column7.Alignment = 1, ;
|
|
Column7.BackColor = 249,233,217, ;
|
|
Column7.ColumnOrder = 7, ;
|
|
Column7.ControlSource = "bal.totdeb", ;
|
|
Column7.DynamicForeColor = "IIF(TOTDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.FontSize = 9, ;
|
|
Column7.Format = "r", ;
|
|
Column7.InputMask = "999 999 999 999", ;
|
|
Column7.Name = "Column7", ;
|
|
Column7.ReadOnly = .F., ;
|
|
Column7.Width = 75, ;
|
|
Column8.Alignment = 1, ;
|
|
Column8.BackColor = 249,233,217, ;
|
|
Column8.ColumnOrder = 8, ;
|
|
Column8.ControlSource = "bal.totcred", ;
|
|
Column8.DynamicForeColor = "IIF(TOTCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.FontSize = 9, ;
|
|
Column8.Format = "r", ;
|
|
Column8.InputMask = "999 999 999 999", ;
|
|
Column8.Name = "Column8", ;
|
|
Column8.ReadOnly = .F., ;
|
|
Column8.Width = 70, ;
|
|
Column9.Alignment = 1, ;
|
|
Column9.BackColor = 236,242,241, ;
|
|
Column9.ColumnOrder = 10, ;
|
|
Column9.ControlSource = "bal.soldcred", ;
|
|
Column9.DynamicForeColor = "IIF(SOLDCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.FontSize = 9, ;
|
|
Column9.Format = "r", ;
|
|
Column9.InputMask = "999 999 999 999", ;
|
|
Column9.Name = "Column10", ;
|
|
Column9.ReadOnly = .F., ;
|
|
Column9.Width = 70, ;
|
|
Column10.Alignment = 1, ;
|
|
Column10.BackColor = 236,242,241, ;
|
|
Column10.ColumnOrder = 9, ;
|
|
Column10.ControlSource = "bal.solddeb", ;
|
|
Column10.DynamicForeColor = "IIF(SOLDDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.FontSize = 9, ;
|
|
Column10.Format = "r", ;
|
|
Column10.InputMask = "999 999 999 999", ;
|
|
Column10.Name = "Column9", ;
|
|
Column10.ReadOnly = .F., ;
|
|
Column10.Width = 66
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 226,226,226, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold Credit", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,242,241, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Denumire", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header2"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 226,226,226, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Prec.Debit", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header3"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 249,233,217, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Prec.Credit", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header4"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 249,233,217, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Rul.Debit", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header5"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,242,241, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
|
|
Alignment = 2, ;
|
|
BackColor = 192,192,192, ;
|
|
Caption = "Rul.Credit", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header6"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,242,241, ;
|
|
BorderColor = 0,0,0, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Total Debit", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header7"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 249,233,217, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Total Credit", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header8"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 249,233,217, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column9.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold Debit", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,242,241, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Caption = "Editare", ;
|
|
Height = 17, ;
|
|
Left = 692, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 13, ;
|
|
Top = 276, ;
|
|
Width = 40, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label10' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .F., ;
|
|
Caption = "BALANTA DE VERIFICARE", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 18, ;
|
|
Left = 5, ;
|
|
Name = "Label10", ;
|
|
TabIndex = 21, ;
|
|
Top = 0, ;
|
|
Width = 271, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label11' AS label WITH ;
|
|
Caption = "Debit", ;
|
|
Height = 17, ;
|
|
Left = 367, ;
|
|
Name = "Label11", ;
|
|
TabIndex = 20, ;
|
|
Top = 431, ;
|
|
Width = 35, ;
|
|
ZOrderSet = 28
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label12' AS label WITH ;
|
|
Caption = "Credit", ;
|
|
Height = 17, ;
|
|
Left = 367, ;
|
|
Name = "Label12", ;
|
|
TabIndex = 20, ;
|
|
Top = 453, ;
|
|
Width = 35, ;
|
|
ZOrderSet = 29
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label13' AS label WITH ;
|
|
Caption = "Debit", ;
|
|
Height = 17, ;
|
|
Left = 537, ;
|
|
Name = "Label13", ;
|
|
TabIndex = 20, ;
|
|
Top = 429, ;
|
|
Width = 35, ;
|
|
ZOrderSet = 30
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label14' AS label WITH ;
|
|
Caption = "Credit", ;
|
|
Height = 17, ;
|
|
Left = 537, ;
|
|
Name = "Label14", ;
|
|
TabIndex = 20, ;
|
|
Top = 451, ;
|
|
Width = 35, ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label15' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
Caption = "Afisare", ;
|
|
Height = 17, ;
|
|
Left = 692, ;
|
|
Name = "Label15", ;
|
|
TabIndex = 13, ;
|
|
Top = 108, ;
|
|
Visible = .F., ;
|
|
Width = 40, ;
|
|
ZOrderSet = 35
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
Caption = "Rulaje", ;
|
|
Height = 17, ;
|
|
Left = 244, ;
|
|
Name = "Label2", ;
|
|
Top = 409, ;
|
|
Width = 40, ;
|
|
ZOrderSet = 32
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
Caption = "Credit", ;
|
|
Height = 17, ;
|
|
Left = 26, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 20, ;
|
|
Top = 453, ;
|
|
Width = 35, ;
|
|
ZOrderSet = 21
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
Caption = "Total sume", ;
|
|
Height = 17, ;
|
|
Left = 394, ;
|
|
Name = "Label4", ;
|
|
Top = 409, ;
|
|
Width = 72, ;
|
|
ZOrderSet = 33
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
Caption = "Solduri", ;
|
|
Height = 17, ;
|
|
Left = 572, ;
|
|
Name = "Label5", ;
|
|
Top = 409, ;
|
|
Width = 40, ;
|
|
ZOrderSet = 34
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label6' AS label WITH ;
|
|
Caption = "Debit", ;
|
|
Height = 17, ;
|
|
Left = 202, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 20, ;
|
|
Top = 430, ;
|
|
Width = 35, ;
|
|
ZOrderSet = 26
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label7' AS label WITH ;
|
|
Caption = "Credit", ;
|
|
Height = 17, ;
|
|
Left = 202, ;
|
|
Name = "Label7", ;
|
|
TabIndex = 20, ;
|
|
Top = 452, ;
|
|
Width = 35, ;
|
|
ZOrderSet = 27
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label8' AS label WITH ;
|
|
Caption = "Total sume precedente", ;
|
|
Height = 17, ;
|
|
Left = 26, ;
|
|
Name = "Label8", ;
|
|
TabIndex = 19, ;
|
|
Top = 409, ;
|
|
Width = 132, ;
|
|
ZOrderSet = 18
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label9' AS label WITH ;
|
|
Caption = "Debit", ;
|
|
Height = 17, ;
|
|
Left = 26, ;
|
|
Name = "Label9", ;
|
|
TabIndex = 20, ;
|
|
Top = 431, ;
|
|
Width = 35, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
|
|
Left = 716, ;
|
|
Name = "oMenuShortcut", ;
|
|
TabIndex = 0, ;
|
|
Top = 48
|
|
*< END OBJECT: ClassLib="..\clase\utility.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
|
|
ButtonCount = 5, ;
|
|
ControlSource = "", ;
|
|
Height = 120, ;
|
|
Left = 684, ;
|
|
Name = "Optiongroup1", ;
|
|
Top = 115, ;
|
|
Value = 1, ;
|
|
Visible = .F., ;
|
|
Width = 108, ;
|
|
ZOrderSet = 1, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "\<Balanta", ;
|
|
Option1.ControlSource = "", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 5, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 17, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 60, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "\<Rulaj Debit", ;
|
|
Option2.ControlSource = "", ;
|
|
Option2.Enabled = .F., ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 5, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 36, ;
|
|
Option2.Width = 79, ;
|
|
Option3.AutoSize = .T., ;
|
|
Option3.Caption = "R\<ulaj Credit", ;
|
|
Option3.ControlSource = "", ;
|
|
Option3.Enabled = .F., ;
|
|
Option3.Height = 17, ;
|
|
Option3.Left = 5, ;
|
|
Option3.Name = "Option3", ;
|
|
Option3.Top = 55, ;
|
|
Option3.Width = 83, ;
|
|
Option4.AutoSize = .T., ;
|
|
Option4.Caption = "Tota\<l Debit", ;
|
|
Option4.ControlSource = "", ;
|
|
Option4.Enabled = .F., ;
|
|
Option4.Height = 17, ;
|
|
Option4.Left = 5, ;
|
|
Option4.Name = "Option4", ;
|
|
Option4.Top = 74, ;
|
|
Option4.Width = 77, ;
|
|
Option5.AutoSize = .T., ;
|
|
Option5.Caption = "T\<otal Credit", ;
|
|
Option5.ControlSource = "", ;
|
|
Option5.Enabled = .F., ;
|
|
Option5.Height = 17, ;
|
|
Option5.Left = 5, ;
|
|
Option5.Name = "Option5", ;
|
|
Option5.Top = 93, ;
|
|
Option5.Width = 81
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Height = 77, ;
|
|
Left = 3, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 403, ;
|
|
Width = 677, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
Height = 463, ;
|
|
Left = 684, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 17, ;
|
|
Width = 108, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
Height = 121, ;
|
|
Left = 684, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 283, ;
|
|
Width = 108, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape4' AS shape WITH ;
|
|
Height = 65, ;
|
|
Left = 176, ;
|
|
Name = "Shape4", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 415, ;
|
|
Width = 168, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape5' AS shape WITH ;
|
|
Height = 65, ;
|
|
Left = 3, ;
|
|
Name = "Shape5", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 415, ;
|
|
Width = 176, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape6' AS shape WITH ;
|
|
Height = 65, ;
|
|
Left = 342, ;
|
|
Name = "Shape6", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 415, ;
|
|
Width = 168, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape8' AS shape WITH ;
|
|
Height = 65, ;
|
|
Left = 508, ;
|
|
Name = "Shape8", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 415, ;
|
|
Width = 172, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
ControlSource = "m.sprecdeb", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 61, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 6, ;
|
|
Top = 427, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
ControlSource = "m.spreccred", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 61, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 7, ;
|
|
Top = 451, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
ControlSource = "m.srulcred", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 239, ;
|
|
Name = "Text3", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 8, ;
|
|
Top = 451, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text4' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
ControlSource = "m.sruldeb", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 239, ;
|
|
Name = "Text4", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 10, ;
|
|
Top = 427, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text5' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
ControlSource = "m.stotdeb", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 404, ;
|
|
Name = "Text5", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 9, ;
|
|
Top = 427, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text6' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
ControlSource = "m.stotcred", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 404, ;
|
|
Name = "Text6", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 451, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text7' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
ControlSource = "m.ssolddeb", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 575, ;
|
|
Name = "Text7", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 6, ;
|
|
Top = 425, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 24
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text8' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
ControlSource = "m.ssoldcred", ;
|
|
FontName = "Arial Narrow", ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 575, ;
|
|
Name = "Text8", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 7, ;
|
|
Top = 449, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 25
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE afisactual
|
|
sele bal
|
|
repl all totdeb with ruldeb+precdeb
|
|
repl all totcred with rulcred+preccred
|
|
repl all solddeb with iif(totdeb-totcred>0,totdeb-totcred,0)
|
|
repl all soldcred with iif(totdeb-totcred>0,0,-totdeb+totcred)
|
|
thisform.text1.setfocus
|
|
thisform.text2.setfocus
|
|
thisform.text3.setfocus
|
|
thisform.text4.setfocus
|
|
thisform.text5.setfocus
|
|
thisform.text6.setfocus
|
|
thisform.text7.setfocus
|
|
thisform.text8.setfocus
|
|
|
|
thisform.grid1.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE butapend
|
|
ENDPROC
|
|
|
|
PROCEDURE butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE fisacont
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
SELE BAL
|
|
GO TOP
|
|
ENDPROC
|
|
|
|
PROCEDURE rulcred
|
|
ENDPROC
|
|
|
|
PROCEDURE ruldeb
|
|
ENDPROC
|
|
|
|
PROCEDURE ruldebcred
|
|
ENDPROC
|
|
|
|
PROCEDURE totcred
|
|
ENDPROC
|
|
|
|
PROCEDURE totdeb
|
|
ENDPROC
|
|
|
|
PROCEDURE totdebcred
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist1.Click
|
|
THISFORM.WINDOWSTATE=1
|
|
do rapbal97.prg
|
|
THISFORM.WINDOWSTATE=0
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist3.Click
|
|
sele bal
|
|
|
|
appe blan
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist4.Click
|
|
sele bal
|
|
dele
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist5.Click
|
|
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdtermin1.Valid
|
|
DO CALCULEAZABALANTA
|
|
ENDPROC
|
|
|
|
PROCEDURE Command3.Click
|
|
local t1,t2,sem,sumc,sumd,m.cont
|
|
|
|
|
|
SELE BAL
|
|
SCAN
|
|
t1=" "
|
|
t2=" "
|
|
sem=.f.
|
|
SCATTER MEMVAR
|
|
M.CONT=SUBS(CONT,1,4)
|
|
|
|
SELE ACT
|
|
SUM SUMA TO SUMD FOR SCD=M.CONT
|
|
SUM SUMA TO SUMC FOR SCC=M.CONT
|
|
IF SUMD#M.RULDEB
|
|
t1='Cont debitor '+M.CONT+' cu dif. '+STR(M.RULDEB-SUMD,13)
|
|
*wait windows 'CONT DEBITOR '+M.CONT+' CU DIF. '+STR(M.RULDEB-SUMD,13)
|
|
sem=.t.
|
|
ENDIF
|
|
IF SUMC#M.RULCRED
|
|
t2= 'Cont creditor '+M.CONT+' cu dif. '+STR(M.RULCRED-SUMC,13)
|
|
*wait windows 'CONT CREDITOR '+M.CONT+' CU DIF. '+STR(M.RULCRED-SUMC,13)
|
|
sem=.t.
|
|
ENDIF
|
|
if sem==.t. then
|
|
ot=createobj("text")
|
|
ot.label2.caption=t1
|
|
ot.label3.caption=t2
|
|
ot.show(1)
|
|
endif
|
|
SELE BAL
|
|
ENDSCAN
|
|
|
|
if sem==.f. then
|
|
OT=CREATEOBJ("TEXT")
|
|
OT.LABEL2.CAPTION="Verificarea s-a incheiat."
|
|
OT.LABEL3.visible=.f.
|
|
ot.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Command4.Click
|
|
|
|
DO REFBAL IN REFverif.PRG
|
|
DO VERDIFBAL IN REFverif.PRG
|
|
|
|
*do refbalanta
|
|
|
|
OT=CREATEOBJ("TEXT")
|
|
OT.LABEL2.CAPTION="Balanta este refacuta."
|
|
OT.LABEL3.visible=.f.
|
|
ot.show(1)
|
|
sele bal
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.AfterRowColChange
|
|
LPARAMETERS nColIndex
|
|
THISFORM.OPTIONGROUP1.OPTION2.ENABLED=.T.
|
|
THISFORM.OPTIONGROUP1.OPTION3.ENABLED=.T.
|
|
THISFORM.OPTIONGROUP1.OPTION4.ENABLED=.T.
|
|
THISFORM.OPTIONGROUP1.OPTION5.ENABLED=.T.
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column1.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column1.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column10.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column10.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column2.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column2.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column3.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column3.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column4.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column4.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column5.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column5.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column6.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column6.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column7.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column7.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column8.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column8.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column9.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column9.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.DblClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.When
|
|
sele bal
|
|
set filter to !deleted()
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Option1.Click
|
|
THIS.PARENT.OPTION2.ENABLED=.F.
|
|
THIS.PARENT.OPTION3.ENABLED=.F.
|
|
THIS.PARENT.OPTION4.ENABLED=.F.
|
|
THIS.PARENT.OPTION5.ENABLED=.F.
|
|
|
|
SELE BAL
|
|
SET FILTER TO !DELETED()
|
|
THISFORM.GRID1.ACTIVATECELL(1,1)
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Option2.Click
|
|
THISFORM.RULDEB
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Option3.Click
|
|
THISFORM.RULCRED
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Option4.Click
|
|
THISFORM.TOTDEB
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Option5.Click
|
|
THISFORM.TOTCRED
|
|
ENDPROC
|
|
|
|
PROCEDURE Shape2.RightClick
|
|
THISFORM.BUTAPEND
|
|
ENDPROC
|
|
|
|
PROCEDURE Text1.GotFocus
|
|
sum precdeb to m.sprecdeb
|
|
ENDPROC
|
|
|
|
PROCEDURE Text1.Init
|
|
sum precdeb to m.sprecdeb
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text1.Refresh
|
|
THIS.FORECOLOR=IIF(M.SPRECDEB>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text2.GotFocus
|
|
sum preccred to m.spreccred
|
|
ENDPROC
|
|
|
|
PROCEDURE Text2.Init
|
|
|
|
sum preccred to m.spreccred
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text2.Refresh
|
|
THIS.FORECOLOR=IIF(M.SPRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text3.GotFocus
|
|
sum rulcred to m.srulcred
|
|
ENDPROC
|
|
|
|
PROCEDURE Text3.Init
|
|
sum rulcred to m.srulcred
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text3.Refresh
|
|
THIS.FORECOLOR=IIF(M.SRULCRED>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text4.GotFocus
|
|
sum ruldeb to m.sruldeb
|
|
ENDPROC
|
|
|
|
PROCEDURE Text4.Init
|
|
sum ruldeb to m.sruldeb
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text4.Refresh
|
|
THIS.FORECOLOR=IIF(M.SRULDEB>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text5.GotFocus
|
|
sum totdeb to m.stotdeb
|
|
ENDPROC
|
|
|
|
PROCEDURE Text5.Init
|
|
sum totdeb to m.stotdeb
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text5.Refresh
|
|
THIS.FORECOLOR=IIF(M.STOTDEB>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text6.GotFocus
|
|
sum totcred to m.stotcred
|
|
ENDPROC
|
|
|
|
PROCEDURE Text6.Init
|
|
sum totcred to m.stotcred
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text6.Refresh
|
|
THIS.FORECOLOR=IIF(M.STOTCRED>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text7.GotFocus
|
|
sum solddeb to m.ssolddeb
|
|
ENDPROC
|
|
|
|
PROCEDURE Text7.Init
|
|
sum solddeb to m.ssolddeb
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text8.GotFocus
|
|
sum neimpozab to m.sneimpozab
|
|
ENDPROC
|
|
|
|
PROCEDURE Text8.Init
|
|
sum soldcred to m.ssoldcred
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|