207 lines
6.0 KiB
Plaintext
207 lines
6.0 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|