ࡱ>  |Q fo8:CompObjpi397?= n``@Ӂr@ӁrButtonNoneel+* 0!FrameImportStatus, !FrameCopyJournal( 2lLabel1OK $4ListBox1  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_SelectHeader Caption = "Select Journal Header" a Worksheet"&Tools&WindowChart"&Tools&Window(Visual Basic Module"&Tools&Window\p Joanna Chen Ba=   ThisWorkbook=4&<X@"1Arial1Arial1Arial1Arial1Arial1Arial1* MS Sans Serif1* MS Sans Serif"$"#,##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;\-"$"#,##0"$"#,##0;[Red]\-"$"#,##0"$"#,##0.00;\-"$"#,##0.00#"$"#,##0.00;[Red]\-"$"#,##0.0050_-"$"* #,##0_-;\-"$"* #,##0_-;_-"$"* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-"$"* #,##0.00_-;\-"$"* #,##0.00_-;_-"$"* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-83_(* #,##0.000_);_(* \(#,##0.000\);_(* "-"??_);_(@_):5_(* #,##0.0000_);_(* \(#,##0.0000\);_(* "-"??_);_(@_) yyyy\-mm\-dd mm/dd/yy m\-d\-yym\-d\-yy\ h:mm 0.0%##,##0.000_);[Red]\(#,##0.000\)0.0%\);[Red]\(0.0%\)0.0%_);[Red]\(0.0%\)#,##0.0_);[Red]\(#,##0.0\)0.00%_);[Red]\(0.00%\)                + ) , *    !   "     Lines PSChar PSDate PSDec PSHeading PSInt PSSpacer8 ``iݜ*o?H6A^BbzbO/(fvEE>j(9jJ2BBB\`Sheet1 mMessages mJournalEntrymImportControl mLogFunctions$ BottomLine; $ HeaderKeys;& HeaderLabels; $ HeaderLine; HeaderSeq:& InsertHeader;$ InsertLine; NvsElapsedTime" NvsEndTimefU-@! NvsLayoutTypeM38cc a   dMbP?_*+%"??U>@7 Sheet1 a&A Page &PM\\PLE_PRINT_01\P06w08 L_ odXLetter  PRIV` N N N'"dX??> d a&A Page &PM\\PCC-PRINT-08\355PN&w odXXQ&B\O&RtO&b O&rXJAPD dTimes New RomanH "dXX??> d a&A Page &P"PXX??> P a&A Page &PM\\PLE_PRINT_01\P06ChangeSt_ odXLetter CheckAmounts:PRIV` N N N'"dX??> d mJournalEntry __SRP_3r__SRP_2qmImportControl 5pF  !"#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRTUVXYZ\]^_`acdefghijklmnopqrstvwxz|}~*\R1*#2ab*\R1*#1f6*\R3*#37*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\R1*#e4*\R1*#45*\R1*#e4*\R1*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R0*#22*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Miccqq4<xME( f(> LLPLLLLLL" LLL" LLLLL"LLLLL<<<<<<<<"(_B PB"B&@*  @, @00 @4@@6X  @:( @>0 @@4@ % DP`dk  J``k ++T `v+ 6id `Vx`Xv+Z `k` ''Gi\ I^ I` `bx`dv`fp`hl+p`xk` 33nir `\t`hp`^l`fh``f  `kPP@(l `j@X `.V@PD @ `< 8% ``#vk  `$Rk x `v `'k0i  xh% t%`r+ `+k i^ )@odulacros fo ( ``xe) s`bh,vj epnumb% lH `1k ))+ x( Her of in `vH t `5hk T@l and@.\ @vL tor @x< `B :nds @(( ser @z @| `h  ]x @0 !  '4%@~` s ar` fie+ `9k@  33) x  theo `  `8<k UU@l ----`j for d ----] @(T d`|R X @ Lp T%`Jx`H ----` F---- P `? kDDh x e Q2%@h ----`f---- (``C4k 11I(  bI.  i,nd D x%` v `@FkhI  xines%`v p20% `H@k'' x8'h%`v@d `b `(Kk\\@l t's @\ $--@L `J$|@8 @(  $p%`"`  ` `( `Okvvx`z%`xLine`vH`t(``r% l$% hA@r%`0dB@+`Sxk( i `(x----`v---- p0 B%` xn s on  h`V|k22 `~zH`x^ `v `th`r `PYknn>`l b`h!`Vf`d%`b ` ` b`"\) `$Z`& X%`(V+2`[t+ id t Jo`Vx==`4v=`6t0 hB B( B$x@(@. @2 @8h$ @<, @B8@@( XhxP H hh `@ PP(0  F0H24  @x @t ` @d LF* K@x @t @d @` `Tz ``Zz jln@\ @ L @8< @P, @ @h @ @ @ @ @ @ ```pz @0T @HD xLz|jZ~@@ @x0 @ ln@ @ @8 @ @ @ @  @h @P @ @x h8(!8 P ""#"LD402@h 4 @ $ @ @  @ @ "H@! @@! @p! @! @X! @! @! @" @! @`" @!p @"` @0"P @H"@ @0#0 @ @x" @ `#"`x%""@" #"$@ #"$ r*@H# @ x#`%#`#-"?X$p$@$LDr@x @v %@%%X%'8'LD4@P'p @p%` @%P @%@ @%0 @& @`& @& @0& @H& @& @x& @' @& @& @& @& @x @h @ 'd @` (%r02@h'\ @'X @T @R pP0p)h(()((h+)204@(l @(\ @(X @(T @X)D @+@  +<)`T%@+( @@), @) @) @) @`* @* @) @* P(Z"ln@* @0* @H* @* @x* @* @*p @P+` @\ )*TV|Z@+L @+< 88+`T% +@( *,r@+ @ @ `Hx, .,.h,,,`z ,h,.Fj"|l@,l @-h @-X @x/T @0-D @H-4 @`-$ @x- @- @- @- @- @- @. @P. @8. @h. @/t @.d @.T @.R .. @P 1. @/@ @H/0 @0/ @`/ @/ @/ @P0 @/ @/ @/ @ 0 @0 @80 @h0| @0l @(1h @0X @0H @08 @0( @0 @1 @@1 @1 @@] @X1 @p1 @1 @1 @\ @] . 0 32@324LD402R@2p B@@2` KT@2\ @3X @X3H  @h5D (2r" @p34 (@3$ @3 !@4 @3 @3 5@4 serI@`4 @04 A@4 $@H4 word@x4 $@4 $@4| (@5l @\ (@4X @T ((3P*!@ 5D .@854 9@P5$ @ B@@ H (7866P6898LD204 @h6 '@6  @6 ' @6 0@6 P@89 8 6"H@7 !@@7 @p7x @7t @X7d V@7T @7D @84 @7$ @`8  @7 @8 H@08 @H8 @8 A@ @x8 @ 6nVTVP98`Vx%p98+(@8 al s@9 _@ 9 _@t @@p 9lh9`%9P9C L(8*r L(h9`x%9h8h:@ `;x;;:;;:h:::`z :h::HL0000 At:`x%:PB@@;d @0;T L(@H;D @4 Im@ <$ et@;  ortS@; @ @ 2: A@; to s@< @ 7 I@ iGe@ no ( X x =<8==???LD4LI@?@ plic@ =0  E@= SERI@= ULT_@= HF@X> TION@(> : I@> dds @@> sta@p>x ,@>h 6882@>X teXM@`?H r@8 @>4 "@0 >/xm<r0H"2_I@?, d>&p@0?( Impo@$ l_Jo>P.@x? @ ?`t wa%?, ChanH?*$K8 A@ A@0CCPCLD20H @@`  @@P B@@@L t@AH Ch@8A8 IMPO@4 B@@A$ @PA @hA Bott@A @XB  @A B@@A tx@*.(@B Un@(B @B %Er@@B ce X@pB K@B| load@Bl umen@B\ @L ror @BH 0=@D una@C4 l he@$ h shA,_ HC`$%0C   DD0DDTLsp@Dp Y@HD` Impo@`DP $@xD@ ;@D0 aile@E Disp@E Y@D @D eet @ E :@8E 6882@hE :@PE /==@E ====@E =@ leme@E| of d@El 6882@E\ on O@(FX sur@FH in t@8 ue@4 ====hFGG@GFXGH@@l '<@(G\ '@GL <@hGH . G@G@DO 8HhG!t@G4 @$ yyyy@G (8@G $D@ 7hG: 6882p @XxIHHIILDH@J\ @`IL @I<  I@0I, D@HI :@I @I @J <H*20@I Z@I @PJ '6@ J ====@J ====@8J + @hJ for @J @Jt ====@d ====@T 8820@JP sta@L @JH @KD @@ /usx@X0MKpLKhNNND20H@L F@@L @(L @XL @L @N $@L @L :@L R_IM@L P@M L@M !t@HM| B@K(*@`Mx !@xMh @ Nd @MT @MD 'V@M4 $@M$ T!@N @ $@PN :@8N RNL_@ @ 2:NN`Sh%NhN'VML~n.rN`0%N @N 'V@ T7HxQOXPOSPRSpRD20H@O` 2: a@(PP !Z@PL @@PH 6882@pP8 `/@4 ====@P$ @P d jo@P @P ====@Q @P @0Q mporO(..I@HQ @`Q @Q X@xQ @Q @Q| @Ql '&@ R\ \(@L @RH POST@D cont@8R4 ion/@R$ d R hR` te%RPRQ,L~nTutRR`B@%RR%  R` `%R=`B@@S @(S Repl@@S mp;"@XS pons@pS nse,@S @S @ @ RrDateOrder (0DYT`(HThUTpVTTT`z B@TT V20d@Uh )@8UX @ UT @PUP t@U@ @< ^@@V, 'x@U ^@U 'x@U t@U )@U l @V @(V l@ $@XV ,@V nV` $%pV z @x h P8xXpW0XW`XDL20H@@Wl  @W\ @WX n@WT @XD @@ '@X0 '@X B@@HX X'@ Y $XW< @ @X F@X B@@X d @X '@Y h@ h%@8Y l@| Ph80[8ZPZZZ[Z$*,.L~@ ZD  @Z4 @hZ0 x$@Z @ @[ @Z @ $@Z [Zicatio@_ d[ZptionY:<>@'@H[ '@`[ d@x[ @[ $@ @ #Zj p\(p\\`2z  0\p\&"@\t @\d @\T @(]D @X]4 @]$ @^ @p] @] @] @] @] @^ @0^ @^ @ @H^ @`^| @x^l Z@^\ @^L @< @^, @^ @_ @ 8Z@@FݢHF$*\Rffff*0t4648a2c0*\R1*#1c8rosoft Forms 2.0 Object Library*#46$*\Rffff*0i46489f05*\R0*#1d*\R0*#1e*\R1*#90*\R1*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42$*\Rffff*0z4648a374*\R0*#1$*\Rffff*0a46489bc5$*\Rffff*0v4648a313*\R1*#f2*\R1*#6c*\R0*#10*\R0*#14*\R0*#f*\R0*#13*\R1*#dc*\R1*#d7*\R1*#f1*\R1*#e8*\R1*#2ac*\R1*#1c4*\R1*#10$*\Rffff*0y4648a374*\R1*#68*\R1*#e8*\R1*#f1*\R1*#dc*\R1*#e4(*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f N`FpF668p $46  (08@HPX`hpx " ' % \ H  h "p "x>    B  0H`hpx F F FB `hpx #%    <l @ Pp x ,,U 3.08 HP X`hpx * * *B  (08@  H6X6p ( #.*+ 68 p ,  0V  ,U   8h0  h p 8n      B  8 @ B`           , *( ,X "        "  W( WH h  2    <  K   ( 8H  P ` p    W 8&;P <x $W::  @ P` h!x6( & 2([:@X`h p x    WWWA( 0 P p" "      0"PX`  "hx  2?N 0 @  P W`  W $ $ $" @HPX W`WW  -$---  -@-`,-x    8  <  /8"LX >  & & 8 > > > >8X 0`  < 2    @ &` .  M M M *v M0 MH M` Mx M M *v M M M  *v8 (}h (} M M M M M M0 MH M` Fx $  !   */ 8 &X  0k   , 0 @P 2X/     >  ( 0 @ P `p (x(K&K(K&K &K@ &Kh &K *K (K ,K!(K@!&Kh!(K!K!,K!K"K("(KH"(Kp"&K"(K"K"K#K(#KH#Kh#K#(K# K#K#$ ($ @$ (P$ /x$ $ $ .$ ($ *% .~% H% XX% ,% J% ._0& A`&!& &.[& && & .'0' ,V8' h' "ap' "a' \' T' "a( "a(( "aP( Tx( "a( 1(5( (\( ) "a ) bH) "ah) 1)5) )\) )  *)6* *6 * 8*  *@*6P* h*6p* * .* "a* "a* "a+ "a8+ "a`+ "a+ T+ %+ +:+ , ,6(,@,7H,`, h,p,  x,W,P, !, -6-H-  P-W`-W-W-7-- 8- 6. 8P.B ....?.4l.  . (/0/H/ $p| `/h/p/x/// / / /"//0  "00W 0W@0 `0 x0200?0N0 1  1  01 W@1  @`1 41 P1 #2 !2 # 2 02@2H2 WP2Wp2W22 *2 *2 *3"H3 P3p3333  "33W3W3 4 (42@4x44?4N4)4 4  4 W5 8 5 &;X5 45 5!5 5 -5 5 6 ( 6 *H6 .X6 6 36 !6 ,6  6$77 77@7G`7,>7 F70A7 (8 208 0_h8 W8 P8 #9 !9 #(9 89  P9  X9 `9 4h9  :9:9 9 9 :(:H0: P: `:!p: : (: ::(D: F; HP; ; "5;4;:<FX<  $x< H< $< <${< !=  {= !0= @= `=4h=6=G=G=X== N==8><X><x><><><>:>?:?0?8? @? H?X?  `?p? Wx?W?W?? >? > @ >`@B @ @ 4@K@KA  !(A K8A KXA KxAA ?A VAA  !A KA (KB &K8B (K`BB ?BB  B 5B !B KB KC  C0C 8CHCPC  "XC hC "xC *C5CCCCC ,C ,D ,8D"hDpDDDDDDD  "DD D D2E8E?@EN`E E E  E WE E HE &;(F 3PF pF <F 4F F 2F(G ! G 0G 8G  PG  XG  `G hG pG :xG:G G GGJH  H 0H@H" HH"PHXH `H &pHHH H!H(HH (H <I FXI 4I I*IJ J (J 0J @JPJXJ W`JJ J J J"JJJ  "KK W K @K(ZPK.xK BK2KLL P L JpL  L  L)L M $M M M D(M BpM 0M  M :M< N @N "PN xN N N(N NN (N NO O! O60O BPOJhO OO  O)O %PP P P0P8P W@P`P "hP "P "P" PPP  P*Q !Q  (Q&I8Q`Q-hQQ Q AQ@Q@QAQ  R (R HR*XR&IhR.R=R4R<S # S 0S@SHSXShS (pS4S #S HS> T8T :@T 8T :T" TUUU /U0U -@U 5PU  2:hU U U U UU UU (U $V (8V"`VhVpVxV  "VV NV'V W W: W ,;8W 2hW 0WW TW 8X 8X0HX `XhX pXX HX2XY  YW Y@Y *HY (xY *Y"YYYZZ Z(Z 0ZW8Z XZ (ZhZ.Z BZ2Z [ N([0x[ :[ <[ [ 6\2@\ x\ \ \ \  \E\Q\] ] ]8(] 8]H]  P] "`] (Vp]8]4]  ] ] ]]]^ ^<^#0^$mP^ x^ ^^ ^^^^ ^^!^ ^ B_ :H_ *_@_ !_ ` `  `(`0`W8`WX`Ax` `` *` (` *a"8a@aHaPaXa`ahapaxa aWa a (Za.a Ba28bpb Dxb Bb0c:(c <hc c cc c!c"cBc d $d 8d @dHd  Pd Xd &hd &d d d dd  d "d /d <d W8e Xe 0xe e ee(e e e   f^f1(f@fHfPf Xf  ;`fPf -f .f@g>XgJgg(g4hPh FXh .hGh h<i8i8Pi (i4i i  #iHi @j `j<pj jj Jj"Jj6k 0k 8kHk WPkWpkk B kkkkk Wk.k :l:@l `l @pl ll Fl m m  mR(mHmPmXm!`m "pm  mmmm"mmmmmm m "m.jm0(n 5@n `n pn4n  5n 5n 0n :o (Ho,pooo $o,opp $(p Pp hp Vp 0Cp 5q,(qXq `qhqpq xq(pqqq "qqqqqqqqrrr <r $Xr$/r9rr <r Hs PsYps Zs (st0tHt $`t ptt t  t t Zt "(u Pu hu, xu u u, u u  u "v40v ZHv :v">v3w (w 8w Hw Pw`w xw w4w$w3w wx $x 0x@x `x 4x #x 3x x xxxx y 40y #Hy 3`y xy yyyyy 4yy z40z#Hz3`z xz zzz zz z 4z 3z { { {({ 8{@{ H{ P{ @X{B {{{{ <{{|(|@|H|P|X|`| }xpGThis module contains the macros for the journal entry (template) sheet.s]$H@j]$ Hh/2number of integers for foreign and monetary amount]$H/2number of decimals for foreign and monetary amount]$ H/"number of integers for stat amount]$H(/"number of decimals for stat amount]$HPICE 1214492000 and 1215208000] /&Decimal Separator based on user locale] x/(Thousands Separator based on user locale]]]]]]0]]@]X]h]]]] F!'0 H!'2 2_H'4UThe following variables are the default amount fields sizes shipped with the product.BIf you expand the amount field lengths, change the variables here.oP L(NControl F%PB@RY'*o@------------------ Check for spaces------------------]] d'V d 'X V X X'Td'Tkix@----------------------------------------------------------------? Extends IsDate() checking - Workaround Microsoft issue Q241728@---------i12DLJ n``rrf=oIK7XCompObj5p------------------------------------------------------- ]]]] \$j \ ^'b b \ ^'d d OK for Month and Day only'Zd ` \ b $ \ d $$l'f fOK for 4-digit year'Z fe&Determines century from a 2-digit year f$n 2019$l f'f ` f \ b$'hd \ d$ f'hk h$j'Zd'Zkkd'Zkix$------------------------------------# Validate dates from it's text form$------------------------------------ ]]]]] r!t'\ x L%v'^ z L%v'`!xlDateOrder (0=MDY, 1=DMY, 2=YMD) \$|'p \$j \ ^ e \ ^ `$Z'p \$~ \ \e/Construct date for numeric-only 6/8 digit entry \ &Determines century from a 2-digit year ` \$ \$$l'f f$n 2019$l f'f `YYMMDD f ^ \$ ^ \$'hdMMDDYY or DDMMYY \$ ^ \$ ^ f'hk8d0 `YYYYMMDD \$ ^ \$ ^ \$'hdMMDDYYYY or DDMMYYYY \$ ^ \$ ^ \$'hkPkH h r(t h$j'pd 'pki&======================================# Change Import Status of journals&======================================]8P]h]]]Dim ChangeRange As RangeDim FirstJLine As Integer L(NA@D 4 0$%PB@ 2 0$%PB@ 4 $MSG= No Journal [$   $$'d(   $9  $5(5(5(5(q $' !. !C' Importd`U' Do Not Importk8  !  % 4 0$%PB@R2Get Header sequence number and change import value  " H%!t'(   " H%(tchange the line import status 2 0$%PB@R$ BottomLine$!$$ (  7.  !'_ !'. 7.  !  $ .$$B@H  (t+set the blank row value to "U" if necessary U $!tU $(tkkqk A@rY'*kX 2 0$%PB@ 4 0$%PB@ 2 0$%PB@R H%%B@Ho ======================== New Journal Header========================  L(NA@D A@rSet Options = FRM2Ao ========================= Edit Journal Header=========================`]] L(NA@D 4 $MSG= No Header [$   $$'d  $ (  $ !( $' A@r  4 0$%PB@R  Akh k` 2 0$%PB@Ro8 ============================== Enter or Edit Journal Header==============================]P]p] 2 0$%PB@ 4 0$%PB@ 4 0$%PB@R 5B@Actuals and Recognized5B@ Encumbrance5B@Pre-Encumbrance5B@Collected Revenue5B@Planned5B@Actuals, Recognize and Collect5B@5(  2*** NEW Header - Assign defaults from Option Sheet MSG= New Journal Header  $9Def_Date$ Z General Date$5(tdxDef_Date$5(tkPNEXT995!t5(t Def_BusUnit$5(t Def_LedGrp$5(t Def_Source$5(t Def_UserID$5(td )*** EDIT Header - Gray Journal key fields MSG= Edit Journal Header  $9 ,Enhancement: Allow Edit eader to modify Keys .BusUnit.Enabled = False .JrnlID.Enabled = False .JrnlDate.Enabled = False *** Get existing data into form  " $  $$. %9 %9 %9 % Short Date$9 %9 %9 %9 %9 %9 %9 % Short Date$9 %9 %9 %9 % Short Date$9 %Y$l9 %Y$l9 %9 %9 %9 %9 %9  %9  %9 %9 %$n'   5(d8 5(k k$*** Gray / Ungray Ledger and AutoGen MultiBook$Y .Ledger.Enabled = False .Ledger.BackColor = vbButtonFace5(  Def_AutoGen$Y$l5(tk(d  .Ledger.Enabled = True &.Ledger.BackColor = vbWindowBackground5(5(tk,*** Gray / Ungray Document Sequencing fieldsDocSeq$Y5 ( 5 (5( 5(  Def_DocType$5 (tkd5 ( 5 (5( 5(k!*** Label all objects on the form  $5(4BusUnit  $5(4JrnlID  $5(4JrnlDate  $5 (4LedGrp  $5"(4Ledger  $5$(4Source  $5&(4UserID  $5((4 JrnlClass  $5*(4IUtranCD  &$5,(4 AgencyLocCD  $5.(4DocType  $50(4DocSeq  $52(4AdjType  $5(  $54(6 AcctgPeriod  $5(  $56(  $58(4ForrCurr  $5:(4CurEffdt  $5<(4RTtype  $5>(4RateMult  $5@(  $5B(  !$5D(  "$5F(  #$5H(  $$5J(  %$5L(4Descr254  $5(  $5N(q!Application.ScreenUpdating = True B@P"Application.ScreenUpdating = False !!tY'*  (*** NEW Header - Get the next header row "$ $$B@H T B@R " $ $$. B@H QFind the greatest header seq num (2nd column in the first row beneath the labels) &and then increment it for the new row. DNewHeader.Cells(1, 1) = NewHeader.Cells(1, 1).Offset(1, 0).Value + 1 NextSystemID$$n , %' NextSystemIDAVdX NextSystemID % AVk d *** EDIT Header  " $  $$.kC %%X(t 5$|$Z ,5$|$Z ,5$|X ,5$| ,5$|$Z ,5$|$Z ,5$|$Z ,5$| ,5$|$Z ,5$| ,d5$|X ,k5$|$Z ,5$n ,5$|$Z ,5$| ,d85$|X ,k5Y ,dN ,k5Y ,dN ,kp55$n$l ,5$|$Z ,5$|$Z ,5$|$Z ,5 $|$Z ,5 $|$Z ,5$|$Z ,5$| ,5!'    ,d  ,d  ,kkq', 2 0$%PB@R HeaderLine$% HeaderLine$%$B@H . (\ % %$!t (tk A@r 4 0$%PB@ 2 0$%PB@ 2 0$%PB@R $B@Ho 1-------------------------------------------------0 Build and array of the headers on a given sheet1-------------------------------------------------]H]`]x ^ F%P.d j   " d%h%! '` ` "Populate the array for the listbox `  b `'d'ki======================= Select Journal Header=======================]]0 L(NA@D 4 0$%PB@ 2 0$%PB@ 4 $MSG= No Header [$   $$'dh  $ (  $ !( $' A@r  4 0$%PB@R  " $  " $$B@n 2$PB@R HeaderLine$% HeaderLine$%$B@H (\ B@p L(rY'*k k 4 0$%PB@ 2 0$%PB@ 2 0$%PB@Ro $====================================# Copy Journal Header and it's lines$====================================H ]     ]  0 H ]` ]  ]  L(NA@D 2 0$%PB@ 4 0$%PB@ 4 $MSG= No Journal [$   $$'d  !(  $ (  $ !(NEXT ( $'  4 0$%PB@R 2Get the sequence number of the header to be copied  " H%!t'( NextSystemID$$n'z z' NextSystemIDAVd` NextSystemID z AVk8 Get the next header row "$ $$B@H T B@R " $ $$. !B@H  H%B@n B@p %Set the new values on the header line  z %(t5 %(t5 %(t5X %(tC %%X(t@Cells(NewHeader.Row, LastHdrCOL).Value = .BusUnit 'BusUnit IU !  $(tE DocSeqNumq +Insert the header line on the current sheet % %$B@n 2 0$%PB@R HeaderLine$% HeaderLine$%$B@H (\ B@p L(r Copy the lines''.'B BottomLine$!'~$ BottomLine$!$$ (  7. lines exist for the header !'_ !$!t'| | ( !'. 7. B 'B"Range("BottomLine").Rows(1).SelectSelection.Insert (xlDown)kX  | ( ! ?Since performance was affected in Copy functionality the insertAwas take out from loop - commented above. Insert was done using arange of rows - 02/03 LastLineCol H%!' ~$ ~ B  $$B@H T ~$ ~ B  $$B@R ~ B  $B@H !'x B x$%XB@H !'vcopy the old journal lines $ .$ H%B@H B@n v$ x$$B@H B@pSet the new identifiers  z %h(tC %h(t5 %h(t5 %h(t5X %h(tqPGblank out the header keys in the first row if it is a blank spacer row. %U %(t %(t %(t %(t %(t %B@Hd  %B@Hkk?q?Y'*k? A@rk? 2 0$%PB@R 2 0$%PB@ 4 0$%PB@oX?8--------------------------------------------------------7 Displays Form_SelectHeader to select journal header(s)8--------------------------------------------------------  .MSG= Select Journals (Unit, Journal ID, Date):  $5(  $5N(5!  $5(  $5(  $5(d=55!  95!5!  5(kX=5!  $5(  $5(<BusUnit  $5(<JrnlID  $5 (<JrnlDated<55!  9k<5B@ 5(5!  $5(  $5( 5(d< 5(k;q; L(N B@P L(N !!  !! 'dx;'kh;i`;&======================================% Delete Journal Header and it's lines&====================================== ]  ] ]( @ ]X ]x ] ] L(NA@D 4 $MSG= No Journal [$   $$'d9  $ (  $ !( $' A@r  4 0$%PB@R HB@ BGet the header sequence number and delete it from the header sheet  " H%!t'(  H%B@ HB@ 6Clear the header line on the lines sheet if applicable 2$PB@R HB@ HeaderSeq$!t ( HeaderLine$B@H B@k8 Delete the lines''.'''$ BottomLine$!$$ (  7.  !'_87 !$!t'| | ( .  .''k6  ' ActiveSheet.Rows(EndRow).Deletek6k6 !'. 7.  | ( ! !ActiveSheet.Rows(BeginRow).Delete6Since performance was affected in delete functionality@As such the delete was taken out from the loop - commented above-Delete was done using a range of rows - 02/03  $   $ H%B@k5k5q5 HB@Y'*k4k4 2 0$%PB@Ro4========================= Insert journal line========================= ] ] 8 L(NA@D 2 0$%PB@R HB@ HeaderLine$%B@H !t;MSG= No journal selected. Insert or Select a header first. \$  \$$'d(3 *N Jwe already know the largest line number, so we don't need to determine it. . $ . LastLineCol$!$$B@H ( . ,A . . (d02 (k2d2 =determine the seq num of the header. Then scroll to the last_ <line and insert there. Set the keys if not already present. HeaderSeq$!t'('$ BottomLine$!$$ (  7. No lines - Add the 1st line'.',' BottomLine$B@H ( . ,Adh0"lines already exist for the header !'_(0 !'. 7.  !  .$!t', . $ . LastLineCol$!$$B@H ( . ,Ak`/ . . (  (k /q/N'*k/k. 2 0$%PB@o.---------------------------- Insert and format one line----------------------------P ] ] , ', T B@R . , InsertLine$%XB@nd- %XB@nk- B@p ( %(tC %(t %(t , %(t ,Insert a blank line B@H T B@R InsertLine$%XB@n  B@p ( %(t %!! %!(U %(t L(r !'.d+ !A . '.k+ HeaderKeys$B@n $$ %B@p L(r$ LastLineCol$! $ %( %B@Ho*3---------------------------------------------------2 Clear cell contents if Copy checkbox is unchecked3---------------------------------------------------(]]]  H! !t  !!'  $. !Number !Currency B@d) (tkh)k`)X)oP)!================================= Delete current journal line!=================================] ]@]Xp L(NA@DGSee if the cursor is on a line for the displayed header; prompt if not. !. !' HB@ $!t'   BottomLine$!   HeaderSeq$!t  H%B@d' NMSG= Selected line do not belong to the displayed header. OK to delete anyway. \$   \$$'   H%B@k&k&Y'*d&AMsg: "The row you have selected to delete is not a journal line." \$  \$$'k(& HB@ 2 0$%PB@Ro%$====================================! Deletes multiple journal lines$====================================]](@X]x]]]A@D 2 0$%PB@R HB@ HeaderLine$%B@H !t;MSG= No header selected. Insert or Select a header first. \$  \$$'d$Gdetermine the seq num of the header. Then see if lines exist to delete. HeaderSeq$!t'($ BottomLine$!$$ (  7. /MSG= No line in this journal for you to delete. \$  \$$'Y'*d"lines exist for the header !'  $!t $!t5(td("5(tk"5!t5(t5(q! B@P L(N !!t$~ !!t$~ !!t$n' !!t$n' . .'''_0! !'. .$!t'     . 2 0$%P%B@HSelection.Delete  '  .''kx dp .kX 7.  ;Since performance was affected in DeleteBlock functionality4the delete was taken out from loop - commented above#Delete was done using range of rows $    $ 2 0$%P%B@H B@k( A@rkqk 2 0$%PB@ 2 0$%PB@R H%%B@HY'*o$====================================! Inserts multiple journal lines$====================================]]0]H]`]x]]]A@D 2 0$%PB@R HB@ HeaderLine$%B@H !t;MSG= No journal selected. Insert or Select a header first. \$  \$$'d=determine the seq num of the header. Then scroll to the last_<line and insert there. Set the keys if not already present. HeaderSeq$!t'($ BottomLine$!$$ (  7.  !'_ !'. 7.  !  .$!t',d(no lines exist for the header',kq 5(t , 5(t , 5(t ,5(kxqp B@P L(N ! 6Add an edit here to make sure the selected line exists 2 0$%PB@R , *no lines exist for the header in this case'.',' BottomLine$B@H ( . ,Ak8 5!t5!t$~5!t$n'd'kq !!t$n , ' T . $ .  LastLineCol$!$$B@R !!t'copy the contents of the specified line    $ .$$%!' $  LastLineCol$!$$B@n . $ .  LastLineCol$!$$B@pdH .$ .$$B@n . $ .  $$B@pk@After delete block till line number 1, the following lines would' need to be executed to set the values. .$!tY'0 .$(tC . $ .  $$(t0 . $ .  $$(t HeaderKeys$B@n . $ .  $$B@pkP L(r .$ .  $$ l .$B@Reset the value back Y .$(tN'k . $ .  LastLineCol$!$$( . !!t$n , '. !!t$n',k A@rk 2 0$%PB@ 2 0$%PB@Ro]H]`]x] 2 0$%PB@R HeaderSeq$!t'($ BottomLine$!$$ (  7.  :no lines exist for the header, therefore nothing to delete'dx @lines exist for the header, check to see if selected line exists !'' _ !$!t ' xk 7.  !  'kqi]]] ]8]PA@D L(N BottomLine 2 0$%P%B@H ! '~ InsertLine H%!'  'N'@ Z$'< ForAmtCol H%!' BaseAmtCol H%!'*ICE 1215208000 when user delete StatAmtCol3StatAmtCol = ActiveSheet.Range("StatAmtCol").Column"first do the foreign amount column  $ ~ $ H%B@HA@ @Nnow do the base amount column  $ ~ $ H%B@HA@ @N now do the stat amount column Integers = StatInt Decimals = StatDec OICE 1215208000 when user delete StatAmtCol check to see if it is deleted or notSTATISTIC_AMOUNT H%% StatAmtCol H%!'  $ ~ $ H%B@HA@k k k @N 2 0$%P%B@Hk ox h]]]]]] ]8]P]h]6Check for the column format to find the decimal placesICE 1214492000 and 1215208000 $ $$* $$, . L%v'$kp 6Check for the column format to find the decimal placesAfrom the format as "#0.000_);[Red](#0.000)" specifying +ve format and -ve after semicolon !$!0'"SICE 1214492000 and 1215208000 - use p_DecimalSeparator instead of hard-coded period"Pos1 = InStr(1, ColFormat, ".", 1) " $'$ "_'& & $  '(   !t' !t$~ 'V  ( ' -'  SICE 1214492000 and 1215208000 - use p_DecimalSeparator instead of hard-coded period Pos = InStr(1, Amt, ".", 1)  $'   ''add 1 for negative signk   '(add 1 for decimal pointk@ V  msg = too many int/decimals ]$':SICE 1214492000 and 1215208000 - use p_DecimalSeparator instead of hard-coded period4Message = Message & Integers & "." & Decimals1 & "." :  $ (.': :@ <$'>Y'@ B@Hd  V  ( msg = "Too many decimals" B@H ]$': : (.': :@ <$'>Y'@d0if negative, add 1 to integers      "too many integers" ]$': : .': :@ <$'>Y'@ B@HkHd@    "too many integers" ]$': : .': :@ <$'>Y'@ B@Hkkkd.no decimals, subtract decimals from max length V  (  "too many integers" ]$': : .': :@ <$'>Y'@ B@Hkkkd "not numeric" ]$': :@ <$'> B@HY'@k @Yyko:This function is introdcued to resolve ICE: 712639000 (AH)]]](5 check for single quote or double quote in Journal ID d''4 d"'6 4 6'2d'2ki !3!Q! b d% ( b d%,  b d%,  b d%)  b d%$|- b d%$l,  b d%$|- b d%$l b +|Attribute VB_Name = "mJournalEntry" Option Base 18Explicit 'This module contains the macros (forj e (template) sheet. PubU Const LastHdrCOL As I@nteger29 ,s* ,13'numb }IddedS(TexHn)IgleanOTotLenL"xB != `B Ob s InSt r(1, , " ", 19#Or F0 The a@ 1/ElsD0Tru,If#@#@-*9Exte"n,IsD ()'(0- ar! yc811 = ?W#&p IfL(Dr)2,`0fRt, -.,d62  ) G03YR)P4 1% 4-digit year Q Q4A 2termPx(s csufrom a 2CaFVal( mUJ'SCPT+eric (O 6 `8]c'structb)]q-only 6/8 sRK~rX^ [q3Oy O6git year YR = IIf(Dorder02, Left(Dtext, 2), R(igh@)Val(YR) < 30, "20" 19") & DYR hIf q 0Then 'Y YMMDDtm`pDate& DsepbMid3 (PElse1'( a"Bo >mq[").d>2E u2a.Find(ui, , xlWholeBy@s , 3`CC ): 0RWorkb ooks(aWrkB).Asmf).Acti8vatxCall Modify+i + 2H*End IfHC%!BI ͂Er orPr>K;Row8Num@>NevwnR@NDisplay m$#h$Unpr|otV+`sp<kGDDDithcTJ8rnl"#G.KKamountType.AddItem "">`Qu a@KRecognizedEncumbrancePre-#ColAed Revenu @"Plann? "$,@ DListIndezx 0*'@$X='*** NEWĮ -Vsign defaults from >OãP andh IfE '*** Gray@ / UngLedger a`AutoG fqOptions("MultiBook")b"Y"|'.&.EnabledFamBackColorvbButtonFac .K1*Tru TRowNum%0$ xue IIf(a7Def_E8, , 0XpC-BWindowGgrdGp–2YM;bM0ІDocument Sequencing fields$Ɉ @ .@G.D ˇD{'. ,cK %-JD"H _$hL8Ai a [G_ HAHLabel all objects on the Pformg.1.Ca@rGetMsg(Lang, 111)1'BusUnit22JrnlID33XDat3#44Grpm55್66Sour7B7UserO&8 8-Clas+(99IUtranC.62="3'AgyLdoc/10&20' 0J1**2*P6 a*'AdjEntry 3F13AP/($*'AcctgPexriofd992B5ICurrqBoxoh6 44)'ForrA4U!Effd>D14D)'RT^t43$RC1Reversal*P31]_None?732O_BeginNextz$Op^Z34_yADa+*$Specify_$1I U$Descr254 lOK2iCancelOG!rWithU'A@pplica.ScreenUpvd@= 0/m_T4Show`}!ID.3<> "Reset0yCxNEW^ }np' rhr r% !1R Ee(3, HdrCtrlCOL), VLastP).Sel3.Inkt (xlDownhS` 6 + 1ra o,'u lFbg$re@stseHq np(2column iĒ irp benUPhls'$Bit2new1.L W 3p.Off!0)d#+? P&AASystemID"v OC9 CSave_L("J;00dTĵ Else @Call Save_Option("NextSystemID", NewHeader.Cells(1, 1) + End If&'*** EDIT P ?Setk = R ange(sRowNum, HdrCtrlCOL , Last"OL))Li.Offset(0, -1). ValueC"C"With Form_Jrnlb-2)#UCase(Trim(.BusUnit7Q3 ;ID4CDat:7A5*Descr254S*6 I9LedGrp7Pger`8MSource `9A8UsergTy810MrCurN*If AEffdt"" Then= Null SЍ1F,9v5XRTtyp_-GXi(.RQMhultI1WIReversalCod.b\v-߃"^-# -%-:.Au toGen TrEeo"Y{_EN djEntry?}? ,5QbIIf(.AcctgPeri4od"a@m, gbT 1TAdjTc2a Class? 2B|)IUtran"C, 2 2!,P'PopteR#forlZboZReqA1- 2_ kp;3 To;1 y9k a>GkD, m& "(" & k,_[P/FoWH f)_q(k, 29)) = "", "- ThisSheet.Cells& p " & _ IIf(Trim:(7!cNext Build_HdrArraByTrueEls (FaEnd If FunctioHn '= ' Select Journal Header PublicP Sub_!() Dim e() As Varianwi`Integ2rApp(aX.ScreenUpdngqGetWorkbooks(CurWrkB). szarentUB ).Unprot@;+OIf No\t e#I,C)0 The@eE'MxSG=i>MsgBox(=@(Lang, 91, 5), vbOKOnly, 12, 812)bˎFo rmDjx.Cap\#OButtonOKD!3Choose_( Unload A@]i > 0RoAdvat@l! R-e(i + *HCtrlC4OL1`05)).Copyk /SKAeC"%Line"@ AsKc.UseStandardHeightAePasteSpeciaFlk xCutM8ode (xeseA "Y"%e;urK}P}1n9!`[ʬ ' 4 @it's l @ss H BeginRow,F `TopB otCountjSeqNu@m, New@, tk{p, RA bX 1\, LM!ColB?sMo$okcnCfbfffc~ccczs3/c'c4/cge"c1/c!_`Frame$.VisiblQ>[Cfmw f_o5XdJrnlIDH"NEXT(GAie g og2o%o%Iog'* the sequence number ofbh™ to be copied !89e/Dol+ 1).Vavl3 =@("O2s("!Sy_mID""%-;"AP9yCall Save_c\001A[b@ Jz+qYq[n trow[v3|dr$PKOL`s[tInsert (xlDownSrRpss( .@Entirep^. #0s(#z3O Ñ{' q-new v'ps on)-m;With; 7 src-@01__ 20P.BusUni(ڑs(?pB4qF 4CD (.| ob;Off``(0, -<@"CN1'w`?Cv*Rt IU? / - "" 'DocCJ Q9_$2#T9"#cs  Range(NewHeader.Cells(1, 1), X5)).Copy Workbooks(Cu rWrkB).A*sheet,rentS).Activate D "Line"p  Select [ion.UseStandardHeight = TruEPasteS@pecial)Applicat*CutModea'Fals( ' the ljs BeginRow0 EndÒ Coun_xBot%tLom 1W0ith 2, 2)AASet R.Find(Seq Num, AxlWhole, x(lBy@!sPIfH NoIshing Then 'R exi@st forWh± HYR.BDoS t@4@7DFA.ValMI5D4 }* \Next(RVE >GF+ 1'4A).fjInsert (xlDown# If Loop WhileFAnd k.!) <> %AMabSince perJmaawas aff@ed in yfun`onalityOi"'atake ou Vrom la- comm above . $done usaaa r of rows - 02/03uL Col@Yube.<olum4paĎaD, J + L- ` YG ! M@> s(d [U*)'\5 ).Offset(1`6br{iTop/ Cc@Rold jour U1/1  i@aIer2R 53?cT7z'qRwnew id6ifierxUBqForm_3op53s(2)sa_3"C"4.BusUn^iq_ 5JrnlID6CD(.1?^R]O'blankR}` keysX!f ir`O if Pit i@Z Sspacer!Q.O`y 58)"^"?z!6 )U/Ƕ8" n71GP9M Eb? %σp}(ReY YheW%Unload BRokҿҢProtп8Hdrt Sub1\1'-- ' Displa< to sۦj?(O Pr FԚ Choo(se_3](cArray() As VariantIntegerOaAw 'MSG=6 Jvs (1X, ID, Q:.Label1.Cap'GetMsg(L4(T.ButtonCl_X@gO.FrameImportStatus.Visible Then .Frame Caption = GetMsg(Lang, 12, 21) |ButtoBn~YES.x2) /q1`i > 0Wor@kbooksQWDrk` k).QsGb).A5vfqRe.UnpprotS!'` the ha sequence number 6d#8it f's$5c0`Cells(iDЗ %CtrlCOLE).ValRE/).#0 }P%LpiaC  "D  if aS]pK?C i 2 "A("S$"zL0P#fK sCCoGnt@S5QZK'bR D_ps3;O= ,O= s%POy ?c&qFBo`mEFeq Set R .Find(, xlWh Y, xlBysH?`!TR Is0Qth?>gR.seDog= 1a o5sP & `"0 <K?0,s?k$$oo+'@s( L_ [9= %:/Ne0xt(R-LoPWhi~.Apk%A#CBeoginRow).Delete  'Since performa,was affected in d| functionalityAs such thelMtaken ou@t fromloop - commenhabov Jdone using a range of rowsM 02/03If "FB> 0` ThenAvveSheet.R4(s("),  + C$oujr)Enpd If@ WithQProt Reset = "Y"CWorkbooks(CurWHrkB).AsArkBE).aSub C'= 'VInsert jour lin~ PublicR  L _() Dim RN hBe, iAIbgerC& Appa.ScreenUpd= FalsGet9 6GHUnpj"HeaderA7").Cells(1, 1).Scth@.Valuew"L'MSG= N o,sBed. b D/or  hh" first. Ai@ MsgBox(@! (L`, 92, vbOKOnly, 4) 3aE)7RN'w e alry knowCargestD number, so `'t neto termC i c,*`Uv;t+2 x$2LaDst1ColA2olumn@z&$ Call Add_(SeqNum, # ,  "+`"> 14T|WindowaVollA=$ @|14 /Aa8, 'd@ʃ-xseqA3a#J. scr 4UAl*_ ' a`ire`US`akeys @if notCpr@n<#/WD8j8e+0+}a C^E BottomA> 2x, 2_%.R@ .F8C, , xlWholeBysff Isythޗ־' ~A)A`Qg13 '= +/EHl$[Muu44ne4*b&Eexi?Pr+_R.P_QDoq1v%r"NexXt(R!LWphile!p"AÐ4 <> UlH+P, 8)3f S?UdS4 ?UE " W2?SW7H y1tϋokn).ƤQ-ϱ\t QI PrivBtn$t@2qNewX&Ӡ!'&0(DM+ 1s~і (xlDownd9;U=@&;1 ~T1dOff@(-CopkM$.#1$PPweSpecial <%st#~2dA0"CtN6Ge.7'X/^'a blankTQݚ O)19 :=xlFats -!$q(n*Fo?0-PX'*@erior.Co@lor Selection.Cells(1, 2).Value = "U"ApplicaXutCopyModLFalsePEndRow|NewLine. :E 'Call FFields(.)MV+ 1Lnd If  Range("HeaderKeys")pyZu3), 5)).PasteSpecialB :=xls$88 8YL9̂Ylumn - 1GLock "") A Currency@(. @߫yK0vVxNextX=V D`Ict joutrnxl@ Pub Qr_ (Q B6NdKbN#7NQSeq, iJ#"iScr@eenUpdnbgK~GetT%Y'Seerthe s[qon a2  fadisplay h¢; promptanot.Qh=$cWindow.dcGtW kUn@t@σ! s( ΃]10 < Z< 0("cn !Z D@3 U/a  ).CAWa'MS8G= c`0B3do / belo<to 4. OK `dZanyw\ay5A ai`(M4sg (C (L!`, 92!), vbExcla@ +OKCan@], o 1NSR 9>Res Q-Y' : " row you have sct0za?.hvbOKOnlyo f Ci"Pro.Worrok#WrkBook).QsQg$=)6pPK9Ps multiplejm' @T_3BluPf1 M, FD3, To`OPrev!, q]R1"8|Begin(Cou`}r~First7 j yqXca p/tT1(PrW98Ns*F0FN1皁6B10s"Ì7D No \/. Insert 0_P`DfxC//1/&E/*'determvLseq num ofc.  2kQPs exist'N8 Y%MJxZaWith4`OaQ }K5!pR0.F0o( #, xlWhole, xlBy%sR Isthi]Od12`inpJz!MFL 6g`qWol'i#/q6== RS?ᡫ_Addp;Q2 u, ϣ2P02.@_ Q5?Io.To L .HowM.Visib^= |% @h Form_AddDelLines.ShowApplication.ScreenUpdng = FalseIf IsNumeric(Froms.Value) And.To ,ThenVQu!To D{BSet PrevRowDR3aNextFirsteteq%Tru1C@ounter0$@H oEndC+-.@W AlCells(C, 8)}Wŀ(Er<= (Bj) IWorkbooks(CurWrkB).AsheetrentS A)5+).Select+' ȃY jE+ 1 DI<%M|0 ?+N{V If E"9 fK Kk.Finda ( )3 Loop Until%N@WBL|'Sinc@e perf aawas aff Fed in c0Block funcalitys'the d N}A taken out f lA- commU abov'C done usi range of rowseure! (@s(C@w),  + e^- 1)kjOUnload WitU"j"pProtjADvat:e4).$cRes= "Y" ASubW a'== 'PInserts multiple journaxl l0 j  _[0(7Dim BegDin! As0teger P !*miSrce`m New[R*RNbueStr GeaO\ok/e&eOvDUnp"4"HePaderA "1~, 3 i`aG2s  ",q'MSG= N os2med. !D or  a h f.3 iPMsgBoLx((L , 92a , vbOKOnly, 4)4W`'dPrm% qOseqp numIc. scroll tolastJ_ ') aPais+1re `keys if n@ot alr yH pr3ntSeq"(PwAB c802OBottS@), 2u1- Rp2j(, xlWhole@, xlBysN RPAO L00// q'noL exisu/&{̵d"h3 S.HowManyܠ.tY Σ.Y$1= 0$.CopyData.EnablЇ /d -/ H > '0B editNreqEm suhe R""ܒ``X `Ӱ PTst-0dΉ=/,rQ\pAs caseٵ EndR@ow = 0LastLineNumBegin|8|Range("Bottom").Select+Call Add_'(Seqs, , ) ;! If  With Form_RDelTs "If .CopyData. ValuesTrAnd IsAeric(.So0urce") 0Then(*Sr~c&*Else '=  ing%эG.To 8- ]&vCells(+ 1, 2), LC, rCol@umn)).Insert (xlDow~n@yk-oWg'c{ the contents ofspecified lOWvC?, 8 ?A).Find(G, AxlWhole, xlBys).@S C YEC "WI/_?9G=9PeS)alO7]I, 7`ERa \nA'Af ter dte block ti AH numbbMfollow@Ks would#' ne`Pto be executsetTvs./c)oӁO""7N~ş"Y"O `W 09 "373`;C U7 !< "Heade rKeyspyטi"46L/ !MApplication.Cut!`Mod Far5AutoFaSDestin9:=_q#?\nd 28)TypeP:=xlSre#u 'Re*+ backoP+(*!1^ v"N_q@?k)C?nD7D$OX2nLA<= ?,=` (zze9( @UnlxoadB#Workbooks(CurWrkB ).Qshee*tbrwS).0Protvok ntActivat!Sub#! 1Pub03 FDunon d_Exist(TargetaAs Iger)  leaНDim a$ a;RR FoucY7D =%3KP K1Aj,2)u*`'!XSpgR0t?owsX`=R` Noth1o'nope fo*rmhX,re@e n40qv#1j 5'ysu` ncheA|o see if`P;"} Ķ O /? Do pGR:|+?1A/t } 1GrPA9N`ext(RxLoop Whil:e zԢ <> )eA3 ϕEQ- = `? /id@Am 4` D <->CA'n)bW( )^*K*J+[,AI-snU- Integersql?Decimal  c^ to see if it isĘd or noFtK@;Notows(1).Find("STATISTIC_AMOUNT") Is hings3SW. l> o>ho> n?End If$e;EWorkbooks(CurWrkB`).sArent).k4, 8ESubA|a@ (Dims As Vari 0/2/1r8vSoinl5PT"> @'msgtoo many@9t/YqMessag/3, 3\(?#@?#?#A5'W & C/&B &0C?_ZDOOReturnCD Box(d, 6яYqAiElsDU(y#bM >#$"T%$# f &2/g.$DKoc3/ 'E, #G0?%M If Pos - (Integers + 1) > 1 Th0en $'"too many i"jMessage = GetMsg(Lang, 93,})>H& & ". Return CDA@Box(%, 64, T itle)EAmtErr""Y :Cel.Select,End IfElse φڒEr= Ettt=t|ׁ'no decimals, sub tract fromvx le0ngthIHTotLen!Max#D 0B@%G ~;pBmo@'"not numeric,XG%.,4̝?#.#$-M 0KExit ForUiNex aSub 'This function ``rodcued to resolve ICE: 7126390@00 (AH@!FImbeddedQuotes(T As St ring)ABooleaDimN $f D S9lebAjDo ubqAG' check for Rsb q din Jo@`al ID$i=3 @(1` , 8"'"v""ǨP{0 A`*mA;rFpI$l ,Tru`Qq 5&C<'C<jDA(U5ckjD$%DB)5WF % F$%4$ 4 D  d )4 ;kjD$%(%4$ @4*Al45*246XL2DXl8<@DL4 p`@ T" x$ x x 3V4x-$. /x +v 5T$ xT" p$ p p x C( (@[M`@ 1dC(( M @ 1`'h'>`F>dF^pv2d`6@ h?C( (@ M`@ F% $!,/6@ NC( (@ M`@ #p $! "p 0#2p6@ x %pv V!p-$. /p kvWTFP%X\F`%p$ p D\ X dT )p\XTkv+R 5WTFP%X\F`%p$ p D\ X dT )p\XT,T0xDLd`p\XT@ h,4,W@FD%TXF\%l$ l DX T d@)lXT@W@FD%TXF\%l$ l DX T d@)lXT@W@FD%TXF\%l$ l DX T d@ )lXT@ 3V4<-':\N,,l< `6l 7l6,-':\8N,,l< `6l 7l6,-':\9N,,l< `6l 7l6,-':\:N,,l< `6l 7l6,-':\;N,,l< `6l 7l6,-':\<N,,l< `6l 7l6,-':\=N,,l< `6lrU~| Y 1  )ɏIyk)#)yل $#a x  ѓa!a")Ya ""9YX yi qI ) Iaia1"!Iq !Ys ɢyi!Iѕ1i Qiɷ II1ٛ/d'tx$ Hx >tx%x$ @xWd`x5d*\d$ txdp" x$ x x>`:d%tx$ Hx t d` )xt`  T p$ xt`P Jpx  pvkxkvkvApzJpzP$ \ l M\@ # FL\F`>Fp^pj26p`@    V!<C(( M$@ F%,/6KC(( M$@ #4 "4 0#2464 "4 $44 "4 $44 "4 $4c @ %pj4 $! "Q4D4 $! "Q4o 7l6, (,l< `6l 7l5,  <C((, M\@ F%<,/6,/C>C ?#023L, @:\AN, Bl< D6l Cl6,s>C>C ?F,l< D6l C2l5,&:\DN,,l< @6l Cl5,&:\N,,l< h6l Cl5,8,l< D6l C,X< 6X C)lX5,>CEC ?F,l< <6l C2l5,>CFC ?F,l< 6l C2l5,>CGC ?F,l< 6l C2l5,>CHC ?F,l< 6l C2l5,<C((, M\@ F%<,/6, D\%( %l$ Xl, D%(%X$ XXT,$ QTx)lX6,M(\%( %xa,,llX< h6X C)lX6,M(\%( %xa,,llX< <6X C)lX6,M(\%( %xa,,llX< @6X C)lX6,v(\%( %xa,,ll:IN BX< D6X C)lX6,M(\%( %xa,,llX< (6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,v(\%( %xa,,ll:IN BX< 6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< 86X C)lX6,v(\%( %xa,,ll:IN BX< 6X C)lX6,}(\%( %xa,,llfpc: ]/` `X< 6X J)lX6 ,p`}(\%( %xa,,llfpc: ]/` `X< 6X J)lX6 ,p`M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< l6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< 6X C)lX6,M(\%( %xa,,llX< T6X C)lX6,F(\%( %xa,,ll pr/l6, kr$krD,l< `6l 7l5,!krD,l< `6l 7l5,/CKC ?# 02ul< 6l PJl  pkCLC ?1\fc,>\# 0\ l< 6l J2\l6\,l< 6l PJlf,l< 6l Jl5,/CMC ?# 02l< 6l Cll< 6l 0Cll< 6l Cll< 6l 0Cl  >CNC ?F,l< 6l C2l5, l< 6l Cll< 6l 0Cll< 6l Cll< 6l 0ClKC( (, M\@ #l< H6l @O2l6,KC( (, M\@ #l< L6l @O2l6,KC( (, M\@ #l< P6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC(&(, M\@ #l< p6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l HJ2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l HJ2l6,KC((, M\@ #l< 6l @P2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @O2l6,KC((, M\@ #l< 6l @P2l6,KC( (, M\@ #l< 6l HJ2l6,KC(!(, M\@ #l< 6l HJ2l6,KC("(, M\@ #l< 6l HJ2l6,KC(#(, M\@ #l< 6l HJ2l6,KC($(, M\@ #l< 46l HJ2l6,KC(%(, M\@ #l< $6l @O2l6,KC((, M\@ #l< ,6l 0#2l6,KC((, M\@ #l< 06l 0#2l6,c<3$4/,l3$4 @6l C,:\]@l5,*  T  (\%( %l$ Xl,(%(%X$ XXT,$ T)lXT6,*\%l $ lQl~(\%( %l$ Xl,(%(%X$ XXT,$ QTx)lX6, x_(\%( %CRC ?# k%xa,,ll2l5,A(\%( %xa,,ll(']3l6,3!:\RN,, S/5,[(\%( %xa,,ll(`:RN S/l6, D\%( %l$ Xl, D%(%X$ XXT,$ QTx)lX6,V:L&%(%(%(\%( %xa,,ll>TCl6, 3V48a(\%( %l8 <6Qlo,  Uxa,XXX6,a(\%( %l8 @6Qlo,  Uxa,XXX6,\(\%( %l8 D6Qlo, N%xa,XXX6,T(\%( %l8 (6Qlo, xa,XXX6,a(\%( %l8 6Qlo,  Uxa,XXX6,a(\%( %l8 6Qlo,  Uxa,XXX6,a(\%( %l8 6Qlo,  Uxa,XXX6,T(\%( %l8 6Qlo, xa,XXX6,a(\%( %l8 6Qlo,  Uxa,XXX6,1l8 6Qlo, :\]36,.!5(D%( %d\%xa,,lll5,!\(\%( %l8 6Qlo, N%xa,XXX6,a(\%( %l8 6Qlo,  Uxa,XXX6,b(\%( %,l8 6l C,`# k%xa,XX/)lX6,a(\%( %l8 86Qlo,  Uxa,XXX6,1l8 6Qlo, :\]36,#5(D%(%d\%xa,,lll5,y#\(\%( %l8 6Qlo, N%xa,XXX6,*,l8 6l J,c\]3l5,#6(\%( %: %xa,,lll5,$6(\%( %:V%xa,,lll5,*,l8 6l J,c\]3l5,{$6(\%( %: %xa,,lll5,$6(\%( %:V%xa,,lll5,,l8 6l C(%(%X8 6X C`# kpd,:\]/` `xa(,TT/)lXT6,p(`a(\%( %l8 6Qlo,  Uxa,XXX6,a(\%( %l8 6Qlo,  Uxa,XXX6,a(\%( %l8 6Qlo,  Uxa,XXX6,a(\%( %l8 l6Qlo,  Uxa,XXX6,a(\%( %l8 6Qlo,  Uxa,XXX6,a(\%( %l8 6Qlo,  Uxa,XXX6,T(\%( %l8 T6Qlo, xa,XXX6,%,l8 `6l 7,Uprl5, krc(:(\%( %krD%xa,,lll5,( kr(6(\%( %:%xa,,lll5,(7(\%( %krD%xa,,lll5,c8 W@FD%TXF\%l$ l DX T d@ )lXT@( %(%l'D%:\W%$ la,,XX(L%(%T'%:W%$ Ta,@@$ ) lXT@6,!l $ ll=,tlc\%t,(\%( %xa,,ll(%(%xa,XXT$ Ta%t,)lXT6 ,3V4l-$. /lW@FD%TXF\%l$ l DX T d@0)lXT@W@FD%TXF\%l$ l DX T d@0)lXT@W@FD%TXF\%l$ l DX T d@ )lXT@7(\ %( %l$ Xl2l5x4,4<8txP\lXT@,p`(,?T FX%hl$ Hl h dlT=Xp)lhTl:4%'%%%%(X%lp Xl>YAdZ(tTUpxl6d kxkxl vkxcPkvDX%(8%hp Xh kvD%(% p X  kvDX%(4%lp Xl:[kvD%(%hp XhdT:\@kvD%(t%Tp XT :\kvD%(%p X:|]lkvD%(%p Xd:Ntt:]/T TD:4\$kvD%(l%p X:<N,,:]/LL  kvR)lhTh 64dT@ tdlTDL,$ vdPpz$pz ,(p$lhTh dT@ ltdTD$L, $" p$ p p WDFH%X\F`%p$ p D\ X dD)p\XDWDFH%X\F`%p$ p D\ X dD)p\XDx yC((4[M`@ 1XC( ( M@ 1T'\'|>TF>XF^pv2XT64|\?C( (4 M`@ F% $!,/64NC((4 M`@ #p $! "p 0#2p64 x %pv V!p-$. /p kvWDFH%X\F`%p$ p D\ X dD )p\XDkvD`%($%p$ Xp4kvD%(%\$ X\X4$ X')p\X644\F`%p$ p d\ )p\($%(%p'H%:`W%$ pa4,\\(D%($%X'l%:W%$ Xa,DD$ ) p\XD64#c`%p $ p^p!p $ p_p# p$ p p  T WDFH%X\F`%p$ p D\ X dD0)p\XDWDFH%X\F`%p$ p D\ X dD0)p\XDWDFH%X\F`%p$ p D\ X dD )p\XD l0x6 PXTp\XD4|\d" $   WF%F%$  D  d)WF%F%$  D  d) yCtt(x([M@ 1C  ($ (D Md@ 1''>F>F^p2t 6xD$ $! " $?Ctt(x ( M@ FD% $!,/t6xDNCtt(x( M@ #  $! " 0#2t 6x):DN $! " C5  %p kWF%F%$  D  d );kD%(%$ @*Ax(54C  RCtt ?# k2t (']3`!t:RN S/t5-fo<>TCompObjpCompObj@a(`t:RNxx S/t6x(%(%$ X(T%(%$ Xxx$ )6x*% $ Q(%(%$ X(T%(%$ Xxx$ Q)6x=x`25x3kD%$ @x1a5x! $ _  V!$(%(%>*C57 "Qo%(%(%>x*C6x7 "Qo%(%(%>x*C6xG " CNT%(%(%>x*C6x>:&%(T%(%(%(%>*>xTC6xA:d%AZ%(%$ XxC6xc_(%(%B*(T%(%Bx*x$ '6xWF%F%$  D  d )(%(T%'%:W%$ a,D(%(%'%:W%$ ax,$p$D$ p) p6xD$#c% $ ^! $ _# $   (l (\p:4'%:+%$ a"i5(%(%$ Xx'4%:T+%$ a"i%(%$ XDDx$ Ql)6xD:( @'%'d%4%%l,5 lcua"il5Ha"i%(%$ XxAD6x (3g a"i\5!lo%l,5 k:p:Dlc(/'xaD"i]l<$'6D 5:b%$ @cAxdUp6x @(%$ XDk:Dd(Tx%kD%$ X$$D$ )6D$ @(%$ XDk:Dd(Tx%kD%$ X$%$D$ )6D$Fk:D(x%$ $26$$ $ WZ<Hk:D%< @$ >DT26D$ $ WZL{l @$ %\ @$ x%$ @$c2)6x$! $ a{L @$ < @$ xx$ )6x! $ _  V!h4(% $ eC56:&%(% $ eC5Gh "Qo%(% $ xeC6xGh "Qo%(% $ xeC6xXh " CN%(% $ xeC)6xch=(%(% $ *:T]357<:T'%(%(% $ *C5<:T%(%(% $ *C5<:T%(%(% $ *C5<:T%(%(% $ *C5<:T%(%(% $ *C5:(%( % $ x*25xs:(%( % $ x*25xcl  T  V!-$. /WF%F%$  D  d )WF%F%$  D  d0)WF%F%$  D  d0)dJlhlL(\l @<lPt pxD$<  V!tKC  ($(D Md@ #t " @O2 6D$KC  ($(D Md@ #t " 0#2 6D$!t " $kKC  ($(D Md@ #t " @P2 6D$KC  ($(D Md@ #t " HJ2 6D$KC  ($(D Md@ #t " HJ2 6D$@?t " H$taD*njd%t,5DV t " H$t " $nn7t " $) !t " $kKC  ($(D Md@ #t " @P2 6D$KC  ($(D Md@ #t " @O2 6D$KC  ($(D Md@ #t " @O2 6D$KC  ($(D Md@ #t " @O2 6D$?t " H$taD*njd%t,5Dt " Lf5 M4 N'$'Dt " <f6D$!t " $kKC  ($(D Md@ #t " 0#2 6D$KC  ($(D Md@ #t " 0#2 6D$t " ft " fct" $   $!" $  * $! " fl5D $! " fD(d$Upz6D$pzT(t,  D$@" @$ @ @ d C(([M0@ 14C( ( M@ 10'8'X>0Fx>4F^pj2406xX8V?C( ( M0@ F% $!,/6NC(( M0@ #@ $! "@ 0#2@6 d %pj V!@-$. /@ kjTW$F %(,F0%@$ @ D, ( d$ )@,($@$ @@@;kjD0%(%@$ @@*AT@53kjD0%@$ @@1g@5@$ @@0@4,F0%@$ @ d, )@,@$ @@@2@' %:0h%$ @aT3@5T(@' %:0W%$ @@!@ $ @i@ (0l pJpHpF(0%(%@$ X@,'%:+%$ ,a"ih%(%($ X($$ Q$)@,(6:T @' %'%%H%,L5 lLc$La"i0l5JLa"i0%(%@$ X@AUpR@6kRD0]T3 kH pFpH kJpJLa"5!lLo0%,L5HlLc kRD0]T/'La"i]l<'6  kF"kFD0%@$ @%kFkJD%,$ ,%($ @(cg)@,(6c@$ @@0@  T W$F %(,F0%@$ @ D, ( d$ )@,($|@&lTLd%$L40@,($xX8" `$ ` ` W4F8%HLFP%`$ ` DL H d4 )`LH4`$ @``Z(%(%`'8%:PW%$ `a$,LL2)`L6$.` $ `W$:P]3`5$C(($\MP@ 1HC((\M@ 1D'L'l>DF>HF^pf2HD6$lL V0DP%(%`$ X`D|%L'%:b%$ La$"i4%H$ XH4$ 4)`LH46$ M8@MP@ j )iP%`$ D`,`$P%`$ D`,`0`'8%:Ph%$ `a$U`5$ (Ph(P%(%`$ X`L'%:+%$ La$"i|%(4%H$ XH4$ Q4 )`LH6$<DP%'%'%|%4% $,x5$ lxc   (Ph(`'8%:P+%$ `` M8@MP@ j 7xa$"iPh5$xa$"5$!lxoP% $,x5$6lxc8xa$"iP]h<'6$8BDP%(%`$ X`$AU`6$DP%(%`$ X`D|%L'%:b%$ La$"i4%H$ XH4$ 4)`LH46$ M8@MP@ j  )iP%`$ D`,`%h"iP%`$ D`,`c VT W4F8%HLFP%`$ ` DL H d40)`LH4D\0 hxLHD`LH4$lL@ *`%p $ pQp!p $ lp=,xp I(@%p'P%:`k%$ p ,')p5 -(`%x ,pp'p5  xA %(`%(@%xa ,ppCp6 @: &%(`%(@%xa ,ppCp6 @( %(`%(@%xa ,ppCp6 AD %(`%(@%xa ,ppCp6  x*`%p $ pQpI(@%p'P%:`k%$ p ,')p5 .`%p $ p_lp= %(`%(@%p $ p *Cp5 (`%(@%p $ p *=mAn%( %(% $ *=oCn)p6 <: '%(`%(@%p $ p *Cp5 # p$ p pxa "i`b5 xa "i p6 P(` b(p'P%:`q%$ p'pl%(`%(@%p$ Xp %( %(%$ X%x,XX )pX6 # p$ p pfH%(`%(@%p$ Xp%(%'%: b%$ a "i%X$ XX%x,44, )pX46 >(`%(@%xa ,pp2p6 H(x0 pX4 x /l$ @lWLr4Hxl5LDsxa\4]35\-xa\g,llaL"pvl6\L5 kvD4%l$ Xl\,pl5\:pa\:4t]LF1>PF^pb2PL6LtT kb$0v@\$ @\1g\5  T C((L\M<@ 1PC((\M @ 1L'T't>LF>PF^pb2PL6LtT\$ @\0\W@F,%DHF<%\$ \ DH D d@ )\HD@<<,xdLPL\HD@LtT  WF%F%$  D  d )$ @Z(%(%'%:W%$ a,|2)6|. $ W:]35Cxx((\M@ 1Cdd(h(|\M@ 1''$>FD>FT^i\2xd6|hTD$0'%:h%$ aU5(%(%$ X'%:+%$ a"i4%(%$ X||$ Q)6|<D%'%'%4%%,$5 l$cOCxx((\M@ 1Cdd(h(|\M@ 1''$>FD>FT^i\2xd6|hTD$  T $a"p"5 vVwEk"D%(%$ XA(]@6 Qk"D%(%$ X= x C)6- ( x C58 x C x C)5 x $cv$w" $  Vv$w x C v$w x C )68v$w x Cx kL/x54v$w x Cx pJ/x5 l$8 l$(pp p(AZU5<D%(%$ XAl5#LlIlkJD]I'|m@F%F%$  D  d12)5 k p k pp (8M!( @,(5lkJD]3kD%$ %kk D%$ %F%F%$  D  dhc2) 6h! $ gvVw-$. /cWF%F%$  D  d0)WF%F%$  D  d )A(%(%$ @1>|*26|  T D,\(lL$8Txd|hTD$H W4F8%HLFP%`$ ` DL H d4 )`LH4`$ @``Z(%(%`'8%:PW%$ `a$,LL2)`L6$.` $ `W$:P]3`5$C(($\MP@ 1HC((\M@ 1D'L'l>DF>HF^pv2HD6$lL0`'8%:Ph%$ `a$U`5$(P%(%`$ X`L'%:+%$ La$"i|%(4%H$ XH4$ Q4 )`LH6$<DP%'%'%|%4% $,h5$ lhcgha$"pz5$ha$"5$!lhoP% $,h5$"lhcha$"kz5$BDP%(%`$ X`$AU`6$r c vVw ($` x` C`5$&D$` x` C`5$&D$` x` C`5$ ` x` PJ`cv$w" `$ ` `/$`v$w x` C$(P]t`5$wW4F8%HLFP%`$ ` DL H d4 )`LH4lhcS  pz(`'8%:P+%$ `` M8@MP@ j  vVw^$` x` J$cP]/L xL C 8')`L6$81$` x` C$ pt/`5$ptc;$`v$w x` C$ px/`5$“DP%(%`$ X`kxD|%L'%:b%$ La$"i4%H$ XH%4$ 4)`LH46$-$`v$w x` J$cP]3`5$c kzDP%(%`$ X`$D%(|%L$ XLktD4%'%'%%%H$$ H,44a"pr)`LH46$krDP%(%`$ X`krD|%L'%:b%$ La$"i4%H$ XH4$ 4')`LH46$DP%(%`$ X`kxD|%L'%:b%$ La$"i4%H$ XH4$ 4)`LH46$ DP%(%`$ X`$D%(|%L$ XLH$$ H')`LH6$DP%(%`$ X`$kxD%(|%L$ XLH$$ H)`LH6$GDP%(%`$ X`$A:]3`6$  Cd<:y%DP%(%`$ X`$C`5$DP%(%`$ X`$kxD%(|%L$ XL:4&%H$$ H,)`LH6$DP%(%`$ X`$kxD%(|%L$ XL:4y%H$$ H,)`LH6$(`'8%:Pq%$ `'`DP%(%`$ X`$kxD%(|%L$ XLH$$ H)`LH6$# `$ ` `ѓDP%(%`$ X`$kxD%(|%L$ XLH$$ QHo%%D4%(%4$ X4z{|)`L46$ ld 0:<:%DP%(%`$ X`$C`5$VCdDP%(%`$ X`kxD|%L'%:b%$ La$"i4%H$ XHf%4$ 4, )`LH46$J$`v$w x` C$ to/`5$6$`v$w x` C$ /`5$vVw`-$. /`W4F8%HLFP%`$ ` DL H d40)`LH4W4F8%HLFP%`$ ` DL H d4 )`LH4 H<$ dlhLHD`LH4$lLTW<F@%PTFX%h$ h DT P d< )hTP<.h'@%:Xh%$ ha,Upxh5,(X%(%h$ XhT'%:+%$ Ta,"i%(%P$ XP<$ Q<)hTP6,:kxDX%'%'%%%,,p5, lpc|pzGpa,"pv5,pnRpa,"iX%(%h$ XhA D]3h6,pn?!lpoX%,,p5,"lpcpa,"kv5,knpzcT,p,hTP<,x " l$ l lj:0+%@FD%TXF\%l$ l DX T d@c2)lXT@50l $ lWZ(\Upzl55:\k%l$ @lcAZUpxl6 kxpx VT44C((ZM\@ ,/65:\}%l$ @lcAdUpvl65:\~%l$ @lcAdUptl6kxD\%kvD0%l$ Xl%kzD%kvD%X$ XX%T$ @T|c2)lXT6| 4V0kxD\%ktD0%l$ Xl%kzD%ktD%X$ XX%T$ @T|c2)lXT6| 4V0C:0%(\%l$ @l1BYqcl65:\%l$ @lcAdUprl6kxD\%krD0%l$ Xl%kzD%krD%X$ XX%T$ @T|c2)lXT6| 4V0xp(0%(%@FD%TXF\%l$ l DX T d@*2)lXT@5`$ 0 lXT@|</0MD@ M4@ j9 D%0$ 0  `05 Y(D%0 $ 0W d%$ XA`1\)06 l\pZl\pXkXkZpV$0 $ Q0[lr6lA `1h5 l=  5  lhJpf kVpdlhp`lhpb k` kdpd kb kdpd kfkd4C(( ]MD@ (/6 >( #*#*#kV#*#*(2 3'' ,M4@@(MD@^06  T4 l2 kbkfkbkVV l24C(( ]MD@ (/6 $(kV#*#*(23'' ,M4@@(MD@^06  T4 k`kb4C(( ]MD@ (/6 #( #*#*(23'' ,M4@@(MD@^06  T4 l2kb 4C(( ]MD@ (/6 #( #*#*(23'' ,M4@@(MD@^06  T4 l2kfkdkV4C(( ]MD@ (/6 #( #*#*(23'' ,M4@@(MD@^06  T4 l24C(( ]MD@ (/6 3'' ,M4@@(MD@^06 l2  T44 0)6 ls*%<8 hl\4 0 \ pv ptkvktNpzWpz\$      urU @$`$`(`00`  0//(!`/$I`$q`$`(`!&0 `90o$ `$9 `(a `9o$ `$`0` Yq//&(`!/$)`$Q`$y`(`&$`$ `(1`0nrU ,$`,`0,`/0(`0(!`0$I`$q` 8`#6*\R4*#6*\R0*#19*\R0*#13*\R1*#6c$*\Rffff*0`46489bc5*\R1*#45*\R0*#e*\R0*#11$*\Rffff*0j46489f58*\R3*#37*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28$*\Rffff*0P46489e15*\R1*#90*\R1*#5e*\R0*#10*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R0*#1R F`(xME 8)))L0> LL"LLLPLPL L"LLLL"L LLLL"L L LLLLL<^bjN4P @:P@:x @> @B$ @ꀜ @%H( DH`pk +`,kir idtor V`k "Ir (iJ L`kA D` k//U 14+d`H"0kif 0ihPijpiD`lv`n"t`pPr r`#Tk'' 14@Tl d#@<\ Fo`tXje`vH `xFf in ~@ ``&k ,,`x t  `rnt  `(k 33`l @\ `X T `R  `+k rr@l @\ `X @TH `D@`V `0 @ @( @z @| @ `. h%  `00k I out  14`~j`X !`PV'4`T+ ` 1,k )  /Onxt ' tu   14`xMyAd`vns("`tLa`r p ` P3k 14 x .GoToCont `v`pxla P  `06k SI  iveWi @l h)`\ orkb`L n ("` J trol`DDriv`B `P @` >1Th  8 oredcatalog ` 6@$ xls` `ipsh@ -jou@ orkb` 0 ship@  ts i`l sh x`9k ||i    Thi@ t coi` alogI  you i' `^xat n`" t`$p`& lof d`( jwork`*h shi`>ds is``dial`,^ns d+6`p=k::_)8>  to %i:i^'d t8l%`<p'p`>ln`j p`@d`B`P`x^l ad .`x@HkDDiL 0i P = ni:pets iNship Pxts i%`v+ 1 `Rtnal `(r + Tlplat%`^halog d` 'a dialogH `V0`you +2x`DkI" I& of dI$  . II  @ SkiI `diali gshe ]t a% ape jr%@d` to @fP '@ hL %@< f@l, `n('p`p$n@ p@b  `P@r@ l ad@t y sh@v( @^ @x @z )`|0)`` < `I|kt @`Ik{)  appe%ir a +`LkKKi ex@d P`b|@P %`L H0(@2@<(@<x@@"@+`xk -i LF0J@x 8@pt @p 8+H`xk 7i (x @x xHp (P@xHPX@((p(X`x F @t @p @` @\ @L X@< @, (0F @x @t @Hd @@` @`P @@ @x0 @ @ HH``xpHD88pP`x`8 D@0( @p(F@Xx @t @d @` @\ ` (@L @ < @X , (@@  @ @p  @ P@ @ @ !p!!!0"F0H24@x @!t @@"d @` @!P @"@ @0 @ X!<>@"p0h#8#" ##`dx#" ` @P#` @P @#@ @0 8P h$P$$h$%D0z|L@$@ p$@$0 @&, @$ @$ @(% @% @% @X% @@% @p% @% 0@ %@% @%x @h 8$NHPJ8@d @&` @0&\ @H&X @T ('(x'H'8('(8'Dr<:l0'`%' .@`'\ @'L @'< @', @' @ ( @ @ @P( @ @h( @( @ 'J0@( @ X*)*)*)++*D0L@)L @)< @X+8 @(*( $)`%*) @@* @* @p* @* *@ @ @ @* @ H+++@l >@0+ B@ +0+B@p+ @ 0+!h)r<:J@ pX8P-X-,h,-,./@/,D0L@, -,`%-, @, @@, @@- @(- @p- @/p @.` dk@-\ @.X @T @-P @0.L @-H .-d@D_ .-/-$X@H.@ @`.< @x.8 ''@.4 @0 P,HP"nV@, @X/ @ 0/.?f@`/?.<:r@p/ @/ @/ @/ @/ @ @ 0h80p1000@l 0 0HB@@1P @X1@ @(1< @@18 %@4 @$ @1 @  8 @2h P 28322@2x2X2`z h2@2F>@0@2l @2h @d @3T k@ 3P @@ @< @@,  8 444 4X584p56X4LDl@6l @h4\ XP4` %584H@4H @48 @4( @4 @5 @5 @ @(5 @@5 @ @ @5 5p5M@ 55M@5 @ %5Q 3VLr@ 8 h ` H x 7670778p7H7899`7DLH@`8 @ @7 @7 @ d7H787`p h%8p7@7 @8 @8x P @08t @9d DD@T  @H8P @L @8H (6r0D8`11%P98, @8@ @< @8 @ 9( @ @`9 x989N@ 9`9Nx8<:J`9rH `` 0@ (;h:::X;X<0<X=H<FL.0@:X @:T @:D @@ @:0 \\@; @< @@; @p; @; @ @; p@; @; @; @ @ P:2Hj<@< vv@ p<0<6@ X<9H@< (@< %@<| $@<l @<\ @=L @(=< @@=, @ <:<4`(pX @0?`>>x>>>?(>`6xH8>>>.L~4j|@X @?H @>8 @4O nnh@> @>$ @? @x? @? @H? @@ H>ZTF@? @? @? @ @ `?J0id @ @ @8@ @P@ @ h>/0PphHC0A@B`A0CCCACAF"HJ0@HA\ @xAX @AH @xCD @@AB AA @@@ CA@@A0 @B @(B h@pB h@XB @B @B @B @B P@B 0@ @C @Cp A6F@n @`Ch @d @` \C`%CC @L A4@H pHXD@``DEhEDEGEDGD`2xDDE@ E @F @ @8Ep @PE` @FP @XF@ xLzFH@E< @E8 @4 @F$ FE,@0F HFF,@G G0F,@pF @F @F EDj@`H @0H j@G @G @0G 8@HG P@`Gp @xG` h@P Fn0FG0FP@L @G< HGZ @xH,  HGZ`HGi@HH @ @I @H HxHx@H HHx @ HHxH} @ I @ pJ`KxKKJ@Jx 0x @Jt @Jp @Jl (!@Kh @0Kd @` @HK\ LD@X h @KH @K8 @K( @K @K @ @ !LLMMM MLpML`xLL L`"`t!8ML@M< @HM: `M M @8 MHM @@( @M @ @ MM HMF"  @,4ݢHF*\R1*#1c8*\R0*#1a$*\Rffff*0v4648a313*\R4*#16*\R4*#19*\R4*#4*\R1*#f1*\R1*#e8$*\Rffff*104648a374*\R4*#11*\R0*#10*\R4*#1*\R4*#18*\R4*#18*\R4*d*\R0*#1e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42$*\Rffff*0k46489f58*\R0*#1*\R0*#14*\R1*#f2*\R0*#f$*\Rffff*0a46489bc5*\R0*#f*\R1*#dc$*\Rffff*0t4648a2c0*\R1*#f1*\R1*#d7*\R1*#e8*\R1*#2ac*\R1*#dc*\R1*#d7 @ @H PX`hpx " "( ' B  (X H " P X,]p>(R> B G#d#(d#Hd#hd"dG B G#d#d#d#e"0eG "9 D8DXDxDDDDD*M8*Mh*M(w @"@ 'H %Xh(x $ .   6 8  X 4x  & "  L0 $ 2   .  P p     86   (      B        0 @ P  h  .x    > "     <( 78 3P Bh  "   P `  \p    :   2*8/P`hp ?x . . ." (08  @`h p  > M  5 "]    ,K( @H  P` Nh661   U(HP X x "  (<  ( 8 >@ MX x   5 "]     8P "`RpU "    86 681Ph px "&     0 >8 MP p  M  5 ?   / O 8 H  X Eh)       "<<  `2p !2/  2 "N 0 4@ `!p -8,:/ ? 88 X h  H $ $6 (D * P X 2`p"N /(7/? "  0 (86`6x5"T   N6H6`5x ? "  R0  7(H"5X5 N & ( *@ p * * $ $ 0 H Xh B px  4  n fH   N (!8!@! "_H! Bp!  !  ! !!!!"" """ "("  "0"@"  6H" ." "" " " #(#8#  P#>X#Mp#M#M#M#M#M$M0$MP$ Mp$M$M$M$M$M%M0%MP%Mp%M%M%M%M%M&M0&MP&Mp&M& >&>&>&>'>0'*kP',k'(k'.k'&k(>0(>P(>h(0k(,k( /( )) ) ) /() H)P) X)`)  5h) x)*) *^)&) ) )  ") * "* 6 * E8*P* =X*=x*=*=*=**Z*,Z(+(ZX+*Z+.Z+&Z+=,=(,=@,,Z`,0Z,,Z, ,, (r-(-$a0- X-`-h-  p- $- 0- 0- . (. @.P. VX. :. H. *8/ Th/ $/ V/" @0H0X0`0h0p0x00000000 0 )0 -0  11 1 (1 >01 MH1 Mh1 =1 >1 &M1 (M12   2 "02 /@2 &iP2x2 2 272 2 2  2 2>2M3 03 @3 P3?`3 Vx3M3=3 >3&M3(M 4H4>P4Mh4 4 4 4 4 4M4B4?@5X5 `5 5p5 5  5 5 "5  55 5-6 6 E 6 A86 $7P6$ x6 6 6$16$ 6 6$$D6$76 7  7 "/ 7H7 P7`7$3h77 777 7 7 478882u8P8  X8 `8  p8 8 88 8 88 (8 69 69 109H9P9  'X9Th9 #99999 09 .9 0(:" X:`:h:p:x::::: ::  :?:  ":T;  ;  0;  @; *`;   ; @;; >< @< P<`<h<$ p<< $<^I<RI@=D7=&= @>H> >`> > >   V> 2.(?  "0`?  ? ? ?%? ? ? ? @ &@?8@ P@4m`@,@%@ @  $@?A (A&@8A&>`A,A%A AA A A  B , B PB *`B B &B  B LB6 C68CPC"/hC0CC C  C/C%CD"/D.08DhD pD$%xD"/D80DE E E0E8E @E 6HE 4E nE 6(FB `FhFpFxFFFFF 6FFF";F FG G"G &0G"PGpG xGG ";G5G G+c GH  H U(H(HH :pH H$_H1HII I 0I B@I  I <{II I II 4I 20J 4hJ 6J" JJJJJKKK>K TXKKK K  K?KLL >8L>XL.=L0L AL?M: M:`M M MMMIM FM 4?N PN 0/hN 4?N  N$ N$N NO!O"O 8OHOPOXO0=`O?O O OO OO$O PP P8P ,@P *pP ,PB PPP >P(Q@QXQ`Q,xQQ Q Q Q Q Q Q 'R @R&XR2RRR R S  `S 3pS 6S (S S  S S T T? T 8TKHT hT  xT";Pe$CTT&TT U .U 0U .@U`U .hUU*WUU &GU&PU&C V.eHV;xV2V ?V6V1WW.e WIPW;pW 2WW WWKWW W&IWK X @X?PX hX xX X X"X"?S$CXX&YY 0Y .@Y `Y .pYY .YY*WYY Z Z2`ZPZ   XZ `Z &pZ /Z ZZ  Z Z Z Z[[(D8S [ ([ @[H[ *P[ [[[ ,[ [8[\\\$\ (\"I8\`\ h\ \\\ "\ \\ " \\X] 2`] ]B (^0^@^ ,P^ ^  ^^ b^_ 4 _)X_p_ x__ __ __ _` `(` @`P` h`x` `` `` `` aa 0a@a Xaha aa aa aa ab  b0b HbXb pbb bb bb bb c c 8cHc `cpc ccccc c  c ce:This module contains the macros for the main control sheet80]](]]P](]P]x]x]]]  L(NLanguage$' F!'0A@JoHReturns the option setting rOptions F%F%H!d'iSets the options rOptions F%F%H!d JOptions F%FB@ J rOptions F%F%H(dOptions F%FB@koH F%N )$5P( )$5R( )$5T( )$5V( )$5X( )$5Z( )$5\( )$5^( ) $ GroupBox17`(d ) $ GroupBox27`(d )$ GroupBox37`(dq0 ) $ F%N!b(o9This macro sets information about the workbook and sheet. F!'0 H!'2 2_H'4Language$'Get the user's preferred Lang(Set Settings = UserForms("Form_Options")/On Error Resume Next ' turn off error checking2Set wbMyAddin = Workbooks(AddIns("Jrnlmcro").Name)LastError = Err.Number.On Error GoTo 0 ' restore error checkingIf LastError = 0 ThenJrnlmcro.xla is already loaded. Run ("GoToControlPage")ElseE 'Jrnlmcro.xla is not loaded yet. Load it from ActiveWorkbook.Path SavedPath = CurDir() & "\", WorkbookPath = ActiveWorkbook.Path & "\" ChDir (WorkbookPath) ChDrive (WorkbookPath)( Run ("JRNLMCRO.XLA!GotoControlPage") ChDrive (SavedPath) ChDir (SavedPath)End If1The logfile name is stored in the message catalog  $'< < jrnllog.xls'<kTSkipsheets = number of non-journal worksheets in workbook. In the sample shipped, ' Skipsheets is 4 because 1 Control sheet + 1 notes sheet + 1 journal template sheet ' + 1 journal header template sheet = 4. The Options dialogsheet doesn't count ' because it's a dialogsheet, not a worksheet. If you add additional sheets to ' the workbook, add that number to Skipsheets.'>[SkipDlgs = number of dialogsheets in jrnl workbook. In the sample shipped, ' SkipDlgs is 1 because the only dialogsheet is the Options dialogsheet. If you add ' additional dialogsheets to the jrnl workbook, add that number to SkipDlgs.'@o]]]'d f h D'l l l h 'p p f j D'n n p f p n p $'dk`kXiP8This macro will add a new journal entry sheet and header] 8P]h]A@D 0$B@ )$'< )$'t t <$z$|'T L(N T1/13/05: AH ICE 733561000 Need to make sure NewSheet is less then 29 characters since the name has _H appended to it and the max characters for a worksheet name is 31 T show error [ $ $'x exit|XkP Template_H$N|Template 0$%PB@n T H( T$N| Template_H 0$%PB@n T_H H( T$PB@RdA@Jk 0$B@op(========================================' Select a Journal Sheet and activate it(========================================]]](Get the number of sheetsA@D' $  )$9  $5(5B@ 5(55! 5!  9 B@P5!5!5%'kq A@r`dGMsg: "No journal entry sheets exist. Press New to insert a new sheet." Z$'< ^$': :@ <$'k ( A@Jd  0$%PB@Rko======================= Delete Journal Sheets=======================@]]]]A@D"Application.ScreenUpdating = False 0$B@ $   )$9 )$5(5(5(5B@x 5( 55! 5!  9%q B@Ps ar !.  !  %  %' _H' L( the  0$%PB@`  0$%PB@ L(k8 0 A@r d 2Msg: "No journal entry sheets exist for deletion." Z$'< ^$':d :0 <$'Xk A@Jo ]Xpx]]] 8Ph]Get the number of sheetsA@D'T $%  )$9 )$5(5(5( )$5( 5B@b 5( 55!  9q B@Pnd D !! !! !%' _H' !'TN'  0$!P T !name already existsY'k( N L(N T_H' 0$B@ Template_H 0$%N|  0$%PB@n T H( T 0$%N|  0$%PB@n  H( $PB@ T$PB@Change System IDs $PB@R'  " $!t$n'( ( NextSystemID$$n'z z' NextSystemIDAVpdh NextSystemID z AVk@ z  " $(t   $(t= DocSeqNum T$PB@R$! (  7. lines exist for the header !'_` !$!t'| | (\ !'.  7.k  | ( !  z $ .$$(tkq $PB@R  '  " $!t$n'( P T$PB@R$ $$(t$B@Hh T$PB@ 0$B@ L(Nd!Msg: "Sheet name already exists." Z$'< ^$': :0 <$'Control 0$%PB@Rk(k  A@rdGMsg: "No journal entry sheets exist. Press New to insert a new sheet." Z$'< ^$': :@ <$'kh 0$B@oP]8]P]h]  0$%PB@R BottomLine$!'~ ~ '~ InsertLine H%!'B B 'B LastLineCol H%!'DescrCol H%!'GActiveSheet.Range(Cells(FirstJLine, 9), Cells(BotLine, LastCol)).SelectFor Each Cel In Selection.Cells! If Cel.Column <> SkipCol Then$ Cel.Value = UCase(Cel.Value)  End If$ If Not IsNumeric(Cel.Value) Then # Cel.Value = Trim(Cel.Value)  If Cel.Value = "" Then  Cel.Value = Empty End If End IfNexto] ]8 ]P ]h Get the number of sheets F!P!'  > gNow set the array size. The number we're interested in is the total less Skipsheets (set in GetSheet)._Then divide this number by 2 because we don't want to include the header sheets in the listbox.  > '  HCounter = number of worksheets to skip + number of dialogsheets to skip. > @ ''_  0$%P! + <skip the next sheet because it's the associated header sheet  '  '  'd'ki ] ] ]8 L(N A@D/Set LstBox = Dlgsheet.ListBoxes("LangPrefList")'With Dlgsheet.ListBoxes("LangPrefList") .List = Array("English")  .MultiSelect = 1End WithBuild_LangArray (haha)h English+   *$9 *$5( *$5( *$5( *$5(  *$5( *$5(  $5(  $5N( * $50( * $52( * $5( *$58( *$5:( *$5( *$5( *$5(  *$5( *$5(` *$5( *$5( *$5(  *$5(, *$5( *$5( *$5(" *$5( Def_BusUnit$5(tDef_Date$5(t  Def_LedGrp$5(t Def_Source$5(t Def_UserID$5(t Multibook$Y$l9 & Def_AutoGen$Y$l9Unicode$Y$l9DisplayMessage$Y$l9DocSeq$Y$l9 Def_DocType$98 Import_URL$9 Import_UserID$9DuplicateOption$S$l9 ErrorOption$S$l9 LogMessage$E 9d9k ChangeStatus$C9d9k 5(0 5( 5!  5%Language$P  5,k L(N C@P L(N 5$/5!t/5(tk Def_BusUnit5!tAVDef_Date5!tAV ( Def_LedGrp5!tAV Def_Source5!tAV@ Def_UserID5!tAV* Multibook5YN$lAV& Def_AutoGen5YN$lAVUnicode5YN$lAV LogMessage5EB$lAV#DisplayMessage5YN$lAVDocSeq5YN$lAV Def_DocType5AV Import_URL5AV Import_UserID5AV ChangeStatus5CN$lAV(DuplicateOption5SU$lAV ErrorOption5SA$lAV.5!Language$5!5%A@LLanguage5!5%AVkkq A@rIf LstBox.ListIndex <> 0 Then'* With Dlgsheet.EditBoxes("OprLangPref")) .Text = LstBox.List(LstBox.Value) .Enabled = False End With End Ifh)oO===============================================================================4 Entry Function for Online and Batch Journal ImportB HowMany : Indicates how many journals sheets to be processed$ (SELECTED, THIS ONE) M Mode : Indicates Onine import (XML link) or Batch import (flat file) (IMPORT, FILE)`,O===============================================================================p ]  ] ]8 ]P ]h ] ] ] ] ]  ]0 ]H ` x ]  A@D L!'. L!'B THIS ONEKT H.  )$9  $5(/  $5N( Import_URL$5( Import_UserID$5(t  $5(9UserID  $5 (9Passwordq B@P L(N0 ! !   ! !Ak A@r B@R@1 $B@H1SELECTEDKT $  IMPORT )$9 )$5(h25( 5( 5(255! 95!5! 5(  $5( Import_URL$5( Import_UserID$5(t  $5(AUserID  $5 (APasswordd )$9 )$5(5(5( 5(25(@55( )$5(5 L!\ 0 0.$txt9555!  9k 5B@x6 5(qx B@P !. L(N6  !  % IMPORT !  !.$'  !\$'      8' kx 0 !_'P.txt' 9d8 !  $_': ! $' k$'0: index  d Vk   % '  $'H;   d8 $' !  Hkkk  %   ! !A k A@r@= IMPORT  = VkH Vk0d( "Msg: "No journal sheet for import" _$'< _$': :@ <$'kn  L( $ L(  L( THIS ONEAJk@o8)=========================================' Online import the given journal sheet)========================================= ] ] ] ] ]]]0]H ICE: 688200002: AH]` _H'^  F%PB@R  L(  $ L( A@  CheckHdrsImport the Journal sheet#NvsError = ImportSheet(ActiveSheet) IMPORT: ICE: 688200002: AH: Adds a parameter to store status code "  ,A.7 ICE: 688200002: AH if iGenerateXML is 0, i.e. no error ,  "kd 0'" "  0'" " 0'", " DuplicateOption$ 0'" "  ErrorOption$ 0'"E "   0'"HF " 0'" : ICE: 688200002: AH: Adds a parameter to store status code "  ,A.7 ICE: 688200002: AH if iGenerateXML is 0, i.e. no error , "  0'" Ohttp:///xmllink/ps/Excel_Journal_Import?userid=&pwd= Import_URL$Excel_Journal_Import'$H " & $   $2'>" >KT Import was successful ChangeStatus$NKT do nothing HB@ CKT Change Header status to IMPORTED ^ F%PB@R HB@ j   H%h%! '*$ *$ H%B@HU (t HB@Change Line status to IMPORTED  F%PB@R HB@ InsertLine H%! '( BottomLine H%! '* ($ *$ H%B@HU (t HB@n >eKTUnknow generic errorfKT%Error loading the source XML documentgKT#Error loading response XML documenthKTApplication Error message foundS0=EImport error: unable to import journal headers associated with sheet _$'< _$': : ' ':DisplayMessage$E : <$'kP<nH< > LogMessage$B < Success &A4k;DisplayMessage$Y & Import OK - Sheet $'k;d; <  Import failed &A4DisplayMessage$Y &   Import Failed - Sheet $'k:k: ICE: 688200002: AHk:k:o:/===============================================- Create XML elements from given rage of datah ICE: 688200002: Add checking on OPEN_ITEM_KEY to make sure there is no space in the middle of the value/===============================================x] ]@]X]p]]] . L%v'>'@  8 !t$~ !@ !t'<d8 !t$4'< >. < > . < < >k8k8dx8 !t$j !@ !tyyyymmdd$ '<d(8iik7k7 ICE: 688200002: ah BEGIN !$!t$ Z'B B OPEN_ITEM_KEY < 4Make sure FldValue does not have space in the middle <$T [ $  ^$'x FB@Hk6k6 ICE: 688200002: ah END < @ :$ J< !$!t$ Z>'@ @ <'@ @ 0'@k55 @'6i5-=============================================+ Generate XML string for the current sheet-=============================================/ICE: 688200002 Add iStatus for status indicator]]]]]]]0]h /use smaller chunk of XML string for performanceM ICE: 688200002: ah BEGIN set iStatus = 0 to indicate there is no error first'NX3 ICE: 688200002: ah END _H'^ ^ F%PB@R ^ $     $C  " $  $ H%.P L :$J 0'L L P : $6'L  $!t'R  F%PB@R$ BottomLine$!$$ R  7.T T T!'('V_1 T!$C T!$ T! LastLineCol$!$$.P V : $J  0'V  ICE: 688200002: V P : Sheet: $6'V V : $J 0'V V' L V'L'Vk0k0 T7.T T T! ( L V'L'VkH0q@0 L :$J 0'L ^ F%PB@Rk/ k/ ICE: 688200002: ah BEGINX/ F!Z F!Z'Nk/ ICE: 688200002: ah ENDo`/&======================================$ Post and Send journal over the web&======================================]]7Dim xError, xImported, xUpdated As MSXML.IXMLDOMElement]](@]X]p]0H]`X-'&.\ \(~ " \%.`POST $ `B@ content-type!application/x-www-form-urlencoded `B@accept text/xml/html `B@accept-charsetutf-8, iso_8859-1 `B@userid  `B@pwd  `B@ \!@ `B@ `!'&  h%!d$'lponse,   d%!d$' & \% x L%v'^ z L%v'` !xlDateOrder (0=MDY, 1=DMY, 2=YMD)error \%.d'&imported \%.f''b  F%PB@R HB@ _H F%PB@R HB@  f! l l) $'n n$'r n$'t n$'v ` t ^ v ^ r'x `e v ^ t ^ r'xd) r ^ t ^ v'xk)    l n x$D' b 'b l l( $$'z l l, $$'n n n, $$'| z j   H%h%!' $NEXT | +  F%PB@R$ z$n $NEXT | +k0( z j   H%h%!' $ z$n $NEXT | +k'  '' _H F%PB@Rk`'X' P b$$ '& _H F%PB@R HB@  F%PB@R HB@updated \%.h''b  h! l l) $'n n$'r n$'t n$'v ` t ^ v ^ r'x `e v ^ t ^ r'xd% r ^ t ^ v'xkp%    l n x$D' b 'b(% b &  P b$$ '&k$'2 d! Application Error message found ErrorOption$Sh'2k`$''  d!   'k$# &  '&k#d# #Error loading response XML documentg'2kp#dh#%Error loading the source XML documentf'2 \!! 0 "'&k#z"X" F!Z F!Z'2 F! Import_URL$'&d" Unknown errore'2kp"ih"x B@PoH"*The following error occurred in procedure :  0 ! 0 Error #:  !ZERROR<A@o!+11/16/04: AH Created this for ICE 622590000The purpose of this function is to encode special characters contained in UID/password ! @ # $ % ^ & * ( ) - _ = + \ |[ ] {} ; : / ? . > <@]]%figure out length of passed in string '''[parse each character and replace it with encoded value if it's one of the special character  .get each character out of the sOriginal string  $' !KT %21 '@KT %40 '#KT %23 '$KT %24 '%KT %25 '^KT %5E '&KT %26 '*KT %2A '(KT %28 ')KT %29 '-KT %2D '_KT %5F '=KT %3D '+KT %2B '\KT %5C '|KT %7C '[KT %5B ']KT %5D '{KT %7B '}KT %7D ';KT %3B ':KT %3A '/KT %2F '?KT %3F '.KT %2E '>KT %3E '<KT %3C 'SP   'n80 'i  !t$ |$'< &&$D' <<$D'. >>$D' ''$D'xd ""$D' &&$D' <<$D' >>$D' ''$D' ""$D'  f%!d$'lhf@Attribute VB_Name = "mImportControl" 'This module cXains the macros forin@n sheet Option Base 1Explici!Dim CurWrkBook As S!ng rentSOHdr1Tit OMe ssage JSucc ful Dlean@Log0File &SkiptsInt0eger Dlg FirstJLinAPub Lang% Sub Init() Apa.ScreenUpd = False)= s("5u"#^= ActiveWohrkbc.=CG(otoP pEnd $()Fun@|EdBoxG4,!al Text)@'ReturoCsettiA?D -Dialog; ").Edit#es(%|).A 2-L3\S0ave_ , New /,Set˃+sIfUj( <>FThe@A?=Unprotec@l2&. ?7s 0PHIfIEncode_XMLcha`r(tmpF= ReplaceAa, "&"aXmp;%^<lt>g'aposf k(+""Bquo# !#4R De"Fe"""#!"#"'k"&" $`a"riva "uet_Homep_LabelseWithp1X.xDefau@lts.Ca= GetMsg(, 41, j`UserNk:2 gY 3 p>4)Cף 5*opyO6SelEed7iWrite_o8YGroupu["10EX? 1*ox2wox3?!+'RZs(p2).Guw91.j qPs inmr aboutҙw$} ap{2. Q3-2U.P[ cDataIn`voke_aH:" \n14@3 Ȇ A=k& "_HTT~ߍ' u`:'s preferreds'`? 0s=FormЃalY'On Err Resu "NQ ' off che ckXwbMyHAdd@= s(InJrn! ir (A3Y%Ae`gf0 nQ  dB1m4>c@>iU9, U#"#{"jp-0$s c'8= n-p4 non-joñLd3M. sshipped, _`4 beca1A 1 + +3(este~m@2QUh02e= 4p c6ts dʣd@oesn'tPuLnte it La9,t a 6af you atdd1iP"s to' the workbook , addat number to Skipsheets. @ = 4& 'VDlgs0of dialog in jrnl. Insample shipped, _SrVis 1 becausBe4only ` !Options if you]yial s}% Wz1 End0 SubFunc8 StringBetween(Source As, Befor AfterCompare Integer)& Dim(Pos H- ACn @""CI5=a@ (1, B?,J D7)If2> 0 ThenA#! + L`ILC*- -A. >˃A* 2ǁ JUMid @! , -UIf'eeVX'Th@mmacr@o willja@ new jXnientryy@ a``header Sub J`S_New( AtbuteK.VB_Pro cDataaIn`voke_!J \n14JZ " , Title, Mesg-_WK!Varianty]iMe-G,et C!W$s(CurWrkB).Unprotec AC (Lang, 24Z21,= 9ETrim(InputBXox(!)dA@pplica.ScrUpdngFalseN <> ""le'1/13/05: AH ICE 733561000 NeeA`o maku & Ales n 29 characs sincCname has _H a@dnd itCAmaxi a"ł "` 3-acAwE) >f'show erroPe?= 5 +*29@613), vbExclamb,.D'exi?$E h0I("Te`ate").@Copy aA:=Rs_H"Aveb.N-=`6wrks(G & " n.cEF+G otoCoDolPag,ECOok).C9GK= ' Sel0>(JM2R+P.iv a ' PubP;"NsPLBrKList(}LML'-gCR$E{q6 Arra,y()CWith Form_ C1.Ca/IPR25 .ButtonOK_sU12, eU <1.Clea> .@ l @Height.- .TargetOnlineFr6W15K.SPI+P IPSx >=N (x?Y5!G Unpload"<'P: "NoPŒ 0TstйPr1d@Ainsera{*.䣁 ?v0v9v0 rsC &94, 6i _02t#t_Kp kKKQ9c6) RДAa HMJFQLDPL9Ls/}I=31@?B@elXHdrQSngKMKK'??a"_1 MMC 1J3x'Mo5OAQAll.Visib@= TruqqNoneC  .ListBox1.Cleaxr  p = Sheet, Height@.- .Target OnlineFrame*15JEnd WithForm_Select.Show Set 14O. i1 ToxCountIfBed(i - 1) Then T-G+H dr& "_H"Application.DisplayAlerts6FalseWorkbooks(CurWrkB). sts().D=YtE1W.Tr&uIf3NexeUnload y EA'Msg: "No journal e ntry C? ex for dA?V]TitleVGet(Lang, 90,&Messag 4, 7) A(D , 48,  I=CGotoCo@,olP Sub K Jrnl@_Copy(Dhim w,Ai,D N@qErrAs String New@tew "[(8), JVaXriaAhA iaqNumb Seq, tBeginRow, !Intege!zR!R-B!' 1 the number of9"%8":yArray(B?myKA|a.C appC41, 249ButtPonOK6Label2.VisibPdz9n?a' (.1A }?v= 0f ( x +` Fj@eu W !-Gz=Ș` EachuIn aoka aBComp( @.Q3'nG already#Xs* Y, PybBebP N"q IjScreenUpdvng vAp8U? ?yUnprot?POK|q_ after:=oa:s("TemЃte`,*a Active2u  )./ $  5  Ԏx).O4SO'"  O'Chk System ID/. T).a 23Pu`v`Val(Cells(wCtrlCOL J+ .ue Whif4> 0 4Oo$Á#ID")27`eq97bECall Save_c("ZF001۟uD_QG !LastP0- 3)S""'Doc.+%Sqbc 2P).EntireColum/ϓPR .FindI, , xlWholeBy`s?V!#ot R Is Noth_#'asXh`fp R. Do2228*  Set R = .FindNext(R)  Begin `zRange(Cells(K, 2), _.).ValueCNewE+y With Worksheets(3HdrS).ActiPvateiJi0 + 1= #`ui, .CtrlCOLoWendO.-aI^4, 8\12)[ullOg 2).Selectd$ProtV books(Cu rWrkB). Application.ScreenUpd = TrujElso'Msg: "K name already exists."O5Tit= G$et@(L@, 90, 1oMepssagA N4 Box(D, 48, ba>o&(A"Contprol"UXeUnload Form_<%"*)No journal e`y iA#*. Pr`" k to insert a newI._-X,6H&Q+60I+#,RSube%atJ (By~ '"'@Attr ibute .VB_ cDataaInvoke_Func" \n14QDim BotLine As Integper raV`arian raL@astColnSkip(KSlE= #"t|omPF%-ŧFirstJT= e"'. IbF  r ! "umn!$Descrk'#'fd , +fR'7 EachQq$OR4If1. z The 'q1FuUCasx3Y10 qIseric{1md o0{Trim  ,""a *Emxpty.  !;a6d L_Array(R'()X5ileaer`sh the numbofY.O.g?% H> &^W i'Nsay s `pwe're`teated is htotdlac8(inqxb).c  divide pDby 2 because we don't wRhclue h`P p l!boxg,= #3-) / 2 ReaY2 %&Y& =vwvq s\@dialog `vH + Dlgs&%=Do )k#$b(T).N' nexts*fit's!associPd~+ XʼU ntil E>= bF@G{9Fav%JqHChPub @_OpqJs(GGG'NiF(tmp1SЋng x GS'P Lst7'. es(" f!"Ei  k" "Engar_URL6Wyt_C*Duplic`+@ S/2U>np3o#8If 0[E" ThenA.] )7E_7]nd If7) iMC CO .OOo :NO/|  .QList.AArray?t. "/""V[=4&gCall Save_c+l, .mH\lo?pO4mm4nr0rn, 1Q28,o"N")n1$_,onon("/S{RpEP]"B # s٭   0//"2s5x5OO$U•\]If(.ChangeStatus_YES, "C" N"))  Call Save_Option("Dupl`icate dIW ,SUEprror IEAEIf .L List.Index >= 0 Then)-as("5uag@e") <> "( ))')Set_ Homep%_Labels :?,='End8 If3Wi thUnload FormQ'LstBonxOC O'AA DlgsheetP.Edi eQOpr2Pref"D)  .Text( = H(Value Enabled False/K5'@ Sub E'=?I Entry Func for Onl ine abBatch Journal Impo rt @HowMany : s how m%Aj s BUs to be processedR(SELECTED, THI`S ONEQBH 0Mode On)i% (XML -k) 0-Eflat fil2 D(IMPORT, FIL,?( PuZb` `9$(_*s"(d(, mAs StringDim SelS-aR,! Vaprian0!1SÝBaAnBoolea '"Xf Co@unter2I gerOutF (@?ex2BY()iUsrI ?PwdA #BytebCtmp , Basea7`ErposDot, SlashqCpGet"K'= Ap.DisplayF,)Lelectt C` ?""e_"ATfA `@uveatNow.Cab@Msg(a, 41, 25 Ne.ButtonOK12, 1Cancel2 C_UR~L٧EseG..m3 s30)'U2,41PassworO ^qW9.SU:&creenUpdatCeWp\""*БR'(I.NameK|, B8xP(.[_p?H!99~ A1@Cells(10.8).p7c7gh7񃠗Arr8ay(L 7#wr^= "Cg _%S%:7 t;Al7>77Visi$TruĊxNone. Fr@# .HeighQ- .Targ`- 10.Top .t T`Q@Q29"v0ONnU2RL}J 4NNpPOO!OOpUOOEưQ9006o߲8,_R48-J0e33~2/Z..WriteQP 2/t pYhDefaul"Path & "\"PMid(@CurWrk0km 2,°(Yy"".p1))tx~tXX AVA5& End If .ListBox1.ClearR = Sheet V0With * Form_SelectE.Show "Set \1i. 2Application.ScreenUpd ng!alse'2 i1 To<CounftIfbed(i - 1)` Thenmode <> "IMPORT"}WriteIndexUTrue!#B File @ 0 posDot InStrRev(N#Target, ".")S=Slatsh\a)> 0 A hI+ = 0_7?U,bBa seDpa & "_"_* ! Ex; ".txt Ehq(Left?F+gF gMid R ?7C?+lF !(? Open (&`!iA|&" :) > Output As & 6AClose # < `lC$tmp |(BE& dPrint #, d`0b0$k-",~'$ut!$+ZL$ 1KCall ImportJ_R(.", s,;a/, k UsPerID.Pwd_8? Nex~Unload'~i% ? .sQd;KQ ?sQ=-'Msg: "No journal s for idTitGet(Lang, 9 5,; MessagA2 `(T, 64,  cSztatusBar@7ST6!a 1, 3DisplayVOptTHowManyTHI`S ONE3GotoContrxolPP ub '= ' Online the giv0j '/ p\va@te Subm?ne@qmpci!3pn3 Integer, UsB?=Dim Hdr, qstrXMLVUR_AsponqFirstRow8Num LaGRet2CBD1Longi' ICE: 688202: AHDGener &S=pɋ!H8ActWorkbook6.B;sPW).B03S/,*,!ȏI.111!jatJDhS'Check sZc]r) DNvsErrH=  (3411OP7[W_AHdds a parameter to storePAD c W!;D_P((,, 0, iT ?AH if is.e. no e! A If iGenerateXML = 0 T0hen Print #OutFile, strVDEnd IfElse2R"" & vbC4& "/link/ps/Excel_Journal_Import?u id=<-id>&pw@password>K UR}J Z_Yq "RetCDend3 ResponsÇ J6P, Pwd5 + Select Case +B0k)  was successfulI F#ChangetSt!R", "N#!a'do I`thing ActivW.Prot`c Cu C HeadhsBiIMPORTED9Workbo(ok.shs(Hdri).9B.UnpLastRowN um DiColumns(2).Find("", , xlFormulasaWho!AxlBy`s)B. - 1Ra7(Cells(3), <).C? c@.Value"UT1)9!3 '$98ve89G(Ǐ 6Fira#."Ip>rt"+?!t0Bottom/d iS , 3mQTbto3">-10O- 'Un@know giVcmi  2 k'2 loabd`I thwdce `[ documen 3r^ 3\ 4X'Ap6 s mZage fou|nd2 ;%'`}: una(ble1Ris jt h2T`ssociOd with QTit`=`tMsg(LF, 95, 21b M  4 'Q11bW @kDisplay}= "E"?U iMp 0Box(D 6, b/ ɿE.? ` (3 Lozg B CQAdd@Entry6(Nʇ"SPgx)  "Yo `ZvbOKOnly, "+OKo" _1@p8_e_Tfa0d8?;(??vbExclamaA +=F i@ -9AH, ASub '= ' CreG"T`Xs from gn rPof 0datadd@ check]on OPEN_ITEM_KEY to make sure the(is no space inP middle of4valu e '=+ Private Function Row2XML(Sel As @Range,tdentInteger, Op/al HdrSheeStrin g)( Dim CLFldV )DecChar i= Q sColName iMsg 4 7= Applicai.rnal(xlimalSeparator) A= ""For EachvIn  If IsNu@meric(.S~nd. ber!mat <> "@" ThenGD = ~0 V'ElsE C:( @2h).H" A0In{(, ) >V)1Mid , 1);".DZAzEf)=cD_b Mn$, "ymmdd"ċ,aEnco(de_Kc`a(Trim( ) L #' ICE: 688202: ah BEGINg= UCasels(1,T@kumn)VC("OPEN_ITEM_KEY1BLen;pA'M#F)doet hav`Oc`)8mbeddedS'( Og = `Box(Get (L, 912), vbExclap@,& . Err.Raise (-9<99i/i/ENDF `|&H# & b$(in!) & "<"8A>Lj E2a)"AvbCrLui$Nextc $ ` A Gene)e s f@ currsٿ +l Add iStatu:sB sC 5orSub~( tl, Line|vypy{o)AxNa|Qtuy}eq0iDFirstmh 10 Then ؀text = <& #X@""1End If'!#SetisRowy.FindNc(Th )0Loop Whi le No"Ishing AQ#./<> FirstNum,2 WithH"Space(Ient) & ""vbCrLgActiveWorkbook.sheets(HHdrSA).ateK#.h i' ICE: 68822: ah BEGIN doErroDr:C If .aber e0 iStatus END A# Sub E'=" ' Post aSejournal ov@)the wePrivR Fun]on st(str, ResponseURL, LineB1, UsrID, Pwd As St rZ)ALong Dim xD$oc!MS .DdOMum@CH8TTP`Request B`,or, xImp orted@Upnd # I@ ELle L.N`odeLiaAtPmp, 23?Cgi`, k, w!I@ntegercY , M, %Ds e J, Sybs!(JIDi Dord:*LOnSor GoTo dWCh6S%B1= New 1 !.async@FalslaaBload,C)kb b 9 J: a!x.Open "POST"gMhqsetDEHea%"co`.nt-type"application/x-www-form-urlencoded(o accept /xm@l/html?"#-char !utf-8, iso_8859-1"useridm&pwrGB:3kG{!T'!r_% "!/%Aw.-`L1al(xlD=SeparatoruT1= BO3'@ (0=MD@91=DM`2=YM>D-2D getFsByTagName("ec"85NitP-@K kp0=/wk$w^?wE `.Unprotec[_^_H" FQi01 Rc.Leng3_DeA_1; (I0(i - 1).0, `B3`Mid(, In]")"r)0,2Y!Left!3,l 4obMGP6X, 2DRxighb 6XlpB=h& DYE eCFOMOAEu Yw(y a`vbLf`" QReplC PPo:k + 1 _QRTri\m(U#J'(C')o11 +L2+py",  / != [V"3_2]bCEColumns(3Z)(0l>mulasWhoBl@xlBy`s)a'Cells(, 5)"NEXT"R Hao%?P_Wv 4, 8a Vp` ~ 10O| ٶ End If HRowNum = ActiveSheet.Columns(2).Find(SysID, , xlFormulasWho$leBys). iWhile Cells((!u, 2)yVala)<If =5="NEXT" Then>!>JID+g#e+ 1*We ndWorkbook.s s(Lin & "_H").ate&.NextO strRes ponse1GetMsg(Lan g, 80@j, !@(k))@tm>p?.ARCProtec*G8Set xUp d\dHxDoc.getElementsByTagName("u "N""k0 i1 To.LepngthO A(@ 2Decode_XMLchar(%.Item(i - 1).T@A n3Mid( , InStrad")")!C1 0YLeftA3, 4M -6aDRi4gh 2 DoPrder0J 9MZDsep GYElse 3 D' A Y5k!K.sචi$t xErrorr'Application b message fou‰ Ops("o<> "S9 -104 Q$Q HI "= L [Kr APi`4 UQ  $ Rc QΓ,*=svv+{ F'r loading rU{)docuh 3{<the source w_2"sparsereasp0CrBG xit FuJn@opdo:׃#.bP_`1D w DescriR7P7Import_U RL}LUnknown e@Cp8 qw Pub0B Sub Customi`zeCF(W5m_x.Show  Rrivbgeneric orHandler(obj AsqHObj2PcaStr &Box prompt:=" @Kllowa(2 occurred incedurerd_& ":vb$ s .;3P #C, xTitle@ ERRORЖ'11/16/04: AH C@(t this r ICE 6 22590 'apurpoXof s( 0to en sp@ecial acters contapUID/password ! @ # $ % ^0&* ( _e+ \ |[ ] {} ; : / ? .Q< !# (_E(Byp sOrigin@p Dim i_У,`CgP Integers4d _P:d9'figQout lr> p s! 7r (v $ csUd'"B each `+ Nˆ @withd value if's one BK- i_= 0go3S)'0`Pu2D h,Sel6 Ca%ϥb"!+ "%21hCase "@"  s_Enco@ded = X+ "%40Ca#"23p$#p48%#858^"85E&"26*#A(#8)#9-#DR_"5F="3eO+"2B ê\"5C|"7j["5*]#G{"7O} 7/;3/:c/2ON?!.!O>;!<NNElse_s_Parsed#End Select Nex URL Function __SRP_4v__SRP_5  mLogFunctions#__SRP_7 ' <)Md@ F%:#%\$C /6<MC( (<)Md@ F%:%%\$C /6<MC((<)Md@ F%:&%\$C /6<c\wC( (<)Md@ F%`(%tx$ Hx t d `W'C/)xt`6<(\,xt`<4'tx$ Hx >tx%x$ @xWd(`x5d)* (C``Ctt 2t`6Ctt( (d MP@ /t6d *0 +T  "D\$ t`xd *Cx pv kvkvJprkr pt ktkr.ktkrD@krl M`@0 ,0`1x6@0L(x@0h -< '%,F0%@$ @ D., )@,7C(( )M0@ F\/6 3C(( )M0@ 1X/6 B''''' \XM0@ /Fxh 0hl6 x" @$ @ @l:0*]@l (0]t\C( ( [M0@ 1d'x''0>dF^1pF2d6 x,:02%@$ @ d Q,o %T:3%X\F%`$ ` D.\ X d T45) @`\XT5 l@$ @@(@,l@$ @ d Q,o %T:2%X\F0%`$ ` D.\ X d T45) @`\XT5 *l:0) %@$ @@(@5 /,l@$ @ d ,6)@,! ?'%'%'%,F0%@$ @ D., )@,(h4\XlHHd@,`\XT xh$ -*Cx t 7  8V9l>C((<)M\@ F%l,/6<MC((< M\@ #l : 0;26<l : L<5ltM, N''<l : <<6<]l : H=l : H=la<*nnj\%l,)5<8$9,<l : <<(\]Z5<K'<l : <<l : 8<`1x)6<cl8V9>$? @6C((C(()M<@ F%$,/6MC(()Mtx  $ tpx`Xl @\:`%pt$ Ht p d \< A, `1x)tp\6<, P`(x tp\<,|4] `:d%tx$ Hx t d `P A0 F@]@)xt`6P0->`:d%tx$ Hx t d ` )xt`RF@% `:d%tx$ Hx t d `P C )xt`5P>`:d%tx$ Hx t d ` )xt` l4$ $xt`P0 # ' # ' # ' # ' " 1x(x # ' # ' # ' # ' " 1x(x 9`(d%tx$ Hx t d Q`\)xtDC((<)Md@ F%\WC/6<DC((<)Md@ F%\WC/6<DC((<)Md@ F%\WC/6<DC((<)Md@ F%\WC/6<DC((<)Md@ F%\WC/6<DC((<)Md@ F%\W C/6<DC((<)Md@ F%\W!C/6<DC((<)Md@ F%\W"C/6<MC( (@ #L$ :L 0;2L6L$ :L =LL$ :L =LL$ :L L<L5lTM N''L$ :L <<L6]L$ :L H=8$ :8 H=$a*nnj<%$,)L85c$8$9L8$9 :QLlRlAAU5cVkRD<%lBB5JkRD<%lBC\\:<)`1X5" L$ L LR\8F<%L$ L D.8  d D)L8UlXF(%8F<%L$ L D.8  d D)L8" L$ L L Rd8V9L>$? @L6C((ZM<@ /66C((^M<@ /61''M(@0M<@^1pR6 E @&$TlX\0 L8@  - :*H @ 7 8V9>C(()M@ Fp%,/6pMC(()M@ #X\ :\ 0;2X\6\ :\ =\\ :\ =\MC(()M@ #X\ :\ @E2X\6\ :\ L<\5l@M Npp''\ :\ <<\6p?T\ :\ H=a*nTj%,\5c8$9/\8$9 :\ <(]Z\5| Op'\8$9 :\ <P8$9 :P 8<pl)\P6l:)\\8$9 :Q\oHFCXELPF%\$ \ D.P QL[H0)\PrD)H0A((]36GCX 0sD lXF0 " \$ \ \H:)`1D5< '%PF%\$ \ D.P )\P@:2%LPF%\$ \ D.P L d Q@o%0l48F%<$ < D.8 4 d 045)\PL<8405H\$ @\(\@HLPF%\$ \ D.P L d Q@o%0\48F%<$ < D.8 4 d 045)\PL<8405!lDF%\$ @\(\2PlDF%\$ \ d P )\P/PH\$ \ d P )\P2PlDF%\$ \ d P6)\P ( N @(%\$ X\AH Ik`/\6(]t 4CXXJC #, Ik2X,(']3~!ǀ:JN K/5-(`ǀ:JN K/68 @(%\$ X\CH\5::`*% @(%\$ X\CH\5/PH\$ \ d P6)\P?(%(%\$ X\AL  q\58 @'%'`%%%lBMN5 lc` a"i5Ha"i%(%\$ X\ApH\6 3a"p56l\\ @lBOl\=NN\5Dlc/'ap"i]<'6p @(%\$ X\kD`%(%P$ XP @L$ L,)\PL6 q2PlDF%\$ \ d P6)\P ( N @(%\$ X\AH Ik`/\6/PH\$ \ d P6)\P(%(`%\$ X\(%( %P$ XPd%L$ L,)\PL67(%(%\$ X\P\5/PH\$ \ d P )\P?'`%'%'%PF%\$ \ D.P )\P" \$ \ \z 6C((ZM@ /66C((^M@ /65''M@0M@^1i 6T@:Q%LPF%\$ \ D.P L d @6)\PL@8V9\>$? @\> 6C((ZM@ /66C((^M@ /65''M@@M@^1i 6?'`%'%'%PF%\$ \ D.P )\P pVHD  @\lDHX0LX,\PL@<840pH lR4l8<F@%P$ P D.< 8 d 46)P<840P'$%:@R%$ Pa"pjP5 kjpj7:@S%P$ @PTAUU$P6$$5:@V%P$ @PTAWUpVP65:@X%P$ @PTAWUpTP6xH,lX$P<84h$4dhl$ Hl h 0 ldpx)lhkx kx pvkvl   "ptpr_C((8*M\@ F%X,/68MC((8*M\@ #lX \l @]2l68MC((8*M\@ #lX \l @]2l68MC((8*M\@ #lX \l @]2l68MC((8*M\@ #lX \l @]2l68MC((8*M\@ #lX \l @]2l68MC((8*M\@ #lX \l @]2l68MC((8 M\@ #lX \l 0;2l68MC((8 M\@ #lX \l 0;2l68MC( (8*M\@ #lX \l @E2l68MC( (8*M\@ #lX \l @E2l68MC( (8*M\@ #lX \l @E2l68MC((8*M\@ #lX \l @E2l68MC((8*M\@ #lX \l @E2l68MC((8*M\@ #lX \l H^2l68MC((8*M\@ #lX \l H^2l68MC((8*M\@ #lX \l @E2l68MC((8*M\@ #lX \l H^2l68MC((8*M\@ #lX \l H^2l68MC((8*M\@ #lX \l H^2l68MC((8*M\@ #lX \l H^2l68MC((8*M\@ #lX \l @E2l68MC((8*M\@ #lX \l @E2l68MC((8*M\@ #lX \l @E2l68MC((8*M\@ #lX \l H^2l68MC((8*M\@ #lX \l H^2l68MC((8*M\@ #lX \l H^2l68>C_C F8lX \l `2l58>CaC F8lX \l `2l58>CbC F8lX \l `2l58>CcC F8lX \l `2l58>CdC F8lX \l `2l58kCeC 1fc8>#G0\ flX \l ^2l6\8kCgC 1fc8>#G0\ flX \l ^2l6\8kChC 1fc8>#G0\ flX \l ^2l6\8kCiC 1fc8>#G0\ flX \l ^2l6\8kCjC 1fc8>#G0\ flX \l ^2l6\8>CkC F8lX \l `2l58>ClC F8lX \l `2l58>CmC F8lX \l `2l58kCnC 1fc8>#o0\ flX \l ^2l6\8kCpC 1fc8>#o0\ flX $\l ^2l6\8/CqC #r02 c8lX \l ^l58 c8lX \l ^l58/CsC #t02c8lX \l ^l580c8lX \l ^l585lxM( N''8lX \l <<l68lX \l <l*vlX \l <llc>^'kvD8lX \l 8<CC F]32l682&kvD8lX \l D<l58 vd" l$ l l X" l$ l l6lX \Qlo8 u :\v]@68 E8lX \l `8:\vX \ `)l68=8lX \l `8`:\_N K/l68=8lX \l `8`:\aN K/l68=8lX \l `8`:\bN K/l68=8lX \l `8`:\cN K/l68=8lX \l `8`:\dN K/l68ZlX \:HFN:\GNQlo8 f`:(eN K/6 8ZlX \:HFN:\GNQlo8 f`:(gN K/6 8ZlX \:HFN:\GNQlo8 f`:(hN K/6 8ZlX \:HwN:\rNQlo8 f`:(qN K/6 8ZlX \:HFN:\GNQlo8 f`:(iN K/6 8ZlX \:HFN:\GNQlo8 f`:(jN K/6 8=lX \l ``:\kN88 K/l68=lX \l ``:\lN88 K/l68=lX \l ``:\mN88 K/l68ZlX \:HFN:\tNQlo8 f`:(sN K/6 8ZlX \:HxN:\oNQlo8 f`:(nN K/6 8ZlX $\:HyN:\oNQlo8 f`:(pN K/6 8,8lX \l <8(\]Zl58&rCC F]'8lX \l <8X \ 8<@2)l68$ za8lX \l <'8X \ 8<`:HN K/)l68cXZV[l>$? @lP8Xxp8 l8 -) $  kpJ- $  `1D5 :{]3$ @Ql |V}>Ctt(x()M@ Fd%,/t6xdMCtt(x( M@ #P ~ 0;2tP6xMCtt(x( M@ #P ~ 0;2tP6x=CPPlCtt #L ~ @E2tPL>CPPmCtt F ~ `2tP5MCtt(x( M@ #P ~ @E2tP6xMCtt(x( M@ #P ~ @E2tP6xc|$}" $  /|$} ~ `:*]@5]ilA(|$} ~dH|$} ~H `d`PQox@l`t 2tPH6xd|V}>$? @ l67( %(%$ XxP5x(:]3( 8 7 8V9D 0>Ctt      !"#$%&'()*+,-/0234_6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^1`abcdefghijklmnopqrstuvwxyz{|}~(x()M@ Fd%D,/t6xdMCtt(x()M@ #PD : 0;2tP6xD : =D : =D : =?@D : H=Da*n@ j%D,5V<HD :H H=@D : =n@n< 78D :8 =)H8MCtt(x( M@ #PD : @]2tP6x=CPPlCtt #LD : @E2tPL>CPPmCtt FD : `2tP5MCtt(x( M@ #PD : @E2tP6xMCtt(x( M@ #PD : @E2tP6x>Ctt(x()M@ Fd%D,/t6xdMCtt(x()M@ #PD : 0;2tP6xD : =D : =D : =D : =D : =MCtt(x()M@ #PD : @E2tP6xt $  lt*FdiM@x ,x(:HD :H `/t)H6 dx(?@D : H=Da*n@j%D,5D : L<5l8M Ndd'x'D : <<6xdcD8$98$9 :QL" $  6LAAU5c9 k6D%LBB5- = -8$9 : ^c]35a k> E8$9 : ``#t^i/t5A8$9 : ``#t^p/t57(]pk'xkD]pd'(5 ((]3+ 18$9 : `:x5C D8$9 :("Qoxd d:(6xd78$9 :'x"Qod ,d`16xd' p>5/:lFx`#tk>]/t6x k@=3k6D%LBCxlFd 6x k> ' p@5 #tk@]/t  k@ ' p@548$9 : ``#tk@]/t5uk6D%LBC8$9 :dH8$9 :H `d`PQox@l`t 2tPH6xd 6d 8V9>$? @=k@ k>y k>=k@=&6Ctt(x(_M@ /t6x6Ctt(x(_M@ /t6x1'x'M@@M@^1p66x'lDF% $  TCtt(x(M@ Fd% $  /t6xd#kJ $   :{]@  hdJD8X Ll$  \D8 tPLH8xd( n  )*1x?@ FD%TX$ HX T d @6)XT@" X$ X XTC(( MD@ F% X$ X /X6  FD%  =^+l t  k^ lt  *1tlt*#*1t/lt*#*1t/Ilt*#CnC #*#*#*1t2 Ilt*#CpC #*#*#*1t2 7lt*F D:0:`1t6 lt*#*1t/^+l t  k^lt*#*1t/.ClC #*1p20lll M@pM@lM0@tMD@^qdldqlgCsC 12 lF0%X$ @X Xb lt0b?@lxFD%TX$ HX T d @6)XT@X$ @X Xm:*%'%|%\%<%(D%X$ @X >MAU(UphX6 (D%(%X$ XX %khD%(|%T$ XT%@$ @@TP)XT@6 %:Dx%X $ XHXX$ @X X?@ FD%TX$ HX T d @6)XT@X$ @X X@:DS%X$ @X TAU(UpjX6 >:DR%X$ @X TAU(UphX6 kjDD%(%X$ XX %khD%(|%T$ XT%@$ @@TP)XT@6 %:Dx%X $ XHXX$ @X Xlxlll6C(( _MD@ /6 6C(( _MD@ /6 *# *//CiC #r020'' M0@MD@^1q`6 ld_/CqC #w02%l:0N  l MD@ 5 /CiC #G02Z0'' *F lMD@^1q`6 %l:0N  l MD@ 5 /CiC #G020'' *F 0lMD@^1q`6 `8x txlp@ XT@ 68 H%X$ X 8`1lX58*Cd t4N;ta8 ta$:H]<'68$#ta8(H]358*Cp"$ta8 $`1p68$&ll=lpll"plpllO;ta8 ta$:H]<'68$5ta8:HN$$8 1p68$+ta8  1p258U(H%ta8"i%X$ XX$AH 1`/X68$l`0lpJ p _C($ (8[MH@ 1''lM@0>F^1p^26 8$1'''$'8 XX DX68$lpJld #*#*#(H%ta8"i%X$ XX$AH #*#*1d2 X68$ ldlp*1d{ld*#(H%ta8"i%X$ XX$AH #*#*#*1d2 X68$ t4NPldCx<@(x4ltpd`< X8$XK )*1h?DlhFH%X\$ H\ X d D6)\XDdh  ldLvldc@ >kvDH%( %\$ X\:t]3\5kvDH%( %\$ X\%kvD%(%X$ XX%D$ @DTNx)\XD6= FH :0: p`' 6p0 Chh+nx #d*' 2hdAkvDH%( %\$ X\AHUpt\6?DFH%X\$ H\ X d D6)\XD(H%( %\$ X\X'%:R%$ Xa"i%(%D$ XD`$ Q`\)\XD6:ktDH%' %'%%%\Nl5 llczla"pr5*C`Ila"iH%( %\$ X\:t]3\6 la"iH%( %\$ X\pla"i%X'%:V%$ Xa"i%D$ XDL`Lp$ Q`x)\XD6 pL?l`FH :0: p`1`6p/l`*h+nx #d*1`2hd?l`FH :0: p`1`6pl`J' l`*' *C`!lloH%\Nl5"llcla"kr5E l`*' *C`c\= FH :0: p`' 6p?DlhFH%X\$ H\ X d D6)\XD vd@$H \\ lH\QH \\ lH\4XD*\hlx`d4* 8 hd\XD`pLK0 :*0 t t  t k/ p''P%'`%fp%p /p p p p / p t >F@%p ,5@p @>F@b t k/ 3@ %<$ < @<6@  %<$ < @Up<5@<t Q<` :*0<t QA `DŽ F,/6C( ,:@(p ", ,`1(6@(M@@ @&(@(M@ ,5@(M@@ u @ k.@6@H k.@6@H.@6@W<:@:pl(, F<26@(@G,:@(p",  6@P',:@(p", , `1(6 @Cl((M@@ @ `16@e @'P%%%`%(%<$ @<@>MAUUp<6@;kD%(`%<$ X<@:]3<5@2kD%(`%lF%<$ X<<?4%8<$ H< 8 d 46)<84(%(`%<$ X<@ Ik]/(%( %8$ X8:`]/'/)<86@X1(%(` %lF%<$ X<<e @'P%%%`%(%<$ @<@>MAUUp<6@IkD%(`%<$ X<@ Ik]3/<5@;kD%(`%<$ X<@:]3<5@u2kD%(`%lF%<$ X<< kpK4p:)@%8<$ H< 8 d 46)<845@ ~I@ @`DŽ((PM@ F F,/<C( ,:@(p ", ,`1(6@(M@@ @&(@(M@ ,5@(M@@ u @ kX .@6@ k .@6@ .@6@W<:@:pl(, F<26@(@ ~,8 (]t `p:@ `DŽ((PM`@ F< b/6 @ qx`A@(]t5@ /CpC #o=2 qx ( :*< (p`A@h (]tb <:@<D<(@%`>A `DŽ F 467q@8L5Ce/Time`3)xive4%@6Atatus_ 4_tO`O7CMU Ds 57 0R@xe("A1:E1").E ntire#F.WrapTextFTru.Font.Siza9AHorizalAlignme"nAxlHLeft Bold #Intea Jor167604057Qs.S8ave`jEls*s.a nd IfEhE=s䴪.B eaSub 3 Cry , Curi ,e, Mʀ   B &6q2 sQYNewRowger/AW0 ^5^cˑ =me =i2 a7t r".^;Find("", , xlFormulasWholeBy0s).?Ps 0 Ih.Valu!</k%2))B?80[eNow0VSxY ,Q):0//04?ć'Q"t-`lea'._.&On ErrFGoTo=c {I>E)h(+g\Exit f:~FaJAt @d @@T @XD @4 h ` x  H ( `z 8  C@ txY 1  $aaqɢѳѕ a)!y41C((8 MX@ 1p/68$ HQt) $ H 0>1ll ll*# *1h/"hMX@ # 0/+ 'X%$  ( ) LC((8 M #xMEP@0 f> LPLLLPL  90 ">P Tx b+  "   ( .(6q@5x8A88 X@ F%$ @ /68Z(%(%C((8 MX@ F%$ @ /687(%(X%((%$ @8 C 58Z(%(%C((8 MX@ F%$ @ /687(%(X%((%$ @8 C 58Z(%(%C((8 MX@ F%$ @ /687(%(X%((%$ @8 C 58Z(%(%C((8 MX@ F%$ @ /687(%(X%((%$ @8 C 58Z(%(%C((8 MX@ F%$ @ /687(F%(X%((%$ @8 C 589c(%:X%$ @8=C68C(( %:X%$ @8==C68>(%:X%$ @8=C689c(%:X%$ @8=C68>(%:X%$ @8=C68T '|%'%'%'%'%'%'%'%'(%'H%lhFX%$ H b 'L%'\%'l%'|%'%'%'%'%'%'%'%'(%'H%'X%lh$  L ) + FX%$  D Q x t 0048 xtlhp$ 8`(X\$ H\ >XFHl\ l h.4(8%\h \ dl4=d)\4q: %'%%%t%(8%(%\d \H=T>DA4Upb\6HTD45lkbD8%(%\d \HC\5H8%kbD8%(%\d \HC\5HAH HkbD8%(%\d \TC\6HT8%kbD8%(%\d \HC\5H8F%kbD8%(%\d \HC\5H h DH0dlh(X\4HTD4XKL;\` Fd%t$ t D ` >\' )t`pzpz X$ \t`arU 0` 08`  1I0//0(` a0nrU (__SRP_6SmMessages:/f__SRP_8k __SRP_9 W0%ReDim SheetList(ArraySize) As Variant JEnglish+oH EnglishKKT KT Commonly shared text/messages KT!Import in progress...please wait.'KTSave in progress...please wait.'KTReady'SXMessage not found: ( X, X).' n KT Log spreadsheet setup KT Sheet name Import Log'KT'Filename of the message log spreadsheet JrnlLog.xls'`ZKTHeadingsWorkbook'KTHeadingsSheet'KTHeadings Date / Time' KTHeadingsStatus'KTHeadings Log message'SMessage not found: ( X, X).'n8 KT /*** Form_JrnlHeader - New / Edit Journal Header KTNew Journal Header'KTEdit Journal Header' KTUnit:' KT Journal ID:' KT Journal Date:'KT Ledger Group:'KTLedger:'KTSource:'KTUser ID:'KTJournal Class:'KTTransaction Code:'pKTDocument Type:'KT Doc Sequence:'KTAdjustment Type:'KTAdjusting Entry:'KTPeriod:'KT AutoGen Lines' KTCurrency Information'KTForeign Currency:'`KTEffective Date:'KT Rate Type:' KTExchange Rate:'KTReversal' KTNone'!KTBeginning of Next Period'"KTEnd of Next Period'#KTNext Day'$KTSpecified Date' %KT Description:'&KTAgency Location Code:' S(Message not found: ( X, X).' n KT '*** Form_SelectHeader and button labels KTOK'KTCancel' KTAll'KTNone' KTCopy'KTDelete' KT Copy Journal'8! KTSelect Journal' KTDelete Journal'KTEdit Journal Header'KTChange Import Status'KTImport'KT Do Not Import'KT>System ID (Unit, Journal ID, Date) Reference, Description' KTNew Journal Identifiers'KTBusiness Unit:'KT Journal ID:'P#KT Journal Date:'KTImport Control'KTUser ID:'KT Password:'SMessage not found: ( X, X).'%n KT :*** Form_AddDelLines - Add / Delete multiple journal lines KTInsert Multiple Lines'KTDelete Block of Lines'KTInsert'KTDelete'KTCancel' KT From Line:'& KTTo Line:' KTNumber of Lines'KTCopy data from line'S8Message not found: ( X, X).'n)KT )*** Form_SelectSheet and Homepage buttons KT Setting(s)' KTNotes' KTNew'KTEdit' KTDelete' KTCopy' KT Import Now'x*KT Write File' KTGo Home' KTYes'l  NxME(6 << <(00% `pl+p )   +`$+I 0I PI pi 14@@ pP0`xtN @0h @HX `@H @p8 H@( (p@$ @  @ @ @ @8 P(@` x8&@ `j@ @ @ @( @'@P h(4@x PA@t xN@d p@T @D 0@@4 X@$ @p@l 0ݢHF$*\Rffff*0a46489bc5  *@ 2p   & <" PX ,h B   ,    *( X(`  <B $    8 6P     8 H` x<B    6    8@ `h x       ( @H hp       ( HP px        (0 PX hp   <B   .(   X  `  h  x                        0 8  P X  x          F  (  0  P X  p x               <B  P X @`                ( 0  @ H  ` h  x       <B     0  H PX px          (0 @ H X ` px       @H hp       ( H$P x<B       $  ( @H `h        08 PX hp     ( 8 @ `"h   . $ 8@ P<BX         <B 0  8  P Xd` b 8@ `<Bh   <   "  86@ x: ( <B 8,@  p x HBP J * (20 h(p   P2X (   h p6  : 0 8 BX   <B   *   ! (!X0! ! !  "<(" h"p" "" "6" "D# H#DP# #(# #8# $<B$ P$ 4X$  $ $l $ %l % % % &P & p&<Bx& &0&  & &'  'j (' 'D' '"' (4 ( X(H`( (0( ( ( )<B) P)6X)  ) )) )2) *>* P*NX* * * X+<B`+ +2+  + +,  ,2(, :`, ,, ,, ,", -<B- X-`- 0$h-------xp] ] MsgSet 1 - 9 Common# 10 - 39 Journal Editting 14+ 40 - 69 Import Control / Optionsnd m 70 - 79 Help 80 - 89 Log 90 - 99 Error Message5Function ListArray(SheetList() As Variant) As BooleanX* KTNo'& KTGeneral' KTJournal Sheets'KTImport Journals'KTNew Journal Sheet'KTEdit Journal Sheet'KTDelete Journal Sheets'KTCopy Journal Sheet' KTImport Journals Now'KTWrite Journals to File'KT Select Sheet:'KT File name:' KTNew Journal Sheet Name:'KTFile already exist'h0KTOverwrite the existing file?'0SMessage not found: ( X, X).'n8*KT *** Form_Options  KTDefine Options and Defaults'(1KTHeader Defaults'KTGeneral Options'KTMessage Options'KTDocument Sequencing' KTOnline Import Control'KTAfter successful import' KTBusiness Unit:' KTDate:' KT Ledger Group:'KTSource:'KTUser ID:'KTEnable Multibook'KT AutoGen Lines'KT Language:'KTLog Error Message only'KT Log Successful and Error Message'KTDisplay Messages Online'KTEnable Document Sequencing'5KTDefault Document Type:' KTAddress:'KT%Change import status to Do Not Import'KTKeep import status as Import'6KTUnicode'S Message not found: ( X, X).'7n` FKT Help text KT captionJournal Entry Help'7KTJTo insert a journal line for the selected header, click the Insert button Uor press CTRL-L. To delete a line, select a cell on the line you wish to delete and (click the Delete button or press CTRL-D.'KTMTo insert a header press Insert or CTRL-H. To select a journal press Select Lor CTRL-J. To edit a header press Edit or CTRL-E. To copy a journal press <Copy or CTRL-Y. To delete a journal press Delete or CTRL-T.'SMessage not found: ( X, X).'nPKT Log text KT Imported F journals - System ID (Unit, Journal ID, Date) Reference, Description:'KTUpdated F journals - System ID (Unit, Journal ID, Date) Reference, Description:' KTsuccessfully imported.'SMessage not found: ( X, X).'DnPZKT-90-99 for Error/Warning Messages related text KT Error Message Title VData Entry Alert'KT.The date you have entered is not a valid date.'KT2This is not a secured web address. Use it anyway?'@KT This is not a valid web address.'SMessage not found: ( X, X).'(An[KT Header related error messages KTJOne or more of the following required fields is blank: Unit, Journal ID, GJournal Date, Ledger Group, Source. Please make sure all these fields contain values.'KT9Please enter a date for the user specified reversal date.'KTBNo headers found. Click the Insert button to create a new header.'8KT"There is no journal on this sheet.'KT)There is no journal header on this sheet.' KTThere are no journals to delete'KTGOne or more of the following required fields is blank: Business Unit, LJournal ID, Journal Date. Please make sure all these fields contain values.'FKT*Imbedded spaces not allowed on Journal ID.' KTNEXT is not a valid Journal ID.' KTFOne or more of the following required fields is blank: Ledger Group, CSource, User ID. Please make sure all these fields contain values.' KT ice: 712639000 (AH).Embedded quotes are not allowed on Journal ID.' KT ICE: 688200002: (AH)1Embedded spaces are not allowed in Open Item Key.' KT ICE: 733561000 (AH):Maximum number of characters for journal sheet name is 29.'SXMessage not found: ( X, X).'n\KT Line related error messages KTPYou have not selected a journal header. Please Insert or Select a header first.'KTNThe line you wanted to delete does not belong to the displayed journal header.& Click OK to delete this line anyway.'KT3The row you wanted to delete is not a journal line.'KTInsert Journal Line'KTDelete Journal Line'KT-There are no lines in this journal to delete.'KT<The From Line you specified does not exist for this journal.'KT;The To Line you specified does not exist for this journal.' KTTo Line is less than From Line.' KT0You have etered an invalid From Line or To Line.'SMessage not found: ( X, X).'n]KT% Line Checking related error messages KTAThe amount in the selected cell contains too many integers. The maximum allowed is 'KTAThe amount in the selected cell contains too many decimals. The maximum allowed is 'KTAThe amount in the selected cell contains to many integers and/or 0decimals. The maximum length for this field is 'KTGInvalid data type. The contents of the selected cell should be numeric.'SMessage not found: ( X, X).'n@^KT! Worksheet related error messages KTNo journals exist.'KTGA journal must be selected when the 'Change Specified Journal' option is selected.'KT<You must enter a valid name for the journal entry worksheet.'KTSheet name already exists.'KT+Sheet name must be less than 30 characters.'KT@No journal entry sheets exist. Press New to insert a new sheet.'KT'No journal entry sheet exist to delete.'KTNo sheets exist to copy.'SMessage not found: ( X, X).'n_KT( Real-Time Import related error messages KT titleJournal Import'KT)No journal entry sheets exist for import.'KT6Import error: unable to import journal lines on sheet'KTEImport error: unable to import journal headers associated with sheet'KTGJournal import was not successful. Either you are not logged onto the Edatabase through PS/nVision or your import definitions are incorrect.'SMessage not found: ( X, X).'nX`KT$ Batch Import related error messages KT titleSave Journal Sheets'KT*No journal entry sheets exist to be saved.' 3 Total of N journals and M lines saved successfullyKT Total of 'KT Journals and 'KT Lines saved successfully.'SMessage not found: ( X, X).'nSMessage Set not found: ( X).'n`SXLang not found.'n8i0(Attribute VB_Name = "mMessages" Option @Base 18Explicit  Pub MsgSet As Integer 2Num 2 '^ 1 - 9 Common1039 Journal Editting %4%69 ImportHntrol / s -7-79 Hel p 8 89 L o 09 99 E`rror FuncListArray(ShHeet()yV@ariantB`ooleapSub Build_Lang  ReDim 1'B+Size $}English}End @' C+F;Geto(n,D~y,\jparam1ASng  ǝ.ProcDataInvok e_A \n14&AASelec@yA >C"0, "D M  E 1A 'Ġly shared text/mD !> ;5in progr@...pse wai\t.0AB2YSPave 3 ReadyElseDd not found: (" & C(C0r)",@() Q>g!9"6 v sprso setu{5.A'bg n`974File of the H logi! Jrnl .xlA3 H``aMWorkbook14gU"5 {Be@Time6Ctatu!7?"*e1_[b_[_[4Q['B'=1!;e'*** F0orm_E!AerNew-Ac !b1;qw%ye K '=_ r?{Unit:o` IDQ a-4wLed@ Group56eSce7sUs%s)8eClass9TransasCod 20/'Document Ty>p& S`equen2&AdjustQ,0&p^ Ey_P2'Period&utoGen LinD b C'Curr`ypfJaᲯ:PB'X@Neign  q o((Eff`i/; (RaP$3(xch0e A 3(eversale 3'Nonv&XBeginn&N@ #'n?H$3/(8i"_/'Ag/Locb/K??Kumq9&  Case 12 x'*** Form_SelectHeader and button l`abels jV MsgNum Gj Get. = "OK"2 2Cancel6R3iAl4N(one45CoTpy6Dt 5116 JournaoyRoTC-WEdit-E QN2@hange Import Statu>sRZ @o 8NotDZ@System ID (Unit, CIDDate) Refereescri`ptionSNew denti0fier%VBusiness z:7WdN 8ٟl #9DE@Controf30Us@ID23zUPasswordRElse*M-a ]nMfound: (" & CInt(੐Set)",`).l4End~ kclaAddLaB -  / ămultiple j l $ @?'`'In2t M BR+ DBlock of c'c Fr|om(aT~o O"rYb3_u data f $/e 44494um4q4 7w& 4LaXngus9Zog Error !%`onlyQ20}SgNa 2 i splays c P3?t"2SE TypM2aTAddrs62)TCh=ez status to  Not $!zXKeep as Y codea#B?70' Help texhw/s+1R1 ' ca"w3JJnkE`^ye - 'To in`K`t a j"dfA01 &7Get. = "On$e ^orf the foll owingquirfields is blank: Unit, Journal ID, "P & _j"#Df, LedgnGroup, Sce. Plemake suEallF=/contain values.v"@2J `o8` ///n(((1)y)))!*rU $$`t$A`x$`|$`$`$A`$`$Form_JrnlHeader }*__SRP_12#__SRP_13[Sheet1,.b9bc5$*\Rffff*0v4648a313$*\Rffff*0t4648a2c0*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 OrU~|  $a$$%%&1&Q&&& '1'q'' (i(((1)y)))!*Y**+Q++ ,a,,,A---).y...Q// 0Y00 1)1Y1y1112i22!3Q3 4555)6a6617a773 8i88889Y9999 :9:::1;; <i<<9===1>>?? @Y@@ AqAA BaBB C DyDDiEEIFF HIIJ LQMNO P9QqQQ9R SiK TIUyVV X)YYZ \9]^A_ `9aYb)c d eaf[ hhIiiqj l mmqno p!q9r t9uuv xyyQzwi{s1G ||!~ 1QقYQ`0l  :l 0$ ,  hXX:h]3,X:H]3s h88(h]3h(((h]3oCx((h]3Cx((h]3CxBhE#$*# *#HE#*#*1x2 $ n8(h ]3h(h]3%Cx (h]3@ Cx (h]3[ Cx (h]3v Cx (h]3 Cx (h]3 Cx (h]3Cx BhE#$*# *#HE#*#*1x2 $ n8(h ]3h(h]3GCx(h]3bCx(h ]3}Cx(h ]3Cx(h ]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3:Cx(h]3UCx(h]3pCx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3 Cx(h]3-!Cx(h]3H"Cx(h]3c#Cx(h]3~$Cx(h]3%Cx(h ]3&Cx(h!]3'Cx(h"]3(Cx(h#]3)Cx(h$]3 *Cx(h%]3;+Cx(h&]3V,CxBhE#$*# *#HE#*#*1x2 $ n8(h ]3;h(h]3-Cx6(h]3.Cx6(h]3 /Cx6(h]3'&Cx6(h]3B0Cx6(h]3]1Cx6(h ]3x2Cx6(h ]33Cx6(h ]34Cx6(h]3Cx6(h]35Cx6(h]36Cx6(h]37Cx6(h]358Cx6(h]3P9Cx6(h]3k:Cx6(h]3Cx6(h]3Cx6(h]3;Cx6(h]3Cx6(h]3<Cx6BhE#$*# *#HE#*#*1x2 $ n8(h ]3 h(h]3r=Cx (h]3>Cx (h]3?Cx (h]31Cx (h]3.Cx (h ]3@Cx (h ]3 ACx (h ]3/ BCx (h]3J CCx BhE#$*# *#HE#*#*1x2 $ n8(h)]3 h(h]3 DCx (h]3 ECx (h]3 FCx (h]3 GCx (h]36 1Cx (h]3Q 0Cx (h]3l HCx (h]3 ICx (h ]3 JCx (h ]3 KCx (h ]3 LCx (h ]3 MCx (h ]3 NCx (h]3) OCx (h]3D PCx (h]3_ QCx (h]3z RCx (h]3 SCx (h]3 TCx (h]3 UCx (h]3 VCx (h]3 WCx (h]3 XCx (h]37 YCx (h]3R ZCx BhE#$*# *#HE#*#*1x2 $ n8(h*]3h(h]3 x(h]3 \Cx(h]3 ]Cx(h]3# ^Cx(h]3> _Cx(h]3Y `Cx(h]3t aCx(h ]3 :Cx(h ]3 bCx(h ]3 Cx(h]3 Cx(h]3 Cx(h]3cCx(h]31Cx(h]3LdCx(h]3geCx(h]3fCx(h]3gCx(h]3hCx(h]3iCx(h]3Cx(h]3 kCx(h]3$lCx(h]3?mCxBhE#$*# *#HE#*#*1x2 $ n8(hF]3Zh(h]3nCxU(h]3op*#$q*1x/$U(h]3rs*#$t*1x/$UBhE#$*# *#HE#*#*1x2 $ n8(hP]3,h(h]3u*#$v*1x/$'(h]3w*#$v*1x/$'(h]3xCx'BhE#$*# *#HE#*#*1x2 $ n8(hZ]3h(h]3cyCx(h]3~zCx(h]3{Cx(h]3|CxBhE#$*# *#HE#*#*1x2 $ n8(h[]3htt(h]3B}~*#$*1x/$t(h]3]Cxt(h]3xCxt(h]3Cxt(h]3Cxt(h]3Cxt(h]3 *1xt(h]3Cxt(h ]3Cxt(h ]3= *1xt(h ]3XCxt(h ]3sCxt(h ]3CxBhE#$*# *#HE#*#*1x2 $ n8(h\]3Nhdd(h]3CxId(h]3- *1xId(h]3HCxId(h]3cCxId(h]3~CxId(h]3CxId(h]3CxId(h]3CxId(h ]3CxId(h ]3CxIBhE#$*# *#HE#*#*1x2 $ n8(h]]3+hTT(h]3 *1x&T(h]3 *1x&T(h]3 *1x&T(h]3Cx&BhE#$*# *#HE#*#*1x2 $ n8(h^]3lhDD(h]3bCxgD(h]3 *1xgD(h]3CxgD(h]3CxgD(h]3CxgD(h]3CxgD(h]3CxgD(h]3#CxgBhE#$*# *#HE#*#*1x2 $ n8(h_]3\h44(h]3CxW4(h]3CxW4(h]3CxW4(h]3CxW4(h]3 *1xWBhE#$*# *#HE#*#*1x2 $ n8(h`]3Hh$$(h]3CxC$(h]3CxC$(h]3CxC$(h]3CxC$(h]3CxCBhE#$*# *#HE#*#*1x2 $ n$hE#$*# *1x2$ }CxXpXxX8(tdTD4$ $  zCb,B{f1t6T& > GГ?#Ƈ4C G{7x}w3hHɹDن/G͵xن/G͵> GГ?#MED@SPSSS>" LLLL `0 XkE  `0 k**J`z8` x 8`v 9`@t H9% %@@h%%X `x|BDF @x i@h 5 @X @H x@8 @( > HHJ- 4 @x @h 4@X <@H D:7 . @x @h 8 @X @x @h @X  $@x @h @X   @x @h D@X D  C@x @h @X   @x @h @X Xp H pT2|@x p @0 ` @X\ D@` L D@ < @ , @( @  @  @P @ C@  @ @8 @h @ @ @ @ @p @` @@P @@ @0 p@ @ (x p@$tݢHF$*\Rffff*0i46489f05*\R0*#14*\R0*#1$*\Rffff*0a4648bject Library*#26*\R0*#f:4 8 <@D HLPTX\`dhlptx|   t " /08 @P X ` p           " (( 8 HX ` p " $$  " $$  " $$  0 "8 $@$P Xh "p $x  "$  " "//( 8 /X $p P (o "  H(oP x(o      ( 0@ H (o` xA@ $|A@d@ (k( NKT B(tBKTmport  D(tOptionEKT  F(t0 - 79XKT  H(t0 - 89DKT J(tount (sageno@ !ts  (s Bool 4(0d (%Re 4(ist(ArkxopN'h' (o8B'KT' (%oE' ' ( o@X' ' (oD'2 (o`' B@o8]@]X]p]ice: 712639000 (AH) - beginx3 $T' $2'ice: 712639000 (AH) - end $|NEXT' kx $| $| $| $|Required fields are blank. [$  !$'ice: 712639000 (AH) - begin e [$  !$' e [ $  !$'ice: 712639000 (AH) - endd0'  $p $pHE $p ' kkk  B@pFd Invalid date Z$  !$'kpkho`XAttribute VB_Name = "Form_JrnlHeader" Bas0{DAF52C0F-85A4-49A1-942A-B70723012168}{B3F9B360-BE13-4CFE-8BF2-203B55A3FC2A} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit P"& Sub UserActiv () AdjEntry_C k If Trim(ReversalCode)" Then!Button_None"E"D;.Vi siPEnd IfCSelecxt C}C"Np H.ValuAgC^A B BeginNext E ) X Q DayVD Specif A4ROG;QOCK BubK~Ń@},|AcctgPodtG"A*Label13APRC d  HaHhI`TEL[K$-B^)$[fMcT=  rO\ j ^%efmR8eGCancel aIDD,p.Hidh ROKg Dim i As Integ0er !OKBooleabErrorQuote#Z'ice: 712639000 (AH) - b#, = Imbedded(|IDɁ gsNjend>?h4"|HNE|XTTdC B@usUnitdlOrnAd_3@LedGrp,S0ourcpQ 'Requi@ fi elds b`lank.Ai MsgBox(Get(Lang, 91, 1), vbEx$maQ}, -%Ca~dMV0"j|  8    ///,$ 4E1 Check_*)<'CurEffdp%*2o{Go a>=)1 .=0T? KQ'Invalid| d go$d$0, 2o$o$i$y qPqBQgA_i _WAWS`O`C` C`I7`C !`? 3 !` !0` i WWx/x! 8QxohX X:H]36hXB|\x! x xhx! 8x h(x(:H]3chx! x x5h~(:H]3chx! x x5h~(:H ]3 chx! x x5h~(:H ]3:chx! x x5h~(:H ]3~chx! 4x x5hx! x xT(D(xhX8 (hx! x hcX]3x5h]x! x xx! x xx! x xx! x x4$ xhHh$:hNXXx! 8x x5X$:hNXXx! x x5Xx! x x$h$ xXh$:hNXXx! 8x x5X$:hNXXx! x x5Xx! x x$h$ rU H yل $ѓI1"I"y!X 1x !:Ɉy4Ai8   <   @ɉDH   L!P9TQXi\`dhيlp!t9xQ`I|qɋsуG   {   wwwo[[[gg9xXh$:h NXXx! 8x x5X$:hNXXx! x x5Xx! x x$h$ xXh$:h NXXx! 8x x5X$:hNXXx! x x5Xx! x x$h$ xX|D$:h NXXx! 8x x5Xx! x x $D$ xXt<$:hNXXx! @x x5X $ $<$ xX\/`p! @p ``\ pv/\p5`/`p! @p ``\ pt/\p5`/p! @Qpo`L L:<]36`L$:<N``p! @p p5`p! <Qpo`L L:<]/,(! DQ(o :]/! Qo :]/! Qop` `:P]/@06`Lp`oC\\(L(`[M<@ 1 $ a,'',`F0>F^pz2\6`L,kv[oC\\(L(`[M<@ 1 $ a,'',`F0>F^pz2\6`L,ktoC\\(L (`[M<@ 1 $ a,'',`F0>F^pz2\6`L,pxp! DQpo` 5`@p! Qpo` 5`>p! Qpo` 5`<pxkx] $ oC\\(L(`ZM<@ 1 $ a,'',`F0>F^pz2\6`L,`$ `\p(`L,p`@0x`$`nDr#<"LL<,<0<4<8<<<0{BC751E07-0078-4E5C-9273-7FC8B6DB2AFD}{D8AAC0E4-22BE-4E87-A683-8A0E47A39575}@  X`pk`z `8Xk % %X8%h%@(@p|@t @Xd @T @D @4 @0 @ @ @ @ @  @x @h @X (0X@\ݢHF$*\Rffff*0j46489f58*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4448<@DHLP  "$` @PX "`$h px]@ $| $| B@ k(o X' B@oxpAttribute VB_Name = "Form_Import@Now" Bas0{BC751E07-0078-4E5C-9273-7FC8B6DB2AFD}{D8AAC0E4-22BEJ87-A683-8A(7A39575} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizDO@ption 0licit P"& Sub ButtonOK_Ck() Dim i As Integer If Trim(_UserID) <> "" AndPwd Then " .Hid E@If %S)CancelG*#ApRFrU (1ل $8 IYї1 4!` 8 <@ D!`IHALwPwdWx`t! QtodT T:D]<40! Q0o  :]<'6dT r$x$ 0 t0dT4 t<$:hNXXx! x x5X$$<$ xX4DPrU \$`$A`nrU l$`$A`$`$`$`nrU  Form_AddDelLines"%%__SRP_14B__SRP_15$Form_SelectHeader$osoft Forms 2.0 Object Library*#47*\R0*#13*\R0*#10*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\R0*#f*\R0*#1*\R0*#14$*\Rffff*0t4648a2c0 4\<@DHLPTX`8\ "   ?8IXIx  I ?I 8 H XhIpII "        !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^`abdefghijklmnoqrstuvwxyz{|}~    30H PX` h@ . (of  8 (oX= 4 (o= 2 (oHp x   "   "(  0 8 $HX` "h$p x * { x ! Insert mode  $ (  $ (  $ ( ( (  $ (d  Delete mode  $ (  $ ( ( ( (k  $ N(  $ (  $ (o(@]] ! Insert Mode' $~ $n 'kkd Delete Mode' $| $| $~ $~ (MSG= Empty or Invalid FromLine or ToLine \ $  !$' $n $n e MSG= FromLine > ToLine \ $  !$' $n$e -MSG= FromLine does not exist for this journal \$  !$' $n$e +MSG= ToLine does not exist for this journal \$  !$'d'kxkp  B@kPoH'''' (t B@o !t (d ( (tko0' $~  $n $n  'k@k8o0(MAttribute VB_Name = "Form_AddDelLines"  Bas0{FBB4EE85-7F1F-49E6-9DF0-684464B344AB}{281BF.-3AEB-428E-8AA0-EBEE9930BD58} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizDOption 0licit` P"& Sub User!ctiv () If HowMany.VisinThenCtL qhdK6EF 71N8OG ,} F0`E풼Zdπ[8_AP\xπ[8_AP\dK6EF 71MET@SPSSS>"LL LLLL J" Jq= Ę'F6VSourceGEnd IfÆC'CancelJ5D4B'2*1I3Z$`[A]]E'_Caka]Dim Done As Boolea`\i!Integer#cbMbb N/ IsNum{c(m) m4Val'> 0! cei4a/UU > Trim(k) `p" OrjNot KO!'MSG= Empty orvalid|a5iBox(921), vbExma, DQ"(|39'> 5 > 9%doAxM_Exist(!&4Kc.@does n@9e  f0this jnal/a7 *p gT E  }  $lq 8 #sp<;:~nVR2HiEzqTR [WRA= 0d~H6wc7falu("L.c ] @nQ-om` S[Qt9 ~"0 1 !r iHѣ_ChБeEU b\ 0Eob2 G =JU) +) - 1S bQxoX 5X*Xx! x X(h]tx5X{H@! @ H`#< t Xx! x X`#D o k(8! 8 2D<)x@86XH(\$ ,D<x@8XH(<T@XL8D9HY %Required Journal key fields are blank [$  !$'(ElseIf UCase(Trim(JrnlID)) = "NEXT" Then NEXT Journal ID not supported Hi = MsgBox(GetMsg(Lang, 91, 9), vbExclamation, FrameCopyJournal.Caption) $pe Invalid Journal Date Z$  !$'d('kd'k  B@koA B@o]  !  ,ho` ]`  !  ,oAttribute VB_Name = "Form_SelectHeader" " Bas0{1BF0F93C-F98C-4321-90B6-34CA0D7A62}{41DCAB15-2071-42F6-9FD7-D32501B4D051} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit P"& Sub ButtonOK_Ck() Dim tmpDAs&  i In tegerDone Boolean- If FrCopyJournal.VisiThe = \F^px2\\6`L,cL(! ( L`#\ tT`t! t ``#\ oT2\\)t(6`LzoC\\(L (`\M<@ 1\$a,'',`F0>\F^px2\\6`L,:`t! t ``#\ +r /\t5`&oC\\(L(`\M<@ 1\$a,'',`F0>\F^px2\\6`L,:`t! t ``#\ +r /\t5`oC\\(L(`\M<@ 1\$a,'',`F0>\F^px2\\6`L,pzkz$($ P\\t(`L,p(Xx! x x5X(Xx! x x5X(Xx! x x5X(Xx! x x5XfXx! x  x5X$$$ xX(hx! x  hcX]3x5hEx! x xx! x x$:X Nhhx! x x5h4$ xhH@$:h NXXx! x x5Xx! ` DH  L!`I PTGXѶ\ `Adh{lwpwtm W   ljl! l kjlppl! QloXH H` ꟡|5>05Kǒ?jfthN(NށAV:G+@aNh\Kx+@aNh\K5>05Kǒ?MESPSSS>"LL L L0{1BF0F93C-F98C-4321-90B6-34CA0D7AF932}{41DCAB15-2071-42F6-9FD7-D32501B4D051}  `XTk`ht`r`p x `P|k  `Lk%`z `Lk,`zx% %  %P%Xp@@p(|@l @j @XX @H @8 @( @0$ @ @ x@x dT@ @H @ @` @ @ @ @ D@| D@8x p@ h @X @T X@@t @p @n 0@l p@\ @L `8Ph @t @p h @n h@l  @\ @L x (ݢHF$*\Rffff*0z4648a374*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R0*#f$*\Rffff*0v4648a313$*\Rffff*0a46489bc5*\R0*#1*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28*\R0*#14$*\Rffff*0t4648a2c0*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4548<@DHLPTX\`dhlpt3 "  (86@ ,x (t . $ N(!x  (t     "(0 8H "PX(`$x  "($  x]@]X]p !' $| $| $|:8]/($! Q$o :]/! Qo :]/6 XH,tC||(H(X[M8@ 1Txl! l D''>xF0>TF(^pr2|Tl6 XH(l! QloX 5XtC||(H(XZM8@ 1Txl! l D''>xF0>TF(^pr2|Tl6 XH(ppppkp $ ($ P|xTl$XH(L  $ $ \(zpt! t  lptclX$kzDLt! t D t5L zdl*0\$ tL\(zpt! t  lptclX$kzDLt! t D t5L zdl*0\$ tL4L<@@rU $ `$A `$ `$ `nrU $`($A`,$`0nY 1 rU Xx B@k $https://eERROR: Invaid web address Z$  !$'d B@ 4(koxp B@*N' B@'oH B@* B@KTTemplate$PB@R HB@$!B@H L(N B@P B@ A@ro,Attribute VB_Name = "Form_Options" Bas0{11B614F7-5078-4D5A-81F5-5B9E20DF633F}{20630DD 3-477179-B022-FF5D6422EA0D} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD  1licit P#' Sub ButtonOK_Ck() Dim myURL AHs Sng iInteger = LC(Import_.Value%If Not Check_BD;(Def)` Then%A 'Invalid A E[Left(B, 7)http://"WARNING: Unsecu] web ac0cessMsgBox(Get@(Lang, 90, 3), @vbQuesA +YesNo,b .CaB#vb "3 Hid}End If88) <> "9sQ9ERRO8R: KK8ddZrJ8i@I848Ex@maA96'C?A.54Ca0ncelUndoAc!  _`eCF AWorksh@eets("Eq"t).vYeS.Unprotec`mCells(1, 14).EntireColumn.SelAppp1.ScreenUpdng8C ".ShowCN'NUnloadW ) 8"p$@p D@` D@PP E@@ @0 @ @ x&(@h @ +++9   Q   iW2`p! p `P P`1xp6`Pp! Qpo` 5`U(xM@@`  `:0]35`tC(P(`ZM@@ 1$ a '' `F$>F^ 26`P $ (xM@@`  `:0 ]@5`oC(P(`ZM@@ 1$ a '' `F0>F^ pv26`P $ (x4 p`P T$ $ D $ $$ P  $ D $ 1d:h %x$ x dd)xdx$ @xxA(h%(D%x$ Xx$=x6$" x$ x x$$Vx$ xx $ xd$8Hdh__SRP_17#Form_SelectSheet"( +$__SRP_10__SRP_11&_x t (ΡmEpB"&!' bH{'*+daJDiSk2)bMEüxk2)bMEüΡmEpB"&!MEd@SPSSS>"  LLLLLL" ?@ABCDEFGHIJ2LMNOPQRSTUVWXYZ[\]^_`abcdefjlmnopqrstuvwxyz{~rU  Ias!ykx  iɇY 1 ) Y  ""'1Y 4  8!`I<A@AIDAiHaLAyPAT   X\I`Aidhl p1tYxq|)))9YyA***i###''' !(((` !` II0 PI`I   "    "( /P&hx V$D @PX` hp x / (o 6 (o0 X` hpx   "  "($  " ((0$H `h xx  $ N("' )$ ( In !  $ (e  $ (  (dH  (k0o(@]]' !https:' !R: Inv ACTION= Write Journal Sheets  $| $~'.( .$|p'd`File already exists  )$ 0  !t 0 )$'t t $ & !$ ( A@0'kkkd ACTION= Copy Journal Sheet $|Empty target sheet name ^$  !$' $|eSheet name too long ^$  !$'d'kkk  B@k`oXA B@o0]H  !  ,o`]  !  ,o7Attribute VB_Name = "Form_SelectSheet"  Bas0{43F83970-6F8D-4C39-955D-AA83B666B2C9}{F0572879-3F7A-4878-8CF7-C65C66FC17FC} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD Option A2licit P$( Sub UserActiv () ButtonCancel.Ca"= GetMsg(Lang, 12, 2LabHel1417If .All .VisiOThenCG3 None+4H ListBox1.MultiChfmExtended&EASingl{ End If g@^b bDO(K_C@jkaDim t, Mesg As S@Png AiIntegerAD@FZTargetZ DA D ]h 'ACTIO@N= Wri@Journal ssDTrim(#) <> ""> }aADi~rk a a) "e:)H'Fizal@|dy exF3cA^30) & @vbCrLf_k "a"6alue*s~1]B`'`x`_(,Ques„+YesNo, j-vb7% Kill C:3! f m/;VCopy UkKL'EmptHy tl s vnُiT/59 4, 3)0Ex@maA10+ Len()l) >= 304'bt too lo,5&F+q ^tT#ǒE,HidoYqTOYcpYCa-SRagC _@xV^1 A`1 To hCoun}A1smed(i t~|;JWLt_z'[ EM:'yLPP|JI:ZC!OHx!OH;JWLt_z'ME\@SPSSS>" LLLLLLL<` @, D@ D@ E@@ @ @ @ @( @X @p @ @ @ @ @p @` @\ @L D@< D$&(00$Hh P   D@t @p @( n @ @l  ( @\ @L ( H ` x 0 DE@t @p @ n  x @l @\ @L 0 `p@ݢHF$*\Rffff*0k46489f58$*\Rffff*0v4648a313$*\Rffff*0a46489bc5*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R3*#37*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM- 1ǁ,ANex X  h[gaO QuO  O g^ ѓ!ل $iIh  )Qy 4!`I8  <!ə` @!` DH  L!`PGT)X{\a0` `AdwhwlptmWIC(((,(L Ml@ # $! $ 02( $6L,IC(((,(L)Ml@ # $! $ @2( $6L,$! $ k$cIC(((,(L Ml@ # $! $ 02( $6L,IC(((,(L Ml@ # $! $ 02( $6L,$! $ $$! $ $`$ ( $L,Lc@`! ` `5@>`! ` k>`f@`! ` `5@>`! ` k>`;/`! Q`o@, ,:P ]@6@,6&`! Q`o@ F,l5@l@ @:P ]35@ c@`! ` `5@4C(,(@)MP@ # *# *F`! `  : C\\(`()M@ FL<`1h2\`6@,`L<D$a@''@`F,$hMP@^6@,2`! Q`o@ 5@c@`! ` `5@/`! Q`o@, ,:P ]36@,oC(,(@^MP@ 1$a''`F0>F^pf26@,3`! Q`o@, ,(P]Z6@,oC(,(@^MP@ 1$a''`F0>F^pf26@,c@`! ` `5@`! Q`o@5@$C@,lhH\`@,`L<L$$ \(zpt! t lptclX$kzDLt! t Dt5L zdl*0\$ tL\(zpt! t lptclX$kzDLt! t Dt5L zdl*0\$ tL\4L<@8rU $`$A`$`$`$`nrU $ `$A `( `I&$ ` $ `$A `$ `Form_CustomizeCF"!___SRP_d*Vn0__SRP_cc _VBA_PROJECTp8AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R1*#2ac*\R1*#e8*\R1*#1c8*\R0*#10*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R1*#d7*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\R0*#1*\R0*#14*\R1*#6c$*\Rffff*0t4648a2c0*\R0*#13*\G{AC2DE821-36A2-11CF-8053-00AA00600*t1F3R{YIC.wrLߓ093 RMtG"$Nﲰx$NﲰYIC.wMEt@SPSSS8>"LLLLLLL L P` ki@ `Bx`lv D` k % F`Xk , L`k7 PP`kE R`PkS@Tl <h% Z(`(k  c <x % \h `k$ n ` `k( z@bl @r\ `dX f` ` k, 66`hx`v x `h|k0  z ` xk4  ~ `|k8 `` xk< `x!|k@ `0"kD00 <x% `@%kHph@%p %"24@ `` h(PP`Xp@86@x @t rk@p @` @P p H|VB@t @ d @8 T @ P › @LO  @ < @P , @h  @ @ @ @ @  8 h@P p @ ` @ P @@ @ @h 0 "@8 @  @ @ @ @ @ @  @  (0@x X@h ^@ X $@H @(8 @@( @ p(HJ@Xx @@h @X @T @D @4 @$ @ @ `>L2:@x @h @X @T @0D @x4 @H$ @ @ @ Hx`80>L2:@x @h @X @H @8 @( @$ @  @ @ @  P2:X@d @8T @D @h4 @$ @ @ @ @ @ @ @ &$2:@h @(X @@H @X8 @p( @ @ @ @ pX2^@x @h @X @H @8 @4 @x$ @0 @H @` @ @ @ @ @ x2^@8T @D @4 @$ @  @P @h @ @ @ @ @ @ @ @ H0 P.L$j&6~l@p @` @@P @(L npZrX@H @X8 @p( @ @ @ @ @ @ @0 @ @H 8@` @x @t @r @` tvn\l@P @@ @0 @8, @( @  zv|68@x z`!H!v|68@x ""##$0#8$(%H#H2prZ@#t @#d @#T @X#P p#0#@LO #X#@ $H @#8 @#( @ P$X#@$ @`$ @ @$ $8$ @x$ @$ @ @% %$"HJXt@ @ %"$n6%p&&%HPr@&x @(&h @@&X @X&H @8 @&( @ @  @pxPL ݢHF*\R1*#1f6$*\Rffff*104648a374*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4e*\G{9FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\R0*#10*\R1*#dc*\R0*#1e*\R0*#1d8<@DHLPTX`dhlp|tx\ "8( "08/@,cX  "  >*p> 0>H*p`> >*p> (8@"dX8 ".: "&Y:  8 HX`h "p&Yx5+: # (:0PX "`,dh,+: #:08 "@H+X %hx   2u  ( "08F4@+   ".O. 6@H.P `px "$e.6 ( "08@ $H7p7 i$/,8/ P  X  qh  d   W   (   *   b0 >  !      b@ >  ,d ! "@ h ,dp     n :0  Np  &!  X     "  "  ( 8 HX "`hp "x     " "/T  08 @ hHhh.tV   0 8 HX  $`p x <        W( @PXhDp  "7 1   0 @x] 8!t 6(toP`] < H!!ChkBox <!!$$| <(xpoh] ]8 R1=Field name @$!t'B @ $!t @$(t B @ $(tR7=Field label @$!t'B @ $!t @$(t B @ $(t R8=Format @$!'B @ $! @$(A B @ $(Rest column width @$h!'l @ $h! @$h( l @ $h(o`P !  %XB@Hk A@o ! LastLineCol$!  %XB@H H( J(kA@o ! LastLineCol$! ! A@>d@ !B@N %XB@R L(rRelocateChkBox 2(A@:k %XB@HA@o ! LastLineCol$! !A@>dP !B@N %XB@R L(rRelocateChkBox 2(A@:k %XB@HA@oP] !B@R ( 2!V.T T( T(P T( ! ! T!   T( NewChkBox T(A@:A@ X(to])Do you really want to delete this column? & $ $ !B@ 2B@A@:A@k@o8( ! ! ( ! 2!! ! 2!   2(kk ! ^(koh] !?  ( ! 2!! ! 2!   2(k ^(o]0]HICE 1214492000 and 1215208000 . L%v'$ j L%v'& 6$~ l nInvalid Decimal Place$' 6 6  l ne*Invalid decimal place. Valid range is 0-8$'d p! p$Z !$(tkp r !$(t X@ !$( te$! !$(d 6#0'h\ICE 1214492000 and 1215208000 - Decimal and Thousand separator need to be looked at together8FmtString = "#0." & String(Val(DecimalPlace.Value), "0") v# &# h'h eg. #,##0kd**Decimal Place is > 0\ICE 1214492000 and 1215208000 - Decimal and Thousand separator need to be looked at together8FmtString = "#0." & String(Val(DecimalPlace.Value), "0") v#0 $ 6!t$n0$\'h# &# h'heg. #,##0.00 for 2 decimalsd# $ 6!t$n0$\'heg. #,00kHk@ hICE 1214492000 and 1215208000 - The logics for thounsands format need to be included with decimal points 4FmtString = IIf(Fmt_Thousand, "#,#", "") & FmtString l$$l h'h h _);[Red]( h)'h h !$(0k A@ko`A@zo v( |( 6( 8(oA@zo  v( |( 6( 8(o8`A@o ] < H! <!! ! <.2yk !$!t p(t !$!t r(t p!t$ZFOREIGN_CURRENCYKFOREIGN_AMOUNTKRT_TYPEK RATE_MULTKMONETARY_AMOUNTK OPEN_ITEM_KEYKT ( p(S ( p(n ! KT H( J( LastLineCol$!KT ( (S  H( ( J( (n !$!@KT'XGeneralKT'$!KT'tSh'n 6(tA@n@o8 $B@H HB@Control$PB@R B@ A@ro 4Attribute VB_Name = "Form_CustomizeCF"  Bas0{825A1020-2EB0-43E8-9366-201F7B4C5712}{9777AEB6-911E-41C5-B81B-82F1396303B2} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDe8rivDOp tion 0licit Dim Cbox As CheckBox P-1 Sub Spin1_Chang@e() DecimalPl.Valuw End &Renumber'5'AB@} Each CB In Act;@Sheet.*eFs# CB.Ch" & Trim(str(@BotRightCell.Co lumn)D4NexCH- AExc@@ *Integer/tmp1ASngU2H *'R1=Fiepld n= $s(1, @~)EQ6+  + 1  "7"label"7" "C""t8=a`AJ"8NGc oLest cbF width&&2 s(7 KW #7.`%2mwelectLeft_ C~k%xIf SBDa > 12 ThenC!1gOffset(0x, -MfIBfcUserA4_?u@6#q?< R"LastLine$")_,'#.Visi#BhifB'2. =ge (c+(;-?5BaEntir* W.CugqkK@In`=A4ppLa!CopyMod afRelocDdQb Pe& ])ct (iea S1( 2nQ87)) vcgEObO ;2).???@?y? ?y0?,ic#//# COLg2vNew PaOxy7 V8 Set $@yrDuS.He@15d._q9{TopP80[!H`g 6+"-) / 2 - 4EsS /2EFmt_Tex~tÈ QpMMDdte05Msg("Do you @lly want to d this$w?", vb YesNo7vbQuxN)` 6?k oO:  cQGA0e0ENarrowg_onl> 4? 4 K+p^!0_ oLn< 10q)ݳO*-#0*qU =8yd9_R0 eDx, Y, zһingl4>OB&m + 0.5)aS  < 81Q < 0Gd Bpp. VRrange is 80-8 RmWFldName.En`abled ~kCells(1, SelecCo@lumn).3ueUCase(%ZIf7LabelC )@kTextV'8sFormat)"@"kFpDate:C5 6).KGAF@^I'0 @ @(StringA0#00'ICE 1214492000 с5208N-E sE ne@}to be` look@Ktogether -A#." & ((@ C), "0O EaO:  & "#N` 'eg.@ #,##0ELU D'**l>  2v22 '$0222S@p_$#CϒC/ >mtP6 ` >. dfor 2 ds>o ݢěag0_S U>N`|gics a t@onhincludwith% pointL&JOIIf/b?6"`")"F[y$ER A_);[Red](A<")TF\_n9]Local/V !MUserg_A=`sv`feqSubPri Generald_Ck(u0_QpS gV.Visi~q aPc bw(`% D@%p$ Xp A `1xp6 p(`% D@%p$ Xp A %(% D% $ X C )p 6 >lxF%(`% D@%p$ Xp C p5 >(`% D@%p$ Xp A `1xp6 p(`% D@%p$ Xp A %(% D% $ X C )p 6 >lxF%(`% D@%p$ Xp C p5 >(`% D@%p$ Xp A `1xp6 p(`% D@%p$ Xp A %(% D% $ X C )p 6 >lxF%(`% D@%p$ Xp C p5 8 D`%p$ `ip AUpvp6 d D`%p$ `p A% D@% $ ` C)p 6 8kvD@% D`%p$ `p Cp5 (x p  x.x $ xWX(h ]tx5Xj:(h%((%x $ xHx5HDdx$ xXHYx $ xW$T'X%:h%$ TaD"i4]g)xT6D$:(h%(4%x $ x$x5$x! x xx! x xDx$ xTD$Yx $ xW$T'X%:h%$ TaD"i4]3)xT6D$5x $ xWD(h$U+x5D7+x $ xW$x5$:(h%(4%x $ x$x5$# x$ x x:h%X4,n:(h%(4%x $ x$x5$D|$ xTD$dx $ xWX(hH$'(%:8%$ $a"i]3)x$6XH,x $ xWXU+x5X9+x $ xWHx5H:(h%((%x $ xHx5H# x$ x x:h%X4,n:(h%((%x $ xHx5HD$ $x$XHD+d $ dWDd5D%(4%d $ ddX4aTlN(4%lC(4%lC(4P%lCud $ dW $  WTlAD(4($%lC)d 6TD:4%lCDcTd! d  d5TD,lh0rU FYYIY 1 1i QلyqyY ѓ Y x1a)QI $)# aa :9) ""Y 8!!` <A ` @{DwHwLa P`  TGX 0`Q  \!I`  `i d!`  h!`I l `Q  p! `I  t!  `  x!) ` |A` a`  !` ` A1AYy) !`   !` y W    W    W    _    _  |@8tx! x <ltiPp! p )xp5P,@$  d TD4'''8$:h!NXX^"6X8+ $ W8#58X4uD(x X8.x $ xWX(h]tx5X;Ox $ xWXH(h8%4 $ 4)x45X.x $ xWX(h ]gx5X9X4aXg xxa4 $ 4W8X4aHzBkh($(Bk%X4,)x46 XH8.x $ xWX(h]Mx5Xx! x x$ 4 x4XH8@eT $ TW4D?$(% $ )T64$.T $ TW4(D ]gT54!X4a4g TTa $ WX4a$zBkD((Bk%X4,)T6 4$T! T T@,\l4 T4$D7P `%p$ p P`$p5P7P `%p$ p P`%p5Pip! QpoP &`(L! L  (8H! H  8')HL6P(8` /''('8:`'NPP^"pv6P8(>Pp! p P8(`]p(L! L (]cH! H  !   't)pLH6P/''('8:`(NPP^"pv6P8(>rp! p krppqp! QpoP8 )8(`%L $ LW(%H$ XHC )LH6P(8dp! Qpo8%(`%L $ LWP%H$ XH(C )LH6P8(p! QpoP5PJW:*%(`%p $ pWP%L$ XL8C )pL6P85p! QpoP5P(`%(%p$ XpPA( %(`%L $ LW8%H$ XHC )pLH6P8(5*Pp! p P(`]3p5P`+Cxp! QpoP5P[!,v%*#,,*#(lx*1x2,(lp! QpoP5PdPp! p P, -t +v$*F:`.N88o ( / (`1x/,p6 P8(!,v%*#,,*#(lx*1x2,(jdPp! p P, -t ,v$*F:`.N88o ( / (`1x/,p6 P8(Np! :0N((:`1N88QpoP 2lxF`1x6 P8(!lx3*#,lx*#(4*1x2,(XlxF%(`%p $ pWP%L$ XL8C5)pL6P8D\D(xP,(pLHP8(t< 4 $ hx! x xx! x xx! x xx! x xh$ x< 4 $ hx! x xx! x xx! x xx! x xh$ x< < $ b/t$ @tWT4Pxt5TLTxadg ttaT"i8]H $ HW(3)tH6dT( lx4L xL1h(8%t $ tWd%H$ XHT=( !  )tH6dT(h(8%t $ tWd%H$ XHT=( !  )tH6dT(dt! t dT )Tt5dV:86]3:7]3:8]3:9]3::]3:;]3/t! t tt! t tat! t tt! t tt $ tWdt(8 ]3t! t tt! t t9t'%:8%$ tad"i]3t5d6t! t tt! t tt! t tt! t tt! t tt! t t(8%t $ tWd%H$ XHTA( )tH6dT:8*]3 cdt! t  t5d:8<]3Ocdt! t  t5dA(8%(%t$ XtdAT 3t6dTcdt! t  t5dcdt! t  t5d(dt! t t5d<<d$PLx(tHdT(5X7(h %(H%x$ Xxx5x$ @x=x1:h>%x$ x d?@)xA$BAVBxC$D Exh$ x(Pd\h8 p x t < l|XG$ `$ ` $A `$$ `($ `,$  `0$I `4$ `8$ `<$  `@$I `D$ `Hn|))E֚Ol-st&L$ yko!CompareFEmptyText Excel+ VBAWin16~Win32MacVBA6# Jrnlmcro]stdole`MSFormsCMSXMLO mJournalEntry _Evaluate (LastHdrCOL (IntegersP(Decimalsx(StatIntsw(StatDecX[ (HdrCtrlCOLt (p_DecimalSeparator_(p_ThousandsSeparatorj!SeqNumReset> LastLineNum\EndRow CurWrkBook~ CurrentSheeteCurrentHdrSheet OptionSheet SelHeader7NMessageTitle~ReturnCDAmtErr3RowCountuhGetSheetActiveWorkbook ActiveSheet%N(GotoControlPageG Application*ScreenUpdating!  WorksheetsActivate| (ImbeddedSpaceTotLenSpaces(IsDateOKDtexttDsep,Dorder{P1^P2^YRp_tmpDateIsDate2IIfzVal (Check_DateEdBoxQValueK InternationalxlDateSeparatordI xlDateOrderTrim@ IsNumeric$*Right (Change_ImportStatuswi`BeginRow3List1 HeaderArray. NewStatusIGRiRange  WorkbooksB Unprotect?(Build_HdrArrayBMsgBoxR(GetMsg(LanggvbOKOnly Form_SelectHeaderECaptionxButtonOKFrameImportStatusVisible ButtonAll8 ButtonNone% Choose_HeaderkListBox1ButtonImportYES  ListCount6SelectedYCellsRowFindnxlWholexlByRowsFindNextu SelectionZProtectfRowsU (Header_Insertf Form_JrnlHeaderN Modify_Header (Header_Edit RowNummR NewHeaderIi DisplayHdrR KKamountTypeAddItem  ListIndexQ(OptionsJrnlDate_JrnlIDSystemIDJCurEffdt#BusUnitLedGrp. SourceGUserIDjDescr254LedgerO ForrCurrvRTtypecRateMult5 ReversalCodePRevDateNAutoGen AdjEntry AcctgPeriod!AdjTypeH JrnlClassIUtranCD AgencyLocCDUDocType-DocSeqsRefNumDEnabled۪ BackColorރvbWindowBackground$ vbButtonFaceLabel1,Label2,Label3,Label4,Label5,Label6,Label7,Label8,Label9,Label22gLabel10@Label11ALabel12B Label13AP5 CurrencyBoxJLabel14DLabel15ELabel16FLabel17G ReversalBox%a Button_NoneO]Button_BeginNextButton_EndNext>7Button_NextDayĠButton_Specify$Label18H ButtonCancelufShowInsertrxlDown0D (Save_OptionOffsetUCase5 UseStandardHeightCHdrSheetAsLastRowwkb ThisSheet WorksheetColumnsp9 xlFormulasZ (Header_SelectCopyƿ PasteSpecialK CutCopyMode (Header_Copyg^TopRowuBotRowpNewSeq\tSeq BotLineN LastLineCol!FrameCopyJournal EntireRowColumniButtonImporay  *\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:\WINNT\System32\STDOLE2.TLB#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{85C5015B-1FFC-482A-B206-BFFF78243E9F}#2.0#0#C:\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{D63E0CE2-A0A2-11D0-9C02-00C04FC99C8E}#2.0#0#C:\WINNT\System32\MSXML.DLL#Microsoft XML, version 2.0   VLibrary file for Spreadsheet Journal ImportݢHF   mJournalEntry0t4648a2c0mJournalEntryH`w4mImportControl0v4648a3138mImportControlH0 mLogFunctions0`46489bc5mLogFunctionsH0)mMessages0a46489bc5mMessagesHNForm_JrnlHeader0i46489f05Form_JrnlHeaderH`Z& Sheet10w4648a374 Sheet1xThisWorkbook0x4648a374ThisWorkbook Form_ImportNow0j46489f58Form_ImportNow Form_AddDelLines0y4648a374 Form_AddDelLinesqH "Form_SelectHeader0z4648a374"Form_SelectHeaderHForm_Options0P46489e15Form_Options(H  Form_SelectSheet0k46489f58 Form_SelectSheetH Form_CustomizeCF104648a374 Form_CustomizeCF{ R@xH` 0R eHgvx!QK,U=6Z`+L*ΟQ+ʊ3B0xmsr(J$F_k䯸~5U[JvruzO$/zG +@C>:KPr DHKAC 6Z!+I}(GH9GtNOHeight|Top5ClearList* MultiSelectfmMultiSelectExtendedfmMultiSelectSingleQ: (Header_DeletelCounter FirstDelete?h DeleteRowFromDeletex ClearContents{ (Line_InsertAdd_LineD ActiveWindow+ ScrollRow"NewLineԶLastCol64Paste xlFormatsUFontUColor2FInterior; CopyFields|xlValuesoLocked CHKD~CheckBoxi{ ChkColumnkQ ClearCell  CheckBoxes̍xlOff'BottomRightCellF NumberFormatR (Line_Deletet CurrentCell$ CurrentRowSmLineSeqG ActiveCell vbExclamation vbOKCancelx?(Delete_LineBlockrLineNumֶFromValToVal*PrevRowNNextRow58 Form_AddDelLinesg+FromLine\ToLinegHowMany2(Insert_LineBlockEnding— SrcLineNumSrcRow NoLineValueOCopyData SourceLineAutoFill_ Destinationл xlFillSeries (LineNum_Exist TargetNumDqFound+(ValidateAmountsƕFirstRow3 ForAmtCol BaseAmtCol StatAmtCold(DoCheck)Cel}AmtTtMaxLendPosMinusb ColFormatGPos1Minus1(m Decimals1IsEmpty IsNullxlDecimalSeparatorNumberFormatLocal)(ImbeddedQuotes+ SingleQuote  DoubleQuote3 mImportControlg( Successfulo, LogFileName SkipsheetsSkipDlgs FirstJLine(Init\[ DialogSheetsK EditBoxes NewText_Set_Homepage_LabelsSheets  SetDefaultsm UserNotesoNewSheet  EditSheet ClearSheet CopySheetoImportSelected WriteSelected7 GroupBoxesU GoControlPage (StringBetweenH SourceString BeforeStringgJ AfterStringTBeforeStringPosEAfterStringPosStringBetweenPosԾ (JrnlSheet_NewMesgWCWK_iMsghWInputBox afterX(JrnlSheet_SelectU SheetName6 SheetListp} (ListArray# Form_SelectSheet+TargetF OnlineFramel(JrnlSheet_DeleteSelSheetE* SelHdrSheetX DisplayAlerts(JrnlSheet_Copyi NameErrorh NewHdrSheetgxWrkSheet; EntireColumn (FormatJournal^SkipCol SheetCountB ArraySizeCurCountCCount0v (Set_Options@ LangArraytmp Form_OptionsvHeaderDefaults_Box General_BoxrMessageLog_Boxz DocSeq_BoxmeImportControl_BoxImportStatus_Box!Label13CMultiBook_Enablec Def_AutoGenLabel21fLog_ErrorsOnlyRLog_AllMessages Display_Mesg+ DocSeq_EnableLabel31Label41Label42ChangeStatus_YESTChangeStatus_NOcUnicodeW Def_BusUnitЈDef_DateT Def_LedGrp[ Def_Source5T Def_UserIDXo Def_DocTypeY Import_URL Import_UserIDոDuplicateOptionw ErrorOptionHLangListպ(Import_JournalsmodevSelListh; StatusBarOptn" StatusBarText>JCounter2OutFile IndexFileX8UsrIDPwdByte1tmpStrBaseFile5nFileExtlposDot֝posSlash{8DisplayStatusBar StatusBarʜ Form_ImportNow  Import_Sheet Import_Pwdˣ WriteIndexDefaultFilePathRInStrRevĈ LineSheet"strXMLA`strURLP strResponseO FirstRowNumA LastRowNum  iGenerateXMLT| Generate_XMLvbCrLfsendXML& (AddLogEntry6Row2XMLSelfindentCFldValue DecChar3zXMLKsColNameNReplacefErroRaiseSpace XMLtext@iStatusV DataRangeMP HdrSeqNumzThisRowtempXMLNkdoErrorjMNumber-xDoc DOMDocumentbxHTTPXMLHTTPRequestxError>% xImportedpxUpdatedIXMLDOMNodeList^tmp2ktmp3l StatusNumYlMdD[Jdate"SysIDA+JIDѣasynchloadXMLDsetRequestHeader#7send ResponseTextwgetElementsByTagNameYLengthYItemzvbLfT%RTrimLTrimbstr    i 7"#$%&'()*+,-./012345689:;<=>?@ABCDEFGHIJKLMNPRSTU^WXYZ[\]O_`abcdefghklmnoxqrstuvwjyz{|}~ parseErrorvYreason Description  (CustomizeCF Form_CustomizeCF`genericErrorHandler92objErr0 ErrObjectx strProcNameƣpromptm (URL_Encode K sOriginal Qi_Len  i_Counterlq s_Encoded s_ParsedQ mLogFunctions(OpenLog~Workbookk PriorActiveWBTemplateFileName TemplateDir LogFileSpec|Path2(WorkbookIsOpen=dAddr ColumnWidthWrapText}SizeHorizontalAlignmentS@ xlHAlignLeft-BoldSaveAsf; CurSheetNameKStatus+ CurBookName LogWorkbook LogSheetE"NewRowY LogColumn$Now%SaveBookNameaNotOpen mMessagesd(MsgSet (MsgNum(Build_LangArrayKparam1UserForm_ActivateZsAdjEntry_ClickButton_None_ClickaButton_BeginNext_Click[Button_EndNext_ClickButton_NextDay_Click;Button_Specify_ClickButtonCancel_ClickHide9zButtonOK_Click1DateOK]JrnlSpaceError JrnlQuoteErrorЋ Sheet1 ThisWorkbook|Done CopyData_ClickHowMany_ChangeButtonNone_Click}ButtonAll_ClickmyURLLCase: vbQuestionvbYesNovbYesa? UndoActionaButton_CustomizeCF_ClicktempRKillCboxz Spin1_Change DecimalPlaceySpin1Renumber_ChkBoxCB\Exchange"ColHtmp1jSelectLeft_ClickSelectRight_Click SelectLeft ShiftLeftclShiftLeft_ClickPCut.ShiftRight_Click:InsertCOL_Click7NewCbox Duplicate_Fmt_Text:DeleteCOL_Click Narrow_ClickNarrow Wide_ClickNxozqFmt_Apply_Clicks+ FmtString^xlThousandsSeparatorL Fmt_Currency Fmt_NumberFldName$FldLabel?Fmt_DateW Fmt_ThousandcFmt_General_Click\Fmt_Text_Clickx Label_Decimal3.Fmt_Date_ClickFmt_Number_ClickFmt_Currency_Click DeleteCOL SelectRightf ShiftRightϰ Fmt_GeneralButton_Exit_Clickf_DefaultjUserFormNButton_CustomizeCF`Click _B_var_Right9 _B_var_LCase' _B_var_LeftQ _B_var_TrimmT _B_var_MidpLabel19ILabel20e _B_var_Datev _B_var_Format _B_var_UCasea _B_var_Space _B_str_Format" _B_str_Trim _B_str_UCaseK _B_str_Space _B_var_RTrimr _B_var_LTrim& _B_var_Str(Encode_XMLcharf(Decode_XMLcharDecode_XMLcharxErrorsFrame1Change Fmt_ApplyWideI FrameColumn Button_Exit InsertCOL! FrameFormat MultiPage14? _B_var_temp _B_var_Stringӊ _B_var_Empty޸  9 %     &T"@MT@@@ @@@dirpx__SRP_0m__SRP_1-tForm_ImportNowN1h`rpnrt0* pHdJrnlmcro+4Library file for Spreadsheet Journal Import@V`ibray fle o Spe! dshetJounlIm)3tY=   ݢHF % <9stdole> s5d4EI N\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Automation!DMSForms>+FErts3DD452EE1-E08F-101A-8-02608C@4D0BB4 DD OWS\sEFM20.DLL#Misoft B . ObjecDt u/;"1?D@:H@H@00}#0B@# 5h0 jA85C5015B-1FFC-482A-B206-BFFF78243E9F6Temp \VBE\M.exd`5.E . `M @MSXML> `XMhL *D63E0CE2-A0A2-11D@0-9C02BC04FC99C8>E` `, versAb" "!mDEn@tryG m"En@rZy@  2 QH1Bgw4",!"%bVmc}Co olDG! mIHuCXCol!]2 LogFuncos%'L@gFnc&iBsON%'U/)? (mMessagZeNesg`2i/N?@_EH erG*"!m_Kr`JlBce`N2"<+LZ&"(LS1GBS61@62o#9 ThisWorkbookG@:Ti4WErko k 2zlf5mNowcm_jnN >w cm ? R AddDelLtin- Q qm_PAdD .lmPVi &a/2`)) KDq  Selpp0GS eBHa 0der2ᅡF  Ws1'OpM1*' OktoD3*'  (q:6 ;G| <8 =  2  X+Cus@izeCF Cbomiz@ CR   R { rU~~~~~~~~~~~~~~~~~~~~~~S ar_Delete Line_InsertAdd_Line CopyFields Line_DeleteDelete_LineBlockInsert_LineBlock LineNum_ExistValidateAmountsDoCheckImbeddedQuotes 44@   (,4 x OptionsFEditBoxesText ControlActivate YOpenLog AddLogEntryWorkbookIsOpen Build_LangArrayGetMsg English1Y^ihCS^- ΡmEpB"&!' bH{'*+daJDiSk2)bMEü"-?@Label15!-6S` !i{lFWJO ButtonCancel?F`HeaderDefaults_Box General_BoxMessageLog_Boxȏ[qJ eUserFormf3O3; F3Dynamic  ImportControl_BoxImportStatus_BoxLabel13BҋB `MultiBook_Enable Def_AutoGen DocSeq_BoxRҋB `Log_ErrorsOnlyLog_AllMessage Display_Mesg DocSeq_EnableLabel31Label41Label42ChangeStatus_YESChangeStatus_NOUnicodeҋB ` Def_BusUnitDef_Date Def_LedGrp Def_Source Def_UserID Def_DocType Import_URL Import_UserIDDuplicateOptionLabel21"ҋB `LangListButton_CustomizeCFButtonOK ErrorOptionLabel11Label12Label14ButtonOK_ClickButtonCancel_Click _HButton_CustomizeCF_Click pj).`ďYl|Yl|CҋB ` Def_BusUnitҋB ` Def_Date Def_LedGrp Def_Source Def_UserID Multibook Def_AutoGen Unicode DisplayMessage DocSeq Def_DocType"HName Import_URL Import_UserID DuplicateOption S ErrorOption LogMessage E ChangeStatus C#ҋB ` / N B U A#=h8+3qG?,2qL""VBE6.DLL  #   #k (  jrnllog.xls BImport in progress...please wait. >Save in progress...please wait. Ready (Message not found: ( , ). Import Log JrnlLog.xls Workbook SheetK*y         rU~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~ ~~~~~~~~~~~~~~~E o VE`|H   a qx 1 Y y 9a9Yy 1Ia  xaya ) Q  ! A i  1 a y`1Q9a yaa ɍ a!Ya a a a 1a a qAAa I qa qaAa )Qq)Qy 9aa Jrnlmcro mJournalEntrymImportControl mLogFunctions mMessagesForm_JrnlHeaderSheet1 ThisWorkbookForm_ImportNowForm_AddDelLinesForm_SelectHeader Form_OptionsForm_SelectSheetForm_CustomizeCFF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !0MSXMLF4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 1@0FC:\WINNT\System32\STDOLE2.TLBstdole AP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms !i`[Ņ*Hx$>C:\Temp\VBE\MSForms.exd ip >֢OɜC:\WINNT\System32\MSXML.DLL InitOptions Save_OptionSet_Homepage_LabelsGetSheet StringBetween JrnlSheet_NewJrnlSheet_SelectJrnlSheet_DeleteJrnlSheet_Copy FormatJournal ListArray Set_OptionsImport_Journals Import_SheetRow2XMLFF Generate_XMLsendXML CustomizeCFgenericErrorHandlerfĤIx8< URL_Encode ((, FF 1 F LanguageFGotoControlPage ImbeddedSpaceIsDateOK Check_DateChange_ImportStatus Header_Insert Header_Edit Modify_HeaderBuild_HdrArray Header_Select Header_Copy Choose_Header Heade Date / Time Status Log messageu}d@l $New Journal Header &Edit Journal Header Unit: Journal ID: Journal Date: Ledger Group: Ledger: Source: User ID: Journal Class: "Transaction Code: Document Type: Doc Sequence: Adjustment Type: Adjusting Entry: Period: AutoGen Lines (Currency Information "Foreign Currency: Effective Date: Rate Type: Exchange Rate: Reversal None 0Beginning of Next Period $End of Next Period Next Day " Specified Date Description: *Agency Location Code: OK Cancel All Copy Delete Copy Journal Select Journal Delete Journal (Change Import Status Import Do Not Import Number of LinesLabel20! |System ID (Unit, Journal ID, Date) Reference, Description .New Journal Identifiers Business Unit: Import Control Password: *Insert Multiple Lines *Delete Block of Lines Insert From Line: To Line:Button_Specify &Copy data from line Setting(s) Notes New Edit Import Now Write File Go Home Yes No General Journal Sheets Import Journals "New Journal Sheet $Edit Journal Sheet *Delete Journal Sheets $Copy Journal Sheet &Import Journals Now ,Write Journals to File Select Sheet: File name: .New Journal Sheet Name: $File already exist 8Overwrite the existing file? 6Define Options and Defaults Header DefaultsLabel19 General Options Message Options &Document Sequencing *Online Import Control .After successful import Date: Enable Multibook Language: ,Log Error Message only @Log Successful and Error MessageButton_EndNextButton_NextDayLabel18 .Display Messages Online 4Enable Document Sequencing ,Default Document Type: Addesss: JChange import status to Do Not Import 8Keep import status as Import $Journal Entry Help RNo journal entry sheets exist for import.Label1' To insert a journal line for the selected header, click the Insert button , or press CTRL-L. To delete a line, select a cell on the line you wish to delete and  Pclick the Delete button or press CTRL-D. @This is not a valid web address.( To insert a header press Insert or CTRL-H. To select a journal press Select ( or CTRL-J. To edit a header press Edit or CTRL-E. To copy a journal press xCopy or CTRL-Y. To delete a journal press Delete or CTRL-T. Imported Button_BeginNext% journals - System ID (Unit, Journal ID, Date) Reference, Description: Updated ,successfully imported. Data Entry Alert \The date you have entered is not a valid date. dThis is not a secured web address. Use it anyway? Button_None' One or more of the following required fields is blank: Unit, Journal ID, % Journal Date, Ledger Group, Source. Please make sure all these fields contain values. rPlease enter a date for the user specified reversal date.Label17 ReversalBox# No headers found. Click the Insert button to create a new header. DThere is no journal on this sheet. RThere is no journal header on this sheet. >There are no journals to delete L Click OK to delete this line anyway.Label7Label8Label9% One or more of the following required fields is blank: Business Unit, ( Journal ID, Journal Date. Please make sure all these fields contain values. TImbedded spaces not allowed on Journal ID. >NEXT is not a valid Journal ID. CurrencyBoxLabel16% One or more of the following required fields is blank: Ledger Group, # Source, User ID. Please make sure all these fields contain values. \Embedded quotes are not allowed on Journal ID. bEmbedded spaces are not allowed in Open Item Key. tMaximum number of characters for journal sheet name is 29.* You have not selected a journal header. Please Insert or Select a header first.) The line you wanted to delete does not belong to the displayed journal header.Label22Label10 Label13AP fThe row you wanted to delete is not a journal line. &Insert Journal Line &Delete Journal Line ZThere are no lines in this journal to delete. xThe From Line you specified does not exist for this journal.  #i x after vThe To Line you specified does not exist for this journal. >To Line is less than From Line. `You have etered an invalid From Line or To Line." The amount in the selected cell contains too many integers. The &maximum allowed is Label6" The amount in the selected cell contains too many decimals. The " The amount in the selected cell contains to many integers and/or  `decimals. The maximum length for this field is Journal Import  # XCopyDocType% Invalid data type. The contents of the selected cell should be numeric. $No journals exist.% A journal must be selected when the 'Change Specified Journal' option  is selected. NNo journal entry sheet exist to delete.Label3Label4Label5 xYou must enter a valid name for the journal entry worksheet. 4Sheet name already exists. VSheet name must be less than 30 characters." No journal entry sheets exist. Press New to insert a new sheet. 0No sheets exist to copy.Label2 lImport error: unable to import journal lines on sheet$ Import error: unable to import journal headers associated with sheet% Journal import was not successful. Either you are not logged onto the Lang not found. http:// https://$ database through PS/nVision or your import definitions are incorrect. &Save Journal Sheets TNo journal entry sheets exist to be saved. Total of  Journals and  4 Lines saved successfully. 0Message Set not found: (DocSeqRefNum  #S  Value 20 19  #   #-   #1   #E   #x 8UnprotectProtectF Template_H Template  #T XpbeUJX:5> GГ?#Ƈ4C G{7x}w3hHɹDن/G͵2ҋB ` KKamountTypeJrnlDateJrnlIDSystemIDCurEffdtBusUnitLedGrpSourceUserIDDescr254LedgerForrCurrRTtypeRateMult ReversalCodeRevDateAutoGenAdjEntry AcctgPeriodAdjType JrnlClassIUtranCD AgencyLocCD ' UserForm_ActivateAdjEntry_ClickButton_None_ClickButton_BeginNext_ClickButton_EndNext_ClickButton_NextDay_ClickButton_Specify_Click $3ҋB ` ,Actuals and Recognized Encumbrance Pre-Encumbrance "Collected Revenue Planned X D   ' <Actuals, Recognize and Collect General Date NEXT Short Date MultiBook Insert NextSystemID Offset HeaderLine Select  #b   #   # ƏYl| LastLineCol HeaderSeq BottomLine InsertLine PastePasteSpecial CellsInterior ColorFont HeaderKeysCheckBoxesF Number Currency THIS ONE6C06sڃyȢDG dL{- Cx+6?7(ϛ|NJeS:.IY4k Import_PwdԏG|~{ )  \ SELECTEDE@JD;JWLt_z'[ EM:'yLPP|JI:ZC!OH ButtonAll ButtonNoneListBox1Targetʶ%NAP2 A  OnlineFrame WriteIndexDoneButtonAll_ClickButtonNone_Click  IMPORT \ . txtListCountSelected _ .txt indexList   #   #   *<?xml version="1.0"?>   <Postreq> <PROCESS_OPTION> ( <DUPLICATE_OPTION> &</DUPLICATE_OPTION> <ERROR_OPTION> </ERROR_OPTION> $ <DEFAULT_USERID> "</DEFAULT_USERID> "</PROCESS_OPTION> </Postreq> (Excel_Journal_ImportColumnsFindRow Range  ' Success $Import OK - Sheet  Import failedSize ,Import Failed - Sheet  Column DescrCol <JRNL_HDR_IMP> <JRNL_LN_IMP> Sheet: </JRNL_LN_IMP> </JRNL_HDR_IMP>  #   # F  ( ,  )  @ error yyyymmdd & &amp; < &lt; > &gt; &apos; &quot; OPEN_ITEM_KEY </  #4   # 8  # X  # x  #   #  3)6{O>`3)6{O>`yICOyiICOyi POST content-type Bapplication/x-www-form-urlencoded accept text/xml/html accept-charset "utf-8, iso_8859-1 userid pwd3)6{O>` imported LengthItem )     ( updated3)6{O>`&>/'ozw  #    #    #e EntireColumn  #" 8ColumnWidth A1:E1WrapText &HorizontalAlignmentBold  # X strXML strResponseEncode_XMLcharDecode_XMLchar!hASN5>05Kǒ?jfthN(NAV:G+@aNh\KFrameImportStatusButtonImportYESButtonImportNOFrameCopyJournal$`HXp#o ) 8Rows ForAmtCol "UseStandardHeightEntireRow DeleteClearContentshT8ۇbBLm7\$dK6EF 71N8OG ,} F0`E풼Zdπ[8_AP\/5]5iN8 2 FromLineToLineHowManyFrame1CopyData SourceLineCopyData_ClickHowMany_Change l 0DestinationTypeAutoFill BaseAmtCol STATISTIC_AMOUNT StatAmtCol "NumberFormatLocal -  #.   #0 SetDefaultsCaptionUserNotesNewSheetEditSheetClearSheetCopySheetImportSelectedWriteSelected GroupBox1GroupBoxes GroupBox2 GroupBox3GoControlPageFindNextq@1}YIC.wrLߓ093 RMtG"$Nﲰ ShiftRight Fmt_General DecimalPlaceoym'vSpin1EJ D (  SelectRightFldName SelectLeft ShiftLeftFmt_TextNarrow Fmt_ApplyWide Fmt_Number Fmt_Currency InsertCOLFmt_Date FrameFormat Fmt_ThousandFldLabel Label_Decimal FrameColumn{lFWJO MultiPage1 DeleteCOL Button_Exit Spin1_ChangeRenumber_ChkBoxExchangeSelectLeft_ClickSelectRight_ClickShiftLeft_ClickShiftRight_ClickInsertCOL_ClickDeleteCOL_Click Narrow_Click Wide_ClickFmt_Apply_Click %2AFmt_General_ClickFmt_Text_ClickFmt_Date_ClickFmt_Number_ClickFmt_Currency_ClickButton_Exit_Click 4 TThe following error occurred in procedure  :  Error #:  ERROR ! %21 %40 # %23 $ %24 % %25 ^ %5E %26 * %28 %29 %2D %5F = %3D + %2B %5C | %7C [ %5B ] %5D { %7B } %7D ; %3B : %3A %2F ? %3F %2E %3E %3Coym'v ChkBoxNumberFormatCut RelocateChkBox Height WidthTopLeft NewChkBox RDo you really want to delete this column? *Invalid Decimal Place TInvalid decimal place. Valid range is 0-8 #0 _);[Red](  #_ 8  FOREIGN_CURRENCY FOREIGN_AMOUNT RT_TYPE RATE_MULT MONETARY_AMOUNT   # X /xmllink//F'5Tahomal(User ID:5TahomaD:( Password:i5TahomaD:H(,5TahomaD:H(*,5TahomaD:, ;8ButtonCancel, 2PImport_URLel (28Label3OK(2<Label4OK4, 4Import_UserID= ( 8Import_PwdrI   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_ImportNow Caption = "Import this Journal Sheet" ClientHeight = 1290 ClientLeft = 45 ClientTop = 330 ClientWidth = 5880 StartUpPosition = 1 'CenterOwner TypeInfoVer = 55 End (H  F@}7+R KQDBTahoma*$4LedGrpg H(E,5TahomaOKH(E,5TahomaOKH(O,5TahomaOKH( ,5TahomaOKH(E,5TahomaOKH(,5TahomaOKH(,5TahomaOKH( ,5TahomaOK ( Ledger Group:5TahomaOK(Ledger:K5Tahoma:K(Source:K5Tahoma:K(User ID:5TahomaD: (Journal Class:5TahomaD:$(Transaction Code:: 5TahomaD: (Docuemnt Type:5TahomaD: ( Doc Sequence::5TahomaD:H(,5TahomaD:H(O,5TahomaD: (Adjustment Type:M 5TahoCopyData , 14SourceLineel F  Microsoft Forms 2.0 FormEmbedded Object9q:;<=>?@VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_AddDelLines Caption = "Add / Delete Multiple Lines" ClientHeight = 1845 ClientLeft = 45 ClientTop = 330 ClientWidth = 4230 StartUpPForm_JrnlHeader 6pnr0rfgo5;h i349 n``pnrpnrnal ID:5TahomaeH(E,5Tahomae ( Journal Date:<5TahomaeH(E,5Tahomae$(Reference Number:V 5Tahomae0(Commitment Control Amount Type:'5TahomaeAH,5"Tahomae( System ID:te<5Tahomae(@H(oceCompObjpi73h n`` Dr Drf ,1s5TahomaH(,5Tahoma((Agency Location Code:iod |5Tahoma $8Ledgerg n$8Sourceg $4 UserIDg ( 4 JrnlClass:teg /$ 4 IUtranCDg $ 8DocTypeD,$ $ 8DocSeqeD,$o(2@Label4eDw(28Label5eD(28Label6eD(28Label7eD(2@Label8eD(2DLabel9eDI(2@Label10D](2@Label11D$4AdjTypeD,$( 4AcctgPeriode+D (2@Label12D$X AutoGenD[M $ XAdjEntry[^ , !28Label13APode& ( "#CurrencyBoxe( '#ReversalBoxe(-2<Label18y$.4 Descr254[$/4 ButtonOK0M ( 08!ButtonCancel0g $98BusUnitK (<28"Label1tK$:8JrnlIDtK 3(=2<#Label2tKh$;8JrnlDate (>2@$Label3te$?8RefNumte ^ (@2D%Label19e^ (A2P&Label20e( B8KKamountTypeA(C2<'Label21e(D2HSystemIDg ( E4(AgencyLocCDea$(F2H)Label22D  Microsoft Forms 2.0 FormEmbedded Object9q    VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_JrnlHeader Caption = "Edit Journal Header" ClientHeight = 6375 ClientLeft = 45 ClientTop = 330 ClientWidth = 8115 StartUpPosition = 1 'CenterOwner TypeInfoVer = 156 End 1`(H  @2} 2!R KQDBTahomax(74ButtonOK+VBFrame!5Form_SelectHeader$C0r)rf&oBH(to_aCompObjpi65Yjd n``PrPrffqoXZi12\ n``r?@ABCDEGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmopqrstuvwxyz{|}~28Label3neOKs<uTahomae:(Cancele:<uTahomae:<F {0sCopy data from line5TahomaH,=,uTahoma$4HowMany $#Frame1y( 74ButtonOK0, ;8ButtonCancel04$ \      "#$%'F)*+D-/0234689:;<>?@ABCEGHIJKMOPQRTeVaXZ[\^_`bcdfghikmnoprtvwxyz{|~( ! OnlineFramel, 1h WriteIndexel K$4ListBox1 { Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_SelectSheet Caption = "Select Journal SheetSheet" ClientHeight = 4650 ClientLeft = 45 Cliosition = 1 'CenterOwner TypeInfoVer = 33 End (H  [@+}\9$R KQDBTahoma|0 #ImportControl n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8@H(,http:///xmllink/5Tahomata(Address:+5Tahomas:H( ,5TahoooqCompObjpCompObjnsaVBFrame.mas:(User ID:+5TahomaD:HF1sSkip if Journal already exists5TahomaDF1sSkip if Journal has error5TahomaHH  ["}Online Import ControlsdR KQDBTahomaD( CXImport_URLel< (E28VBFrame;Form_CustomizeCF"hs$sfo~Label41 , G4Import_UserIDnal<(H28Label42 ",'#ImportStatus_Box 4,ZhDuplicateOptionx  ( [dErrorOptiont   n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q`F' 0sChange import status to Do Not ImportedImportStatus5TahomaTF 1sKeep import status as ImportImportStatus5TahomaDH 4}l4After successful importt4(ChangeStatus_YESNhan 4)tChangeStatus_NOSBhan  (OKs<uTahoma2(CustomizeCF Caption = "Chartfield configuration" ClientHeight = 3285 ClientLeft = 45 ClientTop = 330 ClientWidth = 4125 StartUpPosition = 1 'CenterOwner TypeInfoVer = 298 End mJournalEntrymJournalEntrymImportControlmImportControlmLogFunctionsmLogFunctionsmMessagesmMessagesThisWorkbookThisWorkbookSheet1Sheet1Form_ImportNowForm_ImportCancel2<uTahoma2( Configur n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(,5Tahoma2 (Business Unit:sS5Tahoma2H(E,5Tahoma2H(O,5Tahoma2H( ,5Tahoma2(User ID:5TahomaD:H(E,5TahomaD:(Date:aD:5TahomaD: ( Ledger Group:5TahomaD:(Source::5Tahoma::8F 0sEnable Multibook5Tahoma8F 1sAutoGen Linesook5Tahoma@H  >}AHeader DefaultsSR KQDBTahoma ( 8Def_BusUniteV (<2@Label11  ( 4Def_LedGrpteV ( 68Def_SourceteV E( 74 Def_UserIDteV (828Label15 ^ $8Def_DateV (;28Label12e (=2@Label13e 4(>28Label14e , X Mulbedded ObjectForms.Frame.19q_AutoGenn DF0sEnable Document Sequencing5TahomaH(,5Tahoma((Default Document Type:sd 5TahomaDH  B}ADocument SequencingR KQDBTahoma, BdDocSeq_Enablese ( 8DeftiBook_Enable p ( X Def_AutoGenn   n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qPF 1sLog Error Message onlysdLogMessageMe5TahomaXF 0sLog Successful and Error MessageLogMessagesf5Tahoma@FNowForm_JrnlHeaderForm_JrnlHeaderForm_SelectHeaderForm_SelectHeaderForm_AddDelLinesForm_AddDelLinesForm_OptionsForm_OptionsForm_SelectSheetForm_SelectSheetForm_CustomizeCFForm_CustomizeCFID="{DF6B899D-209E-11D4-B447-000039C48D0E}" Module=mJournalEntry Module=mImportControl Module=mLogFunctions Module=mMessages Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 PROJECTSummaryInformation(DocumentSummaryInformation8CompObjmForm_SelectSheet"}AvPBshsfCou{pi10y n``PBsPBs1sDisplay Error Messagessd5Tahoma@H  L}AMessage OptionseR KQDBTahoma,JpLog_ErrorsOnlyse ,KxLog_AllMessagese ( L`Display_Mesg +  n``Microsoft Forms 2.0 FrameEmPackage={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Form_ImportNow BaseClass=Form_JrnlHeader BaseClass=Form_SelectHeader BaseClass=Form_AddDelLines BaseClass=Form_Options BaseClass=Form_SelectSheet BaseClass=Form_CustomizeCF HelpFile="" Name="Jrnlmcro" HelpContextID="0" Description="Library file for Spreadsheet Journal Import" VersionCompatible32="393222000" CMG="9C9E57F56F9573957395739573" DPB="383AF304F404F404" GC="D4D61F3D27D828D82827" [Host Extender Info] &H00000001={3832D640-CF9_DocTypel(2HLabel31e  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q( Language:pti5Tahoma0F)0sUnicodee5Tahoma`p 5Tahoma@H  Y}A_ General Optii49pFz?ahshsf oi51i*WJOhshsonseR KQDBTahoma(S2<Label21e (Y1PUnicodee 4$W4LangList  eme.<uTahoma_BoxrS$/4ButtonOK1 ( 08ButtonCancel1"0A#HeaderDefaults_Boxr ,I#MessageLog_BoxnxS0-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] mJournalEntry=22, 29, 648, 506, Z mImportControl=0, 0, 626, 477, mLogFunctions=0, 0, 0, 0, C mMessages=0, 0, 0, 0, C ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Form_ImportNow=0, 0, 0, 0, C, 110, 145, 946, 643, C Form_JrnlHeader=0, 0, 0, 0, C, 22, 29, 858, 527, C Form_SelectHeader=0, 0, 0, 0, C, 44, 58, 880, 556, C Form_AddDelLines=0, 0, 0, 0, C, 66, 87, 902, 585, C Form_Options=0, 0, 0, 0, C, 132, 174, 968, 672, C Form_SelectSheet=0, fUoxz0CompObjpCompObjw|a0, 0, 0, C, 154, 203, 990, 701, C Form_CustomizeCF=0, 0, 0, 0, C, 88, 116, 924, 614, C .Oh+'0|8@ P \ htroot@?@b;R @4s՜.+,0HP X`hp x \ Sheet1 uTahomaOKH(,5TahomaOK(Label:OK 5TahomaOK,F0sDone5TahomaHF K0s n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q(User ID:<5TahomaD:( Password:por<5TahomaD:H(,5TahomaD:H(*,5TahomaD:0(http://jtam033100/xmllink/ps/[5TahomaD:@H   }M Online ImportseR KQDBTahoma(28Label3D: (2<Label4D: 4, 4Import_UserIDxnx( 8Import_PwdrI, 2PImport_URLrI Write one file per Journal Sheet5"Tahoma`2 5Tahoma(2HLabel1OK , ;8ButtonCancel", 14ButtonAllcelE, 14ButtonNoneel^ (14TargetOK (08Label2OK$ 1LDone *   !"#$%&'()n i52i*WJOhshsCompObjsx0fD    !"#$%&'()*+,-./1234579:;<=>?@ABCEFGHIJKLNPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry F .Workbook_VBA_PROJECT_CUR"/`Sp`7sVBA`p]rentTop = 330 ClientWidth = 4185 StartUpPosition = 1 'CenterOwner TypeInfoVer = 39 End (H  8@*}lR KQDBTahoma0s( 1#9MultiPage1 234 pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19qp1dColumnel oi46 n``hshsCompObj nf0`oi21 n``hshsCompObjnfD!Field FormatTab3Tab45Tahomax1$H 8Y}dp2$3#Page1aly5,$4!Page2aly5,  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qH( ,5Tahomast( o8CompObj6pf-oOField name:15Tahomast(ApplyastuTahomastH( ,5Tahomast(Label:st5Tahomast$H 68}T$(4FldNameeE (*2<Label3ee( 8Fmt_Applyl$)4FldLabelE(+28Label4el#( .#FrameFormat4  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q,R KQltBM6( CompObjMpCompObjaVBFrame;PROJECTwmW0uTahomax1 (Select Column:at5Tahomax1(ExituTahomast,R KQltBM6( uTahomast$H 8}T H 6SelectRightmo Select column on the right(2@Label1st( #FrameColumnm4( 4Button_ExitmH 86SelectLefttm Select column on the leftt  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q<F 0sTextCellFormat5Tahoma<F 0sDateCellFormat5Tahoma@F 0sNumberCellFormat5Tahoma@F 0sCurrencyCellFormat5Tahoma8F 0s1000 Separator5Tahoma (Decimal places: 5Tahoma@H(,2s7 @Tahoma@F 0sGeneralyCellFormatac5Tahoma8H  6}g FormatstR KQDBTahoma $\Fmt_Text$\Fmt_Date( `Fmt_Numberac( `Fmt_Currency, 1XFmt_Thousand^ 40 0@Label_Decimals:^ ( /@DecimalPlaceE( 0`Fmt_GeneraleP 61$Spin1ateAIncrement or decrement decimal place n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q,,R KQltBM6( uTahomax1(Width:x15Tahomax1,,R KQltBM6( uTahomax1,R KQltvBMv6( @uTahomax1,R KQltvBMv6( @uTahomax1,R KQlt>BM>6( uTahomax1,R KQlt BM 6( uTahomax18H  7)}DColumnx1R KQDBTahoma0 2 WideWider column(28Label2st 8 2NarrowstNarrower columnD ShiftLeftcolShift column to the leftH ShiftRightrIShift column to the right< ! DeleteCOLtrI#Delete columnxnx@ VInsertCOLlum Insert new columnhe    Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_ Worksheets F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q