ࡱ> b  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~Root Entry F y>Workbookw_VBA_PROJECT_CUR" y> y>VBAy> y> ` Worksheet"&Tools&WindowChart"&Tools&Window(Visual Basic Module"&Tools&Window\pcrouch Ba= ThisWorkbook=xƩ V 1.008PrintProcCaps_EMF"(XX??U} } $}  } $} m} $} } }  } ,} } } m} } $} m}  $} m$} } $} m} m} $} #} I }  } %} } }  } %}  } !!} ""} #($ } ))} **m} +-$ } ..$ } /$ /,*,6,6,6,,,,, , , , , ,,,                 2 & & & & & & & ' 4 & ' ' ' & ' & & ' ' & ' ' & 3 & ( ) '&&)('&"*+B---------.--------------/-01-5!7$7'7 *87+B---------.--------------/-01-5!7$7'7 *87+B---------.--------------/-01-5!7$7'7 *87+                                                                                                   D lrrrDDDDDDDDDDDDDDDDDDDDDDDDDDD  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?       !!  !! !!""  "" ""##  ## ##$$  $$ $$%%  %% %%&&  && &&''  '' ''((  (( (())  )) ))**  ** **++  ++ ++,,  ,, ,,--  -- --..  .. ..//  // //00  00 0011  11 1122  22 2233  33 3344  44 4455  55 5566  66 6677  77 7788  88 8899  99 99::  :: ::;;  ;; ;;<<  << <<==  == ==>>  >> >>??  ?? ??D lDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@ 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 [ \ ] ^ _ @@  @@ @@AA  AA AABB  BB BBCC  CC CCDD  DD DDEE  EE EEFF  FF FFGG  GG GGHH  HH HHII  II IIJJ  JJ JJKK  KK KKLL  LL LLMM  MM MMNN  NN NNOO  OO OOPP  PP PPQQ  QQ QQRR  RR RRSS  SS SSTT  TT TTUU  UU UUVV  VV VVWW  WW WWXX  XX XXYY  YY YYZZ  ZZ ZZ[[  [[ [[\\  \\ \\]]  ]] ]]^^  ^^ ^^__  __ __D lDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD` 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 { | } ~  ``  `` ``aa  aa aabb  bb bbcc  cc ccdd  dd ddee  ee eeff  ff ffgg  gg gghh  hh hhii  ii iijj  jj jjkk  kk kkll  ll llmm  mm mmnn  nn nnoo  oo oopp  pp ppqq  qq qqrr  rr rrss  ss sstt  tt ttuu  uu uuvv  vv vvww  ww wwxx  xx xxyy  yy yyzz  zz zz{{  {{ {{||  || ||}}  }} }}~~  ~~ ~~   D lDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD                                                                                                                                D lDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD                                                                                                                                D lDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD                                                                                                                                D lDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD                                                                                                                                D lDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD                                                                                                                                                         D lDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?        !!  !! !!""  "" ""##  ## ##$$  $$ $$%%  %% %%&&  && &&''  '' ''((  (( (())  )) ))**  ** **++  ++ ++,,  ,, ,,--  -- --..  .. ..//  // //00  00 0011  11 1122  22 223!!"!!!! 3!""334!!"!!!! 4!""445!!"!!!! 5!""556!!"!!!! 6!""667!!"!!!! 7!""778!!"!!!! 8!""889!!"!!!! 9!""99:!!"!!!! :!""::;!!"!!!! ;!"";;<!!"!!!! <!""<<=!!"!!!! =!""==>!!"!!!! >!"">>?!!"!!!! ?!""??D lDDDDDDDDDDDDDDDDDDD<<<<<<<<<<<<@ 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 [ \ ] ^ _ @!!"!!!! @!""@@A!!"!!!! A!""AAB!!"!!!! B!""BBC!!"!!!! C!""CCD!!"!!!! D!""DDE!!"!!!! E!""EEF!!"!!!! F!""FFG!!"!!!! G!""GGH!!"!!!! H!""HHI!!"!!!! I!""IIJ!!"!!!! J!""JJK!!"!!!! K!""KKL!!"!!!! L!""LLM!!"!!!! M!""MMN!!"!!!! N!""NNO!!"!!!! O!""OOP!!"!!!! P!""PPQ!!"!!!! Q!""QQR!!"!!!! R!""RRS!!"!!!! S!""SST!!"!!!! T!""TTU!!"!!!! U!""UUV!!"!!!! V!""VVW!!"!!!! W!""WWX!!"!!!! X!""XXY!!"!!!! Y!""YYZ!!"!!!! Z!""ZZ[!!"!!!! [!""[[\!!"!!!! \!""\\]!!"!!!! ]!""]]^!!"!!!! ^!""^^_!!"!!!! _!""__D 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 { | } ~  `!!"!!!! `!""``a!!"!!!! a!""aab!!"!!!! b!""bbc!!"!!!! c!""ccd!!"!!!! d!""dde!!"!!!! e!""eef!!"!!!! f!""ffg!!"!!!! g!""ggh!!"!!!! h!""hhi!!"!!!! i!""iij!!"!!!! j!""jjk!!"!!!! k!""kkl!!"!!!! l!""llm!!"!!!! m!""mmn!!"!!!! n!""nno!!"!!!! o!""oop!!"!!!! p!""ppq!!"!!!! q!""qqr!!"!!!! r!""rrs!!"!!!! s!""sst!!"!!!! t!""ttu!!"!!!! u!""uuv!!"!!!! v!""vvw!!"!!!! w!""wwx!!"!!!! x!""xxy!!"!!!! y!""yyz!!"!!!! z!""zz{!!"!!!! {!""{{|!!"!!!! |!""||}!!"!!!! }!""}}~!!"!!!! ~!""~~!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                                !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                                !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                                !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                    X            !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                                     !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !"" !!"!!!! !""   !!"!!!! !""   !!"!!!! !""   !!"!!!! !""   !!"!!!! !""  !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  !!"!!!! !""  !!!"!!!! !!""!!"!!"!!!! "!""""#!!"!!!! #!""##$!!"!!!! $!""$$%!!"!!!! %!""%%&!!"!!!! &!""&&'!!"!!!! '!""''(!!"!!!! (!""(()!!"!!!! )!""))*!!"!!!! *!""**+!!"!!!! +!""++,!!"!!!! ,!"",,-!!"!!!! -!""--.!!"!!!! .!""../!!"!!!! /!""//0!!"!!!! 0!""001!!"!!!! 1!""112!!"!!!! 2!""223!!"!!!! 3!""334!!"!!!! 4!""445!!"!!!! 5!""556!!"!!!! 6!""667!!"!!!! 7!""778!!"!!!! 8!""889!!"!!!! 9!""99:!!"!!!! :!""::;!!"!!!! ;!"";;<!!"!!!! <!""<<=!!"!!!! =!""==>!!"!!!! >!"">>?!!"!!!! ?!""??D 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 [ \ ] ^ _ @!!"!!!! @!""@@A!!"!!!! A!""AAB!!"!!!! B!""BBC!!"!!!! C!""CCD!!"!!!! D!""DDE!!"!!!! E!""EEF!!"!!!! F!""FFG!!"!!!! G!""GGH!!"!!!! H!""HHI!!"!!!! I!""IIJ!!"!!!! J!""JJK!!"!!!! K!""KKL!!"!!!! L!""LLM!!"!!!! M!""MMN!!"!!!! N!""NNO!!"!!!! O!""OOP!!"!!!! P!""PPQ!!"!!!! Q!""QQR!!"!!!! R!""RRS!!"!!!! S!""SST!!"!!!! T!""TTU!!"!!!! U!""UUV!!"!!!! V!""VVW!!"!!!! W!""WWX!!"!!!! X!""XXY!!"!!!! Y!""YYZ!!"!!!! Z!""ZZ[!!"!!!! [!""[[\!!"!!!! \!""\\]!!"!!!! ]!""]]^!!"!!!! ^!""^^_!!"!!!! _!""__D 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 { | } ~  `!!"!!!! `!""``a!!"!!!! a!""aab!!"!!!! b!""bbc!!"!!!! c!""ccd!!"!!!! d!""dde!!"!!!! e!""eef!!"!!!! f!""ffg!!"!!!! g!""ggh!!"!!!! h!""hhi!!"!!!! i!""iij!!"!!!! j!""jjk!!"!!!! k!""kkl!!"!!!! l!""llm!!"!!!! m!""mmn!!"!!!! n!""nno!!"!!!! o!""oop!!"!!!! p!""ppq!!"!!!! q!""qqr!!"!!!! r!""rrs!!"!!!! s!""sst!!"!!!! t!""ttu!!"!!!! u!""uuv!!"!!!! v!""vvw!!"!!!! w!""wwx!!"!!!! x!""xxy!!"!!!! y!""yyz!!"!!!! z!""zz{!!"!!!! {!""{{|!!"!!!! |!""||}!!"!!!! }!""}}~!!"!!!! ~!""~~!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                                !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                                !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                                !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                                !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                                     !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !"" !!"!!!! !""   !!"!!!! !""   !!"!!!! !""   !!"!!!! !""   !!"!!!! !""  !!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  !!"!!!! !""  !!!"!!!! !!""!!"!!"!!!! "!""""#!!"!!!! #!""##$!!"!!!! $!""$$%!!"!!!! %!""%%&!!"!!!! &!""&&'!!"!!!! '!""''(!!"!!!! (!""(()!!"!!!! )!""))*!!"!!!! *!""**+!!"!!!! +!""++,!!"!!!! ,!"",,-!!"!!!! -!""--.!!"!!!! .!""../!!"!!!! /!""//0!!"!!!! 0!""001!!"!!!! 1!""112!!"!!!! 2!""223!!"!!!! 3!""334!!"!!!! 4!""445!!"!!!! 5!""556!!"!!!! 6!""667!!"!!!! 7!""778!!"!!!! 8!""889!!"!!!! 9!""99:!!"!!!! :!""::;!!"!!!! ;!"";;<!!"!!!! <!""<<=!!"!!!! =!""==>!!"!!!! >!"">>?!!"!!!! ?!""??D 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 [ \ ] ^ _ @!!"!!!! @!""@@A!!"!!!! A!""AAB!!"!!!! B!""BBC!!"!!!! C!""CCD!!"!!!! D!""DDE!!"!!!! E!""EEF!!"!!!! F!""FFG!!"!!!! G!""GGH!!"!!!! H!""HHI!!"!!!! I!""IIJ!!"!!!! J!""JJK!!"!!!! K!""KKL!!"!!!! L!""LLM!!"!!!! M!""MMN!!"!!!! N!""NNO!!"!!!! O!""OOP!!"!!!! P!""PPQ!!"!!!! Q!""QQR!!"!!!! R!""RRS!!"!!!! S!""SST!!"!!!! T!""TTU!!"!!!! U!""UUV!!"!!!! V!""VVW!!"!!!! W!""WWX!!"!!!! X!""XXY!!"!!!! Y!""YYZ!!"!!!! Z!""ZZ[!!"!!!! [!""[[\!!"!!!! \!""\\]!!"!!!! ]!""]]^!!"!!!! ^!""^^_!!"!!!! _!""__D 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 { | } ~  `!!"!!!! `!""``a!!"!!!! a!""aab!!"!!!! b!""bbc!!"!!!! c!""ccd!!"!!!! d!""dde!!"!!!! e!""eef!!"!!!! f!""ffg!!"!!!! g!""ggh!!"!!!! h!""hhi!!"!!!! i!""iij!!"!!!! j!""jjk!!"!!!! k!""kkl!!"!!!! l!""llm!!"!!!! m!""mmn!!"!!!! n!""nno!!"!!!! o!""oop!!"!!!! p!""ppq!!"!!!! q!""qqr!!"!!!! r!""rrs!!"!!!! s!""sst!!"!!!! t!""ttu!!"!!!! u!""uuv!!"!!!! v!""vvw!!"!!!! w!""wwx!!"!!!! x!""xxy!!"!!!! y!""yyz!!"!!!! z!""zz{!!"!!!! {!""{{|!!"!!!! |!""||}!!"!!!! }!""}}~!!"!!!! ~!""~~!!"!!!! !""D l<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<'''''''''''''!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""!!"!!!! !""&<<<<<<<<<<<<(Q(  ~  <0 CC@&r],B0  <0 9 $<Create SUB Data File<}~~  <p1 CC@V& r],Bp1   1 9 $<Upload SUB Error File<~~  <1 CC@C)u],B1  4 1 9 $<Create SUB Data File<}~~   <82 CC@&r], B82  P 2 9 $<Upload SUB Error File<~~ ! <2 CC@ )u],!B2  l t2 9 $<Upload SUB Error File<~~ " <3 CC@X/ {],"B3   2 9 $<Create SUB Data File<}~~ 1 <|3  XPP? 3L]41@|3  wdNwO/ <1 for transaction line<cM~~ 2 <3  XPP? ]42@3  xdNwO/ <Shortcode or enter chartfields<2xx 3 6D4 XPP? GL?]43@D4  ydNwO/X <6 digits account<Kt2xx 4 64 XPP? U?]44@4 x zdNwO/X <5 digits fund code<Uxx 5 6 5 XPP?  J?]45@ 5  {dNwO/X <6 digits deptid<2  6 Bp5  XPP?*L]46@p5  WWIAm4d|-  < program code<B xx 7 65 XPP? ?]47@5  |dNwO/X <Class< 8 B86  XPP? L]48@86 h fmM!b <project/grant <- xx 9 66 XPP?   ?]49@6 @ }dNwO/X <10 digits Vendor ID<D xx : 67 XPP?  C ?]4:@7  dNwO/X <YYYY/MM/DD Invoice Date<_  ; Bd7  XPP?  UO]4;@d7 x 49M3;  < invoice id <7  < B7  XPP?  }L]4<@7  N*NM 9[T  < uniqname <9  = B,8  XPP? C {E]4=@,8  JkL{on  < location <0  > B8  XPP?O]4>@8  #תOd3;T  < deliver to < 6    ? B8  XPP?PL]4?@8 P jK[MaF  <order number < N   ~~ @ <X9  XPP? _u]4@@X9 8 ~dNwO/ <Departmental Reference Number< A B9  XPP?I]4A@9  ".6N <trip/event number < m  B B :  XPP?GR]4B@ : x   $FJ1 y Y <item id< 'gxx C 6: XPP? ?]4C@:  dNwO/X <Item Description<N D B:  XPP?"\]4D@: " Qa GL){!  <manufacturer <L M E BL;  XPP?O]4E@L; #  ;LR@  <model number < R    F B;  XPP?I]4F@; P$ "5OvpGµ~w  <serial number< N  G B<  XPP?QL]4G@< 8& ydGѱ I  < tag number < B   xx H 6x< XPP? ?]4H@x< & dNwO/X <Quantity Vouchered<`xx I 6< XPP? |?]4I@< ( dNwO/X <Unit of Measure<L~~ J <@=  XPP? |)L]4J@@= ) dNwO/  < Unit Price<- ~~ K <=  XPP? GL]4K@= + dNwO/ <Merchandise Amount<d~~ L <>  XPP? | JI]4L@> , dNwO/ <Voucher Comment<Wxx M 6l> XPP? |!%?]4M@l> - wBO^Ӝ{ X <M-Pathways: Unit of Measure<xx N 6> XPP?  | 6]4N@> - 8@#N6E> X <M-Pathways: Merchandise Amount<xx O 64? XPP? !]!6]4O@4? / (r3Mr->X <M-Pathways: Unit Price<wxx P 6? XPP? ##`6]4P@? @0 2fh@NxX <M-Pathways: Voucher Comment<xx Q 6? XPP? ##6]4Q@? p1 dNwO/X <M-Pathways: Program Code<-1!A satisfied Microsoft Office userX-2!A satisfied Microsoft Office userX-3!A satisfied Microsoft Office userX-4!A satisfied Microsoft Office userX-5!A satisfied Microsoft Office userX6vbngt-7!A satisfied Microsoft Office userX8vbngt-9!A satisfied Microsoft Office userX- :!A satisfied Microsoft Office userX ;vbngt <vbngt =vbngt >vbngt?vbngt-@!A satisfied Microsoft Office userXAvbngtBvbngt-C!A satisfied Microsoft Office userXDvbngtEvbngtFvbngtGvbngt-H!A satisfied Microsoft Office userX-I!A satisfied Microsoft Office userX-J!A satisfied Microsoft Office userX-K!A satisfied Microsoft Office userX-L!A satisfied Microsoft Office userX-M!A satisfied Microsoft Office userX-N!A satisfied Microsoft Office userX- O!A satisfied Microsoft Office userX-!P!A satisfied Microsoft Office userX-"Q!A satisfied Microsoft Office userX>@A @7 Sheet1gg@h4hRange1 &A Page &P"P??> P "P??> P "P??> P Module1__SRP_2l__SRP_3oModule2 Y*  !"#$&'()*+,-./012346789:;<>@ACDEFGHIJLMNOPQRSTV*\R0*#f*\R0*#14*\R0*#13*\R0*#1*\R1*#1c7*\R0*#11*\R1*#f1*\R1*#e8*\R1*#d7*\R0*#f*\R1*#f1(   (0@P`p  0@P`p   0 @ "H P(h" 4.( 0 4P& $$J 6PVdwxRRMED@H6 LLLLLLZ- ((@K (Bd  (D8p0 (FXP (Hxp (J( h(LJ H(N ((P (R (T0  V`HTkWW(`Xz`Zx`\v`^p@`` `b\`dX`fT`hP`jxL  @%`l8`n`p`r`t`v|`x`xt`zp`|l`TPh`~f``d```\8(%x0Hh 0 @X Cx@T D$%@HD X@`4 @x$ @ %T@ T@ %@@ @8 'x@ *F@  :D@  @P @h X@ x@ X@ x @ h 6@ X $%@ H X@ 8 c%@( ( @X  h'x@p  @ @ @ @ hX@ kzD@ $@ @ /@0 @H t @` d ]@x T 6@ D kxD@ @ X @ < @ , ~'@ ( *@8 $ *\@h  *#@P  #1@ (@ @ @ @  `A% @  @0  @H  @`  @x  @  @  @  k@  @  @ 4@  @8 Cx@P D$%@h X@ @ @ gkz@| $@x @t $@p T@(l TX@@h T@Xd @p` kxD@\  @X 8'HT`:A%'H 88H$*\Rffff*0748d3a824(*\Rffff*0748d3a824\0*\R1*#2ac*\R1*#e8*\R1*#d7*\R1*#1c8 ^H&P x         Z 8H P` h x "Z&g    Z0nP&g p   P &f      b &f8 `     0 &]8 ,j`    ( 4]0 &gh   (0L8 &g  8 HPX`  hF&g ,l&g  N]FH&g P`h  ph&g   HZ^ &gx  8 HP *X  @Zv &g`    08 *@px  HZ>^ &g @   * (08    l&g @PX " `V^&g   FZ0:^x&g x0  FZJ^@ &g   P!`!h!0p!!!  !BZ!>^"&gX"" # #(#00#`#h#  p#:^#&g## $$$ " $LZ$@^%&gX%% & &(&00&`&h&  p&TZ&H^&&g0'X' '((0(H(P(  X( Zx(n(&g)0))))  )NZ)&gH*p* ++ + & (+@^P+&g++ H,X,`, $ h,JZ,>^,&g -H- ---0-(.0. " 8.B^`.&g.. `/p/x/ " /:^/&g/0 000 $ 0FZ0:^(1&gh11 2(202082h2p2  x2FZ2:^2&g 3H3 33303 4(4  04`P4&g44 p555  5JZ5@^6&g@6h6 67707H7P7  X7@x7&g77 888 ( 88&g`99 8:H:P:LX:p?:&g;@; ;;<< @< P<`<h< <== @^=&gP=x= >> > &g> > >> ??? 0?@?  H? X? h?x?  (>j+8>>  J?? ? p?zHX@@@A.+AzH@AAA AA8!A 1(B@B nePBBBNcB C  (C@C@J`C"CC"CCjQCXDpD D .+D jZD8E @E!PE&!hEEE@JEE 4PF:J8FxFFFF4PF :JF(G0G8G @GPGXG`GhGGG G GGJGRGN@HNXHNpHNHNHNHNHNHNI*yINHIN`INxININININININJN JN8JNPJNhJNJ2yJNJ4yJ2y KNXK$pK 1KKPLXLM  M 0M 8MHMPM  `XMM M M M&M"YNf[@N NNNZN fYO0@xOO 4 OHAO, 0P[`P `PN@Q(yXQ0yQ$Q 1QB7Q RJD(RxR R TeR dR HS.+XS S S1S VHST6FTPT  XTTpT TTTT TTeT`+U hUxUUUTeU"+U V V(V 0VXV sub_batch MacroX^D^D8^DX^Dx^D^D^Dct^D^ De^ D8^DX^Dx^  }^D^D^D^D^D8^DX^Dx^D^D^D^ D^^D8^DX^Dx^D^D^D^D^p8]xRows.]Used for column locations.]Final row with sums.]&trailing sequntial number on filename.]]path and file without extension]] Output file write]8%Excel file with same name as dat file]PSpreadsheet name save as]hUsed for file length.]Variable to end macro];Used for a Yes, No switch for shortcode/chartfields message]'drive & directory where file is stored.]]]]]0]H]`]x]]]]W''''''     iU !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTVWmZ[\]^_`abcdefghjklnoqstu~wxyz{|}p''''''''''''''''''Check data lengths for each cell of data entered''''''''''''''''XSet starting row as 2Y'rN'vN'nN'N'xN't rYb'Z Z vNb X Z %$Y'vk Z 'Z vYY'r'Z card type X Z %$1 X Z % B@ERROR - Card Type on row X2 column A must be a 1 if it is a transaction line. $ $If  X' is not a transaction line, leave blank $ $File not created.A@Y'gk Z 'Z shortcode X Z %$ X Z %$ X Z %$$s! Short Code Length and Validation X Z % B@ERROR - Short Code on row X must be a 6-numeric value. $ $File not created.A@Y'gxkp X %$ X %$eaccount X % B@ERROR - Fund Code on row X; must be 5 characters in length and must not be left blank. $ $File not created.A@Y'g8k0 X %$ X %$edept Length and Validation X % B@ERROR - Deptid on row X; must be 6 characters in length and must not be left blank. $ $File not created.A@Y'gadd logic for deptk X Z %$ X Z % B@'ERROR - Account must be entered on row X with a shortcode. $ $File not created.A@gkd X Z %$;account X Z % B@$ERROR - Shortcode or account on row X must be entered. $ $File not created.A@Y'gd X Z %$ X Z %$ X Z % B@(ERROR - Shortcode or Chartfileds on row X must be entered. $ $File not created.A@Y'gkkk Z 'Zaccount X Z %$ X Z %$$ X Z % B@ERROR - Account Code on row X, is required and must be a 6-numeric value.  $ $File not created.A@Y'gXdP X Z %$$4 X Z % B@ X Z % is a Revenue Account! $ $Do you want to continue?  X Z % IS A REVENUE ACCOUNT$'l lGjk0k( Z 'Zfund X Z  %$:Fund Code Length and Validation X Z %$ X Z %$$ X Z % B@ERROR - Fund Code on row X+ is required and must be a 5-numeric value. $ $File not created.A@Y'g k Z 'Z X Z %$ X Z %$$wDeptID Length and Validation X Z % B@ERROR - DeptID on row X+ is required and must be a 6-numeric value. $ $File not created.A@Y'gH k@ Z 'Z X Z %$7! Change Program Code to Uppercase X Z %$ X Z %$m Program Code Length X Z % B@ERROR - If Program Code on row X$ is needed, it must be 5 characters. $ $File not created.A@Y'g d X Z %$ X Z ,kp kh Z 'Z X Z %$7 Change Class to Uppercase X Z %$ X Z %$m+If Class is entered it must be 5 characters X Z % B@ERROR - If Class on row X. is needed, it must be 5 characters in length. $ $File not created.A@Y'gd X Z %$ X Z ,kk Z 'Z X Z %$7" Change Project Grant to Uppercase X Z %$ B Project/Grant Length X Z % B@ERROR - Project Grant on row X must not exceed 15 characters. $ $File not created.A@Y'gd X Z %$ X Z ,kkd X Z %$ X Z %$ X Z %$ ShortcodeY'nk( Z 'Zk Z 'Zvendor X Z %$  X Z %$$w Vendor ID Length and Validation X Z % B@ERROR - Vendor ID on row X, is required and must be a 10-numeric value. $ $File not created.A@Y'gk Z 'Z invoice date X Z %$ =- Invoice Date Length. 6 is minimum ie. 2/2/99 X Z % B@ERROR - Invoice Date on row X< must be 10 characters in length and must not be left blank. $ $Date format must be YYYY/MM/DD $ $File not created.A@Y'gk Z 'Z invoice id X Z %$5 Change Invoice ID to Uppercase X Z %$ ;Invoice ID Length X Z % B@ERROR - Invoice ID on row X) must not exceed 30 characters in length. $ $File not created.A@Y'gpdh X Z %$$ X Z ,k0k( Z 'Zuniqname X Z %$5 Change Unique Name to Lowercase X Z %$ :" Unique Name Length and Validation X Z % B@ERROR - Unique Name on row X( must not exceed 8 characters in length  $ $File not created.A@Y'gd X Z %$$ X Z ,kXkP Z 'Zlocation X Z %$5 Location Code to Uppercase X Z %$ @ Location Code Length X Z % B@ERROR - Location Code on row X must not exceed 10 characters. $ $File not created.A@Y'gd X Z %$$ X Z ,kk Z 'Z deliver to X Z %$ > Deliver To Length X Z % B@ERROR - Deliver To on row X must not exceed 30 characters. $ $File not created.A@Y'ghk` Z 'Z order number X Z %$5% Change Vendor Order Num to Uppercase X Z %$ @ Vendor Order Num Length X Z % B@ ERROR - Vendor Order Num on row X must not exceed 20 characters. $ $File not created.A@Y'gd X Z %$$ X Z ,kk Z 'Z ref number X Z %$5- Change Departmental reference # to Uppercase X Z %$ @ Departmental reference # Length X Z % B@-ERROR - Departmental Reference Number on row X must not exceed 30 characters. $ $File not created.A@Y'gd X Z %$$ X Z ,kk Z 'Z trip event X Z %$ X Z %$ X Z %$t( Trip Event Number Length and Validation X Z % B@!ERROR - Trip Event Number on row X must be a 6-digit value. $ $File not created.A@g8k0k( Z 'Zitem id X Z %$5'Item ID placeholder not currently using X Z % B@+ERROR - Not currently using Item ID on row X Please delete Item ID. $ $File not created.A@Y'gk Z 'Zitem description X Z %$ > Item Description Length X Z % B@ ERROR - Item Description on row X must not exceed 30 characters. $ $File not created.A@Y'gk Z 'Zvendor item id X Z %$5# Change Vendor Item ID to Uppercase X Z %$ @ Vendor Item ID Length X Z % B@ERROR - Vendor Item ID on row X must not exceed 20 characters. $ $File not created.A@Y'gd X Z %$$ X Z ,kk Z 'Z manufacturer X Z %$ > Manufacturer Name Length X Z % B@!ERROR - Manufacturer Name on row X must not exceed 30 characters. $ $File not created.A@Y'gk Z 'Z model number X Z %$ > Model Num Length X Z % B@ERROR - Model Num on row X must not exceed 30 characters. $ $File not created.A@Y'gPkH Z 'Z serial number X Z %$5 Change Serial Num to Uppercase X Z %$ @ Serial Num Length X Z % B@ERROR - Serial Num on row X must not exceed 25 characters. $ $File not created.A@Y'g d X Z %$$ X Z ,k k Z 'Ztag X Z %$5 Change UM Tag Num to Uppercase X Z %$ @ UM Tag Num Length X Z % B@ERROR - UM Tag Num on row X must not exceed 12 characters. $ $File not created.A@Y'g d X Z %$$ X Z ,k k Z 'Zquantity X Z %$ X Z %$p Quantity Vouchered Length X Z % B@"ERROR - Quantity Vouchered on row X& must be a less than 16-numeric value. $ $File not created.A@Y'gx kp Z 'Zuom X Z %$5$ Change Unit of Measure to Uppercase X Z %$ ? Unit Of Measure Length X Z % B@ERROR - Unit Of Measure on row X must not exceed 3 characters. $ $File not created.A@Y'gd X Z %$$ X Z ,kk Z 'Zprice X Z %$ X Z %$ X Z % B@ERROR - Unit Price on row X6 is required and must be a less than 17-numeric value. $ $File not created.A@Y'ghk` Z 'Zmerchandise amount X Z %$ X Z %$  X Z %$$) Merchandise Amount Length and Validation X Z % B@"ERROR - Merchandise Amount on row X: is required and must be between 1 and 17 digits in value. $ $File not created.A@Y'gk X Z %$ X Z %$ X Z % !% X Z % X Z % !% X Z % B@"ERROR - Merchandise Amount on row X2 must be equal to Qnty vouchered times Unit Price. $ $File not created.A@Y'gkk X Z %$ X Z %$ Z 'Zd"ERROR - Merchandise Amount on row X must be an Integer. $ $File not created.A@Y'gk X Z %$ > Voucher Comment Length X Z % B@ERROR - Voucher Comment on row X must not exceed 30 characters. $ $File not created.A@Y'gk nY]**WARNING** When shortcode and chartfields are both supplied we will only process chartfieldsA@k X Z % B@ NY'tdN'tkd blank rowN'rk X 'XN'vN'pD''''''write to file if row found and no errors'''''''''''''''''''''' tYi''''''''''''''''''' Set Save directory and file, depending on Win or Mac computer''''''''''''''''''''''''/Enter Sequential Number for sub_in_###.dat file File Name001$'^^ Get final 3 digits for filename. ^Gj ^ ^ b"You need 3 digits for the filenameA@/Enter Sequential Number for sub_in_###.dat file File Name001$'^b Get final 3 digits for filename.(>k >.xls'z.dat'| ^$'^5 Take last 3 digits from input. !*Win*c:\temp\'p  psub_in_ ^.dat, *.txtSave Data File As? %'dd(='p psub_in_ ^.datSave Data File As? %'dk< dFalse dsub_in_' d d d  dsub_in_   $' d$~'~ d$~b00 ~' ^, is already used. Try a different sequence.File Already Exists.00 ~ $'^ ^Gj ^ b ^Gj"You need 3 digits for the filenameA@ , is already used. Try a different sequence.File Already Exists.00 ~ $'^: ~ '~ ^$'^ sub_in_ ^.dat'dX: dsub_in_' d d d  dsub_in_   $'k9 d. d$dat d d d  d.   $'bdp9 d. d'bd@9 d. d$dat d d d  d.   $'bk8k8k8 b |'dd88k8$'f Output file d f kH8@8 tY'X X %b C'''''''''''''''''''''Acutal file creation'''''''''''''''''''''''''' X %9l X %9 X %9 X %9 X %9 X %9 X %9  X %9" X %9$ X % YYYY/MM/DD$9& X %9( X %9* X %9, X %9. X %90 X %92 X %94 X %96 X %98 X %9: X %9< X %9> X %9@ X %9B X %#############.0000$9D X %9F X %##############.00000$9H X %##############.00$9J X %9L $9T !*Win* f5l555555 5"5$5&5(5*5,5.50525456585:5<5>5@5B5D5F5H5J5Ld3 f5l555555 5"5$5&5(5*5,5.50525456585:5<5>5@5B5D5F5H5J5L5Tk2Y'xq2 X 'X2k2Z'''''''''''''''''Find out how much data is there and create sums in fRow''''''''''''''''''02 xY'\'X_AStart counting the valid rows X %$1=round(R XC28,2) X ,A/Add calculation for rounding merchandise amount X 'Xk01 X %$19&Keep going until the end of valid data X %$19>If there's already a 2 in col 1, get rid of it(Kind of a dupe)2 X ,AStart the sum linek@0 X '\ASet fRow to last line of data \ X ,A*Total Records input to final row, column 2 X '\ASet fRow to final row =sum(R2C28:R \C28) X ,AH Puts Rounded Merchandise sum into final row, column 13(Merchandise Amt) R'''''''''''''''''''''Acutal file creation''''''''''''''''''''''''''''''''''''''''' X %9l X %0000000$9P X %#############.00$9R $9T !*Win* f5l5P5R." Prints Only the final line totalsd- f5l5P5R5T;" Prints Only the final line totalskp-qh- % B@D(This resets the cursor to row 2 column 1^'''''''''''''''''''''''''''Close up .dat file and save spreadsheet'''''''''''''''''''''''''''' fV"File created and ready for upload.A@`, b z'h !*Win*   h, *.xlsSave Excel Workbook As? %'jd+ hSave Excel Workbook As? %'jk+ jFalse j B@dFkX+kP+gH+@+ % B@F(This resets the cursor to row 2 column 1SFile not created and Spreadsheet not saved. No File Number Input or User Cancelled.A@Y'Wp*gh*`* % B@F(This resets the cursor to row 2 column 1Spreadsheet not saved.A@Y'W)g)o)) VAttribute VB_Name = "Module1" ' sub_batch MacroH Option Explicit Type SUBLoad  As Sng * 1 6Account< FundC < 5=Dept ID<=Prgm=Class.PGraL 1>Vendor? ]10Ninvda0Invoiceid3`UniqnӍ8/Loca͂/Deliverto//ordnu4m 72WRefNA'TrippeveH CvIhtemf1/Dxesc''itmH'Man "" Thenj3 a\If 1 +CLoop Y 1 2',d t@3n1+)$&nce:=, Sll:=TruD MsgBox ("ERROR - Card`e "0E Q`"nA must be a 1 if it Fa @jnsacje.Chr(13)@c0not@}, 7^blankLSe Qc`tO"~A6/E!b!_3!!= P"'vZ3* pLen(.}.) > 6 Or Is@ТcO11 ' . R`n qVali M~C`H7&9ow9&>&eO&"%6-  g$& %I @sA4HLok 25 'a =5jB4)__=!OG5 "" And Len(\/6 Then @ 'dept6gth aAValLidf {GoTo Reference:=, Scroll@:=True&MsgBox ("ERROR - DAid on row " & m" must be 6 characters in lenXnolef lank.#Ch`r(13)$ File created.")P!Ҁadd logic f灣!col + 1q"e"^&`AccountF[enYeSdwi shortcode9ZILElsOf4Q)PSC aSYd,'Th) )2EQ!3SWg@ . n.C`tf@{ds/Az `T Zȹ@iCU!a*= 'IC7b)`26 Or IsNumeric[çꐿ g8C7is requira 6-nc value. ﾴ4;/L@)@Y1)a4]|?u~/C Q"thee{=_$21- 0a|venue  !_s Do y ou wabto0*nti?", vbOKCal, IS A REVENUE ACCOUN^T x0. ,1( 2exitproge4 44fuŖMȕ(QB3 'F *8u::5:OHS:_Wߚ:a:?W ;n"q%: a 5:&&W/v! /OUs@,`'1IDU  Wd?Wc4W/WOt 0[,~z5!'Fu9x]O!n!P!!needed, i5ڿ&!!10!!;3g= UC U:?'5((lication.Cells(nRow, col)) <> "" Then ' Change Class to Uppercase If Len(Trim(Appl) > 0 And&^5eis entered it must be 5 characs GoTo RefA;nce:=V, Scroll:=Truv MsgBox ("ERROR - Lon row 0" & " Vneeded,V in length.Chr0(13) File not created.")tLet error = "Y"" EndEl KH UC{uvIfGCA)A+ 1@Q_ҦProject Granbt> 1Ĝ·' /jE-?8љex>c0?K KKA,II LsHl @NfATܖ2(3Shortcod`switch@!u e4#" # 1S'vendor@#a.10 Or IsNumericXõb' V IDf a7Validb#srequia 10-n valuehճ30h8C 9 C:invoice 'DI:Y: 6g3 IDd. kminimum ie. 2/2/993 tOp^)"t) "~)Mt%#PPlefЁlatnk&vBfPorma'Y/MM/DDyyvyq `J'it|`Kݏ U09ߜ oB_)>> 30%~'Hqqol#q0?#4# ##xq0 #= 3fqI/ # f&Do7%uniqnamOD%% Upue NLow /J?B1B"%8%Z3%c/&/&/&/&?&?&8I_D_Do߽a D Y/&ʗLR/&di%_K&lo33/?K‡L C0%%%Pc' K;n_%%%Zo/m mOiB Kerror = @"Y" End`Else`Application.Cells(nRow, col)UCase(Trim( R))nd I.f t LetZY` + 1'deliver to%If Len!v > 3@0 Then'$ DKTo!gth) _GoReference:=m, Scroll:=TruMsgBox ("ERROR -;on row " & " must not exceedZcharac ters.Ch`r(13) Filecreated."#{`ord`nu0mbera} <> ""`' Change VendONumu Upperccx2x@Hzzz N{N |@1|T} }@|| ||ref ?Lk)2LDepartmentalf x #?M؝)) ?Na0NJF k v O_w&X ̿OOtrip evFEO?LW6 Or Is4erica]# ' p NE=O a`Valid~~(CuO '$obe a 6-digit valuen&'rnM%  olvitem ihp # 'IID placeho&ls urptly usingIo5'oaNN   " Plew eteQ?h"hϟϟ 'Bdesc9a?SO[' D&2@ҡYOqF!3+Zz)to y7yx/%P ߿x!%G?%gXmanufurP>' M Name>>oXnX>B End cp IfX(Let col =+ 1'model numberIf Len(Trim(Application.Cells@(nRow,))) > 30 Then 'D MMNumBg$thQ GGoTo Refer@ence:=c, Scroll: =TrueMMsgBox ("E@RROR -von row " & T" must not e xceedYcharacters.Chr(13) Filecreated. ")Berrobr"Y" seria <> ""' Change S`to UppercasN*w25 wHwww Nxx@.xyڀlWB@UC@c!ȓtag=IIUM Tag I 12 IH I{)IhId!IDx IrIIsquantityI6WB16 Or Is H`c{AP#AD' Qd VouchdʿmV?A}?AeUnit of Me@asure f IQ?"{AOA׈_A ߄3 BτBƄBB9q f/e?BoeS!HefP 'pr|icԅZA7A/ $ A ?b? 2 P o " is requirandC]@7_@p!p_@O@H@mJdisKmount`OA<Ɗ`GŠ`] A qFP V0alid" !n.B33B"BMo"o"`"betw ep1 17 digits inco"""""E=P3;`1;WorksheetFunc2R(d_, 2)@4 * OJ "i ο33%G%%h$PHxQnty vouchered times Unit Price." & Chr(13)$" 8File not created.") Let error = "Y"0End If BIf Trim(Application.Cells(nRow, col)) <> 0 Or!*=)Then^ G"Q+ 1 ElseMsgBox ("ERROR - Merchandise Amount on row L must be an Integer7WnLen() > 30F ECn' V `Comme@7g$th bGo@To Ref@nce:=i, Scroll:=Ttfields are both su!@Bwe will sly processIA 'C,to fifzc@~s On EBcexitg8f S Save dir@ectory`d, depe@ngaWin Mac mpu`'1 a` eanamAIInrqu`~ial Number f sub_in_###.datB", "N 001") 'Gfin3gits"E.@?iL& @VLn(f@ 3& DoC4A ᙦIYou nthe!ABCF @S$$me$ $d hTxlse.b{kA2A3bRight'(, ' Take la0kwrom i"R!iOOperPyngSystem LRi@"*(*ILs#,Q c:\Pp\qR s5Te2tq/As%( :_i)u:=& "*xp=2,q01:=*.txtpPTitl0l"27Data -As?!V  q~ 8 , , ,05"Fa@ZCVInSt ,O<paT= Mid(V, 1,8)А(7s?PDPBc)p DirW0>> AC @M@Hn=?"d.cer2'00!; PPJ$ ifl0dy us]p XDft seaSeQAExist@p ~ 1W`7< .QS;Oa2Q'SOnOC R:\RoYS&/Tl/@//j+4  ?R)-R1 FtpX07ɬ7 7me777!Y'e {#B#( ݰ0 AG#beAGh=|1W_no_extECE? 4  1 X4_ P"1P)hk U _ /w=____1v5 End If sfilename = (_no_ext & datElselGoTo exitprogc4OutxFreeF()'8put]5 Open vFor !Access Write ,AsUL0= (SUBLoad) O`n ErrI If row_to_w*= "Y" ThenDnRowY2Do Wh[ Application.@Cells(, 1) <> "" With" F 'Acutal{ cre) + .8TypƗCSh@ortcod2 Cb.Wount @<3 Fund C4G DeptIDX5 Prgm\6G Cla=e7Gra78 VendorŚ,9G inv@ÁY!@mat(g0),YYY/MM/DD"Inv@oiceidXI11 UniqVYwLoì1HItem 81h>DescGy>itmZ620G6Manuf|62H<97V530.Y,3(ni%!'z`tPI ..P.dn1^`@P2LϐIum`?P nPG2;x 0tћtRQ#b+ 1ALo$opy ϗFiohmOQ@a is tqP ae sums in f@=/id$ LepS02 U#?_'Start cAPingA valmPsl "m/v)9L"1KH/a , $30=r d( R"p & "C28,2)" 'Add calcul" fp! ma[`ise a[c r=c$ g Until z 'Keep go/ С ofa ao=¶1'p$'s aldy a 2$col 1, gpr`0Pit(KR)f0duperP2" p, lin2 (=- 'S 1 0tBAt4iAMsgBox ("F1ed y f+upload. On ErrEexitprog2excel=B)_no_ext & x>lBv3 ""Zen)AAcheck@*o)? i*y(ink* ] Bt(ime 6 = MsgBox("@you coXue Bofa4ny!s4. &A!suwa$ntdois?", vbOKCann, "  ?"B[e abA Warnvf &w;zand lH*F`-qui( a1ow 1%'-@cpi'upb$`0 #CN d#. 1=OK 2=#wDR 2@77;).De!{'wasK7Ț"said OK, it dkA3#Loop zU :lfKa\' Goes l a@pur! E0If!-N2-bA(r `"C'"!.ake `3` 0OperPSystem Li"*Win*e1'C1'P0it's a PC !a MacGQ =u>c:\p\O* SoPZ TYg4ll=>> @FgeKdpzCC|CCxCtC l0Ipxkxl|0ZkzDD%kxD$%TX$ X XT :]@)XT6C| kxpxR l|0ICpxZkzDD%kxD$%TX$ X XT :]@)XT6gkzDD%kxD$%TX$ X XT c%$  )XT5''' kz#*# *F  :D  :4 kzD$x: h X XH:8 ( (: 26$xhXH8(Cx kxpxZkzDD%kxD$%TX$ X XT :]@)XT6h kzDD%kxD$%TX$ X XT (]pkzD%kxD%$  X  )XT6 gkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'xkz#*#*F  :D  :4 26xhXCxkzDD%($%TX$ X XT :]kz#*#?*F  :D  :4 26xhX kxpxZkzDD%kxD$%TX$ X XT :]@)XT60gkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'x@kz#*#A*F  :D  :4 26xhXCx kxpx^kzDD%kxD$%TX$ X XT (]t)XT61gkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'xBkz#*#:*F  :D  :4 26xhXCx kxpxZkzDD%kxD$%TX$ X XT :]@)XT664^kzDD%kxD$%TX$ X XT (]t)XT63gkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'xCkz#*#<*F  :D  :4 26xhXCx44kzD%kxD%kzDD%kxD$%TX$ X XT  ($  X)XT6 kxpx^kzDD%kxD$%TX$ X XT (]t)XT65gkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'xDkz#*#:*F  :D  :4 26xhXCx kxpx^kzDD%kxD$%TX$ X XT (]t)XT66gkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'xEkz#*#:*F  :D  :4 26xhXCx kxpxZkzDD%kxD$%TX$ X XT :]@)XT6M9^kzDD%kxD$%TX$ X XT (]t)XT68gkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'xFkz#*#G*F  :D  :4 26xhXCxK9kzD%kxD%kzDD%kxD$%TX$ X XT  ($  X)XT6 kxpxZkzDD%kxD$%TX$ X XT :]@)XT6;^kzDD%kxD$%TX$ X XT ( ]t)XT6 ;gkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'xHkz#*#I*F  :D  :4 26xhXCx;kzD%kxD%kzDD%kxD$%TX$ X XT  ($  X)XT6 kxpxkzDD%kxD$%TX$ X XT (]pkzD%kxD%$  X )XT6S=gkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'xJkz#*#K*F  :D  :4 26xhXCx kxpxZkzDD%kxD$%TX$ X XT :]@)XT6?^kzDD%kxD$%TX$ X XT (]t)XT6?gkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'xLkz#*#M*F  :D  :4 26xhXCx?kzD%kxD%kzDD%kxD$%TX$ X XT  ($  X)XT6 kxpxkzDD%kxD$%TX$ X XT (]pkzD%kxD%$  X )XT6YAgkzDD%kxD$%TX$ X XT c%$  )XT5'X'h'xNkz#*#O*F  :D  :4 26xhXCx kxpxkzDD%kxD$%TX$ X XT (]pkzD%kxD%$  X (]cxhkzDt%kxDT%<@$ @ X l0J+''':DUN 6Kd l0PH'''':$VN:4WN:DXN Y1p6 lp0nJdlpJKlpJK+''':DZN 6H'''':$VN:4WN:DXN Y1p6}Jp\Cl!pMD@ ] `1p51 X$ X tl^~/XK_Ce '%:4`%'$%:Da%lb*#lp*#\*F%X$ X |`1X2X6ELCc '%:$`%'4%'D%lb*#lp*#\*F%X$ X |`1X2X6 lXc=\PlXb1\JlXJlXJl\PlXbiXMD@ d`1`6"XMD@ e#=/Npf"XMD@ e#=/Nfkf#*#pd2Q''''fkf#*F:DgNlph*F Y1p/6 lp0MdlpJ-N lp0Md+''':DZN 6Z''''fkf#*F:DgNkd#h*F Y1p26M kfpf!pMD@ ] `1p5!l`b*#lp*#\*1X2LlXb1\JlXJlXJl\PlXbiXMD@ d`1`6PlXi$XMD@ ] :4j]<'6$OJlXJlXJl\PlXiiXMD@ d`1\6KPlXiOlXC\IPPlXi$XMD@ ] :4j]/'6$GPJlXJlXJl\PlXiiXMD@ d`1\6 l\ll*1XcPd' k1T5lXlT]Kd l0^pzJkzDD%($%TX$ X XT:]@)XT5^qNkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#$G/)XT5NkzDD%($%TX$ X XT`#0G/)XT5NkzDD%($%TX$ X XT`#:G/)XT5NkzDD%($%TX$ X XT`#DG/)XT5NkzDD%($ %TX$ X XT`#bG /)XT5ykzDD%($ %TX$ X XT:lN m`#vG /)XT6NkzDD%($ %TX$ X XT`#G/)XT5NkzDD%($ %TX$ X XT`#G/)XT5NkzDD%($ %TX$ X XT`#G /)XT5NkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#&G/)XT5NkzDD%($%TX$ X XT`#NG/)XT5NkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#ZG/)XT5NkzDD%($%TX$ X XT`#G/)XT5NkzDD%($%TX$ X XT`#G /)XT5ykzDD%($%TX$ X XT:nN m`#G/)XT6NkzDD%($%TX$ X XT`#G/)XT5ykzDD%($%TX$ X XT:oN m`#G/)XT6ykzDD%($%TX$ X XT:pN m`#(G/)XT6NkzDD%($%TX$ X XT`#JG/)XT5$  `#G/51 X$ X tl^~/XX\J3#\(3#`3#d3#h3#l3 #p3#tZ3#x3#|3#3#3#3#N3#&3#3#3 #3#3#v3 #b3 #D3#:3#03#$3#3#3#3#3#lTq|2:|xtplhd`\]3#XJ3#\(3#`3#d3#h3#l3 #p3#tZ3#x3#|3#3#3#3#N3#&3#3#3 #3#3#v3 #b3 #D3#:3#03#$3#3#3#3#3#lTr2<|xtplhd`\XCt q kzpzPKd lt0dpvpzYkzDD%($%TX$ X XT :]3)XT6^[kzDD%($%skz#*#t*F%TX$ X XT2)XT5 kzpzZkzDD%($%TX$ X XT :]@)XT68^YkzDD%($%TX$ X XT :]@)XT6_@kzDD%($%:u%TX$ X XT)XT kzpvAkzDD%($%kvD%TX$ X XT)XT kzpv[kzDD%($%vkv#*#w*F%TX$ X XT2)XT5qTNkzDD%($%TX$ X XT`#TG/)XT5ykzDD%($%TX$ X XT:xN m`#TG/)XT6ykzDD%($%TX$ X XT:yN m`#TG/)XT6$  `#TG/51 X$ X tl^~/Xwb7T3#T3#T3#lTz2bDT3#T3#T3#T3#lT{2 qTe(D%($%TX$ X XT c%$  )XT5 lT=+''':D|N 6KLe l\lp*1P1 X$ X tl^~/XcH '%:$}%'%:4~%lPFD%X$ X |`1LX57dF '%:}%'$%'4%lPFD%X$ X |`1LX5 lLc=dT 't%'%'%'%'%'%'%'%'$%'4%lLFD%X$ HX XdLee(D%($%TX$ X XT c%$  )XT5+''':DN 6Cx>e(D%($%TX$ X XT c%$  )XT5+''':DN 6Cx>(e`lP|hLX\txp\I pT ` p :|xtplhd`\XXT@<($ xhXH8(?kh$19*20: 22)25730356?60ɇ38:38 40 .!H@2@j/FsUobɌ)1Lora0߷rA;~T1k[`1352ls!wrol ~l  L(x >p0 8H P X,@ pP( T    F( p  N h P@ : 4 Z <h 8 4 x    8H`h p   (0 8P `p    (8PX `x      (8PX J`P r 0 .  0]H Variable for Overwrite msgboxH]` Import Filename]x Default import filename] -Variable used for counting the number of rowse] !Directory to import the file from] Input filename] _Variable used for keeping track of spreadsheet names - This one is for the sub_excel_loader.xls] XVariable used for keeping track of spreadsheet names - This one is for the imported fileD ($<This keeps the user from seeing everything that is happening sub_err_.dat'@ this will need to be changed to the motherload error file name.'XC Sets the row variable to row 2, the first row data can be input to !!'+. Sets the awb variable to sub_excel_loader.xls'p'B If there is an error or the user hits escape, this is the way out X %+FThis checks to see if there is any data in the sub loader at the time.UsWIf you continue you will overwrite any existing data. Are you sure you want to do this?  Are you sure?$'GThe above Warns of data in worksheet and lets the user continue or quit Vow is the variable that picks up the output of the input box used above. 1=OK 2=Cancel_ X %G X$B@jBUIf there was data in the spreadsheet and the user said OK, it deletes the row of datar X %2Goes until all data is purgedZk Gj!1 If the user hits "Cancel" they take this way outk !*Win*2"Check to see if it's a PC or a Macc:\temp\'pW******************************* PC Section ****** 'This really only applies to the PCd'pransacklfName = InputBox("Input the name of the error file to be imported.", "Reload File Name", sdir & dName) 'This box asks for the name of the file to be imported. Its default is c:\temp\sub_err_.dat (sdir and dName combined)Upload SUB Error File %' False$EThis is here as a way to tell if the program choked during the importH   DDD DDDD"D1D;DEDcDkDuDDDDDDDD-DKDdDpDDDDDD B@Y !!'.<This sets the awb2 variable to the temporary worksheet name.'Xpt Len_ X %1.$This looks for the control line linept X 'Xkx X %10+Do this until you reach the end of the data X %2G X$B@j>2When it finds the control line it deletes that rowA1:AC X$B@H-Selects the data from the temporary worksheet B@*Cuts the data from the temporary worksheeth a sh $B@Switch to the SEL spreadsheet creA2$B@HBMake sure the data gets pasted in the beginning of the spreadsheett B@,Pastes the data from the temporary worksheete or $B@"Go back to the temporary worksheet B@B.Closes the temporary worksheetq******************* This section reformats the columns to change font/size and numeric format ******************A2$B@H A:I$B@HShor@ (fi ! X Courier New9ed. 9qJ:J$B@HFile yyyy/mm/dd ( ! Courier New9 9qK:X$B@Ht@ ( ! Courier New9 9q0Y:Y$B@H0.0000 ( !(! Courier New9 9qZ:Z$B@HD@ (D !D Courier New9 9qhAA:AA$B@HD0.00000 (e ! Courier New9D 9qAB:AB$B@H0.00 ( ! Courier New9D 9qAC:AC$B@H@ ( ! Courier New9 D 9q@A1:AC1$B@H !Arial99q A2:AC65536$B@H ! Courier New9 9q  %B@$,Puts the cursor at the beginning of the datal row !!'-7Just re-inializes the variable. Probably don't need itd  k l*********************************** Exit program stratagies ***********************************************eh g` X #File not uploaded. User cancelled.A@g  "Internal Error. File not uploaded.A@Usg o ?Attribute VB_Name = "Module2" Sub sub_import_error_file() D.ProcDataInvoke_Func \n14 Dim ow As Integer 'Variable for Ov erwrimsgbox?fBSng @xMExpH x%Attribute VB_Name = "Module3" /.#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}H(%H0(8HxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2/7#xSheet1%_VBA_PROJECTvdir5__SRP_0 r"ME (SLSS<N0{00020820-0000-0000-C000-000000000046}H(%H0(8HxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2汀0* pHdsub_excel_loader_5-24.xlDs8@  =  HJ J<9s@tdole>stdol@e %~*\G{00020430-C 0046}#2.0#0#\\bf.umicl   Z@@@ram Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#\\bf.umich.h.edu\mais\MAIS\FIN\PR\Projects\SUB-v4\B2.tlb#OLE Automation@" Module1G\du^1 2H1jE ,4w!+:2:2:2:2:Hi3O*3J3O3PE_ThisWorkbookG@AThisW[rkjboB 2 OB5$."B^_ASheet}'S@#e@t|]G2B#I7e10748d3a8rU   14q~~~~~Module1Module1Module2Module2Module3Moduow x must be 10 characters in length and must not be left blank. <Date format must be YYYY/MM/DD 4ERROR - Invoice ID on row  > must not exceed 30 characters. R must not exceed 30 characters in length. 6ERROR - Unique Name on row  P must not exceed 8 characters in length  :ERROR - Location Code on row  > must not exceed 10 characters. 4ERROR - Deliver To on row $Save Data File As? > must not exceed 20 characters. ZERROR - Departmental Reference Number on row  BERROR - Trip Event Number on row  2 must be a 6-digit value. VERROR - Not currently using Item ID on row . Please delete Item ID. , *.txt False @ERROR - Item Description on row  <ERROR - Vendor Item ID on row  BERROR - Manufacturer Name on row  2ERROR - Model Num on row  4ERROR - Serial Num on row  > must not exceed 25 characters. 4ERROR - UM Tag Num on row  c:\temp\ > must not exceed 12 characters. DERROR - Quantity Vouchered on row  L must be a less than 16-numeric value. >ERROR - 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#\\bf.umich.edu\mais\MAIS\FIN\PR\Projects\SUB\SUB-v4\stdole2.tlb#OLE Automation  HModule10748d3a824Module1wjModule20848d3a824Module2wHModule30348d3a824Module3w0EThisWorkbook0448d3a824ThisWorkbook.H5 Sheet10548d3a824 Sheet17`5x`0Hu< 8-Kˎ}z !PDnPNEI+_պ,Cb4Lol֓duf-BA8Lerror Type Excel+ VBAWin16~Win32MacVBA6# sub_excel_loader_5-24.xlsWstdole` Module1b _Evaluate(!SUBLoad Shortcode&=Account FundCodeDeptIDPrgmCodeClassPGrant8VendorID6kinvdate InvoiceidgUniqnamex Locationcode: Deliverto Vendorordnumv DepRefNum; TripeventMItemID28ItemDesca Vendoritmid8 ManufnameQModelnum.- SerialnumgBUMtagnum QtyVoucheredkgUofMeas3 UnitPrice MerchAmount VouchCommFiller3ZTvchrsTtlsg carriage10 (sub_batchtnRowMcolHfRow  efilename_ efilename29 file_no_ext-9 sfilenameOutfile excelfile excelfilesaveEtheend0switch6zsdir row_foundڐ row_to_writecolvalue_found$ row_writtenxls-datcountercounter2path2slashexitprog֖Trim@ Application*Cells ReferenceeScrollMsgBoxRChrK~ IsNumeric$* vbOKCancelx?UCase5 LCase:WorksheetFunction&RoundInputBox Right OperatingSystem[GetSaveAsFilenameinitialfilename& filefilterTitle~ exitprog2ActiveWorkbookSaveAsf; Module2c(sub_import_error_fileFow^fNameRdNamewlfName 5awbuawb2WScreenUpdating! RowsUDeletexGetOpenFilename]? exitprog3 WorkbooksBOpenText«FilenamejOriginF xlWindowsStartRowDataType%? xlFixedWidth FieldInfoRange  SelectionZCut.WindowsdActivate| ActiveSheet%NPaste SaveChangestColumnsp9 NumberFormatRFontUSize Module3d ThisWorkbook| Sheet1Workbookk Worksheet_Defaultj _B_var_TrimmT _B_var_Chr\; _B_var_LeftQ _B_var_UCasea _B_var_LCase' _B_var_Right9 _B_var_Midp _B_var_FormatUnit Of Measure on row  < must not exceed 3 characters. 4ERROR - Unit Price on row  .dat *Win* sub_in_ l is required and must be a less than 17-numeric value. DERROR - Merchandise Amount on row  t is required and must be between 1 and 17 digits in value. d must be equal to Qnty vouchered times Unit Price. ( must be an Integer. .xls >ERROR - Voucher Comment on row 0 **WARNING** When shortcode and chartfields are both supplied we will only process chartfields ^Enter Sequential rK*yrU ~~~~~~~~~~~~~~~~~~~~8 wކiD6H<  a ` a x!9 Q y1Asub_excel_loader_5-24.xlsModule1Module2Module3 ThisWorkbookSheet1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel )@0Fsub_import_error_file?\\bf.umich.edu\mais\MAIS\FIN\PR\Projects\SUB\SUB-v4\stdole2.tlbstdole  PV VV!4    $ 00 : D "b 1 v ; E c dk "u& MeN e  n   t  te Z \- K d  p  h(  J    i i sub_batch  Y NFF9aF  1 2ERROR - Card Type on row  d column A must be a 1 if it is a transaction line. If  N is not a transaction line, leave blank "File not created. 4ERROR - Short Code on row  6 must be a 6-numeric value. 2ERROR - Fund Code on row  v must be 5 characters in length and must not be left blank. ,ERROR - Deptid on row  v must be 6 characters in length and must not be left blank. @ERROR - Vendor Order Num on row  NERROR - Account must be entered on row $ with a shortcode. HERROR - Shortcode or account on row " must be entered. PERROR - Shortcode or Chartfileds on row  8ERROR - Account Code on row  2ERROR - Vendor ID on row  X is required and must be a 6-numeric value.  4 , is a Revenue Account! 0Do you want to continue? * IS A REVENUE ACCOUNT V is required and must be a 5-numeric value. ,ERROR - DeptID on row  > must not exceed 15 characters. V is required and must be a 6-numeric value. >ERROR - If Program Code on row  H is needed, it must be 5 characters. 0ERROR - If Class on row  \ is needed, it must be 5 characters in length. :ERROR - Project Grant on row  X is required and must be a 10-numeric value. 8ERROR - Invoice Date on rNumber for sub_in_###.dat file File Name 001 DYou need 3 digits for the filename 00 X is already used. Try a different sequence. (File Already Exists. . dat YYYY/MM/DD $#############.0000 (##############.00000 "##############.00 HHHHHHHHHHHHHHHHHHHHHHHHHHHH !HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH =round(R C28,2) 2 =sum(R2C28:R C28) 0000000 #############.00 HH HHHH DFile created and ready for upload. , *.xls .Save Excel Workbook As?F+ File not created and Spreadsheet not saved. No File Number Input or User Cancelled. ,Spreadsheet not saved.9VBE6.DLL @ @` @S @1  @i  @ @ @ ` @T  @k  @x  @  @  @  $shortcode is blank__SRP_1=bPROJECTwm?PROJECTB:SummaryInformation(ple3ThisWorkbookThisWorkbookSheet1Sheet1ID="{4E166498-77B6-11D6-9EEC-00C04F2F0184}" Module=Module1 Module=Module2 Module=Module3 Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Name="sub_excel_loader_5-24.xls" HelpContextID="0" VersionCompatible32="393222000" CMG="6260A3430147014701470147" DPB="C4C605E5054606460646" GC="2624E7872B8B8C8C8C8C73" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=309, 28, 757, 366, Z Module2=283, 133, 892, 375, CZ Module3=0, 0, 0, 0, C ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ՜.+,D՜.+,HP X`hp x  Sheet1  WorksheetsH8PltDocumentSummaryInformation8KtCompObjUmOh+'0@ px ITDcrouchMicrosoft Excel@6i^@xc@&By>G0Y e    :  '' ' 9-  -- @ !-bb- @ !b-tt- @ !t-- @ !-- @ !-- @ !-- @ !-- @ !-9- @ !8-&&- @ !&-XX- @ !X-- @ !-- @ !-- @ !-88- @ !8-  @ !- -- @ !-- @ !-Arial-  2 R 1 2 c 2 2 u 3 2 4 2 5 2 6 2 7 2 A 2 ;B 2 zC 2 D 2 E 2 F"System7-'- 9-  -!&- @ !!-"&- @ !"-#&- @ !#-$&- @ !$-%&- @ !%---SX- @ !S-TX- @ !T-UX- @ !U-VX- @ !V-WX- @ !W---- @ !-- @ !-- @ !-- @ !-- @ !---- @ !-- @ !-- @ !-- @ !-- @ !---- @ !-- @ !-- @ !-- @ !-- @ !---38- @ !3-48- @ !4-58- @ !5-68- @ !6-78- @ !7- Arial--'- b&--   Arial-2 ` Card Type----'- bX'------ 2 E0Short  2 T1Code---'- b9-- 2 TgAccount ---'- b------ 2 EFund n 2 TCode---'- b9-- 2 TDept ID ---'- b8------ 2 EProgram   2 TCode---'- 9-'- 9-  -- @ !-&&- @ !&-XX- @ !X-- @ !-- @ !-- @ !-88- @ !8-:- @ ! -bb:- @ ! b-tt:- @ ! t-:- @ ! -:- @ ! -:- @ ! -:- @ ! -:- @ ! --'- 99 ,9 ---'- 9-   -9- @ !9-- @ !-'_AdHocReviewCycleID_EmailSubject _AuthorEmail_AuthorEmailDisplayName_PreviousAdHocReviewCycleID_ReviewingToolsShownOnceՄ(sub excel loader template with macrosritak@umich.eduKomives, Kristine F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q