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

DEFINE BAR 2 OF Shortcut PROMPT "Optima"
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	LOCAL MES1,MES2
	MES1='Nu este instalata interfata cu'
	MES2='Casa de marcat Datecs (MP 500 TR)'
	
	IF !DIRECTORY('&DIRGEN\Datecs')
	DO MESAJ WITH MES1,MES2
	RETURN
	ENDIF
	
	SET DEFAULT TO &DIRGEN\Datecs
	IF !FILE('&DIRGEN\Datecs\Datecs.EXE')
	DO MESAJ WITH MES1,MES2
	RETURN
	ENDIF
	RUN /N Datecs.EXE
	
	SET DEFAULT TO &DIRGEN
ENDPROC && BAR_1_OF_Shortcut_FB2P

PROCEDURE BAR_2_OF_Shortcut_FB2P
	LOCAL MES1,MES2
	MES1='Nu este instalata interfata cu'
	MES2='Casa de marcat Optima (CR715)'
	
	IF !DIRECTORY('&DIRGEN\OPTIMA')
	DO MESAJ WITH MES1,MES2
	RETURN
	ENDIF
	
	SET DEFAULT TO &DIRGEN\OPTIMA
	IF !FILE('&DIRGEN\OPTIMA\OPTIMA.EXE')
	DO MESAJ WITH MES1,MES2
	RETURN
	ENDIF
	RUN /N OPTIMA.EXE
	
	SET DEFAULT TO &DIRGEN
ENDPROC && BAR_2_OF_Shortcut_FB2P

*</Procedures>
