*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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