*       *********************************************************
*       *                                                         
*       * 13/11/2013              FRO.MPR               11:09:10  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (c) 2013 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This program was automatically generated by GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _3xc0nwjur OF _MSYSMENU PROMPT "\<1. รายการประจำวัน" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _3xc0nwjus OF _MSYSMENU PROMPT "\<2. กรุ๊ปทัวร์" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _3xc0nwjut OF _MSYSMENU PROMPT "\<3. สอบถาม/รายงาน" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _3xc0nwjuu OF _MSYSMENU PROMPT "\<4. เครื่องมือ" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _3xc0nwjuv OF _MSYSMENU PROMPT "\<M รายเดือน" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _3xc0nwjuw OF _MSYSMENU PROMPT "\<5. ออกจากระบบ" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
ON PAD _3xc0nwjur OF _MSYSMENU ACTIVATE POPUP _1u00jy7m9
ON PAD _3xc0nwjus OF _MSYSMENU ACTIVATE POPUP _1s419k36f
ON PAD _3xc0nwjut OF _MSYSMENU ACTIVATE POPUP _1z117fep3
ON PAD _3xc0nwjuu OF _MSYSMENU ACTIVATE POPUP _1xr0jtrzz
ON SELECTION PAD _3xc0nwjuv OF _MSYSMENU Do Am4Fro.Mpr
ON PAD _3xc0nwjuw OF _MSYSMENU ACTIVATE POPUP newitem

DEFINE POPUP _1u00jy7m9 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1u00jy7m9 PROMPT "1.\<1 เข้าพัก" ;
	SKIP FOR !fRmRoom
DEFINE BAR 2 OF _1u00jy7m9 PROMPT "\-"
DEFINE BAR 3 OF _1u00jy7m9 PROMPT "1.\<2 มินิบาร์,คูปอง" ;
	SKIP FOR !FrmSku
DEFINE BAR 4 OF _1u00jy7m9 PROMPT "1.\<3 เปิดบิล" ;
	SKIP FOR !FrmBill
DEFINE BAR 5 OF _1u00jy7m9 PROMPT "1.\<4 ลูกหนี้เงินเชื่อ" ;
	SKIP FOR !FrmDebtRoom
DEFINE BAR 6 OF _1u00jy7m9 PROMPT "\-"
DEFINE BAR 7 OF _1u00jy7m9 PROMPT "1.\<5 รายงานตรวจสอบฯ" ;
	SKIP FOR !FrmRNight
DEFINE BAR 8 OF _1u00jy7m9 PROMPT "1.\<6 ปิดรอบวัน" ;
	SKIP FOR !FrmRoomPost && .or. !Between(Left(Time(),2),'04','10')
DEFINE BAR 9 OF _1u00jy7m9 PROMPT "\-"
DEFINE BAR 10 OF _1u00jy7m9 PROMPT "1.\<7 รายงานปิดรอบฯ" ;
	SKIP FOR !FrmHoEod
DEFINE BAR 11 OF _1u00jy7m9 PROMPT "1.\<8 ปิดรอบแคชเชียร์" ;
	SKIP FOR !FrmHoOut && .or. Between(Left(Time(),2),'04','10')
DEFINE BAR 12 OF _1u00jy7m9 PROMPT "\-"
DEFINE BAR 13 OF _1u00jy7m9 PROMPT "1.\<9 ออกจากโปรแกรม"
ON SELECTION BAR 1 OF _1u00jy7m9 ;
	DO _3xc0nwjux ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON BAR 3 OF _1u00jy7m9 ACTIVATE POPUP _1zg0fr3hf
ON BAR 4 OF _1u00jy7m9 ACTIVATE POPUP _1vq0j6dzz
ON BAR 5 OF _1u00jy7m9 ACTIVATE POPUP _2181aa1uy
ON SELECTION BAR 7 OF _1u00jy7m9 Do RNight.Spr
ON SELECTION BAR 8 OF _1u00jy7m9 Do AllPost In UtilHo2
ON SELECTION BAR 10 OF _1u00jy7m9 Do HoEod.Spr
ON SELECTION BAR 11 OF _1u00jy7m9 Do HoOutPlus In UtilHo2
ON SELECTION BAR 13 OF _1u00jy7m9 ;
	DO _3xc0nwjuy ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")

DEFINE POPUP _1zg0fr3hf MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1zg0fr3hf PROMPT "1.2.\<1 ลงทีละห้อง" ;
	SKIP FOR !FrmSku2Room
DEFINE BAR 2 OF _1zg0fr3hf PROMPT "1.2.\<2 ลงทุกๆห้อง" ;
	SKIP FOR !FrmSku2Room
DEFINE BAR 3 OF _1zg0fr3hf PROMPT "1.2.\<3 ลงอัตโนมัติ" ;
	SKIP FOR !FrmSku4AuTo
DEFINE BAR 4 OF _1zg0fr3hf PROMPT "1.2.\<4 รายงาน-มินิบาร์"
DEFINE BAR 5 OF _1zg0fr3hf PROMPT "\-"
DEFINE BAR 6 OF _1zg0fr3hf PROMPT "1.2.\<5 ตัดคูปอง (ระหว่างพัก)" ;
	SKIP FOR !FrmCoupon
DEFINE BAR 7 OF _1zg0fr3hf PROMPT "1.2.\<6 ตัดคูปอง (คืนห้องแล้ว)" ;
	SKIP FOR !FrmCoupon
DEFINE BAR 8 OF _1zg0fr3hf PROMPT "1.2.\<7 พิมพ์คูปอง"
ON SELECTION BAR 1 OF _1zg0fr3hf Do Sku2room.Spr
ON SELECTION BAR 2 OF _1zg0fr3hf Do Sku4Chg.Spr
ON SELECTION BAR 3 OF _1zg0fr3hf Do Sku4Auto.Spr
ON SELECTION BAR 4 OF _1zg0fr3hf Do PrnSku2Rm In Sku2Room.Prg
ON SELECTION BAR 6 OF _1zg0fr3hf Do CoupCHK.Prg With 'I'
ON SELECTION BAR 7 OF _1zg0fr3hf Do CoupCHK.Prg With 'P'
ON SELECTION BAR 8 OF _1zg0fr3hf Do RCoup.Spr

DEFINE POPUP _1vq0j6dzz MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1vq0j6dzz PROMPT "1.3.\< 1 เอกสารใหม่"
DEFINE BAR 2 OF _1vq0j6dzz PROMPT "1.3.\<2 แก้ไข/ลบ"
ON SELECTION BAR 1 OF _1vq0j6dzz ;
	DO _3xc0nwjuz ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 2 OF _1vq0j6dzz ;
	DO _3xc0nwjv0 ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")

DEFINE POPUP _2181aa1uy MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2181aa1uy PROMPT "1.4.\<1 พิมพ์ใบวางบิล"
DEFINE BAR 2 OF _2181aa1uy PROMPT "1.4.\<2 พิมพ์ใบวางบิลซ้ำ"
DEFINE BAR 3 OF _2181aa1uy PROMPT "1.4.\<3 รับชำระหนี้"
DEFINE BAR 4 OF _2181aa1uy PROMPT "\-"
DEFINE BAR 5 OF _2181aa1uy PROMPT "1.4.\<4 ตัดชำระทีละห้อง"
ON SELECTION BAR 1 OF _2181aa1uy Do Ho2Ar.Prg With 'SET'
ON SELECTION BAR 2 OF _2181aa1uy Do Ho2ArDup In Ho2Ar.Prg
ON SELECTION BAR 3 OF _2181aa1uy Do Ho2Ar.Prg With 'PAY'
ON BAR 5 OF _2181aa1uy ACTIVATE POPUP _27h1guxah

DEFINE POPUP _27h1guxah MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _27h1guxah PROMPT "1.4.4.\<1 รับชำระหนี้"
DEFINE BAR 2 OF _27h1guxah PROMPT "1.4.4.\<2 ค่าปรับ/ส่วนลด"
ON SELECTION BAR 1 OF _27h1guxah ;
	DO _3xc0nwjv1 ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 2 OF _27h1guxah ;
	DO _3xc0nwjv2 ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")

DEFINE POPUP _1s419k36f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1s419k36f PROMPT "2.\<1 เปิดการจอง" ;
	SKIP FOR !FrmRoomGrp
DEFINE BAR 2 OF _1s419k36f PROMPT "2.\<2 ลงรายละเอียด" ;
	SKIP FOR !FrmRoomGrp
ON SELECTION BAR 1 OF _1s419k36f ;
	DO _3xc0nwjv3 ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 2 OF _1s419k36f ;
	DO _3xc0nwjv4 ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")

DEFINE POPUP _1z117fep3 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1z117fep3 PROMPT "3.\<1 ประเภทห้องที่ว่าง"
DEFINE BAR 2 OF _1z117fep3 PROMPT "3.\<2 เลขห้องที่ว่าง"
DEFINE BAR 3 OF _1z117fep3 PROMPT "\-"
DEFINE BAR 4 OF _1z117fep3 PROMPT "3.\<3 รายงานตรวจสอบ" ;
	SKIP FOR !FrmRNight
DEFINE BAR 5 OF _1z117fep3 PROMPT "3.\<4 รายงานประวัติห้อง" ;
	SKIP FOR !FrmRBook
DEFINE BAR 6 OF _1z117fep3 PROMPT "3.\<5 สอบถามรายการรายวัน" ;
	SKIP FOR !FrmRNight
DEFINE BAR 7 OF _1z117fep3 PROMPT "3.\<6 พิมพ์ใบเสร็จซ้ำ" ;
	SKIP FOR !FrmHoPrnDup
ON SELECTION BAR 1 OF _1z117fep3 ;
	DO _3xc0nwjv5 ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 2 OF _1z117fep3 ;
	DO _3xc0nwjv6 ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 4 OF _1z117fep3 Do RNight.Spr
ON SELECTION BAR 5 OF _1z117fep3 Do RBook.Spr
ON SELECTION BAR 6 OF _1z117fep3 Do RNight.Prg
ON SELECTION BAR 7 OF _1z117fep3 Do HoPrnDup.spr

DEFINE POPUP _1xr0jtrzz MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1xr0jtrzz PROMPT "4.\<1 ตัดให้ตัวแทน" ;
	SKIP FOR !fRmAgent4M
DEFINE BAR 2 OF _1xr0jtrzz PROMPT "4.\<2 เตรียมข้อมูลแบบด่วน" ;
	SKIP FOR !FrmHoEasyDT
DEFINE BAR 3 OF _1xr0jtrzz PROMPT "4.\<3 ปรับเวอร์ชั่น" ;
	SKIP FOR !FrmChkDbf
DEFINE BAR 4 OF _1xr0jtrzz PROMPT "4.\<4 ปรับแฟ้มดัชนี" ;
	SKIP FOR !FrmRoomIdex
DEFINE BAR 5 OF _1xr0jtrzz PROMPT "4.\<5 พิมพ์ใบเข้าพักฯ"
DEFINE BAR 6 OF _1xr0jtrzz PROMPT "4.\<6 สำรองข้อมูล"
DEFINE BAR 7 OF _1xr0jtrzz PROMPT "4.\<7 หัวข้อพิเศษ"
DEFINE BAR 8 OF _1xr0jtrzz PROMPT "4.\<8 ปรับระบบไฟ"
ON SELECTION BAR 1 OF _1xr0jtrzz Do \Pos\Security\Prog\UpProg With 'Agent4M.Prg'
ON SELECTION BAR 2 OF _1xr0jtrzz Do HoEasyDT.Spr
ON SELECTION BAR 3 OF _1xr0jtrzz Do UpVerHoProg In UtilHo
ON SELECTION BAR 4 OF _1xr0jtrzz ;
	DO _3xc0nwjvi ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 5 OF _1xr0jtrzz Do PrnRegIn.Prg
ON SELECTION BAR 6 OF _1xr0jtrzz Do \Pos\Security\Prog\BdBackup.Spr
ON SELECTION BAR 7 OF _1xr0jtrzz Do \Pos\Security\Prog\Sm_Spec.Prg
ON SELECTION BAR 8 OF _1xr0jtrzz Do AmPhan.Prg

DEFINE POPUP newitem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF newitem PROMPT "5.\<1 เปลี่ยนรหัสผู้ใช้"
DEFINE BAR 2 OF newitem PROMPT "5.\<2 ออกจากโปรแกรม"
ON SELECTION BAR 1 OF newitem Do HoChgUr.Prg
ON SELECTION BAR 2 OF newitem ;
	DO _3xc0nwjvj ;
	IN LOCFILE("S:\CUSTOMER\_AMPHAN\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





*       *********************************************************
*       *                                                         
*       * _3XC0NWJUX  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 _3xc0nwjux
mRoom4Flag ='D'
nPSysCalDay=1
Do Floorrun.Spr
Set Message To



*       *********************************************************
*       *                                                         
*       * _3XC0NWJUY  ON SELECTION BAR 13 OF POPUP _1u00jy7m9     
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   39            
*       * Called By:  ON SELECTION BAR 13 OF POPUP _1u00jy7m9     
*       * Prompt:     1.9 ออกจากโปรแกรม                           
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjuy
Do HoMenuOut In HoChgUr.Prg



*       *********************************************************
*       *                                                         
*       * _3XC0NWJUZ  ON SELECTION BAR 1 OF POPUP _1vq0j6dzz      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   19            
*       * Called By:  ON SELECTION BAR 1 OF POPUP _1vq0j6dzz      
*       * Prompt:     1.3. 1 เอกสารใหม่                           
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjuz
cfProdNew='N' && สำหรับควบคุมระบบเปิดบิลและเพิ่มบริการ
Do ProdNew.Prg



*       *********************************************************
*       *                                                         
*       * _3XC0NWJV0  ON SELECTION BAR 2 OF POPUP _1vq0j6dzz      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   20            
*       * Called By:  ON SELECTION BAR 2 OF POPUP _1vq0j6dzz      
*       * Prompt:     1.3.2 แก้ไข/ลบ                              
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjv0
cfProdNew='E' && สำหรับควบคุมระบบเปิดบิลและเพิ่มบริการ
Do ProdNew.Prg



*       *********************************************************
*       *                                                         
*       * _3XC0NWJV1  ON SELECTION BAR 1 OF POPUP _27h1guxah      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   30            
*       * Called By:  ON SELECTION BAR 1 OF POPUP _27h1guxah      
*       * Prompt:     1.4.4.1 รับชำระหนี้                         
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjv1
DebtType=1
Do DebtRoom.Prg



*       *********************************************************
*       *                                                         
*       * _3XC0NWJV2  ON SELECTION BAR 2 OF POPUP _27h1guxah      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   31            
*       * Called By:  ON SELECTION BAR 2 OF POPUP _27h1guxah      
*       * Prompt:     1.4.4.2 ค่าปรับ/ส่วนลด                      
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjv2
DebtType=2
Do DebtRoom.Prg



*       *********************************************************
*       *                                                         
*       * _3XC0NWJV3  ON SELECTION BAR 1 OF POPUP _1s419k36f      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   42            
*       * Called By:  ON SELECTION BAR 1 OF POPUP _1s419k36f      
*       * Prompt:     2.1 เปิดการจอง                              
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjv3
Do ClsRm In KeyRoom.Prg
mBkTakeScr='T'   && 'T'=ทัวร์ 'G'=ลูกค้า
cffloor=Space(0)
Do OpenFront In FronMenu.Mpr
Do Bokserrm.Prg
Do ClsRm In KeyRoom.Prg
Close Data



*       *********************************************************
*       *                                                         
*       * _3XC0NWJV4  ON SELECTION BAR 2 OF POPUP _1s419k36f      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   43            
*       * Called By:  ON SELECTION BAR 2 OF POPUP _1s419k36f      
*       * Prompt:     2.2 ลงรายละเอียด                            
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjv4
Do ClsRm In KeyRoom.Prg
Do OpenFront In FronMenu.Mpr
Do BookName.Prg
Do ClsRm In KeyRoom.Prg
Close Data



*       *********************************************************
*       *                                                         
*       * _3XC0NWJV5  ON SELECTION BAR 1 OF POPUP _1z117fep3      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   46            
*       * Called By:  ON SELECTION BAR 1 OF POPUP _1z117fep3      
*       * Prompt:     3.1 ประเภทห้องที่ว่าง                       
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjv5
Do ClsRm In KeyRoom.Prg
m.BokSetDT = pdHoDate && สำหรับค้นหาอย่างเดียว
Do OpenFront In FronMenu.Mpr
Do chktyprm.Prg With 0
Do ClsRm In KeyRoom.Prg
Close Data


*       *********************************************************
*       *                                                         
*       * _3XC0NWJV6  ON SELECTION BAR 2 OF POPUP _1z117fep3      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   47            
*       * Called By:  ON SELECTION BAR 2 OF POPUP _1z117fep3      
*       * Prompt:     3.2 เลขห้องที่ว่าง                          
*       * Snippet:    10                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjv6
Do ClsRm In KeyRoom.Prg
m.BokSetDT = DpDate
Do OpenFront In FronMenu.Mpr
Do chkserrm.Spr
Do ClsRm In KeyRoom.Prg
Close Data


*       *********************************************************
*       *                                                         
*       * _3XC0NWJVI  ON SELECTION BAR 4 OF POPUP _1xr0jtrzz      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   58            
*       * Called By:  ON SELECTION BAR 4 OF POPUP _1xr0jtrzz      
*       * Prompt:     4.4 ปรับแฟ้มดัชนี                           
*       * Snippet:    11                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjvi
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



*       *********************************************************
*       *                                                         
*       * _3XC0NWJVJ  ON SELECTION BAR 2 OF POPUP newitem         
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   67            
*       * Called By:  ON SELECTION BAR 2 OF POPUP newitem         
*       * Prompt:     5.2 ออกจากโปรแกรม                           
*       * Snippet:    12                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _3xc0nwjvj
Do HoMenuOut In HoChgUr.Prg
