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

	*<DefinedPropArrayMethod>
		*m: calcul_suprafata
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		DataSession = 1
		DoCreate = .T.
		Height = 221
		Name = "FormTERMIN12"
		Width = 477
		Shape1.Name = "Shape1"
		Terminat1.Command1.Name = "Command1"
		Terminat1.Imbuton1.Height = 27
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 30
		Terminat1.Left = 444
		Terminat1.Name = "Terminat1"
		Terminat1.Top = 3
		Titlufrumos1.Caption = "CONVERSII"
		Titlufrumos1.Left = 9
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.Top = 3
	*</PropValue>

	ADD OBJECT 'Pageframe1' AS pageframe WITH ;
		ErasePage = .T., ;
		Height = 156, ;
		Left = 13, ;
		Name = "Pageframe1", ;
		PageCount = 1, ;
		TabStyle = 1, ;
		Top = 48, ;
		Width = 456, ;
		Page1.BackColor = 247,245,238, ;
		Page1.Caption = "Lungime, Suprafata", ;
		Page1.FontName = "Courier New", ;
		Page1.ForeColor = 0,0,128, ;
		Page1.Name = "Page1"
		*< END OBJECT: BaseClass="pageframe" />

	ADD OBJECT 'Pageframe1.Page1.Item1' AS item WITH ;
		Left = 11, ;
		Name = "Item1", ;
		TabIndex = 1, ;
		Top = 20, ;
		Label_item1.Caption = "Lungimea ", ;
		Label_item1.Name = "Label_item1", ;
		Text_item1.ControlSource = "pnLungime", ;
		Text_item1.Format = "kR", ;
		Text_item1.InputMask = "9 999 999 999.9999", ;
		Text_item1.Name = "Text_item1", ;
		Lineo1.Name = "Lineo1", ;
		Lineo3.Name = "Lineo3", ;
		Lineo4.Name = "Lineo4", ;
		Lineo5.Name = "Lineo5", ;
		Lineo2.Name = "Lineo2"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.Item2' AS item WITH ;
		Left = 11, ;
		Name = "Item2", ;
		TabIndex = 2, ;
		Top = 44, ;
		Label_item1.Caption = "Latimea  ", ;
		Label_item1.Name = "Label_item1", ;
		Text_item1.ControlSource = "pnLatime", ;
		Text_item1.Format = "kR", ;
		Text_item1.InputMask = "9 999 999 999.9999", ;
		Text_item1.Name = "Text_item1", ;
		Lineo1.Name = "Lineo1", ;
		Lineo3.Name = "Lineo3", ;
		Lineo4.Name = "Lineo4", ;
		Lineo5.Name = "Lineo5", ;
		Lineo2.Name = "Lineo2"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.Item3' AS item WITH ;
		Left = 11, ;
		Name = "Item3", ;
		TabIndex = 3, ;
		Top = 68, ;
		Label_item1.Caption = "Pret unitar placa", ;
		Label_item1.Name = "Label_item1", ;
		Text_item1.ControlSource = "pnPret", ;
		Text_item1.Format = "kR", ;
		Text_item1.InputMask = "9 999 999 999.9999", ;
		Text_item1.Name = "Text_item1", ;
		Lineo1.Name = "Lineo1", ;
		Lineo3.Name = "Lineo3", ;
		Lineo4.Name = "Lineo4", ;
		Lineo5.Name = "Lineo5", ;
		Lineo2.Name = "Lineo2"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.Item4' AS item WITH ;
		Left = 11, ;
		Name = "Item4", ;
		TabIndex = 4, ;
		Top = 92, ;
		Label_item1.Caption = "Cantitatea", ;
		Label_item1.Name = "Label_item1", ;
		Text_item1.ControlSource = "PnCant", ;
		Text_item1.Format = "kR", ;
		Text_item1.InputMask = "9 999 999 999.9999", ;
		Text_item1.Name = "Text_item1", ;
		Lineo1.Name = "Lineo1", ;
		Lineo3.Name = "Lineo3", ;
		Lineo4.Name = "Lineo4", ;
		Lineo5.Name = "Lineo5", ;
		Lineo2.Name = "Lineo2"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
	
	PROCEDURE calcul_suprafata
		IF pnLungime#0 AND pnLatime#0 AND pnCANT#0 AND pnPRET#0
			pn_valoare=pnCant*pnPret
			*pn_cantitate=(pn_valoare/pnPret)*pnLungime*pnLatime
			pn_cantitate=ROUND(pnCant*pnLungime*pnLatime,3)
			*pn_PretUnit=(pn_valoare/pnCant)/(pnLungime*pnLatime)
			pn_PretUnit=ROUND(pn_valoare/pn_cantitate,3)
		ELSE 
			pn_cantitate=0
			pn_PretUnit=0
		ENDIF 
		
		*!*	WAIT WINDOW STR(pn_pretUnit)
		*!*	WAIT WINDOW STR(pn_cantitate)
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		this.pageframe1.page1.item1.SetFocus 
	ENDPROC

	PROCEDURE Pageframe1.Page1.Item1.Text_item1.GotFocus
		*
	ENDPROC

	PROCEDURE Pageframe1.Page1.Item1.Text_item1.Valid
		*
		
	ENDPROC

	PROCEDURE Pageframe1.Page1.Item1.Text_item1.When
		*
	ENDPROC

	PROCEDURE Pageframe1.Page1.Item2.Text_item1.GotFocus
		*
	ENDPROC

	PROCEDURE Pageframe1.Page1.Item2.Text_item1.Valid
		*
	ENDPROC

	PROCEDURE Pageframe1.Page1.Item2.Text_item1.When
		*
	ENDPROC

	PROCEDURE Pageframe1.Page1.Item3.Text_item1.GotFocus
		*
	ENDPROC

	PROCEDURE Pageframe1.Page1.Item3.Text_item1.When
		*
	ENDPROC

	PROCEDURE Pageframe1.Page1.Item4.Text_item1.GotFocus
		*
	ENDPROC

	PROCEDURE Pageframe1.Page1.Item4.Text_item1.When
		*
	ENDPROC

	PROCEDURE Terminat1.Command1.Click
		thisform.calcul_suprafata 
		thisform.Release 
	ENDPROC

ENDDEFINE
