*       *********************************************************
*       *                                                         
*       * 29/07/2018            ROOM4_6.SPR              11:00:32 
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (c) 2018 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This program was automatically generated by GENSCRN.    
*       *                                                         
*       *********************************************************


#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"
	SET TALK OFF
	m.talkstat = "ON"
ELSE
	m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")
SET READBORDER ON

m.currarea = SELECT()


*       *********************************************************
*       *                                                         
*       *               Windows Window definitions                
*       *                                                         
*       *********************************************************
*

IF NOT WEXIST("room4_6") ;
	OR UPPER(WTITLE("ROOM4_6")) == "ROOM4_6.PJX" ;
	OR UPPER(WTITLE("ROOM4_6")) == "ROOM4_6.SCX" ;
	OR UPPER(WTITLE("ROOM4_6")) == "ROOM4_6.MNX" ;
	OR UPPER(WTITLE("ROOM4_6")) == "ROOM4_6.PRG" ;
	OR UPPER(WTITLE("ROOM4_6")) == "ROOM4_6.FRX" ;
	OR UPPER(WTITLE("ROOM4_6")) == "ROOM4_6.QPR"
	DEFINE WINDOW room4_6 ;
		AT  0.000, 0.000  ;
		SIZE 28.692,104.857 ;
		FONT "MS Sans Serif", 8 ;
		STYLE "B" ;
		NOFLOAT ;
		NOCLOSE ;
		NOMINIMIZE ;
		SYSTEM ;
		COLOR RGB(,,,192,192,192)
	MOVE WINDOW room4_6 CENTER
ENDIF


*       *********************************************************
*       *                                                         
*       *              ROOM4_6/Windows Screen Layout              
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("room4_6")
	ACTIVATE WINDOW room4_6 SAME
ELSE
	ACTIVATE WINDOW room4_6 NOSHOW
ENDIF
@ 1.231,2.143 SAY Alltrim(m.cfSayText) ;
	SIZE 1.000,59.900 ;
	FONT "Tahoma", 14 ;
	STYLE "B" ;
	PICTURE "@T" ;
	COLOR RGB(0,0,0,192,192,192)
@ 1.154,91.714 GET m.HelpRoom ;
	PICTURE "@*HN Help       " ;
	SIZE 1.308,11.286,0.000 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	VALID vRoom1()
@ 2.462,91.714 GET m.nfPageupdn ;
	PICTURE "@*VN PageUp   ;PageDown" ;
	SIZE 1.538,11.286,0.000 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	VALID vRoom2()
@ 2.846,2.143 SAY m.txtOnScn1 ;
	SIZE 1.000,75.429 ;
	FONT "Tahoma", 10 ;
	STYLE "B" ;
	PICTURE "@T" ;
	COLOR RGB(0,0,128,192,192,192)
@ 4.077,2.143 SAY Iif(!Used('Room'),"",Iif(Empty(Room.Guestname),'','By: '+Alltrim(Room.Guestname)))+Iif(Used('Room') .and. Room.Night='T','   เวลา '+Left(Room.Intime,5)+' - '+Left(Room.OutNightTM,5)+' น.','') ;
	SIZE 1.000,62.500 ;
	FONT "Tahoma", 10 ;
	COLOR RGB(0,0,0,192,192,192)
@ 4.077,57.429 SAY 'วันปัจจุบัน :'+ChgD_T2T(Date())+'ที่ '+ChgM_T2T(Date(),0) ;
	SIZE 1.000,35.500 ;
	FONT "Tahoma", 10 ;
	PICTURE "@J" ;
	COLOR RGB(0,0,0,192,192,192)
@ 5.923,81.857 GET m.TpStaRoom ;
	PICTURE "@^ \<1 แสดงตามปรกติ;\<2 เลือกประเภทห้อง;\<3 เลือกทัวร์,กลุ่ม;\<4 เลือกบริษัท,ตัวแทน;\<5 เลือกชื่อลูกค้า;\<6 แสดงประเภทห้อง" ;
	SIZE 1.538,24.667 ;
	DEFAULT "1 แสดงตามปรกติ" ;
	FONT "Tahoma", 8 ;
	STYLE "B" ;
	VALID vRoom3()
@ 6.077,2.143 SAY Alltrim(m.txtOnScn3)+Alltrim(m.txtOnScn5) ;
	SIZE 1.000,91.833 ;
	FONT "Tahoma", 10 ;
	COLOR RGB(0,0,0,192,192,192)
@ 8.923,5.857 GET m.sayrm11 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 8.923,20.429 GET m.sayrm12 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 8.923,34.857 GET m.sayrm13 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 8.923,49.429 GET m.sayrm14 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 8.923,64.000 GET m.sayrm15 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 8.923,78.571 GET m.sayrm16 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 9.615,1.429 GET m.f11 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C11) ;
	VALID Room2Prog(m.C11)
@ 9.615,16.000 GET m.f12 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C12) ;
	VALID Room2Prog(m.C12)
@ 9.615,30.429 GET m.f13 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C13) ;
	VALID Room2Prog(m.C13)
@ 9.615,45.000 GET m.f14 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C14) ;
	VALID Room2Prog(m.C14)
@ 9.615,59.571 GET m.f15 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C15) ;
	VALID Room2Prog(m.C15)
@ 9.615,74.143 GET m.f16 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C16) ;
	VALID Room2Prog(m.C16)
@ 12.538,89.857 GET m.BoTT_Run2 ;
	PICTURE "@*VN << สอบถาม >>;<< หาห้องว่าง >>;<< สำรองห้อง >>;<< ระบุวันพัก >>;<< วันปัจจุบัน >>;<< ออก >>" ;
	SIZE 2.462,16.500,0.000 ;
	DEFAULT 1 ;
	FONT "Tahoma", 8 ;
	STYLE "B" ;
	VALID vRoom4()
@ 13.615,5.857 GET m.sayrm21 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 13.615,20.429 GET m.sayrm22 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 13.615,34.857 GET m.sayrm23 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 13.615,49.429 GET m.sayrm24 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 13.615,64.000 GET m.sayrm25 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 13.615,78.571 GET m.sayrm26 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 14.308,1.429 GET m.f21 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C21) ;
	VALID Room2Prog(m.C21)
@ 14.308,16.000 GET m.f22 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C22) ;
	VALID Room2Prog(m.C22)
@ 14.308,30.429 GET m.f23 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C23) ;
	VALID Room2Prog(m.C23)
@ 14.308,45.000 GET m.f24 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C24) ;
	VALID Room2Prog(m.C24)
@ 14.308,59.571 GET m.f25 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C25) ;
	VALID Room2Prog(m.C25)
@ 14.308,74.143 GET m.f26 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C26) ;
	VALID Room2Prog(m.C26)
@ 18.308,5.857 GET m.sayrm31 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 18.308,20.429 GET m.sayrm32 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 18.308,34.857 GET m.sayrm33 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 18.308,49.429 GET m.sayrm34 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 18.308,64.000 GET m.sayrm35 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 18.308,78.571 GET m.sayrm36 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 19.000,1.429 GET m.f31 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C31) ;
	VALID Room2Prog(m.C31)
@ 19.000,16.000 GET m.f32 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C32) ;
	VALID Room2Prog(m.C32)
@ 19.000,30.429 GET m.f33 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C33) ;
	VALID Room2Prog(m.C33)
@ 19.000,45.000 GET m.f34 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C34) ;
	VALID Room2Prog(m.C34)
@ 19.000,59.571 GET m.f35 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C35) ;
	VALID Room2Prog(m.C35)
@ 19.000,74.143 GET m.f36 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C36) ;
	VALID Room2Prog(m.C36)
@ 23.000,5.857 GET m.sayrm41 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 23.000,20.429 GET m.sayrm42 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 23.000,34.857 GET m.sayrm43 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 23.000,49.429 GET m.sayrm44 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 23.000,64.000 GET m.sayrm45 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 23.000,78.571 GET m.sayrm46 ;
	SIZE 1.000,6.750 ;
	DEFAULT " " ;
	FONT "Small Fonts", 6 ;
	WHEN .F. ;
	COLOR ,RGB(255,255,255,255,255,255)
@ 23.692,1.429 GET m.f41 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C41) ;
	VALID Room2Prog(m.C41)
@ 23.692,16.000 GET m.f42 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C42) ;
	VALID Room2Prog(m.C42)
@ 23.692,30.429 GET m.f43 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C43) ;
	VALID Room2Prog(m.C43)
@ 23.692,45.000 GET m.f44 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C44) ;
	VALID Room2Prog(m.C44)
@ 23.692,59.571 GET m.f45 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C45) ;
	VALID Room2Prog(m.C45)
@ 23.692,74.143 GET m.f46 ;
	PICTURE "@*HN -" ;
	SIZE 3.692,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN WhenRoom(m.C46) ;
	VALID Room2Prog(m.C46)
@ 10.308,89.000 SAY Iif(File('Master.exe'),'','Room4_6 In Room.Prg') ;
	SIZE 1.000,15.333 ;
	FONT "MS Sans Serif", 8 ;
	COLOR RGB(0,0,255,192,192,192)

IF NOT WVISIBLE("room4_6")
	ACTIVATE WINDOW room4_6
ENDIF

READ CYCLE ;
	VALID VRoom() TimeOut nfScnFile ;
	WHEN WRoom46() Modal ;
	ACTIVATE ch_Room() ;
	DEACTIVATE DRoom() ;
	SHOW _59c0nlgj7()

RELEASE WINDOW room4_6
SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

IF m.talkstat = "ON"
	SET TALK ON
ENDIF
IF m.compstat = "ON"
	SET COMPATIBLE ON
ENDIF


*       *********************************************************
*       *                                                         
*       * _59C0NLGJ7           Read Level Show                    
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         ROOM4_6                            
*       * Called By:           READ Statement                     
*       * Snippet Number:      1                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _59c0nlgj7     && Read Level Show
PRIVATE currwind
STORE WOUTPUT() TO currwind
*
* Show Code from screen: ROOM4_6
*
#REGION 1



IF SYS(2016) = "ROOM4_6" OR SYS(2016) = "*"
	ACTIVATE WINDOW room4_6 SAME
	@ 1.231,2.143 SAY Alltrim(m.cfSayText) ;
		SIZE 1.000,59.900, 0.000 ;
		FONT "Tahoma", 14 ;
		STYLE "B" ;
		PICTURE "@T" ;
		COLOR RGB(0,0,0,192,192,192)
	@ 2.846,2.143 SAY m.txtOnScn1 ;
		SIZE 1.000,75.429, 0.000 ;
		FONT "Tahoma", 10 ;
		STYLE "B" ;
		PICTURE "@T" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 4.077,2.143 SAY Iif(!Used('Room'),"",Iif(Empty(Room.Guestname),'','By: '+Alltrim(Room.Guestname)))+Iif(Used('Room') .and. Room.Night='T','   เวลา '+Left(Room.Intime,5)+' - '+Left(Room.OutNightTM,5)+' น.','') ;
		SIZE 1.000,62.500, 0.000 ;
		FONT "Tahoma", 10 ;
		COLOR RGB(0,0,0,192,192,192)
	@ 4.077,57.429 SAY 'วันปัจจุบัน :'+ChgD_T2T(Date())+'ที่ '+ChgM_T2T(Date(),0) ;
		SIZE 1.000,35.500, 0.000 ;
		FONT "Tahoma", 10 ;
		PICTURE "@J" ;
		COLOR RGB(0,0,0,192,192,192)
	@ 6.077,2.143 SAY Alltrim(m.txtOnScn3)+Alltrim(m.txtOnScn5) ;
		SIZE 1.000,91.833, 0.000 ;
		FONT "Tahoma", 10 ;
		COLOR RGB(0,0,0,192,192,192)
ENDIF
IF NOT EMPTY(currwind)
	ACTIVATE WINDOW (currwind) SAME
ENDIF