62 lines
1.8 KiB
Plaintext
62 lines
1.8 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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>
|