ࡱ> bTVWH(,7 @TahomaSeH(,7 @TahomaSeH( ,5TahomaSe ( Ledger Group:5TahomaSe(Ledger:e5Tahoma:e(Source:e5Tahoma:e(User ID:5TahomaD:$,Journal Class:7 @TahomaD:(,Transaction Code:: 7 @TahomaD:$,Docuemnt Type:7 @TahomaD:$, Doc Sequence::7 @TahomaD:H(,7 @TahomaD:H(O,7 @TahomaD:$,Adjustment Type:M 7 @TahomaD:<G, 0F/AutoGen Linespe:7 @Tahoma<G, 0F/  Worksheet"&Tools&WindowChart"&Tools&Window(Visual Basic Module"&Tools&Window\p$Office of Finance and Administration 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    dMbP?_*+%"??U>@7 Sheet1 &A Page &PM\\PLE_PRINT_01\P06w08 L_ odXLetter  PRIV` N N N'"dX??> d &A Page &PM\\PCC-PRINT-08\355PN&w odXXQ&B\O&RtO&b O&rXJAPD dTimes New RomanH "dXX??> d &A Page &P"PXX??> P &A Page &PM\\PLE_PRINT_01\P06ChangeSt_ odXLetter CheckAmounts:PRIV` N N N'"dX??> d mJournalEntry /__SRP_6N__SRP_7mImportControl   !"#$&'()*+,-./0123456789:;<=>@ABDEFHIJKLMNOPQRSTUVXYZ[\]^_`abcdefhijklmnopqrstuvwxyz{|}~7bf0*\R1*#1c8*\R1*#2ab*\R1*#e4*\R1*#e4*\R1*#45*\R1*#10*\R1*#41*\R1*#1c4*\R0*#14*\R0*#1$*\Rffff*1947bc7621$*\Rffff*1547bc761e*\R1*#dc*\R1*#f1*\R1*#f2*\R1*#d7*\R1*#e8*\R1*#2acy N`FpF668p  " ' %  \( H  "  ">   ( @ XB  px B   <Ph F F FPB   #%   (0 <l8 x   ,,U  30H.Php   * * * B  PX`hpx  66 ( ')o4xMEl( X<> <<<<<< <$<(<,<0<4<8<<<@0 @H @(` dk  14 Fh``J (+P`v   3id `Rx`Tv+V`t 8 >id `Rx`X8v`Zt+\`J ''Qi^ I`  Ib `dx`fh#v`hp`jl+rx`xJ 33xit `^t`jp`` l`hh`bf ` PP@$ `@ `*@ `H ` % `vJ This macro inserts headersh 14 `RJ xx` `v 8 `J &i  xo% t0ntai%+P `kx iP f in)ary 0   14`Rxnd m`TP v H Wp( f in%0 \P ` ))^This macro creates an array of available headers and inserts them into a list on a dialog box.j 14 0 !_H'0 `s ar d ` 7y 14@ nt f@* the@f (@h `>B@@$ @j ----@l for`----  R @ T  P%@n `pp+ ` JP  33) 'X'Z p  14  ` UUt 14@ ----`-- @ e() round Mi( @$ @--`l----  ----%`@` ` ` p`X kDDE x8\%@h  `f$ H`Dk00I$ &DeI* git i(20 x(%`v$ ` I ` H%`---- % `@ ''d 14 `%`@ ` ` \\@ @ @ `@ @ %``` ` ` vvT````` % %`+` P ""i`$` %` ` ,, 14`n```` ` aa 14` ``R`` ` ````B B( B$x@(@. @2 @8h$ @<, @(HPHxhP  (p p h@x8P   %'X@ `(H@.,D@@` @pP @XL @H @8 @4 @$ @ @ X@ @@ @0 @x &*$@ @ @8 @ @ @| @ l @h\ @L @PH @D @4 @$ H(i ` % B,D.0H@x @t @d 0HH@0p @` @P @@ @H0 @ @8 @` @x @ @ @ @ @ @P @  @h| 0@x @h @X @H @D x  H! !P h `z x P !B"@ l @ h @!X @T @!D @0!4 @x!$ @`! @! #@" &@! )@" @! /"! @ 0#! @(" @@" p@X" @p" @" @#p @"` @"P @"@ X@0 @# @ ! h 8C8tA$*\Rffff*3647bc# . ( *+@ 6p  ,  0V  ,U  H X 8hh    8n       B(  p x B          ( ,0 *` , "       (  H X `    2   0 P ` p       0 8P&   $:X h x (   2(@h     0P X x "  "     8 X" x  "  2?N8 X h  x W  W $ $ $@"  hpx WWW    8 0 <P /h"L >  8 > > >0 >Pp 0x  < 2  8 X &x .  M M *v M0 MH M` Mx M M *v M M M  *v8 (}h (} M M M M M M0 MH`  *h/    0k   0 @ P` 2h/     ;> 8@ H X h x  ((K&K(K&K0&KX&K&K*K(K(K(&KP(KxK*K,KK K@ (K` (K &K (K K!K !K@!K`!K!K!(K! K!K"("  (0" X" (h" /" " " ." (" * # .~0# `#  Xp# ,# <#8$ @$ .X$$ ,V$ $ "a$ "a$ \% T8% "aX% "a% "a% T% "a% 1&50& H&\P& p& "ax& b& "a& 1&5' '\ ' @'  *H'6X' p'6x' '  *'6' '6' ' .' "a( "a@( "ah( "a( "a( .()  )W )P@) !) )6))  )W*W *W@*7`*x* 8* 6* 8*B (+0+8+@+?H+&M`+  + (+++ ^+ P,X,`,h,p,x, , , ," ,,,  ,--0- P- h-2----. .  . 0.  @P. . P. . / / /0/8/ @/`/// */ */ *0" 80 @0`0000  0000 1 1201h1p1111  1 1 82 &82 &`2 2 (2 2 .2 3  3 @3 ,P3 33333,4 F8404 4 24 04  5 P@5 5 5 5 5 5 5 5 5  :6P6 `6 p6 666 6 666 (7 07P7(X7  F7 H7 8 "084X8:88  8 9 9  09$P9 x9 , 9 9 9999:(:@:X: N`::::;0;P;p;;;;; ; ;;  ;; ;<0<P< >X< >< ><B  = = 4(=K`=K=  != K= K= K=> ?> V0>P>  !X> Kh> (K> &K> (K>? ?? ?  (? 58? !H? KX? Kx? ?? ???  "? ? "? *@5@0@8@@@H@ ,P@ ,@ ,@" @@@AAA A(A  0A@A HA `A2xAAAAA B  B (B HB HXB &B B B <B 8C HC XCxC C C C C C  C C C :C0D @D PD`DhD D DD"D"DDD &DEE E E(0E (XE <E FE 4F @F*PFFF F F FFF FF F G 0G"PGXG`G  "pGG WG G(ZG.G BG28HpHxH PH JH  (I  @I)PI hI $pI II DI BI 0 J  @J :HJ"J J "J J J J(J K K ((K PK`K hK!xK6K BKJK L(L  0L)@L %XLhL pL xLLL WLL "L "L "M" 8M@MHM  PM*`M !pM  M&IMM-MM M AM@N@0NAPN  pN N N*N&IN.N=O< O #@O PO`OhOxOO (O4O #O HO>@PXP :`P 8P :P"  Q Q(Q0Q 8QPQ `Q pQ  2Q Q Q Q QQQR (R $0R (XR" RRRR  RR  NRS S 0S@S ,XS S SS TS 8 T XThT TT TT HT2T(U  0U@U`U *hU (U *U" UUV0V8V@VHV PVXV xV (VV BV2W@W NHWW :W W X 6X2PX X X X X XXXY Y0Y8Y HYXY  `Y pY (YYY  Y Y YZZZ Z(Z@Z$`Z ZZZZZZZ ZZZ [  B[ :X[ *[@[ \ \ \ 0\8\@\H\h\\ \\ *\ (\ *]" H]P]X]`]h]p]x]]] ]] ] (]] B^2H^^ D^ B^_:8_ x_ _ __ ____ ` $`8` @`H` P` X` h` ` ` ` ``  ` ` ` <` 8a Xa 0xaaaaaa a  bb(b@bHbPb Xb  `bPb b .b4c>PcJcc(c4dHd  FPd .dd dd8e8He e4e e  eHe  8fXfhf ff Jf"fg (g 0g@g Hghgg B  ggggg gg :g8h Hh @Xh hh Fh h i ii0i8i@iHi Xi  xiiii " iiiiii  i i.ij (jHj Xjhj  j j j  (j,k8k@k $Pk,xkkk $k k l ,l HlPlXl `l(plll " lllllllllll <m H@m mmmmm n n0n @n Pn `n xn n,n n n,n o  o "0oXo$poo o o o oo p p0pHp`p xpp $p pp p q  q 8q Pq `qpqxqq q q q q r r r(r0r8r 4@rxr rrrr s s s(s 0s8s @s Xs ps s sss ssss sxpGThis module contains the macros for the journal entry (template) sheet.]$H]$ H/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]$HP]H]x]p]]]]]]]@]]h]] B!', D!'. ._H'0UThe following variables are the default amount fields sizes shipped with the product.BIf you expand the amount field lengths, change the variables here.o(( H(JControl B%LB@NY'&o------------------ Check for spaces------------------h]] d'R d 'T R T T'Pd('Pki]X]p]5 check for single quote or double quote in Journal ID d''X d"'Z X Z'VdX'VkHi@@----------------------------------------------------------------? Extends IsDate() checking - Workaround Microsoft issue Q241728@----------------------------------------------------------------]@]X]p] ^$l ^ `'d d ^ `'f f OK for Month and Day only'\d b ^ d $ ^ f $$n'h hOK for 4-digit year'\ he&Determines century from a 2-digit year h$p 2019$n h'h b h ^ d$'jd ^ f$ h'jk j$l'\dx'\khk`dX'\kHi@$------------------------------------# Validate dates from it's text form$------------------------------------]]]0]H]` t!v'^ z H%x'` | H%x'b!xlDateOrder (0=MDY, 1=DMY, 2=YMD) ^$~'r ^$l ^ ` e ^ ` b$\'r ^$ ^ ^e/Construct date for numeric-only 6/8 digit entry ^ &Determines century from a 2-digit year b ^$ ^$$n'h h$p 2019$n h'h bYYMMDD h ` ^$ ` ^$'jdXMMDDYY or DDMMYY ^$ ` ^$ ` h'jkd bYYYYMMDD ^$ ` ^$ ` ^$'jdMMDDYYYY or DDMMYYYY ^$ ` ^$ ` ^$'jkk j t(v j$l'rd'rki&======================================# Change Import Status of journals&======================================x]]]0]h]Dim ChangeRange As RangeDim FirstJLine As Integer H(JA@@ 0 ,$%LB@ . ,$%LB@ 0 $MSG= No Journal [$   $$'d   $9  $5(5(5(5(qx $' !. !C' Importd(U' Do Not Importk  !  % 0 ,$%LB@N2Get Header sequence number and change import value  " D%!v'$   " D%(vchange the line import status . ,$%LB@N$ BottomLine$!$$ $7.  !'_p !'* 7.  !  $ *$$B@H  (v+set the blank row value to "U" if necessary U $!vU $(vkxkpqhk`X A@rY'&k0 . ,$%LB@ 0 ,$%LB@ . ,$%LB@N D%%B@Ho ======================== New Journal Header======================== H(JA@@ A@rSet Options = FRM2Ao ========================= Edit Journal Header=========================]H] H(JA@@ 0 $MSG= No Header [$   $$'d  $ (  $ !( $' A@r  0 ,$%LB@N  Ak@ k8 . ,$%LB@No ============================== Enter or Edit Journal Header==============================]] . ,$%LB@ 0 ,$%LB@ 0 ,$%LB@N   2*** NEW Header - Assign defaults from Option Sheet MSG= New Journal Header  $9Def_Date$ Z General Date$5(vdH Def_Date$5(vk 5!v5(v Def_BusUnit$5(v Def_LedGrp$5(v Def_Source$5(v Def_UserID$5(vd )*** 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 % Short Date$9 %9 %9 %9 %9 %9 %9 % Short Date$9 %9 %9 %9 % Short Date$9 %Y$n9 %Y$n9 %9 %9 %9 %9 %9 %9 %9k$*** Gray / Ungray Ledger and AutoGen MultiBook$Y5( 5(5( Def_AutoGen$Y$n5(vd5( 5(5(5(vk,*** Gray / Ungray Document Sequencing fieldsDocSeq$Y5( 5(5( 5(5!v$~ Def_DocType$5(vkd5( 5(5( 5(kp!*** 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 (4DocType  $5"(4DocSeq  $5$(4AdjType  $5(  &$5&(6 FiscalYear  $5((6 AcctgPeriod  $5(  $5*(  $5,(4ForrCurr  $5.(4CurEffdt  $50(4RTtype  $52(4RateMult  $54(  $56(  !$58(  "$5:(  #$5<(  $$5>(  %$5@(4Descr254  $5(  $5B(q!Application.ScreenUpdating = True B@D"Application.ScreenUpdating = False !!vY'&  (*** NEW Header - Get the next header row "$ $$B@H H B@F " $ $$. 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. %%J!v  ,d *** EDIT Header  " $  $$.kpC %%J(v 5$~$L ,5$~$L ,5$~X ,5$~ ,5$~$L ,5$~$L ,5$~$L ,5$~ ,5$~$L ,5$~ ,d5$~X ,k5$~$L ,5$p ,5$~$L ,5$~ ,d5$~X ,k5Y ,dN ,kh5Y ,d8N ,k55$p$n ,5$~$L ,5$~$L ,5$~$L ,5$~$L ,5$~$L ,55$p$n ,q'( . ,$%LB@N HeaderLine$% HeaderLine$%$B@H . (N % %$!v (vk A@r 0 ,$%LB@ . ,$%LB@ . ,$%LB@N $B@Ho1-------------------------------------------------0 Build and array of the headers on a given sheet1-------------------------------------------------8]]] P B%L.V " V%Z%! 'R R "Populate the array for the listbox R H T R T V%  T V%  T V% T +'d'ki======================= Select Journal Header=======================P ] ]8 H(JA@@ 0 ,$%LB@ . ,$%LB@ 0 $MSG= No Header [$   $$'d@  $ (  $ !( $' A@r  0 ,$%LB@N  " $  " $$B@^ .$LB@N HeaderLine$% HeaderLine$%$B@H (N B@` H(bY'&kk 0 ,$%LB@ . ,$%LB@ . ,$%LB@NoX$====================================# Copy Journal Header and it's lines$====================================P ]     ] ( @ X ]p ]  ]  H(JA@@ . ,$%LB@ 0 ,$%LB@ 0 $MSG= No Journal [$   $$'d !r(  $ (  $ !( $'  0 ,$%LB@N 2Get the sequence number of the header to be copied  " D%!v'$ " D%!v 'j Get the next header row "$ $$B@H H B@F " $ $$. !tB@H  D%B@^ B@` %Set the new values on the header line  j %(v5 %(v5 %(v5X %(vC %%J(v@Cells(NewHeader.Row, LastHdrCOL).Value = .BusUnit 'BusUnit IU !  $(vE DocSeqNumqH +Insert the header line on the current sheet % %$B@^ . ,$%LB@N HeaderLine$% HeaderLine$%$B@H (N B@` H(b Copy the lines''*'> BottomLine$!'n$ BottomLine$!$$ $7. lines exist for the header !'_X !$!v'l l $ !'* 7. > '>"Range("BottomLine").Rows(1).SelectSelection.Insert (xlDown)k  l $ ! ?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 D%!v'p n$ n >  p$$B@H H n$ n >  p$$B@F n >  $B@H !'h > h$%JB@H !'fcopy the old journal lines $ *$ D%B@H B@^ f$ h$$B@H B@`Set the new identifiers  j %Z(vC %Z(v5 %Z(v5 %Z(v5X %Z(vqGblank out the header keys in the first row if it is a blank spacer row. %U %(v %(v %(v %(v %(v %B@Hdp %B@HkPkHq@Y'&k( A@rk . ,$%LB@N . ,$%LB@ 0 ,$%LB@o8--------------------------------------------------------7 Displays Form_SelectHeader to select journal header(s)8--------------------------------------------------------  .MSG= Select Journals (Unit, Journal ID, Date):  $5(  $5B(5!  $5(  $5(  $5x(d5z5!z  9z5r!|5!z  5r(|k5r!  $5r(  $5(<BusUnit  $5(<JrnlID  $5(<JrnlDated5z5r!z  9zk5B@~ 5(5!  $5(  $5( 5(dP 5(k8q0 H(J B@D H(J !!  !! 'd?'k?i?&======================================% Delete Journal Header and it's lines&====================================== ]  ] ]H ` ]x ] ] ] H(JA@@ 0 $MSG= No Journal [$   $$'dH>  $ (  $ !( $' A@r  0 ,$%LB@N DB@ BGet the header sequence number and delete it from the header sheet  " D%!v'$  D%B@ DB@ 6Clear the header line on the lines sheet if applicable .$LB@N DB@ HeaderSeq$!v $ HeaderLine$B@H B@kP< Delete the lines''*'''$ BottomLine$!$$ $7.  !'_; !$!v'l l $ *  *''k8;  ' ActiveSheet.Rows(EndRow).Deletek:k: !'* 7.  l $ ! !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  $   $ D%B@kx9kp9qh9 DB@Y'&k@9k89 . ,$%LB@No9========================= Insert journal line========================= ] ]@X H(JA@@ . ,$%LB@N DB@ HeaderLine$%B@H !v;MSG= No journal selected. Insert or Select a header first. \$  \$$'d7 &N Jwe already know the largest line number, so we don't need to determine it. * $ * LastLineCol$!v$$B@H $ * (A * * (d6 (kx6dp6 =determine the seq num of the header. Then scroll to the last_ <line and insert there. Set the keys if not already present. HeaderSeq$!v'$'$ BottomLine$!$$ $7. No lines - Add the 1st line'*'(' BottomLine$B@H $ * (Ad4"lines already exist for the header !'_4 !'* 7.  !  *$!v'( * $ * LastLineCol$!v$$B@H $ * (Ak3 * * (  (k3q3N'&kp3kh3 . ,$%LB@o@3---------------------------- Insert and format one line----------------------------p]]0 ( '( H B@F . ( InsertLine$%JB@^d@2 %JB@^k 2 B@` $ %(vC %(v %(v ( %(v (Insert a blank line B@H H B@F InsertLine$%JB@^  B@` $ %(vU %(v H(b !'*d0 !A * '*kp0 HeaderKeys$B@^ $$ %B@` H(b$ LastLineCol$!v $ %( %B@Ho/3---------------------------------------------------2 Clear cell contents if Copy checkbox is unchecked3---------------------------------------------------H]]]  D! !v  !!v'  $. !Number !Currency B@d(. (vk.k..o-!================================= Delete current journal line!=================================]H]h] H(JA@@GSee if the cursor is on a line for the displayed header; prompt if not. !. !' DB@ $!v'   BottomLine$!   HeaderSeq$!v  D%B@d8, NMSG= Selected line do not belong to the displayed header. OK to delete anyway. \$   \$$'   D%B@kx+kp+Y'&dX+AMsg: "The row you have selected to delete is not a journal line." \$  \$$'k* DB@ . ,$%LB@No*$====================================! Deletes multiple journal lines$====================================] 8]Ph]]]]A@@ . ,$%LB@N DB@ HeaderLine$%B@H !v;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$!v'$$ BottomLine$!$$ $7. /MSG= No line in this journal for you to delete. \$  \$$'Y'&d`'lines exist for the header !'  $!v $!v5(vd&5(vk&5!v5(v5(q& B@D H(J !!v$ !!v$ !!v$p' !!v$p' . .'''_% !'* *$!v'     * . ,$%L%B@HSelection.Delete  '  *''k0%d(% .k% 7.  ;Since performance was affected in DeleteBlock functionality4the delete was taken out from loop - commented above#Delete was done using range of rows $    $ . ,$%L%B@H B@k# A@rk#q#k# . ,$%LB@ . ,$%LB@N D%%B@HY'&o@#$====================================! Inserts multiple journal lines$====================================]@]X]p]]]]]A@@ . ,$%LB@N DB@ HeaderLine$%B@H !v;MSG= No journal selected. Insert or Select a header first. \$  \$$'dx!=determine the seq num of the header. Then scroll to the last_<line and insert there. Set the keys if not already present. HeaderSeq$!v'$$ BottomLine$!$$ $7.  !'_P !'* 7.  !  *$!v'(dno lines exist for the header'(kq 5(v ( 5(v ( 5(v (5(k@q8 B@D H(J ! 6Add an edit here to make sure the selected line exists . ,$%LB@N ( *no lines exist for the header in this case'*'(' BottomLine$B@H $ * (Ak 5!v5!v$5!v$p'd'kq !!v$p ( ' H * $ *  LastLineCol$!v$$B@F !!v'copy the contents of the specified line  $ *$$%!' $  LastLineCol$!v$$B@^ * $ *  LastLineCol$!v$$B@`d *$ *$$B@^ * $ *  $$B@`k@After delete block till line number 1, the following lines would' need to be executed to set the values. *$!vY'0 *$(vC * $ *  $$(v0 * $ *  $$(v HeaderKeys$B@^ * $ *  $$B@`k  H(b *$ *  $$ l *$B@Reset the value back Y *$(vN'kh * $ *  LastLineCol$!v$$( * !!v$p ( '* !!v$p'(k A@rk . ,$%LB@ . ,$%LB@Nop]p]]] . ,$%LB@N HeaderSeq$!v'$$ 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 !''_ !$!v 'xk 7.  !  'kxqpih] ]8]P]h]A@@ H(J BottomLine . ,$%L%B@H ! 'n InsertLine D%!'  'N'< Z$'8 ForAmtCol D%!v' BaseAmtCol D%!v' StatAmtCol D%!v'"first do the foreign amount column  $ n $ D%B@HA@ <Nnow do the base amount column  $ n $ D%B@HA@ <N now do the stat amount column Integers = StatInt Decimals = StatDec  $ n $ D%B@HA@kk <N . ,$%L%B@Hk`oX]]]](]@]X]p]]]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 !v$!' .' _'    '   !v' !v$ 'R   ' -'  .'    ''add 1 for negative signk(   '(add 1 for decimal pointk R  msg = too many int/decimals ]$'6 6 . .'6 6@ 8$':Y'< B@Hd(  R   msg = "Too many decimals" B@H ]$'6 6 .'6 6@ 8$':Y'<dpif negative, add 1 to integers      "too many integers" ]$'6 6 .'6 6@ 8$':Y'< B@Hkd    "too many integers" ]$'6 6 .'6 6@ 8$':Y'< B@Hk k k d .no decimals, subtract decimals from max length R    "too many integers" ]$'6 6 .'6 6@ 8$':Y'< B@Hk k k d "not numeric" ]$'6 6@ 8$': B@HY'<kP <Yy8 k0 ( o  Attribute VB_Name = "mJournalEntry" Option Base 18Explicit 'This module contains the macros (forj e (template) CompObjpi393 n``t;Y`w;Yfo24sheet. PubU Const LastHdrCOL As I@nteger27 ,s* ,13'numbC X Su b Get*(), E.Pr@ocDataInvoke_Func \n14@|!C)= ActiveWorkb+.A +'&,= 1& "_H ellowing variable s arede fault[ fields siz`shippe@d withpr c!'If you exp!|{ lengths, chan@8here P `.G/揢0ototprolP@1AA pa.ScreenUpd`= F e-."s(" ").߂CchY )  '- Checkbspace^s`C"IddedS(Texhv)Q oleanWTotLen?TBB !#= _`B Wb s`SInStr(1, , " ", 1 :Or F0 The a@ /ElsD01Tru,If#@# .%Quo8tes_%T%`_lesb(Do p'@W&;b q Fdin d IDHS8=uK'H""{80 Au_be&3o iw;_1/14ExtenGIs Ue()@ - a;arZd Miqoft issue Q2417287Y'2 OK(Dt9, DsepPorjI:P1%P2.YR! >tmpgAif r)7" <+ 0?#'OKMMЧhDay onlyw#24%W#@p If(Dr2,JftT, -0I,d62  ) KqNYR)P4 1% 4-digit year Q= A 2q 'Determs cu from a< 2"CFVal( < 30Y20?"19") & YR ` w7_ &E&=PMi_oLe82 %^u(<hg=1qND!Mi@e A a it'QEmoKI_"RByRef@ EdBoxCVnt_I2?EуE,M)]s;PfA)= .0~AP/xlq Separaxtord -9tleOBYC'" @(0=MDYP=DM`2=YMD 4TrimFD""4gpFA$3$y]InStr(Dtext, Dsep) > 0 T@hen Check_Dat@e = Is OK torder)fElseIfRNumericT) And (Len= 6 HOr 8) |'Construct dfor nW-only 6/8 digit entry l 'Determines cury from a 2-*0year*YRaIf(Dz2,bftl, 2), Righ !Val(YR) < 30, "20"19") & YR;h8 ,'YYMMDD tmp_&1Mid-3-A/ Ax'AYY @hDDMMYYG!LeKW$CE|If%$LL +4fI+5OO PP=X%4̤)+(,dBox.@Vu!d9=(D K4Fac FuncHtio !'F=  '^Change Import Status of journ  ! Public Sub _  (Dim Seq`, i As Intege`!BeginRpow, List1, HeaArray( s Variant NewG ingR R$ab'AFirstJ>L!#0Ap pa/.ScreenUp (5GetSheeaWorkbooks(CurWHrkB`).srHdr).Unprot|ec C`~Not Build~_ C)),.MSG= No JD iMsgM`(  (L@., 974`vbOKO`, 121)r`With Form_Sel!?G.CapA1 ButtonOK1d Frame-.Visiblq>0True?0Al.lo%p.Nonet1>1Choose_=c(c" Set 4N.>1"oS YE Sv g8= "Cz" 'hjUdDo&t Wd w E= 1 To Cou_QBq .%ed(i - 1.%;ok;nt;AYv@ '*L sequenceaber a cYiYval_-&TreR?. Cells + P5CtrlCOxL + ii{)fmV' the lT sf??JN 13 ]( Ga"Bo@mq^").g2UH93a.Find(LB`%VR}+hQaoRqDos= i* N (R VLoop Whi O  <> i, 3bC )9;)OgE'sR*blank row 7 to " Iif necessau /1 '4W5""+Tm 3U"_  qA4[a#U`nload{ReaY c@@@Prk).$s(CurWrkBook).Worksheet rentS4).ActivateX 4eh.Rows(4).Cells(8).Select End Sub$ '= 'RNew Journal He0ader2Pu0blic_-_Insert() Attribute .VB_Description = "This macroD is h=s"#ProcData)Invok@e_Func)h0\n14i AppRa6.ScreenUpdngFals GeUnload Form_0Jrnl('SPet O_s!RM2Call Modify_,(0=aEd|itga aaDim_Array() As VarianAiAIntegzA72sMIf Not Build_H|dr@, &) ThenCBXMSG=i[MsgBox(k@(Lang, 91, 5), vbOKOnly, 12, 14)bAE|Axl.CaŦ#OButtoxnOKD!3ChooseEC"&?QIg'/i > 0L* b@?ݍe4-aa\i + 2(a^Ifi#urA ߙ %iE`[r or j Pr"b+{@Numg!j`8ARSDisplay`+!Unprot»1)): сaith/aS'=RT'*@** NEW$ -%sign defaults from " a'C%t=1Xa@("Def_`e")y""pl !.`Value@Aat(a, "Gener@" I/ 8fA@XEffdt . .BusUniJ .LedGrp:.S0ce/.UID/!)C_&EDIT&G rwkey fields%=DswOdj1&yR'Enhancem: AllowR to m20 Key&Enabled&7'b_%pSA)>.x ;r existing Еap fR= R(cAdrCtrlCOL@e1P}LastH}  m.O (35=/ 4 "Short .,r254{?15=36d7#6{859r1ѱ% .I11!.RTtLypARO 17.zRMe? 2 ReversalCod?s24}0w"=)1o g Autocp IIf"( 16biY", True, #ͽAdj@ryK7se}FiscalYea&r 2^AcctgPerioqJ/ 1& TA &lClasq 2'IUt`ranCD/ 2a.Docu2%Seq%} End If H'*** Gray / Ung Led ger aAu toGen\If Options("MultiBook") = "Y" Th V..Enabled'FalseP $BackColor&vbButtonFac -#STru$Value'IIf(a\Def_"],R ", O)OEVi?{hWindow groundklDocument Sequencing fields$y @ y@Type[d D 7Trim(.%BSQ @J"H McP[E 9 M1I_ DKLabel all objects on the formg.01.Ca (GetMsg(Lang, 11a)& 'BusUnTit22JrnlID3b3Dat#44 Grpm55@66Sour 77User5O&88-Clas99IUtranC.61020'Y&1zM21`e ZM2DM'AdjL Entry:3#%13FYY3-'Fisca lYearN3AP4*'Acct@gPerio(h.'e9925y CurrcyBoxoG=264X@2D)'ForrA4EffdND14T)'RTt0m43%)RDReversal:P31^`_None?732O_BeginNext(_Z34_A "Res|etyCyRowNum0oB rNEW  ,- }2n' hr re C~ REe(Cells(3, HdrCtrlCOL), VLastP).Sel #30.InPlt (xlDownAct New =C + 1ra ,z [HgrePAstseq n (2column iirp benPhls<>'q %it뱗wq.K cѯ.Off0!(@0)# _ EDIT!S&%i c& I!o `0, -1 Cv"'1< L4saЁ= UCasle(c)#(.f`;,}x= CD)) NewHeader.Cells(1, 5) = Trim(.Descr(2546hUCase(tLedPGrp)r79ger 98 9Souhrce 99SU serIDS106ForrCurTIfEffdt"" Then 11Null Else( CDatE tEnd If  Q$2A$wRTtypZ13Val(.R#Mult [4evers`alCodN\Rev<[B[[E"[ _2.Au toGenBue"Y"NpDdjEntry̍1ςqS IIf(.AcctgPeriod!"", AB, gbW 1eAXdjTf2JrnlClass? 2b)IUt ranCD 2|Doc2|# `Seq 2}b0FiscalYearO0gi !0With'R'LastLineNu m 0Work@books(WHrkB`).sheetrentS) CtivRange(M" ")1), 5)).@Select Set Displ0ayHda io (.StandardHeightTruĈX=D 0  oy).c )cU@nload pm_*ok ntProt6OOntMԐ8WSub '- ' Build @ array of the hbQs on a giv_b ? Public FuXnct#C_@A1( As String, S)VarianЋ@2lea@(Atbute,P.VB_cwaInvoke_0)" \n14!peDim Q9RoBw!Inte qkThisR! `2= Ave"<x0.ColumnsqCtrlCOL).Fi0nd("= - 1,SPze> 2z'PopulB#rCforli`stboxSa Re- 2؃ 5 k3 ToW9k #tIk, V& "" & $Set6x NexK-f&H[FaƭFq,&7=5R J@nal,F2=_#( w.s'-Bipr5= "! macro cre`s==availabl>?in`ts1!m into@?!?dialog ".03Bc77j7!=s7iz7!Q%App0Daq.S enUpdngGesrS8u;uV9.Unp/_yrk bC9Not]O~b *O)M 0 0Then,Workbooks(CurWrkB ).sheetrentHdrS).Acti0vate G Range(Cells(i + @CtrlCOL1), 5)).Copy)IH A"Line"-K1, D E ion.UseStandardHeighbtTru PasteSpecial)ApplicatACut!?ModeFals Rese"Y"GEnd |IfCO+zProtdAA1Sub C'B= ' O Journal ~ i it's l@s@ #D _A(@Attr ibute .VB_=cDataInvoke_Funcp"y\n14jDim BeginRow, 7TopBotCount As Integer ASeqNum, New@, tNicB()Variant_b`C d, LU!ColAa#B VScre enUpdWngkVGetBHHUnpP/ Not Buixld_`%), ;)L'MSG= NoL #᷀MsgBox(  (L, 94vbOKOnPly, 11)E*~n.FrameQ\.VipsiblOC|apa`4/ButtonOK.X5%!? g_ad'` the sequence num@ber ofh" to be copiedaor)eV..ValtqKGs( L.EntirepS. 033O zgA 1;'Sx!$new vs on#g;With; 32 GGB`__ 2)V.BusUni`;9 0*.J`rnlIDo 4Cqe(aeqP30+=  ttomp rFs-@2]t).,Bo:Qt R`.Find>(s.oPIshi_' exist forhS R _Do!` 2#B_Uv  Set R = .FindNext(R) RowCount+ 1h'Range("BottomLi ne").|s(1).Select@$ion.Insert (x lDownEnd IfWLoop While $NoIshing AtSeFqpNumRW <> Begin], 'Since performawas aff|ed in Copy funrality the v*!take out from lk- comment,above . done ustarAk of rows - 02/03C SLastAyCol@QA4veSheet.@1 umn Ce0lls(A, 2),  + d- 1, )?"@(0 ,(SASC©A ).Offset(1`;&$Top? 3'c\AZold journal l@sF @o @|| 0l* WorkbooDks1Wrk@Bkt).s84).Auvata ae8.Unprot'A'/@ the hB sequence numberBvdyit fP?gJ aCb?Cells(i` @KCtrlCOLa).Vali_D).a+i~O bI  , if aO1B ) 2 B("%`~"D}zLUkK s #CoIntX5_q'R"U deR= R= {c R ;)(2HtBo mt, 2IeqSet R .Find(@pAVR IsR|th?hpR.keDoh=  1 ?6sP & p"0 14 u C@Windowoll3=D - a8Lnd lIfO'^kseqi ofoK. scr5Q#;st_ ' a`ireVSFakeys @if notFEprJnm>0`M9l9Bg+0+WithC(cE`G Bottom? 2, 2`%.R@ .F8EGlB!e Is`xthi{!e'|a&s?PB.1e%DL= Uo!%E%"I_h+Oh3\!Is&Eexi`#faIgCS$R.9Do= JBNext(R0B!Loop WhileC@(DA@f <> >, 8).0fAa#=)"Unu"OVne"@/ZL5OXueqXX"Q&61 _ IKvokPՋ`1'-] 8mat on}{@r”R?v6zv4NewD+a( (#SE*0%Ѓ# (xlDown$<==$o@'136"G3q PfOff(-0CopyP. P0eSpecialSS>"Apv2Cp"C"OB6GDi7'_S?<'a blankA1=j )_1 :@=xlFor1so3 !%q)n;7)U$Cut1$ModŘЁ"I5&ZaFields(0d46ZKP/ۤ)365oq+dyOeG8Id u*)n Lock@: VPw" V/SXClear "c cont! checx is un ""@) And Currency/n=2ontEls+0 bENIfNext AASub C'"= 'De@lete c7t journal0 lin)!Pu blic  L _(dAtt0ribu@.VB_ProcDataInvok@e_Func"d\n14"D$?̩CSepq, iZCOApp+ation.ScreenU$pdngFaqgGetC C'See if t hBLsis on aL fdisplayed header; promptnot.C8= ABWindxow.A? ßta. ##uUn@tec Ca'"@ s( , <2)cwf108 < c< ("x ")aL DH"4 ^/j I).LCj'MSG=d S[ct0Y do / bel2o=to8m5. (OK `dcanpyway$6A ai(Msg (D (L, 92), vbExcl&a@L +OKCancel, 5)̗ & 1p?# iRes= "YoEj': " 4 row you have se+%a,aʈ. ! '3)'OKOnl~y$#@)"`^WorkbookGWr@ok)..sfJBf)#nat'a +s multipleJ!g`_ \_gBlockaOPk N, FpE40, To`PPrdev3, 1bR1b8CVBeginCoukr~`First Booy~ ca /PwXyNFaFO1, 1).AP7a""L8cE No]V0. Insexrt 0`Pa_ ^f18Do0C1o0g'EB+O'dP|rmxBMseq num ojc.  2lQs existN8 Y@&NJ8[cWithtasQ c1S,PqR.Fp(_RR Isthi?\d `in@JUzLL16tV?l'y%<= Rgq?"_Adderic~({#:)?!aAk= P_\O coPsGdsHROE$uO1Qs= Truܚ11 w= # DeleteRowFrom `= 0 8Do\8End~vNext.Z@LineNujC ells(=, 8).Valuea9If (& <= H) And (VTo!) ThenL\Workbooks(CurWrkB). sheet rentS)kW).Sct/'ion.Counter+ 1First/ y{ hD|` = Falsj  IfE^Set Prev*G.Find()SLoop UntilE S'Since performawas affected in eBlock functalityTthe dB taken out fAl-- commC@@abovTl'Cdone using range of rows?hur)h! r(9s(C@P)D,  + `-x 1)[n/mRUnload F3_Add ,With "j"Prot`@jADvat:ec4).c`#$ Res k= "Y" ASuHb #'== ' |Inserts multiple journal l@'S_ @  C _ .`(qDim Begin@C As`teger ^ ATiS|rc !΍@Q Nlew!! RURNoue!8StrA(AGecƟ:̗:UnpE9bj"Headera">1,f /e P "|c'M@SG= Nos!ned.  or  a h fqh.3 1i`RMsgBox( (L , 92a , vbOKO nly, 4)X+b'drm% Oseq nJc. scroll tolast_ ')4 abi,1re bkeys if not alr y pr@3ntSeqsR"~(PB wc902@OB`ottom), 2u1 Rpk(% N` R Is thP)5= RB DO73wp bvR uW@O LAg ?! q'noK exisPt0.w%{lb!gA5.HowMany l.AtA ^.TK4%$r .CopyData.Ena 0 'PB edit)NreEm suhe %R"$$ }ok[`W  ?/.rQ\0Bs casC? , u F8PϞCap]$P, ,Fm'A(OO#.5tTrandPWpHeric(.SАceW9_5 X= @SL End If 0With ing = Val(Form_AddDelLines.To.6ue) - Last"Num rRange(Cells(zRow + 1, 2), u, 2"VCol").umn)).Insert (xlDownF)qIf bCopyDatacuTrue ThLenc'c the contents ofspecified lSrc |=m|Begibn , 8 ).Find()./ 5 E_UD_ppPeSMalElse%"ϑ, 7@?3@ţ,1'After delete block tillŽ numb@follows would neto be executsetTval~uv/bIpNa":"aNg"Y"O W 0XL3W3`=C ~7 !> rDlHeaderKeyrs"py$C46[Q o SApplication.CuBthModeR Is Nothth'nowss forRsh2\,re@e n4v{S &.П3 55o'c}e1ncheo see if`lP(`;A P?? Do  pCOR)1Aɐ.t  ;5Next(RxQLoop WPhile zAà. <>  '2'Y g5=> p?Tird@Amp04 A`ttrib.(VB_PGcB_Invoke_`%" \n14eD0@1 >FirPErru~Tit 0(= Msg(L , 90, f1+TorTe("cp@Col").Pu mn St atAmt = ActiveSheet.Range("| ~'first do the foreign amount colCells(F?Row, FDor), B@otLine ).Select}DoCheck If ?Errɀ"N" The!'nowbaseQSBT T-VXZsՕZIntegersDecimal >i>?End I>f  C[HWorkbooks(CurWrkB4).AsrentB4, 8'Sub  C ,() Attribute.VB_ProcDataInvoke_FuncA \n14" Dim As VarianS@ng TenACrMaxLPos inuO@qmat @1sG+4'p€~ato fi =d#P placesfromŇas "#0.000_);@[Red]()" sp fying +v  a -after semi o =ċ8, ion).Number% $= In '(1`ol, "."X, 1C!VMa/1@?2_(G)= ( - ) - 1` EachHInI.ValuehIs`eric!)a O= `M( AaP +  BP(& `%-( a` &߉*%1#&+ 1'a dd @ nega! ske!e`<> 0_BtD h&^oi! q 2> C 'msg@#too many ` /$l MessageGet Msg(L~, 93, 3la-&0T &A0 & `1{ QRet`urnCDP Box(, 60Y`Title(}Y?T9p ElsH0UyG29< > T"Te% f e= 2/goBD oN/)'if:, #- ($ws @<)@oF_'"Y7 /d>-90[4:.?Q{# ut>``<}?s??? ?o?????{ 5 W, subtracs Rmax length2AxBx-`qBs$$?$?$W#Pxv/"z  ReturnCD = MsgBox(Message, 64, Title)  (AmtEr"rx"Y"JCel.Select#End IfC Else 9'"not numperic nXGetx(Lang, 93, 4 ssdIf  ThenlExit For !NexSub pxD h0 H  0   0   0   0   0   0        u 0 h  0   0   0   0 x  0   0   0  rU 8$` $`(`0(`00!` 0//(I`/$q`$` $`( `!&0 ` 9Y0o$9 `yA$a `Y( `Yo$`q$`0` //&()`!/$Q`$y`$`(`&$ ` $1` nD6$lL0rU ,$ `, `0, `/0$ `$! ` 8I `!I*\R4*#16*\R4*#19*\R4*#4*\R0*#19*\R4*#11*\R4*#1*\R4*#18*\R4*#18*\R4*#6*\R4*#6*\R0*#10*\R0*#13*\R1*#6c*\R1*#5e*\R1*#f2*\R0*#1$*\Rffff*2e47bc7ad1*\R0*#e$*\Rffff*3647bc7bf0*\R0*#14*\R0*#11*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\R0*#f*\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*#26$*\Rffff*1^47bc7705*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2DE821-36A2rU~| '1 ~9 y!  q'# !ɉ AI"" !A)Yٕ)d'tx$ Hx >t x%x$ @xWd`x5d*d$ txd0 (  0 h  0   0   0   0 x  0   0   0   ?T FX%hl$ Hl h dlT=#p)lhTM:4%(X%lp #l>$A%(Upxl6 kxkxl vkxc~kvDX%(4%lp #l:&kvD%(%hp #h:&pkvD`%(@%Tp #T kvR)lhT6p  vdpzpz l(p4 lhTp 0 P  0 P  0    0  h" `$ ` ` W4F8%HL FP%`$ ` DL H d4)`LH4`$ @` `Z(%(%`'8%:P %$ `a$ LL )`L6$.` $ `W$ :P]3`5$C(($\MP@ 1HC((\M@ 1D'L'l>DF>HF^pf2HD6$lL0 DP%(%`$ X` D|%L'%:%$ La$"i4%H$ XH4$ 4)`LH46$  M8@MP@   ) iP%`$ D`,`$P%`$ D`,`0`'8%:P%$ `a$U`5$ (Ph(P%(%`$ X`L'%:%$ La$"i|%(4%H$ XH4$ Q4 )`LH6$"DP% $ x5$ lxcx   (Ph(`'8%:P%$ ``  M8@MP@  xa$"iPh5$xa$" 5$!lxoP% $ x5$6lxc8xa$"iP]h<'6$8B DP%(%`$ X`$A U`6$ DP%(%`$ X` D|%L'%:%$ La$"i4%H$ XH4$ 4)`LH46$  M8@MP@    z) iP%`$ D`,`%h"iP%`$ D`,`c TW4F8%HL FP%`$ ` DL H d4)`LH4\0 hxLHD`LH4$lLh *`%p $ pp!p $ lp= xp I(@%p'P%:`%$ p  ')p5 -(`%x  pp'p5  xA %(`%(@%xa ppC p6 @: %(`%(@%xa ppC p6 @( %(`%(@%xa ppC p6 AD %(`%(@%xa ppC p6 _ x*`%p $ ppI(@%p'P%:`%$ p  ')p5 .`%p $ pp= %(`%(@%p $ p C p5 <: %(`%(@%p $ p C p5 # p$ p pxa "i`b5 xa "i !6 P(` b(p'P%:`"%$ p'p%(`%(@%p$ Xp %( %(%$ X%x xx )px6 # p$ p pfX%(`%(@%p$ Xp%(%'%: %$ a "i%x$ Xx%xh DD, )pxD6 h>(`%(@%xa pp p6 8h(x,-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*#41*\G{AC2DE821-36A2-11CF-8053-00/ k9 (xME0 8)))L0T> <<<< <$<(<,LLLLPLPL  LLLL" LLLL "LLLL<<<<<<<<<<< (+0` @6P@ @ @ $ @ꀞ @%x` "H`pJ +`,kit idP (H`J "It (i* ,` + @`0 k//? 14+D` niF0 iHPiJpiDh`LY`N8`P R`\J 14@4l ble @8\ `TX'X`VH 'Z \(`J,,`^x---- `t---------- `rking j` 33` ----@l --`nX `$l'd ` r  ` CC@l  @n n`t@4 yea`v`ines2-digit  `x 20` z `k` BIl \ 14`nj``X H`V----`|T----+b `h,J( `)` `BB H  14`~x`v`t`r  `0 J } 14 xh P `v`p  `HLk ssI   i@ll `\ `L ` J `D`B` @ `p <  ` :@( `X $`"  `Lk kkqi  'i i  I @ i`Px`` t`p`@ l` j `h`: d``+(`#k` ++)# %i ` t %`p` l`j`d `Pkh99i i%i x %`vts h`t`r lH%`P0h d `h`+H`%k^^@I I 8i tp% p%@"x` @$P &L %`H`*D@4 `T2 L`  P` )S%iV,8@.@8(@x@"@ PH H `H8x((( ```x B(t@t @p @` @\ @L @0< @, @ 8 P h 0H`Xx@HD@ @ @ @ @ `)`%@ @8 @  8@P @( @ @h @ @ rbd,8`%p)@| @x @t @@d @T @R XL@P LQ@N T@L TX6FHB,D.0@x @0t @d @` @`P @x@ @0 @  x 8xhBHz@\ @X @H @D @4 @ $ @0 @P @ @ @ @ @ @ `D86@ 'H@ * @H @` @x @ @| @l @\ @L @ll @ll ,D  @0P @x@ @H< @`8 @4 @$ @ @ Ph"x ! x"" `" B"D @ \ @ X @(!H @"D @!B ! @@ "! @@!0 (@X! @p! @! @! @0" @! @! @" "@" @ @H" @"p `  @n @h p@d `"`%#"(@P !/ $$8$ $P$# %#`x##ph$ H4l~ @` @$P @x$@ @@F@ @' @' 'p'&0)@' ''& @p( (('&@( @( X(',@(t @)p @l @(\ (p(2 @0)L ((2pH)(8@)< @), @ @ @X) p)0)A@) )X)A@ ))A8)F@) @  @\ )*L **+*@ll  ,/tA*\R1*#1c8*\R0*#1a$*\Rffff*1547bc761eAA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42$*\Rffff*1947bc7621$*\Rffff*1S47bc76a2*\R1*#d7*\R1*#dc*\R1*#f1*\R1*#e8*\R1*#2ac @ @H PX`hpx "  "( ' B  (X H "  P X,]p(R " 8Xx**(*X( @" ' %((8 $P .x   6 8  48 p & "  L $@ 2h   .  0 P    8`6   (     B           (  8 X ` h >p "    < 7 3 B  "8  H :X   2 * /    ? 0 .8 .h . "        ( >0 MH h 5x "]    ,K    N6`6x1  U    @" `hp  (      0 @ P "`     8 X hp x 8   " (0HXh  p       0 @ Ph  p          @P X `p< 2 (8 H (Px"   N`x  "  R0 0 7@`"5p5 N & (0 *X  * * $ $  H ` p B    4  n f` N@PX "_` B       " (08@ H (P  6x . "  ( 8Xh  >MMMMM M@M`M MMMM M M@ M` M M M M M!M !M@!M`!M!M!M! >!>"> ">@">`"*k",k"(k".k#&k8#>`#>#>#/# ## ## /# $ $ ($0$  58$ H$*X$ *^p$&$ $ $  $ 6$ E$% =%=(%=H%=h%=%*Z%,Z%(Z&*Z0&.Z`&&Z&=&=&=&,Z' ,@' (rP'x'$a' '''  ' $' 0' 0(( X( x( (( V( :) H@) 0) T) $* V8*" *********** * )+ -+  +(+ 8+ H+ >P+ Mh+ M+ =+ >+ &M+ (M,8,  @, "P, /`, &ip,, , ,7, , ,  , ->-M0- P- `- p-?- V-M-=- >-&M.(M@.h.>p.M. . . . .M.B/?P/h/ p/ 5/ /  / / "/   ///"10 (0480P0 X0 `0  h002u00  0 0  0 1  1(1 (01 6X1 6p1 1111  '1T1 #11222 0 2 .P2 02" 222222222  2?3  " 3T03 P3  `3  p3 *3   3334$ 404P4h4  V42.4.85 H5 `5h5 p5 %5 5 5 5 5 &5?6 (6&N86,`6%6 6  $6?6 6&@7&>(7,P7%7 7 7 7 7  7 ,7 8 *(8 X8 &h8 8 L8 68 69 9 "/090X9 p9x9  9 /9%9 9 "/9*g: 0:8: $%@: "/h:0g: :: : : 6: 4; 6P;B ;;;;;; 6;;;";; < < (<"0< &H<"h<< << ";<5< <(G<"="8= X=`= h= Bx=  = <{=> >  >(> 40> 2h> 4>" >>>>>???>?  X??h??? >?>?.=@!@@ A`@?@:@1@ @ AAAI A F@A 4?A  A 4?A  B$ (B$8B @BHB!PB"`B BBBB0=B?B B BCC ,C *HC ,xCB CCC >CDD D(D 8D @D HD XD hD xD D @D&D2E @E XE /hE/E/E/E  E E  F  F 0F8FXF`F hF F FF F"7F F&PF G0G8G"@G XG hGxG G"6G G GGG,]G H & H HH XH `H xHHH"4H H HH *H I I(I ,0I `I8pIIII$I I"III I J J(J " 0J 8JHJ "  PJXJJ J:This module contains the macros for the main control sheet80]]8]]`](]P]]x]]]  H(J.xlLanguage$'( B!',!ŽA@FoHReturns the option setting tOptions B%$%&!d'iSets the options tOptions B%$%&!d * * tOptions B%$%&(dk0o(H B%. )$50( )$52( )$54( )$56( )$58( )$5:( )$5<( )$5>( ) $ GroupBox17@(d ) $ GroupBox27@(d )$ GroupBox37@(dqp ) $ B%.!B(o@9This macro sets information about the workbook and sheet. B!', D!'.V% ._H'0Language$'CompObjpi34)5/ n```S;Y`S;Yfo.0Get the user's preferred Lang==(Set Settings = UserForms("Form_Options")He/On Error Resume Next ' turn off error checking2Set wbMyAddin = Workbooks(AddIns("Jrnlmcro").Name)LastError = Err.NumberB@.On Error GoTo 0 ' restore error checkingIf LastError = 0 Then Jrnlmcro.xla is already loaded.  Run ("GoToControlPage")$Else(E 'Jrnlmcro.xla is not loaded yet. Load it from ActiveWorkbook.Path SavedPath = CurDir() & "\" ", WorkbookPath = ActiveWorkbook.Path & "\" Head ChDir (WorkbookPath)He ChDrive (WorkbookPath)( Run ("JRNLMCRO.XLA!GotoControlPage") ChDrive (SavedPath) ChDir (SavedPath)End If%1The logfile name is stored in the message catalog  $'== ==== jrnllog.xls'Jourk TSkipsheets = 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. "'oP]]]'D F H D'L$ L  L H 'P P F J D'N^ N P B@` F P N P $'Dlueskki8This macro will add a new journal entry sheet and header(] 8P(]hA@@ ,$B@ )$'8 )$'T T 8$X$~'4 H(J LastH 4 = . Template_H$.ZTemplate ,$%LB@^E Do 4 D(H 4$.Z Template_H ,$%LB@^ 4_H D( 4$LB@NdA@Fk ,$B@o(========================================ne' Select a Journal Sheet and activate it`(========================================]]]Get the number of sheetsA@@'^ `$b! d )$97  $5(li5B@~for th `5(!5z5f!z 5h!z  9z!v' dB@Dl $5!5!5%'^kq dA@re("BotdGMsg: "No journal entry sheets exist. Press New to insert a new sheet." Z$'8Si ^$'6fe 6@ 8$'likP ^AwaA@Fd0 ^ ,$%LB@Nsert wko======================= Delete Journal Sheets=======================(]h]]]A@@"Application.ScreenUpdating = False ,$B@ `$b d )$9 )$5(5(5(5B@~ `5(5z5f!z 5h!z  9zqp dB@D d!.  !  %  %'l l_H'n H(p l ,$%LB@ n ,$%LB@ H(pk dA@rdp 2Msg: "No journal entry sheets exist for deletion." Z$'8 ^$'6 60 8$'k A@Fo ]@Xp]]]Get the number of sheetsA@@'4 `$b d )$9 )$5(5(5f( )$5(5B@~ `5(5z5h!z  9zq dB@D d!! d!! d!%'l l_H'n d!f'4N't x ,$!L 4 x!name already existsY'tk tN 4_H'v ,$B@ Template_H ,$%.Z l ,$%LB@^ 4 D( 4 ,$%.Z n ,$%LB@^ v D( 4$LB@N ,$B@d !Msg: "Sheet name already exists." Z$'8 ^$'6 60 8$'Control ,$%LB@Nk k dA@rdGMsg: "No journal entry sheets exist. Press New to insert a new sheet." Z$'8 ^$'6 6@ 8$'kP ,$B@o8 ]]]] l ,$%LB@N BottomLine$!'n n 'n InsertLine D%!'   '  LastLineCol D%!v'DescrCol D%!v'|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 IfNextox]p]]]Get the number of sheets B!L!'~ ~  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.   ''_  ,$%L! +` <skip the next sheet because it's the associated header sheet  '  '  ~'bd'bki]8 ]p ] A@@"Application.ScreenUpdating = False/Set LstBox = Dlgsheet.ListBoxes("LangPrefList")'With Dlgsheet.ListBoxes("LangPrefList") .List = Array("English") .MultiSelect = 1End WithBuild_LangArray (haha) English+  *$9 *$5( *$5( *$5( *$5( *$5( *$5(  $5(  $5B( * $5"( * $5$( * $5( *$5,( *$5.( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( Def_BusUnit$5(vDef_Date$5(v Def_LedGrp$5(v Def_Source$5(v Def_UserID$5(v Multibook$Y$n9 Def_AutoGen$Y$n9Unicode$Y$n9DisplayMessage$Y$n9DocSeq$Y$n9 Def_DocType$9 Import_URL$9 Import_UserID$9 LogMessage$E9d9k ChangeStatus$C9d9k 5( 5( 5!  5%Language$  5,k@8C@D5$/5!v/5(vk Def_BusUnit5!vA(Def_Date5!vA( Def_LedGrp5!vA( Def_Source5!vA( Def_UserID5!vA( Multibook5YN$nA( Def_AutoGen5YN$nA(Unicode5YN$nA( LogMessage5EB$nA(DisplayMessage5YN$nA(DocSeq5YN$nA( Def_DocType5A( Import_URL5A( Import_UserID5A( ChangeStatus5CN$nA(5!Language$5!5%A@,Language5!5%A(kPkHq@ A@rIf LstBox.ListIndex <> 0 Then* With Dlgsheet.EditBoxes("OprLangPref")) .Text = LstBox.List(LstBox.Value) .Enabled = False End WithEnd IfoXO===============================================================================4 Entry Function for Online and Batch Journal ImportB HowMany : Indicates how many journals sheets to be processed) (ALL, SELECTED, THIS ONE)M Mode : Indicates Onine import (XML link) or Batch import (flat file) (IMPORT, FILE)O=============================================================================== ]@ X ]p ] ] ] ] ] ] ]8 P ]h A@@ H!' H!' THIS ONEKT D.l  )$9  $5(  $5B( Import_URL$5( Import_UserID$5(v  $5(9UserID  $5(9Passwordq B@D H(J ! l!   ! !Ak` A@r lB@N $B@HSELECTEDKT `$b d IMPORT )$9 )$5(5(5(5h(5z5f!z 9z5h!|5f!z 5h(|  $5h( Import_URL$5( Import_UserID$5(v  $5(AUserID  $5(APasswordd )$9 )$5(5(5(5(5f( )$5( H!\ , ,.$xml9f5z5h!z  9zk5B@~ `5(qh dB@D d!. H(J IMPORT'  !  % $' d!f kk  !  %  %   d! d!Ak(  dA@r IMPORT  Vkd "Msg: "No journal sheet for import" _$'8 _$'6 6@ 8$'kXnP  H( $ H(  H( THIS ONEAFk o )=========================================' Online import the given journal sheet)========================================= ]` ]x ] ] ] ] ] ] _H'P  B%LB@N H( $ H( A@z CheckHdrsImport the Journal sheet#NvsError = ImportSheet(ActiveSheet) IMPORT  A  d  '   '  A   'Ohttp:///xmllink/ps/Excel_Journal_Import?userid=&pwd= Import_URL$Excel_Journal_Import' ?userid= &pwd= '   $': :KT  Import was successful ChangeStatus$NKT do nothing DB@CKT Change Header status to IMPORTED P B%LB@N DB@ D%Z%! '$ $ D%B@HU (v DB@Change Line status to IMPORTED  B%LB@N DB@ InsertLine D%! ' BottomLine D%! ' $ $ D%B@HU (v DB@nXeKT Unknow generic errorfKT %Error loading the source XML documentgKT #Error loading response XML documenthKT Application Error message foundSh EImport error: unable to import journal headers associated with sheet _$'8 _$'6 6 ' '6DisplayMessage$E 6 8$'kn : LogMessage$B  Success Ak(DisplayMessage$Y   _$ $'kd   Import failed ADisplayMessage$Y    _$ $'k8k0k(o /===============================================- Create XML elements from given rage of data/=============================================== ] ] ] ] ]  H%x''   !v$ !@ !v'd !v$4' .   .   kpkhd` !v$l !@ !vyyyymmdd$ 'd !v$ ~&&$ ' <<$ ' >>$ 'kk   $ < !v$!v$ L>'  '  'k 'i-=============================================+ Generate XML string for the current sheet-=============================================(]]]]]0]P]h] /use smaller chunk of XML string for performance _H'P P B%LB@N P $     $C  " $  $ D%.  $  '    $'  $!v'  B%LB@N$ BottomLine$!$$  7.  !''_> !$C !$ ! LastLineCol$!v$$.   $   '    $'   $  ' '  ''k=k= 7.  !   ''k`=qX=  $  ' P B%LB@Nk= k<o<&======================================$ Post and Send journal over the web&======================================]X]x7Dim xError, xImported, xUpdated As MSXML.IXMLDOMElement]]]]0,;'. (.  %0.POST  B@ content-type!application/x-www-form-urlencoded B@2accept text/xml/html B@2accept-charsetutf-8, iso_8859-1 B@2 ! B@4 !6' ""$ ' <<$ ' >>$ ' &&$ '  %0error %8."' "!:'imported %8.$''T  $!:  , 'kX9 T 'T   $%<!d'9 P T$>$ 'updated %8.&''T  &!:  , 'k8 T 'T   &%<!d'@8   @'k8  P T$>$ 'd7Application Error message foundh''  "!:   @'k`7   "%<!d'07k(7d 7 #Error loading response XML documentg'k6d6%Error loading the source XML documentf' !B!D  'kh6z`6,X6 F!H F!H' F!J Import_URL$'d6 Unknown errore'k5i5H NB@Do5*The following error occurred in procedure V:   R!J  Error #:  R!HXERROR8A@o55Attribute 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?=M19If:riva "!et_Homep?_LabelsaeQWith01 L.$Defaults.Ca:= GetMsg(S, 41, jUserNotze:2 Y 3 !C>4)CE 5Jopy 6)CSelected 7WriDte, 8GProupc"e1ߠf"]q4J.2/3e1VaOcXa-s(2).GI(9 "a ]EaB s in m about2wD ab. ~ f[Ae'.@ProcDataaInvoke_ t" \n14go@ s=xg& "_HTA9TT-c' u`:'s preferredls'`? 0 [s=FormwYaUsiCO n Err Resu NQc ' a off `checkaw@bMyAdd@= ms(InJrnlmP&AnA0'Last=q.Numb!}'GoTo 010' restxore$ _i0 [\'.xla already load`?TRun ("Өxe'E&'~not4 yet. L it from[PatvhApd1#Dir() & "\T"Et8R-Ch (! {ge"JRNLMCRO.XLA! ir (Aq/3YAe`gf0 nQ  dB1m4c@>iU9, U#"#{"jp-0$.s c'8= n-p4 non-joLd3M . sampshippedx, _`4 becaA 1f + +(esteA2QUh02e8= 4p 6ts dҠdoesn'tPunte Tit La9,t a 6af y@ou add1iP"s to q,thatub& 2ʼn i  ??f1 only q`k!P  QD dBetw(S-ceSâ, Be|@ AfterCompa^ۚs!Pomk " `Y">==;(<ing, Bef@oreStrCompare) $ If xPos > 0 ThenHtBetPweenD=h+ Len( ?`AfterD=In (V, S0ourc6, U X> R   = Mid(; ", 3-3vEnd IfFunctio 'This macro will add a new jnal entry sheet a+header Sub JrnlS _NHew(?Atbute .VB_ProcDataInvoke_A#?" \n14" Dim B, Title, Mesg A&sD; WKAVa`riantCG etBCWorkbooks(Cu rWrkB).Unprotec #Msg(La41, L21V"= 9E/@Trim(InputBox(A4) Applicac.Sc"r@Updng@False%C<> ""L9Ans("Template").Copy aČ:=J_H"(%Ave.Name&!%  e ?P& " & .BE)!GotoCo [olPag-e YCG`Ci '="@ SelO`mJlb,"laa. iS  PubJ s ask 8,jList()Jki!Integ ~#'` the number ofÄs' {B$H"`}`ZAA`rray()-[ith For|m_c a.xCaphSw2JButtonOK12, %~!y1.CleafHeight.$- .TargetOnli0neFrm15G -#.Show7K..Index >=Ned7K(0 -jW G UnloadR<'P : "Nojets ex,. PressAe to inserPl{mB.( _`9v0 p\sC &94, 6i _02t#>^_Kp kKok).QQ) R_$a HMoMF=QLDPL~9L?OKC]{I(1G@?2 elHdrQSBK Kb'xxa"1 M0//"/1Jȉ3x'M5OAQAll.Visibl~8TruqqNo|neEpgAR ?;C2uO= wPRR - R-G'SSSq~1 Nqaz0'= 1 To r8CouA!1.med(i p0`g$2=;R /DisyAlRsA_Ǩq0Fe).>O //U _? ?, Nexd/hr /h/h˴$h P dQRPחffsf, f7= ~0L~7|B4.[(O  V= F& "_H Hs} ?B UError@."NA EachIn Workbooks(CurB).AIV@Comp(( .N , 1)'1+'n already e~xMx% FY'LEIf exE* N">`3% 3'Unprot .(EB).Copy after := Ts("Template@HMAActiveb3`3 B$_) tsFEe 3S .b P3Els̫E''`: "' V.RTit* 90!c/Messlag4%i77@($8,> bSG("Control")(MlUnloadrb{KNo journal ey4|@. Pr0A to insert a new)@xw/z9 Yw,| 60ok).&SubZ5atJS0(ByV? At bute.VB_cDataInvok@e_Func`!"` \n14(B8otLvzqCel1ږLastCor6Skip}11ctsL9 = Rpe("1tom @(RoG4}g- 1F irstJ = NI2# Z+eu?@ P Pum$eo``Descr;3 '# ls( , N9@S4, D )U©} }$h.Tp el <> G'q1)uIUCase(FY1wot IsNumerichwmTrim_Q1 5 "| Empty. N"!;a62,()X5f "= {*'Array%TrukElsp Fa End If Function Public Sub Set_Op s() Attribute .VB_Pro cDataIn`voke_)J" \n14" Dim LangW() As V@ariant iIntegerQCtmpSng&GetB@P'App*aA(.ScreenUpdngH; 3 LstBoxhDlgBz.AHes("A(Pref "@<'Wit|h f ;"EnglishMultiSelecȻ'c;'Build_FN@ (hahaD&ReKU1F (1CAC5Formx&Ca|0[Msg(, 4X2,  HDHefa2s_P. 2D'Gene(ral 3iMessageLog4DocSe q]5IImportContro~6/Statu"7 ButtohnOK5(1/Cancel.hoi-d7nc9<n8?=@p=Ta;NO/| A!Gէ?t.2fmSiP i1 To .ZÄ;(i -p7`WubV# edWA1NexPőpShowRight(.+q <> "/pK4&g= Call Save(\, .QIz_hH_P_o<]$ D^`G^7f_UserID.Value)  Call Save_Option("Multibook",@ IIf(.@B _Enable, "Y6"N")Def_AutoGen%EUnicodeA%=LogMessag _ErrorsOnly%#E-"BeisPplay%D _ gHDocSeqg0Typj.Import_URL@~.G" B ChangeSta8tus@’_YtES@MCĒIf .LList.Index >= 0 Th5 ()Set_Homep_Labels w Oφ,OEnd If0WithCCUnload Form('@DLstBoxO!''!! Dlgshe@et.Ediae(OprAPref".Text = ( (dɋd@False' ASub %'N=?' Entry Func! for ` ine a1Batch Jourpnal e@ HowMany : Sicates how mjcs *s to be prorc@edA)d(ALL, SELECTED, THIS ONE /9$ M@a Onaiz (XML link) Eflat feH 1RFRJc4Now.Ca҇! Msg(G, 41, 25 A5.Button OK_S12, 1OACancel2# ashfeRf r og3 3t0)',4 1PassworI !XqWs.SO:&creenUpd@*ng_Wk\|""z*R'(EC.NamE, ;@NrP(VB:H!IzIx A1bCells(10.8).p7c7ah7~Array(1Hό 7?#w2X= "a _%S%:7 t;Al7>77Visip$TruԄxNone.s Fr@# .Heigha- .Targpa- 10.Top .?t TpQ@Q29"ONL}J 4N1DOcй`OO!a]OOqߓOOE֪ob06o8,8-J0tisible = True .Label2.V!Target#VCaptionGetMsg(Lang, 41, 28)g3ApplicaA.DefaultFilePath & "\"Mid(CurWrkBook, YInStr(# "."))!xml"=HePight=.- .OnlineFrame 5 @End If .ListBox1.Clear>Sheeta0With Form_Select".ShowSet 1@ * IbScr@eenUpdfnbgals̗KIf mode <> "IMPORT" ThenK aOutf@x0* i1 To0BVCount/O :.Ded(i - 1) ~AjT#G F>(ԮB pen U0putp As /Nex;Q _'a&6ACall Import_]N(/.,@, ,o$UserIDPwd/ O%UnloadN%!WGZ0HClose #<Eh': "No journal s for iB-Tit3j95KMessagAN2L+F@(, 64, b ha#njtatusBarySeT[7U3Di`splay ) O pt:HowManyTHIS0 ONEZGotoContro  $ Private Sub 9ne9Grix-H*!Integer, Us8`7Dim HHdr, qs`trXMLVUR_trRespon2FirstRowNum LauHRet2CD1Longi# N=dp_Ht5ActWorkbm.8sM).B3S((7+.1.p\matJ@h'Check sZUB& C'NvsEdrrE= (34.Tb~Q b3Pener_!(s!,, 0d!ɰ+ntR,  GQ="vbCrLF/0 @k/ps/Excel_%$_?uid=&pwpassword>17= Os("_P"Ұrte0 1AApBF9= send @2 H!'3e CaBbl', wa@s succof R Mi^dHO@1B_. 1? O1@ IsD*l.߿x$0Jymmdd"}P'~OReoce`(Trim("&N"&s]?la0egLeno! bIB=R& Sp $(BaT"":Q&  X"vbCrL\Nex$Q;0S]R]Xb]GoWa jAfHcurrVoc?']Sub~nePe_`(0t W؊I^X7a]^[HdrSeq`9:]̾ThisqAa KgHArray(hVaria1htempG*)R'u`saler chunk Gtpermanc s =W1"_H+CWorkbook.2s().2#`6Build_ , ) K qLB(o UoE``i8i2, 2ZC_SSet ?eAT CtrlCOL0POL)\VP2*BEEzEJRNL_HDR_IMPWith R`ange(pl2 ),}"BottomO").Row, 2))Set This%.Find(, xlWhole If $No!Ishidng+en:"@vbCrLf[HU@k2_(>, 4g-/-5~Len(!) > 10|text >%& yX!aEnd IS5 |N(dRx7Loop While|A`h[ <> h{"_) '!iiCRHDR^i7ma4 i#e Sub %'=  ' P ost a6Sejournal over thpe we Priv` Fun`on s !)(str, ResponseURL AsP Str)ALong Dim xDoc!MS!@.DOMum@HTTP`Request@BError, xImportDed@Upd@d'I@ Ele L.NodeLi1!tmp StatusQm i, kInteger3SOn  GoTo doC<= New /r.asyncFalsԄ@Pload)LP2BIz9 x.Open "POST"9, 8=seBtHead)"cont-typep"application/x-www-form-urlencodedXs?acceptq\/xml/html-char`utf-80pso_8859-1X 7r0 C 53TZ?`5aRepl, ""A """]:"&l<"&g>rA"& &*M+a%+4=RE.get>sByTagName("eB z.Pgp= 0l3AP0 " EJ b!_ =Q iL G= o F For i1 pFVR 1 iao6Q& A'%lfkp k`17Q  I- 1).2tkGetMsg(L@, 80,(k)27f''u#i S pQW x :@ )"܁3=YѨ End If PstrResponse = 4& GetMsg(Lang, 80, 3,B(k)) & tmp Else'Application Error message found1sendXMBL-104i50FY1 To xi.Le0ngth}If i > henvbL([Item(i - 1).TextON 9'_loadi0ng r}[do`cumenLb3G!the source S J2G]xDoc@.parseureas& vbCrLf@ J'xit FunBc do: .Number <> 0 ~T G' rAD@escripº& Os("Import_URL ") MUnknown eIž1D95 APub Sub Customi`zeCF(ddm_.Show   #rivategeneric`orHandler(ob"j AsyObjectPro cName!Str@LBox prompt:="`,`llowPb occurr ed incedure "#;& _g#& ":F@-.k0"b #'d#?, TitleERROR"#__SRP_b 31__SRP_aUmLogFunctionsP(__SRP_4%pMH@ F% \$ \  /\6$ FH% 3 !=+l t 4 lt5 J 67*1tlt8*#7*1t/+l t 4 lt9*#7*1t/.CC #:*1p28lp;*F$H:4<F`1p6$plM4@tMH@^= qdldqlZC>C 12 l?07\$ @\@\U lA0U?DlxFH%X\$ H\ X dD)\XD\$ @\B\N:%(H%\$ @\$C>DAE(Uph\6$(H%(%\$ X\$%khD%(%X$ XX%D$ @DF)\XD6$%:HG%\ $ \H\\$ @\@\?D FH%X\$ H\ X dD)\XD\$ @\B\@:HI%\$ @\$FAE(Upj\6$>:HJ%\$ @\$FAE(Uph\6$kjDH%(%\$ X\$%khD%(%X$ XX%D$ @DF)\XD6$%:HG%\ $ \H\\$ @\@\lkl|ll6C(($_MH@ /6$6C(($_MH@ /6$K*# *//CLC #M020''$M4@MH@^.q`6$ld/CNC #O02%l:4PN$$l MH@ Q5$/CLC #R02gC(($_MH@ 1'L'># *FlM@^.q`26 $LH%l:4SN$$l MH@ Q5$/CLC #R02FgC(($_MH@ 1'L'># *F0lM@^.q`26 $L0P8p txlp8 \XD$Lo`6@ P%`$ `  @`1l`5@Cd t# i1p25@"jklp i1p"lmlp i1plpJEld n#*#k*#(P%ta@"i%`$ X`,AH o#*#m*1d2 `6@, ldlp*1d{ldp*#(P%ta@"i%`$ X`,AH o#*#m*#7*1d2 `6@, ttx%x$ @xWd`x5d0* (C``1Ctt 2t`6Ctt( (d MP@ /t6d 0 2T  "(\$ t`xd 0   0   0   0 (  0   H lR4l8<F@%P$ P DT< 8 d4)P<840P'$%:@J%$ Pa"pjP5 kjpj7:@I%P$ @PFAEU$P6$$5:@U%P$ @PFAVUpVP65:@W%P$ @PFAVUpTP6xH,lX$P<840   0     ) $   kpJ- $   `1D5 : ]3$ @Ql  V >C(()M@ F%,/6MC(( M@ #  026MC(( M@ #  026=CC #  @2>CC F  25MC(( M@ #  @26MC(( M@ #  @26c $ " $   / $  :]@5]ilA $  $  `njQo@l`ǰ 26 V $  l7( %(%$ X5 :]3 < " V !0>C(()M@ F%,/6MC(()M@ # " 026 " # " # " #?| " H#a*n| j%,5Vx " H#| " #n|nx 7t "t #)tMC(( M@ # " @$26=CC # " @2>CC F " 25MC(( M@ # " @26MC(( M@ # " @26>C(()M@ F%,/6MC(()M@ # " 026 " # " # " # " #MC(()M@ # " @26 $   l%*F&iM@ 'd:(T " /)6 dT?| " H#a*n|j%,5 " L)5lkvDH%( %\$ X\:A]3\5kvDH%( %\$ X\%kvD%(%X$ XX%D$ @DFYx)\XD6= FH Z:0[: 7p`' 6p! +nx \#h*' /hAkvDH%( %\$ X\AHUpt\6?DFH%X\$ H\ X dD)\XD(H%( %\$ X\X'%:J%$ Xa"i%(%D$ XDd$ Qd`)\XD61ktDH%' %'%%`Yl5 llcGla"pr5C`Ila"iH%( %\$ X\:A]3\6la"iH%( %\$ X\pla"i%X'%:U%$ Xa"i%D$ XDPdPp$ Qdx)\XD6 pP?l`FH Z:0]: 7p`1`6p l`+nx \#h*1`/h?l`FH Z:0^: 7p`1`6pl`J' l`*' C`!lloH%`Yl5"llcla"kr5! l`*' C`c`= FH Z:0_: 7p`' 6p?DlhFH%X\$ H\ X dD)\XD vd@w,D*`hlx`d #4 h\XDdpP`K) : 0 qt t r  t rk/ sp'%'%f %tp uvwp uxyp uz{p ut |>F%p ,u5p @u>Fb/}~  iFb//kj  iFb//ml  iFb//hg  iFb/  t rk/t rQ` : 0`A( ]35. qxt rQPCHp2 (4PAh4( ]tU lH*1H k2p27lHF4( %P>A`1H6 4~9P2M @ `((PM@ #plH*Fb2p6t rQLCHp2"(4lL llihL4( ]tW lH*1H k2p26lH4( "L  h|l*1H/ 4~L;: ]@: b]<2M @ `((PM@ F,lHF b/6 , qx ( 4 (4`Ah4( ]t: b44( %`>Ab6 4~e qx$ qx8t r $l7*F b/5$l  lll  llqxI  ,lCCpp #*Fb2p qx`H\L4PLHt`p8 p, 0 H  0         q000&$q ` $ `$ `$ `( ` (9 ` o$a ` , `/0< `9Qi00&/04 `=y&0 ` 00&0) ` //0$Q `4y `Ia=)0 nrU~| 1 9 Iy#ٕ' GENWB.XLMx Open5(FJsAs Sng) Workbook, 5.Pr@ocData Invoke_\ \n14Dim PriorAaveWB VTemplateA DirOC \Spec 'Get the t2n mess age cdlo&gJ= %Msg(Lang, `9, 1)S4 t= yH,f.PathIf Not ` Is]Ij) Then B= I+ "\" + Dy @"R)o"LA"s." (&&rH D.Save@J&ElseGM <End IfCAhA.@ 8EEDq.-y AEAS@ub AddE0ntryI, CurSheetA,atus, MA'm mm B@v ߡegb%sC@NewRowI@nteger&Column*A3-h@,=!!1)=oQd1d=X.bs("Import "$".Cells(1w.`5irec.Find("").@ic pValu!(Z2).H 3g(Now 4GStaJ5$O*ar#] [\^MAXAleagY YYKOn Error GoT^oaAx=sr()., STruDExitl ` : Fabv u8hCh% wd%`xbx`z`ne +j`\+h 2i  DQ~,1C((8 MX@ 1p/68$ HQt) $ H 0>1ll ll*# *1h/"hMX@ #0/wX '\%'l%'|%'%'%'%'%'%'%'%'%'(%'H%'X%ll*#lp*# $  L2 )XT '%'%'%'%'%'%'%'%'(%'H%lhFX%$ H bX '\%'l%'|%'%'%'%'%'%'%'%'%'(%'H%'X%lh$  L)X+X FX%$  DQXx t 0$,8 xtlhp$ X8@(X\$ H\ >XFHl\ l h.4:8%\h \ dl4=d)\4R:%(8%(%\d \H= > A Upb\6H5lkbD8%(%\d \HC \5H8%kbD8%(%\d \HC \5HAH HkbD8%(%\d \C \6H8%kbD8%(%\d \HC \5H8F%kbD8%(%\d \HC \5H h 0dlh(X\4HXKL;\` Fd%t$ t D` >\' )t`pzpzCo X$ \t`arU 0__SRP_5?mMessages_Va__SRP_8__SRP_9 C` ) 08` )Iq0//0(` 0nrU (`o8` 1Iay///n''' (Y(()I)3# 70 - 79 Help 80 - 89 Log!Ž 90 - 99 Error Message5Function ListArray(SheetList() As Variant) As Boolean 0%ReDim SheetList(ArraySize) As VariantB@NEnglish+oH EnglishKKT KT Commonly shared text/messages KT!Import in progress...please wait.'0-CKTSave in progress...please wait.'KTReady'\SXMessage no (G xME0^ X> L LPLPLL +\`hXk@`i % 14 atx%`bp`dlxl`fh( (`ki 8B@In XIp xi6 D 14@rl v u8hCh% wd%`xbx`z`ne +j`\+h 2i  D 14(vZ% XxB\~@\ @X @H  @8 @4  @($ @@ 0@X $ @p  @ @ @ @ @  p@Xp ]x%Bj~@X @(H @@8 @( @ @ @ @  @ @ @ @ @ @0 @H @` @x| @l @\ @X h``x`jz M``p@ *2 0K@t @d *2@` C@\ @ h(tA*\R1*#2ad$*\Rffff*2e47bc7ad1*\R1*#2ab*\R1*#f2*\R0*#11$*\Rffff*1947bc7621$*\Rffff*1547bc761e*\R0*#12*\R1*#1c8*\R1*#e4*\R1*#e4*\R1*#dc*\R1*#f1*\R1*#f1*\R1*#e8*\R1*#2ac:  4 B PX`hp  8x1   )" w( THX b`px+  "   ( .(R5@8`A88  B ; (08@P Log Functionsntai-Originally copied from Budgets file GENWB.XLM0]p]]]2Get the template filename from the message catalog  $'b B.`f de B!h'd $j d\  'f f$~ d\ b B@ f BB@ld f B@kk $.\ `B@NiX]]]] B!'r $\.t ImportLog t%L.v== v%!|%!'x r x v%(va n x v%(v====== ~ x v%(v p x v%(v 6 x v%(v tB@ o( $!''jz'jiAttribute VB_Name = "mLogFunctions" ' D H( P(NX( (( (( (<B) @)2H)  ) )) )2) :* @*H* `*h* *"* *<B* *+ 0$+8+@+H+`+h+x+xp] ] MsgSet 1 - 9 Common# 10 - 39 Journal Editting 14+ 40 - 69 Import Control / Options Lines'KTCopy data from line'obSMessage not found: ( X, X).'ern)KT )*** Form_SelectSheet and Homepage buttons KT Setting(s)'$ KTNotes'KTNew' KTEdit'KTDelete'KTCopy'KT Import Now'KT Write File' KTGo Home' KTYes'CC KTNo'ion KTGeneral' KTJournal Sheets'KTImport Journals'KTNew Journal Sheet'000KTEdit Journal Sheet'NNTKTDelete Journal Sheets'LKTCopy Journal Sheet'KTImport Journals Now'KTWrite Journals to File'CKT Select Sheet:'-KT File name:'he totKTNew Journal Sheet Name:'KTFile already exist' becauKTOverwrite the existing file?'s inSXMessage not found: ( X, X).'r = n*KT *** Form_Optionsof KTDefine Options and Defaults'KTHeader Defaults'KTGeneral Options'KTMessage Options'KTDocument Sequencing'KTOnline Import Control'KTAfter successful import' KTBusiness Unit:'Ap KTDate:'ng KT Ledger Group:'shKTSource:'KTUser ID:'KTEnable Multibook'KT AutoGen Lines'shKT Language:'lect =KTLog Error Message only'ngKT Log Successful and Error Message'KTDisplay Messages Online'KTEnable Document Sequencing'$KTDefault Document Type:'(KTAddesss:'KT%Change import status to Do Not Import'*KTKeep import status as Import'(KTUnicode'S Message not found: ( X, X).'$(n8 FKT Help text KT caption(Journal Entry Help'5.(KTJTo 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.'f_SMessage not found: ( X, X).'ID$nPKT Log text KT Imported  journals: 'YKTUpdated  journals: 'KTsuccessfully imported.'SMessage not found: ( X, X).'ypenZKT-90-99 for Error/Warning Messages related text KT Error Message TitleData 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.'SXMessage not found: ( X, X).'(vn[KT Header related error messages5 KTJOne or more of the following required fields is blank: Unit, Journal ID, PJournal Date, Ledger Group, Source, User ID. Please make sure all these fields contain values.'e5KT9Please enter a date for the user specified reversal date.'DispKTBNo headers found. Click the Insert button to create a new header.' Def_KT"There is no journal on this sheet.' ImpoKT)There is no journal header on this sheet.'nAKTThere 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.'"OprLaKT*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,Fiscal Year is required for Adjusting Entry.'eets KT*Imbedded quotes not allowed on Journal ID.' ONE)SXMessage not found: ( X, X).'ort n\KT Line related error messagesE) 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'KTImport OK - Sheet 'KTImport Failed - Sheet 'SMessage not found: ( X, X).'n`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.'SHMessage not found: ( X, X).'nSMessage Set not found: ( X).'nSLang not found.'niAttribute 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  ReDLedgermeg q$DSourcemeg V $4UserIDmeg , 18 JrnlClassar:g ( 18 IUtranCDg ( 1<DocTypeD,$+( 18DocSeqeD,$(2@Label4eD(28Label5eDE(28Label6eD (28Label7eDp (0H Label8eD(im 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"6file n`}c4`-?'ThHis @th of ad? log templ$atgl.x|lt8 Y,jrn B#?4B?4?4`14'B1'*** Form_J`H`NerNew@!ƿc _ Heade rb2hange Import Status"@o NotDZ@ns ( Unit,R ID, Date)F:NewdentifierDBusiness &"7w738!AA9ControƄ30User3QPasswordElse*M-aYn`Jfound: (" & CInt(Set)",HNum).EExnd c|k1]'*** Fo@rm_Add ~LaB -  / Dmultiple jc l @kKIn2t M BdDBlock of c~ance3QFromQTo8z#@;bg y+1$a datxa fIQ&isZsi ia( 4 w&r,4lW4c0Sheet a: HomepQ buttonsQO3O3 H Cting(s)/e Oq{mecYewe 8O 4om= BlHdNo lWrite Fil_l1Go !e 1kYϤ/" ener_"Ł0O&/B dhB18 ? s%28C,R 4hS: Of8,.5H.e to/u7xOkaO76 name_7  NO#)&Balry existOe 9OverwDtheC\ fD?e ?q@Q Q ?q`jV447qOptioD$ߏDef` v a6Q! < GetMsg = "Header Defau@lts" Case 3 L>~General @Option~4~Message?5?Document Sequ@encing6!Online Import C@ontrol"7"Aftsucciful i'#11$BusGss Unit:2Date!ZrLedg0GrouprSouLrcZpUs@IDmEnable MibooFkJluto@ L\8YZLan,gu@.9og Error Eonly 20SǜandRODisplays c P3?t2S TypEM2TAddss62TCh=ez status to  NotC$zXKeep as Y codeaElseIPnfound: (" & CInt(Set)D",Num)".LEnd lectg1B?70c' Help tLexASe! ?@g 1 ' caAU'Jn Ey"%:[To int a j BȂfythe sed h, click AIbutton )J_"pr U CTRL-L. `d te`a , cell  you wishSt " D KDw=R_; y S D H S 5 EJCediaE1uEscopy?3CY $T_ 8q_8888 8 7'88L j88B3X!s1param1 4s: 9_Upd@d4B bH wlyYed1 9'90-99 I"/Warn'~rel WیTitlf Pa)try Alert?e [o$TpVQ Nhave `erp%is Qla valid AK`secuweb addY P@ Fnyway? e ?&/ e CCo|o|}o|A0& Sx9 {$e"vmk`s"$$ OPڀUmore oftfollow,ri1fields blank: , ID,w M "51, ),2 , Plbemak ! ~axPx%De""c@ain*ues)//Pl r0Ňuspeci@d revercsal date ." Ca0se 3 xGetMsg = "No headers found. Click the Insert button to cre a new n4rThere is no `journ^hAsheetR5-Rk ,6,aXVsdelet e7'One or mo(offollowing required fieldsblank: Business Unit, " & _3"JSID, D PleAmake su8all@contain vaPluesRa86I mbedd/spHacewt o^wa&9N8EXT(id7ID10aLedger GProupaSace, U '_ B114Fisc@iYearA%IM@AdjustaLEntry&2 ;pquot;"E(lse M@[age@t: (a\ CInt(@Se$t)@^",Nu m)End 2Ssctg92' Liml@c`d errArCs @2You havcsaaFot da$rNs:7 ly want` do9belo` Adisplay@E"=&OK`banywaOarow r noeA r\$/唗aD:D ;~Qyinqgp:O OOOOQ Os;KC3BDQCheckÈQeQectQSOQI`amt G&Rce41!o mC`te= xsS,a "maximum3P!>>1?i? @@AAB9BBYiC DIEF HQIJKiGG LyLLMN PIQRR T)UUV X9YZA[ \9]Y^!_ `aabWacO ddef hhiYj l!mm)o p9qqr s t!uuIvv xx!zzz ||}Q}}I~0 0    hXX:h]3,X:H]3h88(h]3h(((h]3oCx((h]3Cx((h]3CxBhE#$*# *#HE#*#*1x2 $ 8(h ]3h(h]3%Cx(h]3@ CxBhE#$*# *#HE#*#*1x2 $ 8(h ]3h(h]3 Cx(h]3 Cx(h ]3 Cx(h ]3 Cx(h ]3,Cx(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'CxBhE#$*# *#HE#*#*1x2 $ 8(h ]3h(h]3O(Cx(h]3j)Cx(h]3*Cx(h]3!Cx(h]3+Cx(h]3,Cx(h ]3-Cx(h ]3 .Cx(h ]3'/Cx(h]3B Cx(h]3]0Cx(h]3x1Cx(h]32Cx(h]33Cx(h]34Cx(h]35Cx(h]3 Cx(h]3Cx(h]356Cx(h]3PCx(h]3k7CxBhE#$*# *#HE#*#*1x2 $ 8(h ]3 h(h]38Cx (h]39Cx (h]3!:Cx (h]3<,Cx (h]3W)Cx (h ]3r;Cx (h ]3<Cx (h ]3=Cx (h]3>Cx BhE#$*# *#HE#*#*1x2 $ 8(h)]3 h(h]3C ?Cx (h]3^ @Cx (h]3y ACx (h]3 BCx (h]3 ,Cx (h]3 +Cx (h]3 CCx (h]3 DCx (h ]3 ECx (h ]36 FCx (h ]3Q GCx (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 BhE#$*# *#HE#*#*1x2 $ 8(h*]3h(h]3K VCx(h]3f WCx(h]3 XCx(h]3 YCx(h]3 ZCx(h]3 x(h]3 \Cx(h ]3 5Cx(h ]3# ]Cx(h ]3> Cx(h]3Y Cx(h]3t Cx(h]3 ^Cx(h]3 Cx(h]3 _Cx(h]3 `Cx(h]3 aCx(h]3bCx(h]31cCx(h]3LdCx(h]3geCx(h]3fCx(h]3gCx(h]3hCxBhE#$*# *#HE#*#*1x2 $ 8(hF]3h(h]38iCx(h]3ajk*#$l*1x/$(h]3mn*#$o*1x/$BhE#$*# *#HE#*#*1x2 $ 8(hP]3h(h]3p*#$q*1x/$(h]3Ar*#$q*1x/$(h]3\sCxBhE#$*# *#HE#*#*1x2 $ 8(hZ]3vh(h]3tCxq(h]3uCxq(h]3vCxq(h]3-wCxqBhE#$*# *#HE#*#*1x2 $ 8(h[]35htt(h]3xy*#$z*1x/$0t(h]3{Cx0t(h]3|Cx0t(h]3 }Cx0t(h]3'~Cx0t(h]3BCx0t(h]3a *1x0t(h]3|Cx0t(h ]3Cx0t(h ]3 *1x0t(h ]3Cx0t(h ]3Cx0BhE#$*# *#HE#*#*1x2 $ 8(h\]3hdd(h]3lCxd(h]3 *1xd(h]3Cxd(h]3Cxd(h]3Cxd(h]3Cxd(h]3Cxd(h]3-Cxd(h ]3HCxd(h ]3cCxBhE#$*# *#HE#*#*1x2 $ 8(h]]3hTT(h]3 *1xT(h]3 *1xT(h]3% *1xT(h]3@CxBhE#$*# *#HE#*#*1x2 $ 8(h^]3hDD(h]3CxD(h]3 *1xD(h]3CxD(h]3CxD(h]30CxD(h]3KCxD(h]3fCxD(h]3CxBhE#$*# *#HE#*#*1x2 $ 8(h_]3h44(h]3Cx4(h]3Cx4(h]37Cx4(h]3RCx4(h]3mCx4(h]3CxBhE#$*# *#HE#*#*1x2 $ 8(h`]3h$$(h]3Cx$(h]3#Cx$(h]3>Cx$(h]3YCx$(h]3tCxBhE#$*# *#HE#*#*1x2 $ $hE#$*# *1x2$ CxXpXxX8(tdTD4$ $  zCb,fte- cl= Imbed(ded(IDߴu8BsLBusUnitLOrx I1_LedGrp|Sour~c|! ~' Requip f@ields 0 blank.aIiMsgBox(Get(Lang, 91, 1), vbExIБma, C^aWU{(b NEXT]'A J nal `¬ supportedo o o o o %og8%oc2 % A~ ARGm$& ' ` is rv$!8djing //$$$$@%' ; .~u!'JZ1 Check_A )CurEffdB ]o3aT=@ĠY Q= T? (S` ;Q'Invalid| dg660, /##y 8 @P X ` p           " (( 8 H X h/x $ $ $     "  $(xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0tA xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2  3#tJA,D.7%K&xME@SPSSS(vH (sageno@ !vs  (s Bool (0 &( ((m Shee $~s Vari998 (vkXdP (v (vEngl (KT ( &( ((#0#koN'Off' (.DLoB'ffi' (jecopE'' (\PSo8@X'MCR' (XoD' (o' B@Ypo]@]X]p] $P' $V' $~ $~ $~ $~ $~xME (SLSS<N0{00020819-0000-0000-C000-000000000046}@(%H@0tA xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 @_ꈺXX9IΐV#0PIW E4#o@8y3SV YIc]ܴxSV YIc]ܴ˿X9IΐV#MEPSPSSS>"L0{D5E58AF8-F497-4CC8-A7FF-E3DC054CAB0C}{022334D8-6FCA-40A9-99FB-389A791533AA}0 X`hk`z' `  % %X0%`%@ 8h~@t @Pd @T %@D @4 %@0 @ @ @ @ @ X8\tA$*\Rffff*1S47bc76a2*\R0*#f48<@DHLP  "$` @PX " `h px]@ $~ $~Copy B@00k(o X' B@DeleoxpAttribute VB_Name = "Form_Import@Now" Bas0{D5E58AF8-F497-4CC8-A7FF-E3DC054CAB0C}{022334D8-6FCA-40A9-99FB-389A791533AA} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizDOption 0licit` P"& Sub Butt@onOK_Ck() Dim i As Integer If Trim(_UserID) <> "" AndPwd pThen " .XHid E@I8f %S)CancelG*#ApRFrU __SRP_e__SRP_fForm_AddDelLines"Form_SelectHeader$MQ{# ِ)Q 4a`  8a`I<yQ@yQD!AHaLyQ P!)dWx`t! QtodT T:D]<40! Q0o  :]<'6dT r$3x$ 0 t0dT4 0 X  48PrU \$`$A`n, ꟡|H} D C6ms[s@fs }.6mLSDeZ ?G+.yTxZ ?G+.yTH} D C6msME8SPSSS>"<<<<<< <$<(<,<0<4<0{9E5BEFF5-18E9-4073-9366-9BCB730D7D07}{EDCF362E-CD1E-4C6D-A253-AE7F0144D665}` `T@`jt`r`p x `  `%`$ `,`x% % ven  %P%x (tA$*\Rffff*1[47bc770548<@DHLPTX\`dhlpt3 "  (86@ ,x (t? $ (t!@ P (tp    "   "  (@X` " hpx x]@]X]p r!' $~ $~ $~ %Required Journal key fields are blank [$  r!$' $~$LNEXTe NEXT Journal ID not supported5f [ $  r!$' $re Invalid Journal Date Impo Z$  r!$'d`'kPdH'k8  B@$koA B@xo]  !(  ,o ]`  !(  ,PoH@Attribute VB_Name = "Form_SelectHeader" " Bas0{9E5BEFF5-18E9-4073-9366-9BCB730D7D07}{EDCF362E-CD1E-4C6D-A253-AE7F0144D665} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDOp tion 0licit P"& Sub ButtonOK_Ck() Dim tmpDAs  i IntegerDone BooPlean- If FrCopyJournal .VisiThe = <ETrim(BusUnit) " Or BJrnlIDA*K'Requi@` D$ key f@ields @f blank iMsgBo x(Get@(Lang, 91, 7), vbERxumaAX, ToLine \ $  !$' $p$e -MSG= FromLine does not exist for this journal \$  !$' $p$eon +MSG= ToLine does not exist for this journalge' \$  !$'d'kxkp  B@KTkPoH'''' (v%Chan B@statuso !vT (mport d (( (vUnicko0' $X  X $p $p  'k@k8o0(LAttribute VB_Name = "Form_AddDelLines"  Bas0{ED6E61CA-E4C6-4139-9D6D-C2072D8DD5B5}{2FF2AC79-633FJ60-85AD-397EE5BEFDD7} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizDOption 0licit` P"& Sub User!ctiv () If HowMany.VisinThenC' Int modg .Ca@= GetMsg(Lang, 135 ButtonOK 3 Label1Z Fromx.EnGHZToCopyDy54D(EB' @eJ2>J" Jq= Ę'F6VSourceGEnd IfÆC'CancelJV5D4B'2*1I3Z$`[A]]E'_ Caka]Dim Done As Boolea`\i!Integer#cbMbb N/ IsNum{c(m) m4Val'> 0! cei4aUU > TrHim(k) `"8 OrjNot KO!'MSG= Em@pty orvalid|a5 iBox( 921), vbExma, DQ"(|3'> 5 > 9%doAxM_Exist(!&4Kc.does n@9e f0this jnal/a7 *p T E    $lq 8 #sp<;:n?VR2HiEzqTR [WRAq= 0dH?6wc7falu("L.c ] @nQ-om` S[Qt9 "0 1 !r iH_ChБeEU b\ 0Eob G =JU) +) - 1S bForm_OptionsForm_SelectSheet";__SRP_d$R__SRP_cF<SPSSS>"<<<<< <$<(<,<0<4<80{1E7ADD6B-DF5B-4595-89F6-79F462BA327B}{A89EBEFE-7F34-40D7-8B14-E52280918915}PP p`@ `x `v `|@$ `( %H  %r%% P`e,)i      !"#%&'()*+,-./0123456789:;<=>?@ABCDEGHIKLMNOPQRSTUVWXYZ[\]^_`bcdefghijklmnopqrstuvwxyz{|} p h0 (tA$*\Rffff*2U47bc79dd%48(< @ DHLPTX\`d hlp#tx|'),  "2 8 H+` $2t + (o8` hx "    "       0 @ P` " h px]@]X !v$' $r Invalid Date $http://eWARNING: Unsecured web access Z$   !$  B@k $https://eERROR: Invaid web address Z$  !$'d B@koxp B@ B@oH B@ B@Template$LB@N DB@A $!|B@H H(J NB@D NB@ NA@rooAAttribute VB_Name = "Form_Options" Bas0{1E7ADD6B-DF5B-4595-89F6-79F462BA327B}{A89EBEFE-7F34-40D7-8B14-E522809@18915} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomiz)D  1licit P#' Sub ButtonOK_Ck() Dim myURL As Sng iInteg`er = LC(Import_.Value%If Not Check_D;(Def) Then%A 'Invalild A E[Left(B, 7)http://"WARNING: Unsecu] web accessMsgBox(Get@(Lang, 90, 3), vbQues A +YesNo, .CaBy#vb "3 Hid}End If88) <(> "9sQ9ERROR: KK8hddrJ8i@I84ɂ8Ex@maA96'CA.54CancelUndoAc!  _`eCF  AWorksheets("Eq").vY eS.Unp`rotec`mCells(1, 13).EntireColumn.SelAppp1.ScreenUpdng8C ".ShowCN'NUnloadW )˂AtSource_4Ch@ce!rU Ɍy4!A8Aa5Attribute VB_Name = "Form_SelectSheet"  Bas0{6C24520C-3EE0-40DC-AED1-616584253DBC}{E6DD8327-C763J0D-8F5B91437@C4F75} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD Option 2lic4it P$( Sub User Activ () ButtonCancel.Ca"= GetMsg(Lang, 12, 2Label1417If .All.VisiOThenCG3 Non e+4H ListBox1.MulLtiChfmExtended&EASin gl{ End pIf @^b bDOK_C@jkaDim t, Mesg As S@ng AiIntegerAD@FZTargetZ? DA D ]h 'ACTION= Wri@Journhal ssDTrim(#) <> "" }aADirk a a) "e:)'Fizal@|dy ex?F3cA^30) & vbCrLf_ "a"6alue*s1]BW`'`x`_(,Q(ues„+YesNo, j-vb7% Kill C:3! f m/;VCop|y UkKL'Empty tld s nُiT/594, 3)0Ex@maA10+ Len()l) >= 30 4'bt too lo,5&F+q ^tT#E,HidoYqTOYcpYCa-SRagC _@xV^ 1 A1 To hCoun}A1smed(ip - 1,ANex X  h[gaO QuO  O g^ % %@``%d%``h8|tA$*\Rffff*1^47bc770548<@<yQ @!)D!y Ha`I LqPyQa Ta` XyQ\yQ`Q daэ`  ha`  lyQypa0`  l W  tx`ZOd8A R$l>@ae%='c @]C|OukC!ӂIf{BxkC!ӂIf{B`ZOd8AMEX@SPSSS>"<\<<<< <$<(<,<0<4<8<<<@ s5d4EI N\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Automation!DMSForms>+FErts3DD452EE1-EForm_CustomizeCF"/_VBA_PROJECT$4dirJ__SRP_0#Y! $(A   $(Rest column width $Z!'  $Z! $Z(   $Z(o`P !v  %JB@H !v  ( (k ( (kA@o !v LastLineCol$!v  %JB@H !v LastLineCol$!v ( (k  ( (kA@o !v LastLineCol$!v !v A@d !|B@ %JB@F H(bRelocateChkBox (A@k( %JB@HA@o !v LastLineCol$!v !vA@d !|B@ %JB@F H(bRelocateChkBox (A@k@ %JB@HA@oP] !|B@F ( !. (z (P (| ! ! !   ( NewChkBox (A@A@ (vo(])Do you really want to delete this column?   $ !|B@ B@A@A@ko( ! ! ( ! !! ! !   (kk ! (koh] !?  ( ! !! ! !   (k@ (o(]0]H $  Invalid Decimal Place$'     e*Invalid decimal place. Valid range is 0-8$'dX ! $L !v$(vk   !v$(v @ !v$( e$! !v$(d #0' dx#0. !v$p0$\' kH #,#$n '  $$n '   _);[Red]( )'   !v$(kA@ko`A@o ( ( ( (o8A@o   0L Label9eD(0H Label10D(0HLabel11DE(18AdjTypeD,$V ( 8AcctgPeriod:-(0HLabel12D $`AutoGenD $ `AdjEntry, !2@Label13APod:(( "#CurrencyBox:( '#ReversalBox:(-2<Label18y( ( ( (o`A@ o]  D! !!v !v .y`kXP !v$!v (v !v$!v (v !v$LFOREIGN_CURRENCYKFOREIGN_AMOUNTKRT_TYPEK RATE_MULTKMONETARY_AMOUNTK OPEN_ITEM_KEYKT $( (S` $( (n8 !v$!@KT'GeneralKT'&$!KT'S' (vA@ no $B@H DB@Control$LB@N NB@ NA@ro( Attribute VB_Name = "Form_CustomizeCF"  Bas0{8A55EA35-2173-47D2-9269-845CFDDEC48D}{D0213D77-AA38-4B2A-B9EA-82833F0810EF} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDe8rivDOp tion 0licit Dim Cbox AsP tX ${xMEPSPSSS<<<<0{8A55EA35-2173-47D2-9269-845CFDDEC48D}{D0213D77-AA38-4B2A-B9EA-82833F0810EF}P% `  % Pi``    P @ % (  % h  @ @ ` `` `      ` " "" % (ph@%p %" `` h(PP`B@ @ptA "( "08@,X "  * 0H*` * (@"X "    08@ "H&Px&     "& H`hx  ",@PXh  "   0 @ P2`   "F0 @ PX`h "px 6   "(0$Hp6  "$ ,8 8h         (  (0 X  `  p   (       &   @ H P X "` h p "x      "   "       ( "0 8 @ "H P X p         t  x          (08 @PX` "hp    x] !v (voP`]  D!!ChkBox !!v$>$~ (xpoh] ]8 R1=Field name $!v'  $!v $(v   $(vR7=Field label $!v'  $!v $(v   $(v R8=Format $!'  $ 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, -M = G !.VisiJeShifuIfB|C WI UserM~_b֚! ,< Rb"LastLine@>")0//@C "h7.3-(Da33>36 kku$ 0=l3a (x4-XC)E 7EntirqpB.CudOgq 7In(xA4pp(> 4? 4 K+P^!0_ ߐnb < 10q)O*-#0*qU =9_ R0 eDx, y, zingl4>HBolumnWidth = Int(Selection.C+ 0.5) + 1 D If < 10 ThenNVCbox.LeftBottomRightCell+ z- . ) /@ 2 - 4WE nd If Narrow.VisibledTrue "Sub  Private  Fmt_Apply_Click() Dim Strin`g As  ieger9Not IsNumeric(DecimalPlace) AO(2Currency Or:ber )iZMsgBox("InvaPlid ( ("CPElse=(cԋ8> 81 < 0Gd8 pA8. VB)range is 0-8 )CI,+FldName.Enahd ? s(1R,).uuUCase(CI7Lab el )Text V'8sFormba"@"kFDAK*!H@ 6).KGA@^ɈMA a@_= "#0h+ p." &df(@6ac8), "0eD!a7aIIfhThousanBd`#,#""~)F1%q@$ t!g & "_);[Red](*)&6ͤ72g"UseraL|_A CSu"General,_A]*?1hFa@bk_DOSR3Spin1OXal$cj/A!'#XOOI߮IoCBqnCpheckh`' Each In (eSheetr.es!0GCB. ~.0V`ftbCBExit Wf[SFTgd9?fn4fVbvgcdk 1j jO"FOREIGN_CURRENCYH5AMOUNTRT_TYPEATE_MULrMONETARY_OPEN_ITEM_KE YxHDteCO>L41Ey= ψ< _/= ,d`r-1yp-`vvF| TPT v1 02}q ZQAalB2 >'o_Buеn_2KBc 108).CI=ProtAWorks>s("Control").3A_CusizeCF.Hidз! @Unload;mIExcel+ VBAWin16~Win32MacVBA6# Jrnlmcro]stdole`MSFormsCMSXMLO mJournalEntry _Evaluate (LastHdrCOL (IntegersP(Decimalsx(StatIntsw(StatDecX[ (HdrCtrlCOLt SeqNumReset> LastLineNum\EndRow CurWrkBook~ CurrentSheeteCurrentHdrSheet OptionSheet SelHeader7NMessageTitle~ReturnCDAmtErr3RowCountuhGetSheetActiveWorkbook ActiveSheet%N(GotoControlPageG Application*ScreenUpdating!  WorksheetsActivate| (ImbeddedSpaceTotLenSpaces(ImbeddedQuotes+ SingleQuote  DoubleQuote3(IsDateOKDtexttDsep,Dorder{P1^P2^YRp_tmpDateIsDate2IIfzVal (Check_DateEdBoxQValueK InternationalxlDateSeparatordI xlDateOrderTrim@ IsNumeric$*Right (Change_ImportStatuswi`"$.4Descr254g "$/4ButtonOK/( 08ButtonCancel/ ( 58FiscalYearel$#, 62DLabel13FYrel <=>?@ Microsoft Forms 2.0 FormEmbedded Object9q]^VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_JrnlHeader Caption = "Edit Journal Header" ClBeginRow3List1 HeaderArray. NewStatusIGRiRange  WorkbooksB Unprotect?(Build_HdrArrayBMsgBoxR(GetMsg(LanggvbOKOnly Form_SelectHeaderECaptionxButtonOKFrameImportStatusVisible ButtonAll8 ButtonNone% Choose_HeaderkListBox1ButtonImportYES  ListCount6SelectedYCellsRowFindnFindNextu SelectionZProtectfRowsU (Header_Insertf Form_JrnlHeaderN Modify_Header (Header_Edit RowNummR NewHeaderIi DisplayHdrR(OptionsJrnlDate_CurEffdt#BusUnitLedGrp. SourceGUserIDjJrnlIDDescr254LedgerO ForrCurrvRTtypecRateMult5 ReversalCodePRevDateNAutoGen AdjEntry FiscalYearZ AcctgPeriod!AdjTypeH JrnlClassIUtranCDDocType-DocSeqsEnabled۪ BackColorރ vbButtonFacevbWindowBackground$Label1,Label2,Label3,Label4,Label5,Label6,Label7,Label8,Label9,Label10@Label11ALabel12B Label13FY Label13AP5 CurrencyBoxJLabel14DLabel15ELabel16FLabel17G ReversalBox%a Button_NoneO]Button_BeginNextButton_EndNext>7Button_NextDayĠButton_Specify$Label18H ButtonCancelufShowInsertrxlDown0DOffsetUCase5 UseStandardHeightCHdrSheetAsLastRowwkb ThisSheet WorksheetColumnsp9 (Header_SelectCopyƿ PasteSpecialK CutCopyMode (Header_Copyg^TopRowuBotRowpNewSeq\tSeq BotLineN LastLineCol!FrameCopyJournal EntireRowColumniButtonImportNOHeight|Top5ClearList* MultiSelectfmMultiSelectExtendedfmMultiSelectSingleQ: ListIndexQ (Header_DeletelCounter FirstDelete?h DeleteRowFromDeletex ClearContents{ (Line_Insertay  *\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{1C696F58-F2B5-4AC9-A53B-CB5910252694}#2.0#0#C:\DOCUME~1\catledge\LOCALS~1\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 ImporttA   mJournalEntry3647bc7bf0mJournalEntryHumImportControl1547bc761emImportControlH0mLogFunctions2e47bc7ad1ZmLogFunctionsH0mMessages1947bc7621mMessagesHJForm_JrnlHeader3547bc7beeForm_JrnlHeader` Sheet10a47bc761d Sheet1x9ThisWorkbook0b47bc761dThisWorkbook9Form_ImportNow1S47bc76a2Form_ImportNowe Form_AddDelLines0d47bc761d Form_AddDelLinesqQ"Form_SelectHeader1[47bc7705"Form_SelectHeader2 Form_Options2U47bc79ddForm_Options(~ Form_SelectSheet1^47bc7705e Form_SelectSheet Form_CustomizeCF0h47bc761dO Form_CustomizeCF{ $H H0x`mt^(K5Q~dFb;^/r-C&\5WH :cƹ8Z6A CQ}uGz}ǩLa<g}JI#s}H:"`TGys#E$u3nEX&JʢjNys8:C @w_D^-8),y!CompareText Add_LineD ActiveWindow+ ScrollRow"NewLineԶLastCol64Paste xlFormatsU 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 Decimals1 mImportControlg( Successfulo, LogFileName SkipsheetsSkipDlgs FirstJLine(Init\[ DialogSheetsK EditBoxes  (Save_OptionNewText_Set_Homepage_LabelsSheets  SetDefaultsm UserNotesoNewSheet  EditSheet ClearSheet CopySheetoImportSelected WriteSelected7 GroupBoxesU GoControlPage (StringBetweenH SourceString BeforeStringgJ AfterStringTBeforeStringPosEAfterStringPosStringBetweenPosԾ (JrnlSheet_NewMesgWCWK_InputBox afterX(JrnlSheet_SelectU SheetName6 SheetListp} (ListArray# Form_SelectSheet+TargetF OnlineFramel(JrnlSheet_DeleteSelSheetE* SelHdrSheetX DisplayAlerts(JrnlSheet_Copyi NameErrorh NewHdrSheetgxWrkSheet; (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ոLangListպ(Import_JournalsmodevSelListh; StatusBarOptn" StatusBarText>JCounter2OutfileUsrIDPwdByte1DisplayStatusBar StatusBarʜ Form_ImportNow  Import_Sheet Import_PwdˣDefaultFilePathR LineSheet"strXMLA`strURLP strResponseO FirstRowNumA LastRowNum  Generate_XMLvbCrLfsendXML& (AddLogEntry6Row2XMLSelfindentCFldValue DecChar3zXMLKxlDecimalSeparatorReplacefSpace XMLtext@ DataRangeMP HdrSeqNumzThisRowtempXMLNkxlWholexDoc DOMDocumentbxHTTPXMLHTTPRequestxError>% xImportedpxUpdatedIXMLDOMNodeList^ StatusNumdoErrorjMasynchloadXMLDsetRequestHeader#7send ResponseTextwgetElementsByTagNameYLengthYItemzstrvbLfT% parseErrorvYreasonErroNumber- Description  (CustomizeCF Form_CustomizeCF`genericErrorHandler92objErr0 ErrObjectx strProcNameƣpromptm mLogFunctions(OpenLog~Workbookk PriorActiveWBTemplateFileName TemplateDir LogFileSpec|Path2(WorkbookIsOpen=dSaveAsf; CurSheetNameKStatus+ CurBookName LogWorkbook LogSheetE"NewRowY LogColumn$ EntireColumnNow%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"ColHtmp1jtmp2k ColumnWidthSelectLeft_Click SelectLeft ShiftLeftcl SelectRightf ShiftRightϰSelectRight_ClickShiftLeft_ClickPCut.ShiftRight_Click:InsertCOL_Click7NewCbox Duplicate_Fmt_Text:DeleteCOL_Click Narrow_ClickNarrow Wide_ClickNxoylzqFmt_Apply_Clicks+ FmtString^ Fmt_Currency Fmt_NumberFldName$FldLabel?Fmt_DateW Fmt_ThousandcFmt_General_Click\Fmt_Text_Clickx Label_Decimal3.Fmt_Date_ClickFmt_Number_ClickFmt_Currency_Click DeleteCOL Fmt_GeneralButton_Exit_Clickf_DefaultjUserFormNButton_CustomizeCF`Click _B_var_Right9 _B_var_TrimmTKeyFrame, _B_var_Datev _B_var_Format _B_var_UCasea _B_var_LeftQ _B_var_Midp _B_var_LCase' _B_var_Space _B_str_Format" _B_str_Trim _B_str_Space _B_str_UCaseK _B_var_StrDef_Source_Change Change[ O  !e  &T"@MP@@ @@@08F-101A-8-02608C@4D0BB4 DD OWS\sEFM20.DLL#Misoft B . ObjecDt u/;"1?D@:H@H@00}#0B@# 5h0 A1C696F58-F2B5-4AC9-A53B-CB5910252696DOCUME~1\catledge\LOCALS@Temp \VBE\T.exd gXMhL Š0D63E0CE2-A0A2-11D@0-9C02@IC04FC99C8E׉Lg, vxers@i !mEnt ryG mEnry@  2\(H1juX",!"AYmÀCo olG! mIxC@\qCol`23 LogFuncars%'"L@gFnc&iBsN%'SU/? (mMessageVNe@sgg2/ZJ?@_!HрerG>"m_Kr`JlBöe2"<+L"q(LSa1GS1@6M2o#9 aThisWorkbookGTi4WErko k 2 lf5mNowcmE_jnN w w_6_r`0S e@ R AddDelLin- Q !o_AdD .lPVi &a/2)) QP* q  xSel r0GS eBHa 0der2F 2$}  W1'OpM1*' OktPoDo3* ~ (q:6 ;G| <8 =  f  X+CusizeCF- CbQomiz@ CR   $I{ rU~~~~~~~~~~~~~~~~~~~~~~~Q a    +Library file for Spreadsheet Journal ImportEdBoxTextNewText 14 SourceString BeforeString AfterStringCompareSelSheet SheetListHowMEnglish0,@y 9tXH-Z$]@T64@" ,O(]f SK{lFWJOButtonOK!-6S` RҋB ` iȏ[qJ eUserFormk3G4 F3Dynamic  Button_CustomizeCF"-?@Label11Label12Label14Label15?F`HeaderDefaults_Box General_BoxMessageLog_Box ButtonCancelImportControl_BoxImportStatus_BoxLabel13BҋB `MultiBook_Enable Def_AutoGenLabel21 DocSeq_Box Display_Mesg DocSeq_EnableLabel31Label41Label42ChangeStatus_YESChangeStatus_NOLog_ErrorsOnlyҋB ` Def_BusUnitDef_Date Def_LedGrp Def_Source Def_UserID Def_DocType Import_URL Import_UserID"ҋB `LangListUnicodeButtonOK_ClickButtonCancel_ClickButton_CustomizeCF_Click Build_LangArrayGetMsg pj).`ďYl|Yl|CҋB ` Def_BusUnitҋB ` Def_Date Def_LedGrp Def_Source Def_UserID Multibook Def_AutoGen Unicode DisplayMessage DocSeq Def_DocType Import_URL Import_UserID)NCKs~K LogMessage E ChangeStatus C#ҋB ` / N B#=h8+3qG?,2qL1!Y!VBE6.DLL !  !k 1! Name _H  jrnllog.xls BImport in progress...please wait. >Save in progress...please wait. Ready (Message not found: ( , ). gllog.xlt $New Journal Header &Edit Journal Header Unit: Journal ID: Journal Date: Ledger Group: Ledger: Source: User ID: Value Journal Class: "Transaction Code: Document Type: Doc Sequence: Adjustment Type: Adjusting Entry: Period: AutoGen Lines (Currency Information "Foreign Currency: Effective K*y   rU~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~ ~~~~~~~~~ ~~~~~~~~~~~~? qAe-   a  9 a Iq )Qy 9ia  9 Y 1 Y y ) Q i a  9a ia  a Aqa 9aJrnlmcro mJournalEntrymImportControl mLogFunctions mMessagesForm_JrnlHeaderSheet1 ThisWorkbookForm_ImportNowForm_AddDelLinesForm_SelectHeader Form_OptionsForm_SelectSheetForm_CustomizeCFF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 1@0FC:\WINNT\System32\STDOLE2.TLBstdole AP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms !i`XoiJ;Y%& 2C:\DOCUME~1\catledge\LOCALS~1\Temp\VBE\MSForms.exd ip >֢OɜC:\WINNT\System32\MSXML.DLLMSXML  IInitOptions Save_OptionSet_Homepage_LabelsGetSheet StringBetween JrnlSheet_NewJrnlSheet_SelectJrnlSheet_DeleteJrnlSheet_Copy FormatJournal ListArray Set_OptionsImport_Journals Import_SheetRow2XMLFF Generate_XMLsendXML CustomizeCFgenericErrorHandlerfĤIx8<Log_AllMessage ((, FFa F LanguageFGotoControlPage ImbeddedSpaceImbeddedQuotesIsDateOK Check_DateChange_ImportStatus Header_Insert Header_Edit Modify_HeaderBuild_HdrArray Header_Select Header_Copy Choose_Header Header_Delete Line_InsertAdd_Line CopyFields Line_DeleteDelete_LineBlockInsert_LineBlock LineNum_ExistValidateAmountsDoCheck ,,8  $,a h OptionsFEditBoxesText ControlActivate Y Date: Rate Type: InsertDocType Exchange Rate: Reversal None 0Beginning of Next Period $End of Next Period Next Day Specified Date Description: Fiscal Year: OK Cancel All Copy Delete Copy Journal Select Journal Delete Journal (Change Import Status Import Do Not Import DJournals (Unit, Journal ID, Date): .New Journal Identifiers Business Unit: Import Control Password: *Insert Multiple Lines *Delete Block of LinesDocSeq From Line: To Line: Number of Lines &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?IUtranCD 6Define Options and Defaults Header Defaults General Options Message Options &Document Sequencing *Online Import Control .After successful import Date: Enable Multibook Language: ,Log Error Message only JrnlClass @Log Successful and Error Message .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 AcctgPeriodAdjType' 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.  journals:  Updated AdjEntry( 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  FiscalYear ,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? @This is not a valid web address. &Delete Journal LineSourceUserIDJrnlIDDescr254Ledger' One or more of the following required fields is blank: Unit, Journal ID, * Journal Date, Ledger Group, Source, User ID. Please make sure all these fields contain values. rPlease enter a date for the user specified reversal date.AutoGen# 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 fThe row you wanted to delete is not a journal line.RevDate% 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. ReversalCode% One or more of the following required fields is blank: Ledger Group, # Source, User ID. Please make sure all these fields contain values. XFiscal Year is required for Adjusting Entry. TImbedded quotes not allowed on Journal ID.RateMult* 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. L Click OK to delete this line anyway. &Insert Journal LineForrCurrRTtype ZThere are no lines in this journal to delete. xThe From Line you specified does not exist for this journal. vThe To Line you specified does not exist for this journal. >To Line is less than From Line. CurrencyBoxLabel18JrnlDateCurEffdtBusUnit `You have etered an invalid From Line or To Line." The amount in the selected cell contains too many integers. The &maximum allowed is " The amount in the selected cell contains too many decimals. The Button_BeginNextButton_EndNextButton_NextDayLedGrp" The amount in the selected cell contains to many integers and/or  `decimals. The maximum length for this field is % Invalid data type. The contents of the selected cell should be numeric. $No journals exist.Label17 ReversalBox Button_NoneButton_Specify% A journal must be selected when the 'Change Specified Journal' option  is selected. xYou must enter a valid name for the journal entry worksheet. 4Sheet name already exists. VSheet name must be less than 30 characters. Label13APLabel16" No journal entry sheets exist. Press New to insert a new sheet. NNo journal entry sheet exist to delete. 0No sheets exist to copy. Journal Import RNo journal entry sheets exist for import.1Ej Hm'^FH(R=۴D ig< O2GιLabel10 lImport error: unable to import journal lines on sheet$ Import error: unable to import journal headers associated with sheet $Import OK - Sheet ,Import Failed - Sheet &Save Journal Sheets ! P8cEԹRKeyFrame TNo journal entry sheets exist to be saved. Total of  Journals and  4 Lines saved successfully. 0Message Set not found: ( Lang not found.F Template_H Template afterCopy !T 0 Label13FY  Label1Label2Label3Label4Label5Label6Label7Label8Label9UserForm_ActivateAdjEntry_ClickButton_None_ClickButton_BeginNext_ClickButton_EndNext_ClickButton_NextDay_ClickButton_Specify_Click Unprotect General Date Short Date MultiBook Insert Offset HeaderLineProtect Select !b  !  !  !E ƏYl| X D 998 NEXT !S 0   ' " 20 19 !- P !1 p !i  !x  LastLineCol HeaderSeq BottomLine InsertLine PastePasteSpecial Cells U HeaderKeys http:// https:// ! hJLNMVR`ZOd8A R$l>@ae%='c @]C|OukC!ӂIf{B Import_PwdDoneTarget OnlineFrameListBox1 ButtonAll ButtonNone㡀Ij  8ButtonAll_ClickButtonNone_Click |    ! H <JRNL_LN_IMP> ! h THIS ONE#}=[Jۼ{X9IΐV#0PIW E4#o@8y3SV YIc]ܴ[7Kc@t y  \ SELECTED IMPORT \ . xmlListCountSelectedList !  @l$+ *<?xml version="1.0"?> <Postreq> </Postreq> (Excel_Journal_Import ?userid= &pwd=ColumnsFindRow Range  ' SuccessOpenLog AddLogEntryWorkbookIsOpen Import failed Column DescrCol <JRNL_HDR_IMP>e {TGC%n </JRNL_LN_IMP> </JRNL_HDR_IMP> ! F @ yyyymmdd & &amp; < &lt; > &gt; </ !4  ! @ ! `.( 4Dt~+7 !  !   ! 3)6{O>`3)6{O>`YICOyiICOyiѝ POST content-type Bapplication/x-www-form-urlencoded accept text/xml/html߇HݓEJyS+ accept-charset "utf-8, iso_8859-13)6{O>` &quot; error Length imported , Item updated3)6{O>`  &>/'ozw !e  !  ImportLogEntireColumnq1*CII !" cN^OրDquH} D C6ms[s@fs }.6mLSDeZ ?G+.yTFrameImportStatusButtonImportNOButtonImportYESMF\rjK` pFrameCopyJournal wlYϱDPۢvПEIvk<CM1_a1錜Oyt\]n1>ҐaOu`I 1 Def_Source_Change %\1=BEy- ٗ 6cLRk["@ ɩ-,1AF$, D:DǵFD:@RǚH[AMб  xzYMM ykjh٨ߘEZQXIi]-fZ~TNE.BHJUlGOF1g I  s#%IA3fwlK@ *M<‚u?(^K|נr65K9H, ϛHT{ i  LۗgKnt2LLLkoZÕ|9N_>plѐGn"Ad  H^[^K7ȩ[Bʢ[gZw>A66ROeIn-QrmzQwE:ToNO!#  smLI3WJA,D.7%OzAfK&ݶbJ9Ş]rsx  `T7Jܤ__SRP_1 aForm_ImportNowD##;Yl9;Yf~o"$anymode LineSheetOutfileUsrIDPwd  SelindentXMLtextstrXML strResponsestrURL  objErr strProcNameDtextDsepDorderThis macro inserts headersh 14RowNumHdrSheet HeaderArray^This macro creates an array of available headers and inserts them into a list on a dialog box.j 14y 14t 14SeqNumEndRow LastLineNumd 14 TargetNum a( a8 yH X Ah x ! Q LangArrayLangMsgSetMsgNumparam1 a 9a a 9  LogFileName CurSheetNameStatusMessageBookName a Ya a )a qa( a8 aH ɭaX ahD(H  @7}(R KQDBTahomaD(74ButtonOK(OK<uTahomal(Cancell<uTahomal0(http:///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" CompObj%aVBFrame9Form_JrnlHeader (l9;Y;Yf {0F/Copy data from line5TahomaH,=,uTahoma $4HowMany $#Frame1y( 74ButtonOK0, ;8ButtonCancel04$ \CopyData , 14SourceLineel  Microsoft Forms 2.0 FormEmbientHeight = 5355 ClientLeft = 45 ClientTop = 330 ClientWidth = 7950 StartUpPosition = 1 'CenterOwner TypeInfoVer = 114 End $  2} !R KQDBTahomax(74ButtonOK, ;8ButtonCancel*, 14ButtonAllcelM , 14ButtonNoneelg 0!FrameImportStatuso'-i12+ n``l9;Yl9;YfDo*,\XFedded 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 StartUpPosition = 1 'CenterOwner TypeInfoVer = 33 End (H  Y@#}\9-!R KQDBTahoma|0 #ImportControl      !"#$%&'()*+M./012?456789:;<=>-@ABCDEGJIKLNZQRSTUVWXYH[\]^o`abcdefghijklmnOpqrstuvwxyz{|}~YJCompObjpCompObj16aVBFrame5Form_SelectHeader$9;Y`ķ;YVBFrameI=Form_OptionsX ;YH= \i06< n``;Y;Yf, !FrameCopyJournal( 2TLabel1OK $4ListBox1ok(OK<uTahomaOK(CancelOK<uTahomaOK(All<uTahomaOK(None<uTahomaOK4("Journals (Unit, Journal ID, Date):5Tahomate`[2Adjusting Entry:7 @Tahoma,Period:7 @Tahoma:( Desc n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(O,7 @Tahoma:H(D,7 @Tahoma:H(,7 @Tahoma:H( ,7 @Tahoma:(,Foreign Currencya ,( !"#$%&')*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~:onM 7 @Tahoma:$,Effective Date::M 7 @Tahoma: , Rate Type:DaM 7 @Tahoma:$,Exchange Rate:::M 7 @Tahoma:DH  & }Ag Currency InformationR KQDBTahomaT$8ForrCurr $8CurEffdt $8RTtypedt $85Tahomate#2LLabel14t  DH  }Change Import StatusR KQDBTahomad,PButtonImportYES: ,XButtonImportNOS:  0Fh0Importal5Tahoma8F 0Do Not Import::5Tahoma0F/Beginning of Next PeriodReversal7 @TahomaLG,U 0F/End of Next PeriodPeReversal7 @Tahoma@G,0F/Next DayReversal7 @TahomaH(E,7 @TahomaHG,h 0F/Specified Date::Reversal7 @TahomaH(,7 @Tahoma8H  4}g ReversalR KQDBTahomap0 (`Button_NoneINutt 4)tButton_BeginNextButt 4*pButton_EndNextxtEutt 4+dButton_NextDayxtXutt $,8RevDate^ 41lButton_SpecifyxtDutt , 418ReversalCode ription:35TahomaeH(W),5Tahomae(OK<uTahomae(Cancele<uTahomaeH(O,7 @Tahomae , Fiscal Year:7 @Tahomae$DLedGrpmeg (2Lo;=CompObjpi12:B@ n``;Y;Yf n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qHH  } New Journal IdentifiersdR KQDBTahoma$ 4BusUnit $ 4JrnlIDt $4JrnlDate 4(2@Label2te (2<Label3te (2@Label4te 4 H(,5TahomaH(E,5TahomaH(E,5Tahoma (Business Unit:S: 5Tahoma( Journal ID:i 5Tahoma ( Journal Date::S: 5Tahoma n``Microsoft Forms 2.0 FrameEmo?A!XCompObj'pCompObjC)aVBFrame+8bedded ObjectForms.Frame.19q Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_SelectHeader Caption = "Select Journal Header" ClientHeight = 4800 ClientLeft = 45 ClientTop = 330 ClientWidth = 4740 StartUpPosition = 1 'CenterOwner TypeInfoVer = 50 End ( M!DocSeq_Box_BSV ( O#General_BoxB 0X<Button_CustomizeCF1M   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_Options Caption = "General Options" ClientHeight = 4815 ClientLeft = 45 ClientTop =i12R n`` ;Y ;YfVmoQSRi39TV n`` ;Y ;YForm_AddDelLines"&jF`ķ;Y ;Yf0oEK2pi08I n```ķ;Y`ķ;Yi65O`Z n``3;Y3;YfwoY[jCompObjhpf:oHJ6CompObj4pCompObjGLGai77\hb n`` 5789;<=?@ACDEFHJKLMOQSTUWXYZ[]_`acdegiklmnopqrstuvxyz{|}~$  !}% R KQDBTahoma4(2@Label1 (Number of Lines: 5TahomaOKH,=,uTahomaOK( n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH,=,uTahomaOKH,=,uTahomaOK( From Line:Li5TahomaOK(To Line:5Tahomae:(H  }4$4FromLineV $4ToLineneV (2<Label2ne (28Label3neOK<uTahomae:(Cancele:<uTahomae:<Fi73^ n``;Y;Yf o]_HCompObjpCompObjPpfboUW^CompObj\pi79f n```N/xmllink/5Tahomata(Address:+5Tahomas:H( ,5Tahomas:(User ID:+5TahomaD:HH  H} Online Import ControlodR KQDBTahoma(VBFramem;PROJECTwmMr0PROJECT{/SummaryInformation( CXImport_URLel< (E28Label41 , G4Import_UserIDyxt<(H28Label42 ",'#ImportStatus_Box 4  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q`F' 0F/Change import status to Do Not ImportedImportStatus5TahomaTF 1F/Keep import status as ImportImportStatus5TahomaHH  4}l4After successful importR KQDBTahomat4(ChangeStatus_YESNhan 4)tChangeStatus_NOSBhan  (OK<uTahoma2(Cancel2<uTahoma2( Configur n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(,5Tahoma2 (Business Unit:sS5Tahoma2 @H(E,BUDGETS7 @TahomaS @H(O,UPL7 @TahomaSH( ,5TahomaS(User ID:5TahomaD:H(CompObjdiaVBFrame.Form_SelectSheet"s7lH=}AHeader Defau 330 ClientWidth = 8325 StartUpPosition = 1 'CenterOwner TypeInfoVer = 291 End $  %}R KQDBTahoma (74ButtonOK (2HLabel1OK , ;8ButtonCancel", 14ButtonAllcelE, 14ButtonNoneel^ (14TargetOK (08Label2OK$ 1LDonex( ! OnlineFramel$4ListBox1 {(OK<uTahomaOK((Select Journal Sheet:g 5TahomaOK(CancelOK<uTahomaOK(All<uTahomaOK(None<uTahomaOKH(,5ltsSR KQDBTahoma ( 8Def_BusUniteV (<2@Label11  ( DDef_LedGrpteV ( 6DDef_SourceteV E( 74 Def_UserIDteV (828Label15 ^ $8Def_DateV (;28Label12e (=2@Label13e 4(>28Label14e 0 1` bedded ObjectForms.Frame.19q Def_AutoGenHG,0F/Enable Document Sequencing7 @TahomaH(,7 @Tahoma,,Default Document Type:od 7 @TahomaDH  B}ADocument SequencingR KQDBTahoma0 B1lDocSeq_Enablese , 1<ntTop = 330 ClientWidth = 4125 StartUpPosition = 1 'CenterOwner TypeInfoVer = 298 End mJournalEntrymJournalEntrymImportControlmImportControlmLogFunctionsmLogFunctionsmMessagesmMessagesThisWorkbookThisWorkbookSheet1Sheet1Form_ImportNowForm_ImportNowForm_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 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Form_ImportNow BaseClass=Form_JrnlHeader BaseClass=Form_SelectHeaderMultiBook_Enable p , 1` Def_AutoGenn   n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qPF 1F/Log Error Message onlyodLogMessageMe5TahomaXF 0F/Log Successful and Error MessageLogMessagesf5Tahoma@Fokqi10o n``H=?@ABCDEFGHIPLMNO\SU`y_sne]^hdc[ifgkjlotwqvZxuQrp~{|}Root Entry F}|s_q9/@Workbook_VBA_PROJECT_CUR"!@^9YP"?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghilnopqstuvwxyz|}~uTahomaOK (Select Column:at5TahomaOK(ExituTahomaOK,R KQltBM6( uTahomaOK$H 8}T H 6SelectRightmo Select column on the right(2@Label1OK( #FrameColumnm4( 4Button_ExitmH 86SelectLefttm Select column on the leftt  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q<F 0F/TextCellFormatl5Tahoma<F 0F/DateCellFormatl5Tahoma@F 0F/NumberstCellFormatl5Tahoma@F 0F/CurrencyCellFormatl5Tahoma8F 0F/1000 Separator5Tahoma (Decimal places: 5Tahoma@H(,2F/7 @Tahoma@F 0F/GeneralyCellFormatac5Tahoma8H  6}g FormatOKR 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( uTahomaOK(Width:OK5TahomaOK,,R KQltBM6( uTahomaOK,R KQltvBMv6( @uTahomaOK,R KQltvBMv6( @uTahomaOK,R KQlt>BM>6( uTahomaOK,R KQlt BM 6( uTahomaOK8H  7)}DColumnOKR KQDBTahoma0 2 WideWider column(28Label2OK 8 2NarrowOKNarrower columnxD ShiftLeftcolShift column to the leftH ShiftRightolShift column to the right< ! DeleteCOLtol#Delete columnmnx@ VInsertCOLlum Insert new columnhe    Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_CustomizeCF Caption = "Chartfield configuration" ClientHeight = 3285 ClientLeft = 45 ClieOh+'08@ X d p|Lee Catledge@?@b;R @W;Y՜.+,0HP X`hp x  Sheet1  Worksheets F!Microsoft Office Excel WorksheetDocumentSummaryInformation8CompObjmBiff8Excel.Sheet.89q