ࡱ> "o!CompObjpi10*$ n``Pq|Pq|f  ClientLeft = 45 ClientTop = 435 ClientWidth = 4710 StartUpPosition = 1 'CenterOwner TypeInfoVer = 31 End ()*+,-./0(H  @}t R KQDBTahoma824lblSelect { @Tahomaon(OK"OuTahomaon(CancelonOuTahomaon` - `\pUIS Ba= ThisWorkbook=x<L;$8@"1mArial1mArial1mArial1mArial1*m MS Sans Serif1*m MS Sans Serif1mArial1 mArial1$mArial1mArial1mArial1&m Arial Greek12 mBookman Old Style1mArial1h mArial1mArial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_) "$"#,##0.00 mm/dd/yyyymmmm\ d\,\ yyyy"Yes";"Yes";"No""True";"True";"False""On";"On";"Off" 00000000000 00000 0000 000000 0.000000% 0.000                + ) , *    !   "    (P  H+  1* *P)  "\  *X  "\+ "  x@@   x@   x @   " *X   `@ @  "t@ @  "p@ @  !p@ @  "t@ @  "t@ @  "t@ @  "t@ @  "t@ @  !4  !4 ! *@ @ ) *@ @ ) *@ @ ) *@ @ ) *@ @ ) *@ @ ) *@ @ ) "4@ @ #t@ @  *p@ @ ) *t@ @ ) *t@ @ ) *@ @ ) *@ @ ) *@ @ ) *@ @ ) *@ @ ) *@ @ ) *p@ @  !t !| "@ @ "@ @ "@ @ "@ @ "@ @ #@ @ "@ @ *t@ @ ) #t@ @  q "  1)  !   *0   PSChar PSDate PSDec PSHeading PSInt PSSpacer` IMenuORCosting Changes-oRefTbl' EarningsCodes; %Pay_Period_Rate:" h&0MZ#"%$"cTR?@=7TR hHSQ xڭVoE~xm56V-r聄ĉ"@pP{BXSں6-&"JύT!qq 8ȁG=!!o֓Ũx;ơUDԠAV,pOư<<(< C~:D_kKPKޏXæS>ư%Weu1*]dc:Z5CYzHЖ5 Hlqb,IŶH,K ֵ-kzX>zp?t-emYn^bߙEbܡk=O̬Fmi7Z+WhQ*׷uuN\ar=nBQ } @7ͨRmTQ>yjM9VU*Zs]^GǴnρE %X󗚵V'Zo"OȂMVqJɎY^1pXjȦgi`:z%:%x-&>FVχVÛAnyK0:)>լymQjj' ru-&^]r5yT_Nɣ5#rI0X""WGxFa^Rx8_dt@U`u>u|D=si[~W*7)u|uF,Vw_Oїf@%O)|j5V^x bn;gԇSz_ uۋw&?@b3e~^kWKR#Ԭ`#{ʁ%/ 3ʈP 5A7wE> >w'O_tL R ©&x1z ͊_R\CI8XP]Mx99c=58SW7sɾy+Zբ)ZrѺGV0I{DO $bO龄c@WmnO龄c@WmPNG  IHDRMXBU cmPPJCmp0712Om IDATHO[U+[ٽEҌdXbnc!۠‶Eʣh e"0+Y,Dq ,dAos'Or Þg0_Oon 25v iN]pdyLrLhm:_irG;UɹAMMKɸUɸ)ُ!gT^T6+ȥIx٪uAoadI6΁3|*s{#0噀a6*Mzbߠz:)U(3=9wX(bU =ukN7 Dg"qf@?.jm!th_N?;]PYEg5wR"r y 7tl_n'gFEw\u(<zO73Zɑu8;pª7/V~\ ݀`c@p~ICkE9Srzsv?Rm?|TW} 971$:?jxoeHs>m|$%ԋWdžx=5~]uAzVf-75 rhhw _G@):fD4}ecMR\(9 L fo~eca G}UG'qYܙlocX] w"o"Gӡ0 ㉴4|w+B7>>$IRp!/yW#]k"e b.p %3*w^gKp‚ N*@7* @p&Mݓ%M>P$hY{Xt Gۂxq@(E {Vܗ8l:'IPKw8 YaXX˹INv0[gO2G]asfb#v!n\HhIC<-8YzB1{6bYQC ƜA+5zSr_3ZvEGrv+p S6Ej;PeEw{OJ%k=vQvkQmӴ`au5'P:aOMqvx巚)ZY)KՄ)Wx_So²X0-W8娗\,GݺIuFlLv?˚0a C^0I+މM*yOd޶?,û:řCl^[i*5k7AIENDB`"]!;f7@=]!;f7 6\xڭVOAw ,)*DQūMZIC M5!zу3'@pӼ{37 CuS|..fbnn:Ti D0 $e~8&1$dH1nt9̲Ckc8_CyύsWho7*o[;*8d `= UF]jti|UVrqnٌUL4 +Z.7 eb塨 SؔD5X< ΣS)!hdR\C<=v|Tᇚ޽4A&!I("كp~+_OD9L ߑhe=xXq/×-0_+?Wu^=HEOdEj:W7jFGNV-ە=7O,vHc gW#~}}_$D HmZqO妰Fya}X,Vik7|k7-$}j1d_Af>͝qԳ=fe(W>%?)R{&)Ji*Vc/+"uYcѝcS@=yuYcѝcSd 6\GxڭVKkAٙ>hI< E !QG؈j%? q z`skHE вc|s}s#X%AGXe]zzUϹgr e2<ƪeJVic98I":4u7UrXljG8^yW!f+xx(2p'Af+3 "E1htDvٯ6ѯkw2|&N$N?lgъS8}T 3A0D`}=Wti? jϿ3DZW8af\$i _ǸW"o>Fin\WcA_INѣ/llcgmQlc!5rz4q)"*Y[3a, b@=*Y[3a, b 6\fxڭVMHTQ>yf2SGMG#q6E A'3Kt hWT[lղ 0krQs;͝i…s߼sFDIlJХ98a#BYV96PtY58wf48a#$!,URJnX!cVA|}* jUYyF Uy0Ӳ Ԗ/?,B5-լm# Ne)*,v= z'W\+%$$R)=ؑ%ȷ O3鑩\zl~ajJxUrmWs$DAfj 3sѼkc$r)GU'DѲ~r,0ψEsˈXLh2Q e(7CIq4?`-YC<9x‹Z+$tm&\ħ;0\+qAkI$`j7W H׊bG՟8k+Yf\z:ý~ώ86a,RG¼jGwZI9_!~jC\E ޤq\֍]}8;zt!DP_V>Pw{w;7 s0 !)( {k߱o'ij$fëW7i&E">jQfCS ZL" _@1?_JetZqL6wW6=?iQMaԧ iŸ'ԍݠ)#Ҹ%O{3~u MqjkIEM6H"kE0 bZL6(vŝ.,BW .]pڕ h5 ܜrhns9h0bіQ*;xH$Q7(4< Bԫ描0|r CTV!h>v;0nF%WucR:4dZk ˥RA786E4 :d=QF f07"̜n0_<{0o>k3꧆ǀZ~C1ǪMX~'e1Wn9dI9-X"Sk Zs} 㓩#T~DeZN(X}NOGJ8L_lk#DMi'RW8[֕7 9}sg[6O8Rv̀7fT(/}W@gX ڶ"a{I+_ۏD%?? <P*9kei,7&IuM.WG 0cؒӌ^͜FoV3_յ0rҫѕc_[oVkTHz3zu$M yz:cҹ Q>W`= X`g+"XfcG-MT5%j *s.8MRFy됋+]G~ڊRmљ[^+$?k3:>*1Aδv%l#_M(Ͻv71B7{Ӷ_m-/܌nwUj HT^,:{al1_))-G+r k}}~T5D(oZcZ3tEnQ{V=1>+k;p TEB5H M^Y}_X?"c+3֙XƌXwkƺ 2֚/>I+"߯ZGQD,|?j>֚T~'XVxcy(o{y#qTiyskb5]62"._Ey4p%su JTzc}3!59qxa6:-LN|#][=7G@N|Ʊ=|fl(ڗ YhlH._nWKGRڳnM.]9Ja׫rVZk\"&I"uA>꿤Ϡc:{5KHdX%s\LD^{\pEYԝgJs.Zs>^{e,{;[3 ,3  @@   nEmployee InformationEff DateEmployee StatusTubPaygroupCurrent CostingDistrb %Org Object CodeFundActivity Sub-ActivityRoot Employee IDTemplate Destination LayoutTemplate Column 1 peoplesoftEmployee Record #Employee Classification DepartmentBCDEFGHJI#Employee Classification DescriptionDepartment Description Fiscal Year Earnings CodeAcct Code StatusApply Costing ChangesDeptName"Harvard University Costing ChangesImport File Layout File ColumnEmplidRcd Sort Columns(None)AAABACADAEAFAGAHAICosting Validation ResultComprate Annual RateAJAKKLPay Period Rate34SADCADHADPADSADVB4FB4HB4SB4TBEXBILBNSBPEBPUBPVBRTBSNBUNCARCCFCLICLOCOMCONCOVCSVD20DBHDBSDCEDEVDTLEDFEDTFELFITFLBFMSFNRGCCGNTGTLGTXHIPHMAHOLHONHORHOUIMPIRHIRSL65LC6LCOLCTLFCLNFLSPLTDLTFMILMMNMOVMRLMV3MVIMVNNMLNPANPDNPPNRPOCHOSDOTPOTROTSP2FP2HP2SP2TPCHPCSPENPERPHRPIHPITPLPPPKPREPRHPRSPSPPSTPSVPTLQDIQMIRDGREGRESRETRGFRGHRGSRGTRHFRHHRHSRHTRTOSANSAPSCKSEVSHDSMRSNPSPRSRGSSKST6ST7STDSVCTAJTAPTASTCHTRATUTVACVAOVCDWCNWCTWHOWRIWS1WS2WS5WSAWSCWSNWSPWSRWSSWSTEarnings CodesDescr Summer SchoolAddtl comp for conversion onlyActing Dept Head Adoption BenAdvisingAdvanceBen Dist 4 FacBen Dist 4 HrlyBen Dist 4 SuppBen Dist 4 StaffBonus ExpectedBonus in Lieu of IncreaseBonusBonus Project ExpectedBonus Project UnexpectedBonus Performance/ VariableBonus Retention Bonus Sign OnBonus Unexpected/Spot Car AllowanceChildCare FellowshipClinic Pay ConsultingClothing Allowance Commission ConsultingImp. Personal Use Co VehicleCommittee ServiceDouble Pay for Police OnlyPen Death Ben HrlyPen Death Ben Staff Continuing EdCourse DevelopmentFlat Detail PayEduc Fund SubsidyEditing FellowshipFitness SubsidyFLSA Use only - Bonus in LieuMortgage SubsidyFellowship Non Resident Alien Gift Cert Csh Gift Nn TaxImp. Life Insura  !"#$%&'(*+,-./02456789:;<=>?@ABCDEFGHIJKLMNOPQRSTVWXYZ[\]^`abdfgijklmnopqrstuvwyz{|}~@2iwg?? ? w@Q A A {BU %C C ]D7DfE@ FF8GGcc -  OO  dMbP?_*+%M\\CAIT\ADAPT-410-5SI-NDPS.ADAPTdXXLetter.HP LaserJet 5Si PCL 5e2xU[n! ؐ45YJUz<6k $q00W\c@){& (#@#*mx"9m$BKD"ng:KcD ! ,3I(LKR[q~`:}r OΒTR_T>~TA.jhJj$/Xұ޳vF5jT#2LR#8ժH䂼Q5_uOf)LG0/tbژ6y.qeU̕}OahPGG硦qy)ΦXBCnq^  n ȾS`WQ\` 1^rzs"dXX??U} $ } } $ :@@#`s@qA %&&&&&'' (!x`(    \A ?@&butGetEmployeeData ]`  1 6$Te . Forms.CommandButton.1p  BA sheild "0J@]&`P >@  7 Sheet2 -  [_  dMbP?_*+%&CCosting Changes&L&F&C&D&RPage &P&?'?MFhp deskjet 640c series!@h߀dnvertBeRLdBeںں\\DISHINGTON\hp deskjet 640c series,LocalOnly,DrvConvert"UXX??U} I } $+} $ ,} -}  T}  -} .}  -} m /} .} I -} } $ R} L} $L} L} M} N} m>} O} P} N} Q} $ } -} -} 3} 2} m1}  0} !!1} ""2} ##/} $$?Column EX%%` $ ) @% A) @* S= S8 I @ @ B @ @ *# 7 8 8$ 8! 9 : ; < < ; : = * @ @! C D E F F !E "D #G" $H` YH(    PA ?@butInsertRowg {=]` 4 1 6$e L9 Forms.CommandButton.1ph M PA ?@butDeleteRowgB{r]`M t 1 6$Xe : Forms.CommandButton.1h O FA ?@butSortgv{]`O  1 6$e < Forms.CommandButton.1@` P LA ?@butProtectg{]`P a 1 6$e Forms.CommandButton.1l R ZA ?@$butSalaryIncrease :]`R b 0 6$e > Forms.CommandButton.1  S \A ?@&butValidateCostingFNv]`S `b 1 6$4e @ Forms.CommandButton.1l V bA ?@,btnSelectEarningsCode\]`V H 1 6$pe B Forms.CommandButton.1t>@A  7c Date Format MM/DD/YYYY Date ErrorInvalid date enteredtoo @ W Date Format MM/DD/YYYY Date ErrorInvalid date enteredto  L  Invalid YearMust be a 4-digit yearidm e3F  Invalid YearMust be a 4-digit yearidM  Invalid TubMust be a 3-digit numberdS  Invalid OrgMust be a 5-digit numberd i@U Invalid Object CodeMust be a 4-digit numberi'T  Invalid FundMust be a 6-digit numberum ~.AX Invalid ActivityMust be a 6-digit number  ~.AV Invalid Sub-ActivityMust be a 4-digit number 'T  Invalid RootMust be a 5-digit numbernu i@G  Invalid TubMust be a 3-digit numbernG  Invalid OrgMust be a 5-digit numbernO Invalid Object CodeMust be a 4-digit numberH  Invalid FundMust be a 6-digit numberumrL Invalid ActivityMust be a 6-digit numberrP Invalid Sub-ActivityMust be a 4-digit numberH  Invalid RootMust be a 5-digit numbernuerL Invalid Distrb %Must be a number 0 - 100erR Invalid Distrb %Must be a number 0 - 100erdd Must be upper case)Invalid earnings code. Select from list.#@N )Invalid earnings code. Select from list.le f Sheet1 -  $|xzʤ  dMbP?_*+%%"&CCosting Changes Reference Tables&L&F&C&D&RPage &PMFhp deskjet 640c series!@h߀dnvertBeRLdBeںں\\DISHINGTON\hp deskjet 640c series,LocalOnly,DrvConvert"dXX??U} #} m}  } $ $} m } } 6} 6} m }   Y                                ' (   V W+ X6  Z  % !  %~ "@ $U ( 4,4  U>  U  ~ !@  )~ "@ $U 4%J  U?  U  ~ !@  *~ "@ $U 4)J  U@  U  7~ !@  =~ "@ $U 4J  UA  U  8~ !@  8~ "@ $U 4J  UB  U  ~ !@  ~ "@ $U 4!J  UC  U  ~ !@  ~ " @ $U 4J  UD  U  ~ ! @  ~ ""@ $U 4J  UE  U ~ !"@  ~ "$@ $ U 6 J UF U ~ !$@  ~ "&@ $; U 6  J UG U ~ !&@  ~ "(@ $< U 4  K UH U ~ !(@  ~ ";@ $- U 4  K UI U !~ !*@  !~ "<@ $. U 4  K UJ U  ~ !,@  ~ "=@ $/U 5K  UK  U  ~ !.@  ~ ">@ $0U 5K  UL  U  ~ !0@  ~ "?@ $1U 5K  UM  U  ~ !1@  ~ "@@ $2U 5K  UN  U  ~ !2@  ~ "@@ $3U 5K  UO  U  ~ !3@  ~ "A@ $4U 5K  UP  U  ~ !4@  ~ "A@ $5U 5K  UQ  U  "~ !5@  "~ "B@ $9U  UR  U  ~ !6@  ~ "B@ $:U  US  UU  UT  UU  UU  UU  UV  UU  UW  UU  UX  UU  UY  UU  UZ  UU  U[  UU  U\  UDFlzzzzzzzll&&&&&&&&  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  U U] U!U ! U^ ! U"U " U_ " U#U # U` # U$U $ Ua $ U%U % Ub % U&U & Uc & U'U ' Ud ' U(U ( Ue ( U)U ) Uf ) U*U * Ug * U+U + Uh + U,U , Ui , U-U - Uj - U.U . Uk . U/U / Ul / U0U 0 Um 0 U1U 1 Un 1 U2U 2 Uo 2 U3U 3 Up 3 U 4U 4 Uq 4 U 5U 5 Ur 5 U 6U 6 Us 6 U 7U 7 Ut 7 U 8U 8 Uu 8 U9U 9 Uv 9 U:U : Uw : U;U ; Ux ; U<U < Uy < U=U = Uz = U>U > U{ > U?U ? U| ? UD@l&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ @U @ U} @ UAU A U~ A UBU B U B UCU C U C UDU D U D UEU E U E UFU F U F UGU G U G UHU H U H UIU I U I UJU J U J U KU K U K U!LU L U L U"MU M U M U#NU N U N U$OU O U O U%PU P U P U&QU Q U Q U'RU R U R U(SU S U S U)TU T U T U*UU U U U U+VU V U V U,WU W U W U-XU X U X U.YU Y U Y U/ZU Z U Z U0[U [ U [ U1\U \ U \ U2]U ] U ] U3^U ^ U ^ U4_U _ U _ U5D@l&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  `U ` U ` U6aU a U a U7bU b U b U8cU c U c U9dU d U d U:eU e U e U;fU f U f U<gU g U g U=hU h U h U>iU i U i U?jU j U j U@kU k U k UAlU l U l UBmU m U m UCnU n U n UDoU o U o UEpU p U p UFqU q U q UGrU r U r UHsU s U s UItU t U t UJuU u U u UKvU v U v ULwU w U w UMxU x U x UNyU y U y UOzU z U z UP{U { U { UQ|U | U | UR}U } U } US~U ~ U ~ UTU  U  UUD@l&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&                        U U UVU U UWU U UXU U UYU U UZU U U[U U U\U U U]U U U^U U U_U U U`U U UaU U UbU U UcU U UdU U UeU U UfU U UgU U UhU U UiU U UjU U UkU U UlU U Um4p&&&&&&&&&&&&&&&&&&&&&&&P>@7 Sheet3 VBARD|PZo|ThisWorkbook__SRP_2)__SRP_3 1grhIEߏƀ!xrhIEߏƀ!{uM2MEP[LSS>" <<N0{00020819-0000-0000-C000-000000000046} `hkTh@% % %x@x @h 8@@x@XTp ?$*\Rffff*0^4afd3dd9$*\Rffff*0_4afd3dd9$*\Rffff*0`4afd3dd94"  0A@ !'oXPAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Ope@n() GoToMenu\myS.  End% rU 0@ a(a#4 a) ` `( x$ >xFh($ xh4XrU @$`Tn4l=cD}2BDNH8 Fdr4D{OH'x0butGetEmployeeData, 2, 1, MSForms, CommandButtondr4D{OH'}2BDNH8MESheet1e#Sheet23p__SRP_8Uh__SRP_9 _@]D M~1*]Delete current row? 4Caution!$2'0GIT~1 0 64|k 8(:$RefTbl$>.<G2 <%B!D'@ @ FB@H (!*'. J!LB@N 8(P @TVXZ FB@R . F%&B@H 8(:o8](Insert new row, duplicating current row? 4Caution!$2'0 0 6|k 8(:RefTbl$>.<G2 <%B!D'@ @ FB@H (!*'^1By default, Excel inserts row above selected row.UWe don't want this to happen, because if first data row is selected, the inserted rowFinherits certain attributes of the column header row (such as height).;So, we want to insert a row below the selected row instead. ^  F%&B@H db J!LB@`Copy values from current row ^A$& ^AK$&$BB@H JB@fPaste values into new row below ^ A$& ^ AK$&$BB@H lj pnrt JB@h 8(P @TVXZ FB@R ^E F%&B@H 8(:o x!z Protect SheetUnprotect Sheet x(zA@|d8A@~ Protect Sheet x(zkoH]]])save current cell so it can be reselected (.A@~ 8(:1Verify that costing information has been importedB2$BB@H (!D=No validation available because costing has not been imported Caution!$2'0 B@H 8(:|kLDetermine total rows, so that the following actions only apply to that range d J%B@H (!*' !zTurn Salary Increase Window On[Rel1604 - Wenjie Wu fix - Costing Extract/Load Spreadsheet -- Modification to correct bugs Z'yyyy Z$' 'REL1604 - fix end07/01/ X 'N2 N$&$BB@H  J(D J(O2 O$&$BB@H  J(D J(Turn Salary Increase Window Off (zdXN2 O$&$BB@H J(D J(Turn Salary Increase Window On (zk B@HA@| 8(:o B@$oA@ophAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ControlInsertRow, 7, 0, MSForms, CommandBu0tton "Protect, 8 1!DeleteDD2"SorA!79, 33Valid@YCosting444#Ba@{yInc@se55tnS@GctEarn%sCod6, cl P@2 Sub b_Click() 'U has cthe  de @@ frm%s.ShowCells(A,ct.Bw"Q").End'+utFG)95qVwFcx*butInsertRow, 7, 0, MSForms, CommandButton)butProtect, 80, 1, MSForms, CommandButton+butDeleteRow, 77, 2, MSForms, CommandButton&butSort, 79, 3, MSForms, CommandButton1butValidateCosting, 83, 4, MSForms, CommandButton0butSalaryIncrease, 82, 5, MSForms, CommandButton4btnSelectEarningsCode, 86, 6, MSForms, CommandButtonME PSLSSap, Winht`Z`{ain a!es ofRcolumn headpOp (such ]height) SLwed o below)1t:3G+ O4 `[Bd,Shift:=xlDowdTaB values from (Z#M [A")Ah aK")k>w wCS'(in 7 S<"O%rSpecial 1YteAll,` OpercNonPSkipB0lank`NT _Ó /, TrCQ:=V1YY36Y0 gYYua Y :?Ex dicungPDZbχt$ Y~.Cap1{ "$: "/!UnpSDGShtsCEls%_ iQ=S;jTQEfbf~veDAjSngSqtotal/sޗ8q|SaT3S'sU>Xl spJ t canP7 reIael]CS?oI}c'VXfyRaP C@Rf0'"been impedssB"B3Gs &CUq."q=%.PI C avail"fc not( ҭOKOnly@QK满1??87۰'D`rmine@s#gq`th aqfolVjing actions only app(to that ran ge Sele.End(xlDown).TBtotalRows = ATveCell."> If butSalaryIncrease.C ap8"Turn   Window On" ThenI 'Rel1604 - Wenjie Wu fix!CostExtr/Load Spndsheet -- Modifica=y0corrqOgs1|gSystemDateO Year Part("y", )Fiscal+'RELgbend EdefaultEffve0<"07/01/" & CStr( -?R("N2Ls(, "XN")s }Vxalu?Q ' L ocked&TruD O O bgQ+ 1wff"Els3T3"K\FPFayτ0nd IfAuSavez!Prot@NSh6t$cAh.S`yenUpdi$= #? Sub Privhort_Click(TfmS`.ShowQi e|kPSLSSs6"<<<N0{00020820-0000-0000-C000-000000000046} @` T ` X ` \ % %*8H@@h%%Xp@H`H  ?*\R8004*#5d$*\Rffff*0a4afd3dd94<"   " (08 " @H ` p  B@Bo`@A@A@o@  8!Q$ B@rac @ 8B@M~1*oh`Attribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ControlGetE+oyeeD_, 2, 1, MSForms, Command@ButtonP>B Sub ExitApplication_Ck() #ActWWorkbook.Clq SaveChanges:=AR End+ x 3R 3CSVFilesCGoToMenuYQuitExc el@= Each w In H6.07w.1Next w 46rU  41 Y <y  `EyO0   0 @  0   8 <1rU H$`T$`X$9`\ @H8nrU~| prU !nDeclarations__SRP_6cJ__SRP_7 efmSort:4-9F97-0C920D1D144F}{AF0007A8-68DF-496C-A1E9-6B82F0CC754D} GlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustom4izDP Sub CancelButton_Click()  Me.8HidK EnNd!OKDim Range1,23 As Sng4lookupTUt=@answerQmsgTextValues@Directio>n@1@3B5Integer,A?DNB'Check for inconsistencies sel@$} by columnsIf cJbCB1.C7=J2DOr _ kx 3 ( <> "(None)" A$) Then$Du= MsgBoxL("!h m@\ be unique", vbOKOnly, c# error"`[ÁY`ExitY![IfSet NR=X("RefTbl!C2:8E22 /opAscending/"a|" !8LxlF E1" asc?!ap De d  4k KE;^2]_nc Y _F+X_on3]_Bc YC ZOn EY GoTo VL`Handl厃='!d on n熇user,\ up the rrespobW!lett in ^ I+yd^g= Worksh@eetFun!.( ), 3|, Bp;2`0& "2" 'appp7 2 to (e.g., C24 .Ie KH$A/Umn1s8pT q!/N2!1rt#gߴѐ? ? e? > !3B 50c S'Unprotw w,bmy1CVsb!EbPassdhP. ("GdvCA@2veS3.UnPCS.'rqF rEoy ee ID3Cells.S҃SmPSpd2:Dzi@pB" &?&2iO5;5 .B Key1:=#R1), Order`LnNj , HeaHr:=xlYLesdS:= M atchCp:=FientaQTopToBom#"35/ ///C22)?` omЈ'[z,hn+&&2ܨ<)j))B,_33`r/se/on/0= ǟ2D?@0^3 End If(Range("E2").Select 'put cursor back at "home" p'Prot\worksheet againFActiveS,.PPass,d:= h, DrawingObjKs:=True, ContentScenario answer = MsgBox(msgText, vbOKOnly, "Sorhompleted")Me.Hide   Exit SubVLookupHandle,r:7"UpP errf" & lValue". Notify administrator."SE#Q GނL  (8@HX `x  Sheet3hMiscVBASubs#__SRP_4x__SRP_5 's#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}PtX{xMEPSPSSS.<G2 <%B!D'@ @ FB@HSort worksheet by Employee ID &B@HSpreadsheet sorted by !D ' !D(None)  $B$ & *(,. 20 JB@"k !D(None) !D(None)  $B$ & $B4 6 *(,. 20 JB@"  , then by  !D 'kP !D(None) !D(None) % $B$ & $B4 6 $B8 : *(,. 20 JB@"  , then by  !D  , then by  !D 'kXE2$BB@Hput cursor back at "home"Protect worksheet again @TVXZ FB@R  Sort completed$2'0 B@|VLookUp error for . Notify administrator.  Sort Error$2'0|0o( Attribute VB_Name = "fmS@ort" Bast0{A0E1A8AD-1E73-4EF@(%H@0 ?xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Caution!$2'0 B@H 8(:|kPanswer = MsgBox("Validate costing changes in current row?", vbYesNo, "Caution!")If answer = vbNo Then activeCellSave.Select% Application.ScreenUpdating = True Exit SubEnd If ^R F%&B@H J!D'D ^S F%&B@H J!D'F ^T F%&B@H J!D' ^U F%&B@H J!D'H ^V F%&B@H J!D'J ^W F%&B@H J!D'L ^X F%&B@H J!D'NRefTbl$@(BRefTbl$>.< <B@H:http://idgen.harvard.edu:8751/GLValidate/ValidateGLAccount9http://128.103.36.141:8080/GLValidation/ValidateGLAccountP  FURL;https://finprod.cadm.harvard.edu:8052/GLValidate/ValidateGLAccountV RefTbl!I2$BX <!R%T    ! ' tub= D&org= F&object= &fund= H& activity= J& subactivity= L&root= N9Zl ValidateCosting99\9^9`9b9d9f j9h#.RefreshStyle = xlInsertDeleteCellsB2$9l9n9p9r v9t z9x9|9~99fC@orteqXI5$BB@H0 J!D"Y J!D"WtionCosting in row ^$$ valid Costing Validation Result$2'0dp J!D"NI6$BB@HCosting in row ^$$ is not valid:  J!D Costing Validation Result$2'0dI6$BB@HCosting in row ^$$ could not be validated:  J!D Costing Validation Result$2'0kkRefTbl$@(B$>B@H B@H 8(:|P6Debug.Print Err.Number & " Desc: " & Err.Description.Unexpected error accessing validation server: ! Desc:  ! Costing Validation Result$2'0oAttribute VB_Name = "MiscVBASubs " GoToMenu() She ets("&").Select4Range("E110End Unprotd ShESDim activeCellSave As NY'scurrent c* so i an be resed/Setq V= AgApplication.ScreenUpdng`False~R efTblsVisiblTru3;myWorks&3 G2Passwordh-af.Val@6.wRe%2 rC:.UnPl / l0ZSI??XC8? ?"? ?B"=bjEE:=F, Drawi ngObj s:=#, Cont zScenario1,hJc@bixeCostEnswerbIger 'RDowtubSngorg"1fu ,ityqsubrootb[_]Cc/I. Verif`y tha; @informb has en i`mport%DB9MIf#""` ThenaF= MsgBox("No valaL availabecause cDn3bF", vbOKOnly, "Cau!"d faJ6'AExSubceIfS' 36 Tch}s` %xrow?R YesN2oO 'vb'q )/xy';'Oimls(& Rlv>=~ auSA”TD`p UGV KW)NX BQ/q?p t ExA?u;z6http://idgen.harvard.edu:8751/GL6/GLAccounĵ'128.103.36.141:8x080p*On ErrorAHandloWith.QueryTLs.Ad4d( zn {:= _;"URLJ; s fid .cadm+052/te&"9`fez\:=4[!&I[R.PVTe%@X(@B@px @h @d @T XX8 ?$*\Rffff*0_4afd3dd9*\R1*#2ac*\R1*#e8*\R1*#dc*\R1*#1c8 "1( 8 " @H  0P     0 @ P` " hp  0x     0H X$h  "     0 @  P  8`\  0@H  VP   ,  0 @ `p    0 P`    @ @PX@  * @ H P X ` h p x      d ^(  2    r X  `  |x     (  8  H X ` <h  0 8 H Menu$@B@HsoE11$BB@H\Co@@])save current cell so it can be reselected (. 8(:RefTbl$@(BRefTbl$>.< <B@HG2 <%BB@H (!D'@RefTbl$@(B $>B@H @ FB@Hrt B@Hs must 8(: o])save current cell so it can be reselected (.!D 8(:RefTbl$@(BRefTbl$>.<es <B@HG2 <%BB@H (!D'@RefTbl$@(B$>B@H B@H @TVXZ FB@R 8(:oX]@]X]p]]]]]]] 8(:)save current cell so it can be reselected (. (!*'^1Verify that costing information has been importedB2$BB@H (!D=No validation available because costing has not been imported =921:?a "ob7c8A5r?p"33?31 2?31//Pܒ@.u&đ)Fielzdqs`ȡ1xN umber .FillAdjaItFxulx= =Prve!atk.PhOn0eOp|Backgr@2d+ODSty2xlOverwrits,'InsertD }.xuP Data4justColumnW4id@7=XefP0od 0g .Web&iTypxlEntirePagRxlgNone .WebPreFormattedTextToColumns = Tru ConsecutiveDelimitersAsOne\SingleBlockImport)Fals YDisableDateRecog@nition+Refresh BackgroundQuery:=TEnd With Range("I5").@Select I f 5.Valuc"<ida?Flag>Ya nswersMsgBox("Cost in r@ow " &im(Str(acARow)) " valid", vbOKOnly, X Re@sult"):EJ^#@N12Y6 Y:is notC<:BE nkA#KBA0kcould1be1d2.r IfDx WrapUp:Sheets(""`hTbl4Vi sinlWorks#2ePCel lSaveJiApplicf.Sc@reenUpahng xit SubasErrorHandlerD'Debug.@Print .PNumb d&> Desc: ?Aqripuc NLUnexp}ed ea accesslg serv _A?Nnpme 1 6 rU~|  y  1 Y `1d:h%x$ x dd)xd(x'T%:h%$ xx(`$ xd0 @  0  0   \rU $`$`$`$`n$+xMEDataAccessVBA>FunctionsVBAfrmEarningsCodes"7 _VBA_PROJECT4 PasswordhUser Cancelled Operation'Operation Cancellation'   'Re !'!Get Employee Data File for Import 8(!Default to My Documents directoryChDir "C:\TEMP"''3Text Files (*.txt), *.txt, CSV Files (*.csv), *.csvGet File to Input Employee Data 8%'    $2'A@ 8(: 8(|k*Importing Employee Data File 8('''A@ 0k( |k A@&Finished Importing Employee Data File 8( Imported   employee records'Information Message'   '   $2'k@ 8(RefTbl$@(BA@ 8(:|6Debug.Print Err.Number & " Desc: " & Err.Description  k L"Cannot find My Documents directory A@2kHo@@]]D]D]D]On Error GoTo ErrorHandler"Application.ScreenUpdating = False $B@'?following modified 11/22/2002 by JED for HUCTW single worksheet$@! +For z = 2 To 4! myDataSht(w) = Sheets(z).Name w = w + 1NextmyRefTbl.SelectmyRefTbl.Range("G2").SelectG2 <%B!D'@myRefTbl.Range("A1").Select dA1 <%B%. !*'Range("A1").SelectSelection.End(xlDown).SelectRowBottom = ActiveCell.Row  '  8'  <%&   <%& <%B !D + % +  ''Debug.Print myCell & " " & myCell.RowA@'_  B@  !'|}-xME( . 8 @ H P X p  x             * "( P ` x              F  8 H (X   <     * ,P . " "  * 0H ,x 2  0 0 H X p   "    * B82Fdpx \   00` @   d H PX  `p   "     0HBX        DB`  B @ 8X     "0 $X       , F `  Dx : . .0 ,` H J J( Jx    xp 8(:E11RefTbl$@(BRefTbl$>.<sa <B@H cell G2 <%BB@Hd (!D'@A@$>B@H @ FB@HDfollowing commented out by JED 11/22/2002 for HUCTW single worksheetWorksheets(3).SelectActiveSheet.UnProtect PasswordhWorksheets(4).SelectActiveSheet.UnProtect$@B@H$@!' $> 2 $B@'     $%&!D $File not in proper format.'   '   $2'' B@BGoToMenu|XkPH B@Bd0|(k   '?following modified 11/22/2002 by JED for HUCTW single worksheet   '!Application.ScreenUpdating = True|xPp6Debug.Print Err.Number & " Desc: " & Err.DescriptionGoToMenuIf Err = 9 Then h = j - 1 B Msg = " Only " & j - 1 & " File(s) Entered! " & vbCrLf ' & " To select more files, Click 'Yes' " & vbCrLf ' & " To continue without selecting more " & vbCrLf ' & " files, Click 'No', 'Cancel' to QUIT. "$ Title = "Operation Cancellation"& Style = vbYesNoCancel + vbCritical( Response = MsgBox(Msg, Style, Title) If Response = vbYes Then GetFilesAgain = True Exit Sub# ElseIf Response = vbCancel Then) Msg = "User Cancelled Operation!"% Style = vbOKOnly + vbCritical, Response = MsgBox(Msg, Style, Title) HeadingsOK = False) Application.ScreenUpdating = True Exit Sub Else Exit Sub End IfEnd Ifoh@]D]D]]]]''' 8(:Importing employee records... 8(<check cell "B2" to see if spreadsheet already has data in it$ $%>%&$A@;The spreadsheet already has data in it. Import is aborted.A@2'Uthis gets reset to 0 later for display to user after header row is subtracted from it|k_Snote: loop originally set up because of multiple files to be imported; now only one  B@$@B@H$@!' $>.*make sure there is data in the import fileA2 %B!D$6The import file has no data in it. Import is aborted.A@2 $B@ B@B'Uthis gets reset to 0 later for display to user after header row is subtracted from itA@| k B@HA1 %BB@HRange("A1").SelectSelection.End(xlDown).Select dA1 %B%. !*'CSVBottom = ActiveCell.Row     $'   %&!D   $ $%>%&(DX P  B@B $B@ $ $%>B@HCosting Changes$@. >Copy Current Costing values into Apply Costing Changes sectionAB2 AI7&7B!DQ2 X7&7B(D Copy Distrb %AK2 AK7&7B!DY2 Y7&7B(D Copy DeptJ2 J7&7B!DP2 P7&7B(D2Get system date and derive certain date parameters Z'yyyy Z$'m Z$'d Z$'   'd 'kSet cursor at E2E2 $$>%BB@H @TVXZ FB@RA@qp  '   8(o8Private Sub ClearTheDeck()& Dim c As Integer?following modified 11/22/2002 by JED for HUCTW single worksheet For c = 1 To 1= Workbooks(myWorkbook).Worksheets(myDataSht(c)).Select3 Worksheets(myDataSht(c)).Range("B2").Select' If Not IsEmpty(ActiveCell) Then( Selection.End(xlDown).Select& ClrBottom = ActiveCell.RowB Range(Cells(2, 2), Cells(ClrBottom, 32)).ClearContentsC Range(Cells(2, 34), Cells(ClrBottom, 48)).ClearContentsC Range(Cells(2, 50), Cells(ClrBottom, 60)).ClearContentsC Range(Cells(2, 62), Cells(ClrBottom, 72)).ClearContents End If NextEnd SubAttribute VB_Name = "DataAccessVBA" Option Explicit@Bas e 1 Sub GetCSVFiles() Apfa~.ScreenU$pdngFalse'Sheets("RefTbl").VisiblTru$`et my">Wporks 7M$.SelecRange("G2f Passwordh-ActiveCell.Val@GoTo0Menu2?2) 5i.UnPr4otB /'f@ollowicommented out by JED 11/22/2002 for HUCTW sS}%EZ3 E'E41Mst"User 0CancN@3Oper~`Titt" I StyB vbOKOnly + vbCritical @Again: @my0booknThis.tatusBar " Employee  ]ImportD/Orrb EHandler2C'Default to My Docuu s dirory ChDir "C:\TEMP0 Head|sOK6F(n@In0 I;8\n("Text9s (*.txt), , x1'csv"",8 , B%!In>pU 'zIf Fb ThenBRespon = HBox(, @, BF Kp!:MNH@'Exit #End If FounddNIF6Jf7 LoadSu®xful=@:s"aCk! @21b[  a Not h+ (vAddRe@csToEx@SS#a.Fini`5bv/$.! L`&F"5" &_Bottom - 1" e x`æsInmB MageҙHg?ae$a15"AX5jo5%qW Q42Qbug.PrintS.Numb b& " D esc: & .ri#*p013/CUE9I76`0FWann+findZctZL%h A vaГ ;7Dim@7CI'4AsD IgerzwlastRow ŽS'olrdlth.' Q Wows(y)."Pw(modifi`8hߏSmyA{Sht(w). 'F`{z2 To 4O qz)';qQ w'N tdߦ'A1S=.B+(xlDownD"4O= .0 ɲ'p.Z'cWRe2arytHd(& ColNbrIEach87! s(2, 1\G + 1!w IQ(my8D IOffset(0, 3 I'TBjCT_$@ '*]jwDo%s.v:=, R1:=V|Q4!WB ?4<1my>!!? 0mybAjqA`A>fHa%L8 =La1m`t&u{'aumHp37=: .).umQ <> w'#)n% q$ oin proper format." Style = vbOK@Only +(CriticaldResponsjMsgBox( , , Title)rHead@ingsOKqFalse'ActiveWorkbook.ClomSaveChan ges:=<'GoToMenu-Exit SubEnd If NextMEsA =jj1='follow modified 11/22/2002 by JED HUCTW swPsheeD0Loop Until Pj > h-A'Appl~tion.ScreenUpdat`= Trul0ErrorHandler:+Debug.Print .Numb& " Desc: @& 8ripo'If @)9 The~n . " ²" &:6" File(s) Entere d! vbCrpLf _ To select!]re f@s, CHk 'YeLs'A co]nue withoutDUmoCY"No', 'Cancel' to QUIT. B%A!O7on lIg@No 7(vb 8a(Get3sAgainMAf?Ak LEDCUs Qlh#!I""V"" f ?q"$Z'I  yvatea AddRecsToE"x PSS(Dim wdAs bImgercmyCelDlCouv inaseS!!Ȟbast }RARowCSVO2CColZ2htatusBar "Imporemployee records..E'check +l "B2 "{sif spr@ ala@y has a giDbNot IsEmptyB(ts(my).aDataSht(1)).s(2, 2)>):quP5 "7 d . #@ is abedBottom1 'th`getsPset90 L<` d@isplayauQ=af] h rowAsubtract>frp% 0/Do 'note: A( originalPup beca of multipPwZ! be ied; noonH)s.`HnjnamefIn, R l:=WQ /s.S2j#+myNPW7S@ 8W'make su0kthPt'rG((.28("A2").Value}&Q %r/no8/O%K%Windows(qInputWB).0M ߧ> ++++++a 8Q+-]#d1)>'/3!@5(xlDown)n*!(lY= .p.[)1MKFor @02 @G'a`waryNbr(c85!1&@YmYjY , w3 ;[T36+ 000u6fBj6OokiiA)(1 !$ = O"CosvD"M>WPs胇'Copy CurreEvQKs~ PoQ UOQ2", &, "X"P&RAI_ 'CDopy Distrb % .Range("Y2", .Cells(CSVBottom, "Y")).Val ue = XAKyZAK\'bCeptWPUVPJ,JGet system date and derive certain parametersUgS2D=  Ye ar Part("y)Month m(DaydIf Q,>= 7 0Then<dgFiscal*D B+ 1 Else$ SIf  G'S@bcursor at E2Workshe@ets(my@Na`Sht(jE2").SeleFcActsSA.Prot Password:=Eh, DrawingObjs:=True, CeentScenarioGGoToM(enuE@CWi,thACj@sj F\Loop Until j >  Application.StatusB—FagSub 'P Cl~Deck('Dim clAs Integer'folloA# modified 11/22/2002 by JED f7HUCTW s(le +6Fc1 ToKD @P X   (8 @ "H P  h x "  > > H0  x<   ]@8Get the spreadsheet row (active row) that the user is ont9Determine if the user has selected an Earnings Code valueRIf so then store it in the Earnings Code cell of the active row and hide this form (!*'^ !D !D ^Q$&(D "B@koXHide this form "B@o]Initialize this formpera8Get the spreadsheet row (active row) that the user is on8Set the label text to confirm the row number to the userenAClear any previous earnings code value the user may have selected (!*'^or HSelect Earnings Code for Row ^$$ (z= 2 (D! o Attribute VB_Name = "frmEarningsCodes"  Bas0{EE68BC1B-109D-4934-A57B-D4928B43A178}{C3359821-CE0J58A-9C15-17BD7FBA0CA1} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD P Sub btnOK_Click() Dim act*Row As Integer 'Get the spnPdsher(U )auser is onDetermine if!has seleDct`an ! valE'If so n @3rt inB cell o$ and hide@ #form p  9= A "" The8AsDD, "Q") = A,.H.E1If.A@n rCan;As'=T TUrFM_IInitial,iz\SDOlabel tex`Lo confir meO numjbNtE AL@OClear@y Vvious BLbRmay hav\$S,a3aElblSBIE.Caption\Q D " & Trim(StrG) raP6eRowDeletex CutCopyModeProtectfPasswordDrawingObjectsߺContents= ScenarioskbutInsertRow_Click activeRowInsertrShiftxlDown0DCopyƿ PasteSpecialKPastexlAll- OperationyxlNone SkipBlanksұ TransposebutProtect_ClickD butProtect5gCaptionx (ProtectShts  (UnprotectShtsHzbutSalaryIncrease_ClickdefaultEffectiveDate totalRowsvactiveCellSave&vbOKOnlybutSalaryIncreaseU (gSystemDate (gSystemYear1DatePart (gFiscalYear(Locked  butSort_Click= fmSort`butValidateCosting_ClickJ(ValidateCosting Sheet2butExitApplication_ClickwActiveWorkbook SaveChangestbutGetEmployeeData_Clickz! (GetCSVFilesbutQuitExcel_Clickwm WorkbooksBSaveQuit9 Declarations(RowNummR(ColNumXE(RowCSVY(ColCSVD  (RowBottom (CSVBottom (ClrBottom((ja(h_(Can_Oper(LoadSuccessful (HeadingsOKw (GetFilesAgain &(MsgQ(Title~ (myInputSht 3 (myDataShtQ\ (FilenameInW (myShtNamepJ (OpenInputWB(CSVSht^(Stylep(Response (gSystemMonth* (gSystemDay&H (aryHdNameN (aryColNbrCancelButton_ClickHide9zOKButton_ClickfRange1fRange2gRange3hlookupTableRangeg tempRangemsgText9 lookupValuesortDirection1sortDirection2sortDirection3 sortText1 sortText2 sortText3 cbSortColumn1 6 cbSortColumn2 6 cbSortColumn3 6 opAscending1 xlAscending` xlDescending> opAscending2 opAscending3VLookupHandlerǰWorksheetFunction&VLookupSortKey1OOrder1oHeaderMxlYes OrderCustom| MatchCase Orientationw xlTopToBottomKey2POrder2pKey3QOrder3q Sheet3 MiscVBASubsjSheets Visibletuborg޿fund[0activityo subactivity5prootT ErrorHandlerO QueryTablesAddr Connection DestinationлPostText  FieldNamesܸ RowNumbersFillAdjacentFormulasPreserveFormatting=RefreshOnFileOpen|uBackgroundQuery RefreshStyler3xlOverwriteCells} SavePasswordXSaveDataAdjustColumnWidth RefreshPeriod&WebSelectionType xlEntirePagea WebFormattingxlWebFormattingNone(WebPreFormattedTextToColumnsHWebConsecutiveDelimitersAsOne1WebSingleBlockTextImportWebDisableDateRecognitionrRefreshTrim@StrWrapUpr6ErroNumber- Description  DataAccessVBAm vbCritical+} StatusBarʜ ErrorHandler2 GetOpenFilename]? FileFoundօCkFileHeadingsAddRecsToExcelSS*X vbInformationnmyCellKoI`zqlastRowwWindowsdActivate|ay  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation&*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{11FAFE99-E3A2-4CCD-9F68-188135B5647A}#2.0#0#C:\DOCUME~1\njh078\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M    ?  ThisWorkbook0^4afd3dd9ThisWorkbookiH Sheet10]4afd3dd9 Sheet1wF$ Sheet20a4afd3dd9 Sheet2=0Declarations0`4afd3dd9Declarations;H, fmSort0O4afd3dd9 fmSort{` Sheet30P4afd3dd9= Sheet3sx-MiscVBASubs0_4afd3dd9>MiscVBASubsEDataAccessVBA0R4afd3dd9DataAccessVBA-FunctionsVBA0S4afd3dd9FunctionsVBA frmEarningsCodes0T4afd3dd9# frmEarningsCodesŒ9 `Hx0إ$cG/LZءԍZMwg57L+u C^@0'yh9KG4K/2AMO13>rRctBhR:$ YIF FB,ۼC:<)[AѺ1)ihբI}TIobject Excel+ VBAWin16~Win32MacVBA6# VBAProjectstdole`OfficeuMSFormsC ThisWorkbook| _Evaluate Workbook_Open(GoToMenu (myWorkbook Sheet1btnSelectEarningsCode_Click frmEarningsCodesUShowCells ActiveCellRowbutDeleteRow_ClickذActRowanswer,MsgBoxRvbYesNovbNo% Application*ScreenUpdating! (myRefTbld Worksheets (Passwordh'Range ValueK ActiveSheet%N UnProtect? SelectionZ EntirOffsetFilenamejReadOnly4<cZ loopCounter! increaseSheetE WorksheetlastCellIsEmpty  FunctionsVBAG btnOK_Click"lstEarningsCodeszbtnCancel_ClickeUserForm_ActivateZslblSelectEarningsCodeGbutGetEmployeeDataa butInsertRow, butDeleteRow|butSortܘbutValidateCosting2btnSelectEarningsCode>1Workbookk_DefaultjClick  #  = ? (И@ 2" @dir__SRP_0 __SRP_1fmSort1PZo|@v|0* pHd VBAProject4@j = r  ? J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 9 .0 Ob LibraryJMSFo@rms>SFrmHs3D452EE1-E08F_A-8-02608C4 D0BB4RFMl20 'B _&/;"1Cj qAq00}#0q# 50 A11FAFE99-E3A2-4CCD-9F68-188135B5647A6DOCUME~1\njh078\@LOCALSTemp\Exce0l8.0c7.e?@ABCDEFGHIJKLMNOPQRSTUVW^Z[\]qw`abcdmfghijkl_noprstuv~}y{|o') CompObjpCompObj&+,aVBFrame.)    !"#%&'(*+-/01249678:;<>@ABCEFGHIKLMNOPQRSTUVWXYZ\]^`abcdf      1   (butGetEmployeeData  8^$  }t R KQDBTahoma $#Frame1{ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q AEH,{Name5Tahomay8F A,1Ascendinge5Tahoma8F D0Descendinge5Tahoma8H  }qSort ByR KQDBTahoma@A @ cbSortColumn1RefTbl!h3:h14( XopAscending1, XopDescending1Root Entry F0}|#YWorkbook3R_VBA_PROJECT_CUR"B|0}|Ctls 5lO(OK"OuTahoma(CancelOuTahoma n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q$AEH,{(None)y5Tahomay8F c,1Ascendinge.5Tahoma8F nfmSortfmSortfrmEarningsCodesfrmEarningsCodes}qThen ByR ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Module=Declarations Document=Sheet3/&H00000000 Module=MiscVBASubs Module=DataAccessVBA Module=FunctionsVBA Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=fmSort BaseClass=frmEarningsCodes HelpFile="" Name="VBAProject" HelpContext0Descendinge.5Tahoma8H  }qThen ByR KQDBTahoma@A D cbSortColumn2RefTbl!h2:h14( XopAscending2, XopDescending2O n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q$AEH,{(None)y5Tahomay8F c,1Ascendingme.5Tahoma8F n0Descendinge.5Tahoma8H   }qThen ByR KQDBTahoma@A D cbSortColumn3RefTbl!h2:h14( XopAscending3, XopDescending3O(74OKButton ( 8CancelButton]$ #Frame2on $#Frame3on] Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fmSort Caption = "Sort" ClientHeight = 4305 ID="0" VersionCompatible32="393222000" CMG="90923C3A403A403E443E44" DPB="6F6DC3C67D7A41974197BE694297D1CDD63B66D2F6D5A4AB460ADE97FCB43A84D340E596091472" GC="4E4CE2271ED9FCDAFCDA03" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Declarations=88, 116, 1172, 727, Sheet3=0, 0, 0, 0, C MiscVBASubs=132, 174, 1216, 785, DataAccessVBA=66, 87, 1150, 698, FunctionsVBA=110, 145, 1194, 756, fmSort=0, 0, 0, 0, C, 22, 29, 1314, 690, C frmEarningsCodes=0, 0, 0, 0, C, 44, 58, 1336, 719, C Oh+'0@HT l x UISMicrosoft Excel@5@b@eW|՜.+,04 PDocumentSummaryInformation8_dCompObjemXt | Harvard University' MenuCosting ChangesRefTblEarningsCodesPay_Period_Rate  Worksheets Named Ranges F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q