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:43:11 +03:00
commit 430d2c6000
72 changed files with 44452 additions and 0 deletions
--- a/Ferestre/importroris.sc2
+++ b/Ferestre/importroris.sc2
@@ -0,0 +1,125 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="importroris.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>
+		DataSource = .NULL.
+		Height = 0
+		Left = 0
+		Name = "Dataenvironment"
+		Top = 0
+		Width = 0
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS form1 AS form 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtNrZile" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		Caption = "Import RORIS - ROA"
+		DoCreate = .T.
+		Height = 144
+		Icon = ..\grafice\import_roris.ico
+		Left = 0
+		Name = "Form1"
+		Top = 0
+		Width = 351
+		WindowType = 1
+	*</PropValue>
+
+	ADD OBJECT 'Command1' AS commandbutton WITH ;
+		AutoSize = .F., ;
+		Caption = "\<Import din RORIS", ;
+		Height = 27, ;
+		Left = 144, ;
+		Name = "Command1", ;
+		Top = 24, ;
+		Width = 153
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'Command2' AS commandbutton WITH ;
+		AutoSize = .F., ;
+		Caption = "\<Afiseaza Log", ;
+		Height = 27, ;
+		Left = 144, ;
+		Name = "Command2", ;
+		Top = 60, ;
+		Width = 153
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'Command3' AS commandbutton WITH ;
+		AutoSize = .F., ;
+		Caption = "Afiseaza stare job import", ;
+		Height = 27, ;
+		Left = 144, ;
+		Name = "Command3", ;
+		Top = 94, ;
+		Width = 153
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Nr. zile import", ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label1", ;
+		Top = 8, ;
+		Width = 77
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'txtNrZile' AS textbox WITH ;
+		Alignment = 3, ;
+		Height = 23, ;
+		Left = 24, ;
+		Name = "txtNrZile", ;
+		Top = 26, ;
+		Value = 30, ;
+		Width = 100
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE Init
+		_screen.Visible = .T. 
+		_screen.Icon= 'D:\ROA\ROAACNPRO\GRAFICE\IMPORT_RORIS.ICO'
+		_Screen.Caption = 'ROA Import RORIS - ROA'
+	ENDPROC
+
+	PROCEDURE Command1.Click
+		Local llSilentios, lnOptiune, lnZile
+		llSilentios = .F.
+		lnOptiune = 1
+		lnZile = Thisform.txtNrZile.Value
+		Do importroris_proceduri.prg With m.llSilentios, m.lnOptiune, m.lnZile
+	ENDPROC
+
+	PROCEDURE Command2.Click
+		Local llSilentios, lnOptiune
+		llSilentios = .F.
+		lnOptiune = 2
+		lnZile = Thisform.txtNrZile.Value
+		Do importroris_proceduri.prg With m.llSilentios, m.lnOptiune
+		
+	ENDPROC
+
+	PROCEDURE Command3.Click
+		Local llSilentios, lnOptiune
+		llSilentios = .F.
+		lnOptiune = 3
+		Do importroris_proceduri.prg With m.llSilentios, m.lnOptiune
+		
+	ENDPROC
+
+ENDDEFINE