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

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

Meniuri/cheltavans.mn2

@@ -0,0 +1,46 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="cheltavans.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*<MenuType>4</MenuType>
+*<MenuLocation>REPLACE</MenuLocation>
+
+*<MenuCode>
+DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL()
+DEFINE BAR 1 OF Cheltuieli PROMPT "Balanta cheltuieli in avans"
+ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P
+
+DEFINE BAR 2 OF Cheltuieli PROMPT "Situatia analitica a cheltuielilor in avans"
+ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P
+ACTIVATE POPUP Cheltuieli
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Cheltuieli_FB2P
+	DO lans_balanta_parteneri WITH "471",.T. IN OPARTENERI.prg
+ENDPROC && BAR_1_OF_Cheltuieli_FB2P
+
+PROCEDURE BAR_2_OF_Cheltuieli_FB2P
+	*!*	PRIVATE pcAcont, pnCumul, pnact1, pnact2
+	*!*	STORE '' TO pcAcont
+	*!*	STORE 0 TO pnCumul, pnact1, pnact2
+	
+	*!*	IF USED('xavans')
+	*!*		USE IN xavans
+	*!*	ENDIF 
+	
+	*!*	USE &date\chavans.dbf again IN 0 SHARED ALIAS xavans
+	*!*	SELECT xavans
+	*!*	oavans=CREATEOBJECT('ch_ven_avans')
+	*!*	oavans.cont='scd'
+	*!*	oavans.show(1)
+	
+	*!*	USE IN xavans
+	
+	*!*	DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
+	DO lans_ireg_parteneri WITH .F.,'471',.T.
+ENDPROC && BAR_2_OF_Cheltuieli_FB2P
+
+*</Procedures>