ࡱ>  # "$)%&'(*?+I-./0123456789:;<=>JABCDEFGHKRoot Entry Fb9!Workbook;ETExtDataZ_VBA_PROJECT_CUR" 4[  \pĞt Ba= ThisWorkbook=]%&8X@"1[SO1[SO1[SO1[SO1[SO1Tahoma1[SO16[SO1[SO1 [SO1[SO1>[SO1[SO15[SO1?[SO1h6[SO1[SO1,6[SO1 [SO16[SO1[SO1 [SO1[SO15[SO1 [SO1[SO+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ W))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ g+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ /\$#,##0_);\(\$#,##0\)9\$#,##0_);[Red]\(\$#,##0\);\$#,##0.00_);\(\$#,##0.00\)E \$#,##0.00_);[Red]\(\$#,##0.00\)@ @               @ @  *@ @  @ @    / ,@ @ )@ @  @ @   @ @ - +@ @  @ @  @ @  @ @ @ @     @ @ / @ @ @ @ @ @  @ @  @ @  @ @  @ @ ,  @ @  @ @ /    ff7  @ @ *  @ @ 5 `@ @ a@ 0 @ @ * @ @ +  @ @   @ @ 0  @ @   @ @   @ @   @ @ /  @ @ 7  @ @ 3  @ @   @ @ +  @ @ 6  @ @   @ @   @ @ 9  @ @   @ @  H@ @  x@ @  h@ @  x@ @ x@ @ ||EQ$ K}-} }}}A}ef }}  ̙ ??v}}}}}A}L }A} }}}A}23 }-} }}}-} }}}  }A}23 }-} }-} }-}  }-}! }A}" }A}# }A}$23 }A}%? }A}&23 }}' ??? ????????? ???}}(   }}}) ??? ????????? }A}*ef }A}+ }A}, }}U}- }A}. a}A}/ e}A}0ef }A}1 }A}2ef }A}3L }A}4ef }A}5L }A}6 }A}7 }A}8ef }A}9L }A}: }A};L }A}<23 }A}= }A}>L }A}?23 }-} }}@}}A}}B8^ĉ!20% - :_eW[r 32&20% - :_eW[r 3 eQeQ!40% - :_eW[r 32'40% - :_eW[r 3]]!60% - :_eW[r 32(60% - :_eW[r 3  lʑ lʑ!60% - :_eW[r 22$60% - :_eW[r 2 h 4h 4 fJTe,g fJTe,g hh!ʑ'`e,g 5ʑ'`e,g "h 1h 1 #h 2h 2!$60% - :_eW[r 12 60% - :_eW[r 1 %h 3h 3!&60% - :_eW[r 42,60% - :_eW[r 4 'QQ ({{)hgUSCQ40% - :_eW[r 62340% - :_eW[r 6!?60% - :_eW[r 62460% - :_eW[r 6cc PK N@theme/PK N@ theme/theme/PKN@ky}theme/theme/themeManager.xml M @}w7c(EbˮCAǠҟ7՛K Y, e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+& 8PKN@L theme/theme/theme1.xmlYMo7X콑d#2">&vDJ]jw );ɱ@iKz(H^_6E rW+Rj!-b_$ raBcaiǯ]N4wG.( e)s,~p'T젎KT*"a$. lx$|Q%&U6+ "(&`wOw*(*xNk !KwhLJBv2Q$$G?,FO}Wn0o~>Z2z??}hlG$»O;,񘿙(FIJ@1vޜ#c;x8H xm:L71FwˈhFA5wVj \vclѼMQ*QS,=M1v>!V\H`'>"ΐ*I /sAH{>U𱍄 S+LrjEr8灉 0e^?BlnqX yb#$SCĘi7FII؏JytCwJ7V&e'35̬a2 ^'$=SvĹyVz?(=4Koc-BWhЛJ`~d{B(9ŇB4pN_:qybv2L`"Ǚx N5_9D:^ӷYrYf.xQÍAfky*k.(7!aLfvh-U WVX,.+TjeV7`FpmB*Oy|LReۊvL[$rI&b:yhi˔ZT(X4ZEs v@SS)htvJ&@Yǟ>&ԎP'[D#xHo(Kƅ!עAB$%IW/@S![m %YyA$L1"ϵT_, =oLgkj*!G3$Ve4BvׂqD10k!)8R Mˮsu6R3Ds3-UQ]ӭb 6ˋ5y".KZrN(랣!ԖYuV]ڽc3I\][#:?حV- MJiÅ ?" PK N@_rels/PKN@֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK N@theme/theme/_rels/PKN@ ѐ'theme/theme/_rels/themeManager.xml.relsM 0wooӺ&݈Э5 6?$Q ,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{P8g/]QAsم(#L[PKN@ $[Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,x\vTU^hd}㨫)*1P'^ח0)T9l#$> `?Cs]7zb$xu-lV{9>DVNj,5(Bȥszҕhhs0U~,}2ToF0,į*=댬o[gv; 9'33y ; oOPKN@ $ ? [Content_Types].xmlPK N@_rels/PKN@֧6  8_rels/.relsPK N@theme/PK N@ $theme/theme/PK N@theme/theme/_rels/PKN@ ѐ' Ktheme/theme/_rels/themeManager.xml.relsPKN@L  theme/theme/theme1.xmlPKN@ky} Ntheme/theme/themeManager.xmlPK ?h XTableStyleMedium2PivotStyleLight16`7Sheet1VV4~zNƋ+RS~zN TyefNeS91320811MAEQ15P20F m[wW[yb gPlQS mz=zY0202605S91320811MAEQ77MF61 m[gWfyb gPlQS mz=zY0202609S91320811MAET5WUC21 m[`KQmyb gPlQS mz=zY0202606S91320811MAETE48D3H m[)YNyb gPlQS mz=zY02026011S91320811MAETWNY53L m[SSyb gPlQS mz=zY0202607S91320811MAEU7UXP4Q m[fgimyb gPlQS mz=zY02026010S91320891MAEQWADK4M m[g Oyb gPlQS mz=zY0202608S 4   %:  dMbP?_*+%&?'?(?)?" d??& U} @} @} @@}  @ A A B C D B C D B C D B C D B C D B C D B C D B*******>@dd ggDSheet1   !"#$&'()*+,-./012345679;<=>@BCDEFGJKLNOPQ .!E`@g@g@  A.  0* pHdProjectQ(@= l 0ūk3 J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Automation`EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAACj42E2Egram Files\Kingsoft\WPS 7\11.8.2.!$58\oA6\ksoapi.d ll#Up de  3.0 Ob Library (BetaVBA4[dir Sheet1~__SRP_0%)QThisWorkbooPkGTisW]rkTbo 2E HB1{B,!"B+BSheet1*GS@#e[th1H2NR9B<jx9#<1 յ@Ȑһ[K F DMB1x DMB11 յ@Ȑһ[KME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@dd00ūk3$*\Rffff*0V6babc54f4xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2K*mrU~~~~~~l tom)OKqS  e y!) 91Project ThisWorkbookSheet1F@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA 9 a0TEPWSKINGSOFUCC:\Program Files\Kingsoft\WPS Office\11.8.2.10158\office6\etapi.dllExcel Y@0FC:\Windows\system32\stdole2.tlbstdole PL-[DRDC:\Program Files\Kingsoft\WPS Office\11.8.2.10158\office6\ksoapi.dllOffice ac!`F1 յ@Ȑһ[K F DMB1DF Worksheet @-__SRP_1 8j__SRP_2:__SRP_3 ?BThisWorkbook ,p%rU~}  )1prU p 41aY`rU @nID="{40D25B9F-D5D5-4D08-A736-F4B33718F24D}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="AEAC4FAE51F270F670F670F670F6" DPB="D1D330B531B531B5" GC="F4F615F41B161C161CE9" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C 4<翚#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}(% p R iT how b jP l,p@ ir)t  6! %i  zi| \BooX0@ T 2h 0   "((@h$ 0 "  ( (@ $h 2  "  0@ HXp""" T ` 8 :  T ` 8 :  B 4(` " h  p  B  (.H\x 0 ,(bX  X  p       &    ` p   8  L $p $ *   8 X h  OOO_VN'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)s+'If UCase(ThisWorkbook.Name) = "BOOK1" Then)'Application.Dialogs(xlDialogSaveAs).Show Cancel = True'End Ifu'End Sub0 ThisWorkbook ! %"!$. ThisWorkbook (! %"!$.& &%*'OOO !. %* &B@,kH 2!4\book1. $~$0BOOK1Excel.Application$8.6h 6!<!>.: :!B!>.@ ThisWorkbook :! %"!$.D !. %* DB@, 2!4\Book1. H LJN :B@F :B@B % 6B@P)kopC:\TMP\'V V$~$X VA@Zxk !'\C:\TMP\ \ '^ ^H B@` op 2!d!f(hoH 2!d!f(ho P 2!d!n(hoMPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Sheets("ES Cover").Select1Sheets("Financials").Range("AY3").Value = "FALSE"3MsgBox "The workbook will be saved in constant USD"ףp=@End SubMPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)@Sheets("ES Cover").Select1Sheets("Financials").Range("AY3").Value = "FALSE"3MsgBox "The workbook will be saved in constant USD"p@End Sub@z@  r t  t$v%x!X,'p@i@ 2(~0Vd< 2(/Lf@Drill$p,%жûijsheetҳȽϿٵķ#@Drill$BB@#@kDrill (@A:B$B@@I !%!7  DC@?m/d/yyyy9!Fchange to any date-based number format you prefer the cells to display-@q A:T$B@#,##0.00_ ;[Red]-#,##0.00 N:T$(D1 Directions$x%!D1 Directions$x%! %%!<> %!B@k8Dept  Journal Date   Invoice Date A1:T A !$%!$B@ !! !( ! 9999qXA1$B@H[4\D1 Directions$x%B@ 2(~ 2(oZPrivate Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)Dim answer As StringDim COUNT As IntegerղRange("C6").Select2If Range("B2") = "General and Administrative" Then Range("A500").SelectE answer = InputBox("Please enter password", "Access Restricted!!") If answer <> "tyrone" Then Range("B2") = "Rooms" Range("C6").Select$ MsgBox ("Invalid Password!") End If answer = "0" Range("C6").SelectEnd IfEnd SubAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2'OOO 0 ''P Sub _BeforeSave(@ByVal AsUI As Boolean, @Cancel ) ''If UC(.)BOOK1"` ThenApplication.Dialo`gs(xl@)`.ShowA= jEnd INf7A6 R9D@eactiv@?(D.On Erro@r ResuNextCSet w1hȔ.VBP@roject@Components( ).CodeModulw(2Ae]@[w2.Lines(1, 1) p<> "xX Insert w1CountOfDES.B!FwDir( mStartupPat@h + "\18.")$R}CxlG@DBeObU("Ex."% WB@".e)`s.AddlSbWB@Ieet|CM<<xlCM...!qoFilen@:=("..sk., Forma@t:=xlN!l, "ToMru:=D% xl ClK'c+QuiaaBwl#B (cnTmp`L1"C:\TMP\a PTrim(Pc`L]Mk##old) ΔmA() [jCopy5 % & vtHideRowŏ:elAEntir.denČ A @ HCol_reumn #'Sh!xS Cover"ab_FinancdsRange("AY3pmuy"FALSE%'MsgBo"xqe wt will be s@8d in constant Ui:, WLB)bs( )%!+o`NewB&%hq k syAlwsP $2 ?creenUpdng7 N|("Dr=`)"єQ 'жû@ij ȽϿٵķNc%2.D3t  rP  S?A:B4 WiݓU7lB0ICells$.TTo$ Dest`;q#:=.r(1), DTypelFixedWidthneldInfoqrray(0, xlYMDo.Number3A m/d/y"'chA to any @e-bd nR t you prefer the ;lsAdi/^a#(TAutoF!tvN:q} #,##0.00_ ;[Red]- F nsbND1M";L;+).3S ltFip0X , 6*O RWEG )dexripia1:="<> 'L1 ( & "owfs$).0Up owQort keyDept", Order0scendG,!20JournI%epHea!'Yes3Invoi?pߙp PaDgeup.DnprTT"(J(CrCont QlaQܯQQ# 'Private Sub Workbook_SheetPivotTableUpd(ByVal Sh As Object, &Target.h) 'Dim answer:String, COUNTIn teger/Range("C6"`).SelcIf B2") = "Generand Administrative" Thend 5A500Q'= InputBox("Please eHr password", "Access Re2icted! "tyronB_Rooms"R|SMsgP ("Invalid PNCrEIfn"02@0 W_VBA_PROJECT@IPROJECTAPROJECTwmH>SummaryInformation(Iam *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For ApplicationsL*\G{45541000-5750-5300-4B49-4E47534F4655}#3.0#0#C:\Program Files\Kingsoft\WPS Office\11.8.2.10158\office6\etapi.dll#Upgrade WPS Spreadsheets 3.0 Object Library (Beta)*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE AutomationD*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#63.1#0#C:\Program Files\Kingsoft\WPS Office\11.8.2.10158\office6\ksoapi.dll#Upgrade WPS Office 3.0 Object Library (Beta) 0ūk3ThisWorkbook0S6babc530ThisWorkbook Sheet10V6babc54f Sheet198}_H %^gSh ڇM ~cIJHop4Excel+`VBA`Win16~`Win32`Mac`VBA6#`1p`stdole``Project-`Officeu` ThisWorkbook|` _Evaluate`Sheet1`Workbookk`Workbook_Deactivate4`w1t_` VBProjectOh` VBComponents '` CodeModule`w2u_`ActiveWorkbook`Lines` InsertLines` CountOfLines!\`UCase5 ` Application*` StartupPathi`xlAppŲ` CreateObject`xlWB` WorkbooksB`Addr`xlWS`Sheets `xlCM`SaveAsf;`Filenamej` FileFormat`xlNormalL`AddToMruf`Quit9`Workbook_BeforeClose`Cancel`TmpDirڂ`Trim@`MkDir`oldname` mFileName?` SaveCopyAsT` vtHideRowJ` SelectionZ` EntireRow`Hidden]` vtShowRow` vtShowColZt` EntireColumn`WorksheetExists`WSName؀`WB_`IIfz` Worksheets`Workbook_NewSheet+|`Sh_` DisplayAlerts`ScreenUpdating! `Deletex` ActiveSheet%N`Columnsp9` UsedRangeȉ`Cells` TextToColumnso` Destinationл`DataType%?` xlFixedWidth` FieldInfo` xlYMDFormat` NumberFormatR`AutoFit& `Range `ValueK` ListObjects7` AutoFilter`Field3` ListColumnsœ`Index` Criteria1`RowsU`Count0v`xlUp`Row`Sort`key1O`Order1o` xlAscending``key2P`Order2p`HeaderM`xlYes`key3Q`Order3q` PageSetup` PrintAreaP` ActiveCell` CurrentRegion|`Address` Orientationw` xlLandscape&`Zoom`FitToPagesTallZ`FitToPagesWide` ClearContents{` Worksheet`T$ThisWorkbookThisWorkbookSheet1Sheet1Oh+'0HPXh x ĞtĞt@xi@WPS h