*       *********************************************************
*       *                                                         
*       * 15/10/2010              FRO.MPR               07:56:04  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (c) 2010 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This program was automatically generated by GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _31y0h08hj OF _MSYSMENU PROMPT "\<1. รายการประจำวัน" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _31y0h08hk OF _MSYSMENU PROMPT "\<2. กรุ๊ปทัวร์" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _31y0h08hl OF _MSYSMENU PROMPT "\<3. สอบถาม/รายงาน" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _31y0h08hm OF _MSYSMENU PROMPT "\<4. เครื่องมือ" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
DEFINE PAD _31y0h08hn OF _MSYSMENU PROMPT "\<5. ออกจากระบบ" COLOR SCHEME 3 ;
	SKIP FOR Wborder()
ON PAD _31y0h08hj OF _MSYSMENU ACTIVATE POPUP _1u00jy7m9
ON PAD _31y0h08hk OF _MSYSMENU ACTIVATE POPUP _1s419k36f
ON PAD _31y0h08hl OF _MSYSMENU ACTIVATE POPUP _1z117fep3
ON PAD _31y0h08hm OF _MSYSMENU ACTIVATE POPUP _1xr0jtrzz
ON PAD _31y0h08hn 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 "1.\<2 พักรายเดือน"
DEFINE BAR 3 OF _1u00jy7m9 PROMPT "\-"
DEFINE BAR 4 OF _1u00jy7m9 PROMPT "1.\<3 มินิบาร์,คูปอง" ;
	SKIP FOR !FrmSku
DEFINE BAR 5 OF _1u00jy7m9 PROMPT "1.\<4 เปิดบิล" ;
	SKIP FOR !FrmBill
DEFINE BAR 6 OF _1u00jy7m9 PROMPT "1.\<5 ลูกหนี้เงินเชื่อ" ;
	SKIP FOR !FrmDebtRoom
DEFINE BAR 7 OF _1u00jy7m9 PROMPT "\-"
DEFINE BAR 8 OF _1u00jy7m9 PROMPT "1.\<6 รายงานตรวจสอบ" ;
	SKIP FOR !FrmRNight
DEFINE BAR 9 OF _1u00jy7m9 PROMPT "1.\<7 ปรับรอบวันใหม่" ;
	SKIP FOR !FrmRoomPost
DEFINE BAR 10 OF _1u00jy7m9 PROMPT "\-"
DEFINE BAR 11 OF _1u00jy7m9 PROMPT "1.\<8 รายงานปิดรอบฯ" ;
	SKIP FOR !FrmHoEod
DEFINE BAR 12 OF _1u00jy7m9 PROMPT "1.\<9 ปิดรอบแคชเชียร์" ;
	SKIP FOR !FrmHoOut
DEFINE BAR 13 OF _1u00jy7m9 PROMPT "\-"
DEFINE BAR 14 OF _1u00jy7m9 PROMPT "1.\<A ออกจากโปรแกรม"
ON SELECTION BAR 1 OF _1u00jy7m9 ;
	DO _31y0h08ho ;
	IN LOCFILE("\BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON BAR 2 OF _1u00jy7m9 ACTIVATE POPUP _31y0gvoac
ON BAR 4 OF _1u00jy7m9 ACTIVATE POPUP _31y0gvoad
ON BAR 5 OF _1u00jy7m9 ACTIVATE POPUP _31y0gvoae
ON BAR 6 OF _1u00jy7m9 ACTIVATE POPUP _31y0gvoaf
ON SELECTION BAR 8 OF _1u00jy7m9 Do RNight.Spr
ON SELECTION BAR 9 OF _1u00jy7m9 Do AllPost In UtilHo2
ON SELECTION BAR 11 OF _1u00jy7m9 Do HoEod.Spr
ON SELECTION BAR 12 OF _1u00jy7m9 Do HoOutPlus In UtilHo2
ON SELECTION BAR 14 OF _1u00jy7m9 ;
	DO _31y0h08hp ;
	IN LOCFILE("\BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")

DEFINE POPUP _31y0gvoac MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _31y0gvoac PROMPT "1.2.\<1 เข้าพักรายเดือน" ;
	SKIP FOR !fRmRoom
DEFINE BAR 2 OF _31y0gvoac PROMPT "1.2.\<2 ลงค่าน้ำ,ไฟฯ" ;
	SKIP FOR !fRmRmadd
DEFINE BAR 3 OF _31y0gvoac PROMPT "1.2.\<3 พิมพ์ใบแจ้งหนี้" ;
	SKIP FOR !FrmRPay
ON SELECTION BAR 1 OF _31y0gvoac ;
	DO _31y0h08hq ;
	IN LOCFILE("\BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 2 OF _31y0gvoac Do RmAdd.Spr
ON SELECTION BAR 3 OF _31y0gvoac Do RPay.Spr

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

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

DEFINE POPUP _31y0gvoaf MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _31y0gvoaf PROMPT "1.4.\<1 พิมพ์ใบวางบิล"
DEFINE BAR 2 OF _31y0gvoaf PROMPT "1.4.\<2 พิมพ์ใบวางบิลซ้ำ"
DEFINE BAR 3 OF _31y0gvoaf PROMPT "1.4.\<3 รับชำระหนี้"
DEFINE BAR 4 OF _31y0gvoaf PROMPT "\-"
DEFINE BAR 5 OF _31y0gvoaf PROMPT "1.4.\<4 ตัดชำระทีละห้อง"
ON SELECTION BAR 1 OF _31y0gvoaf Do Ho2Ar.Prg With 'SET'
ON SELECTION BAR 2 OF _31y0gvoaf Do Ho2ArDup In Ho2Ar.Prg
ON SELECTION BAR 3 OF _31y0gvoaf Do Ho2Ar.Prg With 'PAY'
ON BAR 5 OF _31y0gvoaf 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 _31y0h08ht ;
	IN LOCFILE("\BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 2 OF _27h1guxah ;
	DO _31y0h08hu ;
	IN LOCFILE("\BDPOS\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 _31y0h08i7 ;
	IN LOCFILE("\BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 2 OF _1s419k36f ;
	DO _31y0h08i8 ;
	IN LOCFILE("\BDPOS\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 !FrmRBook
DEFINE BAR 5 OF _1z117fep3 PROMPT "3.\<4 รายงานตรวจสอบ" ;
	SKIP FOR !FrmRNight
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 _31y0h08i9 ;
	IN LOCFILE("\BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 2 OF _1z117fep3 ;
	DO _31y0h08ia ;
	IN LOCFILE("\BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 4 OF _1z117fep3 Do RBook.Spr
ON SELECTION BAR 5 OF _1z117fep3 Do RNight.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 "\-"
DEFINE BAR 7 OF _1xr0jtrzz PROMPT "4.\<6 หัวข้อพิเศษ"
DEFINE BAR 8 OF _1xr0jtrzz PROMPT "4.\<7 ปรับระบบไฟ"
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 _31y0h08ib ;
	IN LOCFILE("\BDPOS\FRO" ,"MPX;MPR|FXP;PRG" ,"Where is FRO?")
ON SELECTION BAR 5 OF _1xr0jtrzz Do PrnRegIn.Prg
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 _31y0h08ic ;
	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





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



*       *********************************************************
*       *                                                         
*       * _31Y0H08HP  ON SELECTION BAR 14 OF POPUP _1u00jy7m9     
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   44            
*       * Called By:  ON SELECTION BAR 14 OF POPUP _1u00jy7m9     
*       * Prompt:     1.A ออกจากโปรแกรม                           
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _31y0h08hp
Do HoMenuOut In HoChgUr.Prg



*       *********************************************************
*       *                                                         
*       * _31Y0H08HQ  ON SELECTION BAR 1 OF POPUP _31y0gvoac      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:    8            
*       * Called By:  ON SELECTION BAR 1 OF POPUP _31y0gvoac      
*       * Prompt:     1.2.1 เข้าพักรายเดือน                       
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _31y0h08hq
mRoom4Flag ='M'
nPSysCalDay=3
Do Floorrun.Spr
Set Message To



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



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



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



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



*       *********************************************************
*       *                                                         
*       * _31Y0H08I7  ON SELECTION BAR 1 OF POPUP _1s419k36f      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  FRO.MPR,            Record:   47            
*       * Called By:  ON SELECTION BAR 1 OF POPUP _1s419k36f      
*       * Prompt:     2.1 เปิดการจอง                              
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _31y0h08i7
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



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



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


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


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



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