ࡱ>  !dCompObjBpi39-53 n``````f`o24VTo;=CompObjpi12:B@ n```!`!f  Worksheet"&Tools&WindowChart"&Tools&Window(Visual Basic Module"&Tools&Window\p Nicci Strandtems Ba=   ThisWorkbook=4&<X@"1Arial1Arial1Arial1Arial1Arial1Arial1* MS Sans Serif1* MS Sans Serif1h9Cambria1,9Arial19Arial19Arial1:Arial1Arial1Arial1>Arial1?Arial1 Arial1 Arial1 Arial1 Arial1Arial1Arial1 Arial1Arial"$"#,##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-@! NvsLayoutTypeM3gccBĘ7ɹq1  1  dMbP?_*+%&?'?(?)?"Ę7??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!&O__SRP_4__SRP_5 qmImportControlY   !"#$%&(*+,./023456789:;<=>?@BCDEFGHIJKLMNOPRSTUVWXYZ[\]^_`abcdefghijklmopqrstuvwxyz{|}~*\R1*#336*\R1*#337*\R1*#10d*\R1*#fc*\R1*#116*\R1*#101*\R1*#6d*\R0*#f*\R0*#13*\R0*#14*\R0*#10*\R1*#117$*\Rffff*0S4b1a556e$*\Rffff*0W4b1a5571*\R0*#1$*\Rffff*0r4b1a5585*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\R0*#1e*\R0*#1d*\R1*#220*\R1*#109*\R1*#46*\R1*#5f*\R1*#91*\R1*#109*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\R3*#3719M@xME < f<> LLLLL "LL PLLLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<<<+@-B PB"B&@*  @, @00 @4@ @6X$ @:, @>4 @@8@ % DP`8!dk  J``k ++T `  6id`V`X+Z `k` ''Gi\ I^ I` `bx`d(v`fp`hl+p`xk` 33nir `\t`hp`^l`fh``f  ` PP@( `@ `.@  ` % ``   `   ` ` 0i h% %`+ `8"k i^ )@odulacros fo ( ``xe) s`b"v epnumb% lH `k ))+ x( Her of in `vH t ` T@ and@. @v tor @x `Bnds @( ser @z @| `h  ]x @ !  '4%@~ s ar` fie+ `*k@  33) x  theo `  ` UU@ ----` for  ----] @( d`| X p T%`x` ----`---- P ` DDh  e Q2%@ ----`---- (` 11i( bI.  i,nd D %` ` hI  ines%` 20% ` '' 8'h%`@ ` ` \\@ t's `$--@ @ $| @%`@ ,@ ` ` ` ` vvx`%`Line`H`(`% $% A@r%`B@+` ( i`(----`---- 0 B%`  s on  h` 22 `~H`^ ` `h` ` nn>` b`!`V%` d`b`  `"`$`&b`(+2`  idx`V`4==`6=hB B( B$x@(@. @2 @8h( @<0 @B<@@( XhxP H hh `@ PP(0  LF* and it's ne@x ====@t ====@d @` ` h`pz  No Jo[@8T @PD xLz|jZ~@@ (@0 $@ NEXTln$'@ 0@ @@ ce n@ to b@ "@ (@( $@p @X AV@ Next@x V`x(`@`Zz B@nP(B@p %Sejlnes on e @\ @L (@< @, @  @ @ @8 X@P NewH@h L).V@ BusU@ 0 @Ph LD402@p %@` Line@\ H@X B@p@H @ !D 8r"B@(4 !@X$ @ !@ @p @ @ r th@ @ $@x  (@ @0 @H @` | @ l @\ @ X @T P*@ D @ 4 @!$ @ @ "! "!F0H24@x @t @d `Hx(#$X#%"#"`z #" %Fj"|l@@#l @p#h @#X @%T @#D @#4 @#$ @# @$ @$ @0$ @H$ @`$ @x$ @$ @$ @$ @p%t @$d @X%T @0%R H%% @P *0% @%@ @%0 @% @% @& @`& @& @& @0& @H& @& @x& @& @&| @8'l @'h @&X @'H @ '8 @h'( @P' @' @' @( @( @' @' @' @(( @@( @( @X(t @p(d @(T @(D @(4 @H)$ @) @) @) @0) @x) @`) @) @) @ * @ @) @)| @*l @8*\ @P*L @< @h*, @* @* @ 0% `+@ `,x,,+,,+`++x+`z+`++Lt+`H%+@,d @0,T @H,D @4 @ -$ @,  @, @ @ @, @- @ @ @ @DFG$*\Rffff*0T4b1a556e N`FpF668p $46  (08@HPX`hpx " ' % \ H  h "p "x>    B   0H`hpx F F FB `hpx #%    <l @ Pp x ,,U 3.08 HP X`hpx * * *B  (08@  H6X6p ( #.*+ 68 p ,  0V  ,U   8h0  h p 8n      B  8 @ B`           , *( ,X "          ( H h  2         ( 8H P ` p     8&P x $:  @ P` hx(  2(@X`h px    ( 0 P p"        0" PX`  hx  20 @  P `   $ $ $"  @HPX ` $  @`,x    8    8"X         8X 0`   2    @ &` .     * 0 H ` x   *     *8 (h (      0 H ` x      * 8 &X  0   , 0 @P 2X       ( 0 @ P `p (x(&(& &@ &h & * ( ,!(@!&h!(!!,!"("(H"(p"&"(""#(#H#h##(# ##$ ($ @$ (P$ x$ $ $ .$ ($ % .% H% XX% ,% J% .0& `&& &.& && & .'0' ,8'h' "p' "' ' ' "( "(( "P( x( "( (( (( ) " ) H) "h) )) )) )  )* * * 8*  @*P* h*p* * .* "* "* "+ "8+ "`+ "+ + + ++ , ,(,@,H,`, h,p, x,,P, , -6-H-  P-`----- 8- 6. 8P.B ....?.4l.  . (/0/H/ $`/ 000000 0 0 0"11 1  "(181W@1W`1 1 1211?1N2 02 @2  P2 W`2  @2 42 P2 # 3 !03 #@3 P3`3h3 Wp3W3W33 *3 *4 *84" h4 p44444  4445 05 H52`5555556  6  6 8@6 &x6 6 66 6 6 7  7 (@7 h7 .x7 7 7 7 ,7 8 8@8`88,8 F809 H9 2P9 09 9 P9 (: 8: H: X: p: x: : :  ::: ; ; 8;H;P; p; ;;; (; ;;(< F(< Hp< < "<4=:8=x=  = = = =$= >  0> P> `>>>>>>>? N?X?x?????@0@8@P@X@ `@ h@x@  @@ @@@@ >A >@A >AB A A 4AKBK(B  !HB KXB KxB KBB ?B VBB  !C KC (K0C &KXC (KCC ?CC  C 5C !C KD K D @DPD XDhDpD  "xD D "D *D5DDDDD ,D ,(E ,XE" EEEEEEEE  EE E F2 FXF`FFF F  F F F HG &HG pG G <G G G H H @H PH XH pH xH  H H H :HH H II I @I PI`I"hI"pIxII &III II(I (J <8J FxJ 4J J*K8K@K HK PK `KpKxK KK K K K" LLL  (L8L @L `L(pLL BL2L(M0M P@M JM M  MN  N (N 8N@N DHN BN N N :O@O `O "pOOOOOOO (O P(P 0P@PPP pPJPPP  PQ Q0Q 8Q @QPQXQ `QQ "Q "Q "Q"  RRR R(R 8R  HR&XRRRR R RRRS  8S HS hSxS&SSS4S T @T PT`ThTxTT T4T T HT@UXU :`U 8U :U"  V V(V0V 8VPV `V pV  2V V V V VVVW (W $0W (XW" WWWW  WW NWX X 0X@X ,XX X XX TX 8 Y XYhY YY YY HY2Y(Z  0Z@Z`Z *hZ (Z *Z" ZZ[ [([@[H[ P[X[ x[ ([[ B[2\@\ NH\\ :\ \ ] 6(]2`] ] ] ] ] ]]^(^ 0^@^H^ X^h^  p^ ^ (^^^  ^ ^ ___ _ (_8_P_$p_ _______ __` ` B ` :h` *`@` a (a 0a @aHaPaXaxaa aa *a (b *(b" Xb`bhbpbxbbbbb bb b (bc Bc2Xcc Dc Bc(d:Hd d d dd ddde (e $0eXe `ehe pe xe e e e e ee  e e f <f Xf xf 0fffffg g   g(gHg`ghgpg xg  gPg g .h@8h>xhJhi(i48ipi Fxi .ii j j88j8pj j4j k  kHk `kkk kk Jk"l8l Pl Xlhl plll B  lllll lm : m`m m @m mm Fm (n 8n @nHnhnpnxnn n  nnnn" nnnnnn o o.oHo `oo oo  o o 0o :(p (hp,ppp $p,q0q8q $Hq pq q Vq 0q (r,Hrxr rrr r(rrr " rrrrssss s(s0s <8s $xs$sss <s H(t ptt Zt (u8uPuhu u uu u u u Zu "Hv pv v,v v v,v w  w "(wPw Zhw :w"x0x Hx Xx hx pxx x xxxx y y $(y Py`y y y y y y yzzz 0z Pz hz z z zzzzz 4z{ 0{P{h{{ { {{{ {{ { { | | 0|@|H| X|`|h| p| @x|B  |||| <|}0}H}`}h}p}x}} }xpGThis module contains the macros for the journal entry (template) sheet.]$H@]$ Hh/2number of integers for foreign and monetary amount]$H/2number of decimals for foreign and monetary amount]$ H/"number of integers for stat amount]$H(/"number of decimals for stat amount]$HPICE 1214492000 and 1215208000] /&Decimal Separator based on user locale] x/(Thousands Separator based on user locale]]]]]]0]]@]X]h]]]] F!'0 H!'2 2_H'4UThe following variables are the default amount fields sizes shipped with the product.BIf you expand the amount field lengths, change the variables here.oP L(NControl F%PB@RY'*o@------------------ Check for spaces------------------]] d'V d 'X V X X'Td'Tkix@----------------------------------------------------------------? Extends IsDate() checking - Workaround Microsoft issue Q241728@------------------------------------- p#$%?'()*+,-./0123456789:;<=>"@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijklmnopqrstuvwxyz{|}~--------------------------- ]]]] \$j \ ^'b b \ ^'d d OK for Month and Day only'Zd ` \ b $ \ d $$l'f fOK for 4-digit year'Z fe&Determines century from a 2-digit year f$n 2019$l f'f ` f \ b$'hd \ d$ f'hk h$j'Zd'Zkkd'Zkix$------------------------------------# Validate dates from it's text form$------------------------------------ ]]]]] r!t'\ x L%v'^ z L%v'`!xlDateOrder (0=MDY, 1=DMY, 2=YMD) \$|'p \$j \ ^ e \ ^ `$Z'p \$~ \ \e/Construct date for numeric-only 6/8 digit entry \ &Determines century from a 2-digit year ` \$ \$$l'f f$n 2019$l f'f `YYMMDD f ^ \$ ^ \$'hdMMDDYY or DDMMYY \$ ^ \$ ^ f'hk8d0 `YYYYMMDD \$ ^ \$ ^ \$'hdMMDDYYYY or DDMMYYYY \$ ^ \$ ^ \$'hkPkH h r(t h$j'pd 'pki&======================================# Change Import Status of journals&======================================]8P]h]]]Dim ChangeRange As RangeDim FirstJLine As Integer L(NA@D 4 0$%PB@ 2 0$%PB@ 4 $MSG= No Journal [$   $$'d(   $9  $5(5(5(5(q $' !. !C' Importd`U' Do Not Importk8  !  % 4 0$%PB@R2Get Header sequence number and change import value  " H%!t'(   " H%(tchange the line import status 2 0$%PB@R$ BottomLine$!$$ (  7.  !'_ !'. 7.  !  $ .$$B@H  (t+set the blank row value to "U" if necessary U $!tU $(tkkqk A@rY'*kX 2 0$%PB@ 4 0$%PB@ 2 0$%PB@R H%%B@Ho ======================== New Journal Header========================  L(NA@D A@rSet Options = FRM2Ao ========================= Edit Journal Header=========================`]] L(NA@D 4 $MSG= No Header [$   $$'d  $ (  $ !( $' A@r  4 0$%PB@R  Akh k` 2 0$%PB@Ro8 ============================== Enter or Edit Journal Header==============================]P]p] 2 0$%PB@ 4 0$%PB@ 4 0$%PB@R 5B@Actuals and Recognized5B@ Encumbrance5B@Pre-Encumbrance5B@Collected Revenue5B@Planned5B@Actuals, Recognize and Collect5B@5(  2*** NEW Header - Assign defaults from Option Sheet MSG= New Journal Header  $9Def_Date$ Z General Date$5(tdxDef_Date$5(tkPNEXT995!t5(t Def_BusUnit$5(t Def_LedGrp$5(t Def_Source$5(t Def_UserID$5(td )*** EDIT Header - Gray Journal key fields MSG= Edit Journal Header  $9 ,Enhancement: Allow Edit eader to modify Keys .BusUnit.Enabled = False .JrnlID.Enabled = False .JrnlDate.Enabled = False *** Get existing data into form  " $  $$. %9 %9 %9 % Short Date$9 %9 %9 %9 %9 %9 %9 % Short Date$9 %9 %9 %9 % Short Date$9 %Y$l9 %Y$l9 %9 %9 %9 %9 %9  %9  %9 %9 %$n'   5(d8 5(k k$*** Gray / Ungray Ledger and AutoGen MultiBook$Y .Ledger.Enabled = False .Ledger.BackColor = vbButtonFace5(  Def_AutoGen$Y$l5(tk(d  .Ledger.Enabled = True &.Ledger.BackColor = vbWindowBackground5(5(tk,*** Gray / Ungray Document Sequencing fieldsDocSeq$Y5 ( 5 (5( 5(  Def_DocType$5 (tkd5 ( 5 (5( 5(k!*** Label all objects on the form  $5(4BusUnit  $5(4JrnlID  $5(4JrnlDate  $5 (4LedGrp  $5"(4Ledger  $5$(4Source  $5&(4UserID  $5((4 JrnlClass  $5*(4IUtranCD  &$5,(4 AgencyLocCD  $5.(4DocType  $50(4DocSeq  $52(4AdjType  $5(  $54(6 AcctgPeriod  $5(  $56(  $58(4ForrCurr  $5:(4CurEffdt  $5<(4RTtype  $5>(4RateMult  $5@(  $5B(  !$5D(  "$5F(  #$5H(  $$5J(  %$5L(4Descr254  $5(  $5N(q!Application.ScreenUpdating = True B@P"Application.ScreenUpdating = False !!tY'*  (*** NEW Header - Get the next header row "$ $$B@H T B@R " $ $$. B@H QFind the greatest header seq num (2nd column in the first row beneath the labels) &and then increment it for the new row. DNewHeader.Cells(1, 1) = NewHeader.Cells(1, 1).Offset(1, 0).Value + 1 NextSystemID$$n , %' NextSystemIDAVdX NextSystemID % AVk d *** EDIT Header  " $  $$.kC %%X(t 5$|$Z ,5$|$Z ,5$|X ,5$| ,5$|$Z ,5$|$Z ,5$|$Z ,5$| ,5$|$Z ,5$| ,d5$|X ,k5$|$Z ,5$n ,5$|$Z ,5$| ,d85$|X ,k5Y ,dN ,k5Y ,dN ,kp55$n$l ,5$|$Z ,5$|$Z ,5$|$Z ,5 $|$Z ,5 $|$Z ,5$|$Z ,5$| ,5!'    ,d  ,d  ,kkq', 2 0$%PB@R HeaderLine$% HeaderLine$%$B@H . (\ % %$!t (tk A@r 4 0$%PB@ 2 0$%PB@ 2 0$%PB@R $B@Ho 1-------------------------------------------------0 Build and array of the headers on a given sheet1-------------------------------------------------]H]`]x ^ F%P.d j   " d%h%! '` ` "Populate the array for the listbox `  b ` !3!Q! b d% ( b d%,  b d%,  b d%)  b d%$|- b d%$l,  b d%$|- b d%$l b +x'dh'kXiP======================= Select Journal Header=======================]]0 L(NA@D 4 0$%PB@ 2 0$%PB@ 4 $MSG= No Header [$   $$'d  $ (  $ !( $' A@r  4 0$%PB@R  " $  " $$B@n 2$PB@R HeaderLine$% HeaderLine$%$B@H (\ B@p L(rY'*k k 4 0$%PB@ 2 0$%PB@ 2 0$%PB@Ro( $====================================# Copy Journal Header and it's lines$====================================H ]     ]  0 H ]` ]  ]  L(NA@D 2 0$%PB@ 4 0$%PB@ 4 $MSG= No Journal [$   $$'d`  !(  $ (  $ !(NEXT ( $'  4 0$%PB@R 2Get the sequence number of the header to be copied  " H%!t'( NextSystemID$$n'z z' NextSystemIDAVd NextSystemID z AVk Get the next header row "$ $$B@H T B@R " $ $$. !B@H  H%B@n B@p %Set the new values on the header line  z %(t5 %(t5 %(t5X %(tC %%X(t@Cells(NewHeader.Row, LastHdrCOL).Value = .BusUnit 'BusUnit IU !  $(tE DocSeqNumq +Insert the header line on the current sheet % %$B@n 2 0$%PB@R HeaderLine$% HeaderLine$%$B@H (\ B@p L(r Copy the lines''.'B BottomLine$!'~$ BottomLine$!$$ (  7. lines exist for the header !'_ !$!t'| | ( !'. 7. B 'B"Range("BottomLine").Rows(1).SelectSelection.Insert (xlDown)k  | ( ! ?Since performance was affected in Copy functionality the insertAwas take out from loop - commented above. Insert was done using arange of rows - 02/03 LastLineCol H%!' ~$ ~ B  $$B@H T ~$ ~ B  $$B@R ~ B  $B@H !'x B x$%XB@H !'vcopy the old journal lines $ .$ H%B@H B@n v$ x$$B@H B@pSet the new identifiers  z %h(tC %h(t5 %h(t5 %h(t5X %h(tqGblank out the header keys in the first row if it is a blank spacer row. %U %(t %(t %(t %(t %(t %B@Hd? %B@Hk?k?q?Y'*k? A@rkh? 2 0$%PB@R 2 0$%PB@ 4 0$%PB@o?8--------------------------------------------------------7 Displays Form_SelectHeader to select journal header(s)8--------------------------------------------------------  .MSG= Select Journals (Unit, Journal ID, Date):  $5(  $5N(5!  $5(  $5(  $5(d@=55!  95!5!  5(k=5!  $5(  $5(<BusUnit  $5(<JrnlID  $5 (<JrnlDatedP<55!  9k0<5B@ 5(5!  $5(  $5( 5(d; 5(k;q; L(N B@P L(N !!  !! 'd ;'k;i;&======================================% Delete Journal Header and it's lines&====================================== ]  ] ]( @ ]X ]x ] ] L(NA@D 4 $MSG= No Journal [$   $$'d9  $ (  $ !( $' A@r  4 0$%PB@R HB@ BGet the header sequence number and delete it from the header sheet  " H%!t'(  H%B@ HB@ 6Clear the header line on the lines sheet if applicable 2$PB@R HB@ HeaderSeq$!t ( HeaderLine$B@H B@k7 Delete the lines''.'''$ BottomLine$!$$ (  7.  !'_6 !$!t'| | ( .  .''k6  ' ActiveSheet.Rows(EndRow).Deletek@6k86 !'. 7.  | ( ! !ActiveSheet.Rows(BeginRow).Delete6Since performance was affected in delete functionality@As such the delete was taken out from the loop - commented above-Delete was done using a range of rows - 02/03  $   $ H%B@k4k4q4 HB@Y'*k4k4 2 0$%PB@RoX4========================= Insert journal line========================= ] ] 8 L(NA@D 2 0$%PB@R HB@ HeaderLine$%B@H !t;MSG= No journal selected. Insert or Select a header first. \$  \$$'d2 *N Jwe already know the largest line number, so we don't need to determine it. . $ . LastLineCol$!$$B@H ( . ,A . . (d1 (k1d1 =determine the seq num of the header. Then scroll to the last_ <line and insert there. Set the keys if not already present. HeaderSeq$!t'('$ BottomLine$!$$ (  7. No lines - Add the 1st line'.',' BottomLine$B@H ( . ,Ad0"lines already exist for the header !'_/ !'. 7.  !  .$!t', . $ . LastLineCol$!$$B@H ( . ,Ak/ . . (  (k.q.N'*k.k. 2 0$%PB@ox.---------------------------- Insert and format one line----------------------------P ] ] , ', T B@R . , InsertLine$%XB@ndx- %XB@nkX- B@p ( %(tC %(t %(t , %(t ,Insert a blank line B@H T B@R InsertLine$%XB@n  B@p ( %(t %!! %!(U %(t L(r !'.d+ !A . '.kp+ HeaderKeys$B@n $$ %B@p L(r$ LastLineCol$! $ %( %B@Ho*3---------------------------------------------------2 Clear cell contents if Copy checkbox is unchecked3---------------------------------------------------(]]]  H! !t  !!'  $. !Number !Currency B@d() (tk)k))o(!================================= Delete current journal line!=================================] ]@]Xp L(NA@DGSee if the cursor is on a line for the displayed header; prompt if not. !. !' HB@ $!t'   BottomLine$!   HeaderSeq$!t  H%B@d8' NMSG= Selected line do not belong to the displayed header. OK to delete anyway. \$   \$$'   H%B@kx&kp&Y'*dX&AMsg: "The row you have selected to delete is not a journal line." \$  \$$'k% HB@ 2 0$%PB@Ro%$====================================! Deletes multiple journal lines$====================================]](]H]`x]]A@D 2 0$%PB@R HB@ HeaderLine$%B@H !t;MSG= No header selected. Insert or Select a header first. \$  \$$'d#Gdetermine the seq num of the header. Then see if lines exist to delete. HeaderSeq$!t'($ BottomLine$!$$ (  7. /MSG= No line in this journal for you to delete. \$  \$$'Y'*dP"lines exist for the header !'  $!t $!t5(td!5(tk!5!t5(t5(q! B@P L(N !!t$~ !!t$~ !!t$n' !!t$n' . .'''_ !'. .$!t'     . 2 0$%P%B@HSelection.Delete  '  .''k 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 $    $ 2 0$%P%B@H B@k A@rkqk 2 0$%PB@ 2 0$%PB@R H%%B@HY'*o0$====================================! Inserts multiple journal lines$====================================]]0]H]`]x]]]A@D 2 0$%PB@R HB@ HeaderLine$%B@H !t;MSG= No journal selected. Insert or Select a header first. \$  \$$'dh=determine the seq num of the header. Then scroll to the last_<line and insert there. Set the keys if not already present. HeaderSeq$!t'($ BottomLine$!$$ (  7.  !'_0 !'. 7.  !  .$!t',dno lines exist for the header',kq 5(t , 5(t , 5(t ,5(k q B@P L(N ! 6Add an edit here to make sure the selected line exists 2 0$%PB@R , *no lines exist for the header in this case'.',' BottomLine$B@H ( . ,Ak 5!t5!t$~5!t$n'd'kq !!t$n , ' T . $ .  LastLineCol$!$$B@R !!t'copy the contents of the specified line    $ .$$%!' $  LastLineCol$!$$B@n . $ .  LastLineCol$!$$B@pd .$ .$$B@n . $ .  $$B@pk@After delete block till line number 1, the following lines would' need to be executed to set the values. .$!tY'0 .$(tC . $ .  $$(t0 . $ .  $$(t HeaderKeys$B@n . $ .  $$B@pk L(r .$ .  $$ l .$B@Reset the value back Y .$(tN'k@ . $ .  LastLineCol$!$$( . !!t$n , '. !!t$n',k A@rk 2 0$%PB@ 2 0$%PB@RoH]H]`]x] 2 0$%PB@R HeaderSeq$!t'($ BottomLine$!$$ (  7.  :no lines exist for the header, therefore nothing to delete'd  @lines exist for the header, check to see if selected line exists !'' _ !$!t ' xk 7.  !  'k@q8i0]]] ]8]PA@D L(N BottomLine 2 0$%P%B@H ! '~ InsertLine H%!'  'N'@ Z$'< ForAmtCol H%!' BaseAmtCol H%!'*ICE 1215208000 when user delete StatAmtCol3StatAmtCol = ActiveSheet.Range("StatAmtCol").Column"first do the foreign amount column  $ ~ $ H%B@HA@ @Nnow do the base amount column  $ ~ $ H%B@HA@ @N now do the stat amount column Integers = StatInt Decimals = StatDec OICE 1215208000 when user delete StatAmtCol check to see if it is deleted or notSTATISTIC_AMOUNT H%% StatAmtCol H%!'  $ ~ $ H%B@HA@kx kp kh @N 2 0$%P%B@Hk( o h]]]]]] ]8]P]h]6Check for the column format to find the decimal placesICE 1214492000 and 1215208000 $ $$* $$, . L%v'$k 6Check for the column format to find the decimal placesAfrom the format as "#0.000_);[Red](#0.000)" specifying +ve format and -ve after semicolon !$!0'"SICE 1214492000 and 1215208000 - use p_DecimalSeparator instead of hard-coded period"Pos1 = InStr(1, ColFormat, ".", 1) " $'$ "_'& & $  '(   !t' !t$~ 'V  ( ' -'  SICE 1214492000 and 1215208000 - use p_DecimalSeparator instead of hard-coded period Pos = InStr(1, Amt, ".", 1)  $'   ''add 1 for negative signk0   '(add 1 for decimal pointk V  msg = too many int/decimals ]$':SICE 1214492000 and 1215208000 - use p_DecimalSeparator instead of hard-coded period4Message = Message & Integers & "." & Decimals1 & "." :  $ (.': :@ <$'>Y'@ B@Hd  V  ( msg = "Too many decimals" B@H ]$': : (.': :@ <$'>Y'@dif negative, add 1 to integers      "too many integers" ]$': : .': :@ <$'>Y'@ B@Hkd    "too many integers" ]$': : .': :@ <$'>Y'@ B@Hk@k8k0d(.no decimals, subtract decimals from max length V  (  "too many integers" ]$': : .': :@ <$'>Y'@ B@Hk@k8k0d( "not numeric" ]$': :@ <$'> B@HY'@k @Yyko:This function is introdcued to resolve ICE: 712639000 (AH)]]](5 check for single quote or double quote in Journal ID d''4 d"'6 4 6'2d'2kixpAttribute VB_Name = "mJournalEntry" Option Base 18Explicit 'This module contains the macros (forj e (template) sheet. PubU Const LastHdrCOL As I@nteger29 ,s* ,13'numbh"= ActiveWorkb$.# %= *& "_.H`# Be`llowiPvariables aredefaultm field s siz`shipped withprc"YIf you xexpc lengths, chan0here @H @&c'^(ototrolP8e)ApaA.ScreenUpd= Fg,#-s(" ").%_ Y ( '- Checkspaces`Fun>`|I ddedS(Texm)I!gleanOTotLenLbwB != `B Ob s`InStr(1, , " ", 19Or F0 Th~e a@ /ElsD0Tru,If#@#@-*9Exten,IsD ()(I0- ar mUJ'SCPT+ eric (O 6 `8]c'structb)] q-only 6/8 sRKrX^ [q3Oy O/ ar YR = IIf(D order`2, Left(Dtext, 2), Righ@)Val(YR) < 30, "20" 19") & YR hIf q Then 'YYMMDDtmpDate& DsepbMid3C (Else1')fk'v the lQ sc??HTK 0 Z( a("Bo >mq[").d2E u2a@.Find(ui, , xlWholeBy@s ǵ, 3`CC ): 0RWorkbooks(aWrkB).Asmf).ActivatxCall ModifyA+i + 2H*End IfHC%!BI : Er orsPr>K;RowNum@>NewnR@NDisplay? m$#h$UnprotV+`sp<kDDDithcTJrnl"#G.KKamountType.AddItem ""K>`Qu a@KRecognizedEncumb rancePre-ColAed Revenu "Plann? "$,@ DListIndex 0*'@$X='*** HNEWĮ -Vsign defaults from OãP a<|ew֡e1h@ s("Def_D")l""!.O.`Value@at(a, "Gener " + 3 P !EEIDaNEXThxSys1`[Epffdt& L.BusUni .LedGr^p:.Sce/.UserID/!)"*EDIT7*G&key fields;)/r;1)in'EnhEmP: A0llowg to mr Key&Enabl@D b_%p>' ~L=0 eBxBing ah in f`SHet m= rm(Cells(cD0drCtrlCOLp1Laso./f.@ 3*(3\?B/ 4 "Short C .Descr254{?15=#56adger77837m9rHs10eKr$a#Q2.RTt/ 2M9.Rb>Mj{rsalCodb+0! o f o ag Autoh@IIf( 16rnY", TrueF,#=Adjry7se~cctgPeriod 1##qyCla,ss2#IUtЛCs 2.AgencyL\oc/ K&2"Dloc/ 2"S,eq 4-Ref€M1, 27)  i = Val(NewHeader.Cell$s(6) If ^7 Then .KKamountType.ListIndexi - 1 `0Else*B >ndh IfE '*** Gray@ / UngLedger a`AutoG fqOptions("MultiBook")b"Y"|'.&.EnabledFamBackColorvbButtonFac .K1*Tru TRowNum%0$ ue IIf(a7Def_E8, , 0XpC-BWindowGgrdGp–2YM;bM0ІDocument Sequencing fields$Ɉ @ .@G.D ˇD'.K %-JD"H _$hL8Aia [G_ HAHLabel all objects on the formg.1.Ca@rGetMsg(Lang, "111) 'BusUnit22JrnlID33XDat3#44Grpm55್66Sour7B7UserO&8 8-Clas+(99IUtranC.62="3'AgyL$oc/10920' 0J1**2*P6 *0'AdjEntry 223F13AP/($*'AcctgPexriofd992B5ICurrqBoxoh6 44)'ForrA4U!Effd>D14D)'RT^t43$RC1Reversal*P31]_None?732O_BeginNextz$Op^Z34_yADa+*$Specify_$1I U$Descr254 lOK2iCancelOG!rWithU'A@pplica.ScreenUpvd@= 0/m_T4Show`}!ID.3<> "Reset0yCxNEW^ }np' rhr r% !1R Ee(3, HdrCtrlCOL), VLastP).Sel3.Inkt (xlDownhS` 6 + 1ra o,'u lFbg$re@stseHq np(2column iĒ irp benUPhls'$Bit2new1.L W 3p.Off!0)d#+? P&AASystemID"v OC9 CSave_L("J;00iT ʵ Else  Call Save_Option("NextSystemID", NewHeader.Cells(1, 1) + End If&'*** EDIT P ?Setk = @Range(sRowNum, HdrCtrlCOL, Last"OL))i.Offset(0, -1)@.ValueC"C"With Form_Jrn&lb-2)#UCase(Trim(.BusUnintQ3 ;I D4CDato:A5*Descr254S *6 I9LedGrp7Pger`8MSource`9A8UserTy810MrCurN*If Effdt"" Then= Null SЍ1",9v5XRTtyp_-Xi(.RQMultI1WIReversalCod.b\v-"^-# ?-%-:.A@utoGen TrEeo"Y_EN djEntry?}? ,5QbIIf(.AcctgPerhiod"a@m, bT 1TAdjTc2AaClass? 2B|)IUtraDnC, 251 ALine0Workbooks(eWrkB).QsheetbrentS)P7tiv`S"Ô"),5)).SelectwDisplayР_@ 7.StandardHeight1XdrfS `/P/;q Eu3Unpload!_ok_nqProtH`t u8aSub%1'- ' Build  array of the hfs on a givtb ? Public FuncQC_$A1( As String)VarianGП@1leaD8im !5 1Inte qkThis$ !#a.= A ve8 R=I.Columns ).FindB(q, xlQuiWholeDBy` s). -< 11 O5> B2,P'PoptFeR#forlZboZReqAc- 2_ kp;3 To;1 9k a>Gk, m& "(" & k,_[P/FWH f)_q 29)) = "", "-@ThisSheet.Cells(k, 29& p " & _ IIf(Trim:(7!cNext Build_HdrArraByTrueEls (FaEnd If FunctioHn '= ' Select Journal Header PublicP Sub_!() Dim e() As Varianwi`Integ2rApp(aX.ScreenUpdngqGetWorkbooks(CurWrkB). sarentUB ).Unprot@;+OIf No\t e#I,C)0 The@eE'MxSG=i>MsgBox(=@(Lang, 91, 5), vbOKOnly, 12, 812)bˎFo rmDjx.Cap\#OButtonOKD!3Choose_( Unload A@]i > 0RoAdvat@l! R-e(i + *HCtrlC4OL1`05)).Copyk /SKAeC"%Line"@ AsKc.UseStandardHeightAePasteSpeciaFlk xCutM8ode (xeseA "Y"%e;urK}P}1n9!`[ʬ ' 4 @it's l @ss H BeginRow,F `TopB otCountjSeqNu@m, New@, tk{p, RA bX 1\, LM!ColB?sMo$okcnCfbfffc~ccczs3/c'c4/cge"c1/c!_`Frame$.VisiblQ>[Cfmw f_o5XdJrnlIDH"NEXT(GAie g og2o%o%Iog'* the sequence number ofbh™ to be copied !89e/Dol+ 1).Vavl3 =@("O2s("!Sy_mID""%-;"AP9yCall Save_c\001A[b@ Jz+qYq[n trow[v3|dr$PKOL`s[tInsert (xlDownSrRpss( .@Entirep^. #0s(#z3O Ñ{' q-new v'ps on)-m;With; 7 src-@01__ 20P.BusUni(ڑs(?pB4qF 4CD (.| ob;Off``(0, -<@"CN1'w`?Cv*Rt IU? / - "" 'DocCJ Q9_$2#T9"#cs  Range(NewHeader.Cells(1, 1), 5)).Copy Workbooks(C@urWrkB).*sheet, rentS).Activate "LinF+ 1'4A).fjInsert (xlDown# If Loop WhileFAnd k.!) <> %AMabSince perJmaawas aff@ed in yfun`onalityOi"'atake ou Vrom la- comm above . $done usaaa r of rows - 02/03uL Col@Yube.<olum4paĎaD, J + L- ` YG ! M@> s(d [U*)'\5 ).Offset(1`6br{iTop/ Cc@Rold jour U1/1  i@aIer2R 53?cT7z'qRwnew id6ifierxUBqForm_3op53s(2)sa_3"C"4.BusUn^iq_ 5JrnlID6CD(.1?^R]O'blankR}` keysX!f ir`O if Pit i@Z Sspacer!Q.O`y 58)"^"?z!6 )U/Ƕ8" n71GP9M Eb? %σp}(ReY YheW%Unload BRokҿҢProtп8Hdrt Sub1\1'-- ' Displa< to sۦj?(O Pr FԚ Choo(se_3](cArray() As VariantIntegerOaAw 'MSG=6 Jvs (1X, ID, Q:.Label1.Cap'GetMsg(L4(T.ButtonCl_X@gO.FrameImportStatus.Visible T@hen .FrameImportCaption = GetMsg(Lang, 12, 21) |ButtoBn~YES.x2) /q1`i > 0Wor@kbooksQWDrk` k).QsGb).A5vfqRe.UnpprotS!'` the ha sequence number 6d#8it f's$5c0`Cells(iDЗ %CtrlCOLE).ValRE/).#0 }P%LpiaC  "D  if aS]pK?C i 2 "A("S$"zL0P#fK sCCoGnt@S5QZK'bR D_ps3;O= ,O= s%POy ?c&qFBo`mEFeq Set R .Find(, xlWh Y, xlBysH?`!TR Is0Qth?>gR.seDog= 1a o5sP & `"0 <K?0,s?k$$oo+'@s( L_ [9= %:/Ne0xt(R-LoPWhi~.Apk%A#Co).Delete 'Since performa,was affected in d| functionalityAs such theltaken out fromloop - @commenhaXbov Jdone using a range of rowsM02/03If "RowFB> 0 ThenAvveS@heet.R4(s("),  @ + Coujr)End If@ WithaQProt Reset = " 14T|WindowaVhollA=$ @14 /Aa8s, 'd@ʃ-seqA3a#J. scr 4A*l*_ ' aM`ire`US`akeys i f notCpr@n<#/WD8j8e+0+a> C^E BopttomA> 2, 2_%.R@ .F8C, , xlWholetBysff dIsythޗ' ~A)A`Qg1g '= +/EHl$[Muu44ne4*b&EexiPr+_R.P_QDoq1v%r"Next,(R!LWhile!p"A4 <> UlH+P, 8)3fߏ S?UdS4 ?UE " W2?SW7H y1tSϋokn).ƤQ-\t QI PrivBtX_up@Long2NewAYQb'S'`'QE)=z+CQ(xlDown9;U=E7&=;1~1eOff(- Cop$M$.$ $PweSpecial <37t#~2Aa"CN6GDf.7'_X_'a blankQ] O)/19 :=xlFts [!$q(nF>o0-мX'*Interior.Color Selection.Cells(1, 2).Value = "U"ApplicaXutCopyModLFalsePEndRow|NewLin,e.:E 'Call FFielhds(.)MV+ 1Lnd If  Range("Header@Keys")pyZu3), 5)).PasteSpecial :=xls$88 8YL9̂Ylum n - 1GLockede[H8). Sub'-/ ' Clear c co@nts ifj checkbox@ is unBed Private, NumDim CHK As CBox hkKJI(geB.F BXABAFor EachBIn AveShehet.EeDy I @ "") A Currency@(. @߫yK0vVxNextX=V D`Ict joutrnxl@ Pub Qr_ (Q B6NdKbN#7NLongTSeq, iT! ScreenHUpdng}G etbTX'Seeqthe @sZA@qon a ! fadisplayhb; p romptano\t."Q=bWindow.cdAGt!VGjUn@t˃!y s( Υ ]1p0 < Z< "0("n !KZ D@3 T`  ).#CVOa'MSG= G`0B3do / bel@D to 4. OKadYanyway5A Eai`(Msg(C (L, 92!), vbExcla + OKCan], po 1NzSR  >ResPІYԆ"' : " r`you have sct0a?.8vbOKOnlyo f Ci"Pro.Worprok#WrkBook).Qs!g$=)6pOK Ps multipllejm' T_3BlPEP`f-MQPPrev , A\RaO"7PBeginPTou0|r, F J9, To`qTFirst7@jxcg#/T'qCWyMsEENP1W06A7",7CD N o 3\6/. Insert ^{_DfCO/G/1O/DG/'de mu"Lseq num ofc.  jOs existM8 X`%`MJZaWith_dOmaQ/|5oR0.F%n(#, xlWhole, xhlBy`%sR Isthi{c1_inJuzLK 6gx`qVl'i#/q== R?_Add@;?Q2( u, wΣ202.@_ Q5DInx.To L .HowM@.Visib0^= %3( Form_AddDelLines.Show  Application.ScreenUpdng = F@alse jIf IsNumeric(Froms.Value ) And.To ,ThenpVQu!To  D{BSet P@revRowDR3Next Firstete%Tru1Counter0$!@H oEndC+-.@W AlCells(C, 8)}W(Er<= (Bj) IWorkbooks(CurWr$kB).AsheetrentSA)5+).S`elect+'? ȃY jE+ 1 DI<%M|` +N{V If E"9 fK Kk.Fin*da ( )3 Loop Until%N@WBL|'Since perf aawas aff Fed in c0Block funcalitys'the d N}A taken@ out f lA- commCU abov'C done usi range of rowfseure! (9@s(C@w),"  + e^- <1)kjOUnload With"j"ProtjbADvat:e4).$Res= "Y" ASubWa'== '0:Inserts multiple journal l0  _[0(7Dim Begin! As0teger P !*`Long3i^Src5`pcDNew1Rka*3RN҅PueStr`q1KGecaSokddvUnp5"b4"HeaderA "1,2zh/`1s "p'M@SG= No&s!led.  or  a h f.3 iPPMsgBox( (L , 92a , vbOKO nly, 4)V`'drm$ Nseq nu.m1Ic. scroll toAlast_ 'i!) a`iB+1re _keys if not alr y prp2ntSeqc"(PA c3802pNpBottí), 2u1 Rp%i(, xlWhole, xlBysN Rth*\V6= RCW D`8 P#t  uR "uWhi`D^  <>&AO L0?0 q'no#L exist/&{<?sc"g3 S.HowMany}L.atY >.?$= 0$.CopyData.Ena\bl@F /d - eH > 'B editNreqEm suhe R""L``ȑ ` PTst-0͉=,rQ\PpAs cas EndRow = 0 LastLineNumBegi n|8|Range("Bottom").SelectVCall Add_'(Seqs,, ) ; If  With Form_RDelTs "If .CopyData. ValuesTrAnd IsAeric(.So0urce") 0Then(*Sr~c&*Else '=  ingK .To 8- ]&vCells(+ 1, 2), LC, rCol@umn)).Insert (xlDow~n@yk-oWg'c{ the contents ofspecified lOWvC?, 8 ?A).Find(G, AxlWhole, xlBys).@S C YEC "WI/_?9G=9PeS)alO7]I, 7`ERa \nA'Af ter dte block ti AH numbbMfollow@Ks would#' ne`Pto be executsetTvs./c)oӁO""7N~ş"Y"O `W 09 "373`;C U7 !< "Heade rKeyspyטi"46L/ !MApplication.Cut!`Mod Far5AutoFaSDestin9B :=_q#?\nd 28)TypeP:=xlSre#u 'Re*+ backoP+(*!1^ v"N_q@?k)C?nD7D$OX2nLA<= ?,=` (zze9( @Unlxoad#Workbooks(CurWrkB ).Qshee*tbrwS).0Protvok ntActivat!Sub#! 1Pub03 FDunon d_Exist(TargetaAs Long) p leaDim caIger aVR" FoucYD =KPJ0:,2t_*ʹ0'!(S@gRDdowsX0=R Notho'nodpeP formhW,re@e n4qcv#1: 5u߆'ysu0 nche|o see if` ;| lĶ  > Do pFR |*1/t RBPA9Next(RxLoop While zQԢ <> )e?A3 eEQ- Su= 0? /irdP@Am 4` D? <-91>t9irstV 'Q5o'f do the foreign amount colh}CelHls(, )d, Bo )$.Scct]Do CheckIf k T@>CA'n@)bW( )^*K*J+w[,AI-snU- Integersql?Decixmal  c^ to see if it isĘd or o>ho>E n?End Ifg0e;EWorkbooks(CurWrkB`).sArent).k4, 8ESubA|a@ (Dims As Vari 0/2/1r8vSoinl5PyT"> @'msgtoo many@9t/YqMessag/3, 3\(?#@?#?#Am5'W & C/&B &0C_ZDOORet`urnCD Box(d, 6яYqAiElsDU(ϕy#bM >#$"T%$# f &2/g.$DKoc/ 'E, #G0?%M1I- (Integers + 1) > 1 Then '"too many in"jMessage = GetMsg(Lang, 93,})>H& IA} & ". ReturnCD!Box(%, 64, Title)EAmtErr""Y :Cel.Select,@End IfElse If Pos -隒Er= Ettt=t|ׁ'no decimals, subtract fromx lengthHTotLenH(Max#D 0B@%G ~;pBmo@'"not numeric,XG%.,4̝?#.#$-M 0KExit ForUiNex aSub 'This funct0ion ``rodcued to resolve ICE: 712639000 ((AH@!FImbeddedQu@otes(T As String)ABooleaDim $f )D SlebAjDoubqAG' check@ for sb jq din Jo@al lID$i= @(1` , "'")""P{0 A`*mA;rFpI$l ,Tru`Qq $ p D\ X dD)p\XDx yC((4[M`@ 1XC( ( M@ 1T'\'|>TF>XF^pv2XT64|\?C( (4 M`@ F%$,/64NC((4 M`@ #p$ p 0 2p64 x !pvVp"$# $p kvWD FH%X\F`%p$ p D\ X dD)p\XDkvD`%($%p$ Xp4kvD%(%\$ X\X4$ X')p\X644\F`%p$ p d\)p\($%(%p'H%:`%%$ pa4&\\(D%($%X'l%:%%$ Xa&DD$ ) p\XD64#c`%p $ p'p!p $ p(p# p$ p p T WD FH%X\F`%p$ p D\ X dD))p\XDWDFH%X\F`%p$ p D\ X dD))p\XDWDFH%X\F`%p$ p D\ X dD)p\XDl0xPXTp\XD4|\0 H  < VtKC  ($(D Md@ #t  @32 6D$KC  ($(D Md@ #t  0 2 6D$!t  4kKC  ($(D Md@ #t  @52 6D$KC  ($(D Md@ #t  H62 6D$KC  ($(D Md@ #t  H62 6D$@?t  H4taD*njd%t,5DV t  H4t  4nn7t  4) !t  4kKC  ($(D Md@ #t  @52 6D$KC  ($(D Md@ #t  @32 6D$KC  ($(D Md@ #t  @32 6D$KC  ($(D Md@ #t  @32 6D$?t  H4taD*njd%t,5Dt  L75 M4 N'$'Dt  <76D$!t  4kKC  ($(D Md@ #t  0 2 6D$KC  ($(D Md@ #t  0 2 6D$t  7t  7ct" $  $" $  *$  7l5D$  7D(d$Upz6D$pz(t,  D$0 rU~| 89 9 )Yyل $IykY#")'   يia#"y"A э9#99QyɎ7A!d'tx$ Hx >tx%x$ @xWd*`x5d+* d$ txdp" x$ x x>`:d%tx$ Hx t d`)xt` T p$ xt`0   \ l M\@ # FL\-Ad.(tTUpxl6d kxkxl vkxcPkvDX%(8%hp ,h kvD%(% p ,  kvDX%(4%lp ,l:/kvD%(%hp ,hdT:0@kvD%(t%Tp ,T :0kvD%(%p ,:|1lkvD%(%p ,d:2Ntt: ]/T TD:40$kvD%(l%p ,:<2N,,: ]/LL  kvR)lhTh 64dT@ tdlTDL,$ vdPpz$pz ,(p$lhTh dT@ ltdTD$L, $" p$ p p WD FH%X\F`%p$ p D\ X dD)p\XDWDFH%X\F`%p  0  0 P  0 (  0   0   0   0   0   0 h  0        urU D$`$`(`00`  !0//(!`/$I`$q`$`(`9&0 `Q0o$ `$9 `(a `Qo$ `$`0` q&/((`9/$)`$Q`$y`(`($`$ `(1`0nrU ,$`,`0,`/0(` 0(!` 0$I`$q`8`,4G*\R1*#220*\R0*#1a$*\Rffff*0S4b1a556e*\R1*#337*\R1*#10d*\R1*#fc*\R1*#116$*\Rffff*0T4b1a556e*\R1*#101$*\Rffff*0V4b1a5571$*\Rffff*0W4b1a5571*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2,, y79(xME 8<<<0> LLL L" LLLLLLL "LLL<<<<<<<<<<<<<<<<<<<<<<<<<<dhp('4( @:P@:P @>x @B$ @ꀜ @%P8 DH`pk +`,kir idtor VH`k "Ir (iJ+L`  -iN+R`  7iN TH` A D` k//U 14+l` inipir0iD`t`v`x zX` '' 14@\ @< `|`~ `  ` ,,`  `  ` ..` @ `  `  `|J @l @\ `X@\H `D@ `0  ` $p )H``x  # ) !% p `  I ) 14`~(` )`V`9Th+x ` x%,k ) Lang  14`x pre`v(Se`tms("`r/OnX H ` k 14 x r.Nu Error G `vchec`NptErr(  ` \I  rnlmioad @ ok.P` vedP` ` th =` & "`Dir ` `ath)  MCROPage") `)@ edPa` ` me i@ age @ $`@ ` P` ||i(  i1 Coi8+ 1 I X + i eet `^alog`* '`,alog`.et. `0al s`2work`>r to`'>`4ipDl+>` ::h)@ecau%iBns di^ a x%`Dt nu`F``H`J D` 6X` DDiRi((acroiBHy shiT V(%``X<`0| Z'\%`^ 8E 73make sur  `\hara+:P` I* I. rrorI, 'I( I 8Tempi  bp$V% f%%@j H@l R n( %@N @r `t`v@ @b `@x @z @| @^ @~ @ H``` ` } ` )%i+` XKKi@ `@ `0@2@<(@<x@@"@XH(P HPx PH xPXxHp (8hP8LF0J@x @t @p 8x8``x F@@t @p @` @\ @L @< @,   X0H0LDl @l @@\ !X(`0%`@pH @8 @( @ @ @ @ @ @ @ @ @p HM@ pM@ @ pQVTr@  F0H24@x @t @hd @` @8P @P@ @0 @ <>@(P 8 F@h x @ t @ d @` @ P @!@ @ 0 @ @ @ @( @z @H @| @0 @ `.x00'!@!!`p!X!0'!@!x!`HX!0'Hp$4 @0 #(, @( @$ @ _ # $%$ @ @ @ @@ "nV$@ @ @ $E<:$` E0'<:r0'h @ (@ @ 0'  &@ ( h&'&&&P&0&`z @&&F>@0@&l @&h @d @&T @&P @@ @< @, @ @ @t & pDE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\R3*#37*\R0*#f*\R0*#1e*\R0*#1d$*\Rffff*0X4b1a5577*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R1*#117*\R0*#10*\R1*#5f*\R1*#91 @ @H PX`hpx " "( ' B  (X H " P X,]p>(R> B   @` B  0Pp " x8Xx***((0X @`" ' %( $CompObjTpCompObj6aVBFrame5Form_SelectHeader$9 ' .   6H 8  4  &0 "X  L $ 2 @ ` .       8 68  P  ` x (  (  0  @ H B  P X ` h p x          > " P X p x             : P2`  . .  .P"        0 "@  h  x    N0H`  hx   "  (8@ H (Px         "@  H Xh     ( 0@ 8H  " 2e(   0P X ` p >x M   M  5 ?(  0 /@ OX x    E)       "0@<P<` 2 !2/  20 @"NH p 4 ! -8 e eee,:  :P/p ?8    H $ 0$6@ P HX !! x#>  (D *  2("N8` /h 4fxPf7/? "  (66 58"TP x  N665 8 ?@P "  X`hpx  "( NH & ( *  *( *X $ $   !! B ! !(!0!8!  @!4`! p! n! f!X"p" N"""" "_" B#  `#  p# ###### "####  "##  6# .($ "X$ $ $ $$$  $>%M%M8%MX%Mx%M%M%M%M% M&M8&MX&Mx&M&M&M&M&M'M8'MX'Mx'M'M'M'M'M(M8( >X(>x(>(>(>(*k(,k()(kX).k)&k)>)>)>*0k0*,k`* /* ** ** /* ** ++  5+  +*0+ *^H+&x+ + +  "+ + "+ 6+ E++ =,= ,=@,=`,=,*Z,,Z,(Z-*Z(-.ZX-&Z-=-=-=-,Z.0Z8.,Zh. ,. (r..$a. ///  / $(/ 0P/ 0/ / / // V0 :X0 H0 *0 T1 $h1 V1"  112222 2(20282@2P2X2p2 2 2 2 22 22 2 2 3 03 P3 &p3 (33  3 3 3 &3 4 (4 84H4 `4 p4 4444 4 4 45 5@5`5 5&5(5556 06 @6 P6 `6 p66B667 7 7 (7  07 @7 P7  `7x777 7 7 7 $7$ 8 (8 08$@8$ X8 h8$$p8$8 8  8 "88 89$989 H9X9h9 p9 9 9999299 : :  : 8: H:X: `: p:x: (: : : :::  ;; 0;@;X;`;h; 0p; .; 0;"  <<<< <(<0<8<@< H<h< p<<  << <  <  < *=  8= @P== >= = =>>$>@> $`>^>R>D@?&? @?? >@ H@ X@   Vx@ 2@  "A  0A 8A @A`A xA A A A &AA A4B,@BpB B  $BB B&B&C,0C`C pCC C C  C ,C C *D 8D &HD  pD LxDDDD"E8EPE XE  `EpEEE"E.EF F$ F"HF8pFF F FFF F 6F 4(G n`G 6GB  HHH H(H0H8H@H HH`HhH"xH HH HH HHI  I(I "0IXI xII II  I I(I :J PJ$`JJJJ J J BJ (K <8KxKK KK 4K 2K 4L 6@L"  xLLLLLLLL>L TLPMXM `M MMMM M>M.8NhN NN:NO O 0O@OHOPO FpO 4O O 0P 48P  pP$P$P PPPPPPPP0Q0Q HQ PQ`Q hQQQ QQ QQ ,Q *R ,@RB  pRxRR >RRRRS,SHS PSXS `S pSS S S @S&S2 TXTpT T T T T T (T U 8U @U`UhUpU UU U U"U$V0VHV`V xV V V VV VW*W8W &HW&pW&W.WWX (X6@XxXX.XXX Y Y(Y8Y@Y`YhY&pYY YY Y YZZ Z"8Z$`ZZZZ Z Z [ [0[ 8[X[*`[[[ [2[[  [ \ &\ 8\ X\h\ p\x\\ \\\(\\ \ ]] *] H]X]`] ,h] ]]]]]] ]"^(^ 0^ H^X^`^ " h^ p^^ "  ^^ _ 2(_ `_B  __` ,` H` X``` bh`` 4` a8a @aPa haxa aa aa aa bb 0b@b Xbhb bb bb bb bc c0c HcXc pcc cc cc cc d d 8dHd `dpd dd dd dd ee (e8e Pe`exeeee e exf:This module contains the macros for the main control sheet80]]]](](]P]P]x]x]]  L(N^Language$' F!'0 A@JoHReturns the option setting rOptions F%F%H!d'iSets the options rOptions F%F%H!d JOptions F%FB@ J rOptions F%F%H(dOptions F%FB@koH N&&$P'N N<<$P'N N>>$P'N N''$P'N N""$P'Li8 N&&$P'N N<<$P'N N>>$P'N N''$P'N N""$P'Ri F%V )$5X( )$5Z( )$5\( )$5^( )$5`( )$5b( )$5d( )$5f( ) $ GroupBox17h(d ) $ GroupBox27h(d )$ GroupBox37h(dq ) $ F%V!j(o9This macro sets information about the workbook and sheet.H F!'0 H!'2 2_H'4Language$'Get the user's preferred Lang(Set Settings = UserForms("Form_Options")/On Error Resume Next ' turn off error checking2Set wbMyAddin = Workbooks(AddIns("Jrnlmcro").Name)LastError = Err.Number.On Error GoTo 0 ' restore error checkingIf LastError = 0 ThenJrnlmcro.xla is already loaded. Run ("GoToControlPage")ElseE 'Jrnlmcro.xla is not loaded yet. Load it from ActiveWorkbook.Path SavedPath = CurDir() & "\", WorkbookPath = ActiveWorkbook.Path & "\" ChDir (WorkbookPath) ChDrive (WorkbookPath)( Run ("JRNLMCRO.XLA!GotoControlPage") ChDrive (SavedPath) ChDir (SavedPath)End If1The logfile name is stored in the message catalog  $'< < jrnllog.xls'<kTSkipsheets = number of non-journal worksheets in workbook. In the sample shipped, ' Skipsheets is 4 because 1 Control sheet + 1 notes sheet + 1 journal template sheet ' + 1 journal header template sheet = 4. The Options dialogsheet doesn't count ' because it's a dialogsheet, not a worksheet. If you add additional sheets to ' the workbook, add that number to Skipsheets.'>[SkipDlgs = number of dialogsheets in jrnl workbook. In the sample shipped, ' SkipDlgs is 1 because the only dialogsheet is the Options dialogsheet. If you add ' additional dialogsheets to the jrnl workbook, add that number to SkipDlgs.'@o]P]h]'l n p D't t t p 'x x n r D'v v x n x v x $'lkki8This macro will add a new journal entry sheet and header]](]@A@D 0$B@ )$'< )$'| | <$$|'\ L(N \1/13/05: AH ICE 733561000 Need to make sure NewSheet is less then 29 characters since the name has _H appended to it and the max characters for a worksheet name is 31 \ show error [ $ $' exit|k Template_H$VTemplate 0$%PB@n \ H( \$V Template_H 0$%PB@n \_H H( \$PB@Rd8A@Jk( 0$B@o(========================================' Select a Journal Sheet and activate it (========================================X]]]Get the number of sheets A@D' $  )$9  $5(5B@ of in 5(55! 5!  9 B@P5!5!5%'kXqP A@rd8GMsg: "No journal entry sheets exist. Press New to insert a new sheet." Z$'< ^$': :@ <$'k  A@Jdx  0$%PB@RkP oH ======================= Delete Journal Sheets=======================]@]Xp]]A@D"Application.ScreenUpdating = False 0$B@ $  )$9 )$5( 5(5( for5B@ 5(55! 5!  9 q B@P !.  !  %  %' _H' L(P  0$%PB@  0$%PB@ L(e Q2k A@r----d 2Msg: "No journal entry sheets exist for deletion." Z$'< ^$': :0 <$'k0 A@Jo ]0H]`x]]]Get the number of sheetsA@D'\ $  )$9 )$5(5(%5( )$5(5B@ 5(855!  9q B@P !! !! !%' _H' !'\N'  0$!P \ !name already existsY' k N L(N \_H' 0$B@ Template_H 0$%V  0$%PB@n \ H( \ 0$%V  0$%PB@n  H( $PB@ \$PB@Change System IDs $PB@R'  " $!t$n'( (  NextSystemID$$n'z z'  NextSystemIDAV d NextSystemID z AVk z  " $(t   $(t= DocSeqNum NEXT  " $(t \$PB@R$! (  7.H lines exist for the header !' _ !$!t'| F | ( !'.B 7.k !$!t' NEXT !+k(  | ( !  z $ .$$(txkq $PB@R  '  " $!t$n'(p \$PB@R $(t $B@H \$PB@ 0$B@ L(N d!Msg: "Sheet name already exists." Z$'< ^$': :0 <$'Control 0$%PB@RpkHk@ A@rd(GMsg: "No journal entry sheets exist. Press New to insert a new sheet." Z$'< ^$': :@ <$'k 0$B@op] ]( ]@ ]X  0$%PB@R  BottomLine$!'~ ~ '~ InsertLine H%!'B B 'B LastLineCol H%!'DescrCol H%!'GActiveSheet.Range(Cells(FirstJLine, 9), Cells(BotLine, LastCol)).SelectFor Each Cel In Selection.Cells! If Cel.Column <> SkipCol Then$ Cel.Value = UCase(Cel.Value) End If$ If Not IsNumeric(Cel.Value) Then # Cel.Value = Trim(Cel.Value)  If Cel.Value = "" Then Cel.Value = Emptyp End If End IfNext op ] ] ]( ]@ Get the number of sheets F!P!'  > gNow set the array size. The number we're interested in is the total less Skipsheets (set in GetSheet)._Then divide this number by 2 because we don't want to include the header sheets in the listbox.  > ' p HCounter = number of worksheets to skip + number of dialogsheets to skip. > @ ' '_  0$%P! +P <skip the next sheet because it's the associated header sheet  '  '  'd('kix ] ] ] L(N A@D/Set LstBox = Dlgsheet.ListBoxes("LangPrefList")'With Dlgsheet.ListBoxes("LangPrefList") .List = Array("English") .MultiSelect = 1 End WithBuild_LangArray (haha)@ English+  *$9 *$5( *$5(X *$5( *$5( *$5( *$5(  $5(  $5N( * $50(  * $52( * $5( *$58(  *$5:( *$5(X *$5(  *$5( *$5( *$5( *$5( *$5(0 *$5(  *$5( *$5( *$5( ( *$5( *$5( Def_BusUnit$5(tDef_Date$5(t Def_LedGrp$5(t Def_Source$5(t Def_UserID$5(t Multibook$Y$l9 Def_AutoGen$Y$l9 Unicode$Y$l9DisplayMessage$Y$l9DocSeq$Y$l9 Def_DocType$9  Import_URL$9 Import_UserID$9 DuplicateOption$S$l9 ErrorOption$S$l9 LogMessage$E9d9k ChangeStatus$C9d9k 5( 5(( 5!  5%Language$  5,k0( L(N C@P L(N5$/5!t/5(tk Def_BusUnit5!tAVDef_Date5!tAV Def_LedGrp5!tAV% Def_Source5!tAV Def_UserID5!tAV Multibook5YN$lAV Def_AutoGen5YN$lAV Unicode5YN$lAV LogMessage5EB$lAV "DisplayMessage5YN$lAVDocSeq5YN$lAV Def_DocType5AV  Import_URL5AV Import_UserID5AV ChangeStatus5CN$lAVDuplicateOption5SU$lAV ErrorOption5SA$lAV 5!Language$5!5%A@TLanguage5!5%AV*kkq A@r If LstBox.ListIndex <> 0 Then * With Dlgsheet.EditBoxes("OprLangPref")) .Text = LstBox.List(LstBox.Value) .Enabled = False End WithEnd If oO===============================================================================4 Entry Function for Online and Batch Journal ImportB HowMany : Indicates how many journals sheets to be processed$ (SELECTED, THIS ONE)M Mode : Indicates Onine import (XML link) or Batch import (flat file) (IMPORT, FILE)O===============================================================================H ]  ] ] ]( ]@ ]X ]p ] ] ]  ] ] 8 P ]h  A@D L!' L!'@2 THIS ONEKT H.   )$9  $5(  $5N( Import_URL$5( Import_UserID$5(t  $5(9UserID  $5 (9Passwordq B@P L(N ! !   ! ! Ak A@r B@R $B@HSELECTEDKT $  IMPORT5 )$9 )$5( 5( 65( 5( &55! 95!5! 5(  $5( Import_URL$5( Import_UserID$5(t  $5(AUserID  $5 (APasswordd )$9 )$5( 5( 5(P95( 5( P5"((: )$5( L!$\ 0 0.$txt9 55!  9k5B@ 5(8;q B@PP; !. L(N  !  % IMPORT !"  !.$&' !\$&'      'k  !_' .txt'$dX !  $_' ! $'k$' index  >d V?k   % '?  $'  dX P@$' ! kkk  %   ! ! A@k A@r IMPORT  > VAkh VAkPdH "Msg: "No journal sheet for import" _$'< _$': :@ <$'kn  L( $ L(0C  L( THIS ONE AJk`oX)=========================================' Online import the given journal sheet )========================================= ]x]]]]]]]  ICE: 688200002: AHD]8 (_H'^ ( F%PB@R L( $ L(E (A@ CheckHdrsImport the Journal sheet#NvsError = ImportSheet(ActiveSheet) IMPORT: ICE: 688200002: AH: Adds a parameter to store status code * ( 4A67 ICE: 688200002: AH if iGenerateXML is 0, i.e. no error 4  *kd 8'* *  8'* * 8'* * DuplicateOption$ 8'* *  ErrorOption$ 8'*" *   8'* * 8'*: ICE: 688200002: AH: Adds a parameter to store status code * ( 4A67 ICE: 688200002: AH if iGenerateXML is 0, i.e. no error 4 *  8'* Ohttp:///xmllink/ps/Excel_Journal_Import?userid=&pwd= Import_URL$Excel_Journal_Import', * . , (  $:'> >KT Import was successful ChangeStatus$NKT do nothing HB@CKT Change Header status to IMPORTED ^ F%PB@R HB@ j   H%h%! '2$ 2$ H%B@HU (t HB@Change Line status to IMPORTED ( F%PB@R HB@ InsertLine H%! '0 BottomLine H%! '2 0$ 2$ H%B@HU (t HB@n@<eKTUnknow generic errorfKT%Error loading the source XML documentgKT#Error loading response XML documenthKTApplication Error message foundSP;EImport error: unable to import journal headers associated with sheet _$'< _$': : ' (':DisplayMessage$E : <$'kp:nh: > LogMessage$B < (Success .A<k:DisplayMessage$Y . Import OK - Sheet ($'k9d9 < ( Import failed .A<DisplayMessage$Y .   Import Failed - Sheet ($'k9k9 ICE: 688200002: AHk8k8o8/===============================================- Create XML elements from given rage of datah ICE: 688200002: Add checking on OPEN_ITEM_KEY to make sure there is no space in the middle of the value/===============================================P]]]0]H]`]x] . L%v'F'H  @ !t$~ !@ !t'Dd7 !t$4'D F. D F . D D Fk6k6d6 !t$j !@ !tyyyymmdd$ 'DdH6 !t$ |$L'Dk(6k 6 ICE: 688200002: ah BEGIN !$!t$ Z'J J OPEN_ITEM_KEY D 4Make sure FldValue does not have space in the middle D$T [ $  ^$' LB@Nk 5k5 ICE: 688200002: ah END D H B$ P< !$!t$ Z>'H H D'H H 8'HkH4@4 H'>i04-=============================================+ Generate XML string for the current sheet-=============================================/ICE: 688200002 Add iStatus for status indicator]h]]]]]]]@ /use smaller chunk of XML string for performanceM ICE: 688200002: ah BEGIN set iStatus = 0 to indicate there is no error first'T^h2 ICE: 688200002: ah END (_H'^ ^ F%PB@R ^ $     $C  " $  $ H%.V R B$P 8'R R V B $>'R  $!t'X ( F%PB@R$ BottomLine$!$$ X  7.Z Z Z!'0'\_x0 Z!$C Z!$ Z! LastLineCol$!$$.V \ B $P  8'\  ICE: 688200002: \ V B Sheet: ($>'\ \ B $P 8'\ \' R \'R'\k(/k / Z7.Z Z Z! 0 R \'R'\k.q. R B$P 8'R ^ F%PB@Rkx. k`. ICE: 688200002: ah BEGIN^8. L!` L!`'Tk. ICE: 688200002: ah ENDo-&======================================$ Post and Send journal over the web&======================================X]X]x7Dim xError, xImported, xUpdated As MSXML.IXMLDOMElement]]]0]H`x] ]8^p,'..b b( * b%.fPOST , fB@ content-type!application/x-www-form-urlencoded fB@accept text/xml/html fB@accept-charsetutf-8, iso_8859-1 fB@userid  fB@pwd  fB@ b!H fB@ f!'. . b% x L%v'^ z L%v'` !xlDateOrder (0=MDY, 1=DMY, 2=YMD)error b%.j'.imported b%.l'N'b ( F%PB@R HB@ (_H F%PB@R HB@  l!  l%!d$R'r r r) $'t t$'x t$'z t$'| ` z ^ | ^ x'~ `e | ^ z ^ x'~d( x ^ z ^ |'~k( N   r t ~$P'N b 'b r r( $$' r r, $$'t t t, $$'  j   H%h%!' $NEXT  + ( F%PB@R$ $n $NEXT  +k0'  j   H%h%!' $ $n $NEXT  +k&  '& (_H F%PB@Rk`&X& P b$$ N'. (_H F%PB@R HB@ ( F%PB@R HB@updated b%.n'N'b  n!  n%!d$R'r r r) $'t t$'x t$'z t$'| ` z ^ | ^ x'~ `e | ^ z ^ x'~d$ x ^ z ^ |'~kh$ N   r t ~$P'N b 'b $ b .  P b$$ N'.k#': j! Application Error message found ErrorOption$Sh':kX#''N  j!  N 'Nk# N  j%!d$R'N" .  N'.k"d" #Error loading response XML documentg':kh"d`"%Error loading the source XML documentf': b!! 8 *'.k!z!^! L!` L!`': L! Import_URL$'.d! Unknown errore':kh!i`!P B@Po@!*The following error occurred in procedure :  8 ! 8 Error #:  !`ERROR<A@o +11/16/04: AH Created this for ICE 622590000The purpose of this function is to encode special characters contained in UID/password ! @ # $ % ^ & * ( ) - _ = + \ |[ ] {} ; : / ? . > <]x]%figure out length of passed in string '''[parse each character and replace it with encoded value if it's one of the special character  .get each character out of the sOriginal string  $' !KT %21 '@KT %40 '#KT %23 '$KT %24 '%KT %25 '^KT %5E '&KT %26 '*KT %2A '(KT %28 ')KT %29 '-KT %2D '_KT %5F '=KT %3D '+KT %2B '\KT %5C '|KT %7C '[KT %5B ']KT %5D '{KT %7B '}KT %7D ';KT %3B ':KT %3A '/KT %2F '?KT %3F '.KT %2E '>KT %3E '<KT %3C 'SH   'n0( 'i  z''k](!@!X!p!!!!!-Range(Cells(4, 8), Cells(4, 12)).Value = NullNEXT $(teAttribute VB_Name = "mImportControl" 'This module cXains the macros forin@n sheet Option Base 1Explici!Dim CurWrkBook As S!ng rentSOHdr1Tit OMe ssage JSucc ful Dlean@Log0File &SkiptsInt0eger Dlg FirstJLinAPub Lang% Sub Init() Apa.ScreenUpd = False)= s("5u"#^= ActiveWohrkbc.=CG(otoP pEnd $()Fun@|EdBoxG4,!al Text)@'ReturoCsettiA?D -Dialog; ").Edit#es(%|).A 2-L3\S0ave_ , New /,Set˃+sIfUj( <>FThe@A?=Unprotec@l2&. ?7s 0PHIfIEncode_XMLcha`r(tmpF= ReplaceAa, "&"aXmp;%^<lt>g'aposf k(+""Bquo# !#4R De"Fe"""#!"#"'k"&" $`a"riva "uet_Homep_LabelseWithp1X.xDefau@lts.Ca= GetMsg(, 41, j`UserNk:2 gY 3 p>4)Cף 5*opyO6SelEed7iWrite_o8YGroupu["10EX? 1*ox2wox3?!+'RZs(p2).Guw91.j qPs inmr aboutҙw$} ap{2. Q3-2U.P[ cDataIn`voke_aH:" \n14@3 Ȇ A=k& "_HTT~ߍ' u`:'s preferreds'`? 0s=FormЃalY'On Err Resu "NQ ' off che ckXwbMyHAdd@= s(InJrn! ir (A3Y%Ae`gf0 nQ  dB1m4>c@>iU9, U#"#{"jp-0$s c'8= n-p4 non-joñLd3M. sshipped, _`4 beca1A 1 + +3(este~m@2QUh02e= 4p c6ts dʣd@oesn'tPuLnte it La9,t a 6af you atdd1iP"s to' the workbook , addat number to Skipsheets. @ = 4& 'VDlgs0of dialog in jrnl. Insample shipped, _SrVis 1 becausBe4only ` !Options if you]yial s}% Wz1 End0 SubFunc8 StringBetween(Source As, Befor AfterCompare Integer)& Dim(Pos H- ACn @""CI5=a@ (1, B?,J D7)If2> 0 ThenA#! + L`ILC*- -A. >˃A* 2ǁ JUMid @! , -UIf'eeVX'Th@mmacr@o willja@ new jXnientryy@ a``header Sub J`S_New( AtbuteK.VB_Pro cDataaIn`voke_!J \n14JZ " , Title, Mesg-_WK!Varianty]iMe-G,et C!W$s(CurWrkB).Unprotec AC (Lang, 24Z21,= 9ETrim(InputBXox(!)dA@pplica.ScrUpdngFalseN <> ""le'1/13/05: AH ICE 733561000 NeeA`o maku & Ales n 29 characs sincCname has _H a@dnd itCAmaxi a"ł "` 3-acAwE) >f'show erroPe?= 5 +*29@613), vbExclamb,.D'exi?$E h0I("Te`ate").@Copy aA:=Rs_H"Aveb.N-=`6wrks(G & " n.cEF+G otoCoDolPag,ECOok).C9GK= ' Sel0>(JM2R+P.iv a ' PubP;"NsPLBrKList(}LML'-gCR$E{q6 Arra,y()CWith Form_ C1.Ca/IPR25 .ButtonOK_sU12, eU <1.Clea> .@ l @Height.- .TargetOnlineFr6W15K.SPI+P IPSx >=N (x?Y5!G Unpload"<'P: "NoPŒ 0TstйPr1d@Ainsera{*.䣁 ?v0v9v0 rsC &94, 6i _02t#t_Kp kKKQ9c6) RДAa HMJFQLDPL9Ls/}I=31@?B@elXHdrQSngKMKK'??a"_1 MMC 1J3x'Mo5OAQAll.Visib@= TruqqNoneC/ .ListBox1.Cleaxr  p = Sheet, Height@.- .Target OnlineFrame*15JEnd WithForm_Select.Show Set 14O. i1 ToxCountIfBed(i - 1) Then T-G+H dr& "_H"Application.DisplayAlerts6FalseWorkbooks(CurWrkB). sts().D=YtE1W.Tr&uIf3NexeUnload y EA'Msg: "No journal e ntry C? ex for dA?V]TitleVGet(Lang, 90,&Messag 4, 7) A(D , 48,  I=CGotoCo@,olP Sub A Jrnl@_Copy(@Dhim Eu,Ag,D NErr;As String New@tew "Z(8), `IVaXriagA iaqNumb Seq1, tjid, BeginRpow, @I`ntege R!R@.@CFirstseqX@o$'4 the number of<;"$>$}Array(Ba }4Oa.Capat-G24 24d=Bu@ttonOK6Label2.VisibBTOhz9n`a' (.ƲĖA mŠ= 0Pj ( ^x +` &oez W -'=h0 EaDchG=In co>kc a0EComp( wB.SO3'n0J alreadyYs* Y, R{IdBedP N"q lScr@eenUpdxng wAp8U?  ?zUnprot OK}a after:=oa:s("Termte0,*a Active2u  )./ $  5  x).O?4S'"  O'Chm System ID/.S ).a =30wx`Val(Cells(0zCtrlCO(L +.uea Whif4>| 0 4Oo$Q#ID")27Ї}= 97bECall@ Save_c("ZF001uD_QG !0= o?F σe  Last$$- 3)$  ""'Doc?$ NEXT^;8?2D_2, 2).EntireColumޤ" t R.FindV, , xlWholeBys_)VA0oIs Not^h'Qs{Hѯhs1ABeginRow = R.p 2 Do|ttSeqCells(, 2).ValuezIf @FNum Then6xEnd&ȃ/Set RV.FindNex0t(R)64 Ifjid5 /B 1<> L"" 5)("NEXT">[ Loop Whi le NoWIshing And xA 1Range(8, 0Aa?New=ŌWith  Worksh eets(HdrS).ActPivati@%i0 + 1D= #:i, CtrlCOLA7Wend/K'I/4, 8)e.12)-ull 3c&3 10 XSelect 6).Protbooks(CurWrkB`Application.ScreenUpdCa= Tr͢ElsB'Msg: "0 name already exists.wTit`p= G$et(Lc, 90, 1BMessage.@24aT Box($, 48, bIo&L"Control"cpUnload Form_<%=*)No jour nal e`y Cu#*. Pr`" w to insert a n|ewI._-X,6H&Q+60I+#,fXSube%atJS(By E  Att@ribute.VB_cDataInvoke _Func#" \n14(Dim BotLine As Long A 9Varian81LastColqIntegerSkip}!X_8h% ;er0sg the numbofdY.O.g?% sH> &^'\No]a s `pwe'$re`teate"d is totdl1c8(sinAxb).c ' divide pDby 2 because we don't wRhclue h0P p l!boxg,= #3-) / 2 ReaY2 %&Y& =vwq s\dialog 0vH + Dlgs&%=9D _#˜$(T)|.NP7 nexts*fit's!associоd+XJ‚Until E>= bF@< = True ElshListArrayFahEnd If Function Public Sub Set_Op4s() Attribute 0.VB_Pr@ocData Invoke_Sq" \n14" Dim Lang() As VariantiIntegertmpSsngAppa.ScreenUpdng oGetShee. 'g LstBoxDlgs . es("PPref "x'With )1u"Eng0lish(MultiSeleczt1PƁ7w'@Build_ (hahaLRe 1F (1)C5Formw&Ca|@QMsg(, 42,  HeaderDefa2s_P.2D'General 3 MessagPeLog 4 DocSeq 5 ImportCoPntro(6OSPtatuD7 ButtonOKUP1 _ Cancel .hoi-d7nc9<n8?=@p=T "/""V[4&gCal@l Save(*l, .XnWqn@@7oo<4m$ mV4n3r0rn, 1Q2BIook_Enable, "Y"@N")) Call Save_Option("Def_Au toGenIIf(.$%Unipcode%=LogMessag@_ErrorsOnlyGEZ"Bisplay%D _ gHDocSeqg0TypjImport_hURL>."sperID ChangeSta8tus@_YTES@MC"ޒuplicateD@SAU\soKEABGIf .L4List.Index >= 0 Th5 ()Set_Homep_Labels w ,tEnd Ifa0WithUnload Form$d' "LstBox'!''!! Dlgshe@et.Ediae(OprAPref".Text = ( (d`Valuecd@False ' Sub %'=?' Entry Func for ine a1Batch Journal Cx@ HowMany : Ses how mjcs *s to be prorcedA)d(SELECTED, THIS ONE("$ M )j Oni (XML link) @Eflat fil2 D(IMPORT, FIL_(?A( Pub` K`9$(_*s(d(, mAs StringDim SelSaR,! Variant !1QCBarnBoolea "Xf CounPter2I gerOutF (s@?ex2B()iUs, PwdA pByte2#tmp, Basne E9 posDot, p`Slashj#8Get = Aps`.w&Aelectt C "/"C!*`X 0 :veH 1BLBPS:Now.Car Msg(M, 41, 25'A5.Butt0onOK_S12, 1OACancel2# hlUXf ~.W m3# 30)'U2,41PassworO? ^qW.SU:&creenUpdatCe?Wp\""_*R'(I.NamK, B8xP(Cp?H!99~ A1@Cells(10.8).p7c7gh7񃠗Array(L 7#wr^= "Cg _%S%:7 t;Al7>770Visi$TruĊxNon "IMPORT"X D >g\`ar|bR0_ posDoLbURev(`, Wt" Slash`_ g_ @Y> 0 A[ `!w4a= 0s:5kia@G _1Base$80_! Ex;".WEhi(LeftF g` gR H ?7@-lF !(? O`pen (&`!i'a) p Output As O SOClose #?9tm~pm`> \"UR& )Print #, _Y 0y2 _ qJ X? r v  3Call ImportJ_R(.", s,;a/",10k UsPerID.Pwd_8 Nex~UnloadK ^~i ? .sQd;KQ ?/sQ=-'P: "No jour nal s f0or iLhTift2 95; M`essagƮ2/ p`(T, 64,  cSztatuPsBarCST6! @3DisplayV1OptTHo wManyTHIS ONE3GotoControlPP ub '= '  the gi~v0j /  p\vate Subm?ne@qmpc~i3pn3 Integer, "IMPORT" Then' ICE:@ 688202:ʀdds a parameter to store c( Call B_(str,, 0, R"' if˅isB.e. no e@ 8 = 08Print #OutFile,2(End IfEls~C3@"" & vbC/hlink/ps/Excel__Ù?uid=<-id>&pwpassword> @xURL sJ Z_Yq aK R$etCD se nd RespxonsÇ JP,0 Pwd/ Select Case kB0kOwas successfulI F#Che", "N#!a'do thing H.Prot`c Cu # HeadPgsxsgkEDs>(Q9 Unp LastR`owNum"yColumns(2).Find("", , xlulasWho!gxlBy0s).P - 1 R(Cells(3, 2), Q).Value "U "Cq plB@CS3?i Firq."Ip>rt1"+?!cBotto~m/ ) , 3mQTbYD3#+ ">-10O- 'Unknow gYicm  -2k'lo,ad`I2s@ce `[ document3r^ 3\ 4T'A s mZage found";%'n: unable1RiajTh2TA`ssoci3d with f рTit`=`(l957M  :4e  'Q11R @kD}= "Ey iMBox(D 6, b/ ɿ. ` (G3 Log B CQAdd@Entry(Nʇ"SPgx)  "Yo `ZvbOKOnly,) OKo!t " & LineSheet) End If \ElseCall AddLogEntry(FileName,, "Import fa:d", strResponseIf Opti("DisplayMessage") = "Y" Theni!MsgBox(e, vbEx clama, +OKOnlyNFN - ' ICE: 688202: AH[  Sub '=+ ' Create XML elements from g@iven rR of data )dd checking on OPEN_ITEM_KEY to make su@re the@is no spa ce in m`iddleA 0valu@/3Priv2FuncBnRow25(Ses Rangind9 As Integer,al HdrCt@Str4)  Dim CaCFldV,M D@ecChari?^sColC~A= AppliJcB.rnal(xl@ imalSeparat\orԁ "CFor Each8In (GQ@nIsNumeric(}!.$Z@b er@g <> "@qpfp0tf+aaC`'%`@b4." Arn=(, D) > Q MidI, 1.$-EzyIsD^1ou1&C7$ ymmdd"l0Encode_Kc`a(Trim( ~) /M"c8Oah BEGINg= UCaseAls(1,Z.@kumn)VC("BLen;pA'MF)doet hav`Oc/8mbeddedS( i= aGet D(L, 9142),& . Err.Raise (-999i/END {& ? GQ&R $(Z)",5% 1/"vbCrL*BNextShN0s{Uj?\u{x Gene@\e{!xf[Qtcurrans{~ iStatuЁ sfor b wSub a?(tlISq,q4)AxN~a|csu}eq0iFirstmhis߁HeaderArray()1Varian temp0qe1'3'up7sxler`unkQ#perPmancanO sezt=jerrf)u0OnAA GoTo doB?u?R=q9_H9APveWork`book.)s().2l#`QBuild_MG)̃l LBound(o Uou` ci2, 2"{CoSp){rr.)t C@trlCOL1CZLastOLq!4=!?DS:SJRNL_HDR_IMPJC R& `/B `8}+A S#7=v34w/!>k!! DWith㽤B[3"Bottomx").Pqn Th#@= .F'`42*R , xlWholxlB:ys"$NotEIs hQ@p9I=a eFDo/ThisRow.0, 3) = "C" Then  Set DataRanger(Cells(T 8), ,^"LastLineCol").Aumn))~tempXMLx & Space(indent + 2) & "<JRNL_LN_ IMP>"vbCrLfa' ICE: 688202:3J2T(, P4, "Sheet: oL/1:I@f Len(D_) > 1Id@E0textpE&  ""_ End I}@.F@sN1nLoop While Not@JB Ishing A( <>@ FirstN|um8RO!WithrCrCRHDRrActiveWorkbo(ok.sfs((Hdrce.batema4 iceN| ah BEGIN doError~].0(ber20 ]iStatusB @ END Sub %'=  ' Post aFSejournal ovthe we Priv) Fun.0on s @:(s$tr, Re@sponseURL, Ɩ, UsrID, Pwd As StrZ)ALong Dim xDoc!MS .DO2Mum HTTP`Reqpuest B`,or, xImported@Upd7 # I@ El&e L.No0deLiaAtmp, 23??Cgi,0 k, w!In tegercY, M, %Dse J, Sys!(ji((Dor>d:*LOn b GoTo dWCh6S%B1= New @.asyncF8alsD60loadp!);1 2I*A x.Open "POST"&8? P.set"He"a"co0nt -typep"application/x-www-form-urlencodedds?acceptk/xml/phtml-0char`utf-8 so_8`859-1_^userid6Sw pw@9OC"#@T@o!r% "A /%Aw.-`L1 al(xleSeparatorsuT1= BO3' (0=MD@91=DM`2=YMD-s6=L.getFsByTagName("ec"85NitP-@K kp0/wk$w?wU y.Unprotec[_^ѻ_HP] S@For i01 Rc.Pgc _DeA_1;(I0(i - 1).0,C c3`Mid(a, Inc")")0,2YLeft!3, 4obMGP6, oDRigh2<6IlpB=& DYE eIXEMOAE%Yw(y`vbLf `" Repl!C PP:k1 _QRTrim(U# J'(B'@1)) tmp3 = LTrim(Mid(@2, InStr,",") + jidRLeftl3-BRowNumEActiveSheet.Columns(3).Find(SysID, , xlFormulas WholeByFs).If Cells(7, 5)9"NEXT" Then{ pWorkbo(ok.sws(HLin|).a te#e4, 8cVal) Andt10&r: 9EIf(YTu2u+While w2KE)C LZO ]PFQ@2WendWOt & "_ H"]PNextstrResponseAGetMsg(Lang1`W0, (k|))  Protecp_ t# `:Set xUpd`~xDoc.getElementsByTagN@ame("u"@'+"" k&0 i@1 To.Leng\thQ@ 2Decode_XM@Lchar(%.Item(i !.T@A) C`Y`H4 nM 6 MDRighe2DorderZ0\J9MZDXsepGYExlse 3҅ D' 1%Y/A@Q3c)Q& vbLfP" "`ReplacetPa,kOGk > BI K` KW K sp[4a% xErrord9 F'Application 2 messa@ge foua  Ops("7<> "SO -104; QHI "= L [Kr APi`4 UQ  $ Rc QN,*= v+{ F'r loading rU{)docuh 3{<the source w_2"sparsereasp0CrBG xit FuJno do:׃#.bP_`1D w DescriR7P7Import_U RL}LUnknown e@C=p81s qw Pub0B Sub CustomizeCF(W5m_x.Show< Rrivbgeneric orHandler(obj AsqHObjm,1*PcaStr &Box prompt: ="@Kllowa(2 occur@red incedurerdB_& ":vvb$ s .;3P N#C, xTitle@ ERR ORЖ'11/16/04: A(H C@(t this r ICE 622590 'apurpboof s( A0to en special acters `conta0UID/password ! @ # $ % ^0&* ( ) - _ = + \ |[ ] {} ; : / ? . > < Public Function URL_Encode(ByVal sOriginAs String)  Dim i_Len, CouPnter>Iger sSd, s_Parsed C'figure out length of pas'in sv\ gm()0 `""e= 'p9 each characRand replace@ it wi;e}d valu f 's onNf the speci# For}= 1 TFoR 'get=uq(s= Midcw, 1~Select Ca>sP=A"!EAK+ "X%21 @"4J0#"23$U#4%#5^)"5E&"26U*#A(#8)@9-5D_5F=3/+2B\\5C|7[!O]#{7/}/;3/:[c/2ON?w!.!O>w!<NNEXlseWa?`dPy+zE0re Nextv7vf __SRP_2x#__SRP_3 mLogFunctions__SRP_e'h  0 X  0 P  0   0        zCtt 2tp'tx$ Hx >tx  $1Y000&$`$ `$ `$9 `(a `( `o$`,`/0<`)Iay00&/08)` =&8Q`) 00&&@y`!9Y)ay/////0$`4`=q0( ` nt`6Ctt( (d MP@ /trU~| arU 0`08` !0//0(`90nrU (`o8`1I///n__SRP_f )mMessagesge__SRP_8j __SRP_9-MsgSet 1 - 9 Common# 10 - 39 Journal Editting 14+ 40 - 69 Import Control / Options 70 - 79 Help 80 - 89 Log  90 - 99 Error Message5Function ListArray(SheetList() As Variant) As BooleanX0%ReDim SheetList(ArraySize) As VariantH,English+oH EnglishKKT KT Commonly shared text/messages uTahomae:<F {0Copy data from line5TahomaH,=,uTahoma$4HowMany $#Frame1y( 74ButtonOK0, ;8ButtonCancel04$ \CopyData , 14SourceLineel rU~| T9  9 Qqq Ai!IAY"y9i Q 9!Q!!!Y#!! "!"9"I#"y"# $!$ 9X a7' iI)y)ш9 Y " x$ x x(CppCtt 2tp'tx$ Hx >tx  $ tpx`Xl @\:`%pt$ Ht p d \< A, `1x)tp\6<, P`(x tp\<,|4] `:d%tx$ Hx t d `P A0 F@]@)xt`6P0->`:d%tx$ Hx t d `=)xt`RF@% `:d%tx$ Hx t d `P C )xt`5P>`:d%tx$ Hx t d `>)xt` l4$ $xt`P0 0 H  0   0   4'tx$ Hx >tx%x$ @xWd9`x5d:* (C``Ctt 2t`6Ctt( (d MP@ /t6d ;0 <T  "O\$ t`xd 0   0   0 X  0   0   0   h$4dhl$ Hl h 0 ldpx)lhkx kx pvkvl   "ptpr_C((8*M\@ F%X,/68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l @2l68MC((8 M\@ #lX l 02l68MC((8 M\@ #lX l 02l68MC( (8*M\@ #lX l @2l68MC( (8*M\@ #lX l @2l68MC( (8*M\@ #lX l @2l68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l H2l68MC((8*M\@ #lX l H2l68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l H2l68MC((8*M\@ #lX l H2l68MC((8*M\@ #lX l H2l68MC((8*M\@ #lX l H2l68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l @2l68MC((8*M\@ #lX l H2l68MC((8*M\@ #lX l H2l68MC((8*M\@ #lX l H2l68>CC F8lX l 2l58>CC F8lX l 2l58>CC F8lX l 2l58>CC F8lX l 2l58>CC F8lX l 2l58kCC 1fc8>#0\ lX l 2l6\8kCC 1fc8>#0\ lX l 2l6\8kC C 1fc8>#0\ lX l 2l6\8kC!C 1fc8>#0\ lX l 2l6\8kC"C 1fc8>#0\ lX l 2l6\8>C#C F8lX l 2l58>C$C F8lX l 2l58>C%C F8lX l 2l58kC&C 1fc8>#'0\ lX l 2l6\8kC(C 1fc8>#'0\ lX $l 2l6\8/C)C #*02 c8lX l l58 c8lX l l58/C+C #,02c8lX l l580c8lX l l585lxM( N''8lX l <-l68lX l -l*vlX l -llc>^'kvD8lX l 8-CC F]32l682&kvD8lX l D-l58 vd" l$ l l X" l$ l l6lX Qlo8 . :\/]@68 E8lX l 8:\/X  )l68=8lX l 8`:\N 0/l68=8lX l 8`:\N 0/l68=8lX l 8`:\N 0/l68=8lX l 8`:\N 0/l68=8lX l 8`:\N 0/l68ZlX :H1N:\NQlo8 `:(N 0/6 8ZlX :H1N:\NQlo8 `:(N 0/6 8ZlX :H1N:\NQlo8 `:( N 0/6 8ZlX :H2N:\*NQlo8 `:()N 0/6 8ZlX :H1N:\NQlo8 `:(!N 0/6 8ZlX :H1N:\NQlo8 `:("N 0/6 8=lX l `:\#N88 0/l68=lX l `:\$N88 0/l68=lX l `:\%N88 0/l68ZlX :H1N:\,NQlo8 `:(+N 0/6 8ZlX :H3N:\'NQlo8 `:(&N 0/6 8ZlX $:H4N:\'NQlo8 `:((N 0/6 8,8lX l -8(\]Zl58&rCC F]'8lX l -8X  8-@2)l68$ 5a8lX l -'8X  8-`:HN 0/)l68cXVl6$7 8lP8Xxp8 l80 H   0   0 P  0 KT!Import in progress...please wait.'KTSave in progress...please wait.'KTReady'SXMessage not found: ( X, X).'n KT Log spreadsheet setup KT Sheet name Import Log'KT'Filename of the message log spreadsheet JrnlLog.xls'KTHeadingsWorkbook'KTHeadingsSheet'KTHeadings Date / Time'KTHeadingsStatus'KTHeadings Log message'SMessage not found: ( X, X).'n8 KT /*** Form_JrnlHeader - New / Edit Journal Header KTNew Journal Header'"KTEdit Journal Header' KTUnit:' KT Journal ID:' KT Journal Date:'KT Ledger Group:'KTLedger:'KTSource:'KTUser ID:'KTJournal Class:' KTTransaction Code:' KTDocument Type:'KT Doc Sequence:'KTAdjustment Type:'KTAdjusting Entry:'KTPeriod:'KT AutoGen Lines'KTCurrency Information' KTForeign Currency:' KTEffective Date:'KT Rate Type:'KTExchange Rate:'KTReversal' KTNone'!KTBeginning of Next Period'"KTEnd of Next Period' #KTNext Day'$KTSpecified Date'%KT Description:'&KTAgency Location Code:'S(Message not found: ( X, X).'n KT '*** Form_SelectHeader and button labels KTOK'hKTCancel'KTAll'KTNone' KTCopy'KTDelete' KT Copy Journal' KTSelect Journal' KTDelete Journal'KTEdit Journal Header'KTChange Import Status'KTImport'KT Do Not Import'KT>System ID (Unit, Journal ID, Date) Reference, Description'KTNew Journal Identifiers'KTBusiness Unit:'KT Journal ID:'KT Journal Date:'KTImport Control'KTUser ID:'KT Password:'SMessag`xME (0 467q@8L5Ce/Time`3)xive4%@6Atatus_ 4_tO`O7CMU Ds 57 0R@xe("A1:E1").E ntire#F.WrapTextFTru.Font.Siza9AHorizalAlignme"nAxlHLeft Bold #Intea Jor167604057Qs.S8ave`jEls*s.a nd IfEhE=s䴪.B eaSub 3 Cry , Curi ,e, Mʀ   B &6q2 sQYNewRowger/AW0 ^5^cˑ =me =i2 a7t r".^;Find("", , xlFormulasWholeBy0s).?Ps 0 Ih.Valu!</k%2))B?80[eNow0VSxY ,Q):0//04?ć'Q"t-`lea'._.&On ErrFGoTo=c {I>E)h(+g\Exit f:~FaJAMxME(6 << <(h0% ` p )ort s  +`$+I 0I PI pi 14@@ pP0`xase=Litera @$ tent@  e> @ me="@ simp@ @0 H@X p0&@ Xj@ @ @ @  8'@H ` 4@p HA@t pN@d p@T @D (@84 P@$ 80G$*\Rffff*0W4b1a5571  *@ 2p   & <"  PX ,h B   ,    *( X(`  <B $    8 6P     8 H` x<B    6    8@ `h x       ( @H hp       ( HP px        (0 PX hp   <B   .(   X  `  h  x                        0 8  P X  x          F  (  0  P X  p x               <B  P X @`                ( 0  @ H  ` h  x       <B     0  H PX px          (0 @ H X ` px       @H hp       ( H$P x<B       $  ( @H `h        08 PX hp     ( 8 @ `"h   . $ 8@ P<BX         <B 0  8  P Xd` b 8@ `<Bh   <   "  86@ x: ( <B 8,@  p x HBP J * (20 h(p   P2X (   h p6  : 0 8 BX   <B   *   ! (!X0! ! !  "<(" h"p" "" "6" "D# H#DP# #(# #8# $<B$ P$ 4X$  $ $l $ %l % % % &P & p&<Bx& &0&  & &'  'j (' 'D' '"' (4 ( X(H`( (0( ( ( )<B) P)6X)  ) )) )2) *>* P*NX* * * X+<B`+ +2+  + +,  ,2(, :`, ,, ,, ,", -<B- X-`- 0$h-------xp] ] e not found: ( X, X).'n KT :*** Form_AddDelLines - Add / Delete multiple journal lines KTInsert Multiple Lines'KTDelete Block of Lines'KTInsert'KTDelete'KTCancel' KT From Line:' KTTo Line:' KTNumber of Lines'KTCopy data from line'S8Message not found: ( X, X).' n)KT )*** Form_SelectSheet and Homepage buttons KT Setting(s)'(!KTNotes'KTNew'KTEdit'P!KTDelete'KTCopy'p!KT Import Now'KT Write File' KTGo Home' KTYes' KTNo' KTGeneral' KTJournal Sheets'KTImport Journals'KTNew Journal Sheet'#KTEdit Journal Sheet'KTDelete Journal Sheets'KTCopy Journal Sheet'KTImport Journals Now' KTWrite Journals to File'KT Select Sheet:' KT File name:'8%KTNew Journal Sheet Name:'KTFile already exist'KTOverwrite the existing file?'SMessage not found: ( X, X).'n8*KT *** Form_Options KTDefine Options and Defaults'KTHeader Defaults'KTGeneral Options'KTMessage Options'KTDocument Sequencing')KTOnline Import Control'KTAfter successful import' KTBusiness Unit:' KTDate:' KT Ledger Group:'KTSource:'KTUser ID:'KTEnable Multibook'KT AutoGen Lines'KT Language:'+KTLog Error Message only'KT Log Successful and Error Message'KTDisplay Messages Online'KTEnable Document Sequencing'*KTDefault Document Type:'KTAddress:'KT%Change import status to Do Not Import'KTKeep import status as Import'(KTUnicode'S Message not found: ( X, X).'$n` FKT Help text KT captionJournal Entry Help' 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.'SMessage not found: ( X, X).'X4nPKT Log text KT Imported F journals - System ID (Unit, Journal ID, Date) Reference, Description:' KTUpdated F journals - System ID (Unit, Journal ID, Date) Reference, Description:'06KTsuccessfully imported.'SMessage not found: ( X, X).'nPZKT-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.'SMessage not found: ( X, X).'n[KT Header related error messages KTJOne or more of the following required fields is blank: Unit, Journal ID, GJournal Date, Ledger Group, Source. Please make sure all these fields contain values.' KT9Please enter a date for the user specified reversal date.'8;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.' 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 ice: 712639000 (AH) .Embedded quotes are not allowed on Journal ID.' KT ICE: 688200002: (AH) 1Embedded spaces are not allowed in Open Item Key.' KT ICE: 733561000 (AH):Maximum number of characters for journal sheet name is 29.'SXMessage not found: ( X, X).'n\KT Line related error messages KTPYou have not selected a journal header. Please Insert or Select a header first.'KTNThe line you wanted to delete does not belong to the displayed journal header.& Click OK to delete this line anyway.'KT3The row you wanted to delete is not a journal line.'KTInsert Journal Line'KTDelete Journal Line'KT-There are no lines in this journal to delete.'KT<The From Line you specified does not exist for this journal.'KT;The To Line you specified does not exist for this journal.' KTTo Line is less than From Line.' KT0You have etered an invalid From Line or To Line.'SMessage not found: ( X, X).'n]KT% Line Checking related error messages KTAThe amount in the selected cell contains too many integers. The maximum allowed is 'KTAThe amount in the selected cell contains too many decimals. The maximum allowed is 'KTAThe amount in the selected cell contains to many integers and/or 0decimals. The maximum length for this field is 'KTGInvalid data type. The contents of the selected cell should be numeric.'SMessage not found: ( X, X).'n@^KT! Worksheet related error messages KTNo journals exist.'KTGA journal must be selected when the 'Change Specified Journal' option is selected.'KT<You must enter a valid name for the journal entry worksheet.'KTSheet name already exists.'KT+Sheet name must be less than 30 characters.'KT@No journal entry sheets exist. Press New to insert a new sheet.'KT'No journal entry sheet exist to delete.'KTNo sheets exist to copy.'SMessage not found: ( X, X).'n_KT( Real-Time Import related error messages KT titleJournal Import'KT)No journal entry sheets exist for import.'KT6Import error: unable to import journal lines on sheet'KTEImport error: unable to import journal headers associated with sheet'KTGJournal import was not successful. Either you are not logged onto the Edatabase through PS/nVision or your import definitions are incorrect.'SMessage not found: ( X, X).'nX`KT$ Batch Import related error messages KT titleSave Journal Sheets'KT*No journal entry sheets exist to be saved.' 3 Total of N journals and M lines saved successfullyKT Total of 'KT Journals and 'KT Lines saved successfully.'SMessage not found: ( X, X).'nSMessage Set not found: ( X).'n`SXLang not found.'n8i0(Attribute VB_Name = "mMessages" Option @Base 18Explicit  Pub MsgSet As Integer 2Num 2 '^ 1 - 9 Common1039 Journal Editting %4%69 ImportHntrol / s -7-79 Hel p 8 89 L o 09 99 E`rror FuncListArray(ShHeet()yV@ariantB`ooleapSub Build_Lang  ReDim 1'B+Size $}English}End @' C+F;Geto(n,D~y,\jparam1ASng  ǝ.ProcDataInvok e_A \n14&AASelec@yA >C"0, "D M  E 1A 'Ġly shared text/mD !> ;5in progr@...pse wai\t.0AB2YSPave 3 ReadyElseDd not found: (" & C(C0r)",@() Q>g!9"6 v sprso setu{5.A'bg n`974File of the H logi! Jrnl .xlA3 H``aMWorkbook14gU"5 {Be@Time6Ctatu!7?"*e1_[b_[_[4Q['B'=1!;e'*** F0orm_E!AerNew-Ac !b1;qw%ye K '=_ r?{Unit:o` IDQ a-4wLed@ Group56eSce7sUs%s)8eClass9TransasCod 20/'Document Ty>p& S`equen2&AdjustQ,0&p^ Ey_P2'Period&utoGen LinD b C'Curr`ypfJaᲯ:PB'X@Neign  q o((Eff`i/; (RaP$3(xch0e A 3(eversale 3'Nonv&XBeginn&N@ #'n?H$3/(8i"_/'Ag/Locb/K??Kumq9&  Case 12 x'*** Form_SelectHeader and button l`abels jV MsgNum Gj Get. = "OK"2 2Cancel6R3iAl4N(one45CoTpy6Dt 5116 JournaoyRoTC-WEdit-E QN2@hange Import Statu>sRZ @o 8NotDZ@System ID (Unit, CIDDate) Refereescri`ptionSNew denti0fier%VBusiness z:7WdN 8ٟl #9DE@Controf30Us@ID23zUPasswordRElse*M-a ]nMfound: (" & CInt(੐Set)",`).l4End~ kclaAddLaB -  / ămultiple j l $ @?'`'In2t M BR+ DBlock of c'c Fr|om(aT~o O"rYb3_u data f $/e 44494um4q4 7w& 4LaXngus9Zog Error !%`onlyQ20}SgNa 2 i splays c P3?t"2SE TypM2aTAddrs62)TCh=ez status to  Not $!zXKeep as Y codea#B?70' Help texhw/s+1R1 ' ca"w3JJnkE`^ye - 'To in`K`t a j"dfA01 &7Get. = "On$e ^orf the foll owingquirfields is blank: Unit, Journal ID, "P & _j"#Df, LedgnGroup, Sce. Plemake suEallF=/contain values.v"@2J (((1)y)))!*3#xME (SLSS<N0{00020Form_JrnlHeader *Sheet1"$1ThisWorkbook AForm_ImportNowQE-BD6F-A975283476EF} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit P"& Sub UserActiv () AdjEntry_C k If Trim(ReversalCode)" Then!Button_None"E"D;.Vi siPEnd IfCSelecxt C}C"Np H.ValuAgC^A B BeginNext E ) X Q DayVD Specif A4ROG;QOCK BubK~Ń@},|AcctgPodtG"A*Label13APRC d  HaHhI`TEL[K$-B^)$[fMcT=  rO\ j ^%efmR8eGCancel aIDD,p.Hidh ROKg Dim i As Integ0er !OKBooleabErrorQuote#Z'ice: 712639000 (AH) - b#, = Imbedded(|IDɁ gsNjend>?h4"|HNE|XTTdC B@usUnitdlOrnAd_3@LedGrp,S0ourcpQ 'Requi@ fi elds b`lank.Ai MsgBox(Get(Lang, 91, 1), vbEx$maQ}, -%Ca~dMV0"j|  8    ///,$ 4E1 Check_*)<'CurEffdp%*2o{Go a>=)1 .=0T? KQ'InrU~| q $a$$%%&1&Q&&& '1'q'' (i(((1)y)))!*Y**+Q++ ,a,,,A---).y...Q// 0Y00 1)1Y1y1112i22!3Q3 4555)6a6617a773 8i88889Y9999 :9:::1;; <i<<9===1>>?? @Y@@ AqAA BaBB C DyDDiEEIFF HIIJ LQMNO P9QqQQ9R SiK TIUyVV X)YYZ \9]^A_ `9aYb)c d eaf[ hhIiiqj l mmqno p!q9r t9uuv xyyQzwi{s1G ||!~ 1QقYQ0 0  ,  hXX:h]3,X:H]3s h88(h]3h(((h]3oCx((h]3Cx((h]3CxBhE#$*# *#HE#*#*1x2 $ n8(h ]3h(h]3%Cx (h]3@ Cx (h]3[ Cx (h]3v Cx (h]3 Cx (h]3 Cx (h]3Cx BhE#$*# *#HE#*#*1x2 $ n8(h ]3h(h]3GCx(h]3bCx(h ]3}Cx(h ]3Cx(h ]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3:Cx(h]3UCx(h]3pCx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3 Cx(h]3-!Cx(h]3H"Cx(h]3c#Cx(h]3~$Cx(h]3%Cx(h ]3&Cx(h!]3'Cx(h"]3(Cx(h#]3)Cx(h$]3 *Cx(h%]3;+Cx(h&]3V,CxBhE#$*# *#HE#*#*1x2 $ n8(h ]3;h(h]3-Cx6(h]3.Cx6(h]3 /Cx6(h]3'&Cx6(h]3B0Cx6(h]3]1Cx6(h ]3x2Cx6(h ]33Cx6(h ]34Cx6(h]3Cx6(h]35Cx6(h]36Cx6(h]37Cx6(h]358Cx6(h]3P9Cx6(h]3k:Cx6(h]3Cx6(h]3Cx6(h]3;Cx6(h]3Cx6(h]3<Cx6BhE#$*# *#HE#*#*1x2 $ n8(h ]3 h(h]3r=Cx (h]3>Cx (h]3?Cx (h]31Cx (h]3.Cx (h ]3@Cx (h ]3 ACx (h ]3/ BCx (h]3J CCx BhE#$*# *#HE#*#*1x2 $ n8(h)]3 h(h]3 DCx (h]3 ECx (h]3 FCx (h]3 GCx (h]36 1Cx (h]3Q 0Cx (h]3l HCx (h]3 ICx (h ]3 JCx (h ]3 KCx (h ]3 LCx (h ]3 MCx (h ]3 NCx (h]3) OCx (h]3D PCx (h]3_ QCx (h]3z RCx (h]3 SCx (h]3 TCx (h]3 UCx (h]3 VCx (h]3 WCx (h]3 XCx (h]37 YCx (h]3R ZCx BhE#$*# *#HE#*#*1x2 $ n8(h*]3h(h]3 x(h]3 \Cx(h]3 ]Cx(h]3# ^Cx(h]3> _Cx(h]3Y `Cx(h]3t aCx(h ]3 :Cx(h ]3 bCx(h ]3 Cx(h]3 Cx(h]3 Cx(h]3cCx(h]31Cx(h]3LdCx(h]3geCx(h]3fCx(h]3gCx(h]3hCx(h]3iCx(h]3jCx(h]3 kCx(h]3$lCx(h]3?mCxBhE#$*# *#HE#*#*1x2 $ n8(hF]3Zh(h]3nCxU(h]3op*#$q*1x/$U(h]3rs*#$t*1x/$UBhE#$*# *#HE#*#*1x2 $ n8(hP]3,h(h]3u*#$v*1x/$'(h]3w*#$v*1x/$'(h]3xCx'BhE#$*# *#HE#*#*1x2 $ n8(hZ]3h(h]3cyCx(h]3~zCx(h]3{Cx(h]3|CxBhE#$*# *#HE#*#*1x2 $ n8(h[]3htt(h]3B}~*#$*1x/$t(h]3]Cxt(h]3xCxt(h]3Cxt(h]3Cxt(h]3Cxt(h]3 *1xt(h]3Cxt(h ]3Cxt(h ]3= *1xt(h ]3XCxt(h ]3sCxt(h ]3CxBhE#$*# *#HE#*#*1x2 $ n8(h\]3Nhdd(h]3CxId(h]3- *1xId(h]3HCxId(h]3cCxId(h]3~CxId(h]3CxId(h]3CxId(h]3CxId(h ]3CxId(h ]3CxIBhE#$*# *#HE#*#*1x2 $ n8(h]]3+hTT(h]3 *1x&T(h]3 *1x&T(h]3 *1x&T(h]3Cx&BhE#$*# *#HE#*#*1x2 $ n8(h^]3lhDD(h]3bCxgD(h]3 *1xgD(h]3CxgD(h]3CxgD(h]3CxgD(h]3CxgD(h]3CxgD(h]3#CxgBhE#$*# *#HE#*#*1x2 $ n8(h_]3\h44(h]3CxW4(h]3CxW4(h]3CxW4(h]3CxW4(h]3 *1xWBhE#$*# *#HE#*#*1x2 $ n8(h`]3Hh$$(h]3CxC$(h]3CxC$(h]3CxC$(h]3CxC$(h]3CxCBhE#$*# *#HE#*#*1x2 $ n$hE#$*# *1x2$ }CxXpXxX8(tdTD4$ $  zCb,B{fvalid| d go$d$0, 2o$o$i$y qPqBGt " 08 @PX ` p           " 820-0000-0000-C000-000000000046}@(%H@0G xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 3#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}@(%H@0G xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdLxME(SPSSS0{82562151-CBDE-43BD-A52D-23E1C7E60179}{F98AD4F2-34B2-47AE-BD6F-A975283476EF}@ @    @     **`` ` ` % %@@ Gt " 08 @PX ` p           " ( 8 HX ` p "   "   "  0 "8 @P Xh "p x  "  " "( 8 X p P ( " H(Px(      ( 0@ H (` xA@ $|et A@d@ ( k( NKT 14 B(tBKTort  D(tEKT  F(tXKT  H(t0 - 89DKT J(tH (sageno@ !ts  (s Bool 4(0d (%Re 4(ist(ArkxopN'h' (o8B'KT' (%oE'' (o@X'' (oD' (o`' B@ o8]@]X]p]ice: 712639000 (AH) - begin $T' $2'ice: 712639000 (AH) - end $|NEXT'kx $| $| $| $|Required fields are blank. [$  !$'ice: 712639000 (AH) - begin e [$  !$' e [ $  !$'ice: 712639000 (AH) - endd0' $p $p $p'kkk  B@ d Invalid date Z$  !$'kpkho`XAttribute VB_Name = "Form_JrnlHeader" Bas0{82562151-CBDE-43BD-A52D-23E1C7E60179}{F98AD4F2-34B2-47ATru BExposeTemplateDerivBustomizD2 LgꈺxME(SPSSS0{B560BEB2-F1C0-4586-B522-14FFB69D0DD3}{753B470F-6FD9-46B9-8D88-A3E0BF73F8C8} X`  % %XXG  "$ @PX "`h px]@ $| $| B@ k(o X' B@ oxpAttribute VB_Name = "Form_Import@Now" Bas0{B560BEB2-F1C0-4586-B522-14FFB69D0DD3}{753B470F-6FD9-46B9-8D88-A3E0BF73F8C8} 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 y ي!)QForm_AddDelLines"Form_SelectHeader$[__SRP_cn< __SRP_d yي 4a`  8! <aу`  @aG` DыH9{ La`I PI TiXI1\Y`!qdhiwliwpiwt 1m W   0   L$$ 0   \(zpt! t lptclX$kzDLt! t Dt5L zdl*0\$ tL4L<@@\rU $ `$A `$ `$ `n  (86rU $Form_Options __SRP_6$__SRP_7Form_SelectSheet"'H B@ oH B@. B@ Template$PB@R HB@A$!B@H L(N B@P B@  A@ro.Attribute VB_Name = "Form_Options" Bas0{8B465FD8-8B63-4E56-9DB9-64C61AD9E70E}{63A70FB6-205C-4A99-AC1E-85A28C6@3300B} 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, 14).EntireColumn.SelAppp1.ScreenUpdng8C ".ShowCN'NUnloLadLKqxME(SPSSS0{67DF2768-34F9-4BDA-B696-9E7254B59D61}{3447517A-984E-4A8F-AC8A-5ED5725B5B90} @ %%` d: (`X   0  p% %@0p0G\ "   8Xx    8 H Xhp "     0H PX` h@ . (  8 (X 4 ( 2 (Hp x   "   " 0 8 HX` "hp x   x !ul imp Insert modeBusi  $ (Date  $ ( Group  $ ( F. (F! (<$  $ ('ded  Delete modeB@  $ (  $ (s (s Bool (0 ( (k  $ N(p  $ ('  $ (o(@]] ! Insert Modes not ' $~s. $n $$'kkd Delete Mode' $| $| $~ $~ (MSG= Empty or Invalid FromLine or ToLine \ $  !$' $n $n e MSG= FromLine > ToLine, Jo \ $  !$' $n$e s -MSG= FromLine does not exist for this journal \$  !$' $n$e +MSG= ToLine does not exist for this journalck the \$  !$'d'kxkp  B@ eet.'kPoH'''' (t B@ Thero !t (d ( the f (tuireko0' $~nal  Date $n $n  'k@k8o0(LAttribute VB_Name = "Form_AddDelLines"  Bas0{67DF2768-34F9-4BDA-B696-9E7254B59D61}{3447517A-984E-4A8F-AC8A-5ED5'B5B90} 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 b Microsoft Forms 2.0 FormEmbedded Object9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_AddDelLines Caption = "Add / Delete Multiple Lines" ClientHeight = 1845 ClientLeft = 45 ClientTop = 330 ClientWidth = 4230 StartUpPosition = 1 'CenterOwner TypeInfoVer = 33 End (H  [@+}\9$R KQ 3꟡|؋0Nm:"5TkvDۥJ4oFm(xY[лGKƅkKx[лGKƅkK؋0Nm:MEPSPSSS>"LL0{430A9120-012E-44CA-BA25-2A317690541B}{1CEAC58B-2E64-4EF8-BCC3-FF61B801B544} ` `h ` ` x  `X|k " ` %`Q  `Lk,`z x% % R %P%  ``H@t `@p @ n ";8>ؙB@l x e@\ ؙB@L epx (G$*\Rffff*0r4b1a5585*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4548<@DHLPTX\`dhlpt3 "   (86@ ,x ( . $ N(x  (     "(0 8H " PX`x "($  x]@]X]p !M' $| $| $| %Required Journal key fields are blank [$  !$'(ElseIf UCase(Trim(JrnlID)) = "NEXT" Then NEXT Journal ID not supported Hi = MsgBox(GetMsg(Lang, 91, 9), vbExclamation, FrameCopyJournal.Caption) $pe Invalid Journal Date Z$  !$'d('kd'k  B@ koA  B@ o]  !  ,ho` ]`  !  ,oAttribute VB_Name = "Form_SelectHeader" " Bas0{430A9120-012E-44CA-BA25-2A317690541B}{1CEAC58B-2E64-4EF8-BCC3-FF61B801B544} 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,F^ 26`P $ (xM@@`  `:0 ]@5`oC(P(`ZM@@ 1$ a '' `F0>F^ pv26`P $ 3(x4 p`P 0 p  P  $ D $ 1d:h %x$ x dd)xdx$ @xxA(h%(D%x$ Xx$=x6$" x$ x x$$Vx$ xx $ xd$8H\a `!)`($A`,$`0nrU Hai7!ل $щ!X iهsa 4a`I 8a tU +(Ot9NN xQy[pDnFe@!SO B6 h>Fxh>FOt9NN xQMEh@SPSSS>"LL  LLLL"  "" }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^ -36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R3*#37*\G{AC2DE821-36A2-11CX t|}GFAiу1B\O 6hsǫ\HpjO#MٽZx#MٽZ}GFAiME\@SPSSS>" LLLLLLL<` @p, @ @ @0 @ @ @ @ @H @` @ @x @ @ @p @` @\ @L @< (*,4  `h8G$*\Rffff*0X4b1a5577$*\Rffff*0S4b1a556e$*\Rffff*0W4b1a5571*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R3*#37*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\R0*#f*\R0*#11*\R0*#e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#1*\R0*#14*\R0*#248<@DHLPTX\`dhlptN __SRP_a__SRP_bForm_CustomizeCF"<J__SRP_10 gZ!k <aу`  @aG`  D9{ Ha` LiPiwTiwXiw\o`![dh[lipagt a10`  m W    IC(((,(L Ml@ # $! $ 02( $6L,IC(((,(L)Ml@ # $! $ @2( $6L,$! $ k$cIC(((,(L Ml@ # $! $ 02( $6L,IC(((,(L Ml@ # $! $ 02( $6L,$! $ $$! $ $`$ ( $L,Lc@`! ` `5@>`! ` k>`f@`! ` `5@>`! ` k>`;/`! Q`o@, ,:P ]@6@,6&`! Q`o@ F,l5@l@ @:P ]35@ c@`! ` `5@4C(,(@)MP@ # *# *F`! `  : C\\(`()M@ FL<`1h2\`6@,`L<D$a@''@`F,$hMP@^6@,2`! Q`o@ 5@c@`! ` `5@/`! Q`o@, ,:P ]36@,oC(,(@^MP@ 1$a''`F0>F^pf26@,3`! Q`o@, ,(P]Z6@,oC(,(@^MP@ 1$a''`F0>F^pf26@,c@`! ` `5@`! Q`o@5@$R@,lhH\`@,`L<0   0   0 `  t4H<@8rU $ `$A `$ `$ `$ `nrU $`$A`(`&$` $`$A`$`R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4e*\R1*#6d*\R1*#fc$*\Rffff*0T4b1t2= {<׾+I[GNb6jHcƞIdcwS OL.X(U77}L.Y%x77}L.Y%<׾+I[GNbME\@SPSSS8>"LLLLLLL <``  @% BP` iD`F`r H` % J` k , P` 7 TP` E V` S@X @% ^(`  c @ % `h ` $ n d ` ( z@f @x `h j` ` k, 66`lx`v | ` 0  ~ ` xk4   ` 8 `` xk< ` @ `HD00 @x% ` Hph@%p %"64@ `` h(PP` h6tvZXt @d @T @P LO P ` XH @8 (( @  X @  @ 0  @ X @ @ @  @\x ( @ "h P z:<@x 8 P LN@ x @h h @ X @T @ D @ 4 @ $ @ @ z:<@x <:@x @t @p @` @P H08h.L$n&:~p@p @` @XP @@L rtZv\@0H }@p8 atta@( DB@ $@ Fmt@ @ e@ `@ @H @ ,@` @x 0@ @t @r @` ((xzn\lmt@P @ @ $@0 reme@P, mal @( @   @pxPL G*\R1*#24e$*\Rffff*0P4bcc9756*\R1*#337*\R1*#10d*\R1*#220*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\a556e*\R0*#13*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\R0*#108<@DHLPTX\`dhlptx| "8( " 08@,X "   * 0H*` * (@"X "  "&Y:  8 HX`h " p&x  (0PX " `,h 08 " @HX hx   2  ( " 08F@   "  6@HP `px " $6 ( "08@ $H7p7 i$/,8/ P  X  qh  d   W   (   *   b0 >  !      b@ >  ,d ! "@ h ,dp     n :0  Np  &!  X     "  "  ( 8 HX " `hp "x     "  "/T  08 @ hHhh.tV   0 8 HX  $`p x <        W( @PXhDp  "    0 @x] <!t :(toP`] @ H!!ChkBox @!!$$| @(xpoh] ]8 R1=Field name D$!t'F D $!t D$(t F D $(tR7=Field label D$!t'F D $!t D$(t F D $(t R8=Format D$!'F D $! D$(A F D $(Rest column width D$h!'r D $h! D$h( r D $h(o`P !  %XB@Hk A@o ! LastLineCol$!  %XB@H L( N(kA@o ! LastLineCol$! ! A@Bd@ !B@R %XB@R L(rRelocateChkBox 6(A@>k %XB@HA@o ! LastLineCol$! !A@BdP !B@R %XB@R L(rRelocateChkBox 6(A@>k %XB@HA@oP] !B@R ( 6!Z.X X( X(P X( ! ! X!   X( NewChkBox X(A@>A@ \(to])Do you really want to delete this column? * ( $ !B@ 6B@A@>A@k@o8( ! ! ( ! 6!! ! 6!   6(kk ! b(koh] !?  ( ! 6!! ! 6!   6(;k b(o]0]HICE 1214492000 and 1215208000 . L%v'$ n L%v'& :$~ p rInvalid Decimal Place$' : :  p re*Invalid decimal place. Valid range is 0-8$'d t! t$Z !$(tkp v !$(t \@ !$( xe$! !$(d :#0'l\ICE 1214492000 and 1215208000 - Decimal and Thousand separator need to be looked at together8FmtString = "#0." & String(Val(DecimalPlace.Value), "0") z# &# l'l eg. #,##0kd**Decimal Place is > 0\ICE 1214492000 and 1215208000 - Decimal and Thousand separator need to be looked at together8FmtString = "#0." & String(Val(DecimalPlace.Value), "0") z#0 $ :!t$n0$\'l# &# l'leg. #,##0.00 for 2 decimalsd# $ :!t$n0$\'leg. #,00kHk@ hICE 1214492000 and 1215208000 - The logics for thounsands format need to be included with decimal points 4FmtString = IIf(Fmt_Thousand, "#,#", "") & FmtString p$$l l'l l _);[Red]( l)'l l !$(0k A@ko`A@~o z( ( :( <(oA@~o  z( ( :( <(o8`A@o ] @ H! @!! ! @.6yk !$!t t(t !$!t v(t t!t$ZFOREIGN_CURRENCYKFOREIGN_AMOUNTKRT_TYPEK RATE_MULTKMONETARY_AMOUNTK OPEN_ITEM_KEYKT ( t(S ( t(n ! KT L( N( LastLineCol$!KT ( (S  L( ( N( (n !$!@KT'\GeneralKT'$!KT'xSh'r : :(tA@n@o8 $B@H HB@Control$PB@R B@  A@ro 4Attribute VB_Name = "Form_CustomizeCF"  Bas0{4EF0373F-E686-48F4-A79F-1F7F201F9CE1}{636412F2-5377-4F0D-AB4C-2EEA58287F55} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDe8rivDOp tion 0licit Dim Cbox As CheckBox P-1 Sub Spin1_Chang@e() DecimalPl.Valuw End &Renumber'5'AB@} Each CB In Act;@Sheet.*eFs# CB.Ch" & Trim(str(@BotRightCell.Co lumn)D4NexCH- AExc@@ *Integer/tmp1ASngU2H *'R1=Fiepld n= $s(1, @~)EQ6+  + 1  "7"label"7" "C""t8=a`AJ"8NGc oLest cbF width&&2 s(7 KW #7.`%2mwelectLeft_ C~k%xIf SBDa > 12 ThenC!1gOffset(0x, -MfIBfcUserA4_?u@6#q?< R"LastLine$")_,'#.Visi#BhifB'2. =ge (c+(;-?5BaEntir* W.CugqkK@In`=A4ppLa!CopyMod afRelocDdQb Pe& ])ct (iea S1( 2nQ87)) vcgEObO ;2).???@?y? ?y0?,ic#//# COLg2vNew PaOxy7 V8 Set $@yrDuS.He@15d._q9{TopP80[!H`g 6+"-) / 2 - 4EsS /2EFmt_Tex~tÈ QpMMDdte05Msg("Do you @lly want to d this$w?", vb YesNo7vbQuxN)` 6?k oO:  cQGA0e0ENarrowg_onl> 4? 4 K+p^!0_ oLn< 10q)ݳO*-#0*qU =8yd9_R0 eDx, Y, zһingl4>OB&m + 0.5)aS  < 81Q < 0Gd Bpp. VRrange is 80-8 RmWFldName.En`abled ~kCells(1, SelecCo@lumn).3ueUCase(%ZIf7LabelC )@kTextV'8sFormat)"@"kFpDate:C5 6).KGAF@^I'0 @ @(StringA0#00'ICE 1214492000 с5208N-E sE ne@}to be` look@Ktogether -A#." & ((@ C), "0O EaO:  & "#N` 'eg.@ #,##0ELU D'**l>  2v22 '$0222S@p_$#CϒC/ >mtP6 ` >. dfor 2 ds>o ݢěag0_S U>N`|gics a t@onhincludwith% pointL&JOIIf/b?6"`")"F[y$ER A_);[Red](A<")TF\_n9]Local/V !MUserg_A=`sv`feqSubPri Generald_Ck(u0_QpS gV.Visi~q aPc bwPp! p  P8(`]p(L! L  (]cH! H !  't)pLH6P/''('8:`!NPP^ pv6P8(>rp! p  krppqp! QpoP8 8(`%L $ LW(%H$ XHC)LH6P(8dp! Qpo8%(`%L $ LWP%H$ XH(C)LH6P8(p! QpoP5PJW:%(`%p $ pWP%L$ XL8C)pL6P85p! QpoP5P(`%(%p$ XpPA(%(`%L $ LW8%H$ XHC)pLH6P8(5*Pp! p  P(`]3p5P`"Cxp! QpoP5P[!#v*#,#*#(lx*1x2,(lp! QpoP5PdPp! p  P, $t "v*F:`%N88o ( & (`1x/,p6 P8(!#v*#,#*#(lx*1x2,(jdPp! p  P, $t #v*F:`%N88o ( & (`1x/,p6 P8(Np! :'N((:`(N88QpoVBFrame=Form_OptionsX`-0foNPP )lxF`1x6 P8(!lx**#,lx*#(+*1x2,(XlxF%(`%p $ pWP%L$ XL8C,)pL6P8D\D(xP,(pLHP8(t0 `  hx! x xx! x xx! x xx! x xyh$ x0   hx! x xx! x xx! x xx! x xh$ x0 `  b/t$ @tWT4Pxt5TLTxadgttaT"i8]H $ HW(3)tH6dT( lx4L xL1h(8%t $ tWd%H$ XHTrU  -9 Q yy!I ai71 :1 ɜ)ѝ $"1iɏ 1y 8aY`  <ay` @iwDI `HiwL PY ` Ti Xa!`\iw` y10`Q da` ha`I la ` pa! `t!9 xaY` |ay`I `Q!ْ a! `II9`Ia`I`aٓi yWWW__|@8tx! x <ltiPp! p  )xp5P@,@$ xpP0 `  0   0 P  Y=(!   )tH6dT(h(8%t $ tWd%H$ XHT=(!   )tH6dT(dt! t  dT Tt5dV:8 ]3: ]3: ]3:]3:]3:]3/t! t tt! t  tat! t tt! t  tt $ tWdt(8 ]3t! t tt! t t9t'%:8%$ tad"i]3t5d6t! t tt! t tt! t tt! t tt! t tt! t t(8%t $ tWd%H$ XHTA()tH6dT:8]3 cdt! t t5d:8]3Ocdt! t t5dA(8%(%t$ XtdAT3t6dTcdt! t t5dcdt! t t5d(dt! t  t5d<<d$PLx(tHdT(5X0   Pd<hX|8  p l D `xG__SRP_11 _VBA_PROJECT{G7dir__SRP_0Q$`$` $A `$$ `($ `,$  `0$I `4$`8$`<$ `@$I`D$`Hnas!CompareText Excel+ VBAWin16~Win32MacVBA6# Jrnlmcro]stdole`MSFormsCMSXMLO mJournalEntry _Evaluate (LastHdrCOL (IntegersP(Decimalsx(StatIntsw(StatDecX[ (HdrCtrlCOLt (p_DecimalSeparator_(p_ThousandsSeparatorj!SeqNumReset> LastLineNum\EndRow CurWrkBook~ CurrentSheeteCurrentHdrSheet OptionSheet SelHeader7NMessageTitle~ReturnCDAmtErr3RowCountuhGetSheetActiveWorkbook ActiveSheet%N(GotoControlPageG Application*ScreenUpdating!  WorksheetsActivate| (ImbeddedSpaceTotLenSpaces(IsDateOKDtexttDsep,Dorder{P1^P2^YRp_tmpDateIsDate2IIfzVal (Check_DateEdBoxQValueK InternationalxlDateSeparatordI xlDateOrderTrim@ IsNumeric$*Right (Change_ImportStatuswi`BeginRow3List1 HeaderArray. NewStatusIGRiRange  WorkbooksB Unprotect?(Build_HdrArrayBMsgBoxR(GetMsg(LanggvbOKOnly Form_SelectHeaderECaptionxButtonOKFrameImportStatusVisible ButtonAll8 ButtonNone% Choose_HeaderkListBox1ButtonImportYES  ListCount6SelectedYCellsRowFindnxlWholexlByRowsFindNextu SelectionZProtectfRowsU (Header_Insertf Form_JrnlHeaderN Modify_Header (Header_Edit RowNummR NewHeaderIi DisplayHdrR KKamountTypeAddItem  ListIndexQ(OptionsJrnlDate_JrnlIDSystemIDJCurEffdt#BusUnitLedGrp. SourceGUserIDjDescr254LedgerO ForrCurrvRTtypecRateMult5 ReversalCodePRevDateNAutoGen AdjEntry AcctgPeriod!AdjTypeH JrnlClassIUtranCD AgencyLocCDUDocType-DocSeqsRefNumDEnabled۪ BackColorރvbWindowBackground$ vbButtonFaceLabel1,Label2,Label3,Label4,Label5,Label6,Label7,Label8,Label9,Label22gLabel10@Label11ALabel12B Label13AP5 CurrencyBoxJLabel14DLabel15ELabel16FLabel17G ReversalBox%a Button_NoneO]Button_BeginNextButton_EndNext>7Button_NextDayĠButton_Specify$Label18H ButtonCancelufShowInsertrxlDown0D (Save_OptionOffsetUCase5 UseStandardHeightCHdrSheetAsLastRowwkb ThisSheet WorksheetColumnsp9 xlFormulasZ (Header_SelectCopyƿ PasteSpecialK CutCopyMode (Header_Copyg^TopRowuBotRowpNewSeq\tSeq BotLineN LastLineCol!FrameCopyJournal EntireRowColumniButtonImportNOHeight|Top5ClearList* MultiSelectfmMultiSelectExDBTahoma|0 #ImportControl_BoxrS$/4ButtonOK1 ( 08ButtonCancel1"0A#HeaderDefaults_Boxr ,I#MessageLog_BoxnxS( M#DocSeq_Box_BSV ( O#General_BoxB 0X<Button_CustomizeCFr1M  jklmn`p(OK<uTahoma2(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{FFB2111A-290F-4771-B3A7-3243741FD3D0}#2.0#0#c:\temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{D63E0CE2-A0A2-11D0-9C02-00C04FC99C8E}#2.0#0#C:\WINDOWS\System32\msxml.dll#Microsoft XML, version 2.0   VLibrary file for Spreadsheet Journal ImportG   mJournalEntry0T4b1a556emJournalEntryHSmImportControl0S4b1a556e8mImportControlH?mLogFunctions0s4b1a560emLogFunctions0mMessages0W4b1a5571mMessagesHMForm_JrnlHeader064b1a556eForm_JrnlHeader` Sheet1074b1a556e Sheet1x9ThisWorkbook084b1a556eThisWorkbook9Form_ImportNow094b1a556eForm_ImportNowm Form_AddDelLines0:4b1a556e Form_AddDelLinesqQ"Form_SelectHeader0r4b1a5585"Form_SelectHeader9Form_Options0V4b1a5571Form_Options(H  Form_SelectSheet0X4b1a5577 Form_SelectSheetH Form_CustomizeCF0P4bcc9756 Form_CustomizeCF{ =@Hx` 0'WI5C.fZAE6 +ML'f}vqJPp7N@|`TmnPHN>/F(BJ17B7 ۤh 0:Ik\=? /cct9DOn7Agĸ.BQ-;I6yA-l:iMɾmiFTo1@7aXEK)=ӉLWв^b tendedfmMultiSelectSingleQ: (Header_DeletelCounter FirstDelete?h DeleteRowFromDeletex ClearContents{ (Line_InsertAdd_LineD ActiveWindow+ ScrollRow"NewLineԶLastCol64Paste xlFormatsUFontUColor2FInterior; CopyFields|xlValuesoLocked CHKD~CheckBoxi{ ChkColumnkQ ClearCell  CheckBoxes̍xlOff'BottomRightCellF NumberFormatR (Line_Deletet CurrentCell$ CurrentRowSmLineSeqG ActiveCell vbExclamation vbOKCancelx?(Delete_LineBlockrLineNumֶPrevRowNNextRow58FromValToVal* Form_AddDelLinesg+FromLine\ToLinegHowMany2(Insert_LineBlockEnding— SrcLineNumSrcRow NoLineValueOCopyData SourceLineAutoFill_ Destinationл xlFillSeries (LineNum_Exist TargetNumDqFound+(ValidateAmountsƕFirstRow3 ForAmtCol BaseAmtCol StatAmtCold(DoCheck)Cel}AmtTtMaxLendPosMinusb ColFormatGPos1Minus1(m Decimals1IsEmpty IsNullxlDecimalSeparatorNumberFormatLocal)(ImbeddedQuotes+ SingleQuote  DoubleQuote3 mImportControlg( Successfulo, LogFileName SkipsheetsSkipDlgs FirstJLine(Init\[ DialogSheetsK EditBoxes NewText_(Encode_XMLcharftmpReplacef(Decode_XMLcharSet_Homepage_LabelsSheets  SetDefaultsm UserNotesoNewSheet  EditSheet ClearSheet CopySheetoImportSelected WriteSelected7 GroupBoxesU GoControlPage (StringBetweenH SourceString BeforeStringgJ AfterStringTBeforeStringPosEAfterStringPosStringBetweenPosԾ (JrnlSheet_NewMesgWCWK_iMsghWInputBox afterX(JrnlSheet_SelectU SheetName6 SheetListp} (ListArray# Form_SelectSheet+TargetF OnlineFramel(JrnlSheet_DeleteSelSheetE* SelHdrSheetX DisplayAlerts(JrnlSheet_Copyi NameErrorh NewHdrSheetgxWrkSheet;jidѣ EntireColumn (FormatJournal^SkipCol SheetCountB ArraySizeCurCountCCount0v (Set_Options@ LangArray Form_OptionsvHeaderDefaults_Box General_BoxrMessageLog_Boxz DocSeq_BoxmeImportControl_BoxImportStatus_Box!Label13CMultiBook_Enablec Def_AutoGenLabel21fLog_ErrorsOnlyRLog_AllMessages Display_Mesg+ DocSeq_EnableLabel31Label41Label42ChangeStatus_YESTChangeStatus_NOcUnicodeW Def_BusUnitЈDef_DateT Def_LedGrp[ Def_Source5T Def_UserIDXo Def_DocTypeY Import_URL Import_UserIDոDuplicateOptionw ErrorOptionHLangListպ(Import_JournalsmodevSelListh; StatusBarOptn" StatusBarText>JCounter2OutFile IndexFileX8UsrIDPwdByte1tmpStrBaseFile5nFileExtlposDot֝posSlash{8DisplayStatusBar StatusBarʜ Form_ImportNow  Import_Sheet Import_Pwdˣ WriteIndexDefaultFilePathRInStrRevĈ LineSheet"strXMLA`strURLP strResponseO FirstRowNumA LastRowNum  iGenerateXMLT| Generate_XMLvbCrLfsendXML& (AddLogEntry6Row2XMLSelfindentCFldValue DecChar3zXMLKsColNameNErroRaiseSpace XMLtext@iStatusV DataRangeMP HdrSeqNumzThisRowtempXMLNkdoErrorjMNumber-xDoc DOMDocumentbxHTTPXMLHTTPRequestxError>% xImportedpxUpdatedIXMLDOMNodeList^tmp2ktmp3l StatusNumYlMdD[Jdate"SysIDA+asynchloadXMLDsetRequestHeader#7send ResponseTextwgetElementsByTagNameYLengthYItemzvbLfT%RTrimLTrimbstr parseErrorvYreason Description  (CustomizeCF Form_CustomizeCF`genericErrorHandler92objErr0 ErrObjectx strProcNameƣpromptm (URL_Encode K sOriginal Qi_Len  i_Counterlq s_Encoded s_ParsedQ mLogFunctions(OpenLog~Workbookk PriorActiveWBTemplateFileName TemplateDir LogFileSpec|Path2(WorkbookIsOpen=dAddr ColumnWidthWrapText}SizeHorizontalAlignmentS@ xlHAlignLeft-BoldSaveAsf; CurSheetNameKStatus+ CurBookName LogWorkbook LogSheetE"NewRowY LogColumn$Now%SaveBookNameaNotOpen mMessagesd(MsgSet (MsgNum(Build_LangArrayKparam1UserForm_ActivateZsAdjEntry_ClickButton_None_ClickaButton_BeginNext_Click[Button_EndNext_ClickButton_NextDay_Click;Button_Specify_ClickButtonCancel_ClickHide9zButtonOK_Click1DateOK]JrnlSpaceError JrnlQuoteErrorЋ Sheet1 ThisWorkbook|Done CopyData_ClickHowMany_ChangeButtonNone_Click}ButtonAll_ClickmyURLLCase: vbQuestionvbYesNovbYesa? UndoActionaButton_CustomizeCF_ClicktempRKillCboxz Spin1_Change DecimalPlaceySpin1Renumber_ChkBoxCB\Exchange"ColHtmp1jSelectLeft_ClickSelectRight_Click SelectLeft ShiftLeftclShiftLeft_ClickPCut.ShiftRight_Click:InsertCOL_Click7NewCbox Duplicate_Fmt_Text:DeleteCOL_Click Narrow_ClickNarrow Wide_ClickNxozqFmt_Apply_Clicks+ FmtString^xlThousandsSeparatorL Fmt_Currency Fmt_NumberFldName$FldLabel?Fmt_DateW Fmt_ThousandcFmt_General_Click\Fmt_Text_Clickx Label_Decimal3.Fmt_Date_ClickFmt_Number_ClickFmt_Currency_Click DeleteCOL SelectRightf ShiftRightϰ Fmt_GeneralButton_Exit_Clickf_DefaultjUserFormNButton_CustomizeCF`Click _B_var_Right9 _B_var_LCase' _B_var_LeftQ _B_var_TrimmT _B_var_MidpFirstseq7NewSeq1\ Firstz Fmt_ApplyWideI FrameColumn Button_Exit InsertCOL! FrameFormat MultiPage14?Change _B_var_UCasea _B_var_Stringӊ   9    &T"@MT@@@ @@@0* pHdJrnlmcro+4Library file for Spreadsheet Journal Import@V`ibray fle o Spe! dshetJounlIm)3tY=   G % <9stdole> s5d4EI >^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\STDOLE@2.TLB# AutomationEMSForms>FFruHs3ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#Misoft B @/ Ob ject Dv/;"1@:@A@00}#0@#G 50 jAFFB2114290F-4771-B3A7-3243741FD3D@CYc:\Vp\VBE\Mp.exd`5.E .`M @MSXM0L> `XML *D63E0CE2-A0A2-11D0-9C02BC04FC99(C8E`Smsxml.dll+, versb @"mDEntryG mEn@ry@  2 H1gS"Ł,!"a(Vm}Co! olG! mIuC YCol7a]2? LogFun*cAos%'L@gF nc&iBsN%'U/=' (mMesshageNeu`s gࠡ2/M#@)_J@HerG>"m_Kr`JlBe@bt2"<+L"".(LS1G¶Sre@$t1@62o#9 ThisWorkbooPkGTiE4WErkom k 2= lf5mNoVwcm%_jnN w cm_r`0S &mPR- R AddDelLin- Q Am_AdDlpVi &a/}2)) QP* q @( Selp0UGS eBHa 0der2_!F 9  W1'r OpM1*' OtoD3* G(q:6 ;G| <8 = !    X+Cus`izeCF Cbomiz@ CR o  0 { rU~~~~~~~~~~~tBoxesText ControlActivate Y English0\C$qM,Ot9NN xQy[pDnFe@!SO B6 h>F"-?@Label15!-6S`  DocSeq_Enable i{lFWJO ButtonCancel?F`HeaderDefaults_Boxȏ[qJ eUserForm.cᦜ-@[Q F3Dynamic Q yMessageLog_Box DocSeq_BoxImportControl_BoxImportStatus_BoxLabel13BҋB `MultiBook_Enable Def_AutoGen General_BoxRҋB `Log_ErrorsOnlyLog_AllMessage Display_MesgLabel31Label41Label42ChangeStatus_YESChangeStatus_NOUnicodeҋB ` Def_BusUnitDef_Date Def_LedGrp Def_Source Def_UserID Def_DocType Import_URL Import_UserIDDuplicateOptionButtonOKLabel21"ҋB `LangListButton_CustomizeCF ErrorOptionLabel11Label12Label14ButtonOK_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 _H Import_UserID DuplicateOption S ErrorOption LogMessage E ChangeStatus C#ҋB ` / N B U A#=h8+3qG?,2qLQ"y"VBE6.DLL "  "k Q"8Name  jrnllog.xls BImport in progress...please wait. >Save in progress...please wait. Ready (Message not found: ( , ). Import Log JrnlLog.xls Workbook Sheet Date / Time Status Log messageF $New Journal Header &Edit Journal Header Unit: Journal ID: Journal Date: Ledger Group: Ledger: Source: User ID: Journal K*         rU~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~l 2 DvH:M   A 1 a !Ii)Qq 9aA  ay 1 Q y  ) Q q ! I a  !9a ! a  a WAWOAA AqqA W_AWOA )1Yє)YѕIqɖ_ Jrnlmcro mJournalEntrymImportControl mLogFunctions mMessagesForm_JrnlHeaderSheet1 ThisWorkbookForm_ImportNowForm_AddDelLinesForm_SelectHeader Form_OptionsForm_SelectSheetForm_CustomizeCFF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !0MSXMLF4C:\Program Files\Microsoft Office\Office12\EXCEL.EXEExcel 1@0FC:\WINDOWS\system32\STDOLE2.TLBstdole AP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms !i`nLVN)7Lc:\temp\VBE\MSForms.exd ip >֢Oɜ C:\WINDOWS\System32\msxml.dll InitOptions Save_OptionEncode_XMLcharDecode_XMLcharSet_Homepage_LabelsGetSheet StringBetween JrnlSheet_NewJrnlSheet_SelectJrnlSheet_DeleteJrnlSheet_Copy FormatJournal ListArray Set_OptionsImport_Journals Import_SheetRow2XMLFF Generate_XMLsendXML CustomizeCFgenericErrorHandlerfĤIx8< URL_Encode ((, FFa F LanguageFGotoControlPage ImbeddedSpaceIsDateOK 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_ExistValidateAmountsDoCheckImbeddedQuotes 44D   $,08a  OptionsFEdiClass: "Transaction Code: Document Type: Doc Sequence: Adjustment Type: Adjusting Entry: Period: AutoGen Lines (Currency Information "Foreign Currency: Effective Date: Rate Type: Exchange Rate: Reversal None 0Beginning of Next Period $End of Next Period Next Day Specified Date Description: *Agency Location Code: OK Cancel All Copy Delete Copy Journal Select Journal Delete Journal (Change Import Status Import Do Not Import Number of Lines! |System ID (Unit, Journal ID, Date) Reference, Description .New Journal Identifiers Business Unit: Import Control Password: *Insert Multiple Lines *Delete Block of Lines Insert From Line: To Line:ƏYl| &Copy data from line Setting(s) Notes New Edit Import Now Write File Go Home Yes No General Journal Sheets Import Journals "New Journal Sheet $Edit Journal Sheet *Delete Journal Sheets $Copy Journal Sheet &Import Journals Now ,Write Journals to File Select Sheet: File name: .New Journal Sheet Name: $File already exist 8Overwrite the existing file? 6Define Options and Defaults Header Defaults General Options Message Options &Document Sequencing *Online Import Control .After successful import Date: Enable Multibook Language: ,Log Error Message only @Log Successful and Error Message g yx .Display Messages Online 4Enable Document Sequencing ,Default Document Type: Address: JChange import status to Do Not Import 8Keep import status as Import $Journal Entry Help RNo journal entry sheets exist for import. ButtonNone' To insert a journal line for the selected header, click the Insert button , or press CTRL-L. To delete a line, select a cell on the line you wish to delete and  Pclick the Delete button or press CTRL-D. @This is not a valid web address.( To insert a header press Insert or CTRL-H. To select a journal press Select ( or CTRL-J. To edit a header press Edit or CTRL-E. To copy a journal press xCopy or CTRL-Y. To delete a journal press Delete or CTRL-T. Imported ButtonNone_Click% journals - System ID (Unit, Journal ID, Date) Reference, Description: Updated ,successfully imported. Data Entry Alert \The date you have entered is not a valid date. dThis is not a secured web address. Use it anyway?' One or more of the following required fields is blank: Unit, Journal ID, % Journal Date, Ledger Group, Source. Please make sure all these fields contain values. rPlease enter a date for the user specified reversal date.ButtonAll_Click # No headers found. Click the Insert button to create a new header. DThere is no journal on this sheet. RThere is no journal header on this sheet. >There are no journals to delete L Click OK to delete this line anyway. OnlineFrame Import_Pwd% 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.UserForm_Activate% One or more of the following required fields is blank: Ledger Group, # Source, User ID. Please make sure all these fields contain values. \Embedded quotes are not allowed on Journal ID. bEmbedded spaces are not allowed in Open Item Key. tMaximum number of characters for journal sheet name is 29.* You have not selected a journal header. Please Insert or Select a header first.) The line you wanted to delete does not belong to the displayed journal header. WriteIndex]r2~H̾dp fThe row you wanted to delete is not a journal line. &Insert Journal Line &Delete Journal Line ZThere are no lines in this journal to delete. xThe From Line you specified does not exist for this journal. "i hDone vThe To Line you specified does not exist for this journal. >To Line is less than From Line. `You have etered an invalid From Line or To Line." The amount in the selected cell contains too many integers. The &maximum allowed is Target" The amount in the selected cell contains too many decimals. The " The amount in the selected cell contains to many integers and/or  `decimals. The maximum length for this field is Journal Import " H#MٽZ% Invalid data type. The contents of the selected cell should be numeric. $No journals exist.% A journal must be selected when the 'Change Specified Journal' option  is selected. NNo journal entry sheet exist to delete.Label2Label3Label4 xYou must enter a valid name for the journal entry worksheet. 4Sheet name already exists. VSheet name must be less than 30 characters." No journal entry sheets exist. Press New to insert a new sheet. 0No sheets exist to copy.ListBox1 lImport error: unable to import journal lines on sheet$ Import error: unable to import journal headers associated with sheet% Journal import was not successful. Either you are not logged onto the Lang not found. http:// https://$ database through PS/nVision or your import definitions are incorrect. &Save Journal Sheets TNo journal entry sheets exist to be saved. Total of  Journals and  4 Lines saved successfully. 0Message Set not found: ( ButtonAllLabel1 "S  Value 20 19 "  "-  "1  "E  "x (UnprotectProtect2aGۺx`{}GFAiу1B\O 6hsǫ\HpjO Template_H afterCopy NextSystemID NEXTEntireColumnFindFindNext Select    "  " AC}"؋0Nm:"5TkvDۥJ4oFm(xY[лGKƅkKFrameImportStatusJrnlIDButtonImportYESButtonImportNOBusUnitFrameCopyJournalJrnlDate0H~(M`hn y HeaderLine "UseStandardHeightPasteSpecialFRow  ( ,  )  -OpenLog AddLogEntryWorkbookIsOpen Templateh}Lp<׾+I[GNb6jHcƞIdcwS OL.X(U77}L.Y% DeleteCOL SelectRight Fmt_General DecimalPlaceoym'vSpin1 ShiftRight))m+Bj A yP SelectLeft ShiftLeft Fmt_ApplyWide FrameColumn Button_Exit InsertCOLFmt_Text FrameFormat{lFWJO MultiPage1Narrow Fmt_Currency Fmt_NumberFldNameFldLabelFmt_Date Fmt_Thousand Label_Decimal Spin1_ChangeRenumber_ChkBoxExchangeSelectLeft_ClickSelectRight_ClickShiftLeft_ClickShiftRight_ClickInsertCOL_ClickDeleteCOL_Click Narrow_Click Wide_ClickFmt_Apply_ClickFmt_General_ClickFmt_Text_ClickFmt_Date_ClickFmt_Number_ClickFmt_Currency_ClickButton_Exit_Click 4CheckBoxesF Column FOREIGN_CURRENCY FOREIGN_AMOUNT RT_TYPE RATE_MULT MONETARY_AMOUNT OPEN_ITEM_KEY LastLineColNumberFormat @ " ` Offsetoym'v *Invalid Decimal Place TInvalid decimal place. Valid range is 0-8 #0 # 0 $ _);[Red]( ) "NumberFormatLocal "_ 8__SRP_1#Form_ImportNowD'P0%fo&(~~~~~_ a      +Library file for Spreadsheet Journal ImportEdBoxTextNewTexttmp 14 SourceString BeforeString AfterStringCompareSelSheet SheetListHowManymode LineSheetOutFileUsrIDPwd  SelindentHdrSheetXMLtextiStatusstrXML strResponsestrURL  objErr strProcName sOriginalDtextDsepDorderRowNum HeaderArraySeqNumEndRow LastLineNum TargetNum i( a8 H  X h Ix  9 LangArrayLangMsgSetMsgNumparam1 C   9  LogFileName CurSheetNameStatusMessageBookName  i  ْCol(H  @7}(R KQDBTahomaD(74ButtonOK(OKb<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)$aVBFrame&9Form_JrnlHeader ,0% f+g ClientHeight = 1290 ClientLeft = 45 ClientTop = 330 ClientWidth = 5880 StartUpPosition = 1 'CenterOwner TypeInfoVer = 55 End (H  F@}7+R KQDBTahoma*$4LedGrpg H(E,5TahomaOKH(E,5TahomaOKH(O,5TahomaOKH( ,      !"#%'()*,y./0123456789:;<=>?@AhCEFGHIJKMNOPQRSUWXYZ[\]^_abcdefgijklmnopqrstuvwxz{|}~5TahomaOKH(E,5TahomaOKH(,5TahomaOKH(,5TahomaOKH( ,5TahomaOK ( Ledger Group:5TahomaOK(Ledger:K5Tahoma:K(Source:K5Tahoma:K(User ID:5TahomaD: (Journal Class:5TahomaD:$(Transaction Code:: 5TahomaD: (Docuemnt Type:5TahomaD: ( Doc Sequence::5TahomaD:H(,5TahomaD:H(O,5TahomaD: (Adjustment Type:M 5TahomaD:8F 1AutoGen Lines5Tahoma8F o?AXCompObjpCompObjCaVBFrame8o+1-h i34/ n``p2fLo.0Dion:35TahomaeH(45Tahomae(OKa<uTahomae(Cancele<uTahomaeH(,5Tahomae(Unit:ae5TahomaeH(D,5Tahomae( Journal ID:5TahomaeH(E,5Tahomae ( Journal Date:<5TahomaeH(E,5Tahomae$(Reference Number:V 5Tahomae0(Commitment Control Amount Type:'5TahomaeAH,5"Tahomae( System ID:te<5Tahomae(@H(,15TahomaH(,5Tahoma((Agency Location Code:iod |5Tahoma $8Ledgerg n$8Sourceg $4 UserIDg ( 4 JrnlClass:teg /$ 4 IUtranCDg $ 8DocTypeD,$ $ 8DocSeqeD,$o(2@Label4eDw(28Label5eD(28Label6eD(28LCancel2<uTahoma2( Configureme.<uTahomaHH  ["}Online Import ControlsdR KQDBTahomaD( CXImport_URLel< (E28Label41 , G4Import_UserIDnal<(H28Label42 ",'#ImportStatus_Box 4,ZhDuplicateOpabel7eD(2@Label8eD(2DLabel9eDI(2@Label10D](2@Label11D$4AdjTypeD,$( 4AcctgPeriode+D (2@Label12D$X AutoGenD[M $ XAdjEntry[^ , !28Label13APode& ( "#CurrencyBoxe( '#ReversalBoxe(-2<Label18y$.4 Descr254[$/4 ButtonOK0M ( 08!ButtonCancel0g $98BusUnitK (<28"Label1tK$:8JrnlIDtK 3(=2<#Label2tKh$;8JrnlDate (>2@$Label3te$?8RefNumte ^ (@2D%Label19e^ (A2P&Label20e( B8KKamountTypeA(C2<'Label21e(D2HSystemIDg ( E4(AgencyLocCDea$(F2H)Label22D  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_JrnlHeader Caption = "Edit Journal Header" ClientHeight = 6375 ClientLeft = 45 ClientTop = 330 ClientWidth = 8115 StartUpPosition = 1 'CenterOwner TypeInfoVer = 156 End ?@(H  @2} 2!R KQDBTahomax(74ButtonOK+(OKa<uTahoma2D(Cancel2D<uTahoma2D(All<i12R n```-`-foQSi39WU n```-`-0Adjusting Entry5Tahoma(Period:5Tahoma:( Descript n``Microsoft Forms 2.0 FrameEmbedded 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 5Tahoma:DH  & }Ag Currency InformationR KQDBTahomaT$4ForrCurr $4CurEffdt $4RTtypedt $4t StatusR KQDBTahomad,PButtonImportYES ,XButtonImportNOS   n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(,5TahomaH(E,5TahomaH(E,5Tahoma (Business Unit:S RateMult E(#2DLabel14t  ($2@Label15t (%2<Label16t 4(&2@Label17t   n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8FE0NoneReversal5TahomaLF0Beginning of Next PeriodReversal5TahomaHFU 0End of Next PeriodPeReversal5Tahoma<F0Next DayReversal5TahomaH(E,5TahomaDFh 0Specified Date:Reversal5TahomaH(,5Tahoma8H  4}g ReversalR KQDBTahomap0 (XButton_NoneTNutt 4)lButton_BeginNextButt 4*hButton_EndNextxtEutt 4+\Button_NextDayxtXutt $,4RevDate^ 41dButton_SpecifyxtDutt , 414ReversalCode fo8>ti06< n``  f 2lLabel1OK $4ListBox1  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 = 7275 StartUpPosititionx  ( [dErrorOptiont  !}% R KQDB8@H(,http:///xmllink/5Tahomata(Address:+5Tahomas:H( ,5Tahomas:(User ID:+5TahomaD:HF1B Skip if Journal already exists5TahomaDFr`2 5Tahoma (2HLabel1OK , ;8ButtonCancel", 14ButtonAllcelE, 14ButtonNoneel^ (14TargetOK (08Label2OK$ 1LDone( ! OnlineFramel, 1h WriteIndexel K$4ListBox1 {Form_AddDelLines"*jF'`-foEKpi08I n``''t Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_SelectSheet Caption = "Select Journal SheetSheet" ClientHeight = 4650 ClientLeft = 45 ClientTop = 330 ClientWidth = 4185 StartUpPosition = 1 'CenterOwner TypeInfoVer = 39 End       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoustyz{|}~qv1 z   2" ! #$%&()*+,-./0r3456789s;H=>?@ABCDEFG:IJKLMNOPQRSTUVWXYZ[\]^_abcefohijklmn`pquvwxy|}~uTahoma2D(None<uTahoma2DL(;System ID (Unit Journal ID Da n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q0Fh0Importal5Tahoma8F 0Do Not Import5TahomaDH  }Change ImporfoHJCompObjpCompObjGLa5Tahoma( Journal ID:i 5Tahoma ( Journal Date::S 5TahomaHH  } New Journal IdentifiersdR KQDBTahoma$ 4BusUnit $ 4JrnlIDt $4JrnlDate 4(2@Label2te (2<Label3te (2@Label4te 4 te) Reference Descriptionb5Tahomate`(25Tahomate*{, ;8ButtonCancel+*, 14ButtonAllcel+* , 14ButtonNoneel+* 0!FrameImportStatus, !FrameCopyJournal(VBFrame ;PROJECTwmM0PROJECT"SummaryInformation(0on = 1 'CenterOwner TypeInfoVer = 50 End $  !}% R KQDBTahoma4(2@Label1 (Number of Lines: 5Tahomax1H,=,uTahomax1( n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qmnopH,=,uTahomax1H,=,uTahomax1( From Line:Li5Tahomax1(To Line:5Tahomae:(H  }4$4FromLineV $4ToLineneV (2<Label2ne (28Label3neOKa<uTahomae:(Cancele:<1B Skip if Journal has error5TahomaDH 4}l4After successful importdt4(ChangeStatus_YESNhan 4)tChangeStatus_NOSBhan  `F' 0B Change import status to Do Not ImportedImportStatus5TahomafoTVCompObj pCompObj pTF 1B Keep import status as ImportImportStatus5Tahoma n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q@H  >}AHeader DefaultsSR KQDBTahoma ( i65O`Z n```-`-foY[CompObj%p8Def_BusUniteV (<2@Label11  ( 4Def_LedGrpteV ( 68Def_SourceteV E( 74 Def_UserIDteV (828Label15 ^ $8Def_DateV (;28Label12e (=2@Label13e 4(>28Label14e , X MultiBook_Enable p ( X Def_AutoGenn  H(,5Tahoma2 (Business Unit:sS5Tahoma2H(E,5Tahoma2H(O,5Tahoma2H( ,5Tahoma2(User ID:5TahomaD:H(E,5TahomaD:(Date:aD:5TahomaD: ( Ledger Group:5TahomaD:(Source::5Tahoma::8F 0B Enable Multibook5Tahoma8F 1B AutoGen Linesook5Tahoma n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q@H  L}AMessage Optii73^ n```-`-f' o]_,HCompObj2ponseR KQDBTahoma,JpLog_ErrorsOnlyse ,KxLog_AllMessagese ( L`Display_Mesg + PF 1B Log Error Message onlytdLogMessageMe5TahomaXF 0B Log Successful and Error MessageLogMessagesf5Tahoma@F1B Display Error Messagestd5Tahoma n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qDH  B}ADocument SequencingR KQDBTahoma, BdDocSeq_Enablese ( 8Def_DocTypel(2HLabel31e i77\hb n```-`-f4 oac9CompObj=pDF0B Enable Document Sequencing5TahomaH(,5Tahoma((Default Document Type:td 5Tahoma n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q@H  Y}A_ General Optii79f n```-`-f?oegDCompObjGponseR KQDBTahoma(S2<Label21e (Y1PUnicodee 4$W4LangList  ( Language:pti5Tahoma0F)0B Unicodee5Tahoma`p 5Tahoma n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_Options Caption = "General Options" ClientHeight = 5355 ClientLeft = 45 ClientTop = 330 ClientWidth = 8325 StartUpPosition = 1 'CenterOwner TypeInfoVer = 299 End CompObjdiIaVBFrameK.Form_SelectSheet"s7l0x8fPC$  '} R KQDBTahoma (74ButtonOK (OKa<uTahomata((Select Journal Sheet:sdg 5Tahomata(Cancelta<uTahomata(All<uTahomata(None<uTahomataH(,5Tahomata(Label:ta 5ntTop = 330 ClientWidth = 4125 StartUpPosition = 1 'CenterOwner TypeInfoVer = 298 End mJournalEntrymJournalEntrymImportControlmImportControlmLogFunctionsmLogFunctionsmMessagesmMessagesThisWorkbookThisWorkbookSheet1Sheet1Form_ImportNowForm_ImportNowForm_JrnlHeaderForm_JrnlHeaderForm_SelectHeaderForm_SelectHeaderForm_AddDelLinesFfxoti49xpFz?ax8`9fokqRpi10o n``00faUonp\0orm_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="7F7DB4374CC9CFCDCFCDCFCDCFCD" DPB="FEFC35B8CB484B494B494B" GC="7D7FB6354AB54BB54B4A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] mJournalEntry=0, 0, 0, 0, C mImportControl=0, 0, 0, 0, C mLogCompObjZpCompObjmrqaVBFrames;Form_CustomizeCF"ux8AFunctions=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, 198, 261, 1439, 881, C Form_JrnlHeader=0, 0, 0, 0, C, 176, 232, 1417, 852, C Form_SelectHeader=0, 0, 0, 0, C, 22, 29, 783, 492, C Form_AddDelLines=0, 0, 0, 0, C, 220, 290, 1461, 910, C Form_Options=0, 0, 0, 0, C, 44, 58, 805, 521, C Form_SelectSheet=0, 0, 0, 0, C, 66, 87, 827, 550, C Form_CustomizeCF=154, 203, 700, 616, Z, 88, 116, 849, 579, Oh+'08@ \ h tInternal Systems@?@b;R @՜.+,0HP X`hp x  Sheet1  Worksheets F&Microsoft Office Excel 2003 WorkTahomata,F0Done5TahomaHF K0 n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q(User ID:<5TahomaD:( Password:por<5TahomaD:H(,5TahomaD:H(*,5TahomaD:0(http://jtam033100/xmllink/ps/[5TahomaD:@H   }M Online Imports:R KQDBTahoma(28Label3D: (2<Label4D: 4, 4Import_UserIDnal( 8Import_PwdrI, 2PImport_URLrI Write one file per Journal Sheet5"Tahomat d $w%    !"#owz}i51|i*WJOx8`9i52y{~i*WJO`9`9CompObj{sxz0fDo}i46 n```9`9    !"#$&()*+-./0135678:;<>@ABCEFHJLMNOQiSTUVWXYg[]^_`bcdefhjklmnoprtuvwy |~Root Entry F @I{@Workbook;_VBA_PROJECT_CUR"%2P$WVBA P?P(H  8@*}lR KQDBTahoma0a( 1#9MultiPage1 234 pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19qp1dColumnel Field FormatTab3Tab45Tahomax1CompObjnf`oi21 n``x8`9CompObjnf!oCompObjp$H 8Y}dp2$3!Page1aly5,$4#Page2aly5,  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qH( ,5Tahomax1( Field name:15Tahomax1(Applyax1uTahomax1H( ,5Tahomax1(Label:x15Tahomax1$H 68}T$(4FldNameeE (*2<Label3ee( 8Fmt_Applyttm$)4FldLabelE(+28Label4el#( .#FrameFormatm4  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q,R KQltBM6( f-oCompObjpCompObjv auTahomax1 (Select Column:at5Tahomax1(ExituTahomax1,R KQltBM6( uTahomax1$H 8}T H 6SelectRightmo Select column on the right(2@Label1x1( #FrameColumnm4( 4Button_ExitmH 86SelectLefttm Select column on the leftt  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q<F 0TextCellFormatl5Tahoma<F 0DateCellFormatl5Tahoma@F 0NumberneCellFormatl5Tahoma@F 0CurrencyCellFormatl5Tahoma8F 01000 Separator5Tahoma (Decimal places: 5Tahoma@H(,27 @Tahoma@F 0GeneralyCellFormatac5Tahoma8H  6}g Formatx1R 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(    !"#$%&'()*+,-./124568uTahomax1(Width:x15Tahomax1,,R KQltBM6( uTahomax1,R KQltvBMv6( @uTahomax1,R KQltvBMv6( @uTahomax1,R KQlt>BM>6( uTahomax1,R KQlt BM 6( uTahomax18H  7)}DColumnx1R KQDBTahoma0 2 WideWider column(28Label2x1 8 2Narrowx1Narrower columnlD ShiftLeftcolShift column to the leftH ShiftRightolShift column to the right< ! DeleteCOLtol#Delete columnmnl@ 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 ClieDocumentSummaryInformation83CompObj7rsheetBiff8Excel.Sheet.89q