romfast/roagest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 11:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

206
Ferestre/frm_conversii.sc2 Normal file
View File

@@ -0,0 +1,206 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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