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

DEFINE BAR 2 OF Shortcut PROMPT "\<Total rulaje"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	osetgest.tbrprim.buton6.click
ENDPROC && BAR_1_OF_Shortcut_FB2P

PROCEDURE BAR_2_OF_Shortcut_FB2P
	
	sele rul
	set relation off into actan
	SET ORDER TO TAG Cod OF &calefirma\datean\actan.cdx IN Actan
	sele rul
	SET RELATION TO cod INTO Actan ADDITIVE
	SELE RUL
	SET FILTER TO
	SELE ACTAN
	SET FILTER TO
	SELE RULL
	SET FILTER TO
	*select DISTINCT rul.denumire,rul.pret,rul.um,rul.cant,rul.cante,rul.scd,rul.gest,actan.dataact,actan.nract,rul.cod,rul.tva;
	*	from rul,actan;
	*	where rul.cod=actan.cod;
	*	into cursor rullactanfact
	sele 0
	use &datean\rul again alias rullactanfact	
	do form afrul
	use in rullactanfact
ENDPROC && BAR_2_OF_Shortcut_FB2P

*</Procedures>