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

DEFINE BAR 2 OF Shortcut PROMPT "Factura nesosita externa"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P

DEFINE BAR 3 OF Shortcut PROMPT "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _13y10dnby

	*----------------------------------
	DEFINE POPUP _13y10dnby SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "Facturi nesosite 408"
ON BAR 4 OF Shortcut ACTIVATE POPUP Facturines

	*----------------------------------
	DEFINE POPUP Facturines SHORTCUT RELATIVE
	DEFINE BAR 1 OF Facturines PROMPT "Marfa" ;
		MESSAGE '371 : 408; 4428 :408'
	ON SELECTION BAR 1 OF Facturines DO BAR_1_OF_Facturines_FB2P

	DEFINE BAR 2 OF Facturines PROMPT "Materii prime" ;
		MESSAGE '301 :408; 4428 :408'
	ON SELECTION BAR 2 OF Facturines DO BAR_2_OF_Facturines_FB2P

	DEFINE BAR 3 OF Facturines PROMPT "Materiale auxiliare" ;
		MESSAGE '3021 :408; 4428 :408'
	ON SELECTION BAR 3 OF Facturines DO BAR_3_OF_Facturines_FB2P

	DEFINE BAR 4 OF Facturines PROMPT "Combustibili" ;
		MESSAGE '3022:408; 4428 :408'
	ON SELECTION BAR 4 OF Facturines DO BAR_4_OF_Facturines_FB2P

	DEFINE BAR 5 OF Facturines PROMPT "Piese de schimb" ;
		MESSAGE '3024:408; 4428 :408'
	ON SELECTION BAR 5 OF Facturines DO BAR_5_OF_Facturines_FB2P

	DEFINE BAR 6 OF Facturines PROMPT "Alte materiale" ;
		MESSAGE '3028:408; 4428 :408'
	ON SELECTION BAR 6 OF Facturines DO BAR_6_OF_Facturines_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	buton = lans(10458)
	IF buton=2
		DO deschid_actc
		RETURN
	ENDIF 
	
	DO introducere_compacta WITH 'achi_mat','','408 ',.t.,.t.,'Achizitie-Cheltuieli Materiale-Facturi nesosite 408','4428',10458
ENDPROC && BAR_1_OF_Shortcut_FB2P

PROCEDURE BAR_2_OF_Shortcut_FB2P
	*!*	SELE BAL
	*!*	GO TOP
	*!*	OS=CREA('SELCONT')
	*!*	OS.SHOW(1)
	*!*	IF BUTON=2
	*!*		RETURN
	*!*	ENDIF
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'3,4,6')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	LANS(10548)
ENDPROC && BAR_2_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_Facturines_FB2P
	lans(10218)
ENDPROC && BAR_1_OF_Facturines_FB2P

PROCEDURE BAR_2_OF_Facturines_FB2P
	lans(10219)
ENDPROC && BAR_2_OF_Facturines_FB2P

PROCEDURE BAR_3_OF_Facturines_FB2P
	lans(10220)
ENDPROC && BAR_3_OF_Facturines_FB2P

PROCEDURE BAR_4_OF_Facturines_FB2P
	lans(10221)
ENDPROC && BAR_4_OF_Facturines_FB2P

PROCEDURE BAR_5_OF_Facturines_FB2P
	lans(10222)
ENDPROC && BAR_5_OF_Facturines_FB2P

PROCEDURE BAR_6_OF_Facturines_FB2P
	lans(10223)
ENDPROC && BAR_6_OF_Facturines_FB2P

*</Procedures>