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:54:13 +03:00
commit 09580ad9d6
340 changed files with 334893 additions and 0 deletions
--- a/Meniuri/furnizori5.mn2
+++ b/Meniuri/furnizori5.mn2
@@ -0,0 +1,113 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori5.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 "Factura nesosita"
+ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
+
+DEFINE BAR 2 OF Shortcut PROMPT "Factura nesosita externa"
+ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
+
+DEFINE BAR 3 OF Shortcut PROMPT "\-"
+ON BAR 3 OF Shortcut ACTIVATE POPUP _13y10dnby
+
+	*----------------------------------
+	DEFINE POPUP _13y10dnby SHORTCUT RELATIVE
+DEFINE BAR 4 OF Shortcut PROMPT "Facturi nesosite 408"
+ON BAR 4 OF Shortcut ACTIVATE POPUP Facturines
+
+	*----------------------------------
+	DEFINE POPUP Facturines SHORTCUT RELATIVE
+	DEFINE BAR 1 OF Facturines PROMPT "Marfa" ;
+		MESSAGE '371 : 408; 4428 :408'
+	ON SELECTION BAR 1 OF Facturines DO BAR_1_OF_Facturines_FB2P
+
+	DEFINE BAR 2 OF Facturines PROMPT "Materii prime" ;
+		MESSAGE '301 :408; 4428 :408'
+	ON SELECTION BAR 2 OF Facturines DO BAR_2_OF_Facturines_FB2P
+
+	DEFINE BAR 3 OF Facturines PROMPT "Materiale auxiliare" ;
+		MESSAGE '3021 :408; 4428 :408'
+	ON SELECTION BAR 3 OF Facturines DO BAR_3_OF_Facturines_FB2P
+
+	DEFINE BAR 4 OF Facturines PROMPT "Combustibili" ;
+		MESSAGE '3022:408; 4428 :408'
+	ON SELECTION BAR 4 OF Facturines DO BAR_4_OF_Facturines_FB2P
+
+	DEFINE BAR 5 OF Facturines PROMPT "Piese de schimb" ;
+		MESSAGE '3024:408; 4428 :408'
+	ON SELECTION BAR 5 OF Facturines DO BAR_5_OF_Facturines_FB2P
+
+	DEFINE BAR 6 OF Facturines PROMPT "Alte materiale" ;
+		MESSAGE '3028:408; 4428 :408'
+	ON SELECTION BAR 6 OF Facturines DO BAR_6_OF_Facturines_FB2P
+ACTIVATE POPUP Shortcut
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Shortcut_FB2P
+	buton = lans(10458)
+	IF buton=2
+		DO deschid_actc
+		RETURN
+	ENDIF 
+	
+	DO introducere_compacta WITH 'achi_mat','','408 ',.t.,.t.,'Achizitie-Cheltuieli Materiale-Facturi nesosite 408','4428',10458
+ENDPROC && BAR_1_OF_Shortcut_FB2P
+
+PROCEDURE BAR_2_OF_Shortcut_FB2P
+	*!*	SELE BAL
+	*!*	GO TOP
+	*!*	OS=CREA('SELCONT')
+	*!*	OS.SHOW(1)
+	*!*	IF BUTON=2
+	*!*		RETURN
+	*!*	ENDIF
+	PRIVATE pcACN
+	loCont=ret_cont("Selectati contul",'3,4,6')
+	
+	IF TYPE('loCont') # 'O'
+		RETURN
+	ENDIF 
+	
+	IF buton=2
+		RELEASE loCont
+		RETURN 
+	ENDIF 
+	CN=locont.cont
+	PcACN=loCont.Acont
+	LANS(10548)
+ENDPROC && BAR_2_OF_Shortcut_FB2P
+
+PROCEDURE BAR_1_OF_Facturines_FB2P
+	lans(10218)
+ENDPROC && BAR_1_OF_Facturines_FB2P
+
+PROCEDURE BAR_2_OF_Facturines_FB2P
+	lans(10219)
+ENDPROC && BAR_2_OF_Facturines_FB2P
+
+PROCEDURE BAR_3_OF_Facturines_FB2P
+	lans(10220)
+ENDPROC && BAR_3_OF_Facturines_FB2P
+
+PROCEDURE BAR_4_OF_Facturines_FB2P
+	lans(10221)
+ENDPROC && BAR_4_OF_Facturines_FB2P
+
+PROCEDURE BAR_5_OF_Facturines_FB2P
+	lans(10222)
+ENDPROC && BAR_5_OF_Facturines_FB2P
+
+PROCEDURE BAR_6_OF_Facturines_FB2P
+	lans(10223)
+ENDPROC && BAR_6_OF_Facturines_FB2P
+
+*</Procedures>