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

DEFINE BAR 2 OF Shortcut PROMPT "Factura externa de achizitie"
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 _138140a2e

	*----------------------------------
	DEFINE POPUP _138140a2e SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "In curs de aprovizionare"
ON BAR 4 OF Shortcut ACTIVATE POPUP _2vc0mbr3g

	*----------------------------------
	DEFINE POPUP _2vc0mbr3g SHORTCUT RELATIVE
	DEFINE BAR 1 OF _2vc0mbr3g PROMPT "Imobilizari corporale in curs de aprovizionare 22x" ;
		MESSAGE 'Note contabile: 223/224:404; 4426:404'
	ON SELECTION BAR 1 OF _2vc0mbr3g DO BAR_1_OF__2vc0mbr3g_FB2P

	DEFINE BAR 2 OF _2vc0mbr3g PROMPT "Imobilizari corporale (instalatii, utilaje) finalizare aprovizionare 223" ;
		MESSAGE 'Note contabile: 213x:223'
	ON SELECTION BAR 2 OF _2vc0mbr3g DO BAR_2_OF__2vc0mbr3g_FB2P

	DEFINE BAR 3 OF _2vc0mbr3g PROMPT "Imobilizari corporale (mobilier) finalizare aprovizionare 224" ;
		MESSAGE 'Note contabile: 214:224'
	ON SELECTION BAR 3 OF _2vc0mbr3g lans_generic(10604,'214', , '224')

DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _2vc0mbumr

	*----------------------------------
	DEFINE POPUP _2vc0mbumr SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "Constituire garantii" ;
	MESSAGE '404 : 462'
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P

DEFINE BAR 7 OF Shortcut PROMPT "Inregistrare cheltuieli in avans" ;
	MESSAGE '471 :404; 4426 : 404'
ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P

DEFINE BAR 8 OF Shortcut PROMPT "\-"
ON BAR 8 OF Shortcut ACTIVATE POPUP _13813snx0

	*----------------------------------
	DEFINE POPUP _13813snx0 SHORTCUT RELATIVE
DEFINE BAR 9 OF Shortcut PROMPT "Inregistrare obligatii creditate"
ON BAR 9 OF Shortcut ACTIVATE POPUP _13813sjq0

	*----------------------------------
	DEFINE POPUP _13813sjq0 SHORTCUT RELATIVE
	DEFINE BAR 1 OF _13813sjq0 PROMPT "Valoare imobilizari"
	ON BAR 1 OF _13813sjq0 ACTIVATE POPUP NewItem

		*----------------------------------
		DEFINE POPUP NewItem SHORTCUT RELATIVE
		DEFINE BAR 1 OF NewItem PROMPT "Necorporale" ;
			MESSAGE '203 : 404 ; 4426 : 404'
		ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P

		DEFINE BAR 2 OF NewItem PROMPT "Corporale" ;
			MESSAGE '212 : 404 ; 4426 : 404'
		ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P

	DEFINE BAR 2 OF _13813sjq0 PROMPT "Diferente nefavorabile de curs valutar" ;
		MESSAGE '6651: 404'
	ON SELECTION BAR 2 OF _13813sjq0 DO BAR_2_OF__13813sjq0_FB2P

	DEFINE BAR 3 OF _13813sjq0 PROMPT "Diferente favorabile de curs valutar" ;
		MESSAGE '404 : 7651'
	ON SELECTION BAR 3 OF _13813sjq0 DO BAR_3_OF__13813sjq0_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	*!*	modificare	v 2.2.20
	Local lnDeducere
	lnDeducere = 0
	*!*	modificare	v 2.2.20	^
	buton = lans(10457,,,,@lnDeducere)
	If buton=2
		Do deschid_actc
		Return
	Endif
	
	*!*	modificare	v 2.2.20
	*!*	DO introducere_compacta WITH 'achi_mat','','404 ',.t.,.t.,'Achizitie-Cheltuieli Materiale-Furnizori 404','4426',10457
	Do introducere_compacta With 'achi_mat','','404 ',.T.,.T.,'Achizitie-Cheltuieli Materiale-Furnizori 404','4426',10457,,lnDeducere
	Release lnDeducere
	*!*	modificare	v 2.2.20	^
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",'20,21,22,23')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	LANS(10424)
ENDPROC && BAR_2_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF__2vc0mbr3g_FB2P
	LOCAL loCont
	loCont = ret_cont("Imobilizari in curs de aprovizionare",'223,224')
	IF buton = 2
		RELEASE loCont
		RETURN 
	ENDIF 
	
	
	lans_generic(10216,loCont.cont, loCont.acont)
ENDPROC && BAR_1_OF__2vc0mbr3g_FB2P

PROCEDURE BAR_2_OF__2vc0mbr3g_FB2P
	LOCAL loCont
	loCont = ret_cont("Imobilizari corporale 213x",'2311,2132,2133')
	If buton = 2
		Release loCont
		Return
	Endif
	
	lans_generic(10604,loCont.Cont, loCont.Acont, '223')
ENDPROC && BAR_2_OF__2vc0mbr3g_FB2P

PROCEDURE BAR_6_OF_Shortcut_FB2P
	lans(10413)
ENDPROC && BAR_6_OF_Shortcut_FB2P

PROCEDURE BAR_7_OF_Shortcut_FB2P
	lans(10483)
ENDPROC && BAR_7_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_NewItem_FB2P
	lans(10224)
ENDPROC && BAR_1_OF_NewItem_FB2P

PROCEDURE BAR_2_OF_NewItem_FB2P
	lans(10225)
ENDPROC && BAR_2_OF_NewItem_FB2P

PROCEDURE BAR_2_OF__13813sjq0_FB2P
	lans(10226)
ENDPROC && BAR_2_OF__13813sjq0_FB2P

PROCEDURE BAR_3_OF__13813sjq0_FB2P
	lans(10227)
ENDPROC && BAR_3_OF__13813sjq0_FB2P

*</Procedures>