3!   0)$)#)r   >0@-@->- -_         _      ,"Arial-@TNx,(Times New Roman@TNx!@!@!@8!@!@!@#P@-#P#P >-#P@-#P@-#P`#P`#P^$#P># P,$# P$# Ps# P$# P$#P>#P$#P$#P$#P6$#P$#P$#P$#P$#P$#P>#Ps#P$#P$#P$#P$#P #P # P$#!PC#"P$##P`#$Pt#%P>#&P$#'P$#(P$#)P$#*P$#+P#,P#-P1#.P#/P#0P/#1Pa#2P0#3P #4P#5P#6P#7P#8P#$#9P$#:P$#;P$#Ps#?Pt#@P$#AP#BP>#CPs#DP #EPs#FP#GP#HP#IP#JP#KP$#LP`#MP#NPt#OP$ `P `P*v o_Wv2?@  -#7c#Wc2 L                                                                                                   !!! ! """ " ### # $$$ $ %%% % &&& & ''' ' ((( ( ))) ) *** * +++ + ,,, , --- - ... . /// / 000 0 111 1 222 2 333 3 DF07B#6rsredovisning# 6Start# 6Indata#6Frdeln.nyckel#6Nettooms.#6Varuinkp#6Personalkostn.#6Lokalkostn.#6Hyra o. leasing#6 Reklam o. fsg#6 Administr.#6 Rep o. frbrukn#6 Bil o transport#6 Fastighetskostn#6vr. intkter# 6Royalty#6Rimi avg. hg#6Rimi avg. lg#6vr. kostn.#6Avskrivningar#6Res frn fin AT#6Rnteint.#6Rntekostn.#6Dispositioner# 6Skatt# 6Goodwill#6Byggn. o. mark#6Inventarier#6Fordr.konc.ftg1#6vr lnga fordr#6Handelsvaror#6Kundfordr.#6 Fordr.konc.ftg2#6!vr. fordr.#6"Interimsfordr.#6#Kassa o. bank#6$Aktiekap.#6%RF#6&Ej reg. AK#6'Bal. res.#6(rets res.#6)OR#6*Checkkredit#6+Skuld kr.inst.1#6,Skuld konc.ftg1#6-Frlagsln#6.Skuld kr.inst.2#6/Lev.skuld#60Skuld konc.ftg2#61Skatteskuld#62vr. skuld#63Interimsskulder(%@% @ 'Kolumn fr(%@% @! 'styrning av vilka rader som%@% @ 'skall dljas i FB, RR, BR!' R S R E D O V I S N I N G%@% @ '"1" = Visa rad%@% @ '"0" = Dlj rad%@% @%@% @ 'Kolumn fr%@% @! 'styrning av vilka rader som(b Styrelsen fr Styrelsen och verkstllande direktren fr ;%@% @& 'skall dljas i varje separat not(Z fr hrmed avge rsredovisning fr verksamhetsret  - .% @% @ '"1" = Visa rad% @% @ '"0" = Dlj rad% @% @1 'F R V A L T N I N G S B E R T T E L S E% @% @% @% @%@% @'Bolagets verksamhet%@% @%@% @Z'Bolagets verksamhet utgres av handel med dagligvaror. Bolaget driver verksamheten i%@% @'"ICA Matkp" i Borlnge.%@% @%@% @%@% @P'Vsentliga hndelser under rkenskapsret och efter rkenskapsrets utgng(0% @(0% @(01;0% @ 'Om inget str i ruta A24(0% @" 'dljs "Vsentliga hndelser"(0% @'Framtida utveckling%@% @%@% @J'Bolaget frvntas ha en ofrndrad utveckling kommande rkenskapsr.%@% @%@% @%@% @(j&Frslag till behandling av ansamlad frlustFrslag till vinstdisposition;"Frslag till vinstdisposition%@% @% @% @(!8&Till bolagsstmmans frfogande str fljande ansamlade frlustTill bolagsstmmans frfogande str fljande vinstmedel;<!Till bolagsstmmans frfogande str fljande vinstmedel%!@%! @%"@%" @(J#P#Balanserad frlustBalanserade vinstmedel;#Balanserade vinstmedel(#(#h#001;#0%# @(:$p $rets frlustrets vinst;$rets vinst($($|$001;$0%$ @%%@%%@%% @(&#$P%&@%& @%'@%' @((4 &Styrelsen freslr att frlusten behandlas s attStyrelsen freslr att vinstmedlen behandlas s att;&Styrelsen och VD freslr att frlusten behandlas s attStyrelsen och VD freslr att vinstmedlen disponeras s att:;;8(Styrelsen freslr att vinstmedlen behandlas s att%(@%( @%)@%) @*'till reservfonden avstts%*(**001;*0%* @+'till aktiegarna utdelas%+(++001;+0%+ @,'i ny rkning verfres(!,&*+(,,001;,0%, @%-@%- @(.*,P%.@%. @#/'R E S U L T A T R K N I N G(/Q/0%/ @(0Q00%0 @(1Q10%1 @(2-(2-(2Q20%2 @(3(3(3Q30%3 @(4Q40%4 @(5 Q50%5 @6'Nettoomsttning(6 (6 (,6 606001;1;60%6 @7'Kostnad fr slda varor(7 7Not(7  (7 (,7 707001;1;70%7 @(8 980%8 @9'Bruttoresultat(968P(968P(,9( 909001;1;90%9 @(:0 9:0%: @;'Frsljningskostnader(;  (; (,;8 ;0;001;1;;0%; @<'Administrationskostnader(< (< (,<@ <0<001;1;<0%< @='vriga rrelseintkter(= (= (,=H =0=001;1;=0%= @>'vriga rrelsekostnader(> (>  (,>P >0>001;1;>0%> @(?X @?0%? @@'Rrelseresultat(@` 4@Not(@9?P(@9?P(,@h @0@001;1;@0%@ @(Ap @A0%A @B'Resultat frn finansiella(Bx CB0%B @C' anlggningstillgngar(C CNot(C (C (,C C0C001;1;C0%C @D'vriga rnteintkter(D DNot(D (D (,D D0D001;1;D0%D @E'vriga rntekostnader(E ENot(E (E (,E E0E001;1;E0%E @(F IF0%F @(G IG0%G @(H IH0%H @'I'Resultat efter finansiella poster(I@HP(I@HP(,I I0I001;1;I0%I @(J IJ0%J @K'Bokslutsdispositioner(K KNot(K (K (,K K0K001;1;K0%K @(L KL0%L @M'Resultat fre skatt(MILP(MILP(,M M0M001;1;M0%M @(N ON0%N @O'Skatt p rets resultat(O eONot(O (O (,O O0O001;1;O0%O @(P QP0%P @Q'rets resultat(QMPP(QMPP(,Q Q0Q001;1;Q0%Q @R'B A L A N S R K N I N G(R }R0%R @(S( }S0%S @(T0 }T0%T @U'Tillgngar(U(U(U8 }U0%U @(V@ }V0%V @W'Anlggningstillgngar(WH hW0%W @(XP WX0%X @(Y'Immateriella anlggningstillgngar(YX ZY0%Y @Z'Goodwill(Z` ZNot(Z (Z (,Zh Z0Z001;1;Z0%Z @([p `[0%[ @&\'Materiella anlggningstillgngar(\x `\0%\ @]'Byggnader och mark(] !]Not(] (] (,] ]0]001;1;]0%] @^'Inventarier(^ !^Not(^ (^ (,^ ^0^001;1;^0%^ @(_ `_0%_ @(`]^P(`]^P(,` `0`001;1;`0%` @(a fa0%a @'b'Finansiella anlggningstillgngar(b fb0%b @#c'Fordringar hos koncernfretag(c 9cNot(c (c (,c c0c001;1;c0%c @#d'Andra lngfristiga fordringar(d 9dNot(d (d (,d d0d001;1;d0%d @(e fe0%e @(fcdP(fcdP(,f f0f001;1;f0%f @(g hg0%g @!h'Summa anlggningstillgngar(!hZ`f(!hZ`f(,h h0h001;1;h0%h @(i ki0%i @(j kj0%j @k'Omsttningstillgngar(k {k0%k @(l kl0%l @m'Varulager(m nm0%m @n'Handelsvaror(n (n (,n( n0n001;1;n0%n @(o0 po0%o @p'Kortfristiga fordringar(p8 wp0%p @q'Kundfordringar(q (q (,q@ q0q001;1;q0%q @#r'Fordringar hos koncernfretag(r (r (,rH r0r001;1;r0%r @s'vriga fordringar(s !(s !(,sP s0s001;1;s0%s @)t'Frutbetalda kostnader och upplupna(tX ut0%t @u' intkter(u` MuNot(u "(u "(,uh u0u001;1;u0%u @(vp wv0%v @(w?uqP(w?uqP(,wx w0w001;1;w0%w @(x yx0%x @y'Kassa och bank(y yNot(y #(y #(,y y0y001;1;y0%y @(z {z0%z @!{'Summa omsttningstillgngar(!{nwy(!{nwy(,{ {0{001;1;{0%{ @(| }|0%| @}'Summa tillgngar(}h{(}h{(,} }0}001;1;}0%} @~'Eget kapital och skulder(~(~(~ ~0%~ @( 0% @'Eget kapital( VNot( 0% @( 0% @'Bundet eget kapital( 0% @.'Aktiekapital ( xxx aktier nom xxx kr )( $( $(, 0001;1;0% @'Reservfond( %( %(, 0001;1;0% @*'Inbetalt ej registrerat aktiekapital( &( &(, 0001;1;0% @( 0% @(P(P(, 0001;1;0% @( 0% @( Balanserad frlustBalanserad frlust / Fritt eget kapital;Fritt eget kapital;Fritt eget kapital(, 0% @$'Balanserad vinst eller frlust(4 eNot( '( '(,< 0001;1;0% @'rets resultat( (( ((,D 0001;1;0% @(L 0% @(P(P(,T 0001;1;0% @(\ 0% @'Summa eget kapital(((,d 0001;1;0% @(l 0% @'Obeskattade reserver(t lNot( )( )(,| 0001;1;0% @( 0% @'Lngfristiga skulder( 0% @'Checkrkningskredit( Not( *( *(, 0001;1;0% @!'Skulder till kreditinstitut( zNot( +( +(, 0001;1;0% @!'Skulder till koncernfretag( ,( ,(, 0001;1;0% @'Frlagsln( -( -(, 0001;1;0% @( 0% @(P(P(, 0001;1;0% @( 0% @'Kortfristiga skulder( 0% @!'Skulder till kreditinstitut( .( .(, 0001;1;0% @'Leverantrsskulder( /( /(, 0001;1;0% @!'Skulder till koncernfretag( 0( 0(, 0001;1;0% @'Skatteskulder( 1( 1(, 0001;1;0% @'vriga skulder( 2( 2(, 0001;1;0% @)'Upplupna kostnader och frutbetalda( 0% @' intkter( Not( 3( 3(, 0001;1;0% @($ 0% @(P(P(,, 0001;1;0% @(4 0% @$'Summa eget kapital och skulder(((((,< 0001;1;0% @(D 0% @(L 0% @%@% @'Stllda skerheter(T Not%%%@% @%@% @'Ansvarsfrbindelser%%%@% @K'N O T E R T I L L R E S U L T A T O C H B A L A N S R K N I N G% @% @% @ 'Not+'Redovisnings- och vrderingsprinciper% @% @Y'Tillmpade redovisnings- och vrderingsprinciper, vilka r ofrndrade i jmfrelse% @%'med fregende r, anges nedan.% @% @,'Avskrivningar p anlggningstillgngar(: \  0 0 001;1;1; 0( d   0W'Avskrivningar enligt plan berknas p ursprungliga anskaffningsvrden och baseras( l   0['p tillgngarnas bedmda ekonomiska livslngd, varvid fljande procentsatser anvnds:( t   0( |   0'Byggnader%( ] 0'Inventarier%( ^ 0'Goodwill%( Z 0(   0Z'Skillnaden mellan bokfrda avskrivningar och avskrivningar enligt plan redovisas som(   0Z'bokslutsdisposition. Ackumulerade avskrivningar utver plan redovisas som obeskattad(   0 'reserv.(   0(   0'Varulager% @% @>'Varulagret har vrderats till 97% av anskaffningsvrdet.% @% @'Fordringar% @% @J'Fordringar har upptagits till det belopp varmed de berknas inflyta.% @% @'Resultatrkning% @% @^'Bolaget tillmpar funktionsindelad resultatrkning. Till kostnad fr slda varor hnfrs% @Q'kostnader fr varubestllning, varumottagning, lagerhllning samt varuvrd.% @\'Till frsljningskostnader hnfrs kostnader fr manuell frsljning, kassa och vriga% @W'frsljningskostnader. Till administrationskostnader hnfrs kostnader fr kontor% @'och administration.% @% @Q'Frn och med 1998 redovisas aktiegartillskott samt koncernbidrag och skatt% @Q'p koncernbidrag direkt mot fritt eget kapital. Omrkning av jmfrelseret% @'har ej skett.% @% @V'Innevarande r och jmfrelser redovisas enligt nya rsredovisningslagens krav.% @% @% @ 'Not'garfrhllanden% @( 01; 0% @(   0B'Bolaget r 1998-12-31 dotterbolag till ICA Handlarna XXX AB,% @(   0 'Kolumn frJ'org nr 556XXX-XXXX med ste i XXXX som i sin tur r dotterbolag till% @(   0! 'styrning av vilka noter somA'ICA Handlarnas AB, org nr 556038-1542 med ste i Stockholm.% @(   0 'skall dljas 'Not'Medeltalet anstllda ^Bryt% @% @% @% @I'Medeltalet anstllda med frdelning p mn och kvinnor uppgr till:% @% @% @% @(2/;(2/;% @% @ 'Kvinnor%%% @% @ 'Mn%%% @% @ 'Totalt(P(P% @% @% @% @S'Lner, ersttningar, sociala avgifter och pensionskostnader har uppgtt till:% @% @% @% @((% @% @*'Styrelsen och verkstllande direktr(.  0 001;@; 0% @'lner och ersttningar%%(, 0001;1; 0% @'pensionskostnader%%(, 0001;1; 0% @(   0% @'vriga anstllda% @% @'lner och ersttningar%%% @% @% @% @'Sociala kostnader%%% @% @'varav pensionskostnader%%% @% @% @% @ 'Not'Finansiella poster ^Bryt% @(, 0001;1; 0((% @(   0*'Resultat frn vriga vrdepapper och% @(   0-'fordringar som r anlggningstillgngar% @( $  0"'Aktieutdelning ICA Handlarna%%(, ,0001;1; 0( 4  0%'Rnteintkter frn medlemskonto%%(, <0001;1; 0( D  0% @( L  0(P(P% @( T  0% @( \  0 'Not'Bokslutsdispositioner ^Bryt% @( dK 0((% @( l  0'Erhllet koncernbidrag%%(, t0001;1; 0( |  0'Iansprktaget frlagsln%%(, 0001;1; 0(   0'Aktiegartillskott%%(, 0001;1; 0(   0% @(   0(P(P% @(   0% @(   0'Latent skatt% @(   0% @(   0-'Latent skatt berknad p rets resultat((% @(   0,'Skillnad mellan bokfrda avskrivningar(    0(   0# 'och avskrivningar enligt plan% % (,   0 001;1;  0(     00 'Avsttning / Upplsning periodiseringsfond% (  P(,   0 001;1;  0(     0%  @(     0(   P(   P%  @(     0%  @(     0 'Not('Immateriella anlggningstillgngar ^Bryt% @( Z 0"Goodwill% @( $  0(% @( ,  0 'Ingende anskaffningsvrde%% @( 4  0 'Inkp%( <001; 0( D  0#'Frsljningar / Utrangeringar%( L001; 0( T  0'Omklassificeringar%( \001; 0( d  0% @( l  0,'Utgende ackumulerat anskaffningsvrde(P% @( t  0% @( |  0'Ingende avskrivningar%% @(   0#'Frsljningar / Utrangeringar%( 001; 0(   0'Omklassificeringar%( 001; 0(   0'rets avskrivningar%( 001; 0(   0% @(   0)'Utgende ackumulerade avskrivningar(P% @(   0% @(   0#'Utgende planenligt restvrde(% @(   0%  @(     0 !'Not&!'Materiella anlggningstillgngar !^Bryt%! @(! `! 0""Inventarier%" @(" ! " 0(#%# @(# ! # 0 $'Ingende anskaffningsvrde%$%$ @($ ! $ 0 %'Inkp%%(% %001;% 0(% ! % 0#&'Frsljningar / Utrangeringar%&(& &001;& 0(& ! & 0''Omklassificeringar%'(' H'001;' 0(' P! ' 0%( @(( X! ( 0,)'Utgende ackumulerat anskaffningsvrde()$'P%) @() `! ) 0%* @(* h! * 0+'Ingende avskrivningar%+%+ @(+ p! + 0#,'Frsljningar / Utrangeringar%,(, ,001;, 0(, h! , 0-'Omklassificeringar%-(- p-001;- 0(- x! - 0.'rets avskrivningar%.(. .001;. 0(. D! . 0%/ @(/ 4! / 0)0'Utgende ackumulerade avskrivningar(0+.P%0 @(0 ! 0 0%1 @(1 ! 1 0#2'Utgende planenligt restvrde(2)0%2 @(2 ! 2 0%3 @(3 ! 3 0 4'Not4'Totala avskrivningar 4^Bryt%4 @(4 7001;4 0(5%5 @(5 4 5 036'rets avskrivningar av samtliga tillgngsslag%6 @(6 | 4 6 07'uppgr till(7 %7 @(7 4 7 0%8 @(8 4 8 0 9'Not'9'Finansiella anlggningstillgngar 9^Bryt%9 @(9 f9 0%: @(: 9 : 0#;'Fordringar hos koncernfretag(; B ; 0(; t 9 ; 0<"Medlemskonto(< | B < 0(< 9 < 0="ICA Handlarnas AB(= B = 0(= 9 = 0(>(> B > 0(> 9 > 0 ?'Ingende anskaffningsvrde%?(? B ? 0(? l 9 ? 0@'rets frndring%@(@ t B @ 0(@ | 9 @ 0(A @ B A 0(A H 9 A 0,B'Utgende ackumulerat anskaffningsvrde(B?@P(B P B001;B 0(B 9 B 0(C B C 0(C 9 C 0#D'Andra lngfristiga fordringar(D XK D 0(D 9 D 0E"Depositioner(E K E 0(E 9 E 0F"tidningsleverantrer(F K F 0(F 9 F 0(G(G K G 0(G 9 G 0 H'Ingende anskaffningsvrde%H(H K H 0(H 9 H 0I'rets frndring%I(I K I 0(I 9 I 0(J |K J 0(J d9 J 0,K'Utgende ackumulerat anskaffningsvrde(KHIP(K TK001;K 0(K D9 K 0(L ,K L 0(L 9 L 0 M'Not2M'Frutbetalda kostnader och upplupna intkter M^Bryt%M @%N @(O(O%O @P'Frutbetald hyra%P%P%P @1Q'Frutbetalda servicekontrakt och frskring%Q%Q%Q @R'vriga poster%R%R%R @%S @(TPRP(TPRP%T @%U @ V'Not V'Frndring av eget kapital V^Bryt%V @W"Fritt eget%W @X"AktiekapitalX"Reservfond X"kapital X"Summa%X @Y'Belopp vid rets ingng%Y%Y%Y(YYYP%Y @$Z'Vinstdisposition enligt beslut%Z @[' av rets bolagsstmma:%[ @!\' Avsttning till reservfond%\%\(\\\P%\ @]' Utdelning%](]]]P%] @^'Aktiegartillskott%^(^^^P%^ @_'Koncernbidrag%_(___P%_ @`' Skatt p koncernbidrag%`(```P%` @a'rets resultat%a(aaaP%a @%b @c'Belopp vid rets utgng(cYaP(cYaP(cYaP(cYaP%c @%d @ e'Not e'Skatt e^Bryt%e @(f(f%f @'g'Skatt redovisad i resultatrkning%g%g%g @1h'Skatt som redovisas mot balanserat resultat%h%h%h @%i @(jghP(jghP%j @%k @ l'Notl'Obeskattade reserver l^Bryt%l @(m(m%m @n'Periodiseringsfond%n%n%n @'o'Ack veravskrivningar inventarier%o%o%o @%p @(qnoP(qnoP%q @%r @s'Ackumulerad latent skatt(s(s%s @,t'Skillnad mellan bokfrda avskrivningar%t @#u'och avskrivningar enligt plan%u%u%u @0v'Avsttning / Upplsning periodiseringsfond%v(vtuP%v @%w @(xuvP(xuvP%x @%y @ z'Notz'Lngfristiga skulder z^Bryt%z @%{ @@|'Nedan anges den del av lngfristiga skulder som frfaller %| @@}'till betalning senare n fem r efter balansdagens utgng.%} @%~ @((% @% @ 'Bankln%%% @% @ 'Not'Checkrkningskredit ^Bryt% @% @J'Beviljat belopp p checkrkningskredit uppgr till x.xxx.xxx kronor.% @% @ 'Not2'Upplupna kostnader och frutbetalda intkter ^Bryt% @% @((% @!'Lne- och semesterlneskuld%%% @%'Skuld avseende sociala avgifter%%% @'vriga poster%%% @% @(P(P% @% @ 'Not'Stllda skerheter ^Bryt% @((% @''Fr egna skulder och avsttningar% @'Checkrkning% @'Fretagsinteckning%%% @'Skuld till koncernfretag% @'Fretagsinteckning%%% @% @(P(P% @% @'vriga stllda skerheter% @'Medlemskonto ICA%%% @!'Deposition tidningsleverans%(P% @% @(P(P% @% @'Summa stllda skerheter((% @% @ 'Not 'Leasing ^Bryt% @(% @!'Leasingen avser inventarier% @)'Leasingobjektets anskaffningsvrde %% @'Kvarvarande avgift%% @'Kvarvarande antal r%% @*'rets belastning i resultatrkningen%% @% @ 'Not%'Inkp frn bolag inom koncernen ^Bryt% @% @E'Inkp frn bolag inom koncernen utgr XX% av de totala inkpen.% @% @% @% @,'Borlnge den / 19____% @% @% @% @% @'Hasse Handlare'Kalle Kompanjon% @'Verkstllande direktr% @% @% @% @K'Min revisionsberttelse har avgivits den / 19____% @% @% @% @% @'Roger Revisor ^Stopp% @ 'Stopp 'X'Arbetsgng"Basuppgifter4'1.Fyll i / kontrollera uppgifterna till hger."Fretagsnamn:(+'2.G till fliken "rsredovisning" och"Org. nr:(2' ifyll i frvaltningsberttelsen uppgifter"r dotterbolag till:-' om ev. utdelning och avsttning till"Detta r brjar:' reservfond."Detta r slutar:"Freg r brjar:"Freg r slutar:"Revisor:'Roger Revisor "Titel: 'Auktoriserad "VD: "Styrelseledamot 1: "Styrelseledamot 2: "Styrelseledamot 3:"Styrelseledamot 4:'Allmnt om Redok+'Redok r ett koncept bestende av tre*'samverkande program fr framtagande *'av rapporter / analyser genom import7'av s kallade SIE-filer (standard import/export).'FRDELNINGSNYCKEL'FREG R 'DETTA R^Kostnad slda^Frsljn.^Administr.  ^vriga ^Kostnad slda ^Frsljn.^Administr. ^vriga'Kostnader"Freg r"Detta r ^varor^%^kostnader^%^kostnader^% ^kostnader ^%  ^varor ^% ^kostnader^%^kostnader^%^kostnader^%'Varukostnad( (%@(%(%(  % ( (  % @( %(%(%'Personalkostnader( (%Q(% (%(  % ( (  % Q( % (%(%'Lokalkostnader( (%R(%R(%Q(  % (  (     %  R(    % R(   % Q(   %  'Hyra & leasing(  (   % (   % (   % (     %  (  (     %  (    % (   % (   %  'Reklam & frsljning(  (   % (   % @(   % (     %  (  (     %  (    % @(   % (   % 'Administration( (%(%(%@(  % ( (  % ( %(%@(%'Reparation & frbrukning( (%(%(%(  % ( (  % ( %(%(%'Bil- & transportkostnader( (%Q(%R(%R(  % ( (  % Q( %R(%R(%'Fastighetskostnader( (%R(%R(%Q(  % ( (  % R( %R(%Q(% 'Royalty( (%@(%(%(  % ( (  % @( %(%(%'Rimi avg. hg( (%(% (%(  % ( (  % ( % (%(%'Rimi avg. lg( (%R(% (%(  % ( (  % R( % (%(%'vriga rrelsekostnader( (%(%(%@(  % ( (  % ( %(%@(%'Avskrivningar( (%(%(%(  % ( (  % ( %(%(%( P( P( P(    P(    P(    P( P( P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P  ^Kto.nr 'Kontonamn ^Freg r ^Detta r(   P(   P  ^Kto.nr 'Kontonamn ^Freg r ^Detta r(   P(   P  ^Kto.nr 'Kontonamn ^Freg r ^Detta r(   P(   P  ^Kto.nr 'Kontonamn ^Freg r ^Detta r(   P(   P  ^Kto.nr 'Kontonamn ^Freg r ^Detta r(   P(   P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P ^Kto.nr'Kontonamn^Freg r^Detta r(  P(  P  ^Kto.nr 'Kontonamn ^Freg r ^Detta r(   P(   P !^Kto.nr!'Kontonamn!^Freg r!^Detta r( !! !P( !! !P "^Kto.nr"'Kontonamn"^Freg r"^Detta r( "" "P( "" "P #^Kto.nr#'Kontonamn#^Freg r#^Detta r( ## #P( ## #P $^Kto.nr$'Kontonamn$^Freg r$^Detta r( $$ $P( $$ $P %^Kto.nr%'Kontonamn%^Freg r%^Detta r( %% %P( %% %P &^Kto.nr&'Kontonamn&^Freg r&^Detta r( && &P( && &P '^Kto.nr''Kontonamn'^Freg r'^Detta r( '' 'P( '' 'P (^Kto.nr('Kontonamn(^Freg r(^Detta r( (( (P( (( (P )^Kto.nr)'Kontonamn)^Freg r)^Detta r( )) )P( )) )P *^Kto.nr*'Kontonamn*^Freg r*^Detta r( ** *P( ** *P +^Kto.nr+'Kontonamn+^Freg r+^Detta r( ++ +P( ++ +P ,^Kto.nr,'Kontonamn,^Freg r,^Detta r( ,, ,P( ,, ,P -^Kto.nr-'Kontonamn-^Freg r-^Detta r( -- -P( -- -P .^Kto.nr.'Kontonamn.^Freg r.^Detta r( .. .P( .. .P /^Kto.nr/'Kontonamn/^Freg r/^Detta r( // /P( // /P 0^Kto.nr0'Kontonamn0^Freg r0^Detta r( 00 0P( 00 0P 1^Kto.nr1'Kontonamn1^Freg r1^Detta r( 11 1P( 11 1P 2^Kto.nr2'Kontonamn2^Freg r2^Detta r( 22 2P( 22 2P 3^Kto.nr3'Kontonamn3^Freg r3^Detta r( 33 3P( 33 3PB@  B@  B@   BC A:A1..A:G448  66 P5 ``??qP6 5qP6 5 qP6 5qP6 5!qP6 5     ?##, B/#,|E&&B+  #B#c c     B1 3B/c c  3 B/cc$c* @/'<N?"$          PPPPP PPPPP:PPPPPPPP PPPPPP P PPPPPPPPPP PP PPPPPPPPPPPPPPPPPPPPPP P PPPPPP9PPPPPPPPPP P PPPPPPPPPPPPPPPPPPBPPBPPPBPPBPPP PPPPPPPPPPPPPPPPPPPPPPPPPP PPPPPPPPPPPPPP?P#P*PPPPP~PPPPPPP PPPPPPPP PPPPPP PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPUP#PPP#P,P/P1PPPBPPPDPDPAP DPEPFPGP+PDPAPDPHPJPHPMPHP DPDPDP/P6P ,P,P=P4P4P=P4P.P!P4P4P4P4P4P4P4P4P4P4P4P4P4P5P3P7P3P!P4P5P!P3P!P4P5P!P3P!P4P5P!P3P.P!P4P5P3P7P3P!P4P5P!P3P!P4P5P!P3P!P4P5P!P3P 0P1P!P!P!P2P1P-P 0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P!P2P1P-P0P1P!P!P2P1P-P0P1P!P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P1P!P2P1P-P1P-P 0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P0P1P!P2P1P-P     . 0 " 0 + 0   a# 0 0 0 .  /  /  1     @ .0"0+0.000. / / 1   @ %0 0 0  000         @ .0"0+0.000. / / 1   @ .0 0 0  000 /      @/  "  +  .  0   A/AA"AA+AA.A0"/AA"AA+AA.AA0AAA@/"+.+@/"+.+A/"+.0"    BBB CCCCCAAACAAAA CCCCCAAACAAAACAAAACCCCCCAAAACAAAAACAAAAACCCCCCAAAACAAAAACAAAAACCCCCCAAAACAAAAACAAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAA CCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAACCCCCAAACAAAACAAAA   $ 6 6 6 6     ~ H H  H  H  H  H  H  H  H   T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T  T     A@ A @  A @      a@ A @     a@  A@         A@ a@            A@  a@                                                            " A  A   A @                                                                 2 BBbA{.1'd StandardBBZA{. 1'd   Sida #Sign: ................BLB B6!6>     > N @ d   rsredovisning, B@  B@  """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??> " "NAm@Linje 1??@ @@" "NAm@Linje 28s8s??@@G @"  Click '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Buttoncontrol) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTONCONTROL Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Buttoncontrol) [H223].select 'Sidbrytning Dim x As Integer 'Heltalet x deklareras x = 0 'och erhller vrdet noll While(Not Selection.contents = "^Stopp") If Selection.contents = "^Bryt" Then 'D vi ptrffar "Bryt" utfrs fljande While( x < 45) [rsredovisning].MoveCellPointer $Down,1 'S lnge inte radantalet ntt 45 fortstter vi nert x = x + 1 'x rknas upp med ett If Selection.contents = "^Stopp" T hen 'Om vi ntt slutet p rapporten [rsredovisning].MoveCellPointer $Up,450 'tergr vi till lget hgst upp p sidan [A3].select Exit Sub 'och tar oss abrupt ur loopen... End If Wend If x > 44 Then 'Om radantalet dremot ntt 45 intrffar fljande... While(Not Selection.contents = "^Bryt") [rsredovisning].MoveCellPointer $Up,1 Wend Selection.HorizontalPageBreak = True 'Vid nrmast fregende "Bryt" infogas radbrytning x = 0 'x erhller ter vrdet noll och rkningen startar frn brjan End If End If Wend End Sub"DljnotradKnapp??-@gB@LP Dlj nollrader inuti noter" Click '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Buttoncontrol) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTONCONTROL Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Buttoncontrol) Dim x As Integer [I173].Select For x = 0 To 300 If Selection.CellValue = 0 Then Selection.HideRows Else [rsredovisning].MoveCellPointer $Up,1 End If Next x End Sub"| DljKnapp??>@g@LP Dlj nollrader i FB, RR, BR" Click '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Buttoncontrol) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTONCONTROL Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Buttoncontrol) [rsredovisning:A1..rsredovisning:IV448].Select Selection.UnhideRows [H448].select Dim x As Integer For x = 0 To 220 [rsredovisning].MoveCellPointer $Up,1 If Selection.contents = "^Bryt" Then Selection.HorizontalPageBreak = False End If Next [rsredovisning].MoveCellPointer $Up,300 [A3].select End Sub"| VisaKnapp??L@ga@LP Visa alla rader" "NAm@Linje 3nFnF??@_@  7@" 0Click0 '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Buttoncontrol) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTONCONTROL Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Buttoncontrol) [K217].select 'Dljer noter While(Not Selection.contents = "'X") If Selection.CellValue = 0 Then Selection.HideRows Else [rsredovisning].MoveCellPointer $Down,1 End If Wend [A174].select 'Numrerar noter Dim x As Integer x = 0 While(Not Selection.contents = "'Stopp") [rsredovisning].MoveCellPointer $Down,1 If Selection.contents = "'Not" Then x = x + 1 Selection.contents = "Not "& x End If Wend [rsredovisning].MoveCellPointer $Up,45 00 [A3].select End Sub" DljNotKnapp??>@g.@LP Dlj & numrera noter"   Start, B@  B@  """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??@HDl" Click '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Buttoncontrol) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTONCONTROL Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Buttoncontrol) [<<C:\Redok\rsredovisning.123>>Fnster 1].Activate '-------------------- CurrentApplication.TextColumnParseOption = $Tab 'Textfilsimport CurrentApplication.TextCodepage = $Windows '-------------------- CurrentApplication.TextColumnParseOption = $Tab [Fnster 1].Activate CurrentApplication.TextCodepage = $Windows CurrentApplication.TextColumnParseOption = $Tab CurrentApplication.TextColumnParseUserDefined = "" CurrentApplication.OpenDocument "C:\Redok\Bolagsdata\Bolags data.txt",,"Text (TXT;PRN;CSV;DAT;OUT;ASC)",,False,True,True,, [<<c:\lotus\Arbete\123\Namnls.123>>Fnster 1].Activate [A:B1..A:A8192].Select Selection.CopyToClipboard [<<C:\Redok\rsredovisning.123>>Fnster 1].Activate [Start:A1].Select [Start:B1..Start:A8192].Select Selection.Paste ,,,,,, [Start:C1].Select [<<c:\lotus\Arbete\123\Namnls.123>>Fnster 1].Activate [A:C1].Select [Fnster 1].Close False [<<C:\Redok\rsredovisning.123>>Fnster 1].Activate Dim i As Variant Dim d As Double Dim s As String, subString As String, r As String, Mnad As String, Dag As String, r2 As String Dim x As Integer, y As Integer '----------------------------------------- [Start:B1].select 'Konverterar strngar till tal '----------------------------------------- For i = 1 To 700 If Not Selection.Contents = "" Then s = Selection.Contents subString = Mid(s, 2, 15) d = Val(subString) Selection.Contents = Format(d,"Fixed") End If [Start] .MoveCellPointer $Down,1 Next [Start:A700].select '------------------------------------------------------------------------ 'Skickar ivg data till bilagor "nerifrn och upp" For i = 1 To 700 '------------------------------------------------------------------------ If Selection.Contents = "'*SKATT_P_RETS_RESULTAT:" Then [Skatt:D10].InsertRows $Full ' <---------- Ny rad i bilagan... [Start].MoveCellPointer $Down,1 [Skatt:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skatt:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Skatt:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skatt:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*BOKSLUTSDISPOSITIONER:" Then [Dispositioner:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Dispositi oner:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Dispositioner:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Dispositioner:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Dispositioner:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*RNTEKOSTNADER:" Then [Rntekostn.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Rntekostn.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Rntekostn.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Rntekostn.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Rntekostn.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'* RNTEINTKTER:" Then [Rnteint.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Rnteint.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Rnteint.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Rnteint.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Rnteint.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*RES_FRN_FINANSIELLA_AT:" Then [Res frn fin AT:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Res frn fin AT:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Res frn fin AT:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Res frn fin AT:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Res frn fin AT:D10].Contents = Selection.Content s [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*AVSKRIVNINGAR:" Then [Avskrivningar:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Avskrivningar:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Avskrivningar:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Avskrivningar:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Avskrivningar:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*VRIGA_RRELSEKOSTNADER:" Then [vr. kostn.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [vr. kostn.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [vr. kostn.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [vr. kostn. :C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [vr. kostn.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*RIMI_AVG_LG:" Then [Rimi avg. lg:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Rimi avg. lg:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Rimi avg. lg:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Rimi avg. lg:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Rimi avg. lg:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*RIMI_AVG_HG:" Then [Rimi avg. hg:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Rimi avg. hg:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Rimi avg. hg:B10].C ontents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Rimi avg. hg:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Rimi avg. hg:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*ROYALTY:" Then [Royalty:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Royalty:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Royalty:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Royalty:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Royalty:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*VRIGA_RRELSEINTKTER:" Then [vr. intkter:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [vr. intkter:A1 0].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [vr. intkter:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [vr. intkter:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [vr. intkter:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*FASTIGHETSKOSTNADER:" Then [Fastighetskostn:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Fastighetskostn:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Fastighetskostn:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Fastighetskostn:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Fastighetskostn:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selectio n.Contents = "'*BIL_OCH_TRANSPORT:" Then [Bil o transport:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Bil o transport:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Bil o transport:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Bil o transport:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Bil o transport:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*REP_OCH_FRBRUKNING:" Then [Rep o. frbrukn:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Rep o. frbrukn:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Rep o. frbrukn:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Rep o. frbrukn:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [R ep o. frbrukn:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*ADMINISTRATION:" Then [Administr.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Administr.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Administr.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Administr.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Administr.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*REKLAM_OCH_FSG:" Then [Reklam o. fsg:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Reklam o. fsg:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Reklam o. fsg:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCel lPointer $Right,1 [Reklam o. fsg:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Reklam o. fsg:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*HYRA_OCH_LEASING:" Then [Hyra o. leasing:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Hyra o. leasing:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Hyra o. leasing:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Hyra o. leasing:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Hyra o. leasing:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*LOKALKOSTNADER:" Then [Lokalkostn.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Lokalkostn.:A10].Contents = Selection.Contents [Start].Mo veCellPointer $Down,1 [Lokalkostn.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Lokalkostn.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Lokalkostn.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*PERSONALKOSTNADER:" Then [Personalkostn.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Personalkostn.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Personalkostn.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Personalkostn.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Personalkostn.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*VARUINKP:" Then [Varuinkp:D10].Inse rtRows $Full [Start].MoveCellPointer $Down,1 [Varuinkp:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Varuinkp:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Varuinkp:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Varuinkp:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*NETTOOMSTTNING:" Then [Nettooms.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Nettooms.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Nettooms.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Nettooms.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Nettooms.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*UPPL_KOSTN_OCH_FRUTB_INTKTER:" Then [Interimsskulder:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Interimsskulder:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Interimsskulder:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Interimsskulder:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Interimsskulder:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*VRIGA_SKULDER:" Then [vr. skuld:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [vr. skuld:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [vr. skuld:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [vr. skuld:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down ,1 [vr. skuld:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*SKATTESKULDER:" Then [Skatteskuld:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Skatteskuld:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skatteskuld:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Skatteskuld:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skatteskuld:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*KORTFR_SKULD_TILL_KONCERNFTG:" Then [Skuld konc.ftg2:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Skuld konc.ftg2:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skuld konc.ftg2:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Skuld konc.ftg2:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skuld konc.ftg2:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*LEVERANTRSSKULDER:" Then [Lev.skuld:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Lev.skuld:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Lev.skuld:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Lev.skuld:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Lev.skuld:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*KORTFR_SKULD_TILL_KREDITINSTITUT:" Then [Skuld kr.inst.2:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Skuld kr.inst.2:A10].Contents = Selec tion.Contents [Start].MoveCellPointer $Down,1 [Skuld kr.inst.2:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Skuld kr.inst.2:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skuld kr.inst.2:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*FRLAGSLN:" Then [Frlagsln:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Frlagsln:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Frlagsln:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Frlagsln:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Frlagsln:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*LNGFR_SKULD_TILL_KONCERNFTG:"  Then [Skuld konc.ftg1:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Skuld konc.ftg1:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skuld konc.ftg1:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Skuld konc.ftg1:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skuld konc.ftg1:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*LNGFR_SKULD_TILL_KREDITINSTITUT:" Then [Skuld kr.inst.1:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Skuld kr.inst.1:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skuld kr.inst.1:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Skuld kr.inst.1:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Skuld kr.inst.1:D10].Co ntents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*CHECKRKNINGSKREDIT:" Then [Checkkredit:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Checkkredit:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Checkkredit:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Checkkredit:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Checkkredit:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*OBESKATTADE_RESERVER:" Then [OR:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [OR:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [OR:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [OR:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [OR:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*RETS_RESULTAT:" Then [rets res.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [rets res.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [rets res.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [rets res.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [rets res.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*BALANSERAT_RESULTAT:" Then [Bal. res.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Bal. res.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Bal. res.:B10].Contents = Selection.Contents [Start].MoveC ellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Bal. res.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Bal. res.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*INBET_EJ_REG_AK:" Then [Ej reg. AK:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Ej reg. AK:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Ej reg. AK:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Ej reg. AK:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Ej reg. AK:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*RESERVFOND:" Then [RF:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [RF:A10].Contents = Selection.Contents [Start].MoveCellPointer $Dow n,1 [RF:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [RF:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [RF:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*AKTIEKAPITAL:" Then [Aktiekap.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Aktiekap.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Aktiekap.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Aktiekap.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Aktiekap.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*KASSA_OCH_BANK:" Then [Kassa o. bank:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Kassa o. ban k:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Kassa o. bank:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Kassa o. bank:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Kassa o. bank:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*FRUTBET_KOSTNADER_OCH_UPPL_INTKTER:" Then [Interimsfordr.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Interimsfordr.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Interimsfordr.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Interimsfordr.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Interimsfordr.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If  If Selection.Contents = "'*VRIGA_FORDRINGAR:" Then [vr. fordr.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [vr. fordr.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [vr. fordr.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [vr. fordr.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [vr. fordr.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*KORTFR_FORDRAN_HOS_KONCERNFTG:" Then [Fordr.konc.ftg2:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Fordr.konc.ftg2:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Fordr.konc.ftg2:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Fordr.konc.ftg2:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down, 1 [Fordr.konc.ftg2:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*KUNDFORDRINGAR:" Then [Kundfordr.:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Kundfordr.:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Kundfordr.:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Kundfordr.:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Kundfordr.:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*HANDELSVAROR:" Then [Handelsvaror:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Handelsvaror:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Handelsvaror:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCe llPointer $Right,1 [Handelsvaror:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Handelsvaror:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*ANDRA_LNGFR_FORDRINGAR:" Then [vr lnga fordr:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [vr lnga fordr:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [vr lnga fordr:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [vr lnga fordr:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [vr lnga fordr:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*LNGFR_FORDRAN_HOS_KONCERNFTG:" Then [Fordr.konc.ftg1:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Fordr.konc.ftg1:A10].Contents = Se lection.Contents [Start].MoveCellPointer $Down,1 [Fordr.konc.ftg1:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Fordr.konc.ftg1:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Fordr.konc.ftg1:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*INVENTARIER:" Then [Inventarier:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Inventarier:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Inventarier:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Inventarier:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Inventarier:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*BYGGNADER_OCH_MARK: " Then [Byggn. o. mark:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Byggn. o. mark:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Byggn. o. mark:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Byggn. o. mark:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Byggn. o. mark:D10].Contents = Selection.Contents [Start].MoveCellPointer $Left,1 [Start].MoveCellPointer $Up,4 End If If Selection.Contents = "'*GOODWILL:" Then [Goodwill:D10].InsertRows $Full [Start].MoveCellPointer $Down,1 [Goodwill:A10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Goodwill:B10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Start].MoveCellPointer $Right,1 [Goodwill:C10].Contents = Selection.Contents [Start].MoveCellPointer $Down,1 [Goodwill:D10].Contents = Selection.Contents [Start].MoveCellPointer $L eft,1 [Start].MoveCellPointer $Up,4 End If [Start].MoveCellPointer $Up,1 Next If Not [Start:A3].Contents = "" Then 'rtalshantering s = [Start:A3].Contents r = Mid(s,1,4) Mnad = Mid(s,5,2) Dag = Mid(s,7,2) [Start:C1].contents = "'"&r [Start:C2].contents = "'"&Mnad [Start:C3].contents = "'"&Dag [Indata:G5].contents = r + "-" + Mnad + "-" + Dag x = Val(r) y = x - 1 r2= Mid(Str(y),2,4) [Start:D1].contents = "'"&r2 [Indata:G7].contents = r2 + "-" + Mnad + "-" + Dag s = [Start:A4].Contents r = Mid(s,1,4) Mnad = Mid(s,5,2) Dag = Mid(s,7,2) [Start:C4].contents = "'"&r [Start:C5].contents = "'"&Mnad [Start:C6].contents = "'"&Dag [Indata:G6].contents = r + "-" + Mnad + "-" + Dag x = Val(r) y = x - 1 r2 = Mid(Str(y),2,4) [Start:D4].contents = "'"&r2 [Indata:G8].contents = r2 + "-" + Mnad + "-" + Dag End If [Indata].TurnTo Beep Messagebox("Importen r klar. Spara nu filen under nytt namn." ) End Sub"~ ImportKnapp??@HDl@#P Import"   IndataD,  B@  !B@   "#  Frdeln.nyckel2$#", %B@  $$&B@  $$ '(   Nettooms._)(',* +B@  )),B@  ))"-"*(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(""(" -PAm??" ./   Varuinkp_0/.,1 2B@  003B@  00"4"1/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/""/" 4PAm??" 56  Personalkostn._765,8 9B@  77:B@  77";"86""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6""6" ;PAm??" <=   Lokalkostn._>=<,? @B@  >>AB@  >>"B"?=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=""=" BPAm??" CD  Hyra o. leasing_EDC,F GB@  EEHB@  EE"I"FD""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D""D" IPAm??" JK  Reklam o. fsg_LKJ,M NB@   LLOB@    LL"P"MK""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K""K" PPAm??" QR   Administr._SRQ,T UB@   SSVB@    SS"W"TR""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R""R" WPAm??" XY  Rep o. frbrukn_ZYX,[ \B@   ZZ]B@    ZZ"^"[Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y""Y" ^PAm??" _`  Bil o transport_a`_,b cB@   aadB@    aa"e"b`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`""`" ePAm??" fg  Fastighetskostn_hgf,i jB@   hhkB@    hh"l"ig""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g""g" lPAm??" mn  vr. intkter_onm,p qB@  oorB@    oo"s"pn""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n""n" sPAm??" tu  Royalty_vut,w xB@  vvyB@  vv"z"wu""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u""u" zPAm??" {|  Rimi avg. hg_}|{,~ B@  }}B@  }}""~|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|""|" PAm??"   Rimi avg. lg_, B@  B@  """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    vr. kostn._, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"   Avskrivningar_, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"   Res frn fin AT_, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    Rnteint._, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    Rntekostn._, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"   Dispositioner_, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"   Skatt_, B@  B@  """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    Goodwill_, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"   Byggn. o. mark_, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    Inventarier_, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"   Fordr.konc.ftg1_, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"   vr lnga fordr_, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    Handelsvaror_, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    Kundfordr._, B@  B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"   Fordr.konc.ftg2_, B@   B@    """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    vr. fordr._, B@ !! B@  ! ! """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"   Interimsfordr._, B@ "" B@ "" """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"   Kassa o. bank_, B@ ## B@  # # """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    Aktiekap._ ,   B@ $$    B@  $ $   " " """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""  PAm??"   RF_, B@ %% B@  % % """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    Ej reg. AK_, B@ && B@  & & """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" PAm??"    Bal. res._,  B@ '' !B@  ' ' """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" "PAm??" #$   rets res._%$#,& 'B@ (( %%(B@ (( %%")"&$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$""$" )PAm??" *+  OR_,+*,- .B@ )) ,,/B@  ) ) ,,"0"-+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+""+" 0PAm??" 12   Checkkredit_321,4 5B@ ** 336B@ ** 33"7"42""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2""2" 7PAm??" 89  Skuld kr.inst.1_:98,; <B@ ++ ::=B@  + + ::">";9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9""9" >PAm??" ?@  Skuld konc.ftg1_A@?,B CB@ ,, AADB@  , , AA"E"B@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@""@" EPAm??" FG   Frlagsln_HGF,I JB@ -- HHKB@  - - HH"L"IG""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G""G" LPAm??" MN  Skuld kr.inst.2_ONM,P QB@ .. OORB@ .. OO"S"PN""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N""N" SPAm??" TU   Lev.skuld_VUT,W XB@ // VVYB@  / / VV"Z"WU""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U""U" ZPAm??" [\  Skuld konc.ftg2_]\[,^ _B@ 00 ]]`B@ 00 ]]"a"^\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\""\" aPAm??" bc   Skatteskuld_dcb,e fB@ 11 ddgB@  1 1 dd"h"ec""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c""c" hPAm??" ij   vr. skuld_kji,l mB@ 22 kknB@  2 2 kk"o"lj""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j""j" oPAm??" pq  Interimsskulder_rqp,s tB@ 33 rruB@ 33 rr"v"sq""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q""q" vPAm??" W4"'.5<CJQX_fmt{#*18?FMT[bip UlfUlf  m123123 PropertyDoc Info AuthorDoc Info CommentsDoc Info Editing TimeDoc Info Last Printed DateDoc Info Last RevisorDoc Info ObjectDoc Info Revisions Count  4@  bbi p     ׸  vCMHdr4