*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vizfurn1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>

*<MenuCode>
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Furnizori PROMPT "\<Furnizori (401)"
ON SELECTION BAR 1 OF Furnizori DO BAR_1_OF_Furnizori_FB2P

DEFINE BAR 2 OF Furnizori PROMPT "Furnizori \<debitori (409)"
ON SELECTION BAR 2 OF Furnizori DO BAR_2_OF_Furnizori_FB2P

DEFINE BAR 3 OF Furnizori PROMPT "Furnizori + Furnizori debitori (401 + 409)"
ON SELECTION BAR 3 OF Furnizori DO BAR_3_OF_Furnizori_FB2P

DEFINE BAR 4 OF Furnizori PROMPT "Furnizori de \<imobilizari (404)"
ON SELECTION BAR 4 OF Furnizori DO BAR_4_OF_Furnizori_FB2P

DEFINE BAR 5 OF Furnizori PROMPT "Facturi \<nesosite (408)"
ON SELECTION BAR 5 OF Furnizori DO lans_balanta_parteneri WITH "408",.F. IN oparteneri.prg

DEFINE BAR 6 OF Furnizori PROMPT "\-"
ON BAR 6 OF Furnizori ACTIVATE POPUP _54c0y3z3z

	*----------------------------------
	DEFINE POPUP _54c0y3z3z SHORTCUT RELATIVE
DEFINE BAR 7 OF Furnizori PROMPT "Efecte comerciale (403)"
ON SELECTION BAR 7 OF Furnizori DO lans_balanta_parteneri WITH "403",.F. IN oparteneri.prg

DEFINE BAR 8 OF Furnizori PROMPT "Efecte comerciale imobilizari (405)"
ON SELECTION BAR 8 OF Furnizori DO lans_balanta_parteneri WITH "405",.F. IN oparteneri.prg
ACTIVATE POPUP Furnizori

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Furnizori_FB2P
	*osetviz.tbrprim.butonfurn.click
	DO lans_balanta_parteneri WITH "401",.F. IN oparteneri.prg
ENDPROC && BAR_1_OF_Furnizori_FB2P

PROCEDURE BAR_2_OF_Furnizori_FB2P
	DO lans_balanta_parteneri WITH "409,4091,4092,4093,4094",.T. IN oparteneri.prg
ENDPROC && BAR_2_OF_Furnizori_FB2P

PROCEDURE BAR_3_OF_Furnizori_FB2P
	DO lans_balanta_cumulata_401_409 IN oparteneri.prg
ENDPROC && BAR_3_OF_Furnizori_FB2P

PROCEDURE BAR_4_OF_Furnizori_FB2P
	*lctitlu = 'Situatie analitica furnizori imobilizari'
	*DO lans_balante_analitice WITH 'P', 'furniz404', lctitlu , '404 ', 'platit', 'achizit', 'platival', 'achizitval', .f., ''
	DO lans_balanta_parteneri WITH "404",.F. IN oparteneri.prg
	
ENDPROC && BAR_4_OF_Furnizori_FB2P

*</Procedures>