Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

Meniuri/clienti1.mn2

@@ -0,0 +1,136 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="clienti1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*<MenuType>4</MenuType>
+*<MenuLocation>REPLACE</MenuLocation>
+
+*<MenuCode>
+DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL()
+DEFINE BAR 1 OF Clienti PROMPT "Venituri din vanzari/servicii" ;
+	MESSAGE '4111-7XX ; 4111-4427'
+ON SELECTION BAR 1 OF Clienti DO BAR_1_OF_Clienti_FB2P
+
+DEFINE BAR 2 OF Clienti PROMPT "Inregistrare facturare avansuri" ;
+	MESSAGE '4111-419;4111-4427'
+ON SELECTION BAR 2 OF Clienti DO BAR_2_OF_Clienti_FB2P
+
+DEFINE BAR 3 OF Clienti PROMPT "Inregistrare venituri in avans" ;
+	MESSAGE '4111-472;4111-4427'
+ON SELECTION BAR 3 OF Clienti DO BAR_3_OF_Clienti_FB2P
+
+DEFINE BAR 4 OF Clienti PROMPT "\-"
+ON BAR 4 OF Clienti ACTIVATE POPUP _09c1af6yl
+
+	*----------------------------------
+	DEFINE POPUP _09c1af6yl SHORTCUT RELATIVE
+DEFINE BAR 5 OF Clienti PROMPT "Clienti externi"
+ON BAR 5 OF Clienti ACTIVATE POPUP Facturinei
+
+	*----------------------------------
+	DEFINE POPUP Facturinei SHORTCUT RELATIVE
+	DEFINE BAR 1 OF Facturinei PROMPT "\<Prestari servicii" ;
+		MESSAGE '4111-X'
+	ON SELECTION BAR 1 OF Facturinei DO BAR_1_OF_Facturinei_FB2P
+
+DEFINE BAR 6 OF Clienti PROMPT "\-"
+ON BAR 6 OF Clienti ACTIVATE POPUP _40n0of2zm
+
+	*----------------------------------
+	DEFINE POPUP _40n0of2zm SHORTCUT RELATIVE
+DEFINE BAR 7 OF Clienti PROMPT "Constituire garantii 462"
+ON SELECTION BAR 7 OF Clienti DO BAR_7_OF_Clienti_FB2P
+
+DEFINE BAR 8 OF Clienti PROMPT "\-"
+ON BAR 8 OF Clienti ACTIVATE POPUP _1381ddz8n
+
+	*----------------------------------
+	DEFINE POPUP _1381ddz8n SHORTCUT RELATIVE
+DEFINE BAR 9 OF Clienti PROMPT "Sconturi acordate clientilor" ;
+	MESSAGE '667-4111'
+ON SELECTION BAR 9 OF Clienti lans(10326)
+
+DEFINE BAR 10 OF Clienti PROMPT "Reduceri comerciale acordate 709" ;
+	MESSAGE '709-4111; 4111-4427'
+ON SELECTION BAR 10 OF Clienti lans(10605)
+
+DEFINE BAR 11 OF Clienti PROMPT "\-"
+ON BAR 11 OF Clienti ACTIVATE POPUP _4pi12bm3a
+
+	*----------------------------------
+	DEFINE POPUP _4pi12bm3a SHORTCUT RELATIVE
+DEFINE BAR 12 OF Clienti PROMPT "Factura anulata" ;
+	MESSAGE '4111 = 707 Creare document anulat cu suma 0 pentru D394'
+ON SELECTION BAR 12 OF Clienti lans(99996)
+
+DEFINE BAR 13 OF Clienti PROMPT "\-"
+ON BAR 13 OF Clienti ACTIVATE POPUP _6tz10qrp2
+
+	*----------------------------------
+	DEFINE POPUP _6tz10qrp2 SHORTCUT RELATIVE
+DEFINE BAR 14 OF Clienti PROMPT "Import eFactura trimise"
+ON SELECTION BAR 14 OF Clienti do importEfacturaTrimise in import_efactura.prg
+ACTIVATE POPUP Clienti
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Clienti_FB2P
+	LOCAL lnRaspuns
+	lnRaspuns = 6
+	
+	DO WHILE lnRaspuns = 6
+		 lans(10464)
+		if buton = 2
+			return
+		ENDIF
+		DO introducere_compacta WITH 'achi_mat','4111','',.t.,.t.,'Venituri din vanzari - Clienti 4111','4427',10464
+		IF buton=1
+			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
+		ELSE
+			lnRaspuns = 7	
+		ENDIF 
+	ENDDO 
+ENDPROC && BAR_1_OF_Clienti_FB2P
+
+PROCEDURE BAR_2_OF_Clienti_FB2P
+	lans(10470)
+ENDPROC && BAR_2_OF_Clienti_FB2P
+
+PROCEDURE BAR_3_OF_Clienti_FB2P
+	lans(10471)
+ENDPROC && BAR_3_OF_Clienti_FB2P
+
+PROCEDURE BAR_1_OF_Facturinei_FB2P
+	
+	
+	*!*	SELE BAL
+	*!*	GO TOP
+	*!*	OS=CREA('SELCONT')
+	*!*	OS.SHOW(1)
+	*!*	IF BUTON=2
+	*!*	RETURN
+	*!*	ENDIF
+	PRIVATE pcACN
+	loCont=ret_cont("Selectati contul",'7,419')
+	
+	IF TYPE('loCont') # 'O'
+		RETURN
+	ENDIF 
+	
+	IF buton=2
+		RELEASE loCont
+		RETURN 
+	ENDIF 
+	CN=locont.cont
+	PcACN=loCont.Acont
+	
+	lans(10327)
+ENDPROC && BAR_1_OF_Facturinei_FB2P
+
+PROCEDURE BAR_7_OF_Clienti_FB2P
+	lans(10615)
+ENDPROC && BAR_7_OF_Clienti_FB2P
+
+*</Procedures>