ࡱ> `cdbO,5TahomateH( ,5TahomateH(E,5TahomateH(,5TahomateH(,5TahomateH( ,5Tahomate ( Ledger Group:5Tahomate(Ledger:e5Tahoma:e(Source:e5Tahoma:e(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 Linespe: '@ Worksheet"&Tools&WindowChart"&Tools&Window(Visual Basic Module"&Tools&Window\prshaler Bowzer Ba=   ThisWorkbook=4&<X@"1Arial1Arial1Arial1Arial1Arial1Arial1* MS Sans Serif1* MS Sans Serif"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)"$"#,##0;\-"$"#,##0"$"#,##0;[Red]\-"$"#,##0"$"#,##0.00;\-"$"#,##0.00#"$"#,##0.00;[Red]\-"$"#,##0.0050_-"$"* #,##0_-;\-"$"* #,##0_-;_-"$"* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-"$"* #,##0.00_-;\-"$"* #,##0.00_-;_-"$"* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-83_(* #,##0.000_);_(* \(#,##0.000\);_(* "-"??_);_(@_):5_(* #,##0.0000_);_(* \(#,##0.0000\);_(* "-"??_);_(@_) yyyy\-mm\-dd mm/dd/yy m\-d\-yym\-d\-yy\ h:mm 0.0%##,##0.000_);[Red]\(#,##0.000\)0.0%\);[Red]\(0.0%\)0.0%_);[Red]\(0.0%\)#,##0.0_);[Red]\(#,##0.0\)0.00%_);[Red]\(0.00%\)                + ) , *    !   "     Lines PSChar PSDate PSDec PSHeading PSInt PSSpacer8 ``iݜ*o?H6A^BbzbO/(fvEE>j(9jJ2BBB\` Sheet1 mMessages mJournalEntryomImportControl mLogFunctions$ BottomLine; $ HeaderKeys;& HeaderLabels; $ HeaderLine; HeaderSeq:& InsertHeader;$ InsertLine; NvsElapsedTime" NvsEndTimefU-@! NvsLayoutTypeM38 '@   dMbP?_*+%"??U>@7 Sheet1 '@&A Page &PM\\PLE_PRINT_01\P06w08 L_ odXLetter  PRIV` N N N'"dX??> d '@&A Page &PM\\PCC-PRINT-08\355PN&w odXXQ&B\O&RtO&b O&rXJAPD dTimes New RomanH "dXX??> d '@&A Page &P"PXX??> P '@&A Page &PM\\PLE_PRINT_01\P06ChangeSt_ odXLetter CheckAmounts:PRIV` N N N'"dX??> d mJournalEntry H__SRP_4__SRP_5 #kmImportControlv  !"$%&'()*+,-./012346789:;<=>?@ABCDEFHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~$*\Rffff*0Q404dc19a*\R1*#228*\R1*#175*\R1*#c0*\R1*#c0*\R1*#b8*\R1*#cd*\R1*#b3*\R1*#c4*\R1*#229` N`FpF668p  "  ' %  \( H  " ">   ( @ XB  px  F F8 FB   #% ( 8 X` <lh    ,,U  P3`x.   * *  *PB    66 ( #0.8X*+p 6 , 0V  ,UH  x 8h    8n  ( 0  8 H BX    B      EF4xME  < R<> @B PB"hB&@*  @,  @0 @4@@6  @:0( @>0 @` @(` dJ  14 Fh``k (+P`  3id`R`T+V`J8 ''DiX XIZ xI\ `^x``v`bp`dl+l`xJ8 33kin `Xt`dp`Z(l`bh`\f ~` PP@$ `@ `*@  ` % ``8XvJ This macro inserts headersh 14 `   ` `J0i  xh% t%+ `0k iJ )(^is modul   14`Lxl en`N8v. Qp H% V `P ))^This macro creates an array of available headers and inserts them into a list on a dialog box.j 14  tat xp ` ^8 ` |J *y 14@l !@*\ @`L UTh@b< s ar`> : fie@$( th t@d BIf@f nt f` the  (J @  0 %+ ` Jx  33) '   14 ~ ` J UUt 14@l ----`j---- dh ds I - WorkaP @$T 8`fR----  L ----% P ` JDD8 x ^%@h `f Mon (`DJ 00|I$  I*   4-di( xines%` v ` hI  'd%`H 0% `  ''d 14 @s fr%`$--@ ----` `J\\@l H@\ !xl@L DMY,`J@8 $f@( e $xl%`" `JvvG`z`xtury`v`t` r'b lh20% h%+X`xJ ""i  or `$x `v p8%` n YY ` ,, 14`MM`` X` ` `X UU  14` ====`====`Rnge `rnal`====`====HB&BP8 B( B$x@(@. @2 @8h$ @<, @P h@@`xP  (h8 ( (Xh0% %BP h@@`xP  (h8 ( (Xhh08h@Px @t @d @` P8hx 8``z numbB"T t @l @h @X @T P@D @4 @P$ @8 @h @ @ @` @ @ @  @ @ @0 @H @x @p @` @P @@ @0 @ 0@  P) L `< @,  @ `@ --X ----@ --@ @ $f@ ^P @rOK@P (x @v (P P XD.0 P @x 8P t V@d $--pP0@#x )0 p @` 8 (\ @X @H D @p `x ##p0 @ !@ !  h@ @ !( @ "h# @ @ @ #p @ @t @d (#` H!&BFj(#P @@ @0 @ @ @ "`#)@ ) (8" @8 &&).,D)` @P $(L @H @8 %(4 @$ @ @ @ @ `%( @ #&*$)h @ 8& @ @ @| &l @\ )@L )(H @D @4 @$ H%@) &`)  ') H)p @` @P @@ @0 (( 0) @ @ @ ( @ 8@ @ 0) @ @| )(x @h @X @H ()D `Fd80-PB80-8px-8-0-,D0-` @P *(L @H @8 +(4 @$ @ @ @ @ +( @ `*$*(0-H @ , @ @ @| ,l @\ 5@L 5(H @D @4 @$  0-``j .h-P x-`-`--%-0zjBrr--`-=5p p@  @ @ @ @ P `*`@ H`B05H`-.h.514,D4 -@ /( @ @ X0( (@ @ @ @ @ 0( @| 8/$&H4Px @h 1d @T @D @4 `1$ @ 1 @ 5( @ @ 1` 54@2225z  244 4h @X p3(T @P @@ `4(< @, @ @ @ @ @ @ @ @ 4( @ 4` 4 5x 5p4` 5x55@*r5( @ `j`@ `BP7 P7p88P7P0P78H @8 @( 6 @ 6( (7 @ @ 7 @ P7( 7  @ @p 7` @P (8@@ (8(< @8 5r,D".>4 @0 @, 8*&>@ @ @7`%P8h999z 9;;H;0l @h @X x:T @D @4 @$ :( @ @ ;( @ @ 0; @; `<  @ @ @ @ 0<p @` @P @@ @0 ( @  =x =H=(=z8===0xzH=tx=`=Hd @T =D @4 >X$ >@  @  @ @ > @ ( @ /h8A g@ 0 @ H P X ,` * , "    ( 0 8 X  x      2 8 @  H  `           ( 0 H` 8&   $(:H   ( (  28(p      @`   "  "   0@ H h "     2@Hh       $  $H $p"   WWW    8( ` < /"L >  8 >  >@ >` > 0  < 2 H h  & .  M M *v0 M` Mx M M M M *v M  M8 MP *vh (} (} M M M M0 MH M` Mx  */    0kH P ` p  2/      ;0>H hp x     ((K&K(K8&K`&K&K&K*K(K0(KX&K(KK*K,K KPKp(K(K&K(K K0 KP Kp K K K (K K!K8!X!  (`! ! (! /! ! ! .! ((" *P" .~`" "  X" ," <(#h# p# .## ,V# # "a# "a $ \H$ Th$ "a$ "a$ "a$ T% "a % 1H%5`% x%\% % "a% b% "a% 1&50& H&\P& p&  *x&6& &6& &  *&6& &6& ' .' "aH' "ap' "a' "a' "a' .(@(  H(WP(Pp( !( (6()   )W0)WP)Wp)7)) 8) 6) 8 *B X*`*h*p*?x*&M*  * (**+ ^ + ++++++ + + +" ,, ,  (,8,@,`, , ,2,,,-0- @-  P- `-  @- - P- . 0. @. P.`.h. p.... *. */ *8/" h/ p////l  ///0  0 802P000000  0 1 8 1 &X1 &1 1 (1 1 .2 02 @2 `2 ,p2 22223,(3 FX303 3 23 04 @4 P`4 4 4 4 4 4 5 5 l  :5P5 `5 p5 555 5 555 (k 6(6(06  F8k Hk k "k4l:Hll  $X6 Hh6 $6  6${6 !6 , {6 !7  7 @74H76`7Gx7G7X77 N7=8<88<X8<x8<8<8:88:899  9 (989  @9P9 WX9Wx9W99 >9 >: >@:B  : : 4:K:K:  !; K; K8; KX;x; ?; V;;  !; K; (K; &K< (K@<h< ?p<<  < 5< !< K< K< == =(=0=  "8= H= "X= *h=5===== ,= ,= ,>" H>P>`>h>x>`nhnpn  ">> > >2>???N(? H? X?  h? Wx? ? H? &;? 3@ 8@ <H@ 4@ @ 2@(@ !@ @ A  A  A  xn n n :(A hA xA AAJA A An"n"nnn &nAB B!B(H(B (n <o FPo 4o A*oAPB XB `B pBBB WBB B B B" C C(C  "8CHC WPC pC(ZC.C BC2D8D@D PPD JD  D  E)E 0E $8E HEPE DXE BE 0E  F :F"PF `F "pF F F F(F FF (F G(G 0G!@G6PG BpGJG GG  G)H % H0H 8H @HPHXH W`HH "H "H "H"  III  I*(I !8I  HI&IXII-II I AI@I@IAJ  8J HJ hJ*xJ&IJ.J=J<J #K K(K0K@KPK (XK4xK #K HK>L L :(L 8hL :L"  LLLL MM (M 8M  2PM M M M MMMM (M $M ( N" HNPNXN`N  pNN  NNN N NO , O PO pOO TO 8O P0P HPPP XPhP HpP2PP  PQ(Q *0Q (`Q *Q" QQQQlll RWR (R (Z8R.`R BpR2RR NR0HS :hS "S S 6S2T 8T HT PT pT  TETQTT TT8T TU  U " U (V0U8XU4pU  U U mmmU U<U#U$mU m V0m 8m@mHm0V 8VHV!PV `V  BPm :m *m@n !Hn pV xV VVVWVWVAV WW *W (HW *pW" WWWWWWWWHq WWW X (ZX.@X BPX2XX DX B Y0hY:Y "Y Y YY Z!Z" ZB@Z XZ $`Z Z ZZ  Z Z &Z &Z Z Z [[  [ "([ /8[ <H[ W[ [ 0[ [ \\(\ 0\ H\   P\^X\1x\\\\ \  ;\P\ - ] .8]4h]>]J]0^(8^4`^^  Fp .PpGp p<p8p8q (q4q 8q  #^H^  Pq pq<q qq J^"JH_6p_ _ __ W_W__ B  __``` W`.8` :X` ` ` @` `a Fa Pa `a haRpaaaa!a "a  aaaa " abbbb b  (b 0b.@bpb bb bb  b c c  (@c,hccc $c,cdd $ d Hd `d ,xd ddd d(dde " eee e(e0e8e @e Pe`e pe e e e e,e f f,f Hf  Pf "`ff$ff f f g gg 0g Pg`gxgg gg $g gg h 8h Ph hh h hhhh h h i i 0i @iPiXi`ihi 4pii iijj 0j @jPjXj `jhj pj j j j jjj jjkk 0rxpGThis module contains the macros for the journal entry (template) sheet.]$Hh]$ H/2number of integers for foreign and monetary amount]$H/2number of decimals for foreign and monetary amount]$ H@/"number of integers for stat amount]$H(/"number of decimals for stat amount]$HP]h]x]]]]]]]]@]]h]0] B!', D!'. ._H'0UThe following variables are the default amount fields sizes shipped with the product.BIf you expand the amount field lengths, change the variables here.o(( H(JControl B%LB@NY'&o------------------ Check for spaces------------------h]] d'R d 'T R T T'Pd('Pki@----------------------------------------------------------------? Extends IsDate() checkinCompObjpi393 n``@ph@phfo24Tg - Workaround Microsoft issue Q241728@----------------------------------------------------------------]]]] X$f X Z'^ ^ X Z'` ` OK for Month and Day only'Vd \ X ^ $ X ` $$h'b bOK for 4-digit year'V be&Determines century from a 2-digit year b$j 2019$h b'b \ b X ^$'dd X `$ b'dk` d$f'VdH'Vk8k0d('Vki$------------------------------------# Validate dates from it's text form$------------------------------------]X]p]]] n!p'X t H%r'Z v H%r'\!xlDateOrder (0=MDY, 1=DMY, 2=YMD) X$x'l X$f X Z e X Z \$V'l X$z X Xe/Construct date for numeric-only 6/8 digit entry X &Determines century from a 2-digit year \ X$ X$|$h'b b$j 2019$h b'b \YYMMDD b Z X$ Z X$|'dd(MMDDYY or DDMMYY X$ Z X$ Z b'dkd \YYYYMMDD X$ Z X$ Z X$|'ddXMMDDYYYY or DDMMYYYY X$ Z X$ Z X$|'dkk d n(p d$f'ld'lki&======================================# Change Import Status of journals&======================================](]@X]p]]Dim ChangeRange As RangeDim FirstJLine As Integer H(JA@@ 0 ,$%LB@ . ,$%LB@ 0 $MSG= No Journal [$   $$'d   $9  $5(5(5(5(qH $' !. !C' ImportdU' Do Not Importk  !  % 0 ,$%LB@N2Get Header sequence number and change import value  " D%!p'$   " D%(pchange the line import status . ,$%LB@N$ BottomLine$!$$ $7.  !'_@ !'* 7.  !  $ *$$B@H  (p+set the blank row value to "U" if necessary U $!pU $(pkHk@q8k0( A@rY'&k . ,$%LB@ 0 ,$%LB@ . ,$%LB@N D%%B@Hox======================== New Journal Header======================== H(JA@@ A@rSet Options = FRM2Ao ========================= Edit Journal Header=========================`]] H(JA@@ 0 $MSG= No Header [$   $$'d  $ (  $ !( $' A@r  0 ,$%LB@N  Ak k . ,$%LB@No ============================== Enter or Edit Journal Header==============================]P]p . ,$%LB@ 0 ,$%LB@ 0 ,$%LB@N   2*** NEW Header - Assign defaults from Option Sheet MSG= New Journal Header  $9Def_Date$ Z General Date$5(pd Def_Date$5(pk 5!p5(p Def_BusUnit$5(p Def_LedGrp$5(p Def_Source$5(p Def_UserID$5(pdX )*** EDIT Header - Gray Journal key fields MSG= Edit Journal Header  $9 ,Enhancement: Allow Edit eader to modify Keys .BusUnit.Enabled = False .JrnlID.Enabled = False .JrnlDate.Enabled = False *** Get existing data into form  " $  $$. %9 %9 % Short Date$9 %9 %9 %9 %9 %9 %9 % Short Date$9 %9 %9 %9 % Short Date$9 %Y$h9 %Y$h9 %9 %9 %9 %9 %9 %9 %9kh$*** Gray / Ungray Ledger and AutoGen MultiBook$Y5( 5(5( Def_AutoGen$Y$h5(pd5( 5(5(5(pkh,*** Gray / Ungray Document Sequencing fieldsDocSeq$Y5( 5(5( 5(5!p$x Def_DocType$5(pkd5( 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(4DocType  $5(4DocSeq  $5(4AdjType  $5(  &$5 (6 FiscalYear  $5"(6 AcctgPeriod  $5(  $5$(  $5&(4ForrCurr  $5((4CurEffdt  $5*(4RTtype  $5,(4RateMult  $5.(  $50(  !$52(  "$54(  #$56(  $$58(  %$5:(4Descr254  $5(  $5<(q!Application.ScreenUpdating = True B@>"Application.ScreenUpdating = False !!pY'&  (*** NEW Header - Get the next header row "$ $$B@H B B@@ " $ $$. 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. %%D!p  ,d *** EDIT Header  " $  $$.k@C %%D(p 5$x$F ,5$x$F ,5$xX ,5$x ,5$x$F ,5$x$F ,5$x$F ,5$x ,5$x$F ,5$x ,d5$xX ,kX5$x$F ,5$j ,5$x$F ,5$x ,d5$xX ,k5Y ,dXN ,k85Y ,dN ,k55$j$h ,5$x$F ,5$x$F ,5$x$F ,5$x$F ,5$x$F ,55$j$h ,q'( . ,$%LB@N HeaderLine$% HeaderLine$%$B@H . (H % %$!p (pk A@r 0 ,$%LB@ . ,$%LB@ . ,$%LB@N $B@HoP1-------------------------------------------------0 Build and array of the headers on a given sheet1-------------------------------------------------]8]P]h J B%L.P " P%T%! 'L L "Populate the array for the listbox L  N L N P%  N P%  N P% N +x'dh'kXiP======================= Select Journal Header=======================]X ] H(JA@@ 0 ,$%LB@ . ,$%LB@ 0 $MSG= No Header [$   $$'d  $ (  $ !( $' A@r  0 ,$%LB@N  " $  " $$B@X .$LB@N HeaderLine$% HeaderLine$%$B@H (H B@Z H(\Y'&kk 0 ,$%LB@ . ,$%LB@ . ,$%LB@No($====================================# Copy Journal Header and it's lines$==================================== ]   8 P ]h    ] ]  H(JA@@ . ,$%LB@ 0 ,$%LB@ 0 $MSG= No Journal [$   $$'dp !h(  $ (  $ !( $'  0 ,$%LB@N 2Get the sequence number of the header to be copied  " D%!p'$ " D%!p 'd Get the next header row "$ $$B@H B B@@ " $ $$. !jB@H  D%B@X B@Z %Set the new values on the header line  d %(p5 %(p5 %(p5X %(pC %%D(p@Cells(NewHeader.Row, LastHdrCOL).Value = .BusUnit 'BusUnit IU !  $(pE DocSeqNumq( +Insert the header line on the current sheet % %$B@X . ,$%LB@N HeaderLine$% HeaderLine$%$B@H (H B@Z H(\ Copy the lines''*'>$ BottomLine$!$$ $7. lines exist for the header !'_X !$!p'f f $ !'* 7. > '>Selection.Insert (xlDown)k  f $ !  !'b > b$%DB@H !'`copy the old journal lines $ *$ D%B@H B@X `$ b$$B@H B@ZSet the new identifiers  d %T(pC %T(p5 %T(p5 %T(p5X %T(pq Gblank out the header keys in the first row if it is a blank spacer row. %U %(p %(p %(p %(p %(p %B@Hd %B@HkkqY'&k A@rk . ,$%LB@N . ,$%LB@ 0 ,$%LB@o(8--------------------------------------------------------7 Displays Form_SelectHeader to select journal header(s)8--------------------------------------------------------8  .MSG= Select Journals (Unit, Journal ID, Date):  $5(  $5<(5!  $5(  $5(  $5l(dh5n5!n  9n5h!p5!n  5h(pk(5h!  $5h(  $5 (<BusUnit  $5 (<JrnlID  $5(<JrnlDatedx5n5h!n  9nkX5B@r 5(t5!  $5(  $5( x5(vd z5(vkq H(J B@> H(J !!v z !!| 'dH'k8i0&======================================% Delete Journal Header and it's lines&====================================== ]  ]8 ]p  ] H(JA@@ 0 $MSG= No Journal [$   $$'d  $ (  $ !( $' A@r  0 ,$%LB@N DB@ BGet the header sequence number and delete it from the header sheet  " D%!p'$  D%B@ DB@ 6Clear the header line on the lines sheet if applicable .$LB@N DB@ HeaderSeq$!p $ HeaderLine$B@H B@k> Delete the lines''*$ BottomLine$!$$ $7.  !'_H> !$!p'f f $ * B B@kk=k= !'* 7.  f $ ! kx=qp= DB@Y'&kH=k@= . ,$%LB@No========================== Insert journal line========================= ] ] 8 H(JA@@ . ,$%LB@N DB@ HeaderLine$%B@H !p;MSG= No journal selected. Insert or Select a header first. \$  \$$'d; &N Jwe already know the largest line number, so we don't need to determine it. * $ * LastLineCol$!$$B@H $ * (A * * (d: (k:dx: =determine the seq num of the header. Then scroll to the last_ <line and insert there. Set the keys if not already present. HeaderSeq$!p'$'$ BottomLine$!$$ $7. No lines - Add the 1st line'*'(' BottomLine$B@H $ * (Ad8"lines already exist for the header !'_8 !'* 7.  !  *$!p'( * $ * LastLineCol$!$$B@H $ * (Ak7 * * (  (k7q7N'&kx7kp7 . ,$%LB@oH7---------------------------- Insert and format one line----------------------------P ] ] ( '( B B@@ . ( InsertLine$%DB@XdH6 %DB@Xk(6 B@Z $ %(pC %(p %(p ( %(p (Insert a blank line B@H B B@@ InsertLine$%DB@X  B@Z $ %(pU %(p H(\ !'*d4 !A * '*kx4 HeaderKeys$B@X $$ %B@Z H(\$ LastLineCol$! $ %( %B@Ho33---------------------------------------------------2 Clear cell contents if Copy checkbox is unchecked3---------------------------------------------------(]]]  D! !p  !!'  $. !Number !Currency B@d02 (pk2k22o2!================================= Delete current journal line!=================================](]H]`x H(JA@@GSee if the cursor is on a line for the displayed header; prompt if not. !. !' DB@ $!p'   BottomLine$!   HeaderSeq$!p  D%B@d@0 NMSG= Selected line do not belong to the displayed header. OK to delete anyway. \$   \$$'   D%B@k/kx/Y'&d`/AMsg: "The row you have selected to delete is not a journal line." \$  \$$'k. DB@ . ,$%LB@No.$====================================! Deletes multiple journal lines$====================================]]0H`]A@@ . ,$%LB@N DB@ HeaderLine$%B@H !p;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$!p'$$ BottomLine$!$$ $7. /MSG= No line in this journal for you to delete. \$  \$$'Y'&d+lines exist for the header !'  $!p $!p5(pd+5(pk*5!p5(p5(q* B@> H(J !!p$z !!p$z !!p$j' !!p$j' . ._ * !'* *$!p'     * . ,$%L%B@H j 'jd) .k) 7.  kX) A@rk@)q8)k0) . ,$%LB@ . ,$%LB@N D%%B@HY'&o($====================================! Inserts multiple journal lines$====================================]]]] ]8]P]pA@@ . ,$%LB@N DB@ HeaderLine$%B@H !p;MSG= No journal selected. Insert or Select a header first. \$  \$$'d&=determine the seq num of the header. Then scroll to the last_<line and insert there. Set the keys if not already present. HeaderSeq$!p'$$ BottomLine$!$$ $7.  !'_% !'* 7.  !  *$!p'(dp%no lines exist for the header'(k8%q0% 5(p ( 5(p ( 5(p (5(k$q$ B@> H(J ! 6Add an edit here to make sure the selected line exists . ,$%LB@N ( *no lines exist for the header in this case'*'(' BottomLine$B@H $ * (Ak# 5!p5!p$z5!p$j'd8#'k(#q # !!p$j ( ' B * $ *  LastLineCol$!$$B@@ !!p'copy the contents of the specified line  $ *$$%!' $  LastLineCol$!$$B@X * $ *  LastLineCol$!$$B@Zd! *$ *$$B@X * $ *  $$B@Zk0! H(\ *$ *  $$ l *$B@ * $ *  LastLineCol$!$$( * !!p$j ( '* !!p$j'(k@ A@rk( . ,$%LB@ . ,$%LB@No]]] ]@ . ,$%LB@N HeaderSeq$!p'$$ 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 !''_` !$!p 'x0k( 7.  !  'kqiX]]]]]A@@ H(J BottomLine . ,$%L%B@H ! ' InsertLine D%!'  'N'< Z$'8 ForAmtCol D%!' BaseAmtCol D%!' StatAmtCol D%!'"first do the foreign amount column  $  $ D%B@HA@ <Nnow do the base amount column  $  $ D%B@HA@ <N now do the stat amount column Integers = StatInt Decimals = StatDec  $  $ D%B@HA@kk <N . ,$%L%B@Hko]`]x]]]]   !p' !p$z 'R   ' -' .'   ''add 1 for negative signk   '(add 1 for decimal pointk R  msg = too many int/decimals ]$'6 6 . .'6 6@ 8$':Y'< B@Hd  R   msg = "Too many decimals" B@H ]$'6 6 .'6 6@ 8$':Y'<dif negative, add 1 to integers      "too many integers" ]$'6 6 .'6 6@ 8$':Y'< B@Hk(d     "too many integers" ]$'6 6 .'6 6@ 8$':Y'< B@Hkxkpkhd`.no decimals, subtract decimals from max length R    "too many integers" ]$'6 6 .'6 6@ 8$':Y'< B@Hkxkpkhd` "not numeric" ]$'6 6@ 8$': B@HY'<k <Yyko"Range("BottomLine").Rows(1).Select?Since performance was affected in Copy functionality the insertAwas take out from loop - commented above. Insert was done using arange of rows - 02/03 LastLineCol D%!'* $  >  *$$B@H B $  >  *$$B@@  >  $B@H0 BottomLine$!']8.P.l]-]h.].'@'j'BSelection.Delete @ *'B'@kl;Since performance was affected in DeleteBlock functionality4the delete was taken out from loop - commented above#Delete was done using range of rows B$ B j  $ . ,$%L%B@H B@k]P5]h5]5'j'@'B @ *'B'@k(n j 'j ActiveSheet.Rows(EndRow).Delete!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 B$ B j $ D%B@l@After delete block till line number 1, the following lines would' need to be executed to set the values. *$!pY'F0 *$(pC * $ *  $$(p0 * $ *  $$(pknn])Reset the value back FY *$(pN'Fkpp HeaderKeys$B@XXqq * $ *  $$B@ZrH Attribute VB_Name = "mJournalEntry" Option Base 18Explicit 'This module contains the macros (forj e (template) sheet. PubU Const LastHdrCOL As I@nteger27 ,s* ,13'numbC X Su b Get*(), E.Pr@ocDataInvoke_Func \n14@|!C)= ActiveWorkb+.A +'&,= 1& "_H ellowing variable s arede fault[ fields siz`shippe@d withpr c!'If you exp!|{ lengths, chan@8here P `.G/揢0ototprolP@1AA pa.ScreenUpd`= F e-."s(" ").߂CchY )  '- Checkbspace^s`C"IddedS(Texhv)Q oleanWTotLen?TBB !#= _`B Wb s`SInStr(1, , " ", 1 :Or F0 The a@ /ElsD01Tru,If#@#@-*9a3Exten@ZIs@u8e()Q5a- Aar`d Mioft issue Q24172829) wA2OK(Dt:, DsepPor0P P1P2. UJu(SCP +eric (aPY 6 8c'pstruct)2^q-] 6/8 R`Lr^ ۆ oPy oP\X&PL{a2), Righb2`&p'_T_T If Dorder = 2 Then  'YYMMDD`tmpDatetYR & Dsep Mid(Dtext, 3, 2)2Right 62) PElseb'yYY or DDMMYY"qLef^wYR'End If߇ J$ V4V5E M u4 uSHXdBox.V8alurCheck_DIs( h FaƔvFunctio@ A'=" 'Change Import Status of journ@ Public Sub C_C(7Dim SeqNum, i As Integer ABeginRow, @5List1, HeaArray() VariantNew StringRAR_$!b'AFirstJLine!9Appa/.Scre enUpdng(5GetSheeaWorkbooks(CurWrkB`).srentHdr).Unprotec C`~Not Build_ C)),)L'MSG= No JD iMsg`(  (L@., 974), vbOK@Only, 12`1)r`With Form_S iC )9;)OE'sR*blank row 7 to " Iif necessary_U 1''4W5""?"v3U"q?A4[a#Un0load{ReaY c@@@Prk).HTPEs(p8-в"@Wdc ظ#_InsertqdAtpbu.VB_Descri"This macro is hs o"+acaIn`voke_aM"h\n14OO(rbC!%JrnlC  'Set Options = FRM2Call Modify_Header(0) End Sub '= 'Edit Journal 0hPublicb._B(yDimArray() As VariaPnt iInteger(AppSa.ScreenUpd ngxalseGetShee &\ If Not Build_Hdr=Current, L) Then#'MSG=" i>MsgBox(<(Lang, 91, 5), vbOKOnly, 12, 14).E^Form_Select.Ca5"#OButtonOKD!3Chooseŋ BL Unloa 0TWorkbooks(cWrkB).Asph).Activat{йi + 2H,IfC%C%"BI!/҂Er or Pr?KRowNumg!jNew8ARS'Display_!`k2!UnprotU%o).kB#Bith#UJr|nlC!#AGS'=RT'*** NEW$ -%sign defaults from "  DewNet1X@("Def_Da")""pl!.!.ValuFe@!wat(a, "Gener" 3 P !n~EffdtLK.BusUY"NЈ-djEntryo-7|- a-Q8AIIf(.AcctgPeriod1"",, ®!9A!AdjT#20JrnlCladss? 2B)IUtranCD 2|Docb2| `Seq 2}b0FiscalYearO0gi ESWith'R'LastLinPeNum 0WorkbooksB(WrkB`).sheetrentS) CtivRanhge("ï "")), 5)).Select Set DisplayHda  io(.UseStandardHeighta X=qa b .E#Unload Foxrm_aU!c?-ur!--Protf" 2z'PopulBrCforlistboxSa Rec- 2؃5 k3 ToW9k tIk, V& "" &9ңet6x NexKk&c [FaƭFq,&7=5R Journal,F2=_#( w.s-Descri,pt@Y"! macro cre `s==avai0labl>?in serts1!m pinto@?!?d@ialog ".03Bc77j7w!=s7iz7!App0Daq.S enUpdng`GesrS8u;uV9.Unp/_yrk $_C9xNot,J~f*O)M 0',A!oknt!r]P5c#{i + \>1pr^Copy 'tϠ Dp"M Selection.UseStandardHeight = @True  PasteSp ecial FAp plicaCutCopyModBeFals Resej"Y"EEnd If Workbooks(CurWr$kB ).sheetrentHdrS).Prot+>AvatybSub$ '= '  Journal Header it's lines#&? _A() Attribute .VB_L cDataInvoke_Funcp"y\n14jDim BeginRow, 7TopBotCount As Integer SeqNum, Newр, tBi 0- ߗur˗_Lje !'` the sequence numRbofhcto be copied or) e].Cells`(i + :KC@trlCOL1).Valãy3Pdra +Anext row(* T!OL)).PcInsert (xlDownHAa-S &s$, + .Entire2lj3`c33).!hu7'q !$new vs on#g;With 6;!  D$g'__ 2t'P.BusUni`;9 0*qJrnlIDopNc.`Cqe(.av/0k+=  1 ttomtp rFsh2]).,Bo:tТ= .FinVԏA_Q'Si1Hper&maw@as affped infPA ality2)ins@ert 'was take out from loop - commented above. Ins `done using arangf rows02/03+LastLineCol = ActiveSheeHt.RZ(" ").&umnJ0Cells(Bo*, 2), + RowCountW1, 0)).SelecB0(xlDown)ea XQ?SC@=@X7io|n. P).Offset(1JMITop c'copy thld journal l=s O@ 0egin@@EndA/GC@!QS CB F#dܜ#P@eSpecialS'Set&@new idzifier&With Form_c Header3 'ps(2).Value=New(Seqn$xs(b3"C"?'4'.BusUni u5Jrnl,ID6CDate(.a!Ty N A- 'bla,nk^hb0 k@eys inb9first if it is a spacera. If 6 8)6"" The4 'I6U_6`#`h6"?)5?fH5?*1A/TNYEb6 Multi fmExtended 7zSpl؃W10h PApplication.ScreenUpd8ng = TrueForm_SelectHeader.Show FalFsZIf LListBox1.`MultigfmSingle` ThenIChoose_1ZcIndex h+ 1 EM%0nd If BEFunc  '=" ' Dte Jo@urnal Xa*it's lines%(Pub Sub%_0() Attr8ibu62 .VB_ProcDataInvok e_4@N"t\n14" Dim BeginRow, i As IntegerArray()AVariantCSeqNum,, tRARang@Cou@r FirstLBoolea@} &FromJkHGetSh 0l* Workb ooks(1Wrk@Bk).s8#4).Auva^tdaae8.Unprot 'A'@' the h sequence numb(er Avdyit fPgJ aCb`2Cells(i`<@KCtrlCOLa).Va>li_D).a+i~O CkrI onB , if ażbl +O1,0t0AB("#K("D#`)*%L ?+ Co nt@ aai(1G& ?E @ 9%= I  ¥With )(N2HtBoAmt, 2Ieq Set R .Find(@p!AVR IsRth`}?hpR.skeDoh=  1 ?6sP &  14ActiveWindow.Scrollg=6 -/ + !#8Lnd IfO'^kseqi ofo"h@ser.B3 sG+kCvst_K'Byainsertre. S keys i f notpr@n|CasH"@sValuCBeginCR0$With ÊDBottom {A1Ry$.Fp A Is Nothing'NoBs~\1Dˋ1A = 9U%E"Qg_h+Oh3\!Is&Eexi`#for$gCS$R.9Do= JBNext(R0B!Loop WhHileC R)DA@f <> >, 8).0fAa#=) ?D8D# o!d14S-66vaaa (i#Workbooks(Cu rWrkB).AQsheetbrentS).ProtpSubd '- p ' I#]] 8mat o }_ Private vpW),Asteger4Dim New! + Q! (QIn#S =i|.##Mion. (xlDown$<==@l߳A@'1,_36"3q PfOff(-1pyP}.51P0eSpecialSS>@"A bvs(Cp"C"OB6E@f7'S?<'a blankbs=j )1 :=xlFor1s !%q0qn.2 "U$Applicat+CutCopyMode@Faz5p5p&ZaFields(0ab 6NKP/Ƚ'365q+dݟ Op8Id u*)n Lock@=  vPw V/SXClear c` coNnt! checP`x is unedYZ!p#ѡWCHKaWCq@XChkY SP3 Each QIn #vk.eH5BIxlRB* =.SRightD#1!_ pR, 1Q; (6.0@A"") QD|{cyaEDl.ClearContents Else Dpell.Value = 0 lnd If&E@Next "Sub '= 'zDelete curr journal0 lin!DPu blic z L4_P() Attribu. .VB_ProcDataInvoke_Funcz"d\n14" Dim CIC As RangI Row bIger5Seq, i AppWation.ScreenHUpdng?FaGetShee'See if thsor is on 2a f displayed header; @promptnot.C"Set8= ActiveWindow.A? C== .@GCC B-.Unt읣 ʍ&1, 1).Ãcn`)""pÊ No$`. Insert `Pa_ f18Do0uC1o0gEB+O'2dP|rmxBMseq num oj=c.  2lQs existN8 Y@&NJ8[cWithtasQ/ c1S,PqR.F p(_RR Isthi\d `in@JUzLL16tV?l~'y%<=| Rgq?"Form_Add 02eu.QAF1c .To L!BHowMp.Visib _= x5-.Showo)'_Is>eric({) #:)?!aAk= P_\O coPsGdsHROE$uO1Qs= Truܚ11w0_votDo%( ?Cq1#as;7@%(<=r$(e?/#ewook͏nRs( Klӡc Pter + 1  If FirstDelete ThenVRowFrom = Endl g= False3W If#EASet PrevOSNextT8'"'.Find( )ULoop Until @LineNuT0oVal 'Since per formawas affect@ed in Block functionalityTthe d}taken out ful-- commenAabovTl' done using range of rows!Workbooks(CurWrkB).AsheetrSA).RA(qs(A), #@Cou.r - 1)).S;\ct"@L.  ՇUnload Ff_AddzL< WithIDProtADvat+:eB-.)4).Cells(8'Res k= "Y" ASub&a'== 'Inserts multiple jour@V< ld'_ @  C _.`(qDim Begi"n` As`teger ATiSrc vǍ@Q New!! URNoue!Str(# Get0:dq:UnpE cj"@Headera">1,ffec@"'MSG=( No9soed. 5 or  a h" f.ca i`Msg0Box(! (L!, 92, vbOKOnlyf,%4)dK'Rd`rmK aseq n.b scroll to"last_''S an确!XareA keys if not alry prfntSeq*00b+' r` 2Bottom$8S, 2u1 Rk(% BN` R Is thP)5= RB Do?73p bvR cuWhiC^ And <>@ >LA , pOAQ'noK exisPt0.w%{0 b!gA5.HowMany. l.AtA ^.TK4%$r .CopyData.Ena 0 'PB edit)NreEm suhe %R"$$S }oknc)N.[`Wf `Tst/0) 2( ?)? /.rQ\0Bs casd'. "b@F8PϞCap]$P, , Fm'A(O#3.8TraKIspHeric(.S9АceW9_5 X= @S L!K0d# N4YE)0ka 3Z1o,^ \S "eCololumn# (xlDown ?@sg'cPOR4conspecifipPt 2۵ow, 8), Cells(EndR).Find(SrcLin@eNum).d  Range(`2"J "LastCol"). umn2)py] +p 1, aiPng, jPeSpecialr0Else%DB, 7Mf(Ynd IfZ'After delete block t ill ly numb@Vthe followSs would need to be executset values.IOIfN.V = "" Thefn NoF Y"R 0  Ù3L@ř3z!C7A|T+<ĽHeaderKeysB;46[Q %SŠApplication.CutCopyModeAFar t:@ `>+ (Form_A ddDels.Tz) - @- /'YUnload  #Workbooks(Cu rWrkB`).AsheetrentS).ProtectpActivatASub #Publ Fun on p_Exist(Target As Integer) lea@YDim Seq+ aBeginR$Fou`kPV?7+D =PPPPu}ith62|s/"Bottomo p !)t| R %Ԓ2p>R Is Notht?m'noueUPwrRsh2\,refore n4v{W! 3 5o'1s {0ncheo see if`lP(`; P??y Do p#RZ{)1 k/2'Y W, g5=> p?Tird@Amp04 A`ttrib.VB_PGcDataInvoke_`%" \n14eD0@1 =tB=irstO@mARAmp}l.Base"EStatSGe3SScreenUpA8Z(XokXXq_A).SдZ=Q3- 1s RF= Ker^.tInserF> Err#u~Tit0(= AMsg(L, 90, 1+TorTe("lScph$'bf doQ!Qign a- coxlumD,g(tDoC!Q3If ]we b`-? E }      'now do the stat amount column  'Integers = SV @Deci8mal@ @ActiveSheet.Range(Cells(FirstRow,WAmtCol), BotLine ).Select ^DoCheckEnd If Ճ If 7Erri"N" ThezWorkbooks(C@urWrkB). sa renth).W4, 8O=Sub   Y() Attribute .VB_ProcDataInvoke_FuncV \n14" Dim As Varian k S*ngTen CrMaxLPos inuKQFor EachB"In gioS#=.Value Ab`IsNu`meric)bA /= +(O@M1= D7s + A M1# G(1,, "-", 1 AA . 11.Z= D*+ 1P'add@fPnega sigNA E'<> 0 hdv poiaG q+); 2>kh 'msgVtoo mPany ` /$sK !MessageGetMsg(L, 93,\ 3 4&@& "." &FA@oReturn CD Box( , 6zTitlepPYqi`rElsH`%9!g.- ?>Gs/ d0"T00e.= 520&E%4e5?564'i$f eu, wtoZ"K`7E#!<- (h1) >{='"In=U R%y8}8.oQ{# p;-wJ?=?s?_:No??????{ 5 W, subtract& fromrx lengt~h2AwBD-`aBs$$/$/$W g#/#4/#/ ؽy/"  =/ '"not< n; 4t,s 5q & Exit *9NexSQ  rU~| i1 Y ) Y!ْ0   p" x$ x x>`:d%tx$ Hx t d`)xt` Tp$ xt`0 h  0   0   0   0   0 `  0   ?T FX%hl$ Hl h dlT= p)lhTM:4 %(X%lp l> A (Upxl6 kxkxl vkxc~kvDX%(4%lp l: kvD%(%hp h: pkvD`%(@%Tp T kvR)lhT6p  vdpzpzb l(p4 lhTp 0   0  0 8   0  0  0 P  0 (  0   0   0   0   0 X  0        zrU 8$` $`(`00` 0//(!`/$I`$q` $`(`!&0 ` 9Y0o$ `yA$9 `Y(a `Yo$ `q$`0` //&(`!/$)`$Q`$y`(`&$` $ ` nrU ,$`,`0,`175*\R0*#1a$*\Rffff*0P404dc19a*\R1*#59*\R0*#10*\R0*#13*\R1*#67*\R0*#1$*\Rffff*0Z404dc31c*\R0*#e*\R1*#ce*\R0*#14*\R0*#11*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26$*\Rffff*0U404dc30b*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42$*\Rffff*0T404dc30b$*\- 6Ҭ (xMEX 8<<<0:> <<<< <$<(<,<0<4<8<<<@H ` D(`J,,`Fx$ HtH `rting R` 33` @T `V n H%o( `" Z  ` CC@T (@V $`\)@ X`^"(H$ ) `` )`ox1 b `!k` BIT ox3 14`j)`X `V9Th`dTatio+J `h,k( `)H `LangGe H  14`fx(Se`hvms("`jt/On`lr' tu p `0 J } 14 rxh or Gstore erP `vtErr`tpJr  `Lk ssI  d yeiok.P@Tl vedP`\ row`L th =` J & "`DDir `B ` @ath) Hp < MCROPage") ` :)@( edPa`X $H`"me i  `0Lk kkqi  %i %i %I @ 8--i----`Jx--`` t_Sel`pjour`@ l8--` j----`h----`: d``urna+(`&k` )))(' %i( ` t $%`p$` lh`j9n`d `#Pkh99i <i (i$ xDate%`v9n`t`r! lH$%`J0h$ d5 z5 `h`H(+H` YY>I I 8i p% %@ @   %`t`@ `N 2`  6` )9%i<,8@.@8(@x@"@ PH H `H8x(((  PH H `H8x((( @P8 HB,F@x @ht @p  ` H`xB@xt @p @` @\ @L @< @, 8 @ 8 P h P 8@HD@@ @ @ @ @ p ph` %P@ @ @ @ @ @ @( @ @ rJL,8`(%0p)@| @x @t @d @T @@R XL@xP h@L@Q@N xT.0@L TXX6F hB,D.0@x (@t @Pd @` @ P @8@ @0 @  (p p X8`Jz H B,@l @h @d H@T 0@P @@ @< @,  x h  ` X!x BHb@\ @8X @PH @D @4 @$ @  @ @  @@0 @ @ @  @ @p! D86@ 8 ` '@ * @ @ @ @! @(!| @@!l @\ H  @L ("h"""P"@"@Tl H"(",D#@"P @"@ @@"< @"8 @4 @$ @# @ B"D@X#\ @#X @$H @&D $X$ Ph&@#$p#%0&X$%#@p$B x@@ P&p$ @$0 @$ @$ @(% @% @% @@% @X% @p% @% @ @% @`&p (#X,,@n @h @d `H&`&%x&0&@P p$/ P(x''''('(@'`x P'(''pHz4fx@` @ (P (@'@ ()' F@p "    < 7 3 B  "8  H :X   2 * /    ? 0 .8 .h . "        ( >0 MH h 5x "]    ,K    N6`6x1  U    @" `hp  (      0 @ P "`     8 X hp x 8   " (0HXh  p       0 @ Ph  p          @P X `p< 2 (8 H (Px"   N`x  "  R0 0 7@`"5p5 N & (0 *X  * * $ $  H ` p B   4  n f` N@PX "_` B       " (08@ H (P  6x . "  ( 8Xh  >MMMMM M@M`M MMMM M M@ M` M M M M M!M !M@!M`!M!M!M! >!>"> ">@">`"*k",k"(k".k#&k8#>`#>#>#/# ## ## /# $ $ ($0$  58$ H$*X$ *^p$&$ $ $  $ 6$ E$% =%=(%=H%=h%=%*Z%,Z%(Z&*Z0&.Z`&&Z&=&=&=&,Z' ,@' (rP'x'$a' '''  ' $' 0' 0(( X( x( (( V( :) H@) 0) T) $* V8*" *********** * )+ -+  +(+ 8+ H+ >P+ Mh+ M+ =+ >+ &M+ (M,8,  @, "P, /`, &ip,, , ,7, , ,  , ->-M0- P- `- p-?- V-M-=- >-&M.(M@.h.>p.M. . . . .M.B/?P/h/ p/ 5/ /  / / "/   ///"10 (0480P0 X0 `0  h002u00  0 0  0 1  1(1 (01 6X1 6p1 1111  '1T1 #11222 0 2 .P2 02" 222222222  2?3  " 3T03 P3  `3  p3 *3   3334$ 404P4h4  V42.4.85 H5 `5h5 p5 %5 5 5 5 5 &5?6 (6&N86,`6%6 6  $6?6 6&@7&>(7,P7%7 7 7 7 7  7 ,7 8 *(8 X8 &h8 8 L8 68 69 9 "/090X9 p9x9  9 /9%9 9 "/9*gI 0:8: $%@: "/h:0g: :: : : 6: 4: 6 ;B X;`;h;p;x;; 6;;;";; ;; ;"< &<"8<X< `<h< ";p<5< << << < B<  @= <{P== = == 4= 2= 4 >" X>`>h>p>x>>>>>>  >?>?? >0?>P?.=?!? A??@:@1J X@ h@x@@I@ F@ 4?@  (A 4?HA  A$ A$A AA!A"A AABB0=B?@B XB `BpBxB ,B *B ,BB  CC C >(ChCCCC CC C CC C C @D&HD2pD D D D D E EE E@EHEPE hExEEE"EE&E EF F(F @FPF`FhF"xFF FFF,F G &G 0G@GHG `GpGG"GG GG *G GHH ,H HHXHxHHHH H"HH H HII " I I0I "  8I@II 8J:This module contains the macros for the main control sheet80]]8]]`](]P]]x]]]  H(JHLanguage$'de B!',A@FoHReturns the option setting nOptions B% %!d'iSets the options( nOptions B% %!d $  nOptions B% %(dk0o(H B% " )$5((p )$5( +In )$5(e curr )$5(% )$5 (B@X )$5"( )$5$(% )$5&(% ) $ GroupBox17((d ) $ GroupBox27((d' )$ GroupBox37((dLine$qp ) $ B%!*(o@9This macro sets information about the workbook and sheet. B!',p' D!'. $ ._H'0Language$'Get the user's preferred Lang(Set Settings = UserForms("Form_Options")/On Error Resume Next ' turn off error checking>2Set wbMyAddin = Workbooks(AddIns("Jrnlmcro").Name)LastError = Err.Number*$.On Error GoTo 0 ' restore error chCompObjxpi34)5/ n``<h<hfo.0eckingb$If LastError = 0 ThenJrnlmcro.xla is already loaded. Run ("GoToControlPage") %ElseE 'Jrnlmcro.xla is not loaded yet. Load it from ActiveWorkbook.PathGbl SavedPath = CurDir() & "\" row, WorkbookPath = ActiveWorkbook.Path & "\" ChDir (WorkbookPath) ChDrive (WorkbookPath)( Run ("JRNLMCRO.XLA!GotoControlPage") ChDrive (SavedPath) ChDir (SavedPath) End IfH1The logfile name is stored in the message catalog  $'  jrnllog.xls'%k TSkipsheets = number of non-journal worksheets in workbook. In the sample shipped, ' Skipsheets is 4 because 1 Control sheet + 1 notes sheet + 1 journal template sheet ' + 1 journal header template sheet = 4. The Options dialogsheet doesn't count ' because it's a dialogsheet, not a worksheet. If you add additional sheets to ' the workbook, add that number to Skipsheets.'[SkipDlgs = number of dialogsheets in jrnl workbook. In the sample shipped, ' SkipDlgs is 1 because the only dialogsheet is the Options dialogsheet. If you add ' additional dialogsheets to the jrnl workbook, add that number to SkipDlgs.'oP]]]', . 0 D'4 4 4 0 '8 8 . 2 D'6 6 8 . 8 6 8 $',kki8This macro will add a new journal entry sheet and header] 8P]hA@@ ,$B@ )$'8 )$'< < 8$@$x' H(J  Template_H$BTemplate ,$%LB@X  D( $B Template_H ,$%LB@X _H D( $LB@NdA@Fk ,$B@o(========================================' Select a Journal Sheet and activate it(========================================]]]Get the number of sheetsA@@'F H$J L )$9  $5(5B@r H5(t5n5N!n 5P!n  9n LB@>5!|5!|5%t'Fkq LA@rdGMsg: "No journal entry sheets exist. Press New to insert a new sheet." Z$'8 ^$'6 6@ 8$'kP FA@Fd0 F ,$%LB@Nko======================= Delete Journal Sheets=======================(]h]]]A@@"Application.ScreenUpdating = False ,$B@ H$J L )$9 )$5(5(5(5B@r H5(t5n5N!n 5P!n  9nqp LB@> L!.  !  %  %t'T T_H'V H(X T ,$%LB@ V ,$%LB@ H(Xk LA@rdp 2Msg: "No journal entry sheets exist for deletion." Z$'8 ^$'6 60 8$'k A@Fo ]@Xp]]]Get the number of sheetsA@@' H$J L )$9 )$5(5 (5N( )$5 (5B@r H5(t5n5P!n  9nq LB@> L!!| L!!| L!%t'T T_H'V L!N'N'\ ` ,$!L  `!name already existsY'\k \N _H'^ ,$B@ Template_H ,$%B T ,$%LB@X  D(  ,$%B V ,$%LB@X ^ D( $LB@N ,$B@d !Msg: "Sheet name already exists." Z$'8 ^$'6 60 8$'Control ,$%LB@Nk k LA@rdGMsg: "No journal entry sheets exist. Press New to insert a new sheet." Z$'8 ^$'6 6@ 8$'kP ,$B@o8 ]]]] T ,$%LB@N BottomLine$!'  ' InsertLine D%!'  ' LastLineCol D%!'DescrCol D%!'dGActiveSheet.Range(Cells(FirstJLine, 9), Cells(BotLine, LastCol)).SelectFor Each Cel In Selection.Cells! If Cel.Column <> SkipCol Then$ Cel.Value = UCase(Cel.Value) End If$ If Not IsNumeric(Cel.Value) Then# Cel.Value = Trim(Cel.Value) If Cel.Value = "" Then Cel.Value = Empty End If End IfNextox]p]]]Get the number of sheets B!L!n'f f  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. f  'h hHHCounter = number of worksheets to skip + number of dialogsheets to skip.   'j'l_ j ,$%L! l+H <skip the next sheet because it's the associated header sheet j 'j l 'l j f'Jd'Jki]8 ]p ] A@@"Application.ScreenUpdating = False/Set LstBox = Dlgsheet.ListBoxes("LangPrefList")'With Dlgsheet.ListBoxes("LangPrefList") .List = Array("English") .MultiSelect = 1End WithBuild_LangArray (haha)r English+r v *$9 *$5x( *$5z( *$5|( *$5~( *$5( *$5(  $5(  $5<( * $5( * $5( * $5( *$5&( *$5(( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( *$5( Def_BusUnit$5(pDef_Date$5(p Def_LedGrp$5(p Def_Source$5(p Def_UserID$5(p Multibook$Y$h9 Def_AutoGen$Y$h9Unicode$Y$h9DisplayMessage$Y$h9DocSeq$Y$h9 Def_DocType$9 Import_URL$9 Import_UserID$9 LogMessage$E9d9k ChangeStatus$C9d9k r5(t z5(v 5!  5%tLanguage$  5,k@8C@>5$|/5!p/5(pk Def_BusUnit5!pADef_Date5!pA Def_LedGrp5!pA Def_Source5!pA Def_UserID5!pA Multibook5YN$hA Def_AutoGen5YN$hAUnicode5YN$hA LogMessage5EB$hADisplayMessage5YN$hADocSeq5YN$hA Def_DocType5A Import_URL5A Import_UserID5A ChangeStatus5CN$hA5!|Language$5!|5%tA@Language5!|5%tAkPkHq@ vA@rIf LstBox.ListIndex <> 0 Then* With Dlgsheet.EditBoxes("OprLangPref")) .Text = LstBox.List(LstBox.Value) .Enabled = False End WithEnd IfoXO===============================================================================4 Entry Function for Online and Batch Journal ImportB HowMany : Indicates how many journals sheets to be processed) (ALL, SELECTED, THIS ONE)M Mode : Indicates Onine import (XML link) or Batch import (flat file) (IMPORT, FILE)O=============================================================================== ]@ X ]p ] ] ] ] ] ] ]8 P ]h A@@ H!' H!' THIS ONEKT D.T  )$9  $5(  $5<( Import_URL$5( Import_UserID$5(p  $5 (9UserID  $5(9Passwordq B@> H(J ! T!   ! !Ak` A@r TB@N $B@HSELECTEDKT H$J L IMPORT )$9 )$5(5(5(5P(5n5N!n 9n5P!p5N!n 5P(p  $5P( Import_URL$5( Import_UserID$5(p  $5 (AUserID  $5(APasswordd )$9 )$5(5(5(5 (5N( )$5 ( H!\ , ,.$xml9N5n5P!n  9nk5B@r H5(tqh LB@> L!. H(J IMPORT'  !  % $' L!N kk  !  %  %t   L! L!Ak(  LA@r IMPORT  Vkd "Msg: "No journal sheet for import" _$'8 _$'6 6@ 8$'kXnP  H( $ H(  H( THIS ONEAFk o )=========================================' Online import the given journal sheet)========================================= ]` ]x ] ] ] ] ] ] _H'J  B%LB@N H( $ H( A@b CheckHdrsImport the Journal sheet#NvsError = ImportSheet(ActiveSheet) IMPORT  A  d  '   '  A   'Ohttp:///xmllink/ps/Excel_Journal_Import?userid=&pwd= Import_URL$Excel_Journal_Import' ?userid= &pwd= '   $': :KT  Import was successful ChangeStatus$NKT do nothing DB@CKT Change Header status to IMPORTED J B%LB@N DB@ D%T%! '$ $ D%B@HU (p DB@Change Line status to IMPORTED  B%LB@N DB@ InsertLine D%! ' BottomLine D%! ' $ $ D%B@HU (p DB@nXeKT Unknow generic errorfKT %Error loading the source XML documentgKT #Error loading response XML documenthKT Application Error message foundSh EImport error: unable to import journal headers associated with sheet _$'8 _$'6 6 ' '6DisplayMessage$E 6 8$'kn : LogMessage$B  Success Ak(DisplayMessage$Y    _$ $'kd   Import failed ADisplayMessage$Yk8k0k(o /===============================================- Create XML elements from given rage of data/=============================================== ] ] ] ] ]  H%r''   !p$z !@ !p'd !p$4' .   .   kpkhd` !p$f !@ !pyyyymmdd$ 'd !p$ x'kk   $ < !$!p$ F>'  '  'k80 'i -=============================================+ Generate XML string for the current sheet-=============================================(]]]]]0]P]h] /use smaller chunk of XML string for performance _H'J J B%LB@N J $     $C  " $  $ D%.  $ '    $'  $!p'  B%LB@N$ BottomLine$!$$  !''_8? !$C !$ ! LastLineCol$!$$.   $  '    $'   $ ' '  ''k>k> 7.  !   ''k=q=  $ ' J B%LB@Nk`= kH=o@=&======================================$ Post and Send journal over the web&======================================]X]x7Dim xError, xImported, xUpdated As MSXML.IXMLDOMElement]]]]0<'. (  %.POST  B@ content-type!application/x-www-form-urlencoded B@accept text/xml/html B@accept-charsetutf-8, iso_8859-1 B@ ! B@ !'  %error %.' ! 'imported %. 't'N  !   t, 'tk0: N 'N t  %"!d't9 P N$$$ t'updated %. 't'N  !   t, 'tkX9 N 'N t  %"!d't9   &'k8  P N$$$ t'd8Application Error message foundh''  !    &'k88   %"!d'8k8d7 #Error loading response XML documentg'k7d7%Error loading the source XML documentf' !(!*  'k@7z8707 ,!. ,!.' ,!0 Import_URL$'d6 Unknown errore'k6i6H 4B@>o6*The following error occurred in procedure <:   8!0  Error #:  8!.>ERROR8A@o55   _$ $'J  X7.JAttribute VB_Name = "mImportControl" 'This module cXains the macros forin@n sheet Option Base 1Explici!Dim CurWrkBook As S!ng rentSOHdr1Tit OMe ssage JSucc ful Dlean@Log0File &SkiptsInt0eger Dlg FirstJLinAPub Lang% Sub Init() Apa.ScreenUpd = False)= s("5u"#^= ActiveWohrkbc.=CG(otoP pEnd $()Fun@|EdBoxG4,!al Text)@'ReturoCsettiA?D -Dialog; ").Edit#es(%|).A 2-L3\S0ave_ , New /,Set˃+sIfUj( <>FThe@A?=M19If:riva "!et_Homep?_LabelsaeQWith01 L.$Defaults.Ca:= GetMsg(S, 41, jUserNotze:2 Y 3 !C>4)CE 5Jopy 6)CSelected 7WriDte, 8GProupc"e1ߠf"]q4J.2/3e1VaOcXa-s(2).GI(9 "a ]EaB s in m about2wD ab. ~ f[Ae'.@ProcDataaInvoke_ t" \n14go@ s=xg& "_HTA9TT-c' u`:'s preferredls'`? 0 [s=FormwYaUsiCO n Err Resu NQc ' a off `checkaw@bMyAdd@= ms(InJrnlmP&AnA0'Last=q.Numb!}'GoTo 010' restxore$ _i0 [\'.xla already load`?TRun ("Өxe'E&'~not4 yet. L it from[PatvhApd1#Dir() & "\T"Et8R-Ch (! {ge"JRNLMCRO.XLA! ir (Aq/3YAe`gf0 nQ  dB1m4c@>iU9, U#"#{"jp-0$.s c'8= n-p4 non-joLd3M . sampshippedx, _`4 becaA 1f + +(esteA2QUh02e8= 4p 6ts dҠdoesn'tPunte Tit La9,t a 6af y@ou add1iP"s to q,thatub& 2ʼn i  ??f1 only q`k!P  QD dBetw(S-ceSâ, Be|@ AfterCompa^ۚs!Pomk " `Y">==;(<ing, Bef@oreStrCompare) $ If xPos > 0 ThenHtBetPweenD=h+ Len( ?`AfterD=In (V, S0ourc6, U X> R   = Mid(; ", 3-3vEnd IfFunctio 'This macro will add a new jnal entry sheet a+header Sub JrnlS _NHew(?Atbute .VB_ProcDataInvoke_A#?" \n14" Dim B, Title, Mesg A&sD; WKAVa`riantCG etBCWorkbooks(Cu rWrkB).Unprotec #Msg(La41, L21V"= 9E/@Trim(InputBox(A4) Applicac.Sc"r@Updng@False%C<> ""L9Ans("Template").Copy aČ:=J_H"(%Ave.Name&!%  e ?P& " & .BE)!GotoCo [olPag-e YCG`Ci '="@ SelO`mJlb,"laa. iS  PubJ s ask 8,jList()Jki!Integ ~#'` the number ofÄs' {B$H"`}`ZAA`rray()-[ith For|m_c a.xCaphSw2JButtonOK12, %~!y1.CleafHeight.$- .TargetOnli0neFrm15G -#.Show7K..Index >=Ned7K(0 -jW G UnloadR<'P : "Nojets ex,. PressAe to inserPl{mB.( _`9v0 p\sC &94, 6i _02t#>^_Kp kKok).QQ) R_$a HMoMF=QLDPL~9L?OKC]{I(1G@?2 elHdrQSBK Kb'xxa"1 M0//"/1Jȉ3x'M5OAQAll.Visibl~8TruqqNo|neEpgAR ?;C2uO= wPRR - R-G'SSSq~1 Nqaz0'= 1 To r8CouA!1.med(i p0`g$2=;R /DisyAlRsA_Ǩq0Fe).>O //U _? ?, Nexd/hr /h/h˴$h P dQRPחffsf, f7= ~0L~7|B4.[(O  V= F& "_H Hs} ?B UError@."NA EachIn Workbooks(CurB).AIV@Comp(( .N , 1)'1+'n already e~xMx% FY'LEIf exE* N">`3% 3'Unprot .(EB).Copy after := Ts("Template@HMAActiveb3`3 B$_) tsFEe 3S .b P3Els̫E''`: "' V.RTit* 90!c/Messlag4%i77@($8,> bSG("Control")(MlUnloadrb{KNo journal ey4|@. Pr0A to insert a new)@xw/z9 Yw,| 60ok).&SubZ5atJS0(ByV? At bute.VB_cDataInvok@e_Func`!"` \n14(B8otLvzqCel1ږLastCor6Skip}11ctsL9 = Rpe("1tom @(RoG4}g- 1F irstJ = NI2# Z+eu?@ P Pum$eo``Descr;3 '# ls( , N9@S4, D )U©} }$h.Tp el <> G'q1)uIUCase(FY1wot IsNumerichwmTrim_Q1 5 "| Empty. N"!;a62,()X5f "= {*'Array%TrukElsp Fa End If Function Public Sub Set_Op s() Attribute .VB_Pro cDataIn`voke_)J" \n14" Dim LangW() As V@ariant iIntegerQCtmpSng&GetB@P'App*aA(.ScreenUpdngH; 3 LstBoxhDlgBz.AHes("A(Pref "@<'Wit|h f ;"EnglishMultiSelecȻ'c;'Build_FN@ (hahaD&ReKU1F (1CAC5Formx&Ca|0[Msg(, 4X2,  HDHefa2s_P. 2D'Gene(ral 3iMessageLog4DocSe q]5IImportContro~6/Statu"7 ButtohnOK5(1/Cancel.hoi-d7nc9<n8?=@p=Ta;NO/| A!Gէ?t.2fmSiP i1 To .ZÄ;(i -p7`WubV# edWA1NexPőpShowRight(.+q <> "/pK4&g= Call Save(\, .QIz_hH_P_o<]$ D^`G^7f_UserID.Value)  Call Save_Option("Multibook",@ IIf(.@B _Enable, "Y6"N")Def_AutoGen%EUnicodeA%=LogMessag _ErrorsOnly%#E-"BeisPplay%D _ gHDocSeqg0Typj.Import_URL@~.G" B ChangeSta8tus@’_YtES@MCĒIf .LList.Index >= 0 Th5 ()Set_Homep_Labels w Oφ,OEnd If0WithCCUnload Form('@DLstBoxO!''!! Dlgshe@et.Ediae(OprAPref".Text = ( (dɋd@False' ASub %'N=?' Entry Func! for ` ine a1Batch Jourpnal e@ HowMany : Sicates how mjcs *s to be prorc@edA)d(ALL, SELECTED, THIS ONE /9$ M@a Onaiz (XML link) Eflat feH 1RFRJc4Now.Ca҇! Msg(G, 41, 25 A5.Button OK_S12, 1OACancel2# ashfeRf r og3 3t0)',4 1PassworI !XqWs.SO:&creenUpd@*ng_Wk\|""z*R'(EC.NamE, ;@NrP(VB:H!IzIx A1bCells(10.8).p7c7ah7~Array(1Hό 7?#w2X= "a _%S%:7 t;Al7>77Visip$TruԄxNone.s Fr@# .Heigha- .Targpa- 10.Top .?t TpQ@Q29"ONL}J 4N1DOcй`OO!a]OOqߓOOE֪ob06o8,8-J0tisible = True .Label2.V!Target#VCaptionGetMsg(Lang, 41, 28)g3ApplicaA.DefaultFilePath & "\"Mid(CurWrkBook, YInStr(# "."))!xml"=HePight=.- .OnlineFrame 5 @End If .ListBox1.Clear>Sheeta0With Form_Select".ShowSet 1@ * IbScr@eenUpdfnbgals̗KIf mode <> "IMPORT" ThenK aOutf@x0* i1 To0BVCount/O :.Ded(i - 1) ~AjT#G F>(ԮB pen U0putp As /Nex;Q _'a&6ACall Import_]N(/.,@, ,o$UserIDPwd/ O%UnloadN%!WGZ0HClose #<Eh': "No journal s for iB-Tit3j95KMessagAN2L+F@(, 64, b ha#njtatusBarySeT[7U3Di`splay ) O pt:HowManyTHIS0 ONEZGotoContro  $ Private Sub 9ne9Grix-H*!Integer, Us8`7Dim HHdr, qs`trXMLVUR_trRespon2FirstRowNum LauHRet2CD1Longi# N=dp_Ht5ActWorkbm.8sM).B3S((7+.1.p\matJ@h'Check sZUB& C'NvsEdrrE= (34.Tb~Q b3Pener_!(s!,, 0d!ɰ+ntR,  GQ="vbCrLF/0 @k/ps/Excel_%$_?uid=&pwpassword>17= Os("_P"Ұrte0 1AApBF9= send @2 H!'3e CaBbl', wa@s succof R Mi^dHO@1B_. 1? O1@ IsD*l.߿x$0Jymmdd"}P~OTrim?lkuCG Le>n# 3,Q& Space$(9K" "vbCrL_NexĜTH 30TJTOO}TGᨱNa aqf @currN䕏Z?WTSubvne0Ge_`(0t NIU#P/a"UURHdrSeq0jTľThisq/qaPB6^HBArray(`Var iaa`tempOG*R'usYler chu8nk @kpermancPs ="_H+sWorkbooLk.2s().2#`6Bui8ld_ , -)"@vbCrLf[HU@k2_(>, 4-H-/-5~Len(L) > 10|E?text@|E& UٰA End I\k |N(dRx7Loop Whi4le|A`h[ <> h{"_) d-/'!iF)iCRHDR^iActiveWor@kbook.s`heets!).batema4 iceSubd %'=  ' Post$ a6Sejournal over the we Priv@ Fun 0on s )(s$tr, Re@sponseURL As St r)ALong Dim xD$oc!MS@.DdOMum@H8TTP`Re`quest@BError, xImported@Upd@d'I@1 Ele L.NodeLiaqAtmpA ##Status@i, kAInt0egerc:On  GoTo doC(((/<= New /~.asyncpFals&@Pload)LP2BIz9 x.Open " POST", G8=setHead)"cont-typep"application/x-www-form-urlencodedXs?acceptq\/xml/html-char` utf-80pso_8859-1X 7r0 C 53TZr%]q&=b6.get/sByTagName("e3~"`(!5.`ug= 0|$A(0 " U; r_ Q i= 8t= a 7 For i1 7fC 1 iqo6Q& "5]fkp kp^1Q  Iq(i - 1).#!ekGetMsg(LP, 80, 0(k)p2W''u3Z S pQW x :@ ) "́;3=i{ n%3ao%NEkS'AG` SMmessage found(Gp-104@?I $YN/ $ \En*d If strRespo@nse = 4& xError.Item(i - 1).Text%N*En Else 7'\ loading rXML documen isend= -103M k g cthe source 2020 xDoc. parsereason & vbCrLf0Nxit Function do :If .Number <> 0 TheڇNQDescrip 5IOs("Import_URL") MUnknown eA=_1Dy95 APublic Sub CustomizeCF(AForm_.Show @ CBrivategeneric6orHandl@er(obj AsOObject,ProcNameAStrMsgBox prompt:="X follow< occurred in cedure " CvF_F& ":%.`F"0 # C~,  Title)ERROR"G__SRP_26,__SRP_35UmLogFunctionsGQ__SRP_cM4@tMH@^> qdldqlZC?C 12 l@07\$ @\A\U lB0U?DlxFH%X\$ H\ X d D)\XD\$ @\C\N:%(H%\$ @\$D>EAF(Uph\6$(H%(%\$ X\$%khD%(%X$ XX%D$ @DG)\XD6$%:HH%\ $ \I\\$ @\A\?D FH%X\$ H\ X d D)\XD\$ @\C\@:HJ%\$ @\$GAF(Upj\6$>:HK%\$ @\$GAF(Uph\6$kjDH%(%\$ X\$%khD%(%X$ XX%D$ @DG)\XD6$%:HH%\ $ \I\\$ @\A\lkl|ll6C(($_MH@ /6$6C(($_MH@ /6$L*# *//CMC #N020''$M4@MH@^0q`6$ld/COC #P02%l:4QN$$l MH@ R5$/CMC #S02gC(($_MH@ 1'L'># *FlM@^0q`26 $LH%l:4TN$$l MH@ R5$/CMC #S02FgC(($_MH@ 1'L'># *F0lM@^0q`26 $L0P8p txlp8 \XD$Loh6@ P%`$ ` @`1l`5@Cd tkvDH%( %\$ X\:B]3\5kvDH%( %\$ X\%kvD%(%X$ XX%D$ @DGYx)\XD6= FH Z:0[: 8p`' 6rU~| li1 Y   !A Ai !!!q I Yɇ9 aY)A}YyٝC! "9~yy A!)q!ْiqGqIY i aA yɦa|yy|iɨ٪" x$ x x(CppCtt 2tp'tx$ Hx >tx $ $ tpx`Xl @\:`%pt$ Ht p d \< A, `1x)tp\6<, P`(x tp\<,0   0 H  4'tx$ Hx >tx%x$ @xWd`x5d1* (C``Ctt 2t`6Ctt( (d MP@ /t6d 0 2T  "(\$ t`xd 0   0   0   0 (  0   H lR4l8<F@%P$ P D3< 8 d 4)P<840P'$%:@K%$ Pa"pjP5 kjpj7:@J%P$ @PGAFU$P6$$5:@U%P$ @PGAVUpVP65:@W%P$ @PGAVUpTP6xH,lX$P<84h$4dhl$ Hl h 0 ldpx)lhkx kx pvkvl   "ptpr_C(()M@ F%,/6MC(( M@ #  026MC(( M@ #  026=CC #  @2>CC F  25MC(( M@ #  @26MC(( M@ #  @26c$" $  /$  :]@5]ilA$ $  `njQo@l`ǰ 26V$  l7( %(%$ X5 :]3 < " !V" #0>C(()M@ F%,/6MC(()M@ # $ 026 $ % $ % $ %?| $ H%a*n| j%,5Vx $ H%| $ %n|nx 7t $t %)tMC(( M@ # $ @&26=CC # $ @2>CC F $ 25MC(( M@ # $ @26MC(( M@ # $ @26>C(()M@ F%,/6MC(()M@ # $ 026 $ % $ % $ % $ %MC(()M@ # $ @26 $  l'*F(iM@ )d:*T $ /)6 dT?| $ H%a*n|j%,5 $ L+5l' (N( h(p( (( (<B( )2)  @) H)`) )2) :) **  *(* @*"H* p*<Bx* ** 0$**++ +(+@+xp] ] MsgSet 1 - 9 Common# 10 - 39 Journal Editting 14+ 40 - 69 Import Control / Opti KTNumber of Lines'KTCopy data from line'/SMessage not found: ( pX, rX).'An)KT )*** Form_SelectSheet and Homepage buttons rKT Setting(s)'KTNotes'YKTNew'KTEdit'KTDelete'KTCopy'YKT Import Now'sage5KT Write File' KTGo Home' KTYes' KTNo'Y KTGeneral' KTJournal Sheets'poKTImport Journals'KTNew Journal Sheet'KTEdit Journal Sheet'KTDelete Journal Sheets'KTCopy Journal Sheet'tAKTImport Journals Now'A@rKTWrite Journals to File' TKT Select Sheet:'t.KT File name:') KTNew Journal Sheet Name:'KTFile already exist' KTOverwrite the existing file?'O==SXMessage not found: ( pX, rX).'====n*KT *** Form_Optionsin rKTDefine Options and Defaults' InKTHeader Defaults'KTGeneral Options'KTMessage Options'KTDocument Sequencing'e imKTOnline Import Control'fiKTAfter successful import' KTBusiness Unit:'== KTDate:'== KT Ledger Group:'==KTSource:'KTUser ID:'KTEnable Multibook'KT AutoGen Lines'KT Language:'H!KTLog Error Message only'.KT Log Successful and Error Message'KTDisplay Messages Online'KTEnable Document Sequencing'KTDefault Document Type:' KTAddesss:'KT%Change import status to Do Not Import'KTKeep import status as Import'KTUnicode'S Message not found: ( pX, rX).'B@n8 FKT Help text rKT captionJournal Entry Help'9KTJTo 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: ( pX, rX).'9nnPKT Log text rKT Imported v journals: 'KTUpdated v journals: 'KTsuccessfully imported.'SMessage not found: ( pX, rX).'nZKT-90-99 for Error/Warning Messages related text  rKT Error Message Title Data Entry Alert'KT.The date you have entered is not a valid date.'MsKT2This is not a secured web address. Use it anyway?'$KT This is not a valid web address.'SXMessage not found: ( pX, rX).'n[KT Header related error messages==== rKTJOne or more of the following required fields is blank: Unit, Journal ID, PJournal Date, Ledger Group, Source, User ID. Please make sure all these fields contain values.' BKT9Please enter a date for the user specified reversal date.'KTBNo headers found. Click the Insert button to create a new header.'eSheetKT"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,Fiscal Year is required for Adjusting Entry.' SMessage not found: ( pX, rX).'ChnP\KT Line related error messages rKTPYou 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.' %ErKT3The 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.'S0Message not found: ( pX, rX).'n]KT% Line Checking related error messages rKTAThe 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: ( pX, rX).'n^KT! Worksheet related error messages rKTNo 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.'S0Message not found: ( pX, rX).'n_KT( Real-Time Import related error messages rKT titleJournal Import'KT)No journal entry sheets exist for import.'KT6Import error: unable to import journal lines on sheet'KTEImport error: unable to import journal headers associated with sheet'KTImport OK - Sheet ' was nKTImport Failed - Sheet 'geSMessage not found: ( pX, rX).'n`KT$ Batch Import related error messages rKT 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.'S(Message not found: ( pX, rX).'nSMessage Set not found: ( pX).'nSLang not found.'nxiphXAttribute VB_Name = "mMessages" Option @Base 18Explicit  Pub MsgSet As Integer 2Num 2 '^ 1 - 9 Common1039 Journal Editting %4%69 ImportHntrol / s -7-79 Hel p 8 89 L o 09 99 E`rror FuncListArray(ShHeet()yV@ariantB`ooleapSub Build_Lang  ReDim 1'B+Size $}English}End @' C+F;Geto(n,D~y,\jparam1ASng  ǝ.ProcDataInvok e_A \n14&AASelec@yA >C"0, "D M  E 1A 'Ġly shared text/mD !> ;5in progr@...pse wai\t.0AB2YSPave 3 ReadyElseDd not found: (" & C(C0r)",@() Q>g!9"6file n`}c4`-?'ThHis @th of ad? log templ$atgl.x|lt8 Y,jrn B#?4B?4?4`14'B1'*** Form_J`H`NerNew@!ƿc _ Heade rb2hange Import Status"@o NotDZ@ns ( Unit,R ID, Date)F:NewdentifierDBusiness &"7w738!AA9ControƄ30User3QPasswordElse*M-aYn`Jfound: (" & CInt(Set)",HNum).EExnd c|k1]'*** Fo@rm_Add ~LaB -  / Dmultiple jc l @kKIn2t M BdDBlock of c~ance3QFromQTo8z#@;bg y+1$a datxa fIQ&isZsi ia( 4 w&r,4lW4c0Sheet a: HomepQ buttonsQO3O3 H Cting(s)/e Oq{mecYewe 8O 4om= BlHdNo lWrite Fil_l1Go !e 1kYϤ/" ener_"Ł0O&/B dhB18 ? s%28C,R 4hS: Of8,.5H.e to/u7xOkaO76 name_7  NO#)&Balry existOe 9OverwDtheC\ fD?e ?q@Q Q ?q`jV447qOptioD$ߏDef` v a6Q! < GetMsg = "Header Defau@lts" Case 3 L>~General @Option~4~Message?5?Document Sequ@encing6!Online Import C@ontrol"7"Aftsucciful i'#11$BusGss Unit:2Date!ZrLedg0GrouprSouLrcZpUs@IDmEnable MibooFkJluto@ L\8YZLan,gu@.9og Error Eonly 20SǜandRODisplays c P3?t2S TypEM2TAddss62TCh=ez status to  NotC$zXKeep as Y codeaElseIPnfo4UserIDmeg ( 4 JrnlClassar:g $ 4 IUtranCDg $ 8DocTypeD,$+$ 8DocSeqeD,$(2@Label4eD(28Label5eDE(28Label6eD (28Label7eDp (2@ Label8eD(2D Label9eD(2@ Label10D(und: (" & CInt(Set)D",Num)".LEnd lectg1B?70c' Help tLexASe! ?@g 1 ' caAU'Jn Ey"%:[To int a j BȂfythe sed h, click AIbutton )J_"pr U CTRL-L. `d te`a , cell  you wishSt " D KDw=R_; y S D H S 5 EJCediaE1uEscopy?3CY $T_ 8q_8888 8 7'88L j88B3X!s1param1 4s: 9_Upd@d4B bH wlyYed1 9'90-99 I"/Warn'~rel WیTitlf Pa)try Alert?e [o$TpVQ Nhave `erp%is Qla valid AK`secuweb addY P@ Fnyway? e ?&/ e CCo|o|}o|A0& Sx9 {$e"vmk`s"$$ OPڀUmore oftfollow,ri1fields blank: , ID,w M "51, ),2 , Plbemak ! ~axPx%De""c@ain*ues)//Pl r0Ňuspeci@d reverxsal date ." Ca0se 3 xGetMsg = "No headers found. Click the Insert button to cre a new n4rThere is no `journ^hAsheetR5-Rk ,6,aXVsdelet e7'One or mo(offollowing required fieldsblank: Business Unit, " & _3"JSID, D PleAmake su8all@contain vaPluesRa86I mbedd/spHacewt o^wa&9N8EXT(id7ID10aLedger GProupaSace, U '_ B114Fisc@iYearA%IM@AdjustaLEntry&Else MOagev"tc: (PCInt(Set)R",Num)MEnd S`hLctg92', L^@blWd errfCs~ @Z'Y@ou havcs`VaƓc`h da wrsN2˰` ly wantୃ doibelo display@Ũ"q*̀&dOK'@banywasDzɁrow r noweA P$//eaDqD2-f@0vi5b3YCA: unableAFlinesX on04l headers associBhPwithW5`O`K - S.6Fail@@x96D^Batch]] ]ASave e^"/s1/^Θbe s d^' Totof NW J`M X succ~fullyK@{f& :a"#ZZ Lq/RR߰߰EHְ% ? 6+ LaxME Form_JrnlHeader Y!Sheet1 WThisWorkbook _Form_ImportNowz "   ( " 0$8 @P "X`h tp (o?0 $P(ox^ 2(o  [( $HX ` h x     (o ( 8xA@z $xet A@|d@ ( k( NKT 14 0(pBKTort  2(pEKT  4(pXKT  6(p0 - 89DKT 8(pH (sagethno@ !ps  (s Bool (0 ( "(m Shee $xs Vari998 (pkXdP rU~| !I""q## $!$A$ "y$$9%a%%%1&a&&&'q'' (a(((1)))A*** +1++ ,A,,,!-A-q----1...9/i/ 001i111Y22213i3 4i44445Y5555 69666177 8i8899991::;;3/ <i<<A=i===i>?q? @y@@YAAAB DqE)F HQIYJJJ KyK LLMQN PaQQR TTaUU XQYZZ \)]] `Ya bbIc!W deff h!iij llnqno pqqQrI_isk ttu 1yyQzzzY{yg0 0    hXX:h]3,X:H]3h88(h]3h(((h]3oCx((h]3Cx((h]3CxBhE#$*# *#HE#*#*1x2 $ 8(h ]3h(h]3%Cx(h]3@ CxBhE#$*# *#HE#*#*1x2 $ 8(h ]3h(h]3 Cx(h]3 Cx(h ]3 Cx(h ]3 Cx(h ]3,Cx(h]3GCx(h]3bCx(h]3}Cx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3:Cx(h]3UCx(h]3pCx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3Cx(h]3 Cx(h ]3-!Cx(h!]3H"Cx(h"]3c#Cx(h#]3~$Cx(h$]3%Cx(h%]3&Cx(h&]3'CxBhE#$*# *#HE#*#*1x2 $ 8(h ]3h(h]3O(Cx(h]3j)Cx(h]3*Cx(h]3!Cx(h]3+Cx(h]3,Cx(h ]3-Cx(h ]3 .Cx(h ]3'/Cx(h]3B Cx(h]3]0Cx(h]3x1Cx(h]32Cx(h]33Cx(h]34Cx(h]35Cx(h]3 Cx(h]3Cx(h]356Cx(h]3PCx(h]3k7CxBhE#$*# *#HE#*#*1x2 $ 8(h ]3 h(h]38Cx (h]39Cx (h]3!:Cx (h]3<,Cx (h]3W)Cx (h ]3r;Cx (h ]3<Cx (h ]3=Cx (h]3>Cx BhE#$*# *#HE#*#*1x2 $ 8(h)]3 h(h]3C ?Cx (h]3^ @Cx (h]3y ACx (h]3 BCx (h]3 ,Cx (h]3 +Cx (h]3 CCx (h]3 DCx (h ]3 ECx (h ]36 FCx (h ]3Q GCx (h ]3l HCx (h ]3 ICx (h]3 JCx (h]3 KCx (h]3 LCx (h]3 MCx (h]3 NCx (h]3) OCx (h]3D PCx (h]3_ QCx (h]3z RCx (h]3 SCx (h]3 TCx (h]3 UCx BhE#$*# *#HE#*#*1x2 $ 8(h*]3h(h]3K VCx(h]3f WCx(h]3 XCx(h]3 YCx(h]3 ZCx(h]3 x(h]3 \Cx(h ]3 5Cx(h ]3# ]Cx(h ]3> Cx(h]3Y Cx(h]3t Cx(h]3 ^Cx(h]3 Cx(h]3 _Cx(h]3 `Cx(h]3 aCx(h]3bCx(h]31cCx(h]3LdCx(h]3geCx(h]3fCx(h]3gCx(h]3hCxBhE#$*# *#HE#*#*1x2 $ 8(hF]3h(h]38iCx(h]3ajk*#$l*1x/$(h]3mn*#$o*1x/$BhE#$*# *#HE#*#*1x2 $ 8(hP]3h(h]3p*#$q*1x/$(h]3Ar*#$q*1x/$(h]3\sCxBhE#$*# *#HE#*#*1x2 $ 8(hZ]3vh(h]3tCxq(h]3uCxq(h]3vCxq(h]3-wCxqBhE#$*# *#HE#*#*1x2 $ 8(h[]3htt(h]3xy*#$z*1x/$t(h]3{Cxt(h]3|Cxt(h]3 }Cxt(h]3'~Cxt(h]3BCxt(h]3a *1xt(h]3|Cxt(h ]3Cxt(h ]3 *1xt(h ]3CxBhE#$*# *#HE#*#*1x2 $ 8(h\]3hdd(h]3QCxd(h]3p *1xd(h]3Cxd(h]3Cxd(h]3Cxd(h]3Cxd(h]3Cxd(h]3Cxd(h ]3-Cxd(h ]3HCxBhE#$*# *#HE#*#*1x2 $ 8(h]]3nhTT(h]3 *1xiT(h]3 *1xiT(h]3  *1xiT(h]3%CxiBhE#$*# *#HE#*#*1x2 $ 8(h^]3hDD(h]3CxD(h]3 *1xD(h]3CxD(h]3CxD(h]3CxD(h]30CxD(h]3KCxD(h]3fCxBhE#$*# *#HE#*#*1x2 $ 8(h_]3h44(h]3Cx4(h]3Cx4(h]3Cx4(h]37Cx4(h]3RCx4(h]3mCxBhE#$*# *#HE#*#*1x2 $ 8(h`]3h$$(h]3Cx$(h]3Cx$(h]3#Cx$(h]3>Cx$(h]3YCxBhE#$*# *#HE#*#*1x2 $ $hE#$*# *1x2$ CxXpXxX8(tdTD4$ $  zCb,f(p (pEngl (KT ( ( "( enterkoN'ersal ' (KToB'ck the' (createopE'KT' (urnal o8@X'KT' (urnal oD' (Thero' B@KTo]@]X $x $x $x $x $x $x conRequired fields are blank. [$  !$' $x$FNEXTeNEXT Journal ID not supported [ $  !$'  $xe+Fiscal Year is required for Adjusting Entry [ $  !$'d !p $x998 (pk' $l $l $l'kXkPkH  B@d( Invalid date Z$  !$'kko̴Attribute VB_Name = "Form_JrnlHeader" Bas0{0E0A93DE-217C-4EDD-AFFE-42F7EE2C4025}{A3493396-CCD5-4D2D-BC00-2D7A93474} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizDOption 0licit 0 P"& Sub User Activ () AdjE@ntry_Ck If Trim(ReversalCode)" Then!Button_None"E"D;.VisiPEnd IfCSelect C}C"Np H.Valu/AgC^A B BeginNext nE ) X DayVD Specif A4RG;QOCK BubK~Ń@},|FiscalYearHt"*Acct$gPodLabel13FY=AP6T TnE"9980!&eQKXieR&Āa1e&D&He-CzCq!pdR#O$6[ry= `u#`eċ?Œo8GCa0ncel IDX".Hids)lS)OK7Dim i As Integer  afOKaBooleaj3)BBusUnitDBOrcn Old_%@LedGrp,SpourcrwIDs'Requi0 fields blan,k.!?i@MsgBox(Get(Lang, 91, 1), vbExmaA, }Caҁ$QMuUq("~ N(EXT~'A J! nal not supportedo o o o o he AB T0' 1j is rforAPing   0u0' /l" of@/l%l!'1B1 @Check_( )LCurEffd4 Do3a;=09A Q= T? (H Q'Invalid dg/:$:0, 2///y q{ @ @ (SLSS<N0{00020820-0000-0000-C000-000000000046}(%` % %`h8@0 g@ptw#PKLXdd7NڡB^@ D%{GÂVhhEeQyxME@SPSSS "" AndPwd Then " .Hid E@If %S)CancelG*#ApRFrU !Iq4a1C8a1?__SRP_66__SRP_7Form_AddDelLines" Form_SelectHeader$<II@a1)DIAH L`  P`IdW0   0 X  LPPrU \$`$A`n(  0 8 $HX` "h$p x * { x ! Insert mode  $ (  $ (  $ ( ( (  $ (d  Delete mode  $ (  $ ( ( ( (k  $ <(  $ (  $ (o(@]] ! Insert Mode' $z $j 'kkd Delete Mode' $x $x $z $z (MSG= Empty or Invalid FromLine or ToLine \ $  !$' $2@Label11DE$4AdjTypeD,$V ( 4AcctgPeriod:-(2@Label12D $XAutoGenD $ XAdjEntry, !28Label13APod:(( "#CurrencyBox:( '#ReversalBox:(-2<Label18y"$.4Descr254g "$/4ButtonOK/(j $j e MSG= FromLine > ToLine \ $  !$' $j$e -MSG= FromLine does not exist for this journal \$  !$' $j$e +MSG= ToLine does not exist for this journal \$  !$'d'kxkp  B@kPoH'''' (p B@o !p (d ( (pko0' $z  $j $j  'k@k8o0(LAttribute VB_Name = "Form_AddDelLines"  Bas0{D810213B-606B-4D89-9A4E-B62EDD52644A}{C7E0683A-7BFJBE6-BD06-78779EF40866} 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 Hjx 0t @r  ` h\ @L X@< X, ( Form_OptionsForm_SelectSheet"A __SRP_a__SRP_b +8t?q ^KJH7H3x|&AL46 gSMsC_xME@SPSSS ""> }aADi~rk a a) "e:)H'Fizal@|dy exF3cA^30) & @vbCrLf_k "a"6alue*s~1]B`'`x`_(,Ques„+YesNo, j-vb7% Kill C:3! f m/;VCopy UkKL'EmptHy tl s vnُiT/59 4, 3)0Ex@maA10+ Len()l) >= 304'bt too lo,5&F+q ^tT#ǒE,HidoYqTOYcpYCa-SRagC _@xV^1 A`1 To hCoun}A1smed(i - 1ǁ,ANex X  h[gaO QuO  O g^ Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\R3*#37*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\S g꟡UFL=J"VCZ7PH/*,PRR%AKGdxMESPSSS<8<<<<<< <$<(<,<0<4<0{546C1AD6-4ED7-4F54-8648-D1539988D50F}{89FC6FCE-131D-4F38-BDA6-6F97ACA152FD}x `T@`dt`r`p x `  `%`[ `,`Zx% %  %P% Xp@X0xXl @j (X @H X@8  X( P$ @ @ p@ p @  @ @ X@ @X (@ @(| @x @l@X h p (X T x (X g@3 "  (86@ ,x (t? $ (t!@ P (tp    "   "  (@X` " hpx x]@]X]p h!' $x $x $x %Required Journal key fields are blank [$  h!$' $x$FNEXTe NEXT Journal ID not supported [ $  h!$' $le Invalid Journal Date Z$  h!$'d`'kPdH'k8  B@koA B@o]  !  ,o ]`  !  ,PoH@Attribute VB_Name = "Form_SelectHeader" " Bas0{546C1AD6-4ED7-4F54-8648-D1539988D50F}{89FC6FCE-131DJ38-BDA6-6F97ACA152FD} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit P"& Sub ButtonOK_Ck() Dim tmpDAs&  i In tegerDone Boolean- If FrCopyJournal.VisiThe = nafced(i - 1X.Nex@zeHt  (jA_ Ao،C1A=cKOwyMAE)ID=i2xME@SPSSS<@ 4B@ 4A@ro,Attribute VB_Name = "Form_Options" Bas0{260BEA30-1598-45C1-8465-42D7B6360DD1}{85F4CD-5A26-4A4C-BAE0-52B8D5E7A02E} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD  1licit P#' Sub ButtonOK_Ck() Dim myURL AHs Sng iInteger = LC(Import_.Value%If Not Check_BD;(Def)` Then%A 'Invalid A E[Left(B, 7)Q"http://"WARNING: Unsecu] web a`ccessMsgBox(Get@(Lang, 90, 3), vbQuesA +YesNo, .CaB# 9sQ9ERRO8R: KK8ddZrJ8i@I848Ex@maA96'C?A.54Ca0ncelUndoAc!  _`eCF AWorksh@eets("Eq"t).vYeS.Unprotec`mCells(1, 13).EntireColumn.SelAppp1.ScreenUpdng8C ".ShowCN'NUnloadW ) rU HaAiY |!y  C ٠a40`  8Ix txQofGd{HVDv ]]D|+usB6?IxB6?I⫥QofGdME\@SPSSS>"LLLLL LL<` @x, @ @ @8 @@ @ @ @  @P @ @ @ ࣫@ e@ @p  @` @\ @(L xH@< msL@xH` e`h8| g@$*\Rffff*0U404dc30b*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\R3*#37*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42$*\Rffff*0T404dc30b$*\Rffff*0P404dc19a*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\WINNT\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#..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#1*\R0*#14*\R0*#248<@DHLPTX\`dhlpN  < Q @`I D!qHa1La1K P`  T` Xя\a1C`a1? d`  hIAla1)pIIl 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@$@,lhH\`@,`L<0   0   0 `  4@PTd8rU |$ `$A `$ `$ `$ `nt0* pHdJrnlmcro+4Library fileForm_CustomizeCF"50_VBA_PROJECT4dir/x__SRP_00W   $(p R8=Format $!'  $! $(A   $(Rest column width $T!'  $T! $T(   $T(o`P !  %DB@H !  ( (k ( (kA@xo ! LastLineCol$!  %DB@H ! LastLineCol$! ( (k  ( (kA@xo ! LastLineCol$! ! A@d !dB@ %DB@@ H(\RelocateChkBox (A@k( %DB@HA@xo ! LastLineCol$! !A@d !dB@ %DB@@ H(\RelocateChkBox (A@k@ %DB@HA@xoP] !dB@@ ( !. (n (P (p ! ! !   ( NewChkBox (A@A@x (po(])Do you really want to delete this column?   $ !dB@ B@A@A@xko( ! ! ( ! !! ! !   (kk ! (koh] !?  ( ! !! ! !   (k@ (o(]0]H $z  Invalid Decimal Place$'     e*Invalid decimal place. Valid range is 0-8$'dX ! $F !$(pk   !$(p @ !$( e$! !$(d #0'dx#0. !p$j0$\'kH #,#$h ' $$h '  _);[Red]( )'  !$(kA@xko`A@o ( ( ( (o8A@o   ( ( ( (o`A@o]  D! !! ! .y`kXP !$!p (p !$!p (p !p$FFOREIGN_CURRENCYKFOREIGN_AMOUNTKRT_TYPEK RATE_MULTKMONETARY_AMOUNTK OPEN_ITEM_KEYKT ( (S` ( (n8 !$!@KT'GeneralKT'$!KT'S' (pA@no $B@H DB@Control$LB@N 4B@ 4A@ro( Attribute VB_Name = "Form_CustomizeCF"  Bas0{F772B8B5-E015-437B-9B7D-DD84E47E3709}{17FA99D66B6-4B6D-BFF9-78E7AD0F0462} dGlobalSpacoFalse  08ButtonCancel/ ( 54FiscalYearel$#, 62<Label13FYrel &()W+,-./8 Microsoft Forms 2.0 FormEmbedded Object9qJKLMNOPVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_JrnlHeader Caption = "Edit Journal Header" ClientHeight = 5355 ClientLeft = 45 ClientTop   T%{NrGLY"ɖ"Ch [ GBOnV'Jg>([D㦘%BxMEPSPSSS<<<<0{F772B8B5-E015-437B-9B7D-DD84E47E3709}{17FA99DB-96B6-4B6D-BFF9-78E7AD0F0462}%%% `` ` % P`i`` `   ` ` P` `@  R1% (`    % h `$   `( @ R8@ !` $ ` `,`dth`  `0  `4  `8 ``< `@ x`D"" %  `Hph@%p %"4@ `` h(PP`4` @ppHL  g@ "( "08@,X "  * 0H*` * (@"X "    08@ "H&Px&     "& H`hx  ",@PXh  "   0 @ P2`   "F0 @ PX`h "px 6   "(0$Hp6  "$ ,8 8h         (  (0 X  `  p   (       &   @ H P X "` h p "x      "   "       ( "0 8 @ "H P X p         t  x          (08 @PX` "hp    x] !p (poP`]  D!ChkBox !!$$$x (xpoh] ]8 R1=Field name $!p'  $!p $(p   $(pR7=Field label $!p'  $!p $(pCreatablPredeclaIdTru BExpo se0TemplateDerivDOption 0licit Dim Cbox As CheckBox 0 P-1 Sub Spin1_Change() Dec@imalPl.pValuw 0 End &Renumber'5;'AB@} Each CB I n Act;Sheet.*es# CB.Ch" & Trim (str(@BotRightCell.Column)D4NexCH- AExc@@ *Integer/tmp1ASlngU2H *'R1=Field n= $s(1, @)EQ6+  + 1  "7"label"7"? "C""8=]a`AJ"8NGc oLest cbF@ width&&2s s(7 KW #. `%2mwelectLeft_C~k%xIf SBDa > 12 T8henC!1gOffset(0, -M = G !.VisiJeShifuIfB|C WI UserM_b֚! ,< Rb"LastLine@>")0//@C "h7.3-(Da33>36 kku$u 0=l3a (x4-XC)E 7EntirqpB.CudOq 7In(xApp (> 4? 4 K+P^!0_ ߐnb < 10q)O*-#0*qU =9_R0 eDx, y, zingl4>HBolumnWidth = Int(Selection.C+ 0.5) + 1 D If < 10 ThenNVCbox.LeftBottomRightCell+ z- . ) /@ 2 - 4WE nd If Narrow.VisibledTrue "Sub  Private  Fmt_Apply_Click() Dim Strin`g As  ieger9Not IsNumeric(DecimalPlace) AO(2Currency Or:ber )iZMsgBox("InvaPlid ( ("CPElse=(cԋ8> 81 < 0Gd8 pA8. VB)range is 0-8 )CI,+FldName.Enahd ? s(1R,).uuUCase(CI7Lab el )Text V'8sFormba"@"kFDAK*!H@ 6).KGA@^ɈMA a@_= "#0h+ p." &df(@6ac8), "0eD!a7aIIfhThousanBd`#,#""~)F1%q@$ t!g & "_);[Red](*)&6ͤ72g"UseraL|_A CSu"General,_A]*?1hFa@bk_DOSR3Spin1OXal$cj/A!'#XOOI߮IoCBqnCpheckh`' Each In (eSheetr.es!0GCB. ~.0V`ftbCBExit Wf[SFTgd9?fn4fVbvgcdk 1j jO"FOREIGN_CURRENCYH5AMOUNTRT_TYPEATE_MULrMONETARY_OPEN_ITEM_KE YxHDteCO>L41Ey= ψ< _/= ,d`r-1yp-`vvF| TPT v1 02}q ZQAalB2 >'o_Buеn_2KBc 108).CI=ProtAWorks>s("Control").3A_CusizeCF.Hidз! @Unload;mInalEntry _Evaluate (LastHdrCOL (IntegersP(Decimalsx(StatIntsw(StatDecX[ (HdrCtrlCOLt 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  ListCount6SelectedYCellsRowFindnFindNextu SelectionZProtectfRowsU (Header_Insertf Form_JrnlHeaderN Modify_Header (Header_Edit RowNummR NewHeaderIi DisplayHdrR(OptionsJrnlDate_CurEffdt#BusUnitLedGrp. SourceGUserIDjJrnlIDDescr254LedgerO ForrCurrvRTtypecRateMult5 ReversalCodePRevDateNAutoGen AdjEntry FiscalYearZ AcctgPeriod!AdjTypeH JrnlClassIUtranCDDocType-DocSeqsEnabled۪ BackColorރ vbButtonFacevbWindowBackground$Label1,Label2,Label3,Label4,Label5,Label6,Label7,Label8,Label9,Label10@Label11ALabel12B Label13FY Label13AP5 CurrencyBoxJLabel14DLabel15ELabel16FLabel17G ReversalBox%a Button_NoneO]Button_BeginNextButton_EndNext>7Button_NextDayĠButton_Specify$Label18H ButtonCancelufShowInsertrxlDown0DOffsetUCase5 UseStandardHeightCHdrSheetAsLastRowwkb ThisSheet WorksheetColumnsp9 (Header_SelectCopyƿ PasteSpecialK CutCopyMode (Header_Copyg^TopRowuBotRowpNewSeq\tSeq FrameCopyJournal EntireRowButtonImportNOHeight|Top5ClearList* MultiSelectfmMultiSelectExtendedfmMultiSelectSingleQ: ListIndexQ (Header_DeletelDeletex ClearContents{ (Line_InsertColumniAdd_LineD ActiveWindow+ ScrollRow"NewLineԶLastCol64Paste xlFormatsU CopyFields|xlValuesoLocked CHKD~CheckBoxi{ ChkColumnkQ ClearCell  CheckBoxes̍xlOff'BottomRightCellF NumberFormatam *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.3#0#c:\Apps\Office2000\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{01A3FC57-B226-4142-AFC1-7EBC2EBC729F}#2.0#0#c:\temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{D63E0CE2-A0A2-11D0-9C02-00C04FC99C8E}#2.0#0#C:\WINNT\System32\MSXML.DLL#Microsoft XML, version 2.0   VLibrary file for Spreadsheet Journal Import g@    mJournalEntry0Q404dc19amJournalEntrymImportControl0P404dc19amImportControlH0جmLogFunctions0Z404dc31c@mLogFunctions0 mMessages0T404dc30bnmMessagesHJForm_JrnlHeader0L4015670aForm_JrnlHeader` Sheet10M4015670a Sheet1xThisWorkbook0N4015670aQThisWorkbookForm_ImportNow0S404dc30aForm_ImportNow Form_AddDelLines0Q4015670a Form_AddDelLinesq"Form_SelectHeader0R4015670a"Form_SelectHeadermForm_Options0S4015670awForm_Options( Form_SelectSheet0U404dc30bM Form_SelectSheetH Form_CustomizeCF0^4015670c5 Form_CustomizeCF{ Z%@`x HdCDX%##C{d֒K,Bc,-vWeA;vMRkk@Oq ҹH qEaaBeI@?}Hœs0% JCounter2OutfileUsrIDPwdByte1DisplayStatusBar StatusBarʜ Form_ImportNow  Import_Sheet Import_PwdˣDefaultFilePathR LineSheet"strXMLA`strURLP strResponseO FirstRowNumA LastRowNum  Generate_XMLvbCrLfsendXML& (AddLogEntry6Row2XMLSelfindentCFldValue DecChar3zXMLKxlDecimalSeparatorSpace XMLtext@ DataRangeMP HdrSeqNumzThisRowtempXMLNkxDoc DOMDocumentbxHTTPXMLHTTPRequestxError>% xImportedpxUpdatedIXMLDOMNodeList^ StatusNumdoErrorjMasynchloadXMLDsetRequestHeader#7send ResponseTextwgetElementsByTagNameYLengthYItemzstrvbLfT% parseErrorvYreasonErroNumber- Description  (CustomizeCF Form_CustomizeCF`genericErrorHandler92objErr0 ErrObjectx strProcNameƣpromptm mLogFunctions(OpenLog~Workbookk PriorActiveWBTemplateFileName TemplateDir LogFileSpec|(WorkbookIsOpen=d ThisWorkbook|Path2SaveAsf; CurSheetNameKStatus+ CurBookName LogWorkbook LogSheetE"NewRowY LogColumn$ EntireColumnNow%SaveBookNameaNotOpen mMessagesd(MsgSet (MsgNum(Build_LangArrayKparam1UserForm_ActivateZsAdjEntry_ClickButton_None_ClickaButton_BeginNext_Click[Button_EndNext_ClickButton_NextDay_Click;Button_Specify_ClickButtonCancel_ClickHide9zButtonOK_Click1DateOK] Sheet1Done CopyData_ClickHowMany_ChangeButtonNone_Click}ButtonAll_ClickmyURLLCase: vbQuestionvbYesNovbYesa? UndoActionaButton_CustomizeCF_ClicktempRKillCboxz Spin1_Change DecimalPlaceySpin1Renumber_ChkBoxCB\Exchange"ColHtmp1jtmp2k ColumnWidthSelectLeft_Click SelectLeft ShiftLeftcl SelectRightf ShiftRightϰSelectRight_ClickShiftLeft_ClickPCut.ShiftRight_Click:InsertCOL_Click7NewCbox Duplicate_Fmt_Text:DeleteCOL_Click Narrow_ClickNarrow Wide_ClickNxoylzqFmt_Apply_Clicks+ FmtString^ Fmt_Currency Fmt_NumberFldName$FldLabel?Fmt_DateW Fmt_ThousandcFmt_General_Click\Fmt_Text_Clickx Label_Decimal3.Fmt_Date_ClickFmt_Number_ClickFmt_Currency_Click DeleteCOL Fmt_GeneralButton_Exit_Clickf_DefaultjUserFormNButton_CustomizeCF`Click _B_var_Right9 _B_var_LCase' _B_var_LeftQ _B_var_TrimmT _B_var_MidpKeyFrame, _B_var_Datev _B_var_Format _B_var_UCaseaFrame1Change LastLineCol! Fmt_ApplyWideI FrameColumn Button_Exit InsertCOL! FrameFormat MultiPage14?_B_var_BotLineҋD[_B_var_D FirstDelete?h DeleteRowFrom _B_var_IfP NoLineValueOThru1ۯ_B_var_NoLineValue1 _B_var_Thru1s _B_var_Space _B_str_Format" _B_str_Trim _B_str_Space _B_str_UCaseKxlWhole _B_var_Setw QoM 5 A   &T"@MP@@ @@@ for Spreadsheet Journal Import@V`ibray fle o Spe! dshetJounlIm)3tY=   g@ % <9stdole> s5d4EI N\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Automation!DMSForms>+FErts3DD452EE1-E08F-101A-8-02608C@4D0BB4DFM20.DLL#Misoft 9 @. Object Du/;!~1?9??00}#0?# 50 jB1A3FC57-B226-4142-AFC1-7EBC2729DF}DXc:\Vp \VBE\DM.exd`5.E . `M @MSXML> @`XMhL *D@63E0CE'0A2-11D0-9C02BC04FC99C8E*`, versAbBވ !mEntryG mKLjEnry@V  2 H1g,",F!""Vm #}Co olGQ! mI WpXtCCol\2ج LogFuncns%'L@gFQ`nc&iBsN%'U/ ? (mMessageNe:s`g 2/J?@_HerG>F"m_Kr-`JlB#e 2"<+L-L"(KLAS1GSmF1@62o#ro# ThisWorkb@ookGTi4WErk@o k 2 lf5mXNowcm_jnN} w cm pj R AddDelLin- Q Qm_AdD .lPVi &a/2@))  q  xSelpp0GS eBHa 0der2F m}  W1'OpM1*' OktoDo3* Q (q:6 ;G| <8 =  f   X+Cus izeCF- Cbomiz@ CR   Z%I{ rU~~~~~~~~~~~~~~~~~~~~~~S a   -6S` A"-?@Label11Label12Label14Label15 Def_UserID?F`HeaderDefaults_BoxMessageLog_Box DocSeq_BoxImportControl_BoxImportStatus_BoxLabel13BҋB `MultiBook_Enable Def_AutoGen General_Box ButtonCancelRҋB `Log_ErrorsOnlyLog_AllMessage DocSeq_EnableLabel31Label41Label42ChangeStatus_YESChangeStatus_NO Display_MesgҋB ` Def_BusUnitDef_Date Def_LedGrp Def_Source / Def_DocType Import_URL Import_UserIDLabel21"ҋB `LangListUnicodeȏ[qJ eUserForm-tK:A F3Dynamic 1 YButton_CustomizeCFButtonOK_ClickButtonCancel_ClickButton_CustomizeCF_Click Build_LangArrayGetMsg pj).`ďYl|Yl|CҋB ` Def_BusUnitҋB ` Def_Date Def_LedGrp Def_Source Def_UserID Multibook Def_AutoGen Unicode DisplayMessage DocSeq Def_DocType Import_URL Import_UserID LogMessage E ChangeStatus C#ҋB ` B#=h8+3qG?,2qL! I VBE6.DLL     k ! Name _H  jrnllog.xls BImport in progress...please wait. >Save in progress...please wait. Ready (Message not found: ( , ). gllog.xlt $New Journal Header &Edit Journal Header Unit: Journal ID: Journal Date: Ledger Group: Ledger: Source: User ID: Journal Class: "Transaction Code: Document Type: Doc Sequence: Adjustment Type: Adjusting Entry: Period: AutoGen Lines (Currency Information "Foreign Currency: Effective Date: Rate Type: Exchange Rate: Reversal None 0Beginning of Next Period $End of NK*m   rU~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~ ~ ~~~~~~~~~~~~~~~: ȥpJ"p'.   a   1 Q q 9a1QA  Hay ) Q  ! A i  1 A X ѥ9a a  a )AqA ٜ)9aY Jrnlmcro mJournalEntrymImportControl mLogFunctions mMessagesForm_JrnlHeaderSheet1 ThisWorkbookForm_ImportNowForm_AddDelLinesForm_SelectHeader Form_OptionsForm_SelectSheetForm_CustomizeCFF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !0 NF $c:\Apps\Office2000\Office\EXCEL9.OLBExcel 1@0FC:\WINNT\System32\STDOLE2.TLBstdole !iP.E .`M C:\WINNT\System32\FM20.DLLMSForms A`z7 d!M!O0c:\temp\VBE\MSForms.exd Ap >֢OɜC:\WINNT\System32\MSXML.DLLMSXMLDoCheck iInitOptions Save_OptionSet_Homepage_LabelsGetSheet StringBetween JrnlSheet_NewJrnlSheet_SelectJrnlSheet_DeleteJrnlSheet_Copy FormatJournal ListArray Set_OptionsImport_Journals Import_SheetRow2XMLFF Generate_XMLsendXML CustomizeCFgenericErrorHandlerfĤIx8< ((, FF 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_ExistValidateAmounts ,,8  $, h OptionsFEditBoxesText ControlActivate Y EnglishqjAIh.?6B-z_ CJi!G Ś<@Ib LmLRAM{lFWJOButtonOK!ext Period Next Day Specified Date Description: Fiscal Year: OK Cancel All Copy Delete Copy Journal Select Journal Delete Journal (Change Import Status Import Do Not Import Message Options DJournals (Unit, Journal ID, Date): .New Journal Identifiers Business Unit: Import Control Password: *Insert Multiple Lines *Delete Block of Lines Insert From Line: To Line: Number of Lines General Options &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 Button_None &Document Sequencing *Online Import Control .After successful import Date: Enable Multibook Language: ,Log Error Message only @Log Successful and Error Message .Display Messages Online 4Enable Document SequencingLabel4 ,Default Document Type: Addesss: JChange import status to Do Not Import 8Keep import status as Import $Journal Entry Help' To insert a journal line for the selected header, click the Insert button  S pLabel3, 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.( To insert a header press Insert or CTRL-H. To select a journal press Select  i P Value( 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   journals:  Updated ,successfully imported. Data Entry Alert ReversalBoxLabel2 \The date you have entered is not a valid date. dThis is not a secured web address. Use it anyway? @This is not a valid web address.' One or more of the following required fields is blank: Unit, Journal ID,   0* Journal Date, Ledger Group, Source, User ID. Please make sure all these fields contain values. rPlease enter a date for the user specified reversal date.# No headers found. Click the Insert button to create a new header. CurrencyBoxLabel16 DThere is no journal on this sheet. RThere is no journal header on this sheet. >There are no journals to delete% One or more of the following required fields is blank: Business Unit,  ZThere are no lines in this journal to delete. Label13FY( 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.% One or more of the following required fields is blank: Ledger Group,  Label13APLabel17# Source, User ID. Please make sure all these fields contain values. XFiscal Year is required for Adjusting Entry.* You have not selected a journal header. Please Insert or Select a header first. NNo journal entry sheet exist to delete.) The line you wanted to delete does not belong to the displayed journal header. L Click OK to delete this line anyway. fThe row you wanted to delete is not a journal line. &Insert Journal Line &Delete Journal Line@xnQGr'2o xThe From Line you specified does not exist for this journal. vThe To Line you specified does not exist for this journal. >To Line is less than From Line. `You have etered an invalid From Line or To Line. Lang not found. http://" The amount in the selected cell contains too many integers. The &maximum allowed is " The amount in the selected cell contains too many decimals. The " The amount in the selected cell contains to many integers and/or Journal Import `decimals. The maximum length for this field is % 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. 19 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. 20 RNo journal entry sheets exist for import. 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 $ 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: ( https://     -   1   E   x F Template_H Template afterCopy  T 0 ^Na@=Vrq%GU_QwFJ D>F",fButton_BeginNextButton_EndNextButton_NextDayButton_SpecifyLabel18JrnlDateCurEffdtBusUnitLedGrpSourceUserIDJrnlIDDescr254LedgerForrCurrRTtypeRateMult ReversalCodeRevDate^7 <Postreq> </Postreq> (Excel_Journal_Import ?userid= &pwd=  ' SuccessOpenLog AddLogEntryWorkbookIsOpen Import failed DescrCol <JRNL_HDR_IMP> <JRNL_LN_IMP> </JRNL_LN_IMP> </JRNL_HDR_IMP>    p  @ yyyymmdd < > </  4          __SRP_1EForm_ImportNowD#Нhphfao"$c +Library file for Spreadsheet Journal ImportEdBoxTextNewText 14 SourceString BeforeString AfterStringCompareSelSheet SheetListHowManymode LineSheetOutfileUsrIDPwd  SelindentXMLtextstrXML strResponsestrURL a objErr strProcNameDtextDsepDorderThis macro inserts headersh 14RowNumHdrSheet HeaderArray^This macro creates an array of available headers and inserts them into a list on a dialog box.j 14y 14t 14SeqNumEndRow LastLineNumd 14 TargetNum ( a8  H !X h Ix  y LangArrayLangMsgSetMsgNumparam1 y 9  1 y    1( 8 QH  X LogFileName CurSheetNameStatusMessageBookNameH(H  @7}(R KQDBTahomaD(74ButtonOK(OK<uTahomal(Cancell<uTahomal0(http:///xmllink//F'5Tahomal(User ID:5TahomaD:( Password:KE5TahomaD:H(,5TahomaD:H(*,5TahomaD:, ;8ButtonCancel, 2PImport_URLel (28Label3OK(2<Label4OK4, 4Import_UserID ( 8Import_PwdrI   Microsoft Forms 2.0 FormEmbCompObj%oaVBFrameq9Form_JrnlHeader (phXhfvedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_ImportNow Caption = "Import this Journal Sheet" ClientHeight = 1290 ClientLeft = 45 ClientTop = 330 ClientWidth = 5880 StartUpPosition = 1 'CenterOwner TypeInfoVer = 55 End (H  6@r}6$R KQDBTahoma,$ #KeyFrame = 330 ClientWidth = 7950 StartUpPosition = 1 'CenterOwner TypeInfoVer = 114 End $  2} !R KQDBTahomax(74ButtonOK(OK<uTahomaOK(CancelOK<uTahomaOK(All<uTahomaOK(None<uTahomaOK4("Journals (Unit, Journal ID, Dateo'-xi12+ n``phphfDo*,z\n /O7 !"#$%&'()*+,-./012345689:;<=>?@ABCDEFGHIJKLMNOPQRSTUWeXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~o;=CompObjpi12:B@ n``0~h0~hf'V^GV      !"#$%&'()*+,-.S12345C789:;<=>?@AB0DEFHIJKLMNPfQRUVWXYj[\]^_`abcdefghiTklmnopqrstuvwxyz{|}~CompObjpCompObj16aVBFrame5Form_SelectHeader$9Xhh      !"#$%&'()*,-.0123456789:;<=>?@ABCDFGHIJKLMNOPQRSTUVWXYZ[\]^_`bjdefghiklmnprstuwy{|}~ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(,5TahomaOKH(D,5TahomaOKH(E,5TahomaOK(Unit:aOK5TahomaOK( Journal ID:5TahomaOK ( Journal Date:<5TahomaOKH,=,uTahoma $4HowMany $#Frame1y( 74ButtonOK0, ;8ButtonCancel04$ \CopyData , 14SourceLineel STU\XYZ[]_gv Microsoft Forms 2.0 FormEmbedded Object9q{oo?AXCompObjpCompObjCaVBFrame 8(H  }5$8BusUnitK$8JrnlIDtK$8JrnlDateq,( 28Label1te  (2<Label2te (2@Label3te#  H(E,5TahomateH(E,5TahomateH(fo8>\i06< n``XhXhfVBFrame(=Form_OptionsX`hРhf-oNPE5Tahoma8F 0Adjusting Entry:5Tahoma(Period:5Tahoma:( Descript n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(O,5Tahoma:H(D,5Tahoma:H(,5Tahoma:H( ,5):5Tahomate`[25Tahomate, ;8ButtonCancel*, 14ButtonAllcelM , 14ButtonNoneelg 0!FrameImportStatus, !FrameCopyJournal( 2TLabel1OK $4ListBox1Tahoma:$(Foreign Currency:onM 5Tahoma: (Effective Date::M 5Tahoma:( Rate Type:DaM 5Tahoma: (Exchange Rate:::M 5Tahoma:DH  & }Ag Currency InformationR KQDBTahomaT$4ForrCurr $4CurEffdt  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_SelectHeader Caption = "Select Journal Header" ClientHeight = 4800 ClientLeft = 45 ClientTop = 330 ClientWidth = 4740 StartUpPosition = 1 'CenterOwner TypeInfoVer = 50 End $  !}% R KQDB$4RTtypedt $4RateMult 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 DateReversal5TahomaH(,5Tahoma8H  4}g ReversalR KQDBTahomap0 (XButton_NonetNutt 4)lButton_BeginNextButt 4*hButton_EndNextxtEutt 4+\Button_NextDayxtXutt $,4RevDate^ 41dButton_SpecifyxtDutt , 414ReversalCode ion:35TahomaeH(W),5Tahomae(OK<uTahomae(Cancele<uTahomaeH(O,5Tahomae( Fiscal Year:5Tahomae$4LedGrpmeg +$8Ledgermeg $8Sourcemeg V $ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q0Fh0Importal5Tahoma8F 0Do Not Import5TahomaDH  }Change Import StatusR KQDBTahomad,PButtonImportYES ,XButstomizeCF1M   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_Options Caption = "General Options" ClientHeight = 4815 ClientLeft = 45 ClientTop = 330 ClientWidth = 8325 StartUpPosition = 1 'CenterOwner TypeInfoVer = 291 End i65O`Z n``u)hu)hfUoY[ICompObjGpi12R n```h`hf5moQS1i39TV n```h`htonImportNOS   n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH(,5TahomaH(E,5TahomaH(E,5Tahoma (Business Unit:S 5Tahoma( Journal ID:i 5Tahoma ( Journal Date::S 5TahomaHH  } New Journal IdentifiersdR KQDBTahoma$ 4BusUnit $ 4JrnlIDt $4JrnlDate 4(2@Label2te (2<Label3te (2@Label4te 4 Form_AddDelLines"&jFh`hfoEKpi08I n``hhi77\hb n``0bh0bhfs oacoCompObjmpfoHJCompObjpCompObjGL&aCompObjdiaVBFrame.Form_SelectSheet"s7lРh̓hf$  %}R KQDBTahoma (74ButtonOK (OK<uTahomaOK((Select Journal Sheet:g 5TahomaOK(CancelOK<uTahomaOK(All<uTahomaOK(None<uTahomaOKH(,5TahomaOK(Label:OK 5bedded ObjectForms.Frame.19qH(,5Tahoma2 (Business Unit:sS5Tahoma2H(E,5Tahoma2H(O,5Tahoma2H( ,5Tahoma2(User ID:5TahomaD:H(E,5TahomaD:(Date:aD:5TahomaD:Tahoma4(2@Label1 (Number of Lines: 5Tahomax1H,=,uTahomax1( n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH,=,uTahomax1H,=,uTahomax1( From Line:Li5Tahomax1(To Line:5Tahomae:(H  }4$4FromLineV $4ToLineneV (2<Label2ne (28Label3neOK<uTahomae:(Cancele:<uTahomae:<F {0Copy data from line5Tahomai73^ n``GhGhfh o]_bHCompObj`pi79f n``0{zh0{zhf}oegzCompObjxpCompObj/pfAoUW=CompObj;p(2HLabel1OK , ;8ButtonCancel", 14ButtonAllcelE, 14ButtonNoneel^ (14TargetOK (08Label2OK$ 1LDonex( ! OnlineFramel$4ListBox1 { Microsoft Forms 2.0 FormEmbbedded ObjectForms.Frame.19q8@H(,http:///xmllink/5Tahomata(Address:+5Tahomas:H( ,5Tahomas:(User ID:+5TahomaD:HH  H} Online Import ControlsdR KQDBTahoma( CXImport_URLel< (E28edded Object9q   VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_SelectSheet Caption = "Select Journal SheetSheet" ClientHeight = 4200 ClientLeft = 45 ClientTop = 330 ClientWidth = 4185 StartUpPosition = 1 'CenterOwner TypeInfoVer = 37 End (H  8@*}lR KQDBTahoma0( 1#9MultiPage1VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_AddDelLines Caption = "Add / Delete Multiple Lines" ClientHeight = 1845 ClientLeft = 45 ClientTop = 330 ClientWidth = 4230 StartUpPosition = 1 'CenterOwner TypeInfoVer = 33 End (H  Y@#}\9-!R KQDBTahoma|0 #ImportControl n``Microsoft Forms 2.0 FrameEmLabel41 , G4Import_UserIDnal<(H28Label42 ",'#ImportStatus_Box 4  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q`F' 0Change import status to Do Not ImportedImportStatus5TahomaTF 1Keep import stat n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qAfter successfulPF 1Log Error Message onlysdLogMessageMe5TahomaXF 0Log Successful and Error MessageLogMessagesf5Tahoma@F1Display Error Messagessd5Tahoma  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form_CustomizeCF Caption = "Chartfield configuration" ClientHeight = 3285 ClientLeft = 45 ClientTop = 330 ClientWidth = 4125 StartUpPosition = 1 'CenterOwner TypeInfoVer = 298 End us as ImportImportStatus5TahomaDH 4}l4After successful importt4(ChangeStatus_YESNhan 4)tChangeStatus_NOSBhan  (OK<uTahoma2(Cancel2<uTahoma2( Configur n``Microsoft Forms 2.0 FrameEm ( Ledger Group:5TahomaD:(Source::5Tahoma::8F 0Enable Multibook5Tahoma8F 1AutoGen Linesook5Tahoma@H  >}AHeader DefaultsSR KQDBTahoma ( 8Def_BusUniteV (<2@Label11  ( 4Def_LedGrpteV ( 68Def_SourceteV E( 74 Def_UserIDteV (828Label15 ^ $8Def_DateV (;28Label12e (=2@Label13e 4(>28Label14e , X MultiBook_Enable p ( X Def_AutoGenn      ! "#$%')*+,.02346789:<>?@BCDFHJKLMNOPQRSTVWXYZ[\]^_acdefgijklnpqrtuvwy{|~ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q,J( Language:pti5Tahoma0F)0Unicodee5Tahoma`p 5Tahoma@H  Y}A_ General OptionseR KQDBTahoma(S2<Label21e (Y1PUnicodefoti49xpFz?a̓h̓hf@H  L}AMessage OptionseR KQDBTahoma,JpLog_ErrorsOnlyse ,KxLog_AllMessagese ( L`Display_Mesg +  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qDF0Enable Document Sequencing5TahomaH(,5Tahoma((Default Document Type:sd 5TahomaDH  B}ADocument SequencingR KQDBTahoma, BdDocSeq_Enablese ( 8Def_DocTypel(2HLabel31e h}xwowzi51|i*WJO̓h̓hi52y{~i*WJO̓h̓hCompObjse 4$W4LangList  ate.<uTahoma_BoxS$/4ButtonOK1 ( 08ButtonCancel1"0A#HeaderDefaults_Box ,I#MessageLog_BoxoxS( M#DocSeq_Box_BSV ( O#General_BoxB 0X<Button_Cuokqi10o n``РhРhfUonp0VBFrameK;PROJECTwmMP0PROJECTY-SummaryInformation(n      !"#$%&()W+,-./81234567*9:;<=>?@ABCDEFGHIJKLMNOPQRSTU\XYZ[]_gvilkj|aypqrstuz{o~mCompObjpCompObjmraVBFrame;Form_CustomizeCF"u̓hhmJournalEntrymJournalEntrymImportControlmImportControlmLogFunctionsmLogFunctionsmMessagesmMessagesThisWorkbookThisWorkbookSheet1Sheet1Form_ImportNowForm_ImportNowForm_JrnlHeaderForm_JrnlHeaderForm_SelectHeaderForm_SelectHeaderForm_AddDelLinesForm_AddDelLinesForm_OptionsForm_OptionsForm_SelectSheetForm_SelectSheetForm_CustomizeCFForm_CustomizeCFID="{DF6B899D-209E-11D4-B447-000039C48D0E}" Module=mJournalEntry Module=mImportControl Module=mLogFunctions Module=mMessages Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Form_ImportNow BaseClass=Form_JrnlHeader BaseClass=Form_SelectHeader BaseClass=Form_AddDelLines BaseClass=Form_Options BaseClass=Form_SelectSheet BaseClass=Form_CustomizeCF HelpFile="" Name=TahomaOK,F0Done5Tahoma`2 5 n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q(User ID:<5TahomaD:( Password:por<5TahomaD:H(,5TahomaD:H(*,5TahomaD:0(http://jtam033100/xmllink/ps/[5TahomaD:@H   }M Online ImportseR KQDBTahoma(28Label3D: (2<Label4D: 4, 4Import_UserIDxox( 8Import_PwdrI, 2PImport_URLrI TahomaD:x0fDo}i46 n``̓h̓hH 234 pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19qp1dColumnel Field FormatTab3Tab45Tahomax1$H 8Y}dp2$3#Page1aly5,$Root Entry FPflh% PWorkbook_VBA_PROJECT_CUR"!l ~h`hVBA l ~hНhCompObjnf`oi21 n``̓h̓hCompObjnf!oCompObjp4!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.19qf?-oCompObjpCompObjvIa,R KQltBM6( uTahomax1 (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 0NumberstCellFormatl5Tahoma@F 0CurrencyCellFormatl5Tahoma8F 01000 Separator5Tahoma (Decimal places: 5Tahoma@H(,27 @Tahoma@F 0GeneralyCellFormatac5Tahoma      !"#$%&'()*+,-./0123456789:;<=>@ABCDEFGJLMNOQRSTUVWXZ[\]^_`abcdefghijklmoprstv8H  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( uTahomax1(Width:x15Tahomax1,,R KQltBM6( uTahomax1,R KQltvBMv6( @uTahomax1,R KQltvBMv6( @uTahomax1,R KQlt>BM>6( uTahomax1,R KQlt BM 6( uTahomax18H  7)}DColumnx1R KQDBTahoma0 2 WideWider column(28Label2x1 8 2Narrowx1Narrower columnxD ShiftLeftcolShift column to the leftH ShiftRightrIShift column to the right< ! DeleteCOLtrI#Delete column@ VInsertCOLlum Insert new columnhe  "Jrnlmcro" HelpContextID="0" Description="Library file for Spreadsheet Journal Import" VersionCompatible32="393222000" CMG="DDDF16772E5032503250325032" DPB="BAB8715E4F5F4F5F4F" GC="97955CBDE447C048C0483F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] mJournalEntry=154, 154, 767, 505, mImportControl=198, 198, 791, 674, mLogFunctions=132, 132, 726, 398, Z mMessages=220, 220, 813, 696, C ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Form_ImportNow=0, 0, 0, 0, C, 110, 110, 902, 599, C Form_JrnlHeader=0, 0, 0, 0, C, 66, 66, 858, 555, C Form_SelectHeader=0, 0, 0, 0, C, 22, 22, 814, 511, C Form_AddDelLines=0, 0, 0, 0, C, 44, 44, 836, 533, C Form_Options=0, 0, 0, 0, C, 88, 88, 880, 577, C Form_SelectSheet=0, 0, 0, 0, C, 132, 132, 924, 621, C Form_CustomizeCF=0, 0, 0, 0, C, 0, 0, 613, 351, C Oh+'08@ X d p|Gordon Macraea@?@b;R @Gh՜.+,0HP X`hp x  Sheet1  Worksheets FMicrosoft Excel WorksheetBiff8Excel.Sheet.89qDocumentSummaryInformation8qCompObjuf