*       *********************************************************
*       *                                                         
*       * 16/02/2020              FRO.MPR               10:17:51  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (c) 2020 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This program was automatically generated by GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _5p70m2kue OF _MSYSMENU PROMPT "\<1. รายการประจำวัน" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _5p70m2kuf OF _MSYSMENU PROMPT "\<2. ช่วยงาน" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _5p70m2kug OF _MSYSMENU PROMPT "\<3. ออกจากระบบ" COLOR SCHEME 3
ON PAD _5p70m2kue OF _MSYSMENU ACTIVATE POPUP _1u00jy7m9
ON PAD _5p70m2kuf OF _MSYSMENU ACTIVATE POPUP _5o70nxp1c
ON PAD _5p70m2kug OF _MSYSMENU ACTIVATE POPUP _5o70nxp1d

DEFINE POPUP _1u00jy7m9 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1u00jy7m9 PROMPT "1.\<1 ออกบิลใหม่"
DEFINE BAR 2 OF _1u00jy7m9 PROMPT "1.\<2 แก้บิล"
DEFINE BAR 3 OF _1u00jy7m9 PROMPT "1.\<3 พิมพ์ซ้ำ"
DEFINE BAR 4 OF _1u00jy7m9 PROMPT "\-"
DEFINE BAR 5 OF _1u00jy7m9 PROMPT "1.\<4 ปิดรอบแคชเชียร์" ;
	SKIP FOR !FrmHoOut
DEFINE BAR 6 OF _1u00jy7m9 PROMPT "\-"
DEFINE BAR 7 OF _1u00jy7m9 PROMPT "1.\<5 ออกจากโปรแกรม"
ON SELECTION BAR 1 OF _1u00jy7m9 ;
	DO _5p70m2kuh ;
	IN LOCFILE("BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 2 OF _1u00jy7m9 ;
	DO _5p70m2kui ;
	IN LOCFILE("BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 3 OF _1u00jy7m9 ;
	DO _5p70m2kuj ;
	IN LOCFILE("BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 5 OF _1u00jy7m9 Do HoOutPlus In UtilHo2
ON SELECTION BAR 7 OF _1u00jy7m9 ;
	DO _5p70m2kuk ;
	IN LOCFILE("BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")

DEFINE POPUP _5o70nxp1c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _5o70nxp1c PROMPT "2.\<1 ข้อมูลแบบด่วน" ;
	SKIP FOR !FrmHoEasyDT
DEFINE BAR 2 OF _5o70nxp1c PROMPT "2.\<2 ปรับแฟ้มดัชนี" ;
	SKIP FOR !FrmRoomIdex
ON SELECTION BAR 1 OF _5o70nxp1c Do HoEasyDT In Ho2Prg2
ON SELECTION BAR 2 OF _5o70nxp1c ;
	DO _5p70m2kul ;
	IN LOCFILE("BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")

DEFINE POPUP _5o70nxp1d MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _5o70nxp1d PROMPT "5.\<1 เปลี่ยนรหัสผู้ใช้" ;
	SKIP FOR Wborder()
DEFINE BAR 2 OF _5o70nxp1d PROMPT "5.\<2 ออกจากโปรแกรม"
ON SELECTION BAR 1 OF _5o70nxp1d Do HoChgUr.Prg
ON SELECTION BAR 2 OF _5o70nxp1d ;
	DO _5p70m2kum ;
	IN LOCFILE("BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")


*       *********************************************************
*       *                                                         
*       *                 Cleanup Code & Procedures               
*       *                                                         
*       *********************************************************
*







Procedure OpenFront
If !Used('RoomCode')
	Use RoomCode In 0 Share Noupdate Alias RoomCode Order Rmno
Endif
If !Used('Room')
	Use Room In 0 Share Noupdate Alias Room Order Tag1
Endif
If !Used('Guest')
	Use Guest In 0 Share noupdate Alias Guest Order Guestcode
Endif
Return





*       *********************************************************
*       *                                                         
*       * _5P70M2KUH  ON SELECTION BAR 1 OF POPUP _1u00jy7m9      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:    5            
*       * Called By:  ON SELECTION BAR 1 OF POPUP _1u00jy7m9      
*       * Prompt:     1.1 ออกบิลใหม่                              
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _5p70m2kuh
cfProdNew='N' && สำหรับควบคุมระบบเปิดบิลและเพิ่มบริการ
m.ckProdSave=0
Do While m.ckProdSave<>2
	Do ProdNew.Prg
Enddo








*       *********************************************************
*       *                                                         
*       * _5P70M2KUI  ON SELECTION BAR 2 OF POPUP _1u00jy7m9      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:    6            
*       * Called By:  ON SELECTION BAR 2 OF POPUP _1u00jy7m9      
*       * Prompt:     1.2 แก้บิล                                  
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _5p70m2kui
If UserAuthor()<2
	Do Fox_Mess With 'ไม่มีสิทธิ์เข้าหัวนี้ได้'
	Return
Endif
cfProdNew='E' && สำหรับควบคุมระบบเปิดบิลและเพิ่มบริการ
Do ProdNew.Prg



*       *********************************************************
*       *                                                         
*       * _5P70M2KUJ  ON SELECTION BAR 3 OF POPUP _1u00jy7m9      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:    7            
*       * Called By:  ON SELECTION BAR 3 OF POPUP _1u00jy7m9      
*       * Prompt:     1.3 พิมพ์ซ้ำ                                
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _5p70m2kuj
If UserAuthor()<2
	Do Fox_Mess With 'ไม่มีสิทธิ์เข้าหัวนี้ได้'
	Return
Endif
Do HoPrnDup In HoPrn.Prg



*       *********************************************************
*       *                                                         
*       * _5P70M2KUK  ON SELECTION BAR 7 OF POPUP _1u00jy7m9      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   11            
*       * Called By:  ON SELECTION BAR 7 OF POPUP _1u00jy7m9      
*       * Prompt:     1.5 ออกจากโปรแกรม                           
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _5p70m2kuk
Do HoMenuOut In HoChgUr.Prg



*       *********************************************************
*       *                                                         
*       * _5P70M2KUL  ON SELECTION BAR 2 OF POPUP _5o70nxp1c      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   15            
*       * Called By:  ON SELECTION BAR 2 OF POPUP _5o70nxp1c      
*       * Prompt:     2.2 ปรับแฟ้มดัชนี                           
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _5p70m2kul
m.alrtbott=2
m.nfShowBOT=1
Do Fox_Bott With 1,'ปรับปรุงแฟ้มดัชนีทั้งหมด','ไม่ PACK ข้อมูล','PACK ข้อมูลด้วย'
If m.alrtbott=1 .and. Between(m.alrtbott,1,2)
	Do \Pos\Security\Prog\AlIndex.Prg With '',.T.,Iif(m.nfShowBOT=2,.T.,.F.)
	Do ChkFleMas In UtilHo
	Do UpRmRunDex In \Pos\Security\Prog\HoProg.Prg
	Do CrHoDexSCU In \Pos\Security\Prog\HoInit.Prg
Endif



*       *********************************************************
*       *                                                         
*       * _5P70M2KUM  ON SELECTION BAR 2 OF POPUP _5o70nxp1d      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   19            
*       * Called By:  ON SELECTION BAR 2 OF POPUP _5o70nxp1d      
*       * Prompt:     5.2 ออกจากโปรแกรม                           
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _5p70m2kum
Do HoMenuOut In HoChgUr.Prg
