*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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>
