Standard Jet DBnb` Ugr@?~1y0̝cßFNc7 ܜ(B.` {6߱&lC73ey[-|*|+K7B4f_Љ$g'DeFx -bT4.0dv YS Y4S SS Y  YsY YY Y Y Y  Y  Y  Y Y Y2Y Y  Y YConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortType\YYIdParentIdName        OYSRYYY Y2ACMFInheritableObjectIdSID YObjectId YxS!Y YYY Y YY YAttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute -YxSYYY Y Y Y Y Yccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship7;7;7 ;77;7;7 ;77;7;7 ;7YYYszObject$szReferencedObjectszRelationshipYv1b N  : k & W  C t/ 0B  @@@ @  @@@@@ @  @JkMYYmiJbkSdi`Si`LiQJ\SJkm^YkmSi`SYbOkmJvSi``QkkJUQUoQkmSi``QkkJUQidd`Si`idd`kSi`kQiqYMQ^YkmSi`kmJvSkoLLiQJ\SJkm^YkmSkoLidd`UiYO8SkoLidd`UiYO:SkoLkmJv^YkmSkoLkmJvidd`kSkoLkmJvkQiqYMQkYbYmMJ^QbOJi`dOMd``db `dO`QboQk!Jomd\Qvk"`JMLQQf#JO`Yb$OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MSi`LiQJ\SJkm^Ykm+kh+MkoLLiQJ\SJkm^Ykm%+kh+MSi`SYbOkmJv+kh+MMiYmidd`OJmQ&+kh+MSi`kmJv+kh+MkoLkmJvidd`k'+kh+MSi`kmJv+kh+MkoLkmJvkQiqYMQk(+kh+MSkoLkmJvkQiqYMQk+kh+MMLdkQiqYMQYO)+kh+MmQkmLiQJ\SJkm+kh+MMLdOJmQ*+kh+MmQkmLiQJ\SJkm+kh+MkoLLiQJ\SJkm^Ykm++kh+SSi`kQiqYMQ^Ykm+kh+SSkoLLiQJ\SJkm^Ykm+kh+SSkoLkmJvidd`kUoQkmk`kvkJMMQkkdL[QMmk`kvkJMMQkku`^`kvkJMQk`kvkM`OLJik`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhivLiQJ\SJkm^YkmhivLiQJ\SJkmidd`khivMJ^QbOJi hivMJ^QbOJiJbv hividd`UiYO hividd`kfQikmJv hivkmJv hivkmJvidd`khivkmJvidd`kMmhivkmJvkQiqYMQkhkQ^UoQkmkmJvkhkQ^idd`khkQ^idd`kmJmQhkQ^kQiqYMQJhkQ^kQiqYMQLhkQ^kmJvkhumLidd`UiYOmL^LiQJ\SJkmmL^MJ^QbOJimL^UoQkmmL^idd`mL^idd`kmJmQmL^kQiqYMQiQMQYqQOmL^kQiqYMQmvfQmL^kmJvmL^kmJvidd`k mQkm!JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO+ MOO8HB@HBBMJ88OBFDBH6666FBL8<+ +;K["+ MOO8HB@JBBMJ88OBFDBH6666FBL8<+ +;K[#+ MOO8HB@LBBMJ88OBFDBH6666FBL8<+ +;K[$mL^idd`mL^idd`kmJmQ%mL^kQiqYMQmvfQmL^kQiqYMQiQMQYqQO&5  @ @ @ @ @ @ @ @ @ @           !"#$%&' (!)"*#+$%&'()* + , - . /0123456789!:";#<$=%>&QVbgntx}  @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @    $% & ' ( ) * + , - . / 0 1 2 3 456789:;<=>?@ABCDEFGHIJKLMNOP !"#$%&'()*+ , - . /!0!1!2"3"4"5"6#7#8#9#:$;$<$=%>%?%@%&&&'''(( (!)")#)$*%*&*'+(+)+*,+,,,--.-/-0.1.2.3/4/5/60708091:1;1<2=2>2?3@3A3B4C4455566677 7 8 8 8 9)9*9+:: : ; ; ; <<<===>>>  Q Q Q QVVVbbbgggnnntttxxx}}} !"#$%&'(  !"#_,\^          !!!!!!""""""# #"###!$$$&$'$%%(%*%+%)&,&.&/&-'0'2'3'4'5'6'7'8'9':' ;'1(<(>(?(@(A(B(C(D(E(F(G(H(I(=)J)L)M)N)O) P) Q)K*R*T*\*\*\*\*\* \*S+\+\+\ +\ +\ +\,\ ,\,\,\,\,\,\,\,\,\,\ -\-\-\-\-\-\-\- \- \ -\.\!.\#.\$.\%.\&.\'.\(.\).\"/\*/\,/\-/\./\//\0/\1/\2/\3/\4/\5/\6/\7/\8/ \9/ \:/ \;/ \/ \?/\+0\@0\B0\C0\D0\E0\F0\G0\H0\I0\J0\A1\K1]1]1]1]1]1]1]1]1]1] 1] 1] 1 ] 1 ] 1\L2]2]2]2]2]2]2]2]2]2]2]2]2]2 ]2 ]2]3]3] 3]!3]"3]#3]$3]%3]&3]'3](3 ])3 ]*3 ]+3 ],3 ]-3]4].4]04]14]/\L% @+ MOO8HB@HBBMJ88OBFDBH6666FBL8<+ +;K[+ MOO8HB@JBBMJ88OBFDBH6666FBL8<+ +;K[+ MOO8HB@LBBMJ88OBFDBH6666FBL8<+ +;K[mL^idd`mL^idd`kmJmQmL^kQiqYMQmvfQmL^kQiqYMQiQMQYqQO @@mL^idd`kmJmQmL^idd`kmJmQmL^kQiqYMQiQMQYqQOmL^kQiqYMQiQMQYqQOmL^kmJv  @mL^UoQkmmL^idd`mL^kQiqYMQmvfQmL^kmJvmL^kmJv,d _ Z g  ~K m  \  W PG@SC9|B@#9. @9. @~sq_ctestBreakfast~sq_csubBreakfastListnnnnnnnnnnn "_U@_U@~sq_ctestBreakfast~sq_ccboDate 4MR2KeepLocal T^^^^^^^\ @!`_pz@`_pz@~sq_cfsubStayServices~sq_ccboServiceID 4MR2KeepLocal Tnnnnnnnl @M @M @~sq_cfrmStay~sq_csubStayRooms 4MR2KeepLocal T\\\\\\\Z @g: @g: @~sq_cfrmFindStay~sq_ccritRoomDate 4MR2KeepLocal Tdddddddb @(  A=@=@Admin @8,,,,,,,,,* :=@= Y'Q@macBeep 0000000000. 3=@= Y'Q@AutoKeys 22222222220 as @@= Y'Q@modMenues 44444444442 ܧ=@= Y'Q@modCommon 44444444442 Rq=@= Y'Q@InitCalendar ::::::::::8 y=@= Y'Q@fsubStayServices BBBBBBBBBB@ B=@= Y'Q@fsubStayRooms <<<<<<<<<<: :=@= Y'Q@fsubStayList ::::::::::8 @= Y'Q@fsubRoomGrid1 <<<<<<<<<<: = Yw=@= Y'Q@fsubBreakfastList DDDDDDDDDDB 8q?@= Y'Q@frmStay 0000000000. 7r=@= Y'Q@frmServiceList >>>>>>>>>>< >. @@= Y'Q@frmRooms 22222222220  +W6@@= Y'Q@frmMessageRoom >>>>>>>>>><  ,4s?@= Y'Q@frmMessageGuest @@@@@@@@@@>  ,4s>@= Y'Q@frmFindStay 88888888886  K=@= Y'Q@frmBreakfastList BBBBBBBBBB@  v=@= Y'Q@AsciiTransform >>>>>>>>>><  {De=@{De=@UserDefined 88888888886  {De=@{De=@SummaryInfo @DDD88888886 @'Ne=@Ne=@SysRel .........., Ne=@Ne=@Scripts 0000000000. Ne=@Ne=@Reports 0000000000. Ne=@Ne=@Modules 0000000000. Ne=@Ne=@Forms ,,,,,,,,,,* ;^@;^@DataAccessPages @@@@@@@@@@> > e=@> e=@MSysRelationshipsDDDDDDDDDDB > e=@1zϿA@MSysQueries88888888886 > e=@1zϿA@MSysACEs22222222220 > e=@> e=@MSysObjects88888888886 > e=@¨a@MSysDb @:::......., @> e=@> e=@Relationships<<<<<<<<<<: > e=@> e=@Databases44444444442 > e=@> e=@Tables.........., UpR4xZ k M  L  k M / b D & \ >  r<f-8Q%u7YNi,*+ G*+ *+ G) +tblRoomState.date0 g) +tblRoomState.roomID2 g)+tblRoomState.date =#10-22-02#< ')+FirstOfstateFirst(tblRoomState.state)P)) o)+tblRoomState.roomID2 g)+tblRoomState))) )+ )+ G(+tblRoomqryBreakfastRoomsR@MA (+tblRoomqselServiceBH@C7 (+qselServiceAtblRoomH@C7) (+BreakfastB@1%% o(+BreakfastA@1%% o(+tblRoom.roomID- g(+qryBreakfastRooms333 (+qselServiceB))) (+tblRoom (+qselServiceA))) (+ G(+ G(+ (+ G' +tblGuest.name, ''+qselStaystblGuestH@?3# '+qselStays.arrival0 g'+tblGuest.phone- g'+addrd@% o'+tblGuest.name, g'+tblGuest!!! '+qselStays### '+ G'+ G'+ '+ G&artblStayRooms))) & ar G&ar &ar G%artblBreakfast))) % ar G%ar %ar G$artblServiceType--- $ ar G$ar $ar G#artblBreakfast))) # ar G#ar #ar G"arDate > #8-1-98#. '"ar[tblCalendar].[Date]3 g"artblCalendar''' "ar G"ar "ar G!artblServiceType.price3 g!artblServiceType.name2 g!artblServiceType.serviceID7 g!.artblServiceType--- !.ar !ar G .ar([__stayID] = stayID)4 ' .arqryStayServicesfrmStay==/   ar G ar__stayID!!! O .ar  ar G.ar([__stayID] = stayID)4 '.artblStayRoomsfrmStay77)  ar Gar__stayID!!! O.ar ar G.artblCalendar'''  ar G.ar ar G.artblBreakfast)))  ar G.ar ar G3)OQNI [ WM q K( F BJ Z Hv ;7G JDx f[ @[ @~sq_cf[ @[ @~sq_cfrmBreakfastList~sq_csubBreakfastList 4MR2KeepLocal Tvvvvvvvt @ Vpy=@nN2@AccessLayout 4MR2KeepLocal T@!zz:::::::8 @>A@A@tblServiceTypetblServiceReceived bbbbbbbbbb` =DA@DA@tblRoomtblRoomState HHHHHHHHHHF <\lA@\lA@{CDD1965B-66CA-11D6-8769-000086394B13} nnnnnnnnnnl ;\lA@\lA@{CDD1965A-66CA-11D6-8769-000086394B13} nnnnnnnnnnl :%kA@%kA@{CDD19659-66CA-11D6-8769-000086394B13} nnnnnnnnnnl 9tT=@@M@@test @@B66*******( @ uzhA@{ϿA@tblStay @<<<0000000. @Rd3A@{ϿA@tblServiceType @JJJ>>>>>>>< @}ZdA@{ϿA@tblServiceReceived u@RRRFFFFFFFD @xaA@DU@tblRoomState 9@FFF:::::::8 @tDNKt=@{ϿA@tblRoom @@<<<0000000. @n>WA@1zϿA@tblGuest @>>>22222220 @b@@1zϿA@tblBreakfast @FFF:::::::8 @8=@Df4@@qxtbRoomGrid q@@@RFF:::::::8 @7$q@@02@qselStays @@L@@44444442 @6wj=@Z. @qselServiceB @ @RFF:::::::8 @4dr5>@I)M2@qselRoomState o@@THH<<<<<<<: @3'ϻ\4>@M2@qselRooms @@L@@44444442 @2u?@02@qselGuestStays s M&>>>>>< `0]?@-{A@qryStayRoomsCT Z@@@ VJJ>>>>>>>< @/;=@o~A@qryStayRooms u@@@ RFF:::::::8 @.5!{?@6?@qryStay @@@H<<0000000. @,Fd=@M2@qryRoomGrid @@PDD88888886 @+l1?@?RoA@qryCalendarAny @@VJJ>>>>>>>< @*ƞuA@MT!qyA@qryCalendar X@@PDD88888886 @):`kA@7. @qryBreakfastRooms :@@\PPDDDDDDDB @VkS=@1zϿA@MSysCmdbars 88888888886 Q&@&@MSysAccessXML 4MR2KeepLocal  T|||<<<<<<<: @. @ . @MSysAccessObjects DDDDDDDDDDB &pz@pz@~sq_ffsubStayRooms 4MR2KeepLocal TFFFFFFFD @%uU@uU@~sq_ffsubBreakfastList 4MR2KeepLocal TNNNNNNNL @LVAL:T8 V t n  h L.6ŬŬŬŬŠĠĠĠĠĠĠĠĠĠ\bl$6t([qryRoomGrid].[roomID],'#') & ', ' & Choose([type],(Format([qryRoomGrid].[roomID],'#') &((tblCalendar.date) Between #10-24-2002# and #10-31-2002#)iif(qselStays.arrival is null, #1-1-2040#, qselStays.arrival)qselStays.guestID = tblGuest.guestID[address1] & ', ' & [address2] & ', ' & [address3](tblStay.state = 1 OR tblStay.state =2)tblGuest.guestID = tblStay.guestIDtblStay.stayID = qryRoomsPerStay.stayIDMin([qryRoomsPerStay].[roomID]) & IIf(Count([qryRoomsPerStay].[roomID])>1,' + ...','')Min(qryRoomsPerStay.firstRoomDate)(Format([qryRoomGrid].[roomID],'#') & ', ' & Choose([type],'Double, bath','Single, bath','Double, toilet','Single, toilet','De luxe'))tblServiceReceived.serviceID=4 AND tblServiceReceived.date=#10-23-02#tblServiceReceived.serviceID=3 AND tblServiceReceived.date=#10-23-02#tblServiceType.serviceID = tblServicereceived.serviceID(((tblRoomState.date)<[forms]![frmStay]![txtsimdate]))tblRoom.roomID = tblRoomState.roomIDIIf([personCount]=1 And [price2]>0,[price2],[price1])IIf([personCount]=1 And [price2]>0,[price2],[price1])IIf([personCount]=1 And [price2]>0,[price2],[price1])tblRoom.roomID = tblRoomState.roomIDIIf([personCount]=1 And [price2]>0,[price2],[price1])*Count(tblRoomState.date)IIf([personCount]=1 And [price2]>0,[price2],[price1])tblGuest.guestID = tblStay.guestIDselect cdate(0), "any" from tblcalendarSELECT tblCalendar.date, tblCalendar.date AS show FROM tblCalendar where date between (forms!frmFindStay!txtSimDate-4) and (forms!frmFindStay!txtSimDate+35) ORDER BY tblCalendar.date (((tblCalendar.date) Between ([forms]![frmFindStay]![txtSimDate]-4) And ([forms]![frmFindStay]![txtSimDate]+35)))tblRoom.roomID = qryBreakfastRooms.roomIDtblRoom.roomID = qselServiceB.roomIDqselServiceA.roomID = tblRoom.roomIDIIf([firstofstate]=2 Or [firstofstate]=3,[qselServiceB].[quantity],"X")IIf([firstofstate]=2 Or [firstofstate]=3,[qselServiceA].[quantity],"X")qselStays.guestID = tblGuest.guestID[address1] & ', ' & [address2] & ', ' & [address3] YnN<nYYDataIDPYAOIndexv1?K[0SysAccessObjectsΛLLLLLLLLLLJ Y4@Z4@lZ4@ay00Z4@JMMQkk^Jvdom+kh+MMiYmidd`OJmQ,)(1a[4HWx%745ȥйw$\4@\4@\4@$]4@afDP DP ]4@$1aX^4W%x%745AccessVersion Build"Show Values Limit,Show Values in Indexed4Show Values in Non-Indexed*Show Values in RemoteAppTitleStartUpForm&StartUpShowDBWindow(StartUpShowStatusBarStartUpMenuBar$Allow3>*k&4!k J4   VVaXBtsm4xf4p@๔@པ”`Ôl4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4l4lK[ࡱ> N:JGPYRoot Entryxp脔@VBA`6~5CNVBAProject`6~5CNVBA `6~5CN?/r  !"#$%&'*=/012345679(?@AYZ\]^_`abcdefghijklmnopqstuvwxyz{|}~Root Entryxp脔@VBA`6~5Cp脔VBAProject`6~5Cp脔VBA`6~5Cp脔DIE !"#$%&'*=;/012345679(>BCVKrH FL?RSTUV X__SRP_0!(__SRP_1Forms d?`6~5Cp脔0%`6~5C`6~5C%12N`6~5Cp脔Blob LPropDataMP,TypeInfoK[-?dir ' AcessVBADataPROJECTwm1PROJECTnBlob PropDataDFTypeInfo11CLK`6~5C YL A<dir & AcessVBADataPROJECTwm1PROJECTl     > !"#$%&'()*+,-./023456789:;<=?@ABCDEFGHIJKL`NOPQRSTUVWXYZ[\]^_acdefghijklmnopqrstuvwxyz{|}~CustomGroups`5C`5CDataAccessPages `5C`5CME %`ID="{B48EA137-7643-4941-937A-E686348CAA5A}" DocClass=Form_AsciiTransform/&H00000000 DocClass=Form_InitCalendar/&H00000000 DocClass=Form_frmBreakfastList/&H00000000 DocClass=Form_frmFindStay/&H00000000 DocClass=Form_frmServiceList/&H00000000 DocClass=Form_fsubStayRooms/&H00000000 DocClass=Form_frmRooms/&H00000000     K[ DocClass=Form_fsubRoomGrid1/&H00000000 DocClass=Form_fsubStayList/&H00000000 Module=modCommon DocClass=Form_fsubStayServices/&H00000000 Module=modMenues DocClass=Form_fsubBreakfastList/&H00000000 DocClass=Form_frmStay/&H00000000 DocClass=Form_fsubRoomGrid2/&H00000000 Name="hotelsys" HelpContextID="0" VersionCompatible32="393222000" CMG="0200CA0B890F890F890F890F" DPB="C5C70D4C130E140E140E" GC="888A4053415341AC" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_AsciiTransform=0, 0, 0, 0, C Form_InitCalendar=0, 0, 0, 0, C Form_frmBreakfastList=0, 0, 0, 0, C Form_frmFindStay=176, 176, 757, 542, Form_frmServiceList=0, 0, 0, 0, C Form_fsubStayRooms=0, 0, 0, 0, C Form_frmRooms=0, 0, 598, 30, Form_fsubRoomGrid1=88, 88, 478, 470, Form_fsubStayList=0, 0, 0, 0, C modCommon=66, 66, 260, 448, Form_fsubStayServices=132, 132, 416, 514, modMenues=44, 44, 238, 426, Form_fsubBreakfastList=0, 0, 0, 0, C Form_frmStay=154, 154, 382, 536, Form_fsubRoomGrid2=110, 110, 500, 492, Z 2, Z 0 Then SForm_AsciiTransformForm_AsciiTransformForm_InitCalendarForm_InitCalendarForm_frmBreakfastListForm_frmBreakfastListForm_frmFindStayForm_frmFindStayForm_frmServiceListForm_frmServiceListForm_fsubStayRoomsForm_fsubStayRoomsForm_frmRoomsForm_frmRoomsForm_fsubRoomGrid1Form_fsubRoomGrid1Form_fsubStayListForm_fsubStayListmodCommonmodCommonForm_fsubStayServicesForm_fsubStayServicesmodMenuesmodMenuesForm_fsubBreakfastListForm_fsubBreakfastListForm_frmStayForm_frmStayForm_fsubRoomGrid2Form_fsubRoomGrid2-8769-000086394B13}(SLS S<N0{5589ENFEYFBDALLPTTDQCFCQJBFOUTBJM:, LIRRNWIMBKMZYDGBORTEDFARWXE_:bDJNARCKQIZNSGEADRRMPBRQBLYQK:XEHPSPIQGBLSUDNVSQFTNRDAMUZK: 2QRPWEUWFFLFKCZDIVJCTKIQAQDELK: HWIEKODWKEMNTDWJYHQMNOHCKJPL:OMKBCEEXHJXSEEXOSIITEFNYHHBC:RRODZFCGFHPGKRDTLGPLOFLBNSOVF: HAWCYUBAQCABRDJEQSGCKQRPWJED: ^KMVYMLCZHJORHELHIJHZHCUTFIMM:K[%_ZIJLUSKYHQZNBETLVYMIGCUJHEUM: O~XJLCVPIENUQAWDYSDMXNJROQXVCB:Blob .LPropDataHJTypeInfoBlobDeltaI'     > !"#$%&'()*+,-./023456789:;<=?@ABCDEFHIJKL`NOPQRSTUVWXYZ[\]^_abcdefghijklmnopqrstuvwxyz{|}~EMRLTKEDKIEODEUGSHAYHPVRRPCM:nUXCFRMNZZFRHGEABTLTQIRVVTSYC:11DSCRTNMODXOUXDXWKKWY_KJWCDIK:r;S_VBA_PROJECT[-__SRP_2 3V__SRP_3M__SRP_8$__SRP_9gBlobDeltaO:13GZS`6~5CABlob ?&PropDataRT`02=Bb cghniqj0k{`^Y?@qxtbRoomGridqxtbRK[oomGrid"[Event Procedure]8 h@HP LaserJet 5@w @yXX @MSUD7HP LaserJet 5%d \winspoolHP LaserJet 5\\ITPRINTSVR1\SA116HPLJ5M"[Event Procedure]d2e12bRcRf5bg237bchbcghMS Sans Serifi1ghj1ghk1bcl23:bc g[m4bg[n2cdh[o2ej[p5bcr35cd zbcijMS Sans Serif{5bcJ `bFormHeader d5U7`9a9bcRoom LabelRoomDetachedLabelRoom_Labeld5U7`Wa9bcBeds LabelBedsDetachedLabelBeds_Labeld5U7`ta9bcprice1 Label PriceDetachedLabelprice1_Labeld5U7`a9bcprice2 Labelas singleDetachedLabelprice2_Labeld5U7` a9bc20-10 Label 20-10DetachedLabelCtl20_10_Labeld5U7`> a9bc21-10 Label 21-10DetachedLabelCtl21_10_Labeld5U7`\ a9bc22-10 Label 22-10DetachedLabelCtl22_10_Labeld5U7`za9bc23-10 Label 23-10DetachedLabelCtl23_10_Labeld5U7`a9bc24-10 Label 24-10DetachedLabelCtl24_10_Labeld5U7`a9bc25-10 Label 25-10DetachedLabelCtl25_10_Labeld5U7`a9bc26-10 Label 26-10DetachedLabelCtl26_10_Labeld5U7`a9bc27-10 Label 27-10DetachedLabelCtl27_10_Label`p Detail m7U`9a9bceFRoomRoomm7U`Wa9bceIkBedsbedCountm07U`ta9bceXk Price price1 Fixedm07U`a9bcekas single price2 Fixedas_singlem7U`a8bceQk 24-10 24-10Ctl24_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7]` apbceQk 25-10 25-10Ctl25_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7W` a8bceQk 26-10 26-10Ctl26_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7]`a8bceQk 27-10 27-10Ctl27_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7`aqbceQk 28-10 28-10Ctl28_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: UnderK[ repair - not availablem7U`a8bceQk 29-10 29-10Ctl29_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7U`a9bceQk 30-10 30-10Ctl30_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7U`a9bceQk 31-10 31-10Ctl31_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not available`FormFooterUzXJLCVPIENUQAWDYSDMXNJROQXVCB:lmnoprz{ dddddddddddd mmmmmmmmmmmmͬ )ʼnfi9KFormHeaderd Room_LabelRoom Labeld Beds_LabelBeds Labeld price1_Labelprice1 Labeld price2_Labelprice2 Labeld Ctl2  !"#$%&'()*+,-./023456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmopqrstuvwxyz{|}~0_10_Label20-10 Labeld Ctl21_10_Label21-10 Labeld Ctl22_10_Label22-10 Labeld Ctl23_10_Label23-10 Labeld Ctl24_10_Label24-10 Labeld Ctl25_10_Label25-10 Labeld Ctl26_10_Label26-10 Labeld Ctl27_10_Label27-10 Label DetailmRoommBedsmpricemas_singleas singleFormFooterroomIDtypebedCountprice1price2mCtl24_1024-10mCtl25_1025-10mCtl       !"#$&'()*+,-.01345678u@BCDEGFTVIJKLMNOPQRSUabXYZ[\]^_`cedsghijklmnopqtvxw8yz{|}~@ i2%`ID="{B48EA137-7643-4941-937A-E686348CAA5A}" DocClass=Form_AsciiTransform/&H00000000 DocClass=Form_InitCalendar/&H00000000 DocClass=Form_frmBreakfastList/&H00000000 DocClass=Form_frmFindStay/&H00000000 DoK[cClass=Form_frmServiceList/&H00000000 DocClass=Form_fsubStayRooms/&H00000000 DocClass=Form_frmRooms/&H0000000002=Bb cghhijt@k`^Y?@qxtbRoomGridqxtbRoomGrid"[Event Procedure]8 h@HP LaserJet 5@w @yXX @MSUD7HP LaserJet 5%d \winspoolHP LaserJet 5\\ITPRINTSVR1\SA116HPLJ5M"[Event Procedure]d2e12bRcRf5bg237bchbcghMS Sans Serifi1ghj1ghk1bcl23:bc g[m4bg[n2cdh[o2ej[p5bcr35cd zbcijMS Sans Serif{5bcJ `bFormHeader d5U7`9a9bcRoom LabelRoomDetachedLabelRoom_Labeld5U7`Wa9bcBeds LabelBedsDetachedLabelBeds_Labeld5U7`ta9bcprice1 Label PriceDetachedLabelprice1_Labeld5U7`a9bcprice2 Labelas singleDetachedLabelprice2_Labeld5U7` a9bc20-10 Label 20-10DetachedLabelCtl20_10_Labeld5U7`> a9bc21-10 Label 21-10DetachedLabelCtl21_10_Labeld5U7`\ a9bc22-10 Label 22-10DetachedLabelCtl22_10_Labeld5U7`za9bc23-10 Label 23-10DetachedLabelCtl23_10_Labeld5U7`a9bc24-10 Label 24-10DetachedLabelCtl24_10_Labeld5U7`a9bc25-10 Label 25-10DetachedLabelCtl25_10_Labeld5U7`a9bc26-10 Label 26-10DetachedLabelCtl26_10_Labeld5U7`a9bc27-10 Label 27-10DetachedLabelCtl27_10_Label`p Detail m7U`9a9bceFRoomRoomm7U`Wa9bceIkBedsbedCountm07U`ta9bceXk Price price1 Fixedm07U`a9bcekas single price2 Fixedas_singlem7U`a8bceQk 23-10 23-10Ctl23_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7]` apbceQk 24-10 24-10Ctl24_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7W` a8bceQk 25-10 25-10Ctl25_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7]`a8bceQk 26-10 26-10Ctl26_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablemK[7`aqbceQk 27-10 27-10Ctl27_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7U`a8bceQk 28-10 28-10Ctl28_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7U`a9bceQk 29-10 29-10Ctl29_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not availablem7U`a9bceQk 30-10 30-10Ctl30_10OCC: Occupied - guests in the room BOO: Booked - nobody yet REP: Under repair - not available`FormFooter FormFooterͬu Pi9KFormHeaderd Room_LabelRoom Labeld Beds_LabelBeds Labeld price1_Labelprice1 Labeld price2_Labelprice2 Labeld Ctl20_10_Label20-10 Labeld Ctl21_10_Label21-10 Labeld Ctl22_10_Label22-10 Labeld Ctl23_10_Label23-10 Labeld Ctl24_10_Label24-10 Labeld Ctl25_10_Label25-10 Labeld Ctl26_10_Label26-10 Labeld Ctl27_10_Label27-10 Label DetailmRoommBedsmpricemas_singleas singleFormFooterprice1price2mCtl23_1023-10mCtl24_1024-10mCtl25_1025-10mCtl26_1026-10mCtl27_1027-10mCtl28_1028-10mCtl29_1029-10mCtl30_1030-10defghijk9 DocClass=Form_fsubRoomGrid1/&H00000000 DocClass=Form_fsubStayList/&H00000000 Module=modCommon DocClass=Form_fsubStayServices/&H00000000 Module=modMenues DocClass=Form_fsubBreakfastList/&H00000000 DocClass=Form_frmStay/&H00000000 DocClass=Form_fsubRoomGrid2/&H00000000 Name="hotelsys" HelpContextID="0" VersionCompatible32="393222000" CMG="0103C9CFCDCFCDCFCDCFCD" DPB="7A78B2392A3A2A3A2A" GC="F3F13BC0B5C1B5C14A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H0000sciiagTopgWidthgLeftgHeightFirstDayLastDaytypeIDminRoomfrmfirstlastmessagestate B+B7InitCalendaXrG 7I3iC6n@a96LIR#0* pHdhotelsys,@ Z= n {F EJ< DAO>BDA@O *\G{000@25E01-0C  0046}#5.0#0#C:\PROGRAM FILES\COMMON MICROSOFT SHARE D\w350.DLL#Micr@osoft 3.51 Object LibrXaryH26_1026-10mCtl27_1027-10mCtl28_1028-10mCtl29_1029-10mCtl30_1030-10mCtl31_1031-10defghijkK[lmnoprz{ dddddddddddd mmmmmmmmmmmm 023=Babc!ghiiz j/krN(0000 [Workspace] Form_AsciiTransform=0, 0, 0, 0, C Form_InitCalendar=0, 0, 0, 0, C Form_frmBreakfastList=0, 0, 0, 0, C Form_frmFindStay=176, 176, 757, 542, Form_frmServiceList=0, 0, 0, 0, C Form_fsubStayRooms=0, 0, 0, 0, C Form_frmRooms=0, 0, 598, 30, Form_fsubRoomGrid1=88, 88, 478, 470, Form_fsubStayList=0, 0, 0, 0, C modCommon=66, 66, 260, 448, Form_fsubStayServices=132, 132, 416, 514, modMenues=44, 44, 238, 426, Form_fsubBreakfastList=0, 0, 0, 0, C Form_frmStay=154, 154, 382, 536, Us@tdole>fstdole^h^^X043[W-^2^WINDOWS\System32\22.tlb#OLE Automation0 VBIDE> VB@IDED DE157#D5.3DQrogram Files\CommonGIShared\VBA6E6EXT.OLBRVisual Basic for Applic1s Extensibilit\y +BDe@Form_AsciiTransmG& F_ rm_sci@TransfD NFEYFBDALLPTTDQCFCQJBFOUTBJMH28AFOYE@B@RAL@PT@DQCCJ@ZFOUBJMBH@1B,3e"B(B+B7InitCalendaXrG 7I3iC6n@a96LIRRNWIMBKMZYDGBORTEDFARWXE_6LRRNW@M0K-ZY9GO`T@D@A`WX_*frmBreakfastListGV*A&7fmrQhak6a`7t `/iDJNARCKQIZNSGEADRRMPBRQBLYQKUD`1N@R 5K4IZSG@A MP RB YK 7Ա7FindStayG F S6S8ayXEHPSPIQGBLSUDNVSQFTNRDAXMUZ1HS`I5LSODV Q6T`jR`A:US Service7KnE7S6rvc LHAWCYUBAQCABRDJEQSG@8RPWJED6H6W6YB`mlAB49E8C:R@ W@BCDEGFTVIJKLMNOPQRSUabXYZ[\]^_`cedsghijklmnopqtvw8HAWCYUBAQCABRDJEQSGCKQRPWJED: ^KMVYMLCZHJORHELHIJHZHCUTFIMM:_ZIJLUSKYHQZNBETLVYMIGCUJHEUM: ^O~XJLCVPIENUQAWDYSDMXNJROQXVCB:Gb  K[CustomGroups`5C`5CDataAccessPages `5C`5C__SRP_a __SRP_bg  !"#$%&'()*+,-./023456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmopqrstuvwxyz{|}~__SRP_0!*)__SRP_1Forms d?`6~5Cp脔0%`6~5C`6~5CAQOKeyAsciiagTopgWidthgLeftgHeightFirstDayLastDaytypeIDminRoomfrmfirstlastmessagestate 7InitCalendaXrG 7I3iC6n@a96LIR"0* pHdhotelsys,@ Z= n {F EJ< DAO>BDA@O *\G{000@25E01-0C  0046}#5.0#0#C:\PROGRAM FILES\COMMON MICROSOFT SHARE D\w350.DLL#Micr@osoft 3.51 Object LibrXaryHUs@tdole>fstdole^h^^X043[W-^2^WINDOWS\System32\22.tlb#OLE Automation0 VBIDE> VB@IDED DE157#D5.3DQrogram Files\CommonGIShared\VBA6E6EXT.OLBRVisual Basic for Applic1s Extensibilit\y +BDe@Form_AsciiTransmG& F_ rm_sci@TransfD NFEYFBDALLPTTDQCFCQJBFOUTBJMH28AFOYE@B@RAL@PT@DQCCJ@ZFOUBJMBH@1B,3e"B(B+B7InitCalendaXrG 7I3iC6n@a96LIRRNWIMBKMZYDGBORTEDFARWXE_6LRRNW@M0K-ZY9GO`T@D@A`WX_*frmBreakfastListGV*A&7fmrQhak6a`7t `/iDJNARCKQIZNSGEADRRMPBRQBLYQKUD`1N@R 5K4IZSG@A MP RB YK 7Ա7FindStayG F S6S8ayXEHPSPIQGBLSUDNVSQFTNRDAXMUZ1HS`I5LSODV Q6T`jR`A:US Service7KnE7S6rvc LHAWCYUBAQCABRDJEQSG@8RPWJED6H6W6YB`mlAB49E8C:R@ W484651069,Form_fsubBreakfastList8 8DSCRTNMODXOUXDXWKKWY_KJWCDIK0?48465106Form_frmStayPF;p` P8H0xp޷m}oOIZD{fO i}\>G+ 3EK?nٟ6uF_0̈4dIj҆A1H2CQxFrLI*Tm)3BKYAzi鮳pPO @w vGd7(=6\7jF2:R(8(`($ K[". 4P B 6: " N  p$,*08@(H(p(:   0 " 8 @ H (P (x l 6!H!P! 0X!J! ! ! !" " " &("<P"$"F"#L# X# h# x## #8#*#R$`$$$ $ Form frmStay`X]? Determines what views to refesh after sending keys to XRefresh L'Jopx]DELETE * FROM tblStayRooms; LB@P   jINSERT INTO tblStayRooms ( FirstOfdate, CountOfdate, roomID, roomType, personCount, price, total, stayID) iSELECT First(tblRoomState.date) AS FirstOfdate, Count(tblRoomState.date) AS CountOfdate, tblRoom.roomID, 4tblRoom.type AS roomType, tblRoomState.personCount, @IIf([personCount]=1 And [price2]>0,[price2],[price1]) AS price, mIIf([personCount]=1 And [price2]>0,[price2],[price1])*Count(tblRoomState.date) AS total, tblRoomState.stayID MFROM tblRoom INNER JOIN tblRoomState ON tblRoom.roomID = tblRoomState.roomID WHERE tblRoomState.stayID= ! GROUP BY tblRoom.roomID, tblRoom.type, tblRoomState.personCount, IIf([personCount]=1 And [price2]>0,[price2],[price1]), tblRoomState.stayID, XIIf([personCount]=1 And [price2]>0,[price2],[price1]) ORDER BY First(tblRoomState.date);'` ` LB@P !NB@po](]@X]p] !R$ !T$DYou must fill in at least the guest name and the first address line. A&|k ": KT   f%G|jK Error message made: Select room  @!B )You can only book guests into the future. $8Select another period. A&|k !  f%G|jH" Error message made: Room not free KTCThe guest is booked already. Do you want to give him one more room? Z \ $& 0G|j   f%G|jK Error message made: Select roomdate tblRoomStatetblRoomState.stayID= !0$$V'Pdate tblRoomStatetblRoomState.stayID= !0$$X'T  P  T .There cannot be gaps in the total stay period. $8+Select another period or make two bookings. A&|k !  f%G|jH" Error message made: Room not free KTThis booking is checked in. $8 Do you want to undo the checkin? Z \ $& 0G|j*SELECT * FROM tblRoomState where [stayID]= !;'` ` L%N., ,!B ,B@D  ,): ,B@X ,B@H ,B@BS e.g. checked out or cancelledThis stay cannot be booked. A&|xnp  (: b d L N 'J B@! To make frmStay receive the keys +{enter}%xA@P- Saves the guest and the stay, calls Xrefresho]]0]H]` !R$ !T$DYou must fill in at least the guest name and the first address line. A&|k ": KT   f%G|jK" Error message made: Select a room  @!B#You can only check guests in today. $8K[(Book instead or select a room from today A&|k !  f%G|jD" Error message made: Room not free !Z6You have not chosen a paymethod. Check with the guest. XA&|XkP KTdate tblRoomStatetblRoomState.stayID= !0$$V'P P @!B#You can only check guests in today. $80You may have to change the booking for the guest A&|hk` !Z6You have not chosen a paymethod. Check with the guest. XA&|k*SELECT * FROM tblRoomState where [stayID]= !;'` ` L%N., ,!B ,B@D  ,): ,B@X ,B@H@ ,B@B KTGThe guest is checked in already. Do you want to give him one more room? Z \ $& 0G|j   f%G|jK" Error message made: Select a roomdate tblRoomStatetblRoomState.stayID= !0$$X'T  @!B !You can only check in from today. A&|k  T )There cannot be a gap in the stay period. A&|xkp !  f%G|jD" Error message made: Room not freeS e.g. checked out or cancelled"This booking cannot be checked in. A&|n  (: b d L N 'J B@! To make frmStay receive the keys +{enter}%xA@P- Saves the guest and the stay, calls Xrefresho]]] !R$ !T$DYou must fill in at least the guest name and the first address line. A&|k ": KTdate tblRoomStatetblRoomState.stayID= !0$$V'P P @!B $The guest has been checked in today. $8CDo you want to check him out and give him an invoice for one night? Z \ $& 02Do you want to cancel the stay without an invoice? Z \ $& 0G|j  (:# Cancel the staydp @!B'T- Free the rooms from tomorrowk8d0 @!B 'T- Free the rooms from todayk !Z !: 6You have not chosen a paymethod. Check with the guest. XA&| kx !: GXAt this point the system would print the final invoice. This test system prints nothing. XA&jJ Delete any remaining days from the stay, set invoiced days to checked out*SELECT * FROM tblRoomState WHERE [stayID]= !;'` ` L%N., ,!B ,"Z T ,B@D  ,): ,B@Xd ,B@`k ,B@H ,B@BS ?You can only check guests out if they are currently checked in. A&|P nH !: G  (:j+" Stay may have been canceled above b d L N 'J B@! To make frmStay receive the keys +{enter}%xA@P- Saves the guest and the stay, calls XrefreshoP ( !: CYou can only print invoice outlines for guests that are checked in. A&| k VAt this point the system would print a draft invoice. This test system prints nothing. XA&o` h !: 5You can only print confirmation letters for bookings. A&|k\At this point the system would print a confirmation letter. This test system prints nothing. XA&oxC Hidden button activated through SendKeys after changing RoomStates0 The me.record may have been saved thru +{enter}] J b  frmRooms$G fBj J d   frmFindStay$K[G "b " Bj !: $ !d!r(f !: $ !d!r(h !: $ !d!r(j J G !d!rB@pj J LGA2j J NG B@j'Jo`" Name and address may have changed   frmFindStay$G BjoX !: !R$ !T$' G Please close the unfinished stay XA&jihG OpenArgs: -1 existing stay; 0 New guest; >0 guestID for existing guest B (> lX  (: Temporary booking lX l (b( Connect to existing guestd ) Create a dummy guestkHk@'J !: $ !d!r(f !: $ !d!r(h !: $ !d!r(j (f) Prevent user creating more than one stayA2 !d!rB@p B@oH]X]x !:'p May be deleted later !: Temp stay record%You must select a room for the guest. $8Want to cancel instead? Z \ $& 0'^* Stay in the form - user must select rooms|0k(* Delete the Stay record - has been updated#select * from tblStay where stayID= !; L%N., ,!B ,B@` ,B@Hp ,B@BkX Check that guest is meaningful: l p  New guest with temporary stay !R$ !T$#Do you want to keep the guest data? Z \ $& ^G|jkx%select * from tblGuest where guestid= !r; L%N., ,!B ,B@` ,B@Hx#p# ,B@Bd/ Existing guest or new guest with non-temp stay !R$ !T$G|jCYou must fill in at least the guest name and the first address line A&'^ Cancel the close.kx"op"h"Attribute VB_Name = "Form_frmStay" Bas0{EF2CB1A9-59D8-11D6-8769-0863@94B13} |G lobalSpacFalse dCreatab"lTru Pr@edeclaId"Expose_TemplateDerivCustomizD$'   Option CompI< D] Elicit Dim observe As Integer ' Determines what views to refesh af sendin g keyXRefrBPub!2 SubtO 2(64) @=E EnFd updHRoomList(+/sASngCurrentDb.Exec"DELETE * FROM tbls;@ sINSERT INTO ( FirstOf ,Uunr#ID, Type, personCo rictotal, sID) " & _+A"S(tCTC('&(te.A) ASP  *.E) t@.AG1DC!4 IIf([H]=H1 A@p[p>20]>0,1]4,C *T"/JC1%D!0 ANER JOINA2 O+G - WHEREJ .=a*MeC GROUP BY%9d.7, *6?*0* 5??ORD +@k6sMysf%ubSy2s.RequerycmdBoPok_C@kefztlast#a a! r"Recordse|If IsNull(txt) OrAdd@s1) ThenCall MsgBox("You m fiin @lethe gue@na qKAcac l.", vbExmań!ExitC`If'#Select CMe!"tBcAg`NotG"6getP`od(", 0l, t @iError message madxe: d!7< modppmon.siml can only b@#s inouture.A;Chr(10)E ;"ano0ra`iodOG ms.us^eq$(hc-edM_R PeT  g')4&is"al dy. Do y)wantRg han orer?'YesNo +`(Q+0)Tvb@/Jo$o$o$o$o$,k$2$?= DMin("x "^I]aty"0")6.!pDMa=tebcp9A 27B+pQ!G02#bFap1 1v_R/1?2;2 1=ake two$s3; 3QYJp"3 3O 33' 3IH[@G32Acheck3inD4undoin3^3*\a{B*@0!whe[ ID] >"5ySet 0n= zOpeno(s8.WhiӁrs.EOFg;1d5rs!p@ =NUnMoveNex;$wW@gClOSrElp' e.g. out).celledA<1q w1cedo,'+K[,B"uSat`At*suGridA0TuFind=+ uAQqPaAFocus-To t`7ceZ modCommonp.simRWcan only checkTs @Ztoday." & Chr(10)@"Bookstead (sGC% from \A!]B^Q8useTID, cInOPA nffrepCPaymethod = 0!aNhavechHose p.LASwithBCInfM@JBLE}ÝbedG= DMin("d1"tbl`te.)&=㢏+ 1  1cbe a gapQ"GBp}  6" \] !snnb n‚n C b1El' e.g./out|acellyeTh3W24?aCSIte*VBobser8= uGrid6 uFindn+ 2uLiPric} MFoc$usPTopke mrreceQ=keysSEK ("+{0Per}%x")S~sgf P0 s XreshL a  vpx cmdCQ_Click( Ur ZR& %)9a0xa+Q1 __PteNNNio_8 %ghas be3ӳm\_q"j "j<6kinvop1!lnigh~tkk =anC22+aE/]/nAC'*j[Nq'\ Fb Q~sUmoPw\-PhFԷ1A KA9IHn Then  Call MsgBox("You have not chosen a paymethod. Check with the guest.", vbInform@ation) Exit Sub*@End IfIf Me.state = cI Atqis poin e system wo@uld prfinal inv`oice.4t/sphing^' DeleIany remain days fromZ@y, set9dtoed (outusp"SELECT * FROM tbl RoomSWH ERE [+ID ]=" &yID";"%S:r(CurrentDb.Open@RecordI(sWhile Nvrs.EOFA`rs!DA`<= lastA Ћ di56! CqOI=.U pd@KElse{KC.` L M@oveNexH%Wend-Cl@ Case Ncan onlyusAv ify are c'a ~inCExclaNjƁS@>c0C' ̀Z ' y mayC,be@-cd ab@Gobser@|= uGrid + uFind`!QListyPr@h MFocus@ To ke`VcceiC` akeyscS/K ("+{Ser}%x")A`sg" a@:#aaN, c@s XrefreshL " vCaT cmdntAccount_Click($^&<>f!F7that=߿< A=a draf)Confirm)Book-}*c# te b @se@7(a P)|)ub P!ASW(!^HiddrbuttoctiaYd`rough e70c3|_.u`GHp.showNewQO`(Me![0x.Hw,PwlPwEW4ubASSQs.Q.AllowAdpxIIf dole2.tlb#OLE AutomationZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 {F    e8NFEYFBDALLPTTDQCFCQJBFOUTBJM0148465106&Form_AsciiTransforme8LIRRNWIMBKMZYDGBORTEDFARWXE_0248465106;"Form_InitCalendare8DJNARCKQIZNSGEADRRMPBRQBLYQK0348465106[*Form_frmBreakfastLisK[t0 8XEHP.pIn, TruFapnboԑ 2 m ^E AQ ; )#RequeryOB!qeDB 0^ceVaQ@l0obg`abAfF(!hNameRgadJd@fsw4chP7etP1//m/'>20'$lvc SDFunA`Bc1OKum@y&0 Or IsNullatxtA)^*1)(0]Ple 2{uanish_{_Q{ k{!Load! ' Args: -p1 ex!Oq; 0 :Cw; >>0`!c; #P) Sim2= s CLng() >=;k,tAaUemporaryUiv)mZ(D `unS KEpInq*= "'0 Crea ummy puz1 ϯAAKK, KO8POKayTwK3ůT X PHrev` u c%moe & H |N?._Unl1.CanawInteger8y0xF{z F=2^*' M`be dt`8lp!~r.A ,<- record  If MsgBox("You must select a room for the guest." & C@hr(10)"Want to cancel instead?", vbYesN(o +Qtio0n) =(Th,enC<= True ' S8tayJu}m - user sBExit SubEnd I"f ' DteMY*has been updateSet rsTCurrentDb.OpenRset("!* frtbl+where "s]ID=MeF.;")GWhile No20.EOF rs.U MoveNext WenSClose v 'eck uat is meaningf`ul: fArg80 AJ|0= 0 e@_Newwith temporary6C!0(IsNull(:txtName) Or JAddress1))A;Do ywĒkeepBkB fa/W0uG CuB"idu[|ł.ID]xxls7strgn knon-l jt )Callofiin Nlea IF nB aKAfiraA linebExclamat_cCac].^_b~  'J B@! To make frmStay receive the keys +{enter}%xA@P- Saves the guest and the stay, calls XrefreshoP ( !: CYou can onlyBCC-6133-11D6-8769-000086394B13}  :@i<`i> i^omst``stay ,yID) %` DP0i^!b Fi^P%PP{F '" (&0|X H `.p    Xh"p  "  "  (xp]][ !@ !@ !8"b*SELECT * FROM tblRoomState where [roomID]= !@ AND date=# !8"b mm-dd-yy$#;'`as ` L%N.,NA' ,!BG ,"'jQBB There can at most be one record since roomID and date are the key  HPThere was no guest in this room $A&K'^ B@651|@k8 ,B@Berv.DELETE * FROM tblServiceReceived WHERE roomID= !@ AND date=# !8"bmm-dd-yy$ # AND stayID=  AND serviceID= <;'` ` LB@PM > 48 INSERT INTO tblServiceReceived VALUES ( ,  !@,  <, # !8"bmm-dd-yy$#,  >);'`i ` LB@PCk  frmStay$VCB  N BJ51 BBormk8o0 !@ ^A:FoP !H ^A:oCAttribute VB_Name = "Form_fsubBreakfastL@ist" Bas0{2CD39BCC-61K[33-11D6-@8769-086394B13} |GlobalSpacIFalse dCtab"lTru Pr@edeclaId"Expose_TemplateDerivCustomizD$Optio@n Comp@ DaT  <licit P.2 Sub u pd(serviceID As Integer, quantity Vari, Cancel) Dim s Sng, rRecordse>Sta!%Longebug.Jnt M$e."A,roPomIDP5n`t!cbo7^ sASELECT * FROM tblR where [C`]=" &" AND @=#cat(!  - 1, "mm-dd-yy")#;@!Set:= CurrentDb.OpernF=(sF >= 0 AIf NoA.EOF Then BF=!s ID '1can at most be one rBV s ib C9 and4 the keyFB< 1C"Call MsgBox(""@was no guein this", vbOKOnly5C= CSPIQGBLSUDNVSQFTNRDAMUZK1048465106 Form_frmFindStayH@8HAWCYUBAQCABRDJEQSGCKQRPWJED05484651061&Form_frmServiceListڵ`8KMVYMLCZHJORHELHIJHZHCUTFIMM06484651065$Form_fsubStayRoomsmx8ZIJLUSKYHQZNBETLVYMIGCUJHEUM1348465106gForm_frmRoomsf8XJLCVPIENUQAWDYSDMXNJROQXVCB1;48465203$Form_fsubRoomGrid18RPWEUWFFLFKCZDIVJCTKIQAQDELK1248465106"Form_fsubStayList8HWIEKODWKEMNTDWJYHQMNOHCKJPL1148465106@modCommon8OMKBCEEXHJXSEEXOSIITEFNYHHBC0;48465106*Form_fsubStayServicese 8RODZFCGFHPGKRDTLGPLOFLBNSOVF0<48465106 modMenues8EMRLTKEDKIEODEUGSHAYHPVRRPCM1<4846520d7$Form_fsubRoomGrid2o 58UXCFRMNZZFRHGEABTLTQIRVVTSYC0>484651069,Form_fsubBreakfastList8 8DSCRTNMODXOUXDXWKKWY_KJWCDIK0?48465106Form_frmStayPF;p` P8H0xp޷m}oOIZD{fO i}\>G+ 3EK?nٟ6uF_0̈4dIj҆A1H2CQxFrLI*Tm)3BKYAzi鮳pPO @w vGd7(=6\7jF2: 0L3INSERT INT>O\aWh'"VALUES (e@W2dEC*, a ,ac >)a6? SysCmd(acGetObjectte, accs` frmp Sub&_Current() ' Happens for i nstanwhen user moves curup/down g Me.SelH`eightPaJnt.g Wpidth  LefB+ 1@.Access 2Y cA@1aE ' Debug.>nt "*<"; 'RecordB@/AE-EndAMQrU 8(`/$`(`a0n rU~| exME(<8@H D  8 H Xh p   2J( B 08@"P.xm$cAnyFreeKcAnyRoom qselRoomsN fncRoomGrid qryRoomGrideSetGridColumnsefrmÏacDesign֡acHidden ControlSource" setSelection subRoomGrid SelHeight!SelWidthSelLeft#$ updateGridsubRoomGrid_Exity getSelPeriodfirstzlastbh no_selectionBcboFromM cDateColumndjuseRoomLroomsGetRowsßIIfzcboDeparture_AfterUpdate` cboDeparture txtNightscboDeparture_BeforeUpdateacboDeparture_GotFocuscboDeparture_KeyDown cboFrom_AfterUpdateacboFrom_BeforeUpdatecboFrom_GotFocusvcboFrom_KeyDowncboType_AfterUpdate cboType-txtRoomVscboType_BeforeUpdate 8cboType_GotFocusN cmdBook_ClickcurStayZ Form_frmStayCBno_stay~[cmdCheckin_Clicksql1]$sql2^$d[ cTotDatesJForm_DeactivateSelTopmsubRoomGrid_EnterIqtxtNights_AfterUpdatetxtNights_GotFocusn1txtRoom_AfterUpdatetxtRoom_GotFocus-Form_fsubRoomGrid1;{ Form_CurrentForm_fsubStayListK[( Form_DblClick$acEditIfrmStaysintStaycTemp cOut~cCancelEcRepairb uServicesS fncOpenAsciih fncSimDatecompressNumberMForm_fsubStayServices*cboDate_GotFocusForm_AfterUpdate txtGrandTotal txtQuantity cboServiceIDӽrefresh modMenues#fncAddServiceLine!vbOKOnlyfncDelServiceLinesfncDelRoomLine41fncRoomManagement fncPrintBreakfastList$ fncCancelStayvbNo%updateRoomListQfncUndoCheckinhForm_fsubRoomGrid2<{Form_fsubBreakfastList3updateBreakfastH serviceIDquantity BreakfastA/cmdXrefresh_Click,BreakfastA_BeforeUpdateQBreakfastB_BeforeUpdate) BreakfastB0observeobs subStayRooms:D firstStay<txtNameo txtAddress1DMinyDMaxx txtPaymethodcmdCheckout_ClickcmdPrintAccount_ClickurcmdPrintConfirm_Click$tblStay2D h         2J@4 modMenues: All the functions called from the menues%80VOn the Stay-screen, just enter the new service data at the bottom of the service list. $8Checked-in guests only. $$&'"i @9On the Stay-screen, select the service line and push DEL. $8Checked-in guests only. $$&'&i6On the Stay-screen, select the room line and push DEL. $8"Booked and checked-in guests only. $$&'(i This is a manager function. $8$You don't have permission to use it.$&'*iXAt this point the system would print a list of occupied rooms for the waiter to fill in. $8)This test version doesn't print anything. $$&',i @]]  frmStay$!Open the stay you want to cancel. $A&zk ". ":  ": /You can only cancel booked or checked-in stays. $A&z k %Are you sure you want to cancel stay "? $8You cannot revoke it again. Z$& 0Gzj*SELECT * FROM tblRoomState where [stayID]= ";'` ` L%N., ,!B ,B@` ,B@HP ,B@B  ): B2 B@! To make frmStay receive the keys +{enter}%xA@P- Saves the guest and the stay, calls Xrefreshi]]8X  frmStay$Open the stay you want to undo. $A&zk ". ": #You can only undo checked-in stays. $A&zk*SELECT * FROM tblRoomState where [stayID]= ";'` ` L%N., ,!B ,B@D  ,): ,B@X ,B@H ,B@B  ): B2 B@! To make frmStay receive the keys +{enter}%xA@P- Saves the guest and the stay, calls Xrefreshi( eAttribute VB_Name = "modMenues"  ' 4: All the functions called f(rom2mn  OpB Compare Da@tabase0Explicit+HPub FV fncAddServiceLine() MsgBox("OnStay-screen, just enternew sU d at! bott`oflist." & Chr(10)"Checked-in gts only.", vbOKOTEndeo8Delo oselecaZne a@push DEL`RoomLg/E.r ly.Boo@^can*Manag:et H2This a m rYYou don't have permiss to use i#PrintBreakfastL*+fA+po@ystem would p a`/d_occupiCy!2s fofwai"ho fi inb_CrK[rd$Dte verdoes nyt0hing_f-Cancf{Dim cur} As Form_frm rsRecordse(t, Sng#If SysC md(acGe0tObj@jte, ac , " $ ")`+0 Th,en@ pe%Ðs y`@wan0o 'apExitHB`xIf Set=bs!@!!<> cIn >A$iWcan$ bo`Boso%!`ͥ&Aa%su& !hyID3P"?lno`t rev@n agaWYesNo!:vbNo:. 0+0s?"SELECT * FROM tblCAE whe[!ID]=";`A A:@T= Curr Db.aGU (s`While Ns.EOFFc!rs.et`DMoveNexWend#CloccKC= c36Cq-.upre G. Focu@s ' TopQk8pceiOAPkeysS@ KA ("+{y}D%x5' SRs_rJu^1,(lls Xrefr`esh vnUndo2{in_C_C _CQD_C_C_C_C_C_CTCu 5* 5&p+qL?C;CoAMjA @ @5 55e 5ay @55?`5P5a 2Ed5rs2ST-.U2no9#o9 ^ao9o9Hyo9o9o9o9)`=o9dÄ@no9k9oCAttribute VB_Name = "Form_fsubBreakfastL@ist" Bas0{2CD39BCC-6133-11D6-@8769-086394B13} |GlobalSpacIFalse dCtab"lTru Pr@edeclaId"Expose_TemplateDerivCustomizD$Optio@n CLS eexME (SLS S<N0{37F963C3-6351-11D6-8769-000086394B13}  @ z i|i~ @i i  2 i^`` R8 i^X%p@@`XX {F 7 " " "@ hh  " TH ` p   " <(8@ "HPh " pxbBB0x  " `HX`hp xp If IsNull(Me.date) Then% Me.cboDate = simDateb Me.txtRoomID = DFirst("roomid", "tblroomstate", "tblroomstate.stayid=" & Me.Parent.stayID) End Ifo@ ~  |  | O' Don't interfere with dropped down list! !b$G|j | L !bX (bdp !bX (bkP B@!k8o0 $-Enter a date as day-month-year, e.g. 25-12-02 A& '% 0ko@ !8"B@po] !8": GAYou can only record services for guests who are checked in. Undo?'`j ! G&The quantity must be at least 1. Undo?'`j !K[G%You must select a service type. Undo?'`j `G|j ` Z \ $& ^ B@d8'^k(o CAre you sure you want to delete this service from the Guest's bill? Z \ $& ^ !8B@|k'^oAttribute VB_Name = "Form_fsubStayServic es" Bas0{37F963C3-6351-11D6-8 769-086394B13} |@GlobalSpacIFalse dCreataDblTru Predecla Id"Expo se_TemplateDerivCustom izD$Option Comp@ DT  <licit P/3 Sub cboe_GotFocus( ) ' If IsNull(Me.d) Then vsim# txt@RoomIDDFirst("rid", "tdblst..@yid=" &J P4ntIDE(End If 2U6Key Down(Code As Integer, ShiftHA6>!C= acBMa0sk A= vbUp Or K ' Don't irfere with droppxd@& liseNot_S_CYExitAn  %jkC- 1E=h+JIfDoCmd.CancelEven;o!InL@$(Ne*wa5Sng, Respon`:g8(Dc(Call MsgB ox("EA4 a" ] asy-month-yeaEe.g. 25-12-02VvbEx}ma!oAfGErrBCinueA0AfterUpr a!kGrandTotal.Reque rya Before 1_Dim| s+#au <> cInYou can only re@cord sd  guests who check_in. Undo? c @Quantit`y < 1 Z qEm be at least 1 g␩ select`?Ad type sy""pHs,YesNo Z+ Q)@vb*9n93= ȡFm_D@te(;A'"Ay6suw@. to dB this8 from e G!'s bill?`aH.refresh!)A|^ @H B PX B vx B |  E e4xME(0r> < <% d GuR%ʘBʘBʘ(BʘPBʘB ʘxB ʘB ʘTnBʘRdBʘdBʘLBʘNB@l   ` x I`  `\+  `   i2`.@ `0x0@(@B@,@ʘhBʘBʘB ʘ0B ʘXBʘbBʘ B8PXx(h@0@0  B@\ 88&{FK[ *\R1*#91$*\Rffff*1148465106)   (8@ H`R0> T x :BH  4h B   B  B  (.@px Module modCommon`X] mS] ] { The following constants also appear in cboBoxes as literals. The named constants cannot be used there without programming.'Open]$@h(Q Stay states and Room states]$P%5 Special values for include stays. Sequence importantus not]$x(! Special values for include roomsle]$0A Column number (1...) for first RoomGrid column containing a datet.r Must be 6 for Access 2000 for some reason. Maybe because there are 2 hidden columns that Access 2000 counts as 1.]$( Total number of date colums in RoomGrid ']$nX/ Last date in calendar table is today+cCalAhead]$d6 Simulated today is first date in calendar plus cToday]$8 ` B@i` B'iH]8]Ph,'.' . 2 B . '. 2 .$'0 00 09G  0'j 'iAttribute VB_Name = "modCommon" ' Module P O@ption pare Database0Explicit Pub frmStays(3) As Form6intIntegersim[ez' The following constants also appear in cb oBoxes liter.< nd8cannot be us@ed theiwithout programm5 .KC: cTemp0, cBook= 1TIn 2O = 3Cance l 4Repair ' }atUnd Room 72Or.Q9Any!7!pecial va$lu#foclude$ys. SequeA impor .@= 7(@FreՁ6r+sfDzFkColumB5number (1...)qr firstqB=Grie utainAxa datu@ i6Access 2H000soreason. May becatt2 hidde'sat couBs 1|ot6s]84Tot]4of){0sAS4MZCalAhead@36WLa59­alendi(oday+cۅ T1AimulKCXplus 7ub1YuFindT= `ZuServi / `YuLi= 8, XuPr`6h FuncfncOpenAscii@(s) D`oCmd. ]IE`eS#(/d $`sc Acompr`HN)R(aSng Dim i!!b`c i P0 b"Whia6 < Len(ai + 1cMid(a, i, 1If c >0" A c (SLS S6N0{1805097F-5866-11D6-8769-000086394B13}  `` @ i^ &`  i(stay`.%`H %x %`P {F $*\Rffff*124846510648p<r@tDvHxLzP|TX~\`dhlptx "  D( 8p> "  8Hxp !  frmStay$G frmStay  B@Bjgrid1 Only one Stay window may be open in this versionfrmStaystayID= !X   B@dF B@ko`] ( *G .Aje WHERo;Attribute VB_Name = "Form_fsubStayList" " Bas0{1805097F-5866-11D6-8769-086394B13} |GlobalSpacI False dCr@eatablTru PredeclaId"Expose_Template DerivCustomizD$Option Comp@ DT  0 Then SysCmd(acGetObjectte, ac4, "frBm") <# Do.ClSaveYes' Only one A window may be open in this vers@FCNO$G$, A"9=" & CS(tr(=)A"Edit -1E@B:0BeepDnd If E#Y\Keyss(AsciiK]Dim a = vbReturnd CallLti@p!769-000086394B13} <@8e_KH43)w  Sub&_Current() ' Happens for instanwhen user moves curup/down g Me.SelHeighrU ,a`//,` !&&,`//0!` 90//$a`$`8 `Iay//##0I`  `  q@l4@t8@|<@@nxpose_Template DerivtPJ0nt.g Wi8dth  LeFfB+ 1@.Access 2, cA@1aE ' Debug.a>nt "*<" ; 'Reco|rdB@/AE-E ndAMQ4;eڵx|/h12f eb6Ls%MwZ\i9K-L^D]Q:x-L^D]Q:b6Ls%MwZME [LS S(LJ<>LLL LLLLLLLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<<<<N0{168913DB-5C8B-11D6-8769-000086394B13} *jl 8t@jp@@0 r`kit iv ``x z` kPi| pi~``x @`k it iv ``x `k'i it iv `.z 8`(tk8 x` @,8`   Fi i i omIDi  type,@` x Riate)i:'`i  (` M C@ all `0d ca ,8 per % `K[$r 0P >rX 6   ) BX,` "     " f X333:9 ` "h p Z "   38HX pZ  "   " ( 0 3p!3!3!:9!! "","(+" @"P"WX"x"" """" " " """ " """ " Form frmRooms+{en`X] ]   (n gLeft uses the correct column number, not the +1 number erroneously used by Access2000. The code compensates.x]* Selects RoomStates for the desired periodLSELECT tblRoomState.* FROM tblRoomState WHERE ((tblRoomState.date) Between #'` ` t mm-dd-yyyy$# and # v mm-dd-yyyy$#);'` ` L!d"x(ho(]w Selects RoomStates of the desired type. If typeID shows any room, then minRoom may be >0 meaning from this room and onWSELECT tblRoom.roomID, tblRoom.bedCount, tblRoom.type, tblRoom.price1, tblRoom.price2, '` `+Count(qselRoomState.state) AS CountOfstate '` "K[`NFROM tblRoom LEFT JOIN qselRoomState ON tblRoom.roomID = qselRoomState.roomID '` |  G `WHERE tblRoom.type =  |0$'`j ~ G `WHERE tblRoom.roomID >=  ~0$'`j `Y GROUP BY tblRoom.roomID, tblRoom.bedCount, tblRoom.type, tblRoom.price1, tblRoom.price2 '` |  G `%HAVING (Count(qselRoomState.state)=0)'`j `;'` ` L!d"(ho(](M Cartesian product of all rooms of interest and calendar for the shown period`SELECT qselRooms.roomID, qselRooms.bedCount, qselRooms.type, qselRooms.price1, qselRooms.price2,'` `PtblCalendar.date FROM qselRooms, tblCalendar WHERE ((tblCalendar.date) Between #'` ` t mm-dd-yyyy$# and # v mm-dd-yyyy$#);'` ` L!d"(ho@]: Sets column headings for all shown dates in crosstab fsub    B@ .: Avoid control name conflicts by renaming them to col1 ...F The dirty constant 16 is the item number of the last non-column item.col .0$ . $#( . .? Now give the columns the right control name and control source t . dd-mm$ . $#( t . dd-mm$ . $#( .    B@Bo @ Resets current grid selction to value saved at subRoomGrid_Exit p ) During open, the grid is not yet created p !!r( l !!r( n !!r(, Access 2000 compensationko8A@) Saves selection before redoing the query !! !(A@ox' frmRooms may not be open !!r!Gj !X !!r!   'R Access 200 compensation  !!r!  ''z G$You must select a room and a period. $8%Select it from the Find Rooms window. A&ji@8] Matrix to hold entire room grid]] ' !!r!tB@v j p !!r!t%'  j j p  0 n n l  ' Debug.Print rooms(c, r - 1) 0  $$4M Include the hidden guestID and type column that don't count in the selection$The room is not free in that period. A&zkx 0  tblRoomState L%N.,  j j p  0 n n l  ,BV  ,)  $ ,)@(! RoomID in hidden column 1 (1...) !X 0  ,)Z  $ $ ,)F<; Rooms with more than one bed have personCount=2 as default : ,): ,B@X 0 'i@frmMessageRoom !( !B@p ` !!r)oH !X ( !X !X%Departure must be after the from-date A& !X (k !X !X (Ao !$-Enter a date as day-month-year, e.g. 25-12-02 A& B@ B@ B@ko@Ao ~  |  | O' Don't interfere with dropped down list !$G|j |  !X !X G !X (jd !X (k B@ !X !X (k o  !X ( !X ! (A#K[oP @ !$-Enter a date as day-month-year, e.g. 25-12-02 A& B@ B@ B@k o Ao  ~  |  | O' Don't interfere with dropped down list !$G|j |  !X (d !X (k !X ! ( B@k o ` ! G (jAoX  !$G|j+Enter date as day-month-year, e.g. 25-12-02 A& B@ B@o  Ao @ ] A There may not be an open stay ". ":  DYou cannot book additional rooms when the guest has been checked in. $8@You can check him into the room - or make a new booking for him. A&| k B| x Which stay to check in? $8'Open a stay from the Find Guest window. \A&o  ] A There may not be an open stay ". ":  The guest is not checked in yet. $8 Use check-in in the Stay window. A&|Hk@ B|( Which stay to check in? $8'Open a stay from the Find Guest window. \A&o ]@ X p ] ] !$ !$G|jo Date not valid, focus not changeable. Since this cmd is the default, it cannot be canceled, so it has to check Define period of interest: ! !X Ar Define room type of interest !  !AzdF !Azk  Define period to be shown !X !X   A h !X !!frmMessageRoom& Me.subRoomGrid.Requery ' Doesn't work !! !(dF !X'h !! fsubRoomGrid1 fsubRoomGrid2 !X !X   A fsubRoomGrid2 !(dF fsubRoomGrid1 !X !X   A fsubRoomGrid1 !(k@k8 !!r! 'j'p !'l  'n !B@ . subRoomGrid_Enter will set the grid selectiondFNo rooms match what you ask forA@kho` @!B ( @!B ( (  ( (Ao ` When the focus passes from the subform to another main form, the rectangular selection is lost.R No exit event occurs, but this event proc saves the selection for later resetting !!r!'p !!r!'l !!r!'j !!r! 'n, Access 2000 compensationo8  (A Sets gHeight, etc. !B@F Access removes the selection area without warning, but this resets itox ]  Debug.Print "frmOpen" tblCalendar L%N., ,"Z R @(B ,B@B @!B ( @!B ('pK Prevents premature setting of grid selection when first control gets focuso Ao8 When the focus is passed to another control on the form, the rectangular selection is lost. This event proc saves it for later resetting Debug.Print "subExit"; Tab; Me.subRoomGrid.Form.SelTop; Tab; Me.subRoomGrid.Form.SelHeight; Tab; Me.subRoomGrid.Form.SelLeft; Tab; Me.subRoomGrid.Form.SelWidth !!r!'p !!r!'l !!r!'j !!r! 'n, Access 2000 compensationo ! At least one night, please $K[A& (k !X ! (Aox Ao`  (Ao8X Ao ˷Attribute VB_Name = "Form_frmRoo ms" Bas0{168913DB-5C8B-11D6-8 769-086394B13} |@GlobalSpacFalse dCreataDblTru Predecla Id"Expo se_TemplateDerivCustomLizD$'  Option CompyI D] Flicit Dim prevFirst AsnPub gTop Long, @gWidthL efHeigh ' guses the correctlumn number, not+1 erroneously @d by Access2r(. TdAmpHens@Ns.>Sub fncSeRlSt(6Da@s Variant, Last)Cs7SngA0@@,s  s for+de$si| plod( sSELECT tb!.* FROM WHERE ( ( d,) Between #s &Bzat4, "mm-dd$-y")"# and  : );CurrentDb.QueryDefs!qBsHQ.SQL6s8 EYO[s(@typeIDPIntegvmingNYof, . I showsy r,an m=be >0 meani$ngcom`isS$on6.a ID 8.bedClou!G5.price12`.G 7"(K+sT0) ASv@ Of L?" H LEFT JOIN j ONeLD6 # )< cAn yFreekn AYBT` "K!A%"0"`;U 1> 0 >' 'F  GROUP BYG/_5Q5"W"HAV ING (w9=0>)7?m`۹lGridclCartanodu#lallbs ei@wrecalendarn`T%Msg'2gchh2,(C .SUf yVJoVU&uoVoV#h0oVyy$YoViV 2, 1N)]mothan s bed have =2 as depfaulvK$=ã.UpdcUCTru.riv!$Sub message(2Sng)̈SourceObj= "frmMc 3"lRequeryr!txtYsc·7Departure_AfterC!(GIbH?F)C %CV+ŭ @'NB\G.`cmd_Ck_/A/Bef\d/Cancel_(+㶓)E xrpQR2ay-month-year, e.g. 25-12-02otDoCmd.9 EvQUn do TFocu_'eq( _Gotu(r`}#do PkKey Down(pCoplD, ShiuG= acMask An4d f= Up Or DsDpyerfeLwiLdroppLd liE!yreTnTL d9')?@W,S4te_8>E斡1v9QQI{();\jS qRaCOR aQ!d%|m) P& S EEm /_DD &|oD6oDoDoD1OIoDe@VDD05CϢCCCey2HCIC' CCC`C(s<C0 CC+_+P+o?z>OO311w?&b _> Fp 3 <> cAnyfR;= ;pe;Is3m) Then Exit Sub Call MsgBox("Enter d@ate asy-month-year, e.g. 25-12-02", vbExclamation)Me.UndoDoCmd.C%K[ancelEvent End{ Privi cboType_GotF`ocus(NsetSelecfAmdBook_ Click>Dim curStay As Form_frmN- Orror GoTo no_ s're mA%not bn8 op'SeJt7=7s!7If!= cInɃ You0 can9m addial r@ooms wthe guest$ hbeJchecked in." & ChrP(10)@_G"%D  hKinto A - Amak; new b ing f@ .TA1|IfC]e.cl7G_: Which ^ ,/Hin?:"Oga! fromB6FiGBKwow1QACUmdCAUinE A?C)L@His`^XG yetLH"UsecF-in L*l */BcBj-_C _C`_C_CmdJBs, Psql12Strg dVDiI`g,erc`N(IZs( FX) AXDepa@rture)' A:valid,x =angeable. Sio9`@r !default, /`E?Be` so!%qefine period of@E)zhfnc@R Hte, CHg1f •t )'txta > 0s(cAn2ya,  El|sefhI, 0e5dm" & shown Grid(I ? - @J+ cTot&s$2prevFir=*$p subE.SourceObjw <> "PlMessagje1"'Requery oesn't wxorkq=#\ 2G5y"f8 1MP~Columns(Z1b<15 @32~"W2%_ 1p|_ _ _ q& q_ _ T 1Y 82?AA.CurrR ecord/= g(Topq1ggH eightLWidth0P ANs8LefcA5 + He`/$_wi@`rg= sm6 ("NoP0what y`ask"lFϋѶ ]Re'j2PmodCom.sim1P0Wpf#0UQENullc2+0 WuopbDeaGā' Wef passes 60o aeh maA, "rOqular!qlost. ' peqea oc butscproc xsavt6 lr rat!*Px$./r,cg,el31Om.@dD/rA0.Acc0* 2000 ctomsbLoad!'o!30Ls tc?pwl 68 remoarea withowadrn, 2sp (9rs13J7!# @Debug.ntbu!P @0z1MDb.("tblendare?N;`4rs!;#J dayrs.Close Me.cboFrom = modCommon.@simDat Departure! + 1gH eightH0 ' Prevents premazsetting of grid selection when first control ge;focus End Sub Priv subRoomGK_Enter()Call]tS`#Bxit(Cancel As I(ger)' WOthe H ijassed to an:o r\grm, rrangpulary!tp. Thoc saves Dit5r lur re '@Debug.n(t "E\"; Tab; 눋@.Form.TopoLeft[Width$C  2? D+ B- 1@Access 2000qmp0ensaAtxtNAs_Af@Upd@iŞIf` <TC%AoBMsgBox("At lea one nA, pAe", vbExclaĶ7AI=AIf@ CA(}~)wbcmdFind_Click _GotFuo-x!x(#TypcAn~yL _x]* Selects RoomStates for the desired periodLSELECT tblRoomState.* FROM tblRoomState WHERE ((tblRoomState.date) Between #'` ` t mm-dd-yyyy$# and # v mm-dd-yyyy$#);'` ` L!d"x(ho(]w Selects RoomStates of the desired type. If typeID shows any room, then minRoom may be >0 meaning from this room and onWSELECT tblRoo$,emxME (SLS S AND [roomID]= !@;'` ` L%N., ,!B ,B@D !< ,)F ,B@X ,B@H8 ,B@B  L N  !8B@J !8B@! To make frmStay receive the keys +{enter}%xA@P  Updates the record, refreshesSGYou can only release rooms for a guest who has booked or is checked in. A&'^ B@no]]]0 !8": K KT @!B 'T) Free the rooms from today' Delete any remaining days for the room *SELECT * FROM tblRoomState WHERE [stayID]= !8!> AND [roomID]= !@ AND date> T;'` ` L%N., ,!V'There are no remaining days to release. XA&dp ,!V! days will be released. Continue? Z \ $& ^ ,!B ,B@` ,B@Hkk ,B@BSGYou can only release rooms for a guest who has booked or is checked in. A&'^|`nX b d L N  !8B@J !8B@! To make frmStay receive the keys +{enter}%xA@P( Saves the guest and the stay, refreshesoMAttribute VB_Name = "Form_fsubStayRooms"D Bas0{D49D3485-59EA-11D6-8769-086394B13} |GlobalSpacAIFalse dCreatablTru PredeclaId"Expose_Templat@eDerivCustomizD$Option Comp@ DT  ᅦ& "@ n#z60r`no;W*&t!YSIn,NW1 bC` ٳwibP`r(hd.rntinue?]YesNo +^Q3t) Jvbp ! /PbL"U?MMQa6bO#DxXsDDDDOr Db{p D X[GriduFindX`\/]-\\ k[\a\Save\Va?|>LJ]b Q n the guest has been checked in. $8@You can check him into the room - or make a new booking for him. A&| k B|85E-5A90-11D6-8769-0'K[00086394B13}  2@i^`%h``{F  "  8HxpOn Error Resume Nexto@8=Attribute VB_Name = "Form_frmServiceList" Bas0{5589E85E-5A90-11D6-8769-08639 4B13} |GlobalSpacIFalse dCreatablTru Pre declaId"Expose_TemplateDerivCustomizD$Option Comp@ D3T rU $`$A`,`Aa/&0 LLL LLLLLL@d2m45bg[`Detailm47UC`bL cj txtMessageͬ{ŨI]i9KDetailmtxtMessage02=Bb ce ghij2kۼ<@Ariald2hbcgh MS Sans Serifm45bg[`Blob PropData,.TypeInfoy4'71`6~5Cp0Detailm7U`6aTb cad5UaTb cLabel1In:m7U`6ab cRkbd5Uab cLabel3Out:h1U`ab>c_i Transform Transform[Event Procedure]H Find Nextͬ̚sNi9KDetailmad Label1mbd Label3h TransformBlob PropData02TypeInfo~55`6~5C0m 0239=Babc e ghij&k$1v=@Breakfast list Arial"[Event Procedure]d2hbcghMS Sans Serifo2ej[p5bc` Detailp3U`qa6b cl subBreakfastList,Form.fsubBreakfastListo5b c6denfn$"";"ddddd";"8";"8"cboDateTable/QueryqryCalendar567"[Event Procedure]"[Event Procedure]"[Event Procedure]dd/mm/yyd5]`xabcDate_Label Date:h1U2O`abc6hi cmdOK&OK"[Event Procedu*K[re]ͬK<Ni9KDetailpsubBreakfastListocboDated Date_Labelh cmdOKBlob HPropData46TypeInfo+63;9`6~5C@g029=Babc"e g%hij"k;jg @Find guest"[Event Procedure] Arial8 hHP DeskJet 560C Printer( ,,@^|X)winspoolHP DeskJet 560C PrinterLPT1:"[Event Procedure]"[Event Procedure]d2hbcghMS Sans Serifm45bg[o2ej[p5bc` Detailm7]8L`maTbccritName"[Event Procedure]\Any part of the name will do. Shortcut: Alt+Ld5]`xaYbc Label3&Last name:8Any part of the name will dop3U`qa8b!cdsubStayList"Form.fsubStayListh 1U2E`ambQcThi cmdNewGuestN&ew guest ..."[Event Procedure]Create a booking for a guest who has never been recorded. Short-cut: Alt+Eh 1U2G`ambOcThi cmdGuestHistory&Guest history"[Event Procedure]dFind all bookings for the guest. Short-cut: Alt+Gd5`qaqbceLabel15Find guest fromm7]8Y;`aTbckcritStay"[Event Procedure]zIf you look for a particular booking number. Shortcut: Alt+Yd5]` aTbcLabel17Sta&y No.:m78M;`a6bckcritRoom"[Event Procedure]Looking for the guest in this room at a given night. Shortcut: Alt+Md5` a6bHcLabel19Roo&m No.:h 1U2R`abOcThi cmdReset&Reset criteria"[Event Procedure]fReset all search criteria. Short-cut: Alt+R or Esch 1U2S`abQcThi cmdOpenStay&Show stay ..."[Event Procedure]zShow details of the selected stay. Short-cut: Alt+S or Enterh 1U2N`abQcThi cmdNewStay&New stay ..."[Event Procedure]Create a ne+K[w booking for a guest already recorded. Short-cut: Alt+Nm7_8T`ma6bckcritAddr"[Event Procedure]bAny part of the address will do. Shortcut: Alt+Td5`qa6bcLabel29S&treet:>Any part of the address will dom7_8P`mabckcritPhone"[Event Procedure]lLast four digits of number is enough. Shortcut: Alt+Pd5_`xabcLabel12&Phone:o35_6A9`cmdeIfn,"";"";"";"";"10";"510"critDateTable/QueryqryCalendarAny 0;567"[Event Procedure]"[Event Procedure]"[Event Procedure](The date the guest is expected to arrive. May be: "any". Format: day-month-year. Shortcut: Alt+A Toggle with: Shift+Arrow up and Shift+Arrow downdd/mm/yyd5_`xabcLabel14&Arrival date:o356H9cdefn$"";"ddddd";"8";"8"critRoomDateTable/QuerytblCalendar"[Event Procedure]Looking for the guest at this night in a particular room. Shortcut: Alt+Hdd/mm/yyd5` abcLabel31Nig&ht:o05W6I9`b@ cmdeIfncritIncludeValue Listߠ0;"booked and in";1;"booked";2;"checked in";3;"checked out";4;"canceled";7;"all" 0;1441"[Event Procedure]"[Event Procedure]1^Show bookings? check-ins? etc. Shortcut: Alt+Id5W`xabcInclude_Label&Include:m 7W`aqbcktxtSimDate=fncSimDate()dd/mm/yyd5]`aqbceLabel33Today is:h 1U2F`abPcThicmdFind&Find guest "[Event Procedure]Find guests that match what you entered. Shortcut: Alt+F or Enterd5` aqbceLabel36Find guest fromͬ4E(Ti9KDetailmcritNamed Label3psubStayListh cmdNewGuestmcritPhoned Label12d Label15o critDated Label14m critStayd Label17m critRoomd Label19h cmdReseth cmdOpenStayh cmdNewStayocritIncluded Include_Labeld Label29mcritAddrd Label31ocritRoomDateh cmdGuestHistoryd Label33h cmdFindd Label36mtxtSimDateͬ\i9KDetailh cmdFindocboFromd lblFromlpsubRoomGridd Label17mtxtWeekdayFrommtxtWeekdayDeptd Label26h cmdReseth cmdBookh cmdCheckino cboTyped Label22mtxtRoomd Label8ocboDepartured lblDeparturemtxtNighBlob,K[ WRPropData8:TypeInfo7=`6~5C`6~5C 029=Babc"e g hij"k*!D6U1>@Room Selection"[Event Procedure] Arial"[Event Procedure]"[Event Procedure]d2hbcghMS Sans Serifm45bg[o2ej[p5bcw2bc ` Detailh 1U2F`{aTbOcThicmdFind&Find room "[Event Procedure]hShow the rooms that match. Shortcut: Alt+F or Entero5]6E9`b cdTef:"";"ddddd";"";"ddddd";"8";"8"cboFromTable/QueryqryCalendar 0;567"[Event Procedure]"[Event Procedure]"[Event Procedure]*[modcommon].[simdate]"[Event Procedure]"[Event Procedure]"[Event Procedure]RFormat: day-month-year. Shortcut: Alt+E Toggle with: Shift+Arrow up or Shift+Arrow down If you don't care whether the room is free, select room type "free or not".dd/mm/yyd5]`xaYbfclblFromlFr&ee from:p3`qamb!c dsubRoomGrid"[Event Procedure]"[Event Procedure]d5]` a`bcLabel17qryRoomGridm 7];`jaTb7cktxtWeekdayFrom݊=Choose(Weekday([cboFrom]),"Sun","Mon","Tue","Wed","Thu","Fri","Sat")m 7W;`ja7b7cktxtWeekdayDeptݔ=Choose(Weekday([cboDeparture]),"Sun","Mon","Tue","Wed","Thu","Fri","Sat")d5`qaqbceLabel26Find roomsh 1U2R`{abOcThi cmdReset&Reset criteria"[Event Procedure]VReset the search criteria. Shortcut: Alt+Rh 1U2B`;aTbncThi cmdBook&Book "[Event Procedure]Book the selected rooms onto the open stay window. Shortcut: Alt+Bh 1U2C`;abncThi cmdCheckin&Check in "[Event Procedure]Check the selected rooms onto the open stay window. Shortcut: Alt+Co05_6T`b@ cdTefhncboTypeValue List7;"Any - free or not";6;"Any free";1;"Double, bath";2;"Single, bath";3;"Double, toilet";4;"Single, toilet";5;"De luxe" 0;1441"[Event Procedure]"[Event Procedure]Shortcut: Alt+Td5]` aTbcLabel22Room &type:m07W8M`a5bcktxtRoomGeneral Number"[Event Procedure]"[Event Procedure]"[Event Procedure]Show this room. Don't care whether free or not. Sh-K[ortcut: Alt+Md5W` a5bc Label8Roo&m No.:o5_6D9`b cd7efn:"";"ddddd";"";"ddddd";"8";"8"cboDepartureTable/QueryqryCalendar 0;5678Enter date as day-year-month"[Event Procedure]"[Event Procedure].[modCommon].[simDate]+1"[Event Procedure]"[Event Procedure]Choose this or set "Nights". Format: day-month-year. Shortcut: Alt+D Toggle with: Shift+Arrow up or Shift+Arrow downdd/mm/yyd5_`qa7bclblDeparture&Departure:m7W8N;`abcktxtNights"[Event Procedure]1"[Event Procedure]`Set this or choose "Departure". Shortcut: Alt+Nd5W`qab6cLabel19&Nights:d5` aqbceLabel31Includetsd Label19d Label3123=Babc e ghij)k <+p=@tblServiceType Service list[Event Procedure]Ariald2e12bRcRf5bg237bchbcgh MS Sans Serifi1ghj1ghk1bcl23:bc g[m4bg[n2cdh[o2ej[p5bcr35cd zbcij MS Sans Serif{5bcJ `b FormHeaderd5]7`qaqbce name LabelServBlob PropData<>TypeInfo8/QA`6~5Cp_cices DetachedLabel name_Labeld5W7`M aqbce price LabelPrices DetachedLabel price_Label`qDetailm7U`9a9b ce namenamem07U`x a9bce kpricepriceFixed` FormFooterͬ^UZi9KFormHeaderd name_Labelname Labeld price_Labelprice LabelDetailmnamempriceFormFooterserviceIDͬ0,Yi9KFormHeaderDetailmtxtNamed name_Labelname LabelmtxtAddress1d address1_Labeladdress1 LabelmtxtAddress2mtxtAddress3mtxtPassportd passport_Labelpassport Labelm txtStayIDd stay__Labelstay# Labelo txtPaymethodd paymethod_Labelpaymethod LaBlob f/PropData@BTypeInfo.K[#10E`6~5C`6~5C 029=Babce g&hr$ijFk<"[Event Procedure]stayID=728j??@qryStayStay"[Event Procedure]"[Event Procedure] Arial"[Event Procedure]d2e12bRcRf5bg237bchbcghMS Sans Serifi1ghj1ghk1bcl23:bc g[m4bg[n2cdh[o2ej[p5bcr35cd zbcijMS Sans Serif{5bcJ |bc`FormHeader`  Detail{1U`Za%b4c f tabRS"[Event Procedure]|12R`a b'ctabRooms &Roomsp3`a b&csubStayRooms$Form.fsubStayRooms stayID stayIDm07C`(abcktxtTotalRoomsH=DSum("total","tblStayRooms","true")0.00;0.00;0.00d5` abtcLabel33"Total all nights:m07C`(abcktxtTotalTillNowN=IIf(IsNull(DSum("total","qryStayRoomsCT","qryStayRoomsCT.stayID=forms!frmStay!stayID")),0,DSum("total","qryStayRoomsCT","qryStayRoomsCT.stayID=forms!frmStay!stayID"))0.00;0.00;0.00d5`f abcLabel35*Total rooms till now:|12E`a b'ctabServicesS&ervicesp3`a b&csubStayServices*Form.fsubStayServices stayID stayIDm07C`0ab cktxtTotalServiceV=IIf(IsNull(DSum("total","qryStayServices","qryStayServices.stayID=forms!frmStay!stayID")),0,DSum("total","qryStayServices","qryStayServices.stayID=forms!frmStay!stayID"))0.00;0.00;0.00d5` abccLabel360Total services till now:h 12X`|abckicmdXrefresh&Xrefresh"[Event Procedure]m7U8N`abce txtNamenamed5U`qabcname Label &Namename_Labelm7]8A`abce ktxtAddress1address1Free used5U`qabcaddress1 Label&Addressaddress1_Labelm7_`abce ktxtAddress2address2,Foreigners have no ZIPm7_`abce ktxtAddress3address3m 7U8S`* abcektxtPassportpassportE.g. A3869038d5U`M abcpassport LabelPa&ssportpassport_Labelm 7U`aqbcektxtStayIDtblStay.stayIDd5U`qaqbcstay# LabelStay No.stay__Labelo05U6F`bcdefh ntxtPaymethodpaymethodValue Listh0;"Unknown";1;"Cash";2;"Visa";3;"Master";4;"Company" 0;1134d5U`qabcpaymethod LabelPay &formpaymethod_Labelh 1U2B`aqbtcTicmdBook"&Book "[Event Procedure]Book rooms for the guest. Select the rooms from the Find-rooms screen. Als/K[o used for booking additional rooms.h 1U2I`abtcTi cmdCheckin Check &in "[Event Procedure]@Check in the guest. Accounting starts from then on. If the guest has not booked in advance, select rooms first. Also used if the guest wants additional rooms.h 1U2D`ambtcUi cmdPrintAccount&Draft invoice"[Event Procedure]\Print a draft invoice for the guest to review.h 1U2O`abtcTi cmdCheckoutCheck &out "[Event Procedure]Print the final invoice. Also release rooms for any additional days the guest had planned to stay.m 7U`aqbck txtState~=Choose([state],"Booked","Checked in","Checked out","Canceled")m 57U`aqbck txtSimDatedd/mm/yym07C`abcktxtGrandTotalH=[txtTotalTillNow]+[txtTotalService]0.00;0.00;0.00=[subStayRooms].[Form]![txtTotalTillNow]+[subStayServices].[Form]![txtTotalService]d5`aabo cLabel19DTotal rooms and services till now:h 1U2P`abtcUicmdPrintConfirm&Print confirm"[Event Procedure]XPrint confirmation letter about the booking.m7W`aeck phone phoneHOnly last four digits used in searchd5U`xabIcLabel37 Phone:`FormFooter      !"#$%&()*+./0123456789;<=>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_bcdefgijklmnopqrstuvwxyz{|}~belpsubStayRoomspsubStayServicesh cmdBookh cmdCheckinh cmdCheckoutmtxtStatemtxtSimDatemtxtGrandTotald Label19FormFootertblGuest.guestIDnameaddress1 address2!address3#passport$stayID%tblStay.guestID&paymethod'stateh )cmdXrefresh{ tabRS|!tabRooms|!tabServicesh +cmdPrintConfirmh cmdPrintAccountd 1Label33d 3Label35m4txtTotalServiced 5Label36m2txtTotalTillNowm0txtTotalRoomsm6phoned 7Label3723=Babc e ghm)iwj2kE@@ tblBreakfastBreakfast listAriald2e12bRcRf5bg237bchbcgh MS Sans Serifi1ghj1ghk1bcl23:bc g[m4bg[n2cdh[o2ej[p5bcr350K[ x  LR@  m @` t @0 d @H T @ D @@ 0 @ 0 @ @ (cd zbcij MS Sans Serif{5bcJ ` FormHeaderd5U7ab6ce roomID LabelRoom DetachedLabel roomID_Labeld5]7`abceBreakfastA Labelin rest. DetachedLabelBreakfastA_Labeld5]7`2abceBreakfastB Labelin room DetachedLabelBreakfastB_Labeld5W7`bceLabel6 Breakfast DetachedLabel`Detailm7UCbceXroomIDroomIDm7U;`bceXk BreakfastA BreakfastA[Event Procedure]6Number of serves for the room. X: nobody in the room.m7U;`3bceXk BreakfastB BreakfastB[Event Procedure]6Number of serves for the room. X: nobody in the room.` FormFooterͬ ̛,3ai9KFormHeaderd roomID_LabelroomID Labeld BreakfastA_LabelBreakfastA Labeld BreakfastB_LabelBreakfastB Labeld Label6DetailmroomIDmBreakfastAmBreakfastB h @l @ {{{@h @X @V @P 0(@@t {@p {@l @\ @XL {@p< L{{@, @ @ {@ @ {@ @ -{@0 6{@x ͔{@H {@` i{@| @l @\ {@X @T @P e{P8@h @X @H @D >{@@ y{@ 0 @ w{L^{Y{@h @ {@ {P8{P{{@hx @t Џ{@p @l 0x @  @ x 4(+ {F $*\Rffff*1048465106*\R2*#2e*\R1*#99*\R1*#98*\R2*#24*\R2*#28$*\Rffff*1148465106*\R2*#29*\R2*#2a*\R1*#25*\R0*#f*\R2*#34*\R2*#30*\R1*#72*\R1*#8fTXr\`vdph|lxptx|z   1K[Z( "  " 08 " @H(*P( 8P XM`24VdvP @ " BJ X\ Z  h$!x , &,d @p "HI "   @Ph " pRx> v     "        8 @ P  X h p "  x     , $  0 " 8 $@ "h 8  8  &( P " X "` 8  8   $@ &h  2 2  "   @PX"p 8  8(F0 x ( "0 8 @ P `p   !& "    0 @DP " $*(0 "  88@<x    "  TX p      (0 "  8@H`h " px    & "    ( 8&Hpx "      < H&Xh80( X h   "  "     ( 8 HX$p "   " 3H <(@H " P Xh Form frmFindStay`X]x  &E Saved SQL prior to GuestHistory. A one-level stack. Null when empty.x0 $G|j L!d"!h' L!d"!h'o p $G|j  L!d"(h  L!d"(h'o]0 XSELECT tblGuest.guestID, tblStay.stayID, Min(qryRoomsPerStay.firstRoomDate) AS arrival, oMin([qryRoomsPerStay].[roomID]) & IIf(Count([qryRoomsPerStay].[roomID])>1,' + ...','') AS rooms, tblStay.state hFROM tblGuest INNER JOIN (tblStay LEFT JOIN qryRoo2K[msPerStay ON tblStay.stayID = qryRoomsPerStay.stayID) &ON tblGuest.guestID = tblStay.guestID 9GROUP BY tblGuest.guestID, tblStay.stayID, tblStay.state '` any    `HAVING '` any `&(Min(qryRoomsPerStay.firstRoomDate)= #  mm-dd-yyyy$#) '`k@ any   G `AND '`j     G `(tblStay.state =  0$) '`j  G `(tblStay.state =  0$ OR tblStay.state = 0$)'`jk0 `;'` ` L!d"(hoH]:SELECT qselStays.stayID, tblGuest.guestID, tblGuest.name, '` `<[address1] & ', ' & [address2] & ', ' & [address3] AS addr, '` `NtblGuest.phone, qselStays.arrival, qselStays.rooms, qselStays.state AS qstate '` `KFROM qselStays RIGHT JOIN tblGuest ON qselStays.guestID = tblGuest.guestID '`  `WHERE ( ) '`  `=  ` X  i  < n8$$i^ ,p %`p%8bJx(hXH {F     N( " x "*Hj@P` "hp R   (8D@ ` H PfXDPPX$ z PXH` pD h        & * @ H  P ` 2 J  "  ( 8 @  H Rh     F 0  l@    H   D  ` h p Px   t  PX` Dp D ( 8 H X hx  jFPP 0  8 @HHP &0  20Jh " R`h  p P  T" 0 @H 2P  D z PD  8 H X h x3K[      N(0 H82J( "08RHd " (D8j "P 6X>R(8(`($ ". 4P B 6: " N  p$,*08@(H(p(:   0 " 8 @ H (P (x l 6!H!P! 0X!J! ! ! !" " " &("<P"$"F"#L# X# h# x## #8#*#R$`$$$ $ Form frmStay`X]? Determines what views to refesh after sending keys to XRefresh L'Jopx]DELETE * FROM tblStayRooms; LB@P   jINSERT INTO tblStayRooms ( FirstOfdate, CountOfdate, roomID, roomType, personCount, price, total, stayID) iSELECT First(tblRoomState.date) AS FirstOfdate, Count(tblRoomState.date) AS CountOfdate, tblRoom.roomID, 4tblRoom.type AS roomType, tblRoomState.personCount, @IIf([personCount]=1 And [price2]>0,[price2],[price1]) AS price, mIIf([personCount]=1 And [price2]>0,[price2],[price1])*Count(tblRoomState.date) AS total, tblRoomState.stayID MFROM tblRoom INNER JOIN tblRoomState ON tblRoom.roomID = tblRoomState.roomID WHERE tblRoomState.stayID= ! GROUP BY tblRoom.roomID, tblRoom.type, tblRoomState.personCount, IIf([personCount]=1 And [price2]>0,[price2],[price1]), tblRoomState.stayID, XIIf([personCount]=1 And [price2]>0,[price2],[price1]) ORDER BY First(tblRoomState.date);'` ` LB@P !NB@po](]@X]p] !R$ !T$DYou must fill in at least the guest name and the first address line. A&|k ": KT   f%G|jK Error message made: Select room  @!B )You can only book guests into the future. $8Select another period. A&|k !  f%G|jH" Error message made: Room not free KTCThe guest is booked already. Do you want to give him one more room? Z \ $& 0G|j   f%G|jK Error message made: Select roomdate tblRoomStatetblRoomState.stayID= !0$$V'Pdate tblRoomStatetblRoomState.stayID= !0$$X'T  P  T .There cannot be gaps in the total stay period. $8+Select another period or make two bookings. A&|k !  f%G|jH" Error message made: Room not free KTThis booking is checked in. $8 Do you want to undo the checkin? Z \ $& 0G|j*SELECT * FROM tblRoomState where [stayID]= !;'` ` L%N., ,!B ,B@D  ,): ,B@X ,B@H ,B@BS e.g. checked out or cancelledThis stay cannot be booked. A&4K[|xnp  (: b d L N 'J B@! To make frmStay receive the keys +{enter}%xA@P- Saves the guest and the stay, calls Xrefresho]]0]H]` !R$ (qselGuestStays.arrival=#10/21/2002#))1+c?@qselGuestStaysfsubStayList8 hHP LaserJet 5@w @yXX @MSUD7HP LaserJet 5%d \winspoolHP LaserJet 5\\ITPRINTSVR1\SA116HPLJ5M"[Event Procedure]"[Event Procedure]d2e12bRcRf5bg237bchbcghMS Sans Serifi1ghj1ghk1bcl23:bc g[m4bg[n2cdh[o2ej[p5bcr35cd zbcijMS Sans Serif{5bcJ `FormHeaderd5U7bcstay# LabelStay No.DetachedLabelstay__Labeld5U7`bcname Label GuestDetachedLabelname_Labeld5U`Hb7c Label6Arrivald5U`bc Label7Roomd5U`b7c Label8 Stated5U`b7cLabel11 Phoned5U7` bcLabel15AddressDetachedLabel` Detailm7U;bcefStay stayIDm 7U`bcefk Guestnamem 7U;`bcefkArrivalarrivaldd/mm/yym 07U;`{bce fk Stateݔ=IIf([qstate] Is Null,"",Choose([qstate],"Book","Ch.in","Ch.out","Canc.")) Fixedm 07U;`b0cefkRoom rooms Fixedm 7U;`becefk Phone phonem 7U` b ce3 fkAddressaddr`FormFooterͬ fXi9KFormHeaderd stay__Labelstay# Labeld name_Labelname Labeld Label6d Label7d Label8d Label11d Label15DetailFormFooterguestIDnameaddrroomsstayIDm Staym arrivalm GuestmAddressmphonem Roomm stateTypeInfoa14W`6~5CP !Blob h PropDataVX2=Babc|e gh%i jz:k0tblStayRooms.FirstOfdateՆA@tbl5K[StayRooms"[Event Procedure] Arial"[Event Procedure]d2e12bRcRf5bg237bchbcghMS Sans Serifi1ghj1ghk1bcl23:bc g[m4bg[n2cdh[o2ej[p5bcr35cd zbcijMS Sans Serif{5bcJ `FormHeaderd5U7`b=croom# LabelRoomDetachedLabelroom__Labeld5U7` bc#persons LabelPersonsDetachedLabel"Ctl_persons_Labeld5U7`,bcprice1 Label PriceDetachedLabelprice1_Labeld5U7`qbcLabel13FromDetachedLabeld5U7`b7cLabel14 NightsDetachedLabeld5U7`FbcLabel15 TotalDetachedLabelf23U5`Pbc Line20` Detailm457UC`bcetxtFirstOfDateFirstOfdatedd/mm/yym7U;` bceXktxtCountpersonCount"[Event Procedure]rIf a single person stays in a room with more beds, you may record "1" person. This gives the guest a discount. (As a default, the number of persons is the number of beds in the room.)m0457];C` b7ceuktxtPrice price Fixedm457UC`*bktxtCountOfdateCountOfdatem0457W;C`bcktxtTotal total Fixedm457U;C`bLektxtType=Format(![roomid],"00") & ", " & Choose(![roomType],"Double, bath","Single, bath","Double, toilet","Single, toilet","De luxe")f23U5`Pbc Line21`FormFooterͬ4Yi9KFormHeaderd room__Labelroom# Labeld Ctl_persons_Label#persons Labeld TypeInfoYBlobDelta15Ub\`6~5CJ/kBlob c price1_Labelprice1 Labeld Label13d Label14d Label15fLine20Detailm txtFirstOfDatem txtCountm txtPricem txtCountOfdatem txtTotalmtxtTypefLine21FormFooterFirstOfdateCountOfdateroomIDroomTypepersonCountpricetotalstayIDdefghijklmnoprz{ddddddfmmmmmmf2=Babc|e ghWi jkSeW^?@qryStayServices"[Event Procedure]"[Event Procedure]"[Event Procedure] Arial"[Event Procedure]d2e12bRcRf5bg237bchbcghMS Sans S6K[erifi1ghj1ghk1bcl23:bc g[m4bg[n2cdh[o2ej[p5bcr35cd zbcijMS Sans Serif{5bcJ `FormHeaderd5U7bcdate LabelDateDetachedLabeldate_Labeld5U7`Gbhcname LabelQty.DetachedLabelname_Labeld5U7`bccount LabelRoomDetachedLabelcount_Labeld5U7`bcprice Label PriceDetachedLabelprice_Labeld5U`FbcLabel17 Totald5U`bcLabel18Service` Detailm07U`GbceXktxtQuantityquantity Fixedm 0457];C`ibce ktxtPrice total Fixedm 0457W;C`.b7cevk price price Fixedm7U`ObTcktxtRoomID roomID6To help trace service notes=DFirst("roomid","tblroomstate","tblroomstate.stayid=forms!frmStay!stayID")tThe room number. For tracing in case of doubts. (Optional)o235U`abce3n@"";"";"";"";"";"$0.00";"10";"50"cboServiceIDserviceIDTable/Query߾SELECT tblServiceType.serviceID, tblServiceType.name, tblServiceType.price FROM tblServiceType;0;1134;5671*"SELECT tblServiceType.serviceID, tblServiceType.name, tblServiceType.price FROM tblServiceType;";"tblServiceType";"";"serviceID";"name";"PrimaryKey"o5U6E9b ef$"";"ddddd";"8";"8"cboDatedateTable/QueryqryCalendar567=fncsimdate()"[Event Procedure]"[Event Procedure]"[Event Procedure]The date the service was received. Format: day-month-year. Toggle date: Shift+Arrow up or Shift+Arrow downdd/mm/yy`FormFooterͬc7Qci9KFormHeaderd Date_Labeldate Labeld name_Labelname Labeld count_Labelcount Labeld price_Labelprice Labeld Label17d Label18Detailm txtPricem priceFormFooterquantityserviceIDtotalstayIDdateocboDatem PropData[]TypeInfo16``6~5CvBlob txtQuantityroomIDm txtRoomIDo cboServiceID02=Babcce ghsijO)k Fu@ Arial"[Event Procedure]d2hbcghMS Sans Serifm45bg[`m Detailm7U` abctxtSimDatedd/mm/yyd5U`qab0 c Label1HC7K[urrent date for simulation dd-mm-yyh1U` a6bciMakeCalendarMake calendar"[Event Procedure]d5U`qa6b0 c Label3݆To reset data tables, delete them and import from e.g. LargeMockup.ͬ՚sNi9KDetaild Label1h MakeCalendarmtxtSimDated Label3PropData_aTypeInfozDirData^cPropDataInitCalendar$fsubStayServicesfsubStayRoomsfsubStayList fsubRoomGrid2 fsubRoomGrid1 &fsubBreakfastList frmStay frmServiceListfrmRoomsfrmFindStay$frmBreakfastList AsciiTransform frmMessageRoom"frmMessageGuest 0CB0 1CB0 3CB0 4CB0 5CB0 6CB0 7CB0 8CB0 10CB0 11CB0 12CB0 13CB0 14CB0 15CB0 16CB0 Custom Popup 10!@b;Remember &this window positionb;Remember &all window positions-r:  InitCalendarOpen form 'InitCalendar'OCmdbarsk`6~5CP$0f`6~5C`6~5CBlob 1eih`6~5C`6~5Cpen form 'InitCalendar' InitCalendar Custom Popup 11?'k -r: Show &Breakfast listOpen form 'frmBreakfastList'Open form 'frmBreakfastList'frmBreakfastList b;&Print breakfast list=fncPrintBreakfBlob 2j`5C`5CBlob 3gol`5C`5CastList() Custom Popup 2@ -r: &Open service listOpen form 'InitCalendar'Open form 'InitCalendar' InitCalend8K[ar -r: &Print service listOpen form 'InitCalendar'Open form 'InitCalendar' InitCalen     !"$%&'()*+,-./012345679:;<=?@ABCDEGIJKLQTdar"-r:  &Add serviceOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar -r: &Delete serviceOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar -r:  &Undo deleteOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar Custom Popup 35? -r: &Open Find-guest screenOpen form 'frmFindStay' Open form frmFindStay a;&Delete room line=fncDelRoomLine() -:  &Cancel stayOpen form 'InitCalendar'=fncCanBlob  l4n`5C`5CBlob 5msp`5C`5CcelStay() -b: U&ndo check-inOpen form 'InitCalendar'=fncUndoCheckin() Custom Popup 7 ? -b: &Open Room-selection screenOpen form 'InitCalendar' Open formfrmRooms -r: &Repair in progressOpen form 'InitCalendar' -r: &Cancel repairOpen form 'InitCalendar'"-b: &Create hotel roomOpen form 'InitCalendar'=fncRoomManagement() InitCalendar -b: &Delete hotel roomOpen form 'InitCalendar'When a room ceases to exist=fncRoomManagement() -b:  &Undo deleteOpen form 'InitCalendar'=fncRoomManagement() Custom Popup 8 Y-r:  &Open roomsOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar-r: &Repair in progressOpen Blob #6r9K[`5C`5CBlob 8x7qut`5C`5Cform 'InitCalendar'Open form 'InitCalendar' InitCalendar-r: &Cancel repairOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar/p:macBeepRun macro 'macBeep'Run macro 'macBeep'macBeep-r:  &Add roomOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar-r:  &Delete roomOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar-r:  &Undo deleteOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar Custom Popup 9Z?k /: &Add lineRun macro 'macBeep'=fncAddServiceLine()macBeep /:DEL Delete lineRun macro 'macBeep'=fncDelServiceLine()macBeepD HotelSysU.Ev h&RoomsCustom Popup 7 hBlob >8wv`5C`5CBlob FpDirDataH&StaysCustom Popup 3 hService &linesCustom Popup 9 h&Breakfast listCustom Popup 11 hService &pricesCustom Popup 2 hToolsCustom Popup 10Test1:} h&RoomsCustom Popup 8"Custom Popup 10"Custom Popup 11 Custom Popup 2 Custom Popup 3 Custom Popup 7 Custom Popup 8 Custom Popup 9HotelSys TestmodCommonmodMenuesModules"{`5CP$0z`5C`5CPropDataM 1y}|`5C`5CPropData:K[N DirDataO4Reports`5C`5CScripts~`5CP$0`5C`5CBlob PMPropDataR 1`5C`5C{F3}AutoKeysmacBeepijBlob SHPropDataU DirDataV.PropDataWDatabases`5CP$0`5C`5CBlob DirDataXMSysDb '`dF `Like ('* *') '`kk `VORDER BY iif(qselStays.arrival is null, #1-1-2040#, qselStays.arrival), tblGuest.name;'` ` L!d"(hop fsubStayList !( !B@p !!r!G No guests match what you ask forA@jo@frmMessageGuest !( !B@p ` !!r)o !! fsubStayListG|jC& Another function has to!T$DYou must fill in at least the guest name and the first address line. A&|k ": KT   f%G|jK" Error message made: Select a room  @!B#You can only check guests in today. $8(Book instead or select a room from today A&|k !  f%G|jD" Error message made: Room not free !Z6You have not chosen a paymethod. Check with the guest. XA&;B  @ @ @ @ @ @ @ @ @ @ @ @ @ @     !"#$%&'()*+,-./0123 4!5"6#7$8%9&:';(<)=*>+?,@-A.B/C0D1E2F3G4H5I6J7K8L9M:N;O<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmS YNRRY YY: YD YDM YM:Id LValueObjectGuidObjectNameProperty ValueD:MD:MDRSM:D:MD:MDRTM:D:MD:MDRUM:DYYYId$ObjectGuidProperty$ObjectNamePropertyRHv1b  Q Q QY NWW Y  YGrptbcd TbNamePW[YTbIndexWWv1LVALl || Test1:} h&RoomsCustom Popup 8 Custom Popup 7 ? -b: &Open Room-selection screenOpen form 'InitCalendar' Open formfrmRooms -r: &Repair in progressOpen form 'InitCalendar' -r: &Cancel repairOpen form 'InitCalendar'"-b: &Create hotel roomOpen form 'InitCalendar'=fncRoomManagement() InitCalendar -b: &Delete hotel roomOpen form 'InitCalendar'When a room ceases to exist=fncRoomManagement() -b:  &Undo deleteOpen form 'InitCalendar'=fncRoomManagement() Custom Popup 35? -r: &Open Find-guest screenOpen form 'frmFindStay' Open form frmFindStay a;&Delete room line=fncDelRoomLine() -:  &Cancel stayOpen form 'InitCalendar'=fncCancelStay() -b: U&ndo check-inOpen form 'InitCalendar'=fncUndoCheckin() Custom Popup 2@ -r: &Open service listOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar -r: &Print service listOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar"-r:  &Add serviceOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar -r: &Delete serviceOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar -r:  &Undo deleteOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar Custom Popup 11?'k -r: Show &Breakfast listOpen form 'frmBreakfastList'Open form 'frmBreakfastList'frmBreakfastList b;&Print breakfast list=fncPrintBreakfastList() Custom Popup 10!@b;Remember &this window positionb;Remember &all window positions-r:  InitCalendarOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendarV b;p@XTest@ZHotelSysx@ZCustom Popup 9@ZCustom Popup 8@XCustom Popup 7l@XCustom Popup 3@XCustom Popup 2@XCustom Popup 11@XCustom Popup 10LVAL p HotelSysU.Ev h&RoomsCustom Popup 7 h&StaysCustom Popup 3 hService &linesCustom Popup 9 h&Breakfast listCustom Popup 11 hService &pricesCustom Popup 2 hToolsCustom Popup 10 Custom Popup 9Z?k /: &Add lineRun macro 'macBeep'=fncAddServiceLine()macBeep /:DEL Delete lineRun macro 'macBeep'=fncDelServiceLine()macBeepD  Custom Popup 8 Y-r:  &Open roomsOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar-r: &Repair in progressOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar-r: &Cancel repairOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar/p:macBeepRun macro 'macBeep'Run macro 'macBeep'macBeep-r:  &Add roomOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar-r:  &Delete roomOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendar-r:  &Undo deleteOpen form 'InitCalendar'Open form 'InitCalendar' InitCalendarq V@@ Mokmd`fdfof86YMokmd`fdfof88YMokmd`fdfof:YMokmd`fdfof<YMokmd`fdfofDYMokmd`fdfofFYMokmd`fdfofHYWdmQ^kvkYmQkmYmr.nP ͘͘͘͘͘͘͘͘z \ > l  t V 8  U i 3 EQP y5Z i³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³,tblCalendar''' ,,qselRooms### ,tblCalendar.date/ g,tblCalendar.date/ g,tblCalendar.date/ ,tblCalendar.date/ g,tblCalendar.date/ g,tblCalendar.date/ g1+ 1+ G0+l@ '0+tblRoomtblRoomStateH@C7 0+tblRoomState.stayID2 g0+totalj@' o0+tblRoomState.personCount7 g0+tblRoom.roomID- g0+tblRoomState.date0 g0+tblRoomState))) 0+tblRoom 0+ 0+ G/ +First(tblRoomState.date)7 '/ +j@ g/ +tblRoomState.stayID2 g/ +j@ g/ +tblRoomState.personCount7 g/ +tblRoom.type+ g/ +tblRoom.roomID- g/+tblRoomtblRoomStateH@C7 /+tblRoomState.stayID2 g/+total@ ' o/+pricej@ ' o/+tblRoomState.personCount7 g/+roomTypetblRoom.type;!! o/+tblRoom.roomID- g/+CountOfdateCount(tblRoomState.date)M'' o/+FirstOfdateFirst(tblRoomState.date)M'' o/+tblRoomState))) /+tblRoom /+ G/+ G/+ /+ G.+tblGuesttblStayD@ ;/! .+ tblStay.*( g.+ tblGuest.*) g.+tblStay .+tblGuest!!! .+ G.+ G.+ .+ G- +tblRoomState.roomID2 g- +tblRoomState.stayID2 g-+firstRoomDateMin(tblRoomState.date)O++ o-+tblRoomState.roomID2 g-+tblRoomState.stayID2 g-+tblRoomState))) -+ G-+ G-+ -+ G,+ ,+ G++X7YZ_____2N@ 1% 7++X7YZ_____1t@1% 7++ G+ + G++ ++ G* +tblCalendar.date/ '*+@ '*+showtblCalendar.date7 o*+tblCalendar.date/ g*+tblCalendar''' *+ GQ\Hy1 d o Q 3 33333333333333 ˻˻˝  = i K } S 5  a '4yID3 IDtblRoom.pr7lStblStay.state,7lStblStay.state,7lStblStay.state, g77lStblStay.state, g77lStblStay.state, g7lStblStay.state,7lStblStay.state, g7lStblStay.state, g77lStblStay.state, g7lStblStay.state, g7lS7lStblStay.state, g7lSr7lStblStay.state, g7lS7lStblStay.sta7lStblStay.state, g7lStblStay.state, 7lStblStay.state, g7lStblStay.sta7lStblStay.state7lStblStay.state, 7lStblStay.state, g7lStblStay.state, g77lStblStay.state, 7lStblStay.state, g7lStblStay.state, g7lStblStay.state, g7lSrooms@$7lStblStay.state, g7lSroom7lStblStay.state, g7lStblStay.state, g77lStblStay.state, 7lStblStay.state, g7lStblStay.state, g77lStblStay.state, g7lStblStay.state, 7lStblStay.state,7lStblStay.state, g7+ 7+ G6+@ '6+tblServiceReceived.quantity: g6+tblServiceReceived.roomID8 g6+tblServiceReceived555 6+ 6+ G5+@ '5+tblServiceReceived.quantity: g5+tblServiceReceived.roomID8 g5+tblServiceReceived555 5+ 5+ G4+ 4+ G3+ 3+ G2+ 2+ G1 +tblServicereceived.serviceID; '1 +tblServicereceived.date6 '1+tblServiceTypetblServicereceivedn@]Q- 1+tblServicereceived.stayID8 g1+total[price]*[quantity]; o1+tblServiceType.price3 g1+tblServicereceived.serviceID; g1+tblServicereceived.roomID8 g1+tblServicereceived.quantity: g1+tblServicereceived.date6 g1+tblServiceType--- 1+tblServicereceived555 1+ G1+ G#_ @ @ @ @ @ @ @ @ @ @ @ @ @           !!!!!!""""""# #"###!$$$&$'$%%(%*%+%)&,&.&/&-'0'2'3'4'5'6'7'8'9':' ;'1(<(>(?(@(A(B(C(D(E(F(G(H(I(=)J)L)M)N)O) P) Q)K*R*T*\*\*\*\*\* \*S+\+\+\ +\ +\ +\,\ ,,,,,,,,\,\,\ -\-\-\-\-\-\-\- \- \ -\.\!.\#.\$.\%.\&.\'.\(.\).\"/\*/\,/\-/\./\//\0/\1/\2/\3/\4/\5/\6/\7/\8/ \9/ \:/ \;/ \/ \?/\+0\@0\B0\C0\D0\E0\F0\G0\H0\I0\J0\A1\K1]1]1]1]1]1]1]1]1]1] 1] 1] 1 ] 1 ] 1\L2]2]2]2]2]2]2]2]2]2]2]2]2]2 ]2 ]2]3]3] 3]!3]"3]#3]$3]%3]&3]'3](3 ])3 ]*3 ]+3 ],3 ]-3]4].4]04]14]/\L^ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @,,,\ -\-\-\-\-\-\-\- \- \ -\.\!.\#.\$.\%.\&.\'.\(.\).\"/\*/\,/\-/\./\//\0/\1/\2/\3/\4/\5/\6/\7/\8/ \9/ \:/ \;/ \/ \?/\+0\@0\B0\C0\D0\E0\F0\G0\H0\I0\J0\A1\K1]1]1]1]1]1]1]1]1]1] 1] 1] 1 ] 1 ] 1\L2]2``2`a2`W2`X2`Y2`Z2`[2`\2`]2`^2`_2 `b2  2]3]3}3~3v3w3x3y3z3{3|3 3 3 3 3 3]4].4t4s4u4]/5]35]55]65]75]85]46]96];6]<6]=6]>6]:7]?7`U7`V77`N7`O7`P7`Q7`R7`S7`T7  7  7  7  7]@8`8` 8` 8` 8` 8`8`8`8`8`8`8`8`8`8`8 `8 `8 `8 `8 `8 `8 `8` 9`9`!9`"9`#9`$9`%9`&9`'9`(9`)9`*9 `+9 `,9` 9` mvTr2 N t 6 | >  n B  > d**********************************|HqCf4;gggggggggggggggggggg4v@a '44v@a3CountOfstate3CountOfstateCou3CountOfstate3CountOfstateCou3CountOfstateCount3CountOfstateC3CountOfstateCou3CountOfstateCou3CountOfstateCount(qselRoomState.state)Q)) o2 z@3 '2tblGuest!!! 2qselStays### 2qselStaystblGuestH@2?3# 2qstateqselStays.state: o2qselStays.rooms. g2qselStays.arrival0 g2tblGuest.phone- g2addrd@1% o2tblGuest.name, g2tblGuest.guestID/ g2qselStays.stayID/ g7tblStay 7tblGuest!!! 7tblGuesttblStayD@/;/! 7tblStayqryRoomsPerStayN@.I= 7tblStay.state, g7rooms@-' o7arrivalD@,+ o7tblStay.stayID- g7tblGuest.guestID/ g9 +tblStay.stayID- g9 +tblGuest.guestID/ g9+tblGuesttblStayD@a;/! 9+tblStayqryRoomsPerStayN@aI= 9+FirstOffirstRoomDateH@aE99 o9+tblStay.stayID- g9+tblGuest.guestID/ g9+qryRoomsPerStay/// 9+tblStay 9+tblGuest!!! 9+ G9+ G9+ 9+ G8 +H@a g8 +qryRoomGrid.price21 g8 +qryRoomGrid.price11 g8 +qryRoomGrid.bedCount3 g8 +qryRoomGrid.type/ g8 +qryRoomGrid.roomID1 g8 + @a g8+qryRoomGridtblRoomStateH@aK?' 8+qryRoomGridtblRoomStateP@aK?' 8+Expr2@a' o8+Expr1H@a' o8+qryRoomGrid.price21 g8+qryRoomGrid.price11 g8+qryRoomGrid.bedCount3 g8+qryRoomGrid.type/ g8+qryRoomGrid.roomID1 g8+Room @!% o8+tblRoomState))) 8+qryRoomGrid''' 8+ G8+ G8+ 8+ G, LVALZN  p , ,,,,,,,,,,,,,,̶ l tblRoom.roomID = qselRoomState.roomID((tblRoomState.date) Between #10-25-2002# and #10-26-2002#)tblGuest.guestID = tblStay.guestIDtblStay.stayID = qryRoomsPerStay.stayIDFirst(qryRoomsPerStay.firstRoomDate)Format([qryRoomGrid].[date],"dd-mm")(Format([qryRoomGrid].[roomID],'#') & ', ' & Choose([type],'Double, bath','Single, bath','Double, toilet','Single, toilet','De luxe'))qryRoomGrid.date = tblRoomState.dateqryRoomGrid.roomID = tblRoomState.roomIDFirst(IIf([tblRoomState].[state] Is Null,"",Choose([tblRoomState].[state],"BOO","IN","OUT","REP")))Format([qryRoomGrid].[date],"dd-mm")VYNccY  Yd Yd roomIDbreakfastAbreakfastBcecfYYPrimaryKey roomIDv1@ XbvXX 1XX XX  XX    b @ d d dddddd b @ d d dddddd"YNhhY date4hkYPrimaryKeyv18g|qf[PE:/$ti^SH=2' w l a V K @ 5 *   z o d Y N C 8 - "   } r g \ Q F ; 0 %    u j _ T I > 3 (    x m b W L A 6 +  {peZOD9.# ~sh]RG<1&vk`UJ?4)yncXMB7,! @i@ i@i@h@h@h@h@`h@@h@ h@h@g@g@g@g@`g@@g@ g@g@f@f@f@f@`f@@f@ f@f@e@e@e@e@`e@@e@ e@e@d@d@d@d@`d@@d@ d@d@c@c@c@c@`c@@c@ c@c@b@b@b@b@`b@@b@ b@b@a@a@a@a@`a@@a@ a@a@`@`@`@`@``@@`@ `@`@_@_@_@_@`_@@_@ _@_@^@^@^@^@`^@@^@ ^@^@]@]@]@]@`]@@]@ ]@]@\@\@\@\@`\@@\@ \@\@[@[@[@[@`[@@[@ [@[@Z@Z@Z@Z@`Z@@Z@ Z@Z@Y@Y@Y@Y@`Y@@Y@ Y@Y@X@X@X@X@`X@@X@ X@X@W@W@W@W@`W@@W@ W@W@V@V@V@V@`V@@V@ V@V@U@U@U@U@`U@@U@ U@U@T@T@T@T@`T@@T@ T@T@S@S@S@S@`S@@S@ S@S@R@R@R@R@`R@@R@ R@R@Q@Q@Q@Q@`Q@@Q@ Q@Q@P@P@P@P@`P@@P@ P@P@O@O@O@O@`O@@O@ O@O@N@N@N@N@`N@@N@ N@N@M@M@M@M@`M@@M@ M@M@L@L@L@L@`L@@L@ L@L@K@K@K@K@`K@@K@ K@K@J@J@J@J@`J@@J@ J@J@I@I@I@I@.g|qf[PE:/$ti^SH=2' w l a V K @ 5 *   z o d Y N C 8 - "   } r g \ Q F ; 0 %    u j _ T I > 3 (    x m b W L A 6 +  {peZOD9.# ~sh]RG<1&@@@`@@@ @@@@@@`@@@ @@@@@@`@@@ @@@@@@`@@@ @@@@@@`@@@ @@~@~@~@~@`~@@~@ ~@~@}@}@}@}@`}@@}@ }@}@|@|@|@|@`|@@|@ |@|@{@{@{@{@`{@@{@ {@{@z@z@z@z@`z@@z@ z@z@y@y@y@y@`y@@y@ y@y@x@x@x@x@`x@@x@ x@x@w@w@w@w@`w@@w@ w@w@v@v@v@v@`v@@v@ v@v@u@u@u@u@`u@@u@ u@u@t@t@t@t@`t@@t@ t@t@s@s@s@s@`s@@s@ s@s@r@r@r@r@`r@@r@ r@r@q@q@q@q@`q@@q@ q@q@p@p@p@p@`p@@p@ p@p@o@o@o@o@`o@@o@ o@o@n@n@n@n@`n@@n@ n@n@m@m@m@m@`m@@m@ m@m@l@l@l@l@`l@@l@ l@l@k@k@k@k@`k@@k@ k@k@j@j@j@j@`j@@j@ j@j@i@i@i@i@`i@gmvjiliIiIiJiJ iJ@iJ`iJiJi Ji Ji Ki K i K@iK`iKiKiKiKiLiL iL@iL`iLiLiLiLiMiM iM@iM`iMi Mi!Mi"Mi#Ni$N i%N@i&N`i'Ni(Ni)Ni*Ni+Oi,O i-O@i.O`i/Oi0Oi1Oi2Oi3Pi4P i5P@i6P`i7Pi8Pi9Pi:Pi;QiQ`i?Qi@QiAQiBQiCRiDR iER@iFR`iGRiHRiIRiJRiKSiLS iMS@iNS`iOSiPSiQSiRSiSTiTT iUT@iVT`iWTiXTiYTiZTi[Ui\U i]U@i^U`i_Ui`UiaUibUicVidV ieV@ifV`igVihViiVijVikWilW imW@inW`ioWipWiqWirWisXitX iuX@ivX`iwXixXiyXizXi{Yi|Y i}Y@i~Y`iYiYiYiYiZiZ iZ@iZ`iZiZiZiZi[i[ i[@i[`i[i[i[i[i\i\ i\@i\`i\i\i\i\i]i] i]@i]`i]i]i]i]i^i^ i^@i^`i^i^i^i^i_i_ i_@i_`i_i_i_i_i`i` i`@i``i`i`i`i`iaia ia@ia`iaiaiaiaibib ib@ib`ibibibibicic ic@ic`icicicicidid id@id`ididididieie ie@ie`ieieieieifif if@if`ififififigig ig@ig`igigigigihih ih@ih`ihihihihiiii ii@ii`jijijijijjjj jj@jj`jjj jj jj jj kj k jk@jk`jkjkjkjkjljl jl@jl`jljljljljmjm jm@jm`j mj!mj"mj#mj$nj%n j&n@j'n`j(nj)nj*nj+nj,oj-o j.o@j/o`j0oj1oj2oj3oj4pj5p j6p@j7p`j8pj9pj:pj;pjq@j?q`j@qjAqjBqjCqjDrjEr jFr@jGr`jHrjIrjJrjKrjLsjMs jNs@jOs`jPsjQsjRsjSsjTtjUt jVt@jWt`jXtjYtjZtj[tj\uj]u j^u@j_u`j`ujaujbujcujdvjev jfv@jgv`jhvjigm                                                                                           IiIiIiIiJiJ iJ@iJ`iJiJi Ji Ji Ki K i K@iK`iKiKiKiKiLiL iL@iL`iLiLiLiLiMiM iM@iM`iMi Mi!Mi"Mi#Ni$N i%N@i&N`i'Ni(Ni)Ni*Ni+Oi,O i-O@i.O`i/Oi0Oi1Oi2Oi3Pi4P i5P@i6P`i7Pi8Pi9Pi:Pi;QiQ`i?Qi@QiAQiBQiCRiDR iER@iFR`iGRiHRiIRiJRiKSiLS iMS@iNS`iOSiPSiQSiRSiSTiTT iUT@iVT`iWTiXTiYTiZTi[Ui\U i]U@i^U`i_Ui`UiaUibUicVidV ieV@ifV`igVihViiVijVikWilW imW@inW`ioWipWiqWirWisXitX iuX@ivX`iwXixXiyXizXi{Yi|Y i}Y@i~Y`iYiYiYiYiZiZ iZ@iZ`iZiZiZiZi[i[ i[@i[`i[i[i[i[i\i\ i\@i\`i\i\i\i\i]i] i]@i]`i]i]i]i]i^i^ i^@i^`i^i^i^i^i_i_ i_@i_`i_i_i_i_i`i` i`@i``i`i`i`i`iaia ia@ia`iaiaiaiaibib ib@ib`ibibibibicic ic@ic`icicicicidid id@id`ididididieie ie@ie`ieieieieifif if@if`ififififigig ig@ig`igigigigihih ih@ih`ihihihihiiii ii@ii`jijijijijjjj jj@jj`jjj jj jj jj kj k jk@jk`jkjkjkjkjljl jl@jl`jljljljljmjm jm@jm`j mj!mj"mj#mj$nj%n j&n@j'n`j(nj)nj*nj+nj,oj-o j.o@j/o`j0oj1oj2oj3oj4pj5p j6p@j7p`j8pj9pj:pj;pjq@j?q`j@qjAqjBqjCqjDrjEr jFr@jGr`jHrjIrjJrjKrjLsjMs jNs@jOs`jPsjQsjRsjSsjTtjUt jVt@jWt`jXtjYtjZtj[tj\uj]u j^u@j_u`j`ujaujbujcujdvjev jfv@jgv`jhvjigl @ @ @ @ @ @ @ @ @ @ @ @ @ vjjvjkvjlwjmw jnw@jow`jpwjqwjrwjswjtxjux jvx@jwx`jxxjyxjzxj{xj|yj}y j~y@jy`jyjyjyjyjzjz jz@jz`jzjzjzjzj{j{ j{@j{`j{j{j{j{j|j| j|@j|`j|j|j|j|j}j} j}@j}`j}j}j}j}j~j~ j~@j~`j~j~j~j~jj j@j`jjjjjj j@j`j j†jjjj j@j`j⁀j⁠jjjj j@j`j₀j₠jjjj j@j`j⃀j⃠jjYSTj:jNooSSY  YRd Yd YUd Yd Ytd Y2(guestIDnameaddress1address2address3 phonepassportrc&nosusYY.rBPrimaryKeyv11n(+c : }  [ @ s B"c2q ?zN)Ann Pannell310 Upton RoadPrahran, Vic 3181Australia03 9121 4161OOA6#?(Ib Ouretski25 The AvenuePrahran, Vic 3181Australia03 9087 6010NN@5"?'Kim Omdahl101 Wellington Crs.East Melbourne, Vic 3002Australia03 9739 9933ZZLA'?&B. O'Bryan410 Haines StreetHawthorn, Vic 3122Australia7763 4589OOD9%?%Tod O'Brien85 Fitzroy RoadSt. Kilda, Vic 3182Australien7744 3366PPE9$?$Wayna O'Brien2 Main RoadMonbulk, Vic 3793Australia7756 2019KK@5"?#K. Nordstrom33 Dandenong RoadMalvern East, Vic 3148Australia03 9256 1102XXJ?'?"Tony Nguyen320 Windsor Ave.Springvale, Vic 3171Australia03 9333 1019TTF;%?!Bent Nelson3 Holden StreetFitzroy North, Vic 3068Australia03 9144 5434VVH=$? Anne Nelson18 Bradley DriveMiddle Park, Vic 3206Australia03 9344 9077UUG<%?Z. Nachar40 Darren Roadoble Park, Vic 3174Australia9977 1133LLA6!?Betty Muller530 St. Kilda RoadSt. Kilda, Vic 3182Australia9433 2561SSH=(?Dan Morrison21 Agnes LaneMont Albert North, Vic 3129Austalia03 8070 3529XXJ@#?K. Montgomery1 Brighton RoadSandingham, Vic 3191Australia03 9123 6699UUG<&?Norma Mitchell200 Westley AveBrighton, Vic 3186Australia9304 5599QQF;'?G. Mill101 Victoria RoadNorthcote, Vic 3070Australia8481 8171MMB7"?Frede Merrills30 Elm Ave.Elsternwick, Vic 3185Australia9122 3754PPE:#?Tove Meehan2 York StreetRichmond, Vic 3121Australia8422 1140LLA6"?Frode Mati38 Irvine CrsBrunckswick West, Vic 3055Australia03 8665 4122VVH=!?Leo Marshall19 Champ LaneCoburg, Vic 3058Australia9122 8567KK@5#?Anne Manix203 Canterbury RoadSt. Kilda, Vic 3182Australia9292 5555RRG<'?Arnold Mahajan409 Lamont CrtWantima South, Vic 3152Australia9087 2888UUJ?&?Terje McMahon111 Patricia StreetOakleigh, Vic 3166Australia03 8569 0943WWI>*?Steve McKay48 Bolan StreetGlen Waverly, Vic 3150Australia03 8807 3060UUG<$?Ida McDonald59 Atkinson LaneTemplestove, Vic 3106Australia03 9040 2005VVH=&?Jens McBride48 Langton RoadGlenferri, Vic 3122rAustralia8306 3053QQF;%?Lars Lu20 Ellen StretSpringvale , Vic 3171Australia9125 7652LLA6?Sean Lochrie70 Blyth RoadAltona, Vic 3018Australia9087 8540KK@5#? Arne Liki31 Widdop CrsMoorabbin, Vic 3189Australia9757 5131KK@5 ? Jean Leon25 Melbourne StreetMurrumbeena, Vic 3163Australia03 8305 3560VVH=&? Rom Lacey50 Harold RoadSydenham, Vic 3037Australia03 9090 8710NN@5!? Ann Le204 Bridge RoadRichmond, Vict 3121Australia9842 7196JJ?4?Ahmet Issom80 Erskine RoadEmerald, Vict 3785Australia03 6767 3390QQC8$?R. A. Haynes12 Highland CourtDandenong, Victoria 3175Australia3455 8004WWLA'?Andrew Bunting50 Buffalo DriveLalor, Vict 3075Australia(03) 1533 1217UUE:(?Yun ChenKirschgasse 790482 NurnbergGermany+49 970 716 9450JJ8/?Niels BieheBorups Alle 342200 Copenhagen NDenmarkA104220 311L??6#_Ole BrondumDyssegaardsvej 122900 HellerupDenmark+45 1244 2800A305220 102ZM>5&Lise B. HansenNordtoftevej 122860 SoeborgDenmark+45 3956 1712A102103 512ZM>5'John Simpson55 Westbank TceRichmond, Victoria 3121Australia(03) 9421 3700YYI>%?In)<  c 8 x  W D 2(Y1k E&e RN. Sorensen30 Albion RoadBox Hill, Vic 3128Australia03 9355 7711PPB7#?QY. Su109 Faelen RoadBurwood, Vic 3125Australia03 8787 1405JJ<1 ?PMia Spokes130 Woods AvenueMordialloc, Vic 3195Australia03 8171 0303SSE:$?OLotte Soo5 Cooper StreetEssendon, Vic 3040Australia9816 0601LLA6"?NPeder Schmidt4 Pitt RoadRingwood, Vic 3134Australia9714 3021LLA6"?MK. Smith360 Erasmus RoadSyydenham, Vic 3037Australia8122 8009MMB7"?LHanne Skidmore79 Stanley StreetBrighton, Vic 3186Australia9507 2233SSH=)?KT. Siketa305 Altona RoadKensington, Vic 3031Australia03 8310 0203QQC8"?JErik Shearer35 Glass StreetKew East, Vic 3102Australia03 9218 1766RRD9%?ITom Selivanov6 Lincoln RoadRichmond, Vic. 3121Australia9320 8131PPE:%?HDan Schroeter111 Yvonne RoadDandenong, Vic 3175Australia03 9607 0806TTF;&?GW. Saunders1 St. Kilda RoadMelbourne, Vic 3000Australia9181 5531PPE:%?FErik Salomon102 Rosamond Crs.Doncaster East, Vic 3109Australia9595 8888WWLA'?ELiz Salomann132 Towerhill RoadGlen Iris, Vic 3146Australia8644 1415SSH=(?DR. Rutter1 Ormond RoadElwood, Vic 3184Australia03 9730 7714KK=2 ?CJon Rothfild80 Tootonga RoadMalvern East, Vic 3148Australia03 9468 1213WWI>&?BC. Rodesta303 Buckingham Drv.Heidelberg, Vic 3084Australia03 9347 5612VVH='?AM. LarsenBanebrinken 2002400 Copenhagen NVDenmark2547 6081JJ?6"?@C. AndersenHothersvej 552200 Copenhagen NDenmark3144 9087II>5"??Jan MoldeGladsaxegade 202860 SoeborgDenmark2070 4467DD90"?>Ib ThorningHaandvaerkerhaven 12400 Copenhagen NVDenmark3217 5544PPE<(?=Lars HansenLaesoe All 3167500 HolstebroDenmark7120 2731HH=4$?<Rene RathjePetuniagade 273390 HundestedDenmark2940 3709GG<3#?;B. KristensenKjeld Abellsgade 257100 VejleDenmark7070 7530JJ?6*?:Bent KristensenFolehavevej 553400 HillerodDenmark4637 1805JJ?6'?9R. DreckmannPaa Bjerget 572400 Copenhagen NVDenmark3755 3210LLA8$?8Bo SorensenHedehusvej 102B2640 HedehuseneDenmark4650 8542II>5$?7Louis Robertson90 Percy StreetMontmoreney, Vic 3094Australia9787 9010UUJ?(?6Jane Rice10 Frank StreetFrankston, Vic 3199Australia03 9318 3041PPB7"?5Dan Reeve2 Malvern RoadSyndal, Vic 3149Australia03 9151 3577LL>3!?4Susan Randl102 Albion Crs.Gemsbrook, Vic 3783Australia03 9135 8265RRD9$?3M. Quarg110 Hillingdon PlacePrahran, Vic 3181Australia9805 0816OOD9&?2Meg Power760 Edinburgh StreetRichmond, Vic 3121Austalia03 8122 4977SSE;'?1Thomas Powell10 Burke RoadHawthorn East, Vic 3123Australia03 9686 3676VVH=$?0Per Plumb110 Devoy LaneOakleigh, Vic 3166Australia9373 9390KK@5!?/P. Phung888 Hammond RoadDandenong, Vic 3175Australia03 8307 9493PPB7"?.Carl Pedersen4 Queens LaneAltona, Vic 3018Austalia03 9436 7805NN@6$?-Karl Petersen440 Queens StreetAltona, Vic 3018Australia9488 0605PPE:(?,Jean Petch23 The GroveCoburg, Vic 3058Australia03 9699 1117KK=2 ?+Vic. Pearson200 Hunter RoadRichmond, Vic 3121Australia9422 8182OOD9%?*Mie Pascoe120 Burbank AvenueTullamarine, Vic 3043Australia9807 3301SSH=&?.n@TA. Sykes87 Bayswater StreetCroydon, Vic 3136Australia9805 5500NNC8%?SJan Sorensen1 Westbank Trc.Richmond, Vic. 3121Australia9341 2201PPE:%?5 n @ @ @ @ @ @ @ @ @ @pppppppp p p  p  p p p pppppppppppppppp p!p"p #p!$p"%p#&p$'p%(p&)p'*q+q,q-q.q/q0q1q2q3q 4q 5q 6q 7q 8q9q:q;q<q=q>q?q@qAqBqCqDqEqFqGqHqIqJq Kq!Lq"Mq#Nq$Oq%Pq&Qq'Rq(SrTr^YNuuY Y Y Y Y   roomIDbedCounttype price1 price2jtmPuwrtYxY.rBPrimaryKeyv1@@ZtxCBCBpB\:BpBBB B\: B\: BB t@  v v vvvvvv xY"Nyy""" "Y Y Y Y Y  stayID roomIDdatepersonCount state y{y|yYYYtPrimaryKeyRoomStatestay#&tblRoomtblRoomStatev1 x"v_H1ybK4 | e N 7  V@V@V@@V@ V@U@U@V@`V@V@U@@V@ V@V@@V@ V@V@ V@ V@ V@ U@ V@ V@ V@ V@ V@ U@ U@ V@ V@ V@ U@ `M@ @M@ x M@z M`z Uz Vz V z Vz Uz Uz Vz V z  Vz  Vz  Vz  Uz  Vz Vz VzVzV zV@zVzV zV@zUzVzV`zVzUzUzV zV@zVzVz V z! x @ @ @ @z zzzzzzzzzzzzzz zzzzzzzzzzz!zz z z zzzz  "YN~~Y Y Y Y  Y  stayID roomIDserviceIDdatequantity11~111~111~1YYYYYL{CDD1965B-66CA-11D6-8769-000086394B13}serviceIDServicestay# stayID@tblServiceTypetblServiceReceivedv1}