859 lines
22 KiB
Plaintext
859 lines
22 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="introd.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="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label18" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" 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.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 480
|
|
Name = "Ffergen1"
|
|
Width = 721
|
|
WindowState = 0
|
|
Line1.Left = 0
|
|
Line1.Name = "Line1"
|
|
Line1.Top = 472
|
|
Line1.ZOrderSet = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
|
|
Enabled = .F., ;
|
|
Left = 408, ;
|
|
Name = "Cmdlist1", ;
|
|
TabIndex = 36, ;
|
|
Top = 435, ;
|
|
Width = 90
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
|
Left = 505, ;
|
|
Name = "CMDRENUNT1", ;
|
|
TabIndex = 35, ;
|
|
Top = 435, ;
|
|
Width = 90
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
|
Left = 600, ;
|
|
Name = "CMDTERMIN1", ;
|
|
TabIndex = 34, ;
|
|
Top = 435, ;
|
|
Width = 90, ;
|
|
ZOrderSet = 34
|
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
BackColor = 192,192,192, ;
|
|
ColumnCount = 4, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
GridLines = 0, ;
|
|
Height = 336, ;
|
|
Left = 24, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "actcs", ;
|
|
TabIndex = 19, ;
|
|
Top = 69, ;
|
|
View = 0, ;
|
|
Width = 300, ;
|
|
ZOrderSet = 4, ;
|
|
Column1.BackColor = 192,192,192, ;
|
|
Column1.ControlSource = "nract", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.Name = "Column1", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 59, ;
|
|
Column2.BackColor = 192,192,192, ;
|
|
Column2.ControlSource = "dataact", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 61, ;
|
|
Column3.BackColor = 192,192,192, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = "nume", ;
|
|
Column3.FontName = "Arial Narrow", ;
|
|
Column3.Name = "Column3", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 123, ;
|
|
Column4.BackColor = 192,192,192, ;
|
|
Column4.ColumnOrder = 3, ;
|
|
Column4.ControlSource = "explicatia", ;
|
|
Column4.FontName = "Arial Narrow", ;
|
|
Column4.Name = "Column4", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 148
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
|
Caption = "Nr.Act", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
|
BackColor = 192,192,192, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
|
|
Caption = "Data", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 192,192,192, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
|
|
Caption = "Furnizor", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
|
|
BackColor = 192,192,192, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ;
|
|
Caption = "Explicatia", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
|
|
BackColor = 192,192,192, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Lista documentelor de achizitie", ;
|
|
FontBold = .F., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 19, ;
|
|
Left = 24, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 3, ;
|
|
Top = 39, ;
|
|
Width = 287, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label10' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "INTRODUCERE MIJLOACE FIXE in luna", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 19, ;
|
|
Left = 11, ;
|
|
Name = "Label10", ;
|
|
TabIndex = 2, ;
|
|
Top = 8, ;
|
|
Width = 386, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label11' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Durata de amortizare", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label11", ;
|
|
TabIndex = 4, ;
|
|
Top = 264, ;
|
|
Width = 123, ;
|
|
ZOrderSet = 22
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label12' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Uzura", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label12", ;
|
|
TabIndex = 6, ;
|
|
Top = 287, ;
|
|
Width = 36, ;
|
|
ZOrderSet = 24
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label13' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Tip de amortizare", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label13", ;
|
|
TabIndex = 8, ;
|
|
Top = 312, ;
|
|
Width = 102, ;
|
|
ZOrderSet = 26
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label14' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Gestiunea", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label14", ;
|
|
TabIndex = 10, ;
|
|
Top = 336, ;
|
|
Width = 61, ;
|
|
ZOrderSet = 28
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label15' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Responsabil", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label15", ;
|
|
TabIndex = 12, ;
|
|
Top = 361, ;
|
|
Width = 73, ;
|
|
ZOrderSet = 30
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label16' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Caracteristici", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 367, ;
|
|
Name = "Label16", ;
|
|
TabIndex = 14, ;
|
|
Top = 385, ;
|
|
Width = 78, ;
|
|
ZOrderSet = 32
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label17' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Nr. inventar", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label17", ;
|
|
TabIndex = 17, ;
|
|
Top = 240, ;
|
|
Width = 67, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label18' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 19, ;
|
|
Left = 19, ;
|
|
Name = "Label18", ;
|
|
TabIndex = 1, ;
|
|
Top = 15, ;
|
|
Width = 2, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Fisa mijlocului fix", ;
|
|
FontBold = .F., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 19, ;
|
|
Left = 364, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 5, ;
|
|
Top = 39, ;
|
|
Width = 167, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Nr. document achizitie", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 7, ;
|
|
Top = 70, ;
|
|
Width = 132, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Data document achizitie", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 9, ;
|
|
Top = 95, ;
|
|
Width = 142, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Denumire ", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 11, ;
|
|
Top = 119, ;
|
|
Width = 61, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label6' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Valoare de achizitie", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 13, ;
|
|
Top = 144, ;
|
|
Width = 116, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label7' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Data punerii in functiune", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label7", ;
|
|
TabIndex = 15, ;
|
|
Top = 168, ;
|
|
Width = 141, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label8' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Nr. p.i.f.", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label8", ;
|
|
TabIndex = 16, ;
|
|
Top = 193, ;
|
|
Width = 48, ;
|
|
ZOrderSet = 18
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label9' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "Cod", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Height = 18, ;
|
|
Left = 366, ;
|
|
Name = "Label9", ;
|
|
TabIndex = 18, ;
|
|
Top = 217, ;
|
|
Width = 25, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Height = 372, ;
|
|
Left = 12, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 45, ;
|
|
Width = 324, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
Height = 372, ;
|
|
Left = 348, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 45, ;
|
|
Width = 360, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
Height = 48, ;
|
|
Left = 12, ;
|
|
Name = "Shape3", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 424, ;
|
|
Width = 696, ;
|
|
ZOrderSet = 33
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.nract", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 20, ;
|
|
Top = 68, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text10' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.tipamort", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text10", ;
|
|
TabIndex = 30, ;
|
|
Top = 310, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 25
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text11' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.NUMEgest", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text11", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 31, ;
|
|
Top = 334, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 27
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text12' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.respons", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text12", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 32, ;
|
|
Top = 359, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 29
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text13' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.caract", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text13", ;
|
|
TabIndex = 33, ;
|
|
Top = 383, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text14' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.nrinv", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text14", ;
|
|
TabIndex = 27, ;
|
|
Top = 238, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 19
|
|
*< 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 = 404, ;
|
|
Name = "Text16", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 37, ;
|
|
Top = 6, ;
|
|
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 = 446, ;
|
|
Name = "Text17", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 38, ;
|
|
Top = 6, ;
|
|
Width = 80
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
BorderStyle = 1, ;
|
|
ControlSource = "m.dataact", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 21, ;
|
|
Top = 93, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.denumire", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text3", ;
|
|
TabIndex = 22, ;
|
|
Top = 117, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text4' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.valoare", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text4", ;
|
|
TabIndex = 23, ;
|
|
Top = 142, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text5' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.datapif", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text5", ;
|
|
TabIndex = 24, ;
|
|
Top = 166, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text6' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.nrpif", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text6", ;
|
|
TabIndex = 25, ;
|
|
Top = 191, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text7' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.codmf", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text7", ;
|
|
TabIndex = 26, ;
|
|
Top = 215, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 19
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text8' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.normat", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text8", ;
|
|
TabIndex = 28, ;
|
|
Top = 262, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 21
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text9' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
ControlSource = "m.uzura", ;
|
|
Enabled = .F., ;
|
|
FontName = "Arial Narrow", ;
|
|
Height = 22, ;
|
|
Left = 508, ;
|
|
Name = "Text9", ;
|
|
TabIndex = 29, ;
|
|
Top = 285, ;
|
|
Width = 180, ;
|
|
ZOrderSet = 23
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Init
|
|
sele act
|
|
set filter to left(scc,3)='404'
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDTERMIN1.Valid
|
|
sele mf
|
|
appe blank
|
|
gather memvar
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.AfterRowColChange
|
|
LPARAMETERS nColIndex
|
|
local i,t
|
|
|
|
sele actcs
|
|
scatter memvar
|
|
for i=1 to 14
|
|
t='thisform.text'+alltrim(str(i))+'.enabled=.t.'
|
|
&t
|
|
next
|
|
|
|
M.DENUMIRE=M.EXPLICATIA
|
|
thisform.text1.refresh
|
|
thisform.text2.refresh
|
|
thisform.text3.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text11.GotFocus
|
|
thisform.cmdtermin1.enabled=.f.
|
|
thisform.cmdrenunt1.enabled=.f.
|
|
thisform.cmdlist1.enabled=.f.
|
|
DO CAUT_ALF WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST'
|
|
thisform.cmdtermin1.enabled=.t.
|
|
thisform.cmdrenunt1.enabled=.t.
|
|
thisform.cmdlist1.enabled=.t.
|
|
SELE NUMEGEST
|
|
LOCATE FOR NUMEGEST=M.NUMEGEST
|
|
SCATTER MEMVAR
|
|
ENDPROC
|
|
|
|
PROCEDURE Text12.GotFocus
|
|
thisform.cmdtermin1.enabled=.f.
|
|
thisform.cmdrenunt1.enabled=.f.
|
|
thisform.cmdlist1.enabled=.f.
|
|
DO CAUT_ALF WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2'
|
|
thisform.cmdtermin1.enabled=.t.
|
|
thisform.cmdrenunt1.enabled=.t.
|
|
thisform.cmdlist1.enabled=.t.
|
|
M.RESPONS=M.NUME_2
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|