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/decont4511.mn2
+++ b/Meniuri/decont4511.mn2
@@ -0,0 +1,121 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="decont4511.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 "Materiale primite" ;
+	MESSAGE ' X :4511'
+ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
+
+DEFINE BAR 2 OF Shortcut PROMPT "Materiale livrate" ;
+	MESSAGE ' 4511 : X'
+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 _1920lzdtu
+
+	*----------------------------------
+	DEFINE POPUP _1920lzdtu SHORTCUT RELATIVE
+DEFINE BAR 4 OF Shortcut PROMPT "Clienti" ;
+	MESSAGE ' 4511 : 4111'
+ON SELECTION BAR 4 OF Shortcut lans(10527)
+
+DEFINE BAR 5 OF Shortcut PROMPT "\-"
+ON BAR 5 OF Shortcut ACTIVATE POPUP _21g0x5gtc
+
+	*----------------------------------
+	DEFINE POPUP _21g0x5gtc SHORTCUT RELATIVE
+DEFINE BAR 6 OF Shortcut PROMPT "Decontari intre subunitati"
+ON BAR 6 OF Shortcut ACTIVATE POPUP Decontarii
+
+	*----------------------------------
+	DEFINE POPUP Decontarii SHORTCUT RELATIVE
+	DEFINE BAR 1 OF Decontarii PROMPT "Venituri"
+	ON SELECTION BAR 1 OF Decontarii DO BAR_1_OF_Decontarii_FB2P
+
+	DEFINE BAR 2 OF Decontarii PROMPT "Cheltuieli"
+	ON SELECTION BAR 2 OF Decontarii DO BAR_2_OF_Decontarii_FB2P
+ACTIVATE POPUP Shortcut
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Shortcut_FB2P
+	LOCAL lnRaspuns
+	lnRaspuns = 6
+	
+	DO WHILE lnRaspuns = 6
+		 lans(10521)
+		if buton = 2
+			return
+		ENDIF
+		DO introducere_compacta WITH 'achi_mat','','4511',.t.,.f.,'DECONTARI IN CADRUL GRUPULUI - PRIMIRE','4426',10521
+	
+		IF buton=1
+			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
+		else
+			lnRaspuns = 7
+		ENDIF 
+	ENDDO
+ENDPROC && BAR_1_OF_Shortcut_FB2P
+
+PROCEDURE BAR_2_OF_Shortcut_FB2P
+	LOCAL lnRaspuns
+	lnRaspuns = 6
+	
+	DO WHILE lnRaspuns = 6
+		lans(10520)
+		if buton = 2
+			return
+		ENDIF 
+		DO introducere_compacta WITH 'achi_mat','4511','',.t.,.f.,'DECONTARI IN CADRUL GRUPULUI - PRIMIRE','4427',10520	
+		IF buton=1
+			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
+		else
+			lnRaspuns = 7	
+		ENDIF 
+	ENDDO 
+ENDPROC && BAR_2_OF_Shortcut_FB2P
+
+PROCEDURE BAR_1_OF_Decontarii_FB2P
+	LOCAL lnRaspuns
+	lnRaspuns = 6
+	
+	DO WHILE lnRaspuns = 6
+		lans(10573)
+		if buton = 2
+			return
+		ENDIF 
+		DO introducere_compacta WITH 'achi_mat','482',,.t.,.f.,'DECONTARI INTRE SUBUNITATI','4427',10573
+		IF buton=1
+			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
+		else
+			lnRaspuns = 7	
+		ENDIF 
+	ENDDO 
+ENDPROC && BAR_1_OF_Decontarii_FB2P
+
+PROCEDURE BAR_2_OF_Decontarii_FB2P
+	LOCAL lnRaspuns
+	lnRaspuns = 6
+	
+	DO WHILE lnRaspuns = 6
+		lans(10574)
+		if buton = 2
+			return
+		ENDIF 
+		DO introducere_compacta WITH 'achi_mat',,'482',.t.,.f.,'DECONTARI INTRE SUBUNITATI','4426',10574
+		IF buton=1
+			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
+		else
+			lnRaspuns = 7	
+		ENDIF 
+	ENDDO 
+ENDPROC && BAR_2_OF_Decontarii_FB2P
+
+*</Procedures>