*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="listgen.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 "Evidenta comenzilor"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P

DEFINE BAR 2 OF Shortcut PROMPT "Lista de inventariere"
ON BAR 2 OF Shortcut ACTIVATE POPUP Listadeinv

	*----------------------------------
	DEFINE POPUP Listadeinv SHORTCUT RELATIVE
	DEFINE BAR 1 OF Listadeinv PROMPT "Model 1"
	ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P

	DEFINE BAR 2 OF Listadeinv PROMPT "Model 2"
	ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P

DEFINE BAR 3 OF Shortcut PROMPT "Achizitie material pe furnizori"
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	*!*	DO evidenta_comenzi
ENDPROC && BAR_1_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_Listadeinv_FB2P
	*!*	do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
	*!*	SELE NUMEGEST
	*!*	LOCATE FOR NUMEGEST==M.NUMEGEST
	*!*	SCATTER MEMVAR
	
	*!*	***DO NCONT.SPR
	*!*	SELE BAL
	
	*!*	DO FORM selecont
	
	*!*	SELECT bal
	*!*	SET FILTER TO 
	
	*!*	IF BUTON=2
	*!*		RETURN
	*!*	ENDIF
	
	*!*	SELE stoc
	*!*	INDEX ON STR(gest)+scd+denumire TAG scdgestden OF &loc\&nfscurt\tempo\STOCINV
	
	*!*	*SET ORDER TO tag scd
	*!*	REPORT FORM nota_inv_mic.frx TO PRINTER PROMPT PREVIEW 
	
	*!*	SELE stoc
	*!*	SET ORDER TO tag DENUMIRE
	*!*	SET FILTER TO 
ENDPROC && BAR_1_OF_Listadeinv_FB2P

PROCEDURE BAR_2_OF_Listadeinv_FB2P
	*!*	do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
	*!*	SELE NUMEGEST
	*!*	LOCATE FOR NUMEGEST==M.NUMEGEST
	*!*	SCATTER MEMVAR
	
	*!*	***DO NCONT.SPR
	*!*	SELE BAL
	
	*!*	DO FORM selecont
	
	*!*	SELECT bal
	*!*	SET FILTER TO 
	
	*!*	IF BUTON=2
	*!*		RETURN
	*!*	ENDIF
	
	*!*	SELE stoc
	*!*	INDEX ON STR(gest)+scd+denumire TAG scdgestden OF &loc\&nfscurt\tempo\STOCINV
	
	*!*	*SET ORDER TO tag scd
	*!*	REPORT FORM nota_inv_mic2.frx TO PRINTER PROMPT PREVIEW 
	
	*!*	SELE stoc
	*!*	SET ORDER TO tag DENUMIRE
	*!*	SET FILTER TO 
ENDPROC && BAR_2_OF_Listadeinv_FB2P

PROCEDURE BAR_3_OF_Shortcut_FB2P
	*!*	DO raport_material_furnizor IN gestiuni.prg
ENDPROC && BAR_3_OF_Shortcut_FB2P

*</Procedures>