1113 lines
31 KiB
Plaintext
1113 lines
31 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="viz.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 = 1
|
|
Name = "Dataenvironment"
|
|
Top = 220
|
|
Width = 520
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS ffergen1 AS ffergen OF "..\..\contab\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="Label10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1" 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.Column9.Header9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column16.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column16.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column17.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column17.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column18.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column18.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column19.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column19.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column20.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column20.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: afisactual
|
|
*m: butdrept
|
|
*m: modificare
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 523
|
|
Name = "Ffergen1"
|
|
Width = 793
|
|
Line1.Left = 0
|
|
Line1.Name = "Line1"
|
|
Line1.Top = 496
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Check1' AS checkbox WITH ;
|
|
Caption = "\<Denumire", ;
|
|
ControlSource = "bden", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 696, ;
|
|
Name = "Check1", ;
|
|
TabIndex = 12, ;
|
|
Top = 228, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check2' AS checkbox WITH ;
|
|
Caption = "\<Cont Deb.", ;
|
|
ControlSource = "bscd", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 696, ;
|
|
Name = "Check2", ;
|
|
TabIndex = 12, ;
|
|
Top = 288, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check4' AS checkbox WITH ;
|
|
Caption = "\<Gestiune", ;
|
|
ControlSource = "bgest", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 696, ;
|
|
Name = "Check4", ;
|
|
TabIndex = 15, ;
|
|
Top = 268, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Check9' AS checkbox WITH ;
|
|
Caption = "\<Valoare", ;
|
|
ControlSource = "bsuma", ;
|
|
Enabled = .T., ;
|
|
Height = 17, ;
|
|
Left = 696, ;
|
|
Name = "Check9", ;
|
|
TabIndex = 20, ;
|
|
Top = 247, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
|
|
Enabled = .F., ;
|
|
Left = 697, ;
|
|
Name = "Cmdlist1", ;
|
|
ToolTipText = "Listare", ;
|
|
Top = 398, ;
|
|
Width = 98
|
|
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
|
Height = 27, ;
|
|
Left = 696, ;
|
|
Name = "Cmdtermin1", ;
|
|
TabIndex = 2, ;
|
|
Top = 462, ;
|
|
Width = 98
|
|
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
|
Caption = "", ;
|
|
Enabled = .T., ;
|
|
Height = 27, ;
|
|
Left = 696, ;
|
|
Name = "Command1", ;
|
|
Picture = ..\..\contab\grafice\edit1.bmp, ;
|
|
StatusBarText = "", ;
|
|
TabIndex = 4, ;
|
|
ToolTipText = "Modificare", ;
|
|
Top = 359, ;
|
|
Width = 98
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
BackColor = 254,255,240, ;
|
|
ColumnCount = 18, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLineColor = 128,128,128, ;
|
|
Height = 405, ;
|
|
Left = 12, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .F., ;
|
|
RecordSource = "MF", ;
|
|
TabIndex = 1, ;
|
|
Top = 27, ;
|
|
Width = 672, ;
|
|
Column1.Alignment = 1, ;
|
|
Column1.BackColor = 254,255,240, ;
|
|
Column1.ColumnOrder = 1, ;
|
|
Column1.ControlSource = "nract", ;
|
|
Column1.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.Name = "Column2", ;
|
|
Column1.ReadOnly = .F., ;
|
|
Column1.Width = 48, ;
|
|
Column2.Alignment = 0, ;
|
|
Column2.BackColor = 254,255,240, ;
|
|
Column2.ColumnOrder = 10, ;
|
|
Column2.ControlSource = "uzura", ;
|
|
Column2.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column3", ;
|
|
Column2.ReadOnly = .F., ;
|
|
Column2.Width = 38, ;
|
|
Column3.Alignment = 1, ;
|
|
Column3.BackColor = 254,255,240, ;
|
|
Column3.ColumnOrder = 2, ;
|
|
Column3.ControlSource = "dataact", ;
|
|
Column3.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column4", ;
|
|
Column3.ReadOnly = .F., ;
|
|
Column3.Width = 53, ;
|
|
Column4.Alignment = 0, ;
|
|
Column4.BackColor = 254,255,240, ;
|
|
Column4.ColumnOrder = 3, ;
|
|
Column4.ControlSource = "denumire", ;
|
|
Column4.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column5", ;
|
|
Column4.ReadOnly = .F., ;
|
|
Column4.Width = 151, ;
|
|
Column5.Alignment = 1, ;
|
|
Column5.BackColor = 254,255,240, ;
|
|
Column5.ColumnOrder = 4, ;
|
|
Column5.ControlSource = "valoare", ;
|
|
Column5.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column5.FontName = "Arial Narrow", ;
|
|
Column5.Format = "r", ;
|
|
Column5.InputMask = "99 999 999 999 999", ;
|
|
Column5.Name = "Column6", ;
|
|
Column5.ReadOnly = .F., ;
|
|
Column5.Width = 101, ;
|
|
Column6.Alignment = 1, ;
|
|
Column6.BackColor = 254,255,240, ;
|
|
Column6.ColumnOrder = 7, ;
|
|
Column6.ControlSource = "nrinv", ;
|
|
Column6.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column6.FontName = "Arial Narrow", ;
|
|
Column6.Name = "Column7", ;
|
|
Column6.ReadOnly = .F., ;
|
|
Column6.Width = 51, ;
|
|
Column7.Alignment = 1, ;
|
|
Column7.BackColor = 254,255,240, ;
|
|
Column7.ColumnOrder = 8, ;
|
|
Column7.ControlSource = "codmf", ;
|
|
Column7.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column7.FontName = "Arial Narrow", ;
|
|
Column7.Name = "Column8", ;
|
|
Column7.ReadOnly = .F., ;
|
|
Column7.Width = 44, ;
|
|
Column8.Alignment = 1, ;
|
|
Column8.BackColor = 254,255,240, ;
|
|
Column8.ColumnOrder = 9, ;
|
|
Column8.ControlSource = "normat", ;
|
|
Column8.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column8.FontName = "Arial Narrow", ;
|
|
Column8.FontSize = 9, ;
|
|
Column8.Format = "r", ;
|
|
Column8.InputMask = "999 999 999 999", ;
|
|
Column8.Name = "Column9", ;
|
|
Column8.ReadOnly = .F., ;
|
|
Column8.Width = 56, ;
|
|
Column9.Alignment = 0, ;
|
|
Column9.BackColor = 254,255,240, ;
|
|
Column9.ColumnOrder = 5, ;
|
|
Column9.ControlSource = "datapif", ;
|
|
Column9.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column9.FontName = "Arial Narrow", ;
|
|
Column9.Name = "Column10", ;
|
|
Column9.ReadOnly = .F., ;
|
|
Column9.Width = 53, ;
|
|
Column10.Alignment = 0, ;
|
|
Column10.BackColor = 254,255,240, ;
|
|
Column10.ColumnOrder = 6, ;
|
|
Column10.ControlSource = "nrpif", ;
|
|
Column10.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column10.FontName = "Arial Narrow", ;
|
|
Column10.Name = "Column11", ;
|
|
Column10.ReadOnly = .F., ;
|
|
Column10.Width = 38, ;
|
|
Column11.BackColor = 254,255,240, ;
|
|
Column11.ColumnOrder = 11, ;
|
|
Column11.ControlSource = "tipamort", ;
|
|
Column11.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column11.FontName = "Arial Narrow", ;
|
|
Column11.Name = "Column13", ;
|
|
Column11.ReadOnly = .F., ;
|
|
Column11.Width = 46, ;
|
|
Column12.BackColor = 254,255,240, ;
|
|
Column12.ColumnOrder = 14, ;
|
|
Column12.ControlSource = "gest", ;
|
|
Column12.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column12.FontName = "Arial Narrow", ;
|
|
Column12.Name = "Column14", ;
|
|
Column12.ReadOnly = .F., ;
|
|
Column12.Width = 44, ;
|
|
Column13.BackColor = 254,255,240, ;
|
|
Column13.ColumnOrder = 15, ;
|
|
Column13.ControlSource = "respons", ;
|
|
Column13.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column13.FontName = "Arial Narrow", ;
|
|
Column13.Name = "Column15", ;
|
|
Column13.ReadOnly = .F., ;
|
|
Column13.Width = 122, ;
|
|
Column14.BackColor = 254,255,240, ;
|
|
Column14.ColumnOrder = 18, ;
|
|
Column14.ControlSource = "caract", ;
|
|
Column14.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column14.FontName = "Arial Narrow", ;
|
|
Column14.Name = "Column16", ;
|
|
Column14.ReadOnly = .F., ;
|
|
Column14.Visible = .F., ;
|
|
Column14.Width = 0, ;
|
|
Column15.BackColor = 254,255,240, ;
|
|
Column15.ColumnOrder = 16, ;
|
|
Column15.ControlSource = "scd", ;
|
|
Column15.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column15.FontName = "Arial Narrow", ;
|
|
Column15.Name = "Column17", ;
|
|
Column15.ReadOnly = .F., ;
|
|
Column15.Width = 43, ;
|
|
Column16.BackColor = 254,255,240, ;
|
|
Column16.ColumnOrder = 12, ;
|
|
Column16.ControlSource = "valoare/normat", ;
|
|
Column16.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column16.FontName = "Arial Narrow", ;
|
|
Column16.Format = "r", ;
|
|
Column16.InputMask = "999 999 999 999", ;
|
|
Column16.Name = "Column18", ;
|
|
Column16.ReadOnly = .F., ;
|
|
Column17.BackColor = 254,255,240, ;
|
|
Column17.ColumnOrder = 13, ;
|
|
Column17.ControlSource = "uzura*valoare/normat", ;
|
|
Column17.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column17.FontName = "Arial Narrow", ;
|
|
Column17.Format = "r", ;
|
|
Column17.InputMask = "999 999 999 999", ;
|
|
Column17.Name = "Column19", ;
|
|
Column17.ReadOnly = .F., ;
|
|
Column18.BackColor = 254,255,240, ;
|
|
Column18.ColumnOrder = 17, ;
|
|
Column18.ControlSource = "casat", ;
|
|
Column18.DynamicForeColor = "IIF(UZURA>=NORMAT,RGB(0,0,255),RGB(0,0,0))", ;
|
|
Column18.FontName = "Arial Narrow", ;
|
|
Column18.Name = "Column20", ;
|
|
Column18.ReadOnly = .F., ;
|
|
Column18.Width = 37
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data PIF", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. PIF", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
|
|
Caption = "Tip Amort.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
|
|
Caption = "Nr. Gest.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Responsabil", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column16.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Caracteristici", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column16.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
Visible = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column17.Header1' AS header WITH ;
|
|
Caption = "Cont Deb.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column17.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column18.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Amortizment", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column18.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column19.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Total Amort.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column19.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. Act", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header2"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
ToolTipText = "IIF(UZURA>=NORMAT,'Amortizat','Neamortizat')"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column20.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Casat", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column20.Text1' AS textbox WITH ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Uzura", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header3"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F., ;
|
|
ToolTipText = "IIF(UZURA>=NORMAT,'Amortizat','Neamortizat')"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data Act", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header4"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
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 = "Denumire", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header5"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valoare", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header6"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderColor = 0,0,0, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
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 = "Nr. Inventar", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header7"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
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 = "Cod MF", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header8"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column9.Header9' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Durata Amort.", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header9"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 254,255,240, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Label10' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "VIZUALIZARE MIJLOACE FIXE IN LUNA", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 19, ;
|
|
Left = 13, ;
|
|
Name = "Label10", ;
|
|
TabIndex = 10, ;
|
|
Top = 6, ;
|
|
Width = 384, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label19' AS label WITH ;
|
|
Alignment = 2, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 254,255,240, ;
|
|
Caption = "Nu sunt inregistrate mijloace fixe in aceasta luna!", ;
|
|
FontBold = .T., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,0,0, ;
|
|
Height = 60, ;
|
|
Left = 252, ;
|
|
Name = "Label19", ;
|
|
Top = 204, ;
|
|
Visible = .F., ;
|
|
Width = 204, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "Amortizmente in Luna:", ;
|
|
FontBold = .T., ;
|
|
FontName = "Times New Roman", ;
|
|
FontSize = 12, ;
|
|
Height = 22, ;
|
|
Left = 378, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 8, ;
|
|
Top = 451, ;
|
|
Width = 154
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label7' AS label WITH ;
|
|
Caption = "Selectie", ;
|
|
Height = 17, ;
|
|
Left = 696, ;
|
|
Name = "Label7", ;
|
|
TabIndex = 9, ;
|
|
Top = 212, ;
|
|
Width = 46
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
|
|
Left = 708, ;
|
|
Name = "oMenuShortcut", ;
|
|
TabIndex = 0, ;
|
|
Top = 48
|
|
*< END OBJECT: ClassLib="..\..\contab\clase\utility.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Height = 56, ;
|
|
Left = 10, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 448, ;
|
|
Width = 676
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
Height = 477, ;
|
|
Left = 691, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 27, ;
|
|
Width = 108
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
Height = 157, ;
|
|
Left = 691, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 292, ;
|
|
Width = 108
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape5' AS shape WITH ;
|
|
Height = 45, ;
|
|
Left = 360, ;
|
|
Name = "Shape5", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 459, ;
|
|
Width = 307
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape6' AS shape WITH ;
|
|
Height = 107, ;
|
|
Left = 691, ;
|
|
Name = "Shape6", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 216, ;
|
|
Width = 108
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
ControlSource = "m.suma", ;
|
|
Enabled = .T., ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999 999", ;
|
|
Left = 450, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 11, ;
|
|
Top = 472, ;
|
|
Width = 198
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text16' AS textbox WITH ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.nl", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 23, ;
|
|
Left = 400, ;
|
|
Name = "Text16", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 37, ;
|
|
Top = 4, ;
|
|
Width = 36
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text17' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.an", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 23, ;
|
|
Left = 442, ;
|
|
Name = "Text17", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 38, ;
|
|
Top = 4, ;
|
|
Width = 80
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE afisactual
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd
|
|
|
|
sele mf
|
|
|
|
if Bden==.t. then
|
|
Tden="UPPER(LEFT(denumire,LEN(M.denumire)))==UPPER(m.denumire)"
|
|
endif
|
|
|
|
if Bscd==.t. then
|
|
Tscd="UPPER(LEFT(scd,LEN(M.scd)))==UPPER(m.scd)"
|
|
endif
|
|
|
|
if bgest==.t. then
|
|
Tgest="gest==m.gest"
|
|
endif
|
|
|
|
|
|
if bsuma==.t. then
|
|
Tsuma="(valoare>=m.suma1) and (valoare<=m.suma2)"
|
|
endif
|
|
|
|
sele mf
|
|
SET FILTER TO &Tden AND &Tsuma AND &Tgest and &tscd and !deleted()
|
|
|
|
|
|
THISFORM.GRID1.REFRESH
|
|
THISFORM.GRID1.SETFOCUS
|
|
go top
|
|
|
|
sum valoare/normat to m.suma
|
|
thisform.text1.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
public Tden,Tsuma,Tgest,tscd,m.suma1,m.suma2,m.suma,bden,bsuma,bgest,bscd
|
|
store 0 to m.suma1,m.suma2,m.suma
|
|
store .f. to bden,bsuma,bgest,bscd
|
|
STORE ".T." TO Tden,Tsuma,Tgest,tscd
|
|
|
|
thisform.afisactual
|
|
|
|
sele mf
|
|
go top
|
|
if eof()
|
|
thisform.grid1.gridlines=0
|
|
thisform.check1.enabled=.f.
|
|
thisform.check4.enabled=.f.
|
|
thisform.check9.enabled=.f.
|
|
thisform.command1.enabled=.f.
|
|
thisform.label19.visible=.t.
|
|
endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE modificare
|
|
sele mf
|
|
scatter memvar
|
|
ofi=create('fisa')
|
|
ofi.show(1)
|
|
|
|
if buton==1
|
|
gather memvar
|
|
endif
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Click
|
|
if Bden==.t. then
|
|
OLIT=CREATEOBJECT("CAUTLITERE")
|
|
WITH OLIT
|
|
.CAPTION="Denumire"
|
|
.text1.controlsource="m.denumire"
|
|
endwith
|
|
olit.show(1)
|
|
endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check2.Click
|
|
if Bscd==.t. then
|
|
OLIT=CREATEOBJECT("CAUTLITERE")
|
|
WITH OLIT
|
|
.CAPTION="Simbol Cont Debitor"
|
|
.text1.controlsource="m.scd"
|
|
endwith
|
|
olit.show(1)
|
|
endif
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check2.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check4.Click
|
|
if bgest==.t. then
|
|
*OLIT=CREATEOBJECT("CAUTLITERE")
|
|
*WITH OLIT
|
|
* .CAPTION="Gestiunea"
|
|
* .text1.controlsource="m.numegest"
|
|
*endwith
|
|
*olit.show(1)
|
|
do caut_alf with 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
|
|
endif
|
|
|
|
sele numegest
|
|
locate for numegest=m.numegest
|
|
scatter memvar
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check4.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check9.Click
|
|
if bsuma==.t. then
|
|
Ointre=CREATEOBJECT("CAUTintre")
|
|
WITH Ointre
|
|
.CAPTION="Valoare"
|
|
.label1.caption="Valoare minima:"
|
|
.label2.caption="Valoare maxima:"
|
|
.text1.controlsource="m.suma1"
|
|
.text2.controlsource="m.suma2"
|
|
endwith
|
|
ointre.show(1)
|
|
endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Check9.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdlist1.Click
|
|
|
|
THISFORM.AFISACTUAL
|
|
*REPORT FORMAT ACT.FRX PREVIEW
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Command1.Click
|
|
thisform.modificare
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column10.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column10.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column11.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Column11.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.Init
|
|
sele mf
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Shape2.RightClick
|
|
LOCAL lbMenu[3]
|
|
|
|
|
|
lbMenu=""
|
|
lbMenu[1]="\<Deblocare"
|
|
lbMenu[2]="\-"
|
|
lbMenu[3]="\<Revenire"
|
|
|
|
thisform.oMenuShortcut.ShowMenu(@lbMenu)
|
|
|
|
do case
|
|
case bar()=1
|
|
thisform.grid1.readonly=.f.
|
|
thisform.grid1.deletemark=.t.
|
|
thisform.grid1.backcolor=rgb(225,255,255)
|
|
case bar()=3
|
|
thisform.grid1.readonly=.t.
|
|
thisform.grid1.deletemark=.f.
|
|
thisform.grid1.backcolor=rgb(254,255,240)
|
|
SELE MF
|
|
SET FILTER TO !DELETED()
|
|
thisform.grid1.REFRESH
|
|
endcase
|
|
ENDPROC
|
|
|
|
PROCEDURE Text1.GotFocus
|
|
sum suma to m.suma
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text1.Init
|
|
sele act
|
|
set filter to
|
|
sum suma to m.suma
|
|
*this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text1.Refresh
|
|
THIS.FORECOLOR=IIF(M.SUMA>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|