Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
328
Ferestre/Vechi/frm_calcul.sc2
Normal file
328
Ferestre/Vechi/frm_calcul.sc2
Normal file
@@ -0,0 +1,328 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_calcul.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 formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: valoare
|
||||
*p: valram
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BackColor = 192,192,192
|
||||
BorderStyle = 1
|
||||
DataSession = 1
|
||||
DoCreate = .T.
|
||||
Height = 279
|
||||
Name = "FORMTERMIN12"
|
||||
valoare = 0
|
||||
valram = 0
|
||||
Width = 411
|
||||
SHAPE1.Height = 35
|
||||
SHAPE1.Left = 0
|
||||
SHAPE1.Name = "SHAPE1"
|
||||
SHAPE1.Top = 0
|
||||
SHAPE1.Width = 360
|
||||
TERMINAT1.COMMAND1.Name = "COMMAND1"
|
||||
TERMINAT1.IMBUTON1.Height = 27
|
||||
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
|
||||
TERMINAT1.IMBUTON1.Width = 30
|
||||
TERMINAT1.Left = 368
|
||||
TERMINAT1.Name = "TERMINAT1"
|
||||
TERMINAT1.TabIndex = 5
|
||||
TERMINAT1.Top = 3
|
||||
TITLUFRUMOS1.Caption = "Calculul amortizarii"
|
||||
TITLUFRUMOS1.Height = 32
|
||||
TITLUFRUMOS1.Left = 7
|
||||
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
|
||||
TITLUFRUMOS1.TabIndex = 8
|
||||
TITLUFRUMOS1.Top = 5
|
||||
TITLUFRUMOS1.Width = 184
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de calcul Vc =", ;
|
||||
Height = 17, ;
|
||||
Left = 146, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 98, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label10' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea reziduala Vrez =", ;
|
||||
Height = 17, ;
|
||||
Left = 135, ;
|
||||
Name = "Label10", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 73, ;
|
||||
Width = 140
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Cota c = 100 / DNSc =", ;
|
||||
Height = 17, ;
|
||||
Left = 153, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 175, ;
|
||||
Width = 122
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Amortizment lunar A = c x Vc =", ;
|
||||
Height = 17, ;
|
||||
Left = 111, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 201, ;
|
||||
Width = 164
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Durata de calcul DNSc =", ;
|
||||
Height = 17, ;
|
||||
Left = 139, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 148, ;
|
||||
Width = 136
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "%", ;
|
||||
Height = 17, ;
|
||||
Left = 397, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 173, ;
|
||||
Width = 13
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea de intrare Vi =", ;
|
||||
Height = 17, ;
|
||||
Left = 146, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 48, ;
|
||||
Width = 129
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Total amortizare precedenta Ap =", ;
|
||||
Height = 17, ;
|
||||
Left = 93, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 123, ;
|
||||
Width = 182
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Valoarea ramasa de amortizat Vr = Vi - Vrez - At =", ;
|
||||
Height = 17, ;
|
||||
Left = 7, ;
|
||||
Name = "Label8", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 248, ;
|
||||
Width = 267
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Total amortizare At = Ap + A =", ;
|
||||
Height = 17, ;
|
||||
Left = 114, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 10, ;
|
||||
Top = 226, ;
|
||||
Width = 160
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
ControlSource = "m.valramasa", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 95, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
ControlSource = "m.normat2", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = "99 999 999 999 999", ;
|
||||
Left = 280, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 145, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
ControlSource = "m.cota", ;
|
||||
Format = "r", ;
|
||||
Height = 23, ;
|
||||
InputMask = "9999.99", ;
|
||||
Left = 280, ;
|
||||
Name = "Text3", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 170, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||
ControlSource = "m.amortlun", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text4", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 195, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
ControlSource = "thisform.valram", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text5", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 245, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text6' AS textbox WITH ;
|
||||
ControlSource = "m.valin", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text6", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 45, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text7' AS textbox WITH ;
|
||||
ControlSource = "m.amortprec", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text7", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 120, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||
ControlSource = "m.amorttot", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text8", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 220, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||
ControlSource = "m.valrez", ;
|
||||
Format = "", ;
|
||||
Height = 23, ;
|
||||
InputMask = (GET_MASK(14,gnZ)), ;
|
||||
Left = 280, ;
|
||||
Name = "Text9", ;
|
||||
ReadOnly = .T., ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 7, ;
|
||||
Top = 70, ;
|
||||
Width = 117
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Load
|
||||
thisform.valram=m.valin-m.amorttot-m.valrez
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user