DO SETSYS.

PRG
RESTORE FROM SYSTEM.MEM
SET PATH TO &XPATH
SET DISPLAY TO &XDISPLAY
=NUMLOCK(.T.)
*:=SYS(2017)
xsaylogo = xsaylogo + [ stretch]
&xsaylogo
DO CHKPASSM.PRG
set clock on
@0,0 say date()
SET SYSMENU SAVE
SET SYSMENU TO
DEFINE MENU _MSYSMENU BAR AT LINE 1
DEFINE PAD CONVPAD OF _MSYSMENU PROMPT '\<����¹��ѡ' COLOR SCHEME 3 ;
KEY ALT+C, ''
DEFINE PAD CARDPAD OF _MSYSMENU PROMPT '\<�Ѻ����˹��' COLOR SCHEME 3 ;
KEY ALT+I, ''
DEFINE PAD REPVIEW OF _MSYSMENU PROMPT '\<��§ҹ / ���Ҿ' COLOR SCHEME 3 ;
KEY ALT+A, ''
DEFINE PAD VHELP OF _MSYSMENU PROMPT '\<���������' COLOR SCHEME 3 ;
KEY ALT+E, ''
ON PAD CONVPAD OF _MSYSMENU ACTIVATE POPUP CONVERSION
ON PAD CARDPAD OF _MSYSMENU ACTIVATE POPUP CARDINFO
ON PAD REPVIEW OF _MSYSMENU ACTIVATE POPUP REPORTVIEW
ON PAD VHELP OF _MSYSMENU ACTIVATE POPUP USEHELP

DEFINE POPUP CONVERSION MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF CONVERSION PROMPT '\<����¹�١�/���١˹��'
DEFINE BAR 2 OF CONVERSION PROMPT '\<����¹��Ҥ��'
DEFINE BAR 3 OF CONVERSION PROMPT '\<����¹����ࢵ��â��'
DEFINE BAR 4 OF CONVERSION PROMPT '\<����¹��ѡ�ҹ���'
DEFINE BAR 5 OF CONVERSION PROMPT '\<����¹������Թ'
DEFINE BAR 6 OF CONVERSION PROMPT '\<����¹����Ѻ�Թ'
DEFINE BAR 7 OF CONVERSION PROMPT '\<����¹����Ǩ�ͺ'
DEFINE BAR 8 OF CONVERSION PROMPT '\-'
DEFINE BAR 9 OF CONVERSION PROMPT '\<����÷ӧҹ'
ON SELECTION POPUP CONVERSION DO CHOICE IN MAINMENU WITH PROMPT( ), POPUP( )

DEFINE POPUP CARDINFO MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF CARDINFO PROMPT '\<�Ѵ��������Ѻ�Թ'
DEFINE BAR 2 OF CARDINFO PROMPT '\<�ѹ�֡����Ѻ����˹��'
DEFINE BAR 3 OF CARDINFO PROMPT '\-'
DEFINE BAR 4 OF CARDINFO PROMPT '\<��Ǩ��������
ͺ Ѻ����˹��'
DEFINE BAR 5 OF CARDINFO PROMPT '\<��������´�����'
DEFINE BAR 6 OF CARDINFO PROMPT '\-'
DEFINE BAR 7 OF CARDINFO PROMPT '\<��Ѻ��‫'��ا‬
ON SELECTION POPUP CARDINFO;
DO CHOICE IN MAINMENU WITH PROMPT( ), POPUP( )

DEFINE POPUP REPORTVIEW MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF REPORTVIEW PROMPT '\<��§ҹ����Ѻ����˹��'
DEFINE BAR 2 OF REPORTVIEW PROMPT '\<��§ҹ�礶֧��˹�(���§�ѹ�����,��Ҥ��)'
DEFINE BAR 3 OF REPORTVIEW PROMPT '\<��§ҹ�礶֧��˹�(���§�ѹ������Թ)'
DEFINE BAR 4 OF REPORTVIEW PROMPT '\<��§ҹ��û�Ѻ��‫'��ا‬
DEFINE BAR 5 OF REPORTVIEW PROMPT '\<��§ҹ���ѧ������Ѻ�Թ'
DEFINE BAR 6 OF REPORTVIEW PROMPT '\<��§ҹ��ҹ'
DEFINE BAR 7 OF REPORTVIEW PROMPT '\<��§ҹ�礤‫'׹‬
DEFINE BAR 8 OF REPORTVIEW PROMPT '\<��§ҹ���������'
DEFINE BAR 9 OF REPORTVIEW PROMPT '\<��§ҹ���š�Թʴ'
DEFINE BAR 10 OF REPORTVIEW PROMPT '\<��§ҹ���š��'
DEFINE BAR 11 OF REPORTVIEW PROMPT '\-'
DEFINE BAR 12 OF REPORTVIEW PROMPT '\<��Ǩ�����
ͺ Ѻ����˹��'
DEFINE BAR 13 OF REPORTVIEW PROMPT '\<��‫���ʹ�ػ‬/�Ѻ����'
DEFINE BAR 14 OF REPORTVIEW PROMPT '\<��§ҹ����Ѻ����˹��(�¡����١���)'
DEFINE BAR 15 OF REPORTVIEW PROMPT '\<��§ҹ������Ѻ�Թ'
DEFINE BAR 16 OF REPORTVIEW PROMPT '\<��§ҹ����Ѻ����˹��(���ҧ���)'
ON SELECTION POPUP REPORTVIEW;
DO CHOICE IN MAINMENU WITH PROMPT( ), POPUP( )

DEFINE POPUP USEHELP MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF USEHELP PROMPT '\<��Ѻ��‫�������ا‬Ţͧ�к�'
ON SELECTION POPUP USEHELP;
DO CHOICE IN MAINMENU WITH PROMPT( ), POPUP( )

DO WHILE .T.
ACTIVATE MENU _MSYSMENU
ENDDO

PROCEDURE CHOICE
PARAMETERS MPROMPT, MPOPUP
DO PROCSUSPEN
DO CASE
CASE MPOPUP = 'CONVERSION'
DO CASE
CASE BAR() = 1
DO CUSTOMER.PRG
CASE BAR() = 2
DO BANK.PRG
CASE BAR() = 3
DO FLDSALE.PRG
CASE BAR() = 4
DO SALE.PRG
CASE BAR() = 5
DO PERREC.PRG
CASE BAR() = 6
DO TABRECEI.PRG
CASE BAR() = 7
DO TABSUPER.PRG
CASE BAR() = 9
SET SYSMENU TO DEFAULT
SET CLOCK OFF
SET COLOR TO
CLEAR
CLOSE DATA
ON KEY
ON ERROR
IF ENDFLAG
*:QUIT
cancel
ELSE
CANCEL
ENDIF
ENDCASE
CASE MPOPUP = 'CARDINFO'
DO CASE
CASE BAR() = 1
DO RECE-p0.PRG
 CASE BAR() = 2
DO RECE-00.PRG
CASE BAR() = 3
*:DO RECE-00A.PRG
CASE BAR() = 4
*:DO CHEQUPDT.PRG
do chkdata.prg
case bar() =5
do viewrece.prg
case bar()= 7
do cheque.prg
ENDCASE
CASE MPOPUP = 'REPORTVIEW'
DO CASE
CASE BAR() = 1
do frep0001.spr
CASE BAR() = 2
DO FREP0002.SPR
case bar() = 3
do frep0021.spr
CASE BAR() = 4
DO FREP0003.SPR
CASE BAR() = 5
DO FREP0004.SPR
CASE BAR() = 6
DO FREP0005.SPR
CASE BAR() = 7
DO FREP0006.SPR
CASE BAR() = 12
DO FREP0011.SPR
CASE BAR() = 13
do rep-k000.prg
CASE BAR() = 14
do rep-l000.prg
CASE BAR() = 15
do rep-m000.prg
CASE BAR() = 16
do rep-n000.prg
ENDCASE
CASE MPOPUP = 'USEHELP'
DO CASE
CASE BAR() = 1
*:DO REINDEX.PRG
ENDCASE
ENDCASE
DO PROCRESUM
RETURN

PROCEDURE PROCSUSPEN
DEFINE PAD CONVPAD OF _MSYSMENU PROMPT '\����¹��ѡ' COLOR SCHEME 3 ;
KEY ALT+C, ''
DEFINE PAD CARDPAD OF _MSYSMENU PROMPT '\�Ѻ����˹��' COLOR SCHEME 3 ;
KEY ALT+I, ''
DEFINE PAD REPVIEW OF _MSYSMENU PROMPT '\��§ҹ / ���Ҿ' COLOR SCHEME 3 ;
KEY ALT+A, ''
DEFINE PAD VHELP OF _MSYSMENU PROMPT '\���������' COLOR SCHEME 3 ;
KEY ALT+E, ''
RETURN
PROCEDURE PROCRESUM
DEFINE PAD CONVPAD OF _MSYSMENU PROMPT '\<����¹��ѡ' COLOR SCHEME 3 ;
KEY ALT+C, ''
DEFINE PAD CARDPAD OF _MSYSMENU PROMPT '\<�Ѻ����˹��' COLOR SCHEME 3 ;
KEY ALT+I, ''
DEFINE PAD REPVIEW OF _MSYSMENU PROMPT '\<��§ҹ / ���Ҿ' COLOR SCHEME 3 ;
KEY ALT+A, ''
DEFINE PAD VHELP OF _MSYSMENU PROMPT '\<���������' COLOR SCHEME 3 ;
KEY ALT+E, ''
RETURN