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

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

Meniuri/Vechi/listnecorp.mn2

@@ -0,0 +1,126 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="listnecorp.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 "Cu Total \<General"
+ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
+
+DEFINE BAR 2 OF Shortcut PROMPT "Cu Totaluri pe \<Luni"
+ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
+
+DEFINE BAR 3 OF Shortcut PROMPT "Cu Totaluri pe \<Grupe"
+ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
+
+DEFINE BAR 4 OF Shortcut PROMPT "Cu Totaluri pe Sectie"
+ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
+
+DEFINE BAR 5 OF Shortcut PROMPT "\-"
+ON BAR 5 OF Shortcut ACTIVATE POPUP _11d0ud149
+
+	*----------------------------------
+	DEFINE POPUP _11d0ud149 SHORTCUT RELATIVE
+DEFINE BAR 6 OF Shortcut PROMPT "\<Lista fiselor"
+ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
+
+DEFINE BAR 7 OF Shortcut PROMPT "\-"
+ON BAR 7 OF Shortcut ACTIVATE POPUP _1600pa0of
+
+	*----------------------------------
+	DEFINE POPUP _1600pa0of SHORTCUT RELATIVE
+DEFINE BAR 8 OF Shortcut PROMPT "\<Lista de inventar"
+ON BAR 8 OF Shortcut ACTIVATE POPUP Listadeinv
+
+	*----------------------------------
+	DEFINE POPUP Listadeinv SHORTCUT RELATIVE
+	DEFINE BAR 1 OF Listadeinv PROMPT "Model1"
+	ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P
+
+	DEFINE BAR 2 OF Listadeinv PROMPT "Model2"
+	ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P
+ACTIVATE POPUP Shortcut
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Shortcut_FB2P
+	DO list_necorp_general
+ENDPROC && BAR_1_OF_Shortcut_FB2P
+
+PROCEDURE BAR_2_OF_Shortcut_FB2P
+	DO list_necorp_peluni
+ENDPROC && BAR_2_OF_Shortcut_FB2P
+
+PROCEDURE BAR_3_OF_Shortcut_FB2P
+	DO list_necorp_pegrup
+ENDPROC && BAR_3_OF_Shortcut_FB2P
+
+PROCEDURE BAR_4_OF_Shortcut_FB2P
+	DO list_corp_peSECTII WITH 'N'
+ENDPROC && BAR_4_OF_Shortcut_FB2P
+
+PROCEDURE BAR_6_OF_Shortcut_FB2P
+	DO lista_fiselor_necorp
+ENDPROC && BAR_6_OF_Shortcut_FB2P
+
+PROCEDURE BAR_1_OF_Listadeinv_FB2P
+	
+	DO caut_alf WITH 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
+	IF buton=2
+		RETURN
+	ENDIF
+	
+	SELE numegest
+	LOCATE FOR numegest=m.numegest
+	SCATTER MEMVAR
+	
+	
+	SELE mf
+	IF m.gest=-1
+		SET FILTER TO UPPER(fel)='N' AND !CASAT AND !INACTIV
+	ELSE
+		SET FILTER TO gest=m.gest AND UPPER(fel)='N' AND !CASAT AND !INACTIV
+	ENDIF
+	SET ORDER TO scdden
+	
+	REPORT FORM listmf_inv TO PRINTER PROMPT PREVIEW 
+	
+	SELECT mf
+	SET FILTER TO 
+ENDPROC && BAR_1_OF_Listadeinv_FB2P
+
+PROCEDURE BAR_2_OF_Listadeinv_FB2P
+	Private pddata
+	
+	ldatacrt = "01/" + m.nl + "/" + m.an
+	pddata = Gomonth(Ctod(ldatacrt),1) - 1
+	
+	Do caut_alf With 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
+	If buton=2
+		Return
+	Endif
+	
+	Sele numegest
+	Locate For numegest=m.numegest
+	Scatter Memvar
+	
+	Sele mf
+	If m.gest=-1
+		Set Filter To fel="N" And !CASAT AND !INACTIV
+	Else
+		Set Filter To gest=m.gest And fel="N" And !CASAT AND !INACTIV
+	Endif
+	
+	Set Order To scdden
+	
+	Report Form nota_inv2005 To Printer Prompt Preview
+	Select mf
+	Set Filter To
+ENDPROC && BAR_2_OF_Listadeinv_FB2P
+
+*</Procedures>