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/optiuni.sc2
+++ b/Ferestre/Vechi/optiuni.sc2
@@ -0,0 +1,96 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni.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="LABEL_ITEM1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: amo
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BorderStyle = 3
+		DataSession = 1
+		DoCreate = .T.
+		Height = 129
+		Name = "Formtermin12"
+		Width = 327
+		SHAPE1.Name = "SHAPE1"
+		TERMINAT1.COMMAND1.Name = "COMMAND1"
+		TERMINAT1.IMBUTON1.Height = 27
+		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
+		TERMINAT1.IMBUTON1.Width = 30
+		TERMINAT1.Left = 295
+		TERMINAT1.Name = "TERMINAT1"
+		TERMINAT1.Top = 3
+		TITLUFRUMOS1.Caption = "OPTIUNI"
+		TITLUFRUMOS1.Height = 37
+		TITLUFRUMOS1.Left = 7
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.Top = 6
+		TITLUFRUMOS1.Width = 271
+	*</PropValue>
+
+	ADD OBJECT 'Check1' AS checkbox WITH ;
+		BackStyle = 0, ;
+		Caption = "Da", ;
+		Height = 17, ;
+		Left = 252, ;
+		Name = "Check1", ;
+		Top = 60, ;
+		Value = 0, ;
+		Width = 60
+		*< END OBJECT: BaseClass="checkbox" />
+
+	ADD OBJECT 'LABEL_ITEM1' AS label_item WITH ;
+		AutoSize = .F., ;
+		BackStyle = 0, ;
+		Height = 60, ;
+		Left = 12, ;
+		Name = "LABEL_ITEM1", ;
+		Top = 48, ;
+		Width = 180
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
+	
+	PROCEDURE Init
+		sele optiuniS
+		loca for optiune='AMORTISMENT'
+		IF !FOUND()
+		APPE BLAN
+		REPL OPTIUNE WITH 'AMORTISMENT'
+		REPL DA WITH .F.
+		ENDIF
+		THISFORM.CHECK1.Value=IIF(DA,1,0)
+		thisform.amo=optiunis.da
+	ENDPROC
+
+	PROCEDURE Check1.Valid
+		thisform.amo=IIF(THIS.Value=1,.t.,.f.)
+		
+	ENDPROC
+
+	PROCEDURE TERMINAT1.COMMAND1.Click
+		sele optiuniS
+		loca for optiune='AMORTISMENT'
+		REPL DA WITH THISFORM.AMO
+		thisform.Release 
+		
+	ENDPROC
+
+ENDDEFINE