205 lines
6.2 KiB
Plaintext
205 lines
6.2 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="contamort.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>
|
|
Name = "Dataenvironment"
|
|
*</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="BANDA21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlu1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridb1.Column3.Combo1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Verif1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 305
|
|
Name = "Ffergen1"
|
|
Width = 284
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'BANDA21' AS banda2 WITH ;
|
|
Height = 30, ;
|
|
Left = 0, ;
|
|
Name = "BANDA21", ;
|
|
Top = 0, ;
|
|
Width = 217, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
|
Left = 251, ;
|
|
Name = "Cmdtermin1", ;
|
|
Top = 0, ;
|
|
ZOrderSet = 3, ;
|
|
IMBUTON1.Height = 27, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 30, ;
|
|
COMMAND1.Name = "COMMAND1"
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
|
Caption = "LINIE NOUA", ;
|
|
FontBold = .F., ;
|
|
Height = 27, ;
|
|
Left = 372, ;
|
|
Name = "Command1", ;
|
|
Top = 264, ;
|
|
Width = 84, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Gridb1' AS gridb WITH ;
|
|
ColumnCount = 3, ;
|
|
Height = 253, ;
|
|
Left = 11, ;
|
|
listaord = 1,2,3, ;
|
|
Name = "Gridb1", ;
|
|
ordine = 1, ;
|
|
Panel = 1, ;
|
|
ReadOnly = .F., ;
|
|
RecordSource = "contamort", ;
|
|
Top = 43, ;
|
|
Width = 262, ;
|
|
Column1.ControlSource = "cont_imob", ;
|
|
Column1.Header1.Alignment = 2, ;
|
|
Column1.Header1.Caption = "Cont imob.", ;
|
|
Column1.Header1.FontName = "Arial Narrow", ;
|
|
Column1.Header1.FontSize = 10, ;
|
|
Column1.Header1.Name = "Header1", ;
|
|
Column1.Name = "Column1", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Text1.Name = "Text1", ;
|
|
Column1.Text1.ReadOnly = .T., ;
|
|
Column1.Width = 66, ;
|
|
Column2.ControlSource = "cont_amort", ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 73, ;
|
|
Column3.ControlSource = "fel_imob", ;
|
|
Column3.CurrentControl = "Combo1", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.FontSize = 9, ;
|
|
Column3.Name = "Column3", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Sparse = .F., ;
|
|
Column3.Width = 90
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont amort.", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column3.Combo1' AS combobox WITH ;
|
|
BorderStyle = 0, ;
|
|
ColumnCount = 2, ;
|
|
ColumnLines = .F., ;
|
|
ColumnWidths = "90,0", ;
|
|
ControlSource = "fel_imob", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 9, ;
|
|
Height = 24, ;
|
|
Left = 47, ;
|
|
Name = "Combo1", ;
|
|
ReadOnly = .F., ;
|
|
RowSource = "Corporala,1,Necorporala,2,In curs,3", ;
|
|
RowSourceType = 1, ;
|
|
SpecialEffect = 1, ;
|
|
Style = 2, ;
|
|
Top = 40, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Gridb1.Column3.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Tip imobilizare", ;
|
|
FontName = "Arial Narrow", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Gridb1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Titlu1' AS titlu WITH ;
|
|
Caption = "CONTURI DE AMORTIZARE", ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 27, ;
|
|
Left = 4, ;
|
|
Name = "Titlu1", ;
|
|
Top = 7, ;
|
|
Width = 181, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Verif1' AS verif WITH ;
|
|
Left = 220, ;
|
|
Name = "Verif1", ;
|
|
Top = 0, ;
|
|
IMBUTON1.Height = 27, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 30, ;
|
|
COMMAND1.Name = "COMMAND1", ;
|
|
COMMAND1.ToolTipText = "Actualizare fisier"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
PROCEDURE Command1.Click
|
|
SELECT CONTAMORT
|
|
APPEND BLANK
|
|
THISFORM.GRIDb1.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Gridb1.Column2.Header1.Click
|
|
this.Parent.Parent.headerclick(this.Parent.ColumnOrder)
|
|
ENDPROC
|
|
|
|
PROCEDURE Gridb1.Column3.Header1.Click
|
|
this.Parent.Parent.headerclick(this.Parent.ColumnOrder)
|
|
ENDPROC
|
|
|
|
PROCEDURE Verif1.COMMAND1.Click
|
|
DO ACTUALIZARE_FISIER WITH 'CONTAMORT'
|
|
THISFORM.Refresh
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|