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

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-07-16 11:37:36 +03:00
commit 34aed0c4d7
236 changed files with 145556 additions and 0 deletions
--- a/Ferestre/Vechi/valori.sc2
+++ b/Ferestre/Vechi/valori.sc2
@@ -0,0 +1,129 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (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