Files
roaimob/Ferestre/Vechi/FISA.sc2

597 lines
15 KiB
Plaintext

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="fisa.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 "..\..\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="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="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="Text14" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Height = 440
Name = "Ffergen1"
Width = 387
Line1.Name = "Line1"
*</PropValue>
ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
Left = 49, ;
Name = "Cmdlist1", ;
Top = 403
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
Left = 157, ;
Name = "CMDRENUNT1", ;
Top = 403
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
Left = 253, ;
Name = "CMDTERMIN1", ;
Top = 403
*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
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 = 30, ;
Name = "Label11", ;
TabIndex = 4, ;
Top = 236, ;
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 = 30, ;
Name = "Label12", ;
TabIndex = 6, ;
Top = 259, ;
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 = 30, ;
Name = "Label13", ;
TabIndex = 8, ;
Top = 284, ;
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 = 30, ;
Name = "Label14", ;
TabIndex = 10, ;
Top = 308, ;
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 = 30, ;
Name = "Label15", ;
TabIndex = 12, ;
Top = 333, ;
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 = 31, ;
Name = "Label16", ;
TabIndex = 14, ;
Top = 357, ;
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 = 30, ;
Name = "Label17", ;
TabIndex = 17, ;
Top = 212, ;
Width = 67, ;
ZOrderSet = 20
*< 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 = 28, ;
Name = "Label2", ;
TabIndex = 5, ;
Top = 11, ;
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 = 30, ;
Name = "Label3", ;
TabIndex = 7, ;
Top = 42, ;
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 = 30, ;
Name = "Label4", ;
TabIndex = 9, ;
Top = 67, ;
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 = 30, ;
Name = "Label5", ;
TabIndex = 11, ;
Top = 91, ;
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 = 30, ;
Name = "Label6", ;
TabIndex = 13, ;
Top = 116, ;
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 = 30, ;
Name = "Label7", ;
TabIndex = 15, ;
Top = 140, ;
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 = 30, ;
Name = "Label8", ;
TabIndex = 16, ;
Top = 165, ;
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 = 30, ;
Name = "Label9", ;
TabIndex = 18, ;
Top = 189, ;
Width = 25, ;
ZOrderSet = 20
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Shape2' AS shape WITH ;
Height = 372, ;
Left = 12, ;
Name = "Shape2", ;
SpecialEffect = 0, ;
Top = 17, ;
Width = 360, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Text1' AS textbox WITH ;
Alignment = 3, ;
BorderStyle = 1, ;
ControlSource = "m.nract", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text1", ;
ReadOnly = .F., ;
TabIndex = 20, ;
Top = 40, ;
Width = 180, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text10' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.tipamort", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text10", ;
ReadOnly = .F., ;
TabIndex = 30, ;
Top = 282, ;
Width = 180, ;
ZOrderSet = 25
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text11' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.NUMEgest", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text11", ;
ReadOnly = .F., ;
TabIndex = 31, ;
Top = 306, ;
Width = 180, ;
ZOrderSet = 27
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text12' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.respons", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text12", ;
ReadOnly = .F., ;
TabIndex = 32, ;
Top = 331, ;
Width = 180, ;
ZOrderSet = 29
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text13' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.caract", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text13", ;
ReadOnly = .F., ;
TabIndex = 33, ;
Top = 355, ;
Width = 180, ;
ZOrderSet = 31
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text14' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.nrinv", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text14", ;
ReadOnly = .F., ;
TabIndex = 27, ;
Top = 210, ;
Width = 180, ;
ZOrderSet = 19
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text2' AS textbox WITH ;
Alignment = 3, ;
BorderStyle = 1, ;
ControlSource = "m.dataact", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text2", ;
ReadOnly = .F., ;
TabIndex = 21, ;
Top = 65, ;
Width = 180, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text3' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.denumire", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text3", ;
ReadOnly = .F., ;
TabIndex = 22, ;
Top = 89, ;
Width = 180, ;
ZOrderSet = 11
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text4' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.valoare", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text4", ;
ReadOnly = .F., ;
TabIndex = 23, ;
Top = 114, ;
Width = 180, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text5' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.datapif", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text5", ;
ReadOnly = .F., ;
TabIndex = 24, ;
Top = 138, ;
Width = 180, ;
ZOrderSet = 15
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text6' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.nrpif", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text6", ;
ReadOnly = .F., ;
TabIndex = 25, ;
Top = 163, ;
Width = 180, ;
ZOrderSet = 17
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text7' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.codmf", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text7", ;
ReadOnly = .F., ;
TabIndex = 26, ;
Top = 187, ;
Width = 180, ;
ZOrderSet = 19
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text8' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.normat", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text8", ;
ReadOnly = .F., ;
TabIndex = 28, ;
Top = 234, ;
Width = 180, ;
ZOrderSet = 21
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text9' AS textbox WITH ;
Alignment = 3, ;
ControlSource = "m.uzura", ;
Enabled = .T., ;
FontName = "Arial Narrow", ;
Height = 22, ;
Left = 172, ;
Name = "Text9", ;
ReadOnly = .F., ;
TabIndex = 29, ;
Top = 257, ;
Width = 180, ;
ZOrderSet = 23
*< END OBJECT: BaseClass="textbox" />
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