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:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
--- a/Meniuri/listgen.mn2
+++ b/Meniuri/listgen.mn2
@@ -0,0 +1,98 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="listgen.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*<MenuType>4</MenuType>
+*<MenuLocation>REPLACE</MenuLocation>
+
+*<MenuCode>
+DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
+DEFINE BAR 1 OF Shortcut PROMPT "Evidenta comenzilor"
+ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
+
+DEFINE BAR 2 OF Shortcut PROMPT "Lista de inventariere"
+ON BAR 2 OF Shortcut ACTIVATE POPUP Listadeinv
+
+	*----------------------------------
+	DEFINE POPUP Listadeinv SHORTCUT RELATIVE
+	DEFINE BAR 1 OF Listadeinv PROMPT "Model 1"
+	ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P
+
+	DEFINE BAR 2 OF Listadeinv PROMPT "Model 2"
+	ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P
+
+DEFINE BAR 3 OF Shortcut PROMPT "Achizitie material pe furnizori"
+ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
+ACTIVATE POPUP Shortcut
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Shortcut_FB2P
+	*!*	DO evidenta_comenzi
+ENDPROC && BAR_1_OF_Shortcut_FB2P
+
+PROCEDURE BAR_1_OF_Listadeinv_FB2P
+	*!*	do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
+	*!*	SELE NUMEGEST
+	*!*	LOCATE FOR NUMEGEST==M.NUMEGEST
+	*!*	SCATTER MEMVAR
+	
+	*!*	***DO NCONT.SPR
+	*!*	SELE BAL
+	
+	*!*	DO FORM selecont
+	
+	*!*	SELECT bal
+	*!*	SET FILTER TO 
+	
+	*!*	IF BUTON=2
+	*!*		RETURN
+	*!*	ENDIF
+	
+	*!*	SELE stoc
+	*!*	INDEX ON STR(gest)+scd+denumire TAG scdgestden OF &loc\&nfscurt\tempo\STOCINV
+	
+	*!*	*SET ORDER TO tag scd
+	*!*	REPORT FORM nota_inv_mic.frx TO PRINTER PROMPT PREVIEW 
+	
+	*!*	SELE stoc
+	*!*	SET ORDER TO tag DENUMIRE
+	*!*	SET FILTER TO 
+ENDPROC && BAR_1_OF_Listadeinv_FB2P
+
+PROCEDURE BAR_2_OF_Listadeinv_FB2P
+	*!*	do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
+	*!*	SELE NUMEGEST
+	*!*	LOCATE FOR NUMEGEST==M.NUMEGEST
+	*!*	SCATTER MEMVAR
+	
+	*!*	***DO NCONT.SPR
+	*!*	SELE BAL
+	
+	*!*	DO FORM selecont
+	
+	*!*	SELECT bal
+	*!*	SET FILTER TO 
+	
+	*!*	IF BUTON=2
+	*!*		RETURN
+	*!*	ENDIF
+	
+	*!*	SELE stoc
+	*!*	INDEX ON STR(gest)+scd+denumire TAG scdgestden OF &loc\&nfscurt\tempo\STOCINV
+	
+	*!*	*SET ORDER TO tag scd
+	*!*	REPORT FORM nota_inv_mic2.frx TO PRINTER PROMPT PREVIEW 
+	
+	*!*	SELE stoc
+	*!*	SET ORDER TO tag DENUMIRE
+	*!*	SET FILTER TO 
+ENDPROC && BAR_2_OF_Listadeinv_FB2P
+
+PROCEDURE BAR_3_OF_Shortcut_FB2P
+	*!*	DO raport_material_furnizor IN gestiuni.prg
+ENDPROC && BAR_3_OF_Shortcut_FB2P
+
+*</Procedures>