*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="vizfurn2.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 "F\<acturi Cumparari (401)"
ON BAR 1 OF Furnizori ACTIVATE POPUP FacturiCum

	*----------------------------------
	DEFINE POPUP FacturiCum SHORTCUT RELATIVE
	DEFINE BAR 1 OF FacturiCum PROMPT "Cu test"
	ON SELECTION BAR 1 OF FacturiCum DO BAR_1_OF_FacturiCum_FB2P

	DEFINE BAR 2 OF FacturiCum PROMPT "Fara test"
	ON SELECTION BAR 2 OF FacturiCum DO BAR_2_OF_FacturiCum_FB2P

DEFINE BAR 2 OF Furnizori PROMPT "Facturi Cumparari (404)"
ON BAR 2 OF Furnizori ACTIVATE POPUP _0zm11awzq

	*----------------------------------
	DEFINE POPUP _0zm11awzq SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0zm11awzq PROMPT "Cu test"
	ON SELECTION BAR 1 OF _0zm11awzq DO BAR_1_OF__0zm11awzq_FB2P

	DEFINE BAR 2 OF _0zm11awzq PROMPT "Fara test"
	ON SELECTION BAR 2 OF _0zm11awzq DO BAR_2_OF__0zm11awzq_FB2P

DEFINE BAR 3 OF Furnizori PROMPT "\<Facturi nesosite (408)"
ON BAR 3 OF Furnizori ACTIVATE POPUP Facturines

	*----------------------------------
	DEFINE POPUP Facturines SHORTCUT RELATIVE
	DEFINE BAR 1 OF Facturines PROMPT "Cu test"
	ON SELECTION BAR 1 OF Facturines DO BAR_1_OF_Facturines_FB2P

	DEFINE BAR 2 OF Facturines PROMPT "Fara test"
	ON SELECTION BAR 2 OF Facturines DO BAR_2_OF_Facturines_FB2P

DEFINE BAR 4 OF Furnizori PROMPT "\<Avansuri (409)"
ON BAR 4 OF Furnizori ACTIVATE POPUP Avansuri40

	*----------------------------------
	DEFINE POPUP Avansuri40 SHORTCUT RELATIVE
	DEFINE BAR 1 OF Avansuri40 PROMPT "Cu test"
	ON SELECTION BAR 1 OF Avansuri40 DO BAR_1_OF_Avansuri40_FB2P

	DEFINE BAR 2 OF Avansuri40 PROMPT "Fara test"
	ON SELECTION BAR 2 OF Avansuri40 DO BAR_2_OF_Avansuri40_FB2P

DEFINE BAR 5 OF Furnizori PROMPT "\-"
ON BAR 5 OF Furnizori ACTIVATE POPUP _54c0y69xu

	*----------------------------------
	DEFINE POPUP _54c0y69xu SHORTCUT RELATIVE
DEFINE BAR 6 OF Furnizori PROMPT "\<Efecte comerciale (403)"
ON BAR 6 OF Furnizori ACTIVATE POPUP Efectecome

	*----------------------------------
	DEFINE POPUP Efectecome SHORTCUT RELATIVE
	DEFINE BAR 1 OF Efectecome PROMPT "Cu test"
	ON SELECTION BAR 1 OF Efectecome DO lans_ireg_parteneri WITH .T.,'403',.F.

	DEFINE BAR 2 OF Efectecome PROMPT "Fara test"
	ON SELECTION BAR 2 OF Efectecome DO lans_ireg_parteneri WITH .F.,'403',.F.

DEFINE BAR 7 OF Furnizori PROMPT "\<Efecte comerciale imobilizari (405)"
ON BAR 7 OF Furnizori ACTIVATE POPUP _54c0y12ul

	*----------------------------------
	DEFINE POPUP _54c0y12ul SHORTCUT RELATIVE
	DEFINE BAR 1 OF _54c0y12ul PROMPT "Cu test"
	ON SELECTION BAR 1 OF _54c0y12ul DO lans_ireg_parteneri WITH .T.,'405',.F.

	DEFINE BAR 2 OF _54c0y12ul PROMPT "Fara test"
	ON SELECTION BAR 2 OF _54c0y12ul DO lans_ireg_parteneri WITH .F.,'405',.F.

DEFINE BAR 8 OF Furnizori PROMPT "\-"
ON SELECTION BAR 8 OF Furnizori

DEFINE BAR 9 OF Furnizori PROMPT "Situatie operativa furnizori (401)"
ON BAR 9 OF Furnizori ACTIVATE POPUP _11n15fvwe

	*----------------------------------
	DEFINE POPUP _11n15fvwe SHORTCUT RELATIVE
	DEFINE BAR 1 OF _11n15fvwe PROMPT "In luna curenta"
	ON SELECTION BAR 1 OF _11n15fvwe DO BAR_1_OF__11n15fvwe_FB2P

	DEFINE BAR 2 OF _11n15fvwe PROMPT "Istoric"
	ON SELECTION BAR 2 OF _11n15fvwe DO BAR_2_OF__11n15fvwe_FB2P

DEFINE BAR 10 OF Furnizori PROMPT "Situatie operativa furnizori de imobilizari (404)"
ON BAR 10 OF Furnizori ACTIVATE POPUP _11n15fyq7

	*----------------------------------
	DEFINE POPUP _11n15fyq7 SHORTCUT RELATIVE
	DEFINE BAR 1 OF _11n15fyq7 PROMPT "In luna curenta"
	ON SELECTION BAR 1 OF _11n15fyq7 DO BAR_1_OF__11n15fyq7_FB2P

	DEFINE BAR 2 OF _11n15fyq7 PROMPT "Istoric"
	ON SELECTION BAR 2 OF _11n15fyq7 DO BAR_2_OF__11n15fyq7_FB2P
ACTIVATE POPUP Furnizori

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_FacturiCum_FB2P
	*DO viz_facturi WITH 'furnizor','cumplun',401,.t.,.t.,'Situatie lunara facturi cumparari','platit','achizit'
	DO lans_ireg_parteneri WITH .T.,'401',.F.
ENDPROC && BAR_1_OF_FacturiCum_FB2P

PROCEDURE BAR_2_OF_FacturiCum_FB2P
	*DO viz_facturi WITH 'furnizor','cumplun',401,.f.,.t.,'Situatie lunara facturi cumparari','platit','achizit'
	DO lans_ireg_parteneri WITH .F.,'401',.F.
	
ENDPROC && BAR_2_OF_FacturiCum_FB2P

PROCEDURE BAR_1_OF__0zm11awzq_FB2P
	*DO viz_facturi WITH 'furniz404','cumplun404',404,.t.,.t.,'Situatie lunara facturi cumparari-404','platit','achizit'
	DO lans_ireg_parteneri WITH .T.,'404',.F.
	
ENDPROC && BAR_1_OF__0zm11awzq_FB2P

PROCEDURE BAR_2_OF__0zm11awzq_FB2P
	*DO viz_facturi WITH 'furniz404','cumplun404',404,.f.,.t.,'Situatie lunara facturi cumparari-404','platit','achizit'
	DO lans_ireg_parteneri WITH .F.,'404',.F.
ENDPROC && BAR_2_OF__0zm11awzq_FB2P

PROCEDURE BAR_1_OF_Facturines_FB2P
	&&          PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
	*DO viz_facturi WITH 'ana408','fact408',408,.t.,.t.,'Situatie Lunara Facturi Nesosite','platit','achizit'
	DO lans_ireg_parteneri WITH .T.,'408',.F.
	
ENDPROC && BAR_1_OF_Facturines_FB2P

PROCEDURE BAR_2_OF_Facturines_FB2P
	&&          PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
	*DO viz_facturi WITH 'ana408','fact408',408,.f.,.t.,'Situatie Lunara Facturi Nesosite','platit','achizit'
	DO lans_ireg_parteneri WITH .F.,'408',.F.
	
ENDPROC && BAR_2_OF_Facturines_FB2P

PROCEDURE BAR_1_OF_Avansuri40_FB2P
	DO lans_ireg_parteneri WITH .T.,'409,4091,4092,4093,4094',.T.
ENDPROC && BAR_1_OF_Avansuri40_FB2P

PROCEDURE BAR_2_OF_Avansuri40_FB2P
	*!*	IF USED('avans')
	*!*		USE IN avans
	*!*	ENDIF
	
	*!*	use &date\avans409 in 0 again alias avans
	
	*!*	SELECT avans 
	*!*	oav=crea('avans')
	*!*	oav.label9.caption='Avansuri furnizori'
	*!*	oav.cmdlist2.visible=.f.
	*!*	oav.show(1)
	
	*!*	use in avans
	
	DO lans_ireg_parteneri WITH .F.,'409,4091,4092,4093,4094',.T.
ENDPROC && BAR_2_OF_Avansuri40_FB2P

PROCEDURE BAR_1_OF__11n15fvwe_FB2P
	**parametrii:
	**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
	
	DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
ENDPROC && BAR_1_OF__11n15fvwe_FB2P

PROCEDURE BAR_2_OF__11n15fvwe_FB2P
	**parametrii:
	**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
	
	DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
	
ENDPROC && BAR_2_OF__11n15fvwe_FB2P

PROCEDURE BAR_1_OF__11n15fyq7_FB2P
	**parametrii:
	**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
	
	DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
ENDPROC && BAR_1_OF__11n15fyq7_FB2P

PROCEDURE BAR_2_OF__11n15fyq7_FB2P
	**parametrii:
	**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
	DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
ENDPROC && BAR_2_OF__11n15fyq7_FB2P

*</Procedures>