ࡱ> !SmateH( ,5Tahomate ( Ledger Group:5Tahomate(Ledger:e5Tahoma:e(Source:e5Tahoma:e(User ID:5TahomaD: (Journal Class:5TahomaD:$(Transaction Code:: 5TahomaD: (Docuemnt Type:5TahomaD: ( Doc SequenceCompObjpi39/ n``fo.0T  Worksheet"&Tools&WindowChart"&Tools&Window(Visual Basic Module"&Tools&Window\pdwarf Ba=   ThisWorkbook=4&<X@"1Arial1Arial1Arial1Arial1Arial1Arial1* MS Sans Serif1* MS Sans Serif1h9"Cambria1,9"Arial19"Arial19"Arial1:"Arial1"Arial1"Arial1>"Arial1?"Arial1 "Arial1 "Arial1 "Arial1 "Arial1"Arial1"Arial1 "Arial1"Arial"$"#,##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%\)                                                                      ff + ) , *     P  P         `          !   "      a  ||EԎ}<} 0\)000\)ef;_(@_)@_}<} 0\)000\)ef;_(@_)@_}<} 0\)000\)ef;_(@_)@_}<} 0\)000\)ef;_(@_)@_}<} 0\)000\)ef;_(@_)@_}<} 0\)000\)ef ;_(@_)@_}<} 0\)000\)L;_(@_)@_}<} 0\)000\)L;_(@_)@_}<} 0\)000\)L;_(@_)@_}<} 0\)000\)L;_(@_)@_}<} 0\)000\)L;_(@_)@_}<} 0\)000\)L ;_(@_)@_}<} 0\)000\)23;_(@_)@_}<} 0\)000\)23;_(@_)@_}<} 0\)000\)23;_(@_)@_}<} 0\)000\)23;_(@_)@_}<}  0\)000\)23;_(@_)@_}<}! 0\)000\)23 ;_(@_)@_}<}" 0\)000\);_(@_)@_}<}# 0\)000\);_(@_)@_}<}$ 0\)000\);_(@_)@_}<}% 0\)000\);_(@_)@_}<}& 0\)000\);_(@_)@_}<}' 0\)000\) ;_(@_)@_}<}( 0\)000\);_(@_)@_}}) }0\)000\);_(@_)@_   }}* 0\)000\);_(@_)@_??? ??? ??? ???}(}/ 0\)000\)}<}0 a0\)000\);_(@_)@_}<}1 0\)000\);_(@_)@_}<}2 0\)000\)?;_(@_)@_}<}3 0\)000\)23;_(@_)@_}(}4 0\)000\)}}5 ??v0\)000\)̙;_(@_)@_   }<}7 }0\)000\);_(@_)@_}<}8 e0\)000\);_(@_)@_}x}90\)000\);_(@_)@_  }}: ???0\)000\);_(@_)@_??? ??? ??? ???}-}B 0\)000\)}P}C 0\)000\);_(@_)@_ }(}D 0\)000\) 20% - Accent1H 20% - Accent1 ef  20% - Accent2H" 20% - Accent2 ef  20% - Accent3H& 20% - Accent3 ef  20% - Accent4H* 20% - Accent4 ef  20% - Accent5H. 20% - Accent5 ef  20% - Accent6H2 20% - Accent6  ef  40% - Accent1H 40% - Accent1 L  40% - Accent2H# 40% - Accent2 L湸  40% - Accent3H' 40% - Accent3 L  40% - Accent4H+ 40% - Accent4 L  40% - Accent5H/ 40% - Accent5 L  40% - Accent6H3 40% - Accent6  Lմ  60% - Accent1H 60% - Accent1 23  60% - Accent2H$ 60% - Accent2 23ٗ  60% - Accent3H( 60% - Accent3 23֚  60% - Accent4H, 60% - Accent4 23  60% - Accent5H0 60% - Accent5 23 ! 60% - Accent6H4 60% - Accent6  23  "Accent1<Accent1 O  #Accent2<!Accent2 PM  $Accent3<%Accent3 Y  %Accent4<)Accent4 d  &Accent5<-Accent5 K  'Accent6<1Accent6  F (Bad4Bad  ) Calculation| Calculation  } * Check Cellz Check Cell  ????????? ???+ Comma,( Comma [0]-&Currency.. Currency [0]/Explanatory TextB5Explanatory Text  0Good6Good  a1 Heading 1B Heading 1 I}O2 Heading 2B Heading 2 I}?3 Heading 3B Heading 3 I}234 Heading 44 Heading 4 I} 5InputpInput ̙ ??v  6Lines7 Linked CellF Linked Cell } 8Neutral<Neutral  e"Normal 9Noteb Note   :OutputrOutput  ???????????? ???;$Percent <PSChar =PSDate >PSDec? PSHeading @PSInt APSSpacer BTitle1Title I}% CTotalHTotal OOD Warning Text: Warning Text XTableStyleMedium9PivotStyleLight168 ``iݜ*o?H6A^BbzbO/(fvEE>j(9jJ2BBB\`0Sheet1:2 mMessages4 mJournalEntry\8mImportControl%9 mLogFunctions$ BottomLine; $ HeaderKeys;& HeaderLabels; $ HeaderLine; HeaderSeq:& InsertHeader;$ InsertLine; NvsElapsedTime" NvsEndTimefU-@! NvsLayoutTypeM3ccB4c =_MA  1  dMbP?_*+%&?'?(?)?"4c??33&U>@7 Sheet1ggD &A Page &P&ffffff?'ffffff?(?)?M\\PLE_PRINT_01\P06w08 L_ odXLetter  PRIV` N N N'"dX??&>  &A Page &P&ffffff?'ffffff?(?)?M\\PCC-PRINT-08\355PN&w odXXQ&B\O&RtO&b O&rXJAPD dTimes New RomanH "dXX??&>  &A Page &P&ffffff?'ffffff?(?)?"P??&>  &A Page &P&ffffff?'ffffff?(?)?M\\PLE_PRINT_01\P06ChangeSt_ odXLetter CheckAmounts:PRIV` N N N'"dX??&>  mJournalEntry $__SRP_2>__SRP_3mImportControl~  !"#$%&'()*+,-.0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklnpqrtvwxz{|}~ "     \( H  " ">   ( @ XB  px B   <Ph F F FPB      (0 <8 x   ,, 0H(4xME  <0 @ @(`   14 Fh``@ (+P`  3id`R`T+V`8 >id`R`X`Z+\` ''Qi^I`  Ib `d`f`h`j+rx` 33xit `^`j```h`b `PP@$ `@ `*@ `H ` % ` This macro inserts headersh 14 ` x` ` 8 ` &i % 0%+P `x iP)   14`R`T V( %0 \P ` ))^This macro creates an array of available headers and inserts them into a list on a dialog box.j 14 0  ` d ` 7y 14@ @* @f @h `>@$ @j @l `   @  %@n `p+ ` P  33)  p  14  ` UUt 14@ ` @ ( @$ `l  %`` ` p`DDE 8%@ ` H`00I$ I* i( (%` `I # %` % `@''d 14 `e) s%` H@ f in`nd m `\\@ nt@ numb@ tat `@ ls f@ H %``P` ` `vvT`e de`size`rodu` exp` len iabl% H(%`B@+`P ""i----`$` 'T%` P `,, 14`ne or`rnal`'`"`Z `UU 14` ----`--`Re() `d Mi` 8` ----B B( B$x@(@. @2 @8h$ @<, @(PHxhP  p(8p h@x8P  `---- %p8CrK$*\Rffff*0k4bb872eam N`FpF668p Php   * * * B  PX`hpx   (   ( *@ 6p  ,  0  ,  H X 8h    8       B(  p x B         ( ,0 *` , "       (  H X `    2   0 P ` p       0 8P&   $:X h x (   2(@h     0P X x "       8 X" x    28X h  x    $ $ $@"  hpx    8 0 P h"      0 Pp 0x   2  8 X &x .    * 0 H ` x   *     *8 (h (      0 H`  *h    0  0 @ P` 2h      8@ H X h x  ((&(&0&X&&*(((&P(x*, @ (` ( & ( ! !@!`!!!(! !"("  (0" X" (h" " " " ." ("  # .0# `#  Xp# ,# <#8$ @$ .X$$ ,$$ "$ "$ % 8% "X% "% "% % "% &0& H&P& p& "x& & "& &' ' ' @'  H'X' p'x' '  '' '' ' .' "( "@( "h( "( "( .() ) )P@) ) )6))  )* *@*`*x* 8* 6* 8*B  (+0+8+@+H+&`+  + (+++ ^+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(=`==  = = = => > 0>P>  X> h> (> &> (>? ? ?  (? 8? H? X? x? ?? ???  ? ? ? @@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 G G(GG BG28HpHxH PH JH (I  @IPI hI pI II DI BI  J @J :HJJ J "JJJJJK K ((K PK`K hKxKK KJKL(L  0L@L XLhL pL xLLL LL "L "L "M"  8M@MHM PM`M pM  M&MMMM M MN0NPN  pN N NN&NNO 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 " lllllll l lm m  m 0m Hm `m,pm m m,m m  m "n(n$@nhn n n n nn n noo0o HoXo $`o oo o o o p p 0p@pHpPp hp p p p p pppqq 4qHq hqqqq q qqq rr r (r @r Xr hrxrr rrrr rxpGThis module contains the macros for the journal entry (template) sheet.g]$Hpa]$ H/2number of integers for foreign and monetary amount]$H/2number of decimals for foreign and monetary amount]$ H/"number of integers for stat amount3]$H(/"number of decimals for stat amountt]$HPe]]x]]]]8]]`]]@]]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   !v' !v$ 'R   ' -'  .'    ''add 1 for negative signkX   '(add 1 for decimal pointk R  msg = too many int/decimals ]$'6 6 . .'6 6@ 8$':Y'< B@HdX  R   msg = "Too many decimals" B@H ]$'6 6 .'6 6@ 8$':Y'<dif 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@Hkkkd.no decimals, subtract decimals from max length R    "too many integers" ]$'6 6 .'6 6@ 8$':Y'< B@Hkkk d "not numeric" ]$'6 6@ 8$': B@HY'<k <Yyh k` X oP H Attribute VB_Name = "mJournalEntry" Option Base 18Explicit 'This module contains the macros (forj e (template) sheet. 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 inuKQA Each"Idn hiod=.Value!1`0IsNumericv)k!= ( &e= s + ER M#(1,{, "-p", 1 .w 1p-=" $+ 1'a dd  negaa skH!e`<> 0_+ 'msgVtoo many ` /$sK !MessageGetMsg(L, 93, 3 4&@& "." &FA@oReturnCDC Box( , 6zTitlepPdYqi*eElsH`9!g.- ?>Gs/ d0"T00eO.= 2gO4/ |Oy'if:, ;toA-r%_B- (8Mp1) >B '")7 RO 8}/9.Q{# p;-wJ?=?s????epTF)2V?m??C?.??{ 5 W, subtrac%fromrx lengthAwBD-`aBs$$/$fy}G## /#/#/#"/"[ =/ '"noxt n;4l,s _q & (Exit For End IfxNext " DSubH rU~|      urU 8$`$`(`0(`00!`  !0//(I`9/$q`$`Q$`( `&0 `0o$9 `$a `( `o$`$`0` )A//&()`/$Q`a$y`$`(`y&$ `$1`n " "( ' B  (X H "  P X,p( " 8Xx**(*X( @"   (8 $P .x   6 8  48 p & "  L $@ 2h   .  0 P    8`  ( @1(xME8 0<<<0L6 <<<<< <$<(<,<0<4< 0` @6P@ @ @$ @ꀞ @% H`p@ +`,@it idP  H` "It (B@Ni" $`+ @`//? 14+<`ni> 0====i@Pl HeiBp====iD`Dv`Ft`HPr J`@ 14@,l $~@8\ ,`LXL`NH T(`,,`V Xq `B@N b`33` H@d (`f% X$k `% j  ` CC@d @f `l----@, ----`n andXs on1-- `p ----` r `` BId  14`nrray` R`T`t+Z `h( `)X`' H  14`v====`xt Jo`==`z= ~ `0 } 14 h G= No HeP ` `'  ` ssI  i@d $` $` $L` Head``%`( X Y' ` ,@ `B@`%  ` kkqi Headi $==i ====I @ i`Pp ` ``%` ,``:`l+(`` ++) $%i!  %`%`2Ge`r of`pied `h99ie neii  %`` ` H%Se%`Per l v `+H`^^@I I 8i p% %@ @  %``"@ `T D` H`)K%iN,8@.@8(@x@"@ PH H `H8x((( 8  ,/rK*\R1*#222*\R0*#1a$*\Rffff*0l4bb872ea @ @H PX`hpx     B           (  8 X ` h >p "         8  H :X  2       0 .8 .h . "       ( 0 H h x "        N`x      @" `hp  (      0 @ P "`     8 X hp x 8   " (0HXh  p       0 @ Ph  p          @P X `p< 2 (8 H (Px"   N`x  "   0 @`"p N & (0 *X  * * $ $  H ` p B      n f` N@PX "` B     " (08@ H (P  6x . "  ( 8Xh  @`   @ `     ! !@!`!!!! !" "@"`"*","(".#&8#`#### ## ## # $ $ ($0$  8$ H$X$ *p$$ $$ $ $ $% %(%H%h%%*%,%(&*0&.`&&&&&&,' @' (P'x'$' '''  ' $' 0' 0(( X( x( (( V( :) H@) 0) T) $* V8*"  *********** * + +  +(+ 8+H+ P+ h+ + + + &+ (,8,  @, P, `, &p,, , ,, , , ,--0- P- `- p-- --- -&.(@.h.p.. . . . ..B/P/h/ p/ / /  / / /  ///"0 (080P0X0 `0  h00200 0 0  0 1  1(1 (01 X1 p1 111  11 11222 0 2 .P2 02"  222222222 23  303 P3  `3  p3 *3  3334$404P4h4  V424.5 H5 `5h5 p5 5 5 5 5 5 &56 (6&86,`66 6  $66 6&7&(7,P77 7 7 7 7  7 ,7 8 *(8 X8 &h8 8 L8 8 9 9 "09X9 p9x9  9 99 9 "9*: 0:8: $@: "h:0: :: : : 6: 4; 6P;B  ;;;;;; ;;;"; < < (<0< H<h<< << "<< <(<=8= X=`= h= Bx= = <=>>  >(> 40> 2h> 4>"  >>>>>???>? X?h??? ?>?.@@@ `@@:@@ @ AAA A F@A 4A A 4A  B$(B$8B @BHBPB`BBBBB0BB B BCC ,C *HC ,xCB  CCC >CDD D(D 8D@D HD XDhD xD D @D&D2E @E XE hEEEE E E F  F0F8FXF`FhF FFFF"FF&F G0G8G@G XGhGxGG"GG GGG,G H & H HHXH`H xHHH"HH HH *H I I(I ,0I `IpIIIII I"II I J J(J " 0J 8JHJ "  PJXJJ J:This module contains the macros for the main control sheet80]]8]]`](]P]]x]]]  H(JjrLanguage$' B!', A@FoHReturns the option setting tOptions B%%!d'iSets the options tOptions B%%!d " " tOptions B%%(dk0o(H B%& )$5(( )$5*( )$5,( )$5.( )$50( )$52( )$54( )$56( ) $ GroupBox178(d ) $ GroupBox278(d )$ GroupBox378(dqp ) $ B%&!:(o@9This macro sets information about the workbook and sheet. B!',.B D!'.ed = ._H'0Language$'Get the user's preferred Lang**(Set Settings = UserForms("Form_Options") /On Error Resume Next ' turn off error checking2Set wbMyAddin = Workbooks(AddIns("Jrnlmcro").Name)LastError = Err.Number%.On Error GoTo 0 ' restore error checkingIf LastError = 0 Then Jrnlmcro.xla is already loaded. Run ("GoToControlPage")9Else E 'Jrnlmcro.xla is not loaded yet. Load it from ActiveWorkbook.Path% SavedPath = CurDir() & "\", WorkbookPath = ActiveWorkbook.Path & "\"Y ChDir (WorkbookPath) ChDrive (WorkbookPath)( Run ("JRNLMCRO.XLA!GotoControlPage") ChDrive (SavedPath) ChDir (SavedPath)%End If1The logfile name is stored in the message catalog  $'  jrnllog.xls'(k 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.p'[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.urce'oP]]]'< > @ D'Das D D @ 'H H > B D'F F H ( > H F H $'<$kki8This macro will add a new journal entry sheet and header(] 8P&(]hA@@ ,$B@ )$'8 )$'L L 8$P$~', H(J$ , Template_H$&RTemplate ,$%LB@^5.( , D(ffdt ,$&R Template_H ,$%LB@^$ ,_H D(Mult ,$LB@NdA@Fk ,$B@o(========================================' Select a Journal Sheet and activate it(========================================]]]Get the number of sheets A@@'V X$Z \ )$9ng  $5("Ap5B@~Screen X5(alse5z5^!z 5`!z  9z \B@D5!5!5%'Vadkq \A@r $dGMsg: "No journal entry sheets exist. Press New to insert a new sheet."H Z$'8 g ^$'6 ( 6@ 8$'t kP Vls)A@Fd0 V ,$%LB@Nw.ko======================= Delete Journal Sheets======================= (]h]]]A@@"Application.ScreenUpdating = False ,$B@ X$Z \ )$9 )$5(5( 25(5B@~ X5( 5z5^!z 5`!z  9zqp \B@D@ \!.  !  %   %'d d_H'f H(h d ,$%LB@& f ,$%LB@ H(h(k \A@rdp 2Msg: "No journal entry sheets exist for deletion." Z$'8 ^$'6 60 8$'k A@Fo ]@Xp ]]]Get the number of sheetsA@@', X$Z \ )$9 )$5( 5( .5^(`# )$5( ,5B@~# X5( 5z5`!z  9zq \B@D \!! \!! \!%'d d_H'f \!^',"N'l% p ,$!L , p! name already exists Y'l k lN ,_H'n ,$B@ Template_H ,$%&R d ,$%LB@^ , D( , ,$%&R f ,$%LB@^ n D( ,$LB@N ,$B@d !Msg: "Sheet name already exists." Z$'8  ^$'6 60 8$'Control ,$%LB@Nk k \A@rdGMsg: "No journal entry sheets exist. Press New to insert a new sheet." Z$'8 ^$'6 6@ 8$'kP ,$B@o8 ]]]] d ,$%LB@N BottomLine$!'nX, n 'n InsertLine D%!'  ' LastLineCol D%!v' DescrCol D%!v'tGActiveSheet.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 IfNext ox]p]]]Get the number of sheets B!L!|'v v  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. v  'x xXHCounter = number of worksheets to skip + number of dialogsheets to skip.   ''z_  ,$%L! z+X <skip the next sheet because it's the associated header sheet 2  ' z 'z  v 'Zd'Zki]8 ]p ] A@@"Application.ScreenUpdating = False/Set LstBox = Dlgsheet.ListBoxes("LangPrefList")'With Dlgsheet.ListBoxes("LangPrefList") .List = Array("English")  .MultiSelect = 1 End WithBuild_LangArray (haha)  English+  *$9  *$5(9 *$5( *$5( , *$5(9 *$5( *$5(  $5(X:  $5B( * $5"( * $5$(p; * $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.d  )$9  $5(  $5B( Import_URL$5( Import_UserID$5(v  $5(9UserID  $5(9Passwordq B@D H(J ! d!   ! !Ak` A@r dB@N $B@HSELECTEDKT X$Z \ IMPORT )$9 )$5(5(5(5`(5z5^!z 9z5`!|5^!z 5`(|  $5`( Import_URL$5( Import_UserID$5(v  $5(AUserID  $5(APasswordd )$9 )$5(5(5(5(5^( )$5( H!\ , ,.$xml9^5z5`!z  9zk5B@~ X5(qh \B@D \!. H(J IMPORT'  !  % $' \!^ kk  !  %  %   \! \!Ak(  \A@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@r 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$;'. (&  %(.POST  B@ content-type!application/x-www-form-urlencoded B@*accept text/xml/html B@*accept-charsetutf-8, iso_8859-1 B@* ! B@, !.' ""$' <<$' >>$' &&$'  %(error %0.' !2'imported %0.''T  !2  , 'kX9 T 'T   %4!d'9 P T$6$ 'updated %0.''T  !2  , 'k8 T 'T   %4!d'@8   8'k8  P T$6$ 'd7Application Error message foundh''  !2   8'k`7   %4!d'07k(7d 7 #Error loading response XML documentg'k6d6%Error loading the source XML documentf' !:!<  'kh6z`6$X6 >!@ >!@' >!B Import_URL$'d6 Unknown errore'k5i5H FB@Do5*The following error occurred in procedure N:   J!B  Error #:  J!@PERROR8A@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 IfFunc     $ !"#%WV()*9,-./012345678':;<=>?@ABCDEFGHIJKLMNOPQRSTU\lYZ[]g_`abcdefXhijkmnopqrstvwxyz{|}~tio '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_4__SRP_5 UmLogFunctions/I__SRP_6mhrU~|       rU ,$`,`90,`9/0$`$!`8I` )000&$q`$`$`$ `( `A(9 `ao$a `, `/0<`00&/04`1A=&0` YA00&0)` q//0$Q`4y`=0 n$h xME (0V( P(NX( (( (( (<) @)2H) ) )) )2) :* @*H* `*h* *"* *<* *+ 0+8+@+H+`+h+x+xp] ] MsgSet 1 - 9 Common# 10 - 39 Journal Editting 14+ 40 - 69 Import Control / Options 70 - 79 Helpe 80 - 89 Log 90 - KTCopy'$KTDelete' KT Copy Journal' KTSelect Journal' KTDelete Journal'GeKTEdit Journal Header'KTChange Import Status'KTImport'KT Do Not Import'KT"Journals (Unit, Journal ID, Date):'KTNew Journal Identifiers'KTBusiness Unit:'KT Journal ID:'KT Journal Date:'KTImport Control'KTUser ID:'KT Password:'SMessage not found: ( X, X).'n KT :*** Form_AddDelLines - Add / Delete multiple journal lines KTInsert Multiple Lines't KTDelete Block of Lines'$KTInsert'mKTDelete'heKTCancel'rr KT From Line:'% KTTo Line:' KTNumber of Lines'KTCopy data from line'%SMessage not found: ( X, X).'B@`n)KT )*** Form_SelectSheet and Homepage buttons KT Setting(s)'nKTNotes'ttKTNew'KTEdit'$7KTDelete'KTCopy'r thKT Import Now'X KT Write File' KTGo Home' KTYes'. KTNo'"Ra KTGeneral' KTJournal Sheets' (KTImport Journals'KTNew Journal Sheet'e perfKTEdit Journal Sheet'ionaliKTDelete Journal Sheets'm KTCopy Journal Sheet' done KTImport Journals Now'KTWrite Journals to File'KT Select Sheet:' KT File name:' existKTNew Journal Sheet Name:'KTFile already exist',$KTOverwrite the existing file?'d SXMessage not found: ( X, X).' ,n*KT *** Form_Options KTDefine Options and Defaults'SheeKTHeader Defaults'KTGeneral Options'KTMessage Options'KTDocument Sequencing'KTOnline Import Control'KTAfter successful import' KTBusiness Unit:'sh KTDate:' KT Ledger Group:'KTSource:'KTUser ID:'KTEnable Multibook'KT AutoGen Lines'%KT Language:'Line$KTLog Error Message only'seKT Log Successful and Error Message'KTDisplay Messages Online'KTEnable Document Sequencing'Range(KTDefault Document Type:'asKTAddesss:'KT%Change import status to Do Not Import'n KTKeep import status as Import'ase(KTUnicode'S Message not found: ( X, X).' Cen8 FKT Help text KT caption" Journal Entry Help'Cel.VaKTJTo 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.'ofSMessage not found: ( X, X).'%nPKT Log text KT Imported  journals: ' 2KTUpdated  journals: 'KTsuccessfully imported.'SMessage not found: ( X, X).'tingnZKT-90-99 for Error/Warning Messages related text'Wi KT Error Message Title Data Entry Alert'KT.The date you have entered is not a valid date.'BuKT2This is not a secured web address. Use it anyway?' KT This is not a valid web address.'SXMessage not found: ( X, X).' ,n[KT Header related error messages( 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.' KT9Please enter a date for the user specified reversal date.'KTBNo headers found. Click the Insert button to create a new header.' >KT"There is no journal on this sheet.' KT)There is no journal header on this sheet.' KTThere are no journals to delete'KTGOne or more of the following required fields is blank: Business Unit, LJournal ID, Journal Date. Please make sure all these fields contain values.'H?KT*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.' KT*Imbedded quotes not allowed on Journal ID.'0ASXMessage not found: ( X, X).'An\KT Line related error messages  KTPYou have not selected a journal header. Please Insert or Select a header first.'KTNThe line you wanted to delete does not belong to the displayed journal header.& Click OK to delete this line anyway.'KT3The row you wanted to delete is not a journal line.'KTInsert Journal Line'KTDelete Journal Line'KT-There are no lines in this journal to delete.'KT<The From Line you specified does not exist for this journal.'KT;The To Line you specified does not exist for this journal.' KTTo Line is less than From Line.' KT0You have etered an invalid From Line or To Line.'SMessage not found: ( X, X).'n]KT% Line Checking related error messages KTAThe amount in the selected cell contains too many integers. The maximum allowed is 'KTAThe amount in the selected cell contains too many decimals. The maximum allowed is 'KTAThe amount in the selected cell contains to many integers and/or 0decimals. The maximum length for this field is 'KTGInvalid data type. The contents of the selected cell should be numeric.'SMessage not found: ( X, X).'n@^KT! Worksheet related error messages KTNo journals exist.'KTGA journal must be selected when the 'Change Specified Journal' option is selected.'KT<You must enter a valid name for the journal entry worksheet.'KTSheet name already exists.'KT+Sheet name must be less than 30 characters.'KT@No journal entry sheets exist. Press New to insert a new sheet.'KT'No journal entry sheet exist to delete.'KTNo sheets exist to copy.'SMessage not found: ( X, X).'n_KT( Real-Time Import related error messages KT titleJournal Import'KT)No journal entry sheets exist for import.'KT6Import error: unable to import journal lines on sheet'KTEImport error: unable to import journal headers associated with sheet'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  ReDim 1'B+Size $}English}End @' C+F;Geto(n,D~y,\jparam1ASng  ǝ.ProcDataInvok e_A \n14&AASelec@yA >C"0, "D M  E 1A 'Ġly shared text/mD !> ;5in progr@...pse wai\t.0AB2YSPave 3 ReadyElseDd not found: (" & C(C0r)",@() Q>g!9"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!(v (no@ !v ( ( &( (( $~998 (vkXdP (v (v ( ( &( ((koN'' (oB'' (opE'' (o8@X'' (oD' (o' B@o]@]X]p] $P' $V' $~ $~ $~ $~ $~ $~MessRequired fields are blank. [$  !$' $~$LNEXTeand NEXT Journal ID not supportedOK' [ $  !$' e [$  !$' e [ $  !$'  $~eKT+Fiscal Year is required for Adjusting Entry'Ge 819-0000-0000-C000-000000000046}@(%@0rK xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 LgꈺxME(SPSSS0{C854244D-3CA8-47C3-93DC-9D53992C0258}{C1AFD64D-663A-494E-AC6E-736FC2AD518A} X`Yk % %XXrK  "$ @PX "`h px]@ $~ $~YT B@8Mkk(o X' B@IdFoxpAttribute VB_Name = "Form_Import@Now" Bas0{C854244D-3CA8-47C3-93DC-9D53992C0258}{C1AFD6J663A-494E-AC6E-736FC2A@D518A} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizDOption 0licit  P"& Sub ButtonOK_Ck() Dim i As Integ er If@ Trim(_UserID) <> "" An"dPwd Then " .Hid E@If  %S)CancelG*#ApRFLO ꟡Form_AddDelLines"uForm_SelectHeader$o Form_Options / Form_SelectSheet"xME(SPSSS0{5752417A-BB2A-4311-B971-9C7FBFEF0FE1}{AA615079-7252-4452-B0CC-F68B682EE670} `jn%`Mk` x   `Q `"x% %  Sx rK3 "  (86@ ,x ( $ (@ P (p    "  " (@X` "hpx x]@]X]p r!' $~ $~ $~y %Required Journal key fields are blank [$  r!$' $~$LNEXTe NEXT Journal ID not supported [ $  r!$' $re Invalid Journal Date Z$  r!$'d`'kPdH'k8  B@koA B@Lo]  !  ,o ]`  !  ,PoH@Attribute VB_Name = "Form_SelectHeader" " Bas0{5752417A-BB2A-4311-B971-9C7FBFEF0FE1}{AA615079-7@252-44B0CC-F68B682EE670} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit P"& Sub ButtonOK_Ck() Dim tmpDAs&  i In tegerDone Boolean- If FrCopyJournal.VisiThe = nafced(i - 1X.Nex@zeH$p$eHLO(xME(SPSSS0{FAA71AF7-EA18-4399-9548-D4B1D2C26F22}{89FB0FB1-576F-4811-B3AF-B746FFD70B35}p p`d'`j& LKqxME(SPSSS0{752A9D94-8712-43A2-BD02-AEC02A63A839}{A4260778-9A64-4D89-A181-9555BB38C4CE} @ %%` `(  0  p% %@0p0rK\ "   8Xx    8 H Xhp "     0H PX` h@ . (  8 (X 4 ( 2 (Hp x   "   " 0 8 HX` "hp x   x ! Insert mode  $ (Yk  $ (U)y  $ ( ( (  $ ( d  Delete mode  $ (  $ (()p (p ( (Qk  $ B(  $ (  $ (o(@]] !9 Insert Modey:'' $' $p n Line'kkd Delete ModeKT' $~ $~ $ $ (MSG= Empty or Invalid FromLine or ToLineat \ $  !$' $p $p e MSG= FromLine > ToLine' \ $  !$' $p$e -MSG= FromLine does not exist for this journalion: \$  !$' $p$e +MSG= ToLine does not exist for this journal \$  !$'d'kxkp  B@KTkPoH'''' (vKT B@$o !vT (ournald (Sele (vko0' $Edit  der $p $p  'k@k8o0(MAttribute VB_Name = "Form_AddDelLines"  Bas0{752A9D94-8712-43A2-BD02-AEC02A63A839}{A4260778-9A64-4D89-A181-9555BB38C4CE} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizDOption 0licit P"& Sub Userctiv () If HowMany .VisinTh en' Int modg #.Ca@= GetMsg(Lang, 135 ButtonOK 3 Label1Z From.EnGHZ ToCopyDy4D(EB' @eJ2>J" Jq= Ę'F6VSourceGEnd IfÆC'CanceZlJ5D4B'2*1I3Z$`[A]])E'_Caka]Dim Done As Boolea `\i!Intexger#cbMbb N/ IsNum{c(m) m#4Val'> 0! cei4_aUU > Trim(k) `" OrjNot KO!'MSG= Empty orvalid|a75iBo$x(921)@, vbExma, DQ"(|s3'> 5 > 9%doAxM_Exist(!&4Kc.does n@9e f0this jnal/a7 *pϿ T E    $lq 8 #sp<;:nVR2HiEzqTR [WRA= 0dH6wc7falu("L.c ] @nQ-om` S[Qt9 "0 1 !r iH_ChБeEU b\ 0Eeob G =JU) +) - .1S b  %H  %p PrK)  " 8 HCompObjpi34%1+ n``fo*,      !"#$%&'()*+,-./012356789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijlmnopqrstuvwxyz{|~` $2  (8` hx "   "      0 @ P` px]@]X !v$' $r Invalid Date $http://eAWARNING: Unsecured web access Z$   !$  B@(?k $https://eERROR: Invaid web address Z$  !$'d B@Zkoxp B@` B@PoH B@ B@Template$LB@N DB@ $!tB@H H(J FB@D FB@ FA@ro.Attribute VB_Name = "Form_Options" Bas0{FAA71AF7-EA18-4399-9548-D4B1D2C26F22}{89FB0FB1-576F-4811-B3AF-B746FFD@70B35} 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'NUnloLadW ) 0* pHdJrnlmcro+4Library file for Spreadsheet Journal Import@V`ibray fle o Spe! dshetJounlIm)3tY=Form_CustomizeCF"/_VBA_PROJECTp2dir__SRP_04 ! $(   $(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 !tB@ %JB@F H(bRelocateChkBox (A@k( %JB@HA@o !v LastLineCol$!v !vA@d !tB@ %JB@F H(bRelocateChkBox (A@k@ %JB@HA@oP] !tB@F ( !. (z (P (| ! ! !   ( NewChkBox (A@A@ (vo(])Do you really want to delete this column?   $ !tB@ 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   ( ( ( (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$!@KTL xME(SPSSS0{0D6FDF59-335E-40A1-88F8-1C0DDD49F037}{CA058592-7A30-4AB5-88DF-30E50590148B}@ @ ))@ `L`  `` `xist% %@``rKN  "0 P`   "    "( Phx V$ @PX` hp x  (  (0 X` hpx   "  " " (0H`h xx  $ B(' )$ ( In !  $ (eA  $ (  (dH  (k0o(@]]' ^!https:' !R: Inv ACTION= Write Journal Sheets  ^$~ ^$~'Z $~p'd`File already exists  )$   ^!v  )$'L L   \!$  ^A@'kkkd ACTION= Copy Journal Sheet ^$~Empty target sheet name ^$  \!$' ^$~eSheet name too long ^$  \!$'d'kkk  \B@k`oXA \B@o0]H  !  ,o`]  !  ,o6Attribute VB_Name = "Form_SelectSheet"  Bas0{0D6FDF59-335E-40A1-88F8-1C0DDD49F037}{CA058592-7A30-4AB5JDF-30E50590148B} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD O@ption 2licit P$( Sub UserActiv () ButtonCanc el.Ca"= GetMsg(Lang, 12, 2LabelR1417If .All.VisiOThenoCG3 N(one+4H ListBox1.M0ultiChfmExtendezd&EAS0ingl{ End If @^b bDOK_ C@jkaDim t, Mesg As S@ng AiIntegerAD@FZTargetZ DA D ]h 'ACTION= Wri@Journal ssADTrim(#) <> "" }aADirk a a) ?"e:)'Fizal@|dy exF3cA^30) & vbCrLf_ "a"6alue*s1]_B`'`x`_(,Ques„+YesNo, sj-vb7% Kill C:3! f m/;VCopy UkKL'Empty tl s niT/594,H 3)0Ex@m>aA10+ Len()l) >= 4304'bt too lo,5&F+q ^tT#E,HidoYqTOYcpYCa-SRagC _@xV/^1 A1 To hCou>n}A1smed(i - 1,ANex X  h[gaO QuO  O g^ 'GeneralKT'$!KT' S' (vA@no $B@H DB@Control$LB@N FB@ FA@ro( Attribute VB_Name = "Form_CustomizeCF"  Bas0{56D126C9-13E9-4FB9-B5F5-A87260C0573E}{250E6A12-E1F0-4911-9581-3F1B65C7E5F1} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDe8rivDOp tion 0licit Dim Cbox AsP tX ${xMEPSPSSS<<<<0{56D126C9-13E9-4FB9-B5F5-A87260C0573E}{250E6A12-E1F0-4911-9581-3F1B65C7E5F1}PMk% `  % Pia`p`8    P @ % (  % h  @ @ ` ```     `  "" %  ph@%p %" `` h(PP` @prK "( "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$6$~ (xpoh] ]8 R1=Field nameS $!v'  $!v $(v   $(vR7=Field labelp $!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;mIBA6# 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`BeginRow3List1 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_InsertAdd_LineD ActiveWindow+ ScrollRow"a  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.6#0#C:\Program Files\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\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{D9FCFE3B-3DBD-4110-AB0D-CB11CDB24360}#2.0#0#C:\Users\dwarf\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{F5078F18-C551-11D3-89B9-0000F81FE221}#3.0#0#C:\Windows\System32\msxml3.dll#Microsoft XML, v3.0   VLibrary file for Spreadsheet Journal ImportrK   mJournalEntry0k4bb872eamJournalEntry mImportControl0l4bb872eamImportControl7mLogFunctions0m4bb872eaRmLogFunctions0 mMessages0n4bb872ea~mMessagesHFForm_JrnlHeader0[4bb872e8Form_JrnlHeader`E Sheet10]4bb872e8 Sheet1x9ThisWorkbook0^4bb872e8ThisWorkbook9Form_ImportNow0_4bb872e8Form_ImportNowm Form_AddDelLines0`4bb872e8 Form_AddDelLinesqQ"Form_SelectHeader0a4bb872e8"Form_SelectHeaderU Form_Options0b4bb872e8Form_Options( Form_SelectSheet0c4bb872e8] Form_SelectSheet Form_CustomizeCF0d4bb872e8G Form_CustomizeCF{ $@x HBmdiI':77G0qR'rCBU@jQ@vzZ0i1tFHJCounter2OutfileUsrIDPwdByte1DisplayStatusBar 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_Defaultj(MSXML2O# $! $] G   S#%&T"@MP@@ @@@   rK % <9stdole> s5d4EI >^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\22.tlb#OLE AutomationEMSForms>FFrus3 ED452EE1-E08F-101A-8-02608C4 D0BB4EFM20.DLL#Misoft B @/ ObjecDt Dv/;"1?@:@@00}#0@# 5h0 AD9FCFE3B-3DBD-4110-AB0D-CB11CDB24 36@FYUsers\dwarf\AppData\Local\Temp\VBE\DTp.exd;!.E .`M ƁÊMSXML2ÊMgXML2 l bA1F5078F18-C551-11D3-89B9IF81FE22P1}#3͊SŊmsxml3.dll,, v E D mEntryG DmEnry@  2\H1j` ",1!"AJYmÀCo olG! mIxVC\Co)237 LogFunc!rs%'"L@gFnc&iBs%'I%'SU/ ? (mMessageV@Ne@sgg2/ZF?@_!HрerG>"m_Kr`JlBöe2"<+LE"q(LSa1GS1@6M2o#9 aThisWorkbookGTi4WErko k 2 l5mNowcm_jnN w w_6_r`0S m? R AddDelLin- Q o_AdD .l0Vi &a/2)) QP*Kq  xSelr0GS eBHa 0der2F U  W1'OpM1*' OPtPoDo3* P(q:6 ;G| <8 =  f_  X+CusЛizeCF- CbQomiz@ CR   ${ K*rU~~~~~~~~ ~~~M 3EG%.k6    I  1 Y y  9 a  9 Y y 1   ) Q y )Ii!9Y yh1Q  y1Q y Aii mJournalEntrymImportControl mLogFunctions mMessagesForm_JrnlHeaderSheet1 ThisWorkbookForm_ImportNowForm_AddDelLinesForm_SelectHeader Form_OptionsForm_SelectSheetForm_CustomizeCFJrnlmcroF@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA  0F4C:\Program Files\Microsoft Office\Office12\EXCEL.EXEExcel 1@0FC:\Windows\system32\stdole2.tlbstdole AP.E .`M C:\Windows\system32\FM20.DLLMSForms !i`;ٽ=A ͲC` 1C:\Users\dwarf\AppData\Local\Temp\VBE\MSForms.exd ipQ!OpenLogC:\Windows\System32\msxml3.dllMSXML2  QGetSheetGotoControlPage 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  $,InitOptions Save_OptionSet_Homepage_Labels StringBetween JrnlSheet_NewJrnlSheet_SelectJrnlSheet_DeleteJrnlSheet_Copy FormatJournal ListArray Set_OptionsImport_Journals Import_SheetRow2XMLFF Generate_XMLsendXML CustomizeCFgenericErrorHandlerfĤIx8< ((, F AddLogEntryWorkbookIsOpen Build_LangArrayGetMsgerU~~~y a    +Library file for Spreadsheet Journal Import 14TextDtextDsepDorderEdBoxThis macro inserts headersh 14R__SRP_1kzForm_ImportNow@uf}o owNumHdrSheet 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 TargetNumNewText SourceString BeforeString AfterStringCompareSelSheet SheetListHowManymode LineSheetOutfileUsrIDPwd SelindentXMLtextstrXML strResponsestrURL objErr strProcName  ( LogFileName CurSheetNameStatusMessageBookName LangArrayLangMsgSetMsgNumparam1(H  @7}(R KQDBTahomaDs(74ButtonOK(OK<uTahomal(TahomaeH(O,5Tahomae( Fiscal Year:5Tahomae$4LedGrpmeg +$8Ledgermeg (2DSourcemeg V $4UserIDmeg ( 4 JrnlClassar:g $ 4 IUtranCDg $ 8DocTypeD,$+$ 8DocSeCancell<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" ClientHeight = 1290 ClientLeft = 45 ClienCompObj!aVBFrame9Form_JrnlHeader $fqeD,$(2@Label4eD(28Label5eDE(28Label6eD (28Label7eDp (2@ Label8eD(2D Label9eD(2@ Label10D(2@Label11DE$4AdjTypeD,$V ( 4AcctgPeriod:-(2@Label12D $XAutoGenD $ XAdjEntry, !28Label13APod:(( "#CurrencyBox:( '#ReversalBox:(-2<Label18y"$.4Descr254g "$/4ButtonOK/( 08ButtonCancel/ ( 54FiscalYearel$#, 62<Label13FYrel o#)i12' n``fDo&(\ &#2%&'()*+,-./01"3456789:;<=>?@ABCDEFGHIJKLMNOPQRTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~o79CompObjpi126>< n``fCompObjpCompObj-2aVBFrame5Form_SelectHeader$5, ;8ButtonCancel04$ \CopyData , 14SourceLineel  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_AddDelLines Caption = "Add / Delete Multiple Lines" ClientHeight = 1845 ClientLeft = 45 CtTop = 330 ClientWidth = 5880 StartUpPosition = 1 'CenterOwner TypeInfoVer = 55 End (H  6@r}6$R KQDBTahoma0$ #KeyFrame n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(,5TahomaOKH(D,5TahomaOKH(E,5TahomaOK(Unit:aOK5TahomaOK( Journal ID:5TahomaOK ( Journal Date:<5TahomaOK(H  }5r$8BusUnitK$8JrnlIDtK$8JrnlDateq,( 28Label1te  (2<Label2te (2@Label3te#  H(E,5TahomateH(E,5Tahomate @H(O,UPLo7 @TahomateH( ,5TahomateH(E,5TahomateH(,5TahomateH(,5Tahobedded ObjectForms.Frame.19qH(O,5Tahoma:H(D,5Tahoma:H(,5Tahoma:H( ,5Tahoma:$(Foreign Currency:onM 5Tahoma: (Effective Date::M 5Tahoma:( Rate Type:DaM 5Tahoma: (Exchange Rate:::M 5 Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_JrnlHeader Caption = "Edit Journal Header" ClientHeight = 5355 ClientLeft = 45 ClientTop = 330 ClientWidth = 7950 StartUpPosition = 1 'CenterOwner TypeInfoVer = 114 End op$  2} !R KQDBo;=XCompObjpCompObj?%aVBFrame'8::5TahomaD:H(,5TahomaD:H(O,5TahomaD: (Adjustment Type:M 5TahomaD:8F 1AutoGen Linespe:5Tahoma8F 0Adjusting Entry:5Tahoma(Period:5Tahoma:( n``Microsoft Forms 2.0 FrameEmTahoma:DH  & }Ag Currency InformationR KQDBTahomaTh$4ForrCurr $4CurEffdt $4RTtypedt $4RateMult E(#2DLabel14t  ($2@Label15t (%2<Label16t 4(&2@Label17t VBFrameE=Form_OptionsT00fJoJLb  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8FE0NoneReversal5TahomaLF0veBeginning of Next PeriodReversal5TahomaHFU 0veEnd of Next PeriodPeReversal5Tahoma<F0veNext DayReversal5TahomaH(E,5TahomaDFh 0veSpecified DateReversal5TahomaH(,5Tahoma8H  4}g ReversalR KQDBTahomape0 (XButton_NoneNutt 4)lButton_BeginNextButt 4*hButton_EndNextxtEutt 4+\Button_NextDayxtXutt $,4RevDate^ 41dButton_SpecifyxtDutt , 414ReversalCode  Description:35TahomaeH(W),5Tahomae(OKho<uTahomae(Cancele<u_BoxS$/4ButtonOK1 ( 08ButtonCancel1"0A#HeaderDefaults_Box ,I#MessageLog_BoxoxS( M#DocSeq_Box_BSV ( O#General_BoxB 0X<Button_CustomizeCF1M   Microsoft Forms 2.0 FormEmbedded Object9qfo4:\i068 n``f 14ButtonAllcelM , 14ButtonNoneelg 0!FrameImportStatus, !FrameCopyJournal( 2TLabel1OK $4ListBox1 Microsoft Forms 2.0 FormEmbedded Object9q VERSION 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 p$  !}% R KQDBTahoma4(2@Label1 (Number of Lines: 5Tahomax1H,=,uTahomax1(i65K\V n``00froUWfCompObjdpForm_AddDelLines""fB0f,oAG.pi08E n``Tahomaxm(74ButtonOK(OKtt<uTahomaOK(CancelOK<uTahomaOK(Allo<uTahomaOK(None<uTahomaOK4("Journals (Unit, Journal ID, Date n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q0Fh0veImportal5i77Xd^ n``00f o]_CompObjpTahoma8F 0poDo Not Import5TahomaDH  }Change Import StatusR KQDBTahomado,PButtonImportYES ,XButtonImportNOS   n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(,5TahomaH(E,5TahomaH(E,5Tahoma (Business Unit:S 5Tahoma( Journal ID:i 5Tahoma ( Journal Date::S 5TahomaHH  } New Journal IdentifiersdR KQDBTahomar$ 4BusUnit $ 4JrnlIDt $4JrnlDate 4(2@Label2te (2<Label3te (2@Label4te 4 ):5Tahomate`[25Tahomate, ;8ButtonCancel*, f6oDF2CompObj0pCompObjCHCaCompObj`eaVBFrame.Form_SelectSheet"o3h00f n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH,=,uTahomax1H,=,uTahomax1( From Line:Li5Tahomax1(To Line:5Tahomae:(H  }4o$4FromLineV $4ToLineneVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_Options Caption = "General Options" ClientHeight = 4815 ClientLeft = 45 ClientTop = 330 ClientWidth = 8325 StartUpPosition = 1 'CenterOwner TypeInfoVer = 291 End $  %}R KQDBTahoma (74ButtonOK (OKtt<uTahomaOK((V (2<Label2ne (28Label3neOKo<uTahomae:(Cancele:<uTahomae:<F {0beCopy data from line5TahomaH,=,uTahoma$4HowMany $#Frame1y( 74ButtonOK0i12N n``00fRmoMONi39PR n``00i73Z n``00f oY[HCompObj}pCompObjLpf^oQSZCompObjXpi79b n``00foacCompObjp     !"#$&()*+->/:1345789;<=?@ABDFGHIKMOPQSTUVWY[\]_`aceghijklmnopqstuvwxyz{|~lientTop = 330 ClientWidth = 4230 StartUpPosition = 1 'CenterOwner TypeInfoVer = 33 End (H  Y@#}\9-!R KQDBTahoma|f0 #ImportControl n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8@H(,http:///xmllink/5Tahomata(Address:+5Tahomas:H( ,5Tahomas:(User ID:+5TahomaD:HH  H} Online Import ControlsdR KQDBTahomam( CXImport_URLel< (E28Label41 , G4Import_UserIDnal<(H28Label42 ",'#ImportStatus_Box 4  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q`F' 0beChange import status to Do Not ImportedImportStatus5TahomaTF 1beKeep import status as ImportImportStatus5TahomaDH 4}l4After successful importto4(ChangeStatus_YES(14TargetOK (08Label2OK$ 1LDonex( ! OnlineFramel$4ListBox1 { Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_SelectSheet Caption = "Select Journal SheetSheet"VBFrameh;PROJECTwmIm0PROJECTvSummaryInformation(Nhan 4)tChangeStatus_NOSBhan  (OKbe<uTahoma2(Cancel2<uTahoma2( Configur n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(,5Tahoma2 (Business Unit:sS5Tahoma2H(E,5Tahoma2 @H(O,UPLo7 @Tahoma2H( ,5Tahoma2(User ID:5TahomaD:H(E,5TahomaD:(Date:aD:5TahomaD: ( Ledger Group:5TahomaD:(Source::5Tahoma::8F 0beEnable Multibook5Tahoma8F 1beAutoGen Linesook5Tahoma@H  >}AHeader DefaultsSR KQDBTahoma ( 8Def_BusUniteV (<2@Label11  ( 4Def_LedGrpteV , 62DDef_SourceteV E( 74 Def_UserIDteV (828Label15 ^ $VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_CustomizeCF Caption = "Chartfield configuration" ClientHeight = 3285 ClientLeft = 45 ClientTop = 330 ClientWidth = 4125 StartUpPosition = 1 'CenterOwner TypeInfoVer = 298 End mJournalEntrymJournalEntrymImportControlmImportControlmLogFunctionsmLogFunctionsmMessagesmMessagesThisWorkbookThisWorkbo8Def_DateV (;28Label12e (=2@Label13e 4(>28Label14e , X MultiBook_Enable p ( X Def_AutoGenn   n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qPF 1beLog Error Messagfopi49tpFz?a00f2    1!  "#$%&'()*+,-./03e onlysdLogMessageMe5TahomaXF 0beLog Successful and Error MessageLogMessagesf5Tahoma@F1beDisplay Error Messagessd5Tahoma@H  L}AMessage OptionseR KQDBTahomao,JpLog_ErrorsOnlyse ,KxLog_Allosvi51x~i*WJO00i52uwzi*WJO00CompObjsMessagese ( L`Display_Mesg +  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qDF0beEnable Document Sequencing5TahomaH(,5Tahoma((Default Document Type:sd 5Tahomaogmi10k n``00fUojl0DH  B}ADocument SequencingR KQDBTahomao, BdDocSeq_Enablese ( 8Def_DocTypel(2HLabel31e  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q( Language:pti5Tahoma0F)0beUnicodel5Tahoma`p 5Tahoma@H  Y}A_ General OptionseR KQDBTahomao(S2<Label21l (Y1PUnicodel 4$W4LangList  ate.<uTahomaokSheet1Sheet1Form_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_SelectHeader BaseClass=Form_AddDelLines BaseClass=Form_Options BaseClass=Form_SelectSheet BaseClass=Form_CustomizeCF HelpFile="" Name="Jrnlmcro" HelpContextID="0" Description="Library file for Spreadsheet Journal Import" VersionCompatible32="393222000" CMG="080AC3D1C7D1C7D1C7D1C7" DPB="1012DBDCDCDCDCDC" GC="181AD3E4D4ECompObjpCompObjinaVBFrame;Form_CustomizeCF"q0zbedded ObjectForms.Frame.19q(User ID:<5TahomaD:( Password:por<5TahomaD:H(,5TahomaD:H(*,5TahomaD:0(http://jtam033100/xmllink/ps/[5TahomaD:@H   }M Online ImportseR KQDBTahomas(4D41B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] mJournalEntry=0, 0, 0, 0, C mImportControl=176, 176, 1136, 833, Z mLogFunctions=0, 0, 0, 0, C mMessages=0, 0, 0, 0, C ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Form_ImportNow=0, 0, 0, 0, C, 44, 44, 1004, 701, C Form_JrnlHeader=0, 0, 0, 0, C, 22, 22, 982, 679, C Form_SelectHeader=0, 0, 0, 0, C, 88, 88, 1048, 745, C Form_AddDelLines=0, 0, 0, 0, C, 66, 66, 1026, 723, C Form_Options=0Select Journal Sheet:g 5TahomaOK(CancelOK<uTahomaOK(Allo<uTahomaOK(None<uTahomaOKH(,5TahomaOK(Label:OK 5TahomaOK,F0ngDone5Tahoma`2 5 n``Microsoft Forms 2.0 FrameEm28Label3D: (2<Label4D: 4, 4Import_UserIDxox( 8Import_PwdrI, 2PImport_URLrI TahomaD:(2HLabel1OK , ;8ButtonCancel", 14ButtonAllcelE, 14ButtonNoneel^ x0fDoy{i46| n``00e Root Entry Fm*v i0sWorkbook;_VBA_PROJECT_CUR"ظVBAIu ClientHeight = 4200 ClientLeft = 45 ClientTop = 330 ClientWidth = 4185 StartUpPosition = 1 'CenterOwner TypeInfoVer = 37 End (H  8@*}lR KQDBTahoma0( 1#9MultiPage1 234 pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19qCompObjnf`o}i21 n``00CompObjnf!o CompObjpp1dColumnel Field FormatTab3Tab45Tahomab4$H 8Y}dpe2$3#Page1ale5,$4!Page2ale5,  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qH( ,5Tahomab4( Field name:15Tahomab4(Applyab4uTahomab4H( ,5Tahomab4(Label:b45Tahomab4$H 68}Tm$(4FldNameeE (*2<Label3ee( 8Fmt_Applyttm$)4FldLabelE(+28Label4el#( .#FrameFormatm4  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q,R KQltBM6( f\-o CompObjpCompObjrfa    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdgijklnopqrstuwxyz{|}~uTahomab4 (Select Column:at5Tahomab4(ExituTahomab4,R KQltBM6( uTahomab4$H 8}T H 6SelectRightmo Select column on the right(2@Label1b4( #FrameColumnm4( 4Button_ExitmH 86SelectLefttm Select column on the leftt  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q<F 0TextCellFormatl5Tahoma<F 0xtDateCellFormatl5Tahoma@F 0teNumber1eCellFormatl5Tahoma@F 0mbCurrencyCellFormatl5Tahoma8F 0rr1000 Separator5Tahoma (Decimal places: 5Tahoma@H(,2rr7 @Tahoma@F 0rrGeneraleCellFormatac5Tahoma8H  6}g Formatb4R 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( uTahomab4(Width:b45Tahomab4,,R KQltBM6( uTahomab4,R KQltvBMv6( @uTahomab4,R KQltvBMv6( @uTahomab4,R KQlt>BM>6( uTahomab4,R KQlt BM 6( uTahomab48H  7)}DColumnb4R KQDBTahomae0 2 WideWider column(28Label2b4 8 2Narrowb4Narrower columneD ShiftLeftcolShift column to the leftH ShiftRightolShift column to the right< ! DeleteCOLtol#Delete column,@ VInsertCOLlum Insert new columnhe    Microsoft Forms 2.0 FormEmbedded Object9q, 0, 0, 0, C, 110, 110, 1070, 767, C Form_SelectSheet=0, 0, 0, 0, C, 132, 132, 1092, 789, C Form_CustomizeCF=0, 0, 0, 0, C, 154, 154, 1114, 811, C Oh+'0|8@ P \ htdwarf@?@b;R @qK՜.+,0HP X`hp x DocumentSummaryInformation8CompObjr Sheet1  Worksheets F&Microsoft Office Excel 2003 WorksheetBiff8Excel.Sheet.89q