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

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

Meniuri/Vechi/listincurs.mn2

@@ -0,0 +1,41 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="listincurs.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 "Model1"
+ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
+
+DEFINE BAR 2 OF Shortcut PROMPT "Model2"
+ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
+ACTIVATE POPUP Shortcut
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Shortcut_FB2P
+	Select mf
+	Set Filter To Upper(fel)="C" And !CASAT
+	*INDEX ON ALLTRIM(nrinv)+DTOS(dataact) TAG datapif of &loc\&nfscurt\tempo\mfi
+	Index On Padr(scd,4," ")+Str(Val(nrinv)) Tag SCDNRINV Of &LOC\&NFSCURT\TEMPO\mfi Ascending
+	Report Form listimobcurs To Printer Prompt Preview
+ENDPROC && BAR_1_OF_Shortcut_FB2P
+
+PROCEDURE BAR_2_OF_Shortcut_FB2P
+	PRIVATE pddata
+	ldatacrt = "01/" + m.nl + "/" + m.an 
+	pddata = GOMONTH(CTOD(ldatacrt),1) - 1
+	
+	Select mf
+	Set Filter To Upper(fel)="C" And !CASAT
+	*INDEX ON ALLTRIM(nrinv)+DTOS(dataact) TAG datapif of &loc\&nfscurt\tempo\mfi
+	Index On str(gest,4)+Str(Val(nrinv)) Tag SCDNRINV Of &LOC\&NFSCURT\TEMPO\mfi Ascending
+	Report Form nota_inv2005 To Printer Prompt Preview
+ENDPROC && BAR_2_OF_Shortcut_FB2P
+
+*</Procedures>