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

*<MenuCode>
DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Cheltuieli PROMPT "Balanta cheltuieli in avans"
ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P

DEFINE BAR 2 OF Cheltuieli PROMPT "Situatia analitica a cheltuielilor in avans"
ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P
ACTIVATE POPUP Cheltuieli

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Cheltuieli_FB2P
	DO lans_balanta_parteneri WITH "471",.T. IN OPARTENERI.prg
ENDPROC && BAR_1_OF_Cheltuieli_FB2P

PROCEDURE BAR_2_OF_Cheltuieli_FB2P
	*!*	PRIVATE pcAcont, pnCumul, pnact1, pnact2
	*!*	STORE '' TO pcAcont
	*!*	STORE 0 TO pnCumul, pnact1, pnact2
	
	*!*	IF USED('xavans')
	*!*		USE IN xavans
	*!*	ENDIF 
	
	*!*	USE &date\chavans.dbf again IN 0 SHARED ALIAS xavans
	*!*	SELECT xavans
	*!*	oavans=CREATEOBJECT('ch_ven_avans')
	*!*	oavans.cont='scd'
	*!*	oavans.show(1)
	
	*!*	USE IN xavans
	
	*!*	DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
	DO lans_ireg_parteneri WITH .F.,'471',.T.
ENDPROC && BAR_2_OF_Cheltuieli_FB2P

*</Procedures>
