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 10:55:38 +03:00
commit 2f59024385
1271 changed files with 820556 additions and 0 deletions
--- a/clase/utility.vc2
+++ b/clase/utility.vc2
@@ -0,0 +1,104 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="utility.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS keepalive AS timer 
+ 	*< CLASSDATA: Baseclass="timer" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<PropValue>
+		Enabled = .F.
+		Height = 23
+		Name = "keepalive"
+		Width = 23
+	*</PropValue>
+	
+	PROCEDURE Timer
+		*** instructiune KeepAlive
+		TRY 
+		lnSucces = goExecutor.oExecute([update contafin_oracle.SERVER_INFO set value = 'x' where 1=2])
+		CATCH 
+		ENDTRY 
+		
+	ENDPROC
+
+ENDDEFINE
+
+DEFINE CLASS menulib AS container 
+ 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<DefinedPropArrayMethod>
+		*m: deactivatemenu
+		*m: showmenu
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BackColor = 0,0,255
+		Height = 15
+		Name = "menulib"
+		Visible = .F.
+		Width = 50
+	*</PropValue>
+	
+	PROCEDURE deactivatemenu
+		DEACTIVATE MENU _popShortcutMenu
+		
+	ENDPROC
+
+	PROCEDURE Destroy
+		this.DeactivateMenu
+		
+	ENDPROC
+
+	PROCEDURE showmenu
+		LPARAMETERS taMenu,tcOnSelection
+		LOCAL lcOnSelection,lnMenuCount,lnCount,llDoubleArray
+		LOCAL lcMenuItem,lcMenuSelection
+		EXTERNAL ARRAY taMenu
+		
+		IF PARAMETERS()=0 OR TYPE("taMenu")#"C"
+			RETURN .F.
+		ENDIF
+		lnMenuCount=0
+		lnMenuCount=ALEN(taMenu,1)
+		IF lnMenuCount=0
+			RETURN .F.
+		ENDIF
+		llDoubleArray=(ALEN(taMenu,2)>0)
+		ACTIVATE SCREEN
+		DEACTIVATE POPUP _popShortcutMenu
+		DEFINE POPUP _popShortcutMenu ;
+				FROM MROW(),MCOL() ;
+				MARGIN ;
+				RELATIVE ;
+				SHORTCUT
+		FOR lnCount = 1 TO lnMenuCount
+			lcMenuItem=IIF(llDoubleArray,taMenu[lnCount,1],taMenu[lnCount])
+			DEFINE BAR lnCount OF _popShortcutMenu PROMPT (lcMenuItem)
+		ENDFOR
+		ON SELECTION POPUP _popShortcutMenu DEACTIVATE POPUP _popShortcutMenu
+		ACTIVATE POPUP _popShortcutMenu
+		RELEASE POPUP _popShortcutMenu
+		IF BAR()=0
+			RETURN .F.
+		ENDIF
+		IF llDoubleArray
+			 lcMenuSelection=taMenu[BAR(),2]
+			 IF NOT EMPTY(lcMenuSelection) AND TYPE("lcMenuSelection")=="C"
+			 	lcOnSelection=ALLTRIM(lcMenuSelection)
+			 ENDIF
+			 IF EMPTY(lcOnSelection)
+				lcOnSelection=ALLTRIM(IIF(EMPTY(tcOnSelection),"",tcOnSelection))
+			 ENDIF
+		ELSE
+			lcOnSelection=ALLTRIM(IIF(EMPTY(tcOnSelection),"",tcOnSelection))
+		ENDIF
+		IF EMPTY(lcOnSelection)
+			RETURN .F.
+		ENDIF
+		&lcOnSelection
+		
+	ENDPROC
+
+ENDDEFINE