*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni.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="LABEL_ITEM1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: amo
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		DataSession = 1
		DoCreate = .T.
		Height = 129
		Name = "Formtermin12"
		Width = 327
		SHAPE1.Name = "SHAPE1"
		TERMINAT1.COMMAND1.Name = "COMMAND1"
		TERMINAT1.IMBUTON1.Height = 27
		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
		TERMINAT1.IMBUTON1.Width = 30
		TERMINAT1.Left = 295
		TERMINAT1.Name = "TERMINAT1"
		TERMINAT1.Top = 3
		TITLUFRUMOS1.Caption = "OPTIUNI"
		TITLUFRUMOS1.Height = 37
		TITLUFRUMOS1.Left = 7
		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
		TITLUFRUMOS1.Top = 6
		TITLUFRUMOS1.Width = 271
	*</PropValue>

	ADD OBJECT 'Check1' AS checkbox WITH ;
		BackStyle = 0, ;
		Caption = "Da", ;
		Height = 17, ;
		Left = 252, ;
		Name = "Check1", ;
		Top = 60, ;
		Value = 0, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'LABEL_ITEM1' AS label_item WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Height = 60, ;
		Left = 12, ;
		Name = "LABEL_ITEM1", ;
		Top = 48, ;
		Width = 180
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
	
	PROCEDURE Init
		sele optiuniS
		loca for optiune='AMORTISMENT'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'AMORTISMENT'
		REPL DA WITH .F.
		ENDIF
		THISFORM.CHECK1.Value=IIF(DA,1,0)
		thisform.amo=optiunis.da
	ENDPROC

	PROCEDURE Check1.Valid
		thisform.amo=IIF(THIS.Value=1,.t.,.f.)
		
	ENDPROC

	PROCEDURE TERMINAT1.COMMAND1.Click
		sele optiuniS
		loca for optiune='AMORTISMENT'
		REPL DA WITH THISFORM.AMO
		thisform.Release 
		
	ENDPROC

ENDDEFINE
