*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="valori.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 ffergen12 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="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />

	*<PropValue>
		DataSession = 1
		DoCreate = .T.
		Height = 145
		Name = "Ffergen12"
		Width = 315
		Line1.Name = "Line1"
		Line1.ZOrderSet = 1
	*</PropValue>

	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
		Caption = "\<CONTINUARE", ;
		Height = 25, ;
		Left = 206, ;
		Name = "Cmdtermin1", ;
		TabIndex = 2, ;
		Top = 113, ;
		Width = 89, ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .F., ;
		Caption = "Introduceti valoarea care se transforma in mijloc fix pentru imobilizarea:", ;
		Height = 41, ;
		Left = 12, ;
		Name = "Label1", ;
		Top = 7, ;
		Width = 287, ;
		WordWrap = .T., ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Valoarea initiala", ;
		Height = 17, ;
		Left = 15, ;
		Name = "Label2", ;
		Top = 58, ;
		Width = 90, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 139, ;
		Left = 2, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 3, ;
		Width = 309, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "m.valoare", ;
		Height = 23, ;
		InputMask = "99 999 999 999 999", ;
		Left = 15, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		TabIndex = 3, ;
		Top = 78, ;
		Width = 136, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "valtrans", ;
		Format = "rk", ;
		Height = 23, ;
		InputMask = "99 999 999 999 999", ;
		Left = 159, ;
		Name = "Text2", ;
		TabIndex = 1, ;
		Top = 79, ;
		Width = 136, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		BorderStyle = 0, ;
		ControlSource = "m.denumire", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 124, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		SpecialEffect = 1, ;
		Top = 21, ;
		Width = 181, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Text2.Valid
		IF valtrans>m.valoare
		DO mesaj WITH "Valoarea transformata este mai mare decat ",'valoarea initiala'
		RETURN
		ENDIF 
	ENDPROC

ENDDEFINE