program "REKENINGEN" dcl retkode#,x# dcl selma%,selma2%,pf% dcl aa=6(30),klasse$=3(100),klasto1=6(100),klasto2=6(100),klasto3=6(100) dcl sommen=6(20),baltot=6(20),tot1=6(4),tot2=6(4),tot3=6(4),tat=6(50),tut=6(15) dcl winst=6,vwinst=6,tut1=6,altot=6,percent=6 dcl sal1=6,sal2=6,salda=6,saldo=6,saldu=6 dcl centtotd=6,centtotc=6,totklam=6,totklaj=6 dcl tttkla1$=100,tttkla2$=100,tttkla3$=100,tttkla4$=100 dcl ouklas$=1,tit$=50,tustit$=20 dcl tttkla5$=100 field=m,tttkla1 dcl meckla$=5(100) field=m dcl tusrek$=6 field=m,tusrek dcl tusklas$=1,filler=5 field=m #INCLUDE "CRINCLU" #INCLUDE "CRINCLU2" assign=45,"IM0",wr,ex,im assign=8,bestand(01),wr,si ;rekeningenbestand assign=9,left(bestand(01),3)+"CEN",wr,si ;centralisatie assign=10,left(bestand(01),3)+"CVJ",wr,si ;centralisatie vorig jaar tttkla1="A01 A02 A03A A03B A03C A03D A03E A03F A04 A05A A05B A06A A06B A07A A07B A08 A09 A10 P01A P01B " tttkla2="P02 P03 P04A P04B P04B1P04B2P04C P04D P05 P06 P07 P08 P08A P08A1P08A2P08B P08C P08D P09A P09B " tttkla3="P09B1P09B2P09C P09C1P09C2P09D P09E P09E1P09E2P09F P10 " winst=0 &10 print=1:clear,paint(kh,ka),naam,paint(kt,0)," LISTINGS VAN DE REKENINGEN ",tab(70),ndat print=1:paint(kl,0),tab(01,02),gener(79,hto) print=1:tab(01,22),gener(79,hto),paint(kt,0) print=1:tab(01,04),paint(kt,ka)," 1 --> Afdruk alle rekeningen.",paint(kt,0) print=1:tab(01,05),paint(kt,ka2)," 2 --> Alleen de geopende rekeningen.",paint(kt,0) print=1:tab(01,06),paint(kt,ka3)," 3 --> Afdruk saldo's jaar en maand.",paint(kt,0) print=1:tab(01,07),paint(kt,ka4)," 4 --> Afdruk vergelijk vorig jaar en dit jaar.",paint(kt,0) print=1:tab(01,08),paint(kt,ka5)," 5 --> Afdruk jaarbalans in mindering deze maand.",paint(kt,0) print=1:tab(01,09),paint(kt,ka)," 6 --> Afdruk maandbalans deze maand.",paint(kt,0) print=1:tab(01,10),paint(kt,ka2)," 7 --> Afdruk jaarbalans huidige toestand.",paint(kt,0) print=1:tab(01,11),paint(kt,ka3)," 8 --> Instellen winst(-) / verlies(+) : ",(-7.n2),winst print=1:tab(01,12),paint(kt,ka4)," 9 --> Afdruk jaarrekeningen.",paint(kt,0) print=1:tab(01,13),paint(kt,ka5),"10 --> Afdruk van de resultaat rekening.",paint(kt,0) print=1:tab(01,14),paint(kt,ka),"11 --> Invullen automatisch der balansnummers op rekening.",paint(kt,0) print=1:tab(01,15),paint(kt,ka2),"12 --> Test op balansnummers anomalien.",paint(kt,0) print=1:tab(01,16),paint(kt,ka3),"13 --> Afdruk bestemming van het resultaat.",paint(kt,0) print=1:tab(01,17),paint(kt,ka4),"14 --> Resultaat rekening in staffelvorm.",paint(kt,0) print=1:tab(01,18),paint(kt,ka5),"15 --> Exploitatierekening globaal.",paint(kt,0) print=1:tab(01,19),paint(kt,ka),"16 --> Balans volgens de jaarrekeningen.",paint(kt,0) print=1:tab(01,20),paint(kt,ka2),"17 --> Afdruk centralisatie v/d rekeningen.",paint(kt,0) &30 print=1:tab(01,24),atb(22) keuz=0 ask=1,i=&1,u=&1:tab(01,24),"Maak uw keuze 1--17",esc,(nz)=keuz if keuz<1 : goto &30 if keuz>18 : goto &30 lijntel=0 print=45:atb(6) print=45:atb(70) if keuz=1 : goto &200 if keuz=2 : goto &400 if keuz=3 : goto &600 if keuz=4 : goto &800 if keuz=5 : goto &700 if keuz=6 : goto &705 if keuz=7 : goto &715 if keuz=8 : goto &50 if keuz=9 : goto &610 if keuz=10 : goto &620 if keuz=11 : goto &630 if keuz=12 : goto &625 if keuz=13 : goto &640 if keuz=14 : goto &635 if keuz=15 : goto &645 if keuz=16 : goto &650 if keuz=17 : goto &45 if keuz=18 : goto &46 goto &30 &45 ;centralisatie ldgo.seg 11 goto &10 &46 ldgo.seg 10 goto &10 &50 print=1:tab(01,24),atb(21) print=1:tab(01,24),"Winst(-) of verlies(+) uit resultaatrekening ",tab(50),": ",(-6n.n2),winst ask=1,i=&10,u=&10:tab(52,24),(-6n.n2)=winst print=1:tab(42,11),(-6n.n2),winst print=1:tab(01,24),atb(21) goto &30 &200 tit=" AFDRUK ALLE REKENINGEN " gosub &1500 gosub &1600 gosub &1700 retkode=1 goto &2000 &400 tit=" AFDRUK ALLE GEOPENDE REKENINGEN " gosub &1500 gosub &1600 gosub &1700 retkode=2 goto &2000 &600 tit=" AFDRUK SALDO'S JAAR EN MAAND " gosub &1500 gosub &1600 gosub &1800 retkode=3 goto &2000 &610 tit=" AFDRUK JAARREKENINGEN " gosub &1500 ldgo.seg 2 goto &10 &620 tit=" AFDRUK RESULTAAT REKENING " gosub &1500 ldgo.seg 4 goto &10 &625 ldgo.seg 5 goto &10 &630 ldgo.seg 3 goto &10 &635 tit=" RESULTAAT IN STAFFELVORM " gosub &1500 ldgo.seg 6 goto &10 &640 tit=" BESTEMMING VAN HET RESULTAAT " gosub &1500 ldgo.seg 7 goto &10 &645 tit=" TOELICHTING EXPLOITATIEREKENING " gosub &1500 ldgo.seg 8 goto &10 &650 tit=" BALANS VOLGENS DE JAARREKENINGEN " gosub &1500 ldgo.seg 9 goto &10 &700 tit=" AFDRUK JAARBALANS MET IN MINDERING DEZE MAAND " retkode=6 gosub &1500 gosub &1600 gosub &1960 goto &4000 &705 tit=" AFDRUK MAANDBALANS DEZE MAAND " retkode=7 gosub &1500 gosub &1600 gosub &1960 goto &6000 &715 tit=" AFDRUK JAARBALANS HUIDIGE TOESTAND " retkode=6 gosub &1500 gosub &1600 gosub &1960 goto &8000 &800 tit=" VERGELIJK VORIG JAAR DIT JAAR " gosub &1500 gosub &1600 gosub &1900 retkode=4 goto &2000 &1500 print=1:clear,paint(kh,ka),naam,paint(kt,0),tit,tab(70),ndat print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0) j=" " ask=1,i=&10,u=&10:tab(01,24),"O.K. om af te drukken Y-N : "=j j=large(j) if j="N" : goto &10 if j="Y" : goto &1505 goto &1500 &1505 return &1600 print=45:tabv(01),naam," ",tit print=45:tabv(01),gener(117,hto) lijntel=2 ;twee lijnen bedrukt return &1700 print=45:tabv(01),"Reknr",tab(08),"Omschrijving",tab(33),"Meca",tab(39),"Klas",tab(47),"Debet M.",tab(57),"Kredit M.",tab(68),"SALDO M.",tab(76),"* "," Debet J.",tab(90),"Kredit J.",tab(110),"Saldo J." print=45:tabv(01),gener(117 ,hto) lijntel=lijntel+2 ;twee lijnen bijgedrukt return &1800 print=45:tabv(01),"Reknr",tab(08),"Omschrijving",tab(33),"Meca",tab(39),"Klas",tab(45),"Saldo M.",tab(57),"Saldo J.",tab(68),"Saldo vj" print=45:tabv(01),gener(75,hto) lijntel=lijntel+2 return &1900 print=45:tabv(01),"Reknr",tab(08),"Omschrijving",tab(33),"Meca",tab(39),"Klas",tab(45),"Saldo J.",tab(60),"Saldo vj",tab(75),"% + - " print=45:tabv(01),gener(117,hto) lijntel=lijntel+2 return &1950 print=45:tabv(01),"Klasse",tab(08),"Saldo maand",tab(20),"Saldo jaar",tab(32),"Saldo vj" print=45:tabv(01),gener(42,hto) lijntel=lijntel+2 return &1960 print=45:atb(70) print=45:tabv(01),gener(111,hto) print=45:tabv(01)," Reknr",tab(09),"Omschrijving",tab(35),"Balans",tab(43),"Klasse",tab(57),"Debet",tab(69),"Kredit",tab(93),"Debet",tab(104),"Kredit",tab(111)," " lijntel=lijntel+2 if retkode=6 print=45:tabv(01)," ",tab(57),"Jaar",tab(69),"Jaar",tab(93),"Saldo",tab(104),"Saldo",tab(111)," " lijntel=lijntel+1 goto &1980 endif print=45:atb(70) print=45:tabv(01)," ",tab(57),"Maand",tab(69),"Maand",tab(93),"Saldo",tab(104),"Saldo",tab(111)," " lijntel=lijntel+1 &1980 print=45:tabv(01),gener(111,hto) lijntel=lijntel+1 return &2000 open=8:&1,e for i=1 to 20 sommen(i)=0 next i totklaj=0 totklam=0 &2005 if lijntel>printtel(07)-8 : gosub &2400 down=8:&2006,e,rekdown goto &2008 &2006 print=1:tab(01,24),"Fout search rekkode : ",e," ",rekkode stop &2008 tusrek=rekkode ouklas=tusklas &2010 sommen(1)=sommen(1)+rekdeb(1) sommen(2)=sommen(2)+rekcred(1) sommen(3)=sommen(3)+rekdeb(2) sommen(4)=sommen(4)+rekcred(2) ;invullen van totalen sommen(5)=sommen(5)+rekdeb(3) sommen(6)=sommen(6)+rekcred(3) if retkode=3 : goto &2015 if retkode=4 : goto &2015 if ouklas=tusklas : goto &2014 &2011 print=45:tabv(01),tab(65),"__________",tab(108),"__________" print=45:tabv(01),tab(30),"Totaal klasse ",ouklas,tab(65),(-7.n2),totklam,tab(108),totklaj print=45:tabv(01)," " lijntel=lijntel+3 if retkode=6 : goto &2110 totklam=0 totklaj=0 ouklas=tusklas &2014 totklam=totklam+rekdeb(1)-rekcred(1) totklaj=totklaj+rekdeb(2)-rekcred(2) &2015 if lijntel>printtel(07)-8 : gosub &2400 if retkode<>1 : goto &2040 gosub &2200 ;afdruk serie 1 goto &2100 &2040 if retkode<>2 : goto &2060 if rekdeb(1)<>0 : goto &2050 if rekdeb(2)<>0 : goto &2050 if rekcred(2)<>0 : goto &2050 if rekcred(1)<>0 : goto &2050 goto &2100 &2050 gosub &2200 goto &2100 &2060 if retkode<>3 : goto &2080 if rekdeb(1)<>0 : goto &2065 if rekdeb(2)<>0 : goto &2065 if rekdeb(3)<>0 : goto &2065 if rekcred(3)<>0 : goto &2065 if rekcred(2)<>0 : goto &2065 if rekcred(1)<>0 : goto &2065 goto &2100 &2065 gosub &2205 goto &2100 &2080 if retkode<>4 : goto &2090 a=conv(substr(ndat,4,2)) a=a-1 sal1=0 sal2=0 search=9,rekkode:&2081,e,centrec for tel=1 to a saldo=centdeb(tel)-centcred(tel) sal1=sal1+saldo next tel &2081 search=10,rekkode:&2082,e,centrec for tel=1 to a saldu=centdeb(tel)-centcred(tel) sal2=sal2+saldu next tel &2082 if sal2<>0 : goto &2083 percent=999999 percent=roun(percent,2) goto &2085 &2083 salda=sal1*100/sal2 percent=salda-100 percent=roun(percent,2) &2085 if lijntel>printtel(07)-8 : gosub &2400 if (sal1=0) or (sal2=0) : goto &2100 print=45:tabv(01),rekkode," ",rekoms," ",rekmeko," ",(u3),rekklas,tab(45),(-12.n2),sal1,tab(60),(-12.n2),sal2,tab(75),(-12.n2),percent lijntel=lijntel+1 goto &2100 &2090 if rekklas<>" " : goto &2091 rekklas="000" &2091 for i=1 to 100 if klasse(i)<>rekklas : goto &2092 klasto1(i)=klasto1(i)+rekdeb(1)-rekcred(1) klasto2(i)=klasto2(i)+rekdeb(2)-rekcred(2) klasto3(i)=klasto3(i)+rekdeb(3)-rekcred(3) goto &2100 &2092 if klasse(i)=" " : goto &2094 next i goto &2100 &2094 klasse(i)=rekklas klasto1(i)=rekdeb(1)-rekcred(1) klasto2(i)=rekdeb(2)-rekcred(2) &2100 if lijntel>printtel(07)-8 : gosub &2400 down=8:&2105,e,rekdown tusrek=rekkode goto &2010 &2105 if retkode=1 : goto &2108 if retkode=2 : goto &2108 if retkode=3 : goto &2120 if retkode=4 : goto &2125 &2108 retkode=6 goto &2011 ;laatste klasse totaal &2110 tustit="Eind totalen : " gosub &2300 print=45:page close=45 goto &10 &2120 tustit="Eind totalen : " gosub &2305 print=45:page close=45 goto &10 &2125 print=45:tabv(01),gener(117,hto) lijntel=lijntel+1 print=45:page close=45 goto &10 &2200 print=45:tabv(01),rekkode," ",rekoms," ",rekmeko,(u)," ",(u3),rekklas,tab(45),(-7.n2),rekdeb(1),tab(55),rekcred(1),tab(65),rekdeb(1)-rekcred(1),tab(78),(-7.n2),rekdeb(2),tab(88),rekcred(2),tab(108),rekdeb(2)-rekcred(2) lijntel=lijntel+1 return &2205 print=45:tabv(01),rekkode," ",rekoms," ",rekmeko,(u)," ",(u3),rekklas,tab(45),(-7.n2),rekdeb(1)-rekcred(1),tab(55),rekdeb(2)-rekcred(2),tab(65),rekdeb(3)-rekcred(3) lijntel=lijntel+1 return &2300 print=45:tabv(01),gener(117,hto) print=45:tabv(01),tab(15),tustit,tab(44),(-8.n2),sommen(1),tab(54),sommen(2),tab(64),sommen(1)-sommen(2),tab(77),sommen(3),tab(87),sommen(4),tab(97),sommen(3)-sommen(4) print=45:tabv(01),gener(117,hto) print=45:tabv(01)," " lijntel=lijntel+4 print=45:page close=45 goto &10 return &2305 print=45:tabv(01),gener(75,hto) print=45:tabv(01),tab(10),tustit,tab(44),(-8.n2),sommen(1)-sommen(2),tab(54),sommen(3)-sommen(4),tab(64),sommen(5)-sommen(6) lijntel=lijntel+2 return &2400 print=45:page print=45:atb(70) print=45:tabv(01),gener(117,hto) print=45:tabv(01),"Vervolg " print=45:tabv(01),gener(117,hto) print=45:tabv(01)," " lijntel=4 return &4000 for e=1 to 4 tot2(e)=0 ;totalen per klasse tot3(e)=0 ;totalen per balans next e open=8:&1,e for i=1 to 20 sommen(i)=0 next i &4005 down=8:&5000,e,rekdown if left(rekkode,1)>"7" : goto &5000 op &4006,e goto &4010 &4006 gosub &9000 &4010 if retkode<>6 : goto &4100 ; lijst dit jaar - deze maand for e=1 to 4 tot1(e)=0 next e tot1(1)=rekdeb(2)-rekdeb(1) ;dit jaar - deze maand tot1(2)=rekcred(2)-rekcred(1) if tot1(1)0 : goto &4026 if tot2(2)<>0 : goto &4026 if tot2(3)<>0 : goto &4026 if tot2(4)<>0 : goto &4026 goto &4027 &4026 print=45:tabv(01),tab(53),"__________",tab(66),"__________",tab(89),"__________",tab(101),"__________" print=45:tabv(01),tab(30),"Totaal klasse ",ouklas,tab(53),(-7.n2),tot2(1),tab(66),tot2(2),tab(89),tot2(3),tab(101),tot2(4),tab(111),tot2(3)-tot2(4) print=45:tabv(01)," " lijntel=lijntel+3 &4027 for e=1 to 4 tot2(e)=0 next e ouklas=tusklas return &4030 if tot1(1)<>0 : goto &4032 if tot1(2)<>0 : goto &4032 if tot1(3)<>0 : goto &4032 if tot1(4)<>0 : goto &4032 goto &4005 &4032 for e=1 to 4 tot3(e)=tot3(e)+tot1(e) ;balans totalen tot2(e)=tot2(e)+tot1(e) ;klasse totalen next e if lijntel>printtel(07)-8 : goto &4040 print=45:page lijntel=0 gosub &1960 &4040 print=45:tabv(01),rekkode,tab(09),rekoms,tab(35),rekmeko,tab(44),rekklas,tab(53),(-7.n2),tot1(1),tab(66),tot1(2),tab(89),tot1(3),tab(101),tot1(4) lijntel=lijntel+1 goto &4005 ;volgende rekening &4100 goto &5000 &5000 ;einde voor deze balans if tot2(1)<>0 : goto &5005 if tot2(2)<>0 : goto &5005 if tot2(3)<>0 : goto &5005 if tot2(4)<>0 : goto &5005 *** alles op nul direct afdrukken eindtotalen goto &5100 &5005 gosub &4025 ;afdrukken totalen per klasse &5100 print=45:tabv(01),gener(111,hto) print=45:tabv(01)," Algemeen eindtotaal ",tab(53),(-7.n2),tot3(1),tab(66),tot3(2),tab(89),tot3(3),tab(101),tot3(4),tab(111),tot3(3)-tot3(4) print=45:tabv(01),gener(111,hto) lijntel=lijntel+3 print=45:page close=45 goto &10 &6000 for e=1 to 4 tot2(e)=0 ;totalen per klasse tot3(e)=0 ;totalen per balans next e open=8:&1,e for i=1 to 20 sommen(i)=0 next i &6005 down=8:&6500,e,rekdown if left(rekkode,1)>"7" : goto &6500 op &6006,e goto &6010 &6006 gosub &9000 &6010 for e=1 to 4 tot1(e)=0 next e tot1(1)=rekdeb(1) tot1(2)=rekcred(1) if tot1(1)0 : goto &6026 if tot2(2)<>0 : goto &6026 if tot2(3)<>0 : goto &6026 if tot2(4)<>0 : goto &6026 goto &6027 &6026 print=45:tabv(01),tab(53),"__________",tab(66),"__________",tab(89),"__________",tab(101),"__________" print=45:tabv(01),tab(30),"Totaal klasse ",ouklas,tab(53),(-7.n2),tot2(1),tab(66),tot2(2),tab(89),tot2(3),tab(101),tot2(4),tab(111),tot2(3)-tot2(4) print=45:tabv(01)," " lijntel=lijntel+3 &6027 for e=1 to 4 tot2(e)=0 next e ouklas=tusklas return &6030 if tot1(1)<>0 : goto &6032 if tot1(2)<>0 : goto &6032 if tot1(3)<>0 : goto &6032 if tot1(4)<>0 : goto &6032 goto &6005 &6032 for e=1 to 4 tot3(e)=tot3(e)+tot1(e) ;balans totalen tot2(e)=tot2(e)+tot1(e) ;klasse totalen next e if lijntel0 : goto &6505 if tot2(2)<>0 : goto &6505 if tot2(3)<>0 : goto &6505 if tot2(4)<>0 : goto &6505 *** alles op nul direct afdrukken eindtotalen goto &6650 &6505 gosub &6025 ;afdrukken totalen per klasse &6650 print=45:tabv(01),gener(111,hto) print=45:tabv(01)," Algemeen eindtotaal ",tab(53),(-7.n2),tot3(1),tab(66),tot3(2),tab(89),tot3(3),tab(101),tot3(4),tab(111),tot3(3)-tot3(4) print=45:tabv(01),gener(111,hto) lijntel=lijntel+3 print=45:page close=45 goto &10 &8000 ;jaarbalans for e=1 to 4 tot2(e)=0 ;totalen per klasse tot3(e)=0 ;totalen per balans next e open=8:&1,e for i=1 to 20 sommen(i)=0 next i &8005 down=8:&8500,e,rekdown if left(rekkode,1)>"7" : goto &8500 op &8006,e goto &8010 &8006 gosub &9000 &8010 for e=1 to 4 tot1(e)=0 next e tot1(1)=rekdeb(2) tot1(2)=rekcred(2) if tot1(1)0 : goto &8026 if tot2(2)<>0 : goto &8026 if tot2(3)<>0 : goto &8026 if tot2(4)<>0 : goto &8026 goto &8027 &8026 print=45:tabv(01),tab(53),"__________",tab(66),"__________",tab(89),"__________",tab(101),"__________" print=45:tabv(01),tab(30),"Totaal klasse ",ouklas,tab(53),(-7.n2),tot2(1),tab(66),tot2(2),tab(89),tot2(3),tab(101),tot2(4),tab(111),tot2(3)-tot2(4) print=45:tabv(01)," " lijntel=lijntel+3 &8027 for e=1 to 4 tot2(e)=0 next e ouklas=tusklas return &8030 if tot1(1)<>0 : goto &8032 if tot1(2)<>0 : goto &8032 if tot1(3)<>0 : goto &8032 if tot1(4)<>0 : goto &8032 goto &8005 &8032 for e=1 to 4 tot3(e)=tot3(e)+tot1(e) ;balans totalen tot2(e)=tot2(e)+tot1(e) ;klasse totalen next e if lijntel0 : goto &8505 if tot2(2)<>0 : goto &8505 if tot2(3)<>0 : goto &8505 if tot2(4)<>0 : goto &8505 *** alles op nul direct afdrukken eindtotalen goto &8650 &8505 gosub &8025 ;afdrukken totalen per klasse &8650 print=45:tabv(01),gener(111,hto) print=45:tabv(01)," Algemeen eindtotaal ",tab(53),(-7.n2),tot3(1),tab(66),tot3(2),tab(89),tot3(3),tab(101),tot3(4),tab(111),tot3(3)-tot3(4) print=45:tabv(01),gener(111,hto) lijntel=lijntel+3 &8700 print=45:page close=45 goto &10 &9000 if e=83 : goto &8700 if e=115 : goto &8700 &9010 return eseg 0 segment 2 for e=1 to 100 klasto1(e)=0 klasto2(e)=0 klasto3(e)=0 next e open=8:&200,e &10 print=45:atb(64) print=45:tabv(01),gener(79,hto) print=45:tabv(01)," ",naam," BALANS VOLGENS DE JAARREKENINGEN : ",tab(79)," " print=45:tabv(01),gener(79,hto) print=45:tabv(01)," AFDRUK A C T I V A",tab(54)," Kode",tab(61)," Bedragen",tab(79)," " &12 print=45:tabv(01)," ",tab(54)," ",tab(61)," ",tab(79)," " print=45:tabv(01),gener(79,hto) print=1:tab(01,05),atb(22) print=1:tab(01,05),paint(kh,ka),"INLEZEN REKENINGEN ",paint(kt,0) &15 down=8:&40,e,rekdown print=1:tab(01,24),rekoms," ",reknum if reknum>"599999" : goto &50 rekmeko=large(rekmeko) if rekmeko=" " : goto &15 for e=1 to 100 if rekmeko=meckla(e) : goto &20 next e goto &15 &20 klasto1(e)=klasto1(e)+rekdeb(02)-rekcred(02) klasto2(e)=klasto2(e)+rekdeb(03)-rekcred(03) goto &15 &40 print=1:tab(01,05),atb(22) &50 for e=1 to 30 aa(e)=0 next e aa(01)=klasto1(01) aa(02)=klasto1(02) aa(04)=klasto1(03) aa(05)=klasto1(04) aa(06)=klasto1(05) aa(07)=klasto1(06) aa(08)=klasto1(07) aa(09)=klasto1(08) aa(10)=klasto1(09) aa(12)=klasto1(10) aa(13)=klasto1(11) aa(15)=klasto1(12) aa(16)=klasto1(13) aa(18)=klasto1(14) aa(19)=klasto1(15) aa(20)=klasto1(16) aa(21)=klasto1(17) aa(22)=klasto1(18) * TEST BTW REKENING + of - : bij overige vorderingen if klasto1(48)<0 : goto &52 klasto1(15)=klasto1(15)+klasto1(48) klasto1(48)=0 &52 if klasto1(17)>0 : goto &54 klasto1(41)=klasto1(41)-abs(klasto1(17)) klasto1(17)=0 * TEST KLANTEN,LEVERANCIERS,VOORSCHOTTEN &54 if klasto1(46)<0 : goto &56 klasto1(14)=klasto1(14)+klasto1(46) klasto1(46)=0 * TEST KLANTEN,LEVERANCIERS,VOORSCHOTTEN &56 if klasto1(44)<0 : goto &58 klasto1(14)=klasto1(14)+klasto1(44) klasto1(44)=0 * TEST KLANTEN,LEVERANCIERS,VOORSCHOTTEN &58 if klasto1(14)>0 : goto &60 klasto1(44)=klasto1(44)-abs(klasto1(14)) klasto1(14)=0 * TEST KLANTEN,LEVERANCIERS,VOORSCHOTTEN &60 if klasto1(15)>0 : goto &62 klasto1(44)=klasto1(44)-abs(klasto1(15)) klasto1(15)=0 * TEST OVERLOPENDE REKENINGEN &62 if klasto1(18)>0 : goto &64 klasto1(51)=klasto1(51)-abs(klasto1(18)) klasto1(18)=0 * TEST OVERLOPENDE REKENINGEN &64 if klasto1(51)<0 : goto &66 klasto1(18)=klasto1(18)+klasto1(51) klasto1(51)=0 &66 klasto1(29)=klasto1(29)+winst &100 for e=1 to 20 tat(e)=0 next e for e=1 to 9 tat(1)=tat(1)+klasto1(e) next e print=45:tabv(01),"³ ",tab(20),"VASTE ACTIVA",tab(54),"³20/28",tab(61),"³",tab(68),(-7n.n2),tat(1),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ I. Oprichtingskosten",tab(54),"³20",tab(61),"³",tab(68),(-7n.n2),klasto1(1),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ II. Immateriele vaste active (toel.I,A)",tab(54),"³21",tab(61),"³",tab(68),(-7n.n2),klasto1(2),tab(79),(e),"³" tat(2)=0 for e=3 to 8 tat(2)=tat(2)+klasto1(e) next e print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ III. Materiele vaste activa (toel. I,B)",tab(54),"³22/27",tab(61),"³",tab(68),(-7n.n2),tat(2),tab(79),(e),"³" print=45:tabv(01),"³ A. Terreinen en gebouwen ",tab(54),"³22",tab(61),"³",(-9n.n2),klasto1(3),tab(79),(e),"³" print=45:tabv(01),"³ B. Installaties,machines en uitrusting",tab(54),"³23",tab(61),"³",(-9n.n2),klasto1(4),tab(79),(e),"³" print=45:tabv(01),"³ C. Meubilair en rollend materieel",tab(54),"³24",tab(61),"³",(-9n.n2),klasto1(5),tab(79),(e),"³" print=45:tabv(01),"³ D. Leasing en soortgelijke rechten ",tab(54),"³25",tab(61),"³",(-9n.n2),klasto1(6),tab(79),(e),"³" print=45:tabv(01),"³ E. Overige materiele vaste activa",tab(54),"³26",tab(61),"³",(-9n.n2),klasto1(7),tab(79),(e),"³" print=45:tabv(01),"³ F. Activa in aanbouw en vooruitbetalingen",tab(54),"³27",tab(61),"³",(-9n.n2),klasto1(8),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ IV. Financiele vaste activa (toel. I,C en II)",tab(54),"³28",tab(61),"³",tab(68),(-7n.n2),klasto1(9),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" for e=10 to 18 tat(3)=tat(3)+klasto1(e) next e print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(20),"VLOTTENDE ACTIVA",tab(54),"³29/58",tab(61),"³",tab(68),(-7n.n2),tat(3),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" tat(4)=klasto1(10)+klasto1(11) print=45:tabv(01),"³ V. Vorderingen op meer dan 1 jaar ",tab(54),"³29",tab(61),"³",tab(68),(-7n.n2),tat(4),tab(79),(e),"³" print=45:tabv(01),"³ A. Handelsvorderingen ",tab(54),"³290",tab(61),"³",(-9n.n2),klasto1(10),tab(79),(e),"³" print=45:tabv(01),"³ B. Overige vorderingen ",tab(54),"³291",tab(61),"³",(-9n.n2),klasto1(11),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" tat(5)=klasto1(12)+klasto1(13) print=45:tabv(01),"³ VI. Voorraden en bestellingen in uitvoering",tab(54),"³3",tab(61),"³",tab(68),(-7n.n2),tat(5),tab(79),(e),"³" print=45:tabv(01),"³ A. Voorraden ",tab(54),"³30/36",tab(61),"³",(-9n.n2),klasto1(12),tab(79),(e),"³" print=45:tabv(01),"³ B. Bestellingen in uitvoering ",tab(54),"³37",tab(61),"³",(-9n.n2),klasto1(13),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" tat(6)=klasto1(14)+klasto1(15) print=45:tabv(01),"³ VII. Vorderingen op ten hoogste 1 jaar ",tab(54),"³40/41",tab(61),"³",tab(68),(-7n.n2),tat(6),tab(79),(e),"³" print=45:tabv(01),"³ A. Handelsvorderingen ",tab(54),"³40",tab(61),"³",(-9n.n2),klasto1(14),tab(79),(e),"³" print=45:tabv(01),"³ B. Overige vorderingen ",tab(54),"³41",tab(61),"³",(-9n.n2),klasto1(15),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³VIII. Geldbelleggingen (toel. III)",tab(54),"³50/53",tab(61),"³",tab(68),(-7n.n2),klasto1(16),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ IX. Liquide middelen",tab(54),"³54/58",tab(61),"³",tab(68),(-7n.n2),klasto1(17),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ X. Overlopende rekeningen ",tab(54),"³490/1",tab(61),"³",tab(68),(-7n.n2),klasto1(18),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),gener(79,hto) saldo=tat(1)+tat(3) print=45:tabv(01),tab(35),"TOTAAL DER ACTIVA",tab(54),"³20/58",tab(61),"³",tab(68),(-7n.n2),saldo,tab(79),(e),"³" print=45:tabv(01),tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),tab(54),gener(26,hto) print=45:page lijntel=0 print=45:tabv(01),gener(79,hto) print=45:tabv(01),"³ ",naam," BALANS VOLGENS DE JAARREKENINGEN ",tab(79),"³" print=45:tabv(01),gener(79,hto) print=45:tabv(01),"³ AFDRUK P A S S I V A",tab(54),"³ Code",tab(61),"³ Bedragen",tab(79),"³" print=45:tabv(01),"³",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),gener(79,hto) tat(6)=0 for e=19 to 51 klasto1(e)=-klasto1(e) next e for e=19 to 30 tat(6)=tat(6)+klasto1(e) next e print=45:tabv(01),"³ ",tab(20),"EIGEN VERMOGEN",tab(54),"³10/15",tab(61),"³",tab(68),(-7n.n2),tat(6),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" tat(7)=klasto1(19)+klasto1(20) print=45:tabv(01),"³ I. Kapitaal (toel III)",tab(54),"³10",tab(61),"³",tab(68),(-7n.n2),tat(7),tab(79),(e),"³" print=45:tabv(01),"³ A. Geplaatst kapitaal ",tab(54),"³100",tab(61),"³",(-9n.n2),klasto1(19),tab(79),(e),"³" print=45:tabv(01),"³ B. Niet opgevraagd kapitaal",tab(54),"³101",tab(61),"³",(-9n.n2),klasto1(20),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ II. Uitgifte premies ",tab(54),"³11",tab(61),"³",tab(68),(-7n.n2),klasto1(21),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ III. Herwaarderingsmeerwaarden ",tab(54),"³12",tab(61),"³",tab(68),(-7n.n2),klasto1(22),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" lijntel=lijntel+11 tat(8)=0 for e=23 to 28 tat(8)=tat(8)+klasto1(e) next e print=45:tabv(01),"³ IV. Reserves ",tab(54),"³13",tab(61),"³",tab(68),(-7n.n2),tat(8),tab(79),(e),"³" print=45:tabv(01),"³ A. Wettelijke reserves ",tab(54),"³130",tab(61),"³",(-9n.n2),klasto1(23),tab(79),(e),"³" tat(9)=klasto1(24)+klasto1(25)+klasto1(26) print=45:tabv(01),"³ B. Onbeschikbare reserves",tab(54),"³131",tab(61),"³",(-9n.n2),tat(9),tab(79),(e),"³" print=45:tabv(01),"³ 1.Voor eigen aandelen",tab(54),"³1310",tab(61),"³",(-7n.n2),klasto1(25),tab(79),(e),"³" print=45:tabv(01),"³ 2.Andere ",tab(54),"³1311",tab(61),"³",(-7n.n2),klasto1(26),tab(79),(e),"³" print=45:tabv(01),"³ C. Belastingsvrije reserves",tab(54),"³132",tab(61),"³",(-9n.n2),klasto1(27),tab(79),(e),"³" print=45:tabv(01),"³ D. Beschikbare reserves",tab(54),"³133",tab(61),"³",(-9n.n2),klasto1(28),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ V. Overgedragen verlies/winst",tab(54),"³14",tab(61),"³",tab(68),(-7n.n2),klasto1(29),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ VI. Kapitaal subsidies ",tab(54),"³15",tab(61),"³",tab(68),(-7n.n2),klasto1(30),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" tat(8)=klasto1(31) print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(10),"VOORZIENINGEN VOOR RISICO'S EN KOSTEN",tab(54),"³16",tab(61),"³",tab(68),(-7n.n2),tat(8),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ VII. Voorzien, voor risico's en kosten (toel. IV)",tab(54),"³16",tab(61),"³",tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" tat(9)=0 for e=32 to 51 tat(9)=tat(9)+klasto1(e) next e print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(20),"SCHULDEN ",tab(54),"³17/49",tab(61),"³",tab(68),(-7n.n2),tat(9),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" tat(10)=0 for e=32 to 38 tat(10)=tat(10)+klasto1(e) next e print=45:tabv(01),"³VIII. Schulden op meer dan 1 jaar (toel V.)",tab(54),"³17",tab(61),"³",tab(68),(-7n.n2),tat(10),tab(79),(e),"³" tat(11)=klasto1(33)+klasto1(34)+klasto1(35) print=45:tabv(01),"³ A. Financiele schulden",tab(54),"³170/4",tab(61),"³",(-9n.n2),tat(11),tab(79),(e),"³" print=45:tabv(01),"³ 1.kredietinst,leasing",tab(54),"³172/3",tab(61),"³",(-7n.n2),klasto1(34),tab(79),(e),"³" print=45:tabv(01),"³ 2.overige leningen ",tab(54),"³174/0",tab(61),"³",(-7n.n2),klasto1(35),tab(79),(e),"³" print=45:tabv(01),"³ B. Handelsschulden ",tab(54),"³175",tab(61),"³",(-9n.n2),klasto1(36),tab(79),(e),"³" print=45:tabv(01),"³ C. Ontvangen vooruitbetalingen op bestellingen",tab(54),"³176",tab(61),"³",(-9n.n2),klasto1(37),tab(79),(e),"³" print=45:tabv(01),"³ D. Overige schulden ",tab(54),"³178/9",tab(61),"³",(-9n.n2),klasto1(38),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" tat(11)=0 for e=39 to 50 tat(11)=tat(11)+klasto1(e) next e print=45:tabv(01),"³ IX. Schulden op ten hoogste 1 jaar (toel V.)",tab(54),"³42/48",tab(61),"³",tab(68),(-7n.n2),tat(11),tab(79),(e),"³" print=45:tabv(01),"³ A. Schulden meer dan 1 jaar,verval binnen 1 j.",tab(54),"³42",tab(61),"³",(-9n.n2),klasto1(39),tab(79),(e),"³" tat(13)=klasto1(40)+klasto1(41)+klasto1(42) print=45:tabv(01),"³ B. Financiele schulden",tab(54),"³43",tab(61),"³",(-9n.n2),tat(13),tab(79),(e),"³" print=45:tabv(01),"³ 1.kredietinstelling",tab(54),"³430/8",tab(61),"³",(-7n.n2),klasto1(41),tab(79),(e),"³" print=45:tabv(01),"³ 2.overige leningen ",tab(54),"³439",tab(61),"³",(-7n.n2),klasto1(42),tab(79),(e),"³" tat(14)=klasto1(43)+klasto1(44)+klasto1(45) print=45:tabv(01),"³ C. Handelsschulden ",tab(54),"³44",tab(61),"³",(-9n.n2),tat(14),tab(79),(e),"³" print=45:tabv(01),"³ 1.Leveranciers",tab(54),"³440/4",tab(61),"³",(-7n.n2),klasto1(44),tab(79),(e),"³" print=45:tabv(01),"³ 2.Te betalen wissels",tab(54),"³441",tab(61),"³",(-7n.n2),klasto1(45),tab(79),(e),"³" print=45:tabv(01),"³ D. Ontvangen vooruitbetalingen op bestellingen",tab(54),"³46",tab(61),"³",(-9n.n2),klasto1(46),tab(79),(e),"³" print=45:tabv(01),gener(79,hto) print=45:page lijntel=1 &110 tat(14)=klasto1(47)+klasto1(48)+klasto1(49) print=45:tabv(01),"³ E. Schulden mbt belastingen,bezold,soc.lasten",tab(54),"³45",tab(61),"³",(-9n.n2),tat(14),tab(79),(e),"³" print=45:tabv(01),"³ 1.Belastingen ",tab(54),"³450/3",tab(61),"³",(-7n.n2),klasto1(48),tab(79),(e),"³" print=45:tabv(01),"³ 2.Bezoldigingen en sociale lasten",tab(54),"³454/9",tab(61),"³",(-7n.n2),klasto1(49),tab(79),(e),"³" print=45:tabv(01),"³ F. Overige schulden ",tab(54),"³47/48",tab(61),"³",(-9n.n2),klasto1(50),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ X. Overlopende rekeningen ",tab(54),"³490/1",tab(61),"³",tab(68),(-7n.n2),klasto1(51),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),gener(79,hto) saldo=tat(6)+tat(8)+tat(9) print=45:tabv(01),tab(35),"TOTAAL DER PASSIVA",tab(54),"³10/49",tab(61),"³",tab(68),(-7n.n2),saldo,tab(79),(e),"³" print=45:tabv(01),tab(54),gener(26,hto) print=45:page close=45 lijntel=0 &200 ret.seg eseg 2 segment 3 open=8:&100,e &10 print=1:clear,paint(kh,ka),naam,paint(kt,0)," WIJZIGEN MECANOGRAFISCHE NUMMERS ",tab(70),ndat print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0) print=1:tab(01,03),atb(22) print=1:tab(01,05),paint(kh,ka),"INLEZEN REKENINGEN ",paint(kt,0) &15 down=8:&90,e,rekdown print=1:tab(01,07),rekoms," ",reknum," ",rekmeko op &17,e goto &20 &16 print=1:tab(45,07),rekmeko rekmeko=shl(rekmeko) ask=1:" "=j modif=8,reknum:&15,e,rekrec goto &15 &17 gosub &200 &20 if reknum>"6" : goto &15 if reknum<"1" : goto &15 if left(reknum,3)="100" : goto &25 if left(reknum,3)="101" : goto &26 if left(reknum,2)="11" : goto &27 if left(reknum,2)="12" : goto &28 if left(reknum,3)="130" : goto &29 if left(reknum,4)="1310" : goto &30 if left(reknum,4)="1311" : goto &31 if left(reknum,3)="132" : goto &32 if left(reknum,3)="133" : goto &33 if left(reknum,2)="14" : goto &34 if left(reknum,2)="15" : goto &35 if left(reknum,3)="16" : goto &36 if left(reknum,3)="172" : goto &37 if left(reknum,3)="173" : goto &37 if left(reknum,3)="174" : goto &38 if left(reknum,3)="175" : goto &39 if left(reknum,3)="176" : goto &40 if left(reknum,3)="178" : goto &41 if left(reknum,3)="179" : goto &41 if left(reknum,2)="42" : goto &42 if left(reknum,3)="430" : goto &43 if left(reknum,3)="431" : goto &43 if left(reknum,3)="432" : goto &43 if left(reknum,3)="433" : goto &43 if left(reknum,3)="434" : goto &43 if left(reknum,3)="435" : goto &43 if left(reknum,3)="436" : goto &43 if left(reknum,3)="437" : goto &43 if left(reknum,3)="438" : goto &43 if left(reknum,3)="439" : goto &44 if left(reknum,3)="440" : goto &45 if left(reknum,3)="441" : goto &46 if left(reknum,2)="46" : goto &47 if left(reknum,3)="450" : goto &48 if left(reknum,3)="451" : goto &48 if left(reknum,3)="452" : goto &48 if left(reknum,3)="453" : goto &48 if left(reknum,3)="454" : goto &49 if left(reknum,3)="455" : goto &49 if left(reknum,3)="456" : goto &49 if left(reknum,3)="457" : goto &49 if left(reknum,3)="458" : goto &49 if left(reknum,3)="459" : goto &49 if left(reknum,2)="47" : goto &50 if left(reknum,2)="48" : goto &50 if left(reknum,3)="490" : goto &51 if left(reknum,2)="20" : goto &55 if left(reknum,2)="21" : goto &56 if left(reknum,2)="22" : goto &57 if left(reknum,2)="23" : goto &58 if left(reknum,2)="24" : goto &59 if left(reknum,2)="25" : goto &60 if left(reknum,2)="26" : goto &61 if left(reknum,2)="27" : goto &62 if left(reknum,2)="28" : goto &63 if left(reknum,3)="290" : goto &64 if left(reknum,3)="291" : goto &65 if left(reknum,2)="30" : goto &66 if left(reknum,2)="31" : goto &66 if left(reknum,2)="32" : goto &66 if left(reknum,2)="33" : goto &66 if left(reknum,2)="34" : goto &66 if left(reknum,2)="35" : goto &66 if left(reknum,2)="36" : goto &66 if left(reknum,2)="37" : goto &67 if left(reknum,2)="40" : goto &68 if left(reknum,2)="41" : goto &69 if left(reknum,2)="50" : goto &70 if left(reknum,2)="51" : goto &70 if left(reknum,2)="52" : goto &70 if left(reknum,2)="53" : goto &70 if left(reknum,2)="54" : goto &71 if left(reknum,2)="55" : goto &71 if left(reknum,2)="56" : goto &71 if left(reknum,2)="57" : goto &71 if left(reknum,2)="58" : goto &71 goto &15 &25 rekmeko="P01A" goto &16 &26 rekmeko="P01B" goto &16 &27 rekmeko="P02" goto &16 &28 rekmeko="P03" goto &16 &29 rekmeko="P04A" goto &16 &30 rekmeko="P04B1" goto &16 &31 rekmeko="P04B2" goto &16 &32 rekmeko="P04C" goto &16 &33 rekmeko="P04D" goto &16 &34 rekmeko="P05" goto &16 &35 rekmeko="P06" goto &16 &36 rekmeko="P07" goto &16 &37 rekmeko="P08A1" goto &16 &38 rekmeko="P08A2" goto &16 &39 rekmeko="P08B" goto &16 &40 rekmeko="P08C" goto &16 &41 rekmeko="P08D" goto &16 &42 rekmeko="P09A" goto &16 &43 rekmeko="P09B1" goto &16 &44 rekmeko="P09B2" goto &16 &45 rekmeko="P09C1" goto &16 &46 rekmeko="P09C2" goto &16 &47 rekmeko="P09D" goto &16 &48 rekmeko="P09E1" goto &16 &49 rekmeko="P09E2" goto &16 &50 rekmeko="P09F" goto &16 &51 rekmeko="P10" goto &16 &55 rekmeko="A01" goto &16 &56 rekmeko="A02" goto &16 &57 rekmeko="A03A" goto &16 &58 rekmeko="A03B" goto &16 &59 rekmeko="A03C" goto &16 &60 rekmeko="A03D" goto &16 &61 rekmeko="A03E" goto &16 &62 rekmeko="A03F" goto &16 &63 rekmeko="A04" goto &16 &64 rekmeko="A05A" goto &16 &65 rekmeko="A05B" goto &16 &66 rekmeko="A06A" goto &16 &67 rekmeko="A06B" goto &16 &68 rekmeko="A07A" goto &16 &69 rekmeko="A07B" goto &16 &70 rekmeko="A08" goto &16 &71 rekmeko="A09" goto &16 &72 rekmeko="A10" goto &16 &90 print=1:tab(01,05),atb(22) &100 ret.seg &200 if e=83 : goto &100 if e=115 : goto &100 return eseg 3 segment 4 print=1:clear,paint(kh,ka),naam,paint(kt,0)," RESULTAAT REKENING ",tab(70),ndat print=1:tab(01,02),gener(79,hto) for e=1 to 100 klasto1(e)=0 klasto2(e)=0 klasto3(e)=0 next e for e=1 to 20 tat(e)=0 next e &5 print=45:atb(64) print=45:tabv(01),gener(79,hto) print=45:tabv(01),"³ ",naam," RESULTAAT REKENING ",tab(79),"³" print=45:tabv(01),gener(79,hto) lijntel=3 print=1:tab(01,05),paint(kh,ka),"INLEZEN REKENINGEN ",paint(kt,0) reknum="6 " search=8,reknum:&10,e,rekrec &10 down=8:&100,e,rekdown print=1:tab(01,07),rekoms," ",reknum if left(reknum,2)="60" : goto &60 if left(reknum,2)="61" : goto &61 if left(reknum,2)="62" : goto &62 if left(reknum,3)="630" : goto &83 if left(reknum,3)="631" : goto &84 if left(reknum,3)="632" : goto &84 if left(reknum,3)="633" : goto &84 if left(reknum,3)="634" : goto &84 if left(reknum,3)="635" : goto &85 if left(reknum,3)="636" : goto &85 if left(reknum,3)="637" : goto &85 if left(reknum,3)="638" : goto &85 if left(reknum,3)="639" : goto &85 if left(reknum,3)="640" : goto &86 if left(reknum,3)="641" : goto &86 if left(reknum,3)="642" : goto &86 if left(reknum,3)="643" : goto &86 if left(reknum,3)="644" : goto &86 if left(reknum,3)="645" : goto &86 if left(reknum,3)="646" : goto &86 if left(reknum,3)="647" : goto &86 if left(reknum,3)="648" : goto &86 if left(reknum,3)="649" : goto &87 if left(reknum,2)="65" : goto &65 if left(reknum,2)="66" : goto &66 if left(reknum,2)="67" : goto &67 if left(reknum,2)="68" : goto &68 if left(reknum,2)="69" : goto &69 if left(reknum,2)="70" : goto &70 if left(reknum,2)="71" : goto &71 if left(reknum,2)="72" : goto &72 if left(reknum,2)="73" : goto &73 if left(reknum,2)="74" : goto &74 if left(reknum,2)="75" : goto &75 if left(reknum,2)="76" : goto &76 if left(reknum,2)="77" : goto &77 if left(reknum,2)="78" : goto &78 if left(reknum,2)="79" : goto &79 goto &10 &60 e=2 ; goto &99 &61 e=3 ; goto &99 &62 e=4 ; goto &99 &65 e=11 ; goto &99 &66 e=17 ; goto &99 &67 e=18 ; goto &99 &68 e=20 ; goto &99 &69 e=3 goto &99 &70 e=1 ; goto &98 &71 e=12 ; goto &98 &72 e=13 ; goto &98 &73 e=14 ; goto &98 &74 e=15 ; goto &98 &75 e=10 ; goto &98 &76 e=16 ; goto &98 &77 e=19 ; goto &98 &78 e=3 goto &99 &79 e=3 goto &99 &83 e=5 ; goto &99 &84 e=6 ; goto &99 &85 e=7 ; goto &99 &86 e=8 ; goto &99 &87 e=9 ; goto &99 &88 e=3 goto &99 &89 e=3 goto &99 &90 e=3 goto &99 &91 e=3 goto &99 &92 e=3 goto &99 &93 e=3 goto &99 &94 e=3 goto &99 &95 &98 tat(e)=tat(e)+abs(rekdeb(02)-rekcred(02)) goto &10 &99 tat(e)=tat(e)+rekdeb(02)-rekcred(02) goto &10 &100 print=1:tab(01,05),atb(22) print=45:tabv(01),"³ RESULTATEN REKENING ",tab(60),"³ Kode",tab(67),"³ Bedragen",tab(79),"³" print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" print=45:tabv(01),"³ I. Bedrijfsopbrengsten en bedrijfskosten",tab(60),"³ ",tab(67),"³",tab(79),"³" print=45:tabv(01),"³ Omzet ",tab(60),"³70",tab(67),"³",(-7n.n2),tat(1),tab(79),(e),"³" print=45:tabv(01),"³ Handelsgoederen,grond en hulpstoffen",tab(60),"³60",tab(67),"³",(-7n.n2),tat(2),tab(79),(e),"³" print=45:tabv(01),"³ Diensten en diverse goederen ",tab(60),"³61",tab(67),"³",(-7n.n2),tat(3),tab(79),(e),"³" print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" lijntel=lijntel+7 salda=tat(1)-tat(2)-tat(3) if salda<0 : goto &105 print=45:tabv(01),"³ A.B Bruto marge (positief saldo) ",tab(60),"³61/70",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 goto &110 &105 print=45:tabv(01),"³ A.B Bruto marge (negatief saldo) ",tab(60),"³61/70",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 &110 print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" print=45:tabv(01),"³ C. Bezold.,soc.lasten en pensioen,(Toel VI.) (-)",tab(60),"³62",tab(67),"³",(-7n.n2),tat(4),tab(79),(e),"³" print=45:tabv(01),"³ D. Afschrijvingen en waardeverminderingen op ",tab(60),"³ ",tab(67),"³",tab(79),(e),"³" print=45:tabv(01),"³ oprichtingskosten op imm. en mat. activa (-)",tab(60),"³630",tab(67),"³",(-7n.n2),tat(5),tab(79),(e),"³" salda=salda-tat(4)-tat(5) print=45:tabv(01),"³ E. Waardeverminderingen op voorraden,bestelling ",tab(60),"³ ",tab(67),"³",tab(79),(e),"³" lijntel=lijntel+5 if tat(6)<0 : goto &115 print=45:tabv(01),"³ in uitv. en handelsvord. (- toevoeging) (-)",tab(60),"³631/4",tab(67),"³",(-7n.n2),tat(6),tab(79),(e),"³" lijntel=lijntel+1 salda=salda-tat(6) goto &120 &115 tat(6)=abs(tat(6)) print=45:tabv(01),"³ in uitv. en handelsvord. (+ terugnemingen) (+)",tab(60),"³631/4",tab(67),"³",(-7n.n2),tat(6),tab(79),(e),"³" lijntel=lijntel+1 salda=salda+tat(6) &120 print=45:tabv(01),"³ F. Voorzieningen voor risico's en kosten ",tab(60),"³ ",tab(67),"³",tab(79),(e),"³" lijntel=lijntel+1 if tat(7)<0 : goto &125 print=45:tabv(01),"³ (- toevoegingen ) (-)",tab(60),"³635/7",tab(67),"³",(-7n.n2),tat(7),tab(79),(e),"³" lijntel=lijntel+1 salda=salda-tat(7) goto &130 &125 tat(7)=abs(tat(7)) print=45:tabv(01),"³ (+ bestedingen en terugnemingen ) (+)",tab(60),"³635/7",tab(67),"³",(-7n.n2),tat(7),tab(79),(e),"³" lijntel=lijntel+1 salda=salda+tat(7) &130 print=45:tabv(01),"³ G. Andere bedrijfskosten (-)",tab(60),"³640/8",tab(67),"³",(-7n.n2),tat(8),tab(79),(e),"³" salda=salda-tat(8) print=45:tabv(01),"³ H. Als herstructurering geact. bedrijfskosten (+)",tab(60),"³649",tab(67),"³",(-7n.n2),tat(9),tab(79),(e),"³" salda=salda+tat(9) print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" lijntel=lijntel+3 if salda<0 : goto &135 print=45:tabv(01),"³ Bedrijfswinst ",tab(60),"³70/64",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 goto &140 &135 print=45:tabv(01),"³ Bedrijfsverlies ",tab(60),"³60/74",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 &140 print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" print=45:tabv(01),"³ II. Financiele opbrengsten (+)",tab(60),"³75",tab(67),"³",(-7n.n2),tat(10),tab(79),(e),"³" print=45:tabv(01),"³ Financiele kosten (-)",tab(60),"³65",tab(67),"³",(-7n.n2),tat(11),tab(79),(e),"³" salda=salda+tat(10)-tat(11) print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" lijntel=lijntel+4 if salda<0 : goto &145 print=45:tabv(01),"³ Winst uit gewone bedrijfsuitvoering,voor belasting",tab(60),"³70/65",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 goto &150 &145 print=45:tabv(01),"³ Verlies uit gewone bedrijfsuitvoering,voor belasting",tab(60),"³65/70",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 gosub &1000 &150 print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" print=45:tabv(01),"³ III. Uitzonderlijke opbrengsten (+)",tab(60),"³71",tab(67),"³",(-7n.n2),tat(12),tab(79),(e),"³" print=45:tabv(01),"³ -------------------------- (+)",tab(60),"³72",tab(67),"³",(-7n.n2),tat(13),tab(79),(e),"³" print=45:tabv(01),"³ (+)",tab(60),"³73",tab(67),"³",(-7n.n2),tat(14),tab(79),(e),"³" print=45:tabv(01),"³ (+)",tab(60),"³74",tab(67),"³",(-7n.n2),tat(15),tab(79),(e),"³" print=45:tabv(01),"³ (+)",tab(60),"³76",tab(67),"³",(-7n.n2),tat(16),tab(79),(e),"³" print=45:tabv(01),"³ Uitzonderlijke kosten (-)",tab(60),"³66",tab(67),"³",(-7n.n2),tat(17),tab(79),(e),"³" print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" salda=salda+tat(12)+tat(13)+tat(14)+tat(15)+tat(16)-tat(17) lijntel=lijntel+8 gosub &1000 if salda<0 : goto &155 print=45:tabv(01),"³ Winst van het boekjaar voor belasting ",tab(60),"³70/66",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 goto &160 &155 print=45:tabv(01),"³ Verlies van het boekjaar voor belasting ",tab(60),"³66/70",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 gosub &1000 &160 print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" lijntel=lijntel+1 gosub &1000 saldu=tat(18)-tat(17) if saldu<0 : goto &165 print=45:tabv(01),"³ IV. Belastingen op het resultaat (+)",tab(60),"³67/77",tab(67),"³",(-7n.n2),saldu,tab(79),(e),"³" lijntel=lijntel+1 salda=salda+saldu goto &170 &165 saldu=abs(saldu) print=45:tabv(01),"³ IV. Belastingen op het resultaat (-)",tab(60),"³67/77",tab(67),"³",(-7n.n2),saldu,tab(79),(e),"³" lijntel=lijntel+1 salda=salda-saldu &170 print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" lijntel=lijntel+1 gosub &1000 if salda<0 : goto &175 print=45:tabv(01),"³ Winst van het boekjaar (+)",tab(60),"³70/67",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 goto &180 &175 print=45:tabv(01),"³ Verlies van het boekjaar (-)",tab(60),"³67/70",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 gosub &1000 &180 print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" print=45:tabv(01),"³ V. Overboeking naar de belastingsvrije reserves (-)",tab(60),"³68",tab(67),"³",(-7n.n2),tat(20),tab(79),(e),"³" salda=salda-tat(20) print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" lijntel=lijntel+3 gosub &1000 if salda<0 : goto &185 print=45:tabv(01),"³ Te bestemmen winst van het boekjaar (+)",tab(60),"³70/68",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 goto &190 &185 print=45:tabv(01),"³ Te bestemmen verlies van het boekjaar (-)",tab(60),"³68/70",tab(67),"³",(-7n.n2),salda,tab(79),(e),"³" lijntel=lijntel+1 &190 print=45:tabv(01),"³",tab(60),"³",tab(67),"³",tab(79),"³" print=45:tabv(01),gener(79,hto) print=45:page close=45 lijntel=0 winst=-salda &195 ret.seg &1000 if lijntel"70" : goto &10 tut1=tut1+rekdeb(02)-rekcred(02) goto &5 &10 tut1=abs(tut1) print=45:tabv(01),"³ I. A - B BRUTO MARGE ",tab(79),"³" print=45:tabv(01),"³ ____________________ ",tab(79),"³" print=45:tabv(01),"³ ",tab(79),"³" print=45:tabv(01),"³ ",tab(50),"Kode",tab(79),"³" print=45:tabv(01),"³ ",tab(50),"____",tab(79),"³" print=45:tabv(01),"³ ",tab(79),"³" altot=tut1 print=45:tabv(01),"³ 7. Opbrengsten Omzet (+)",tab(50),"70",tab(66),(-8n.n2),tut1,tab(79),(e),"³" print=45:tabv(01),"³ ____________ ",tab(79),(e),"³" lijntel=lijntel+8 if lijntel>printtel(07)-10 : gosub &95 reknum="70 " search=8,reknum:&13,e,rekrec goto &15 &13 down=8:&20,e,rekdown if left(reknum,2)<>"70" : goto &20 &15 print=45:tabv(01),"³ ",rekoms,tab(56),(-8n.n2),rekcred(02)-rekdeb(02),tab(79),(e),"³" lijntel=lijntel+1 if lijntel>printtel(07)-10 : gosub &95 goto &13 &20 tut1=0 reknum="71 " search=8,reknum:&23,e,rekrec &23 down=8:&30,e,rekdown if left(reknum,2)<>"71" : goto &30 &25 tut1=tut1+rekcred(02)-rekdeb(02) goto &23 &30 print=45:tabv(01),"³ ",tab(79),"³" print=45:tabv(01),"³ Wijzigingen werken in gang",tab(50),"71",tab(66),(-8.n2),tut1,tab(79),(e),"³" altot=altot+tut1 print=45:tabv(01),"³ ",tab(79),"³" lijntel=lijntel+3 if lijntel>printtel(07)-10 : gosub &95 tut1=0 reknum="74 " search=8,reknum:&33,e,rekrec &33 down=8:&40,e,rekdown if left(reknum,2)<>"74" : goto &40 &35 tut1=tut1+rekcred(02)-rekdeb(02) goto &33 &40 print=45:tabv(01),"³ ",tab(79),"³" print=45:tabv(01),"³ Andere bedrijfsopbrengsten",tab(50),"74",tab(66),(-8n.n2),tut1,tab(79),(e),"³" altot=altot+tut1 print=45:tabv(01),"³ ",tab(79),"³" print=45:tabv(01),"³",tab(67),gener(10,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(79),"³" print=45:tabv(01),"³ TOTAAL OPBRENGSTEN",tab(66),(-8n.n2),altot,tab(79),(e),"³" print=45:tabv(01),"³ ",tab(79),"³" print=45:tabv(01),"³ ",tab(79),"³" lijntel=lijntel+8 if lijntel>printtel(07)-10 : gosub &95 tut1=0 reknum="60 " search=8,reknum:&43,e,rekrec &43 down=8:&50,e,rekdown if left(reknum,2)<>"60" : goto &50 &45 tut1=tut1+rekdeb(02)-rekcred(02) goto &43 &50 print=45:tabv(01),"³ 6. KOSTEN Handelsgoederen (-)",tab(50),"60",tab(66),(-8n.n2),tut1,tab(79),(e),"³" print=45:tabv(01),"³ ÄÄÄÄÄ- ",tab(79),(e),"³" lijntel=lijntel+2 altot=altot-tut1 if lijntel>printtel(07)-10 : gosub &95 tut1=0 reknum="603 " search=8,reknum:&53,e,rekrec &53 down=8:&60,e,rekdown if left(reknum,3)<>"603" : goto &60 &55 tut1=tut1+rekdeb(02)-rekcred(02) goto &53 &60 print=45:tabv(01),"³ Algemene onderaannemingen ",tab(45),"603",tab(56),(-8n.n2),tut1,tab(79),(e),"³" lijntel=lijntel+1 if lijntel>printtel(07)-10 : gosub &95 tut1=0 reknum="604 " search=8,reknum:&63,e,rekrec goto &65 &63 down=8:&70,e,rekdown if left(reknum,3)<>"604" : goto &70 &65 tut1=tut1+rekdeb(02)-rekcred(02) goto &63 &70 print=45:tabv(01),"³ Aankopen handelsgoederen ",tab(45),"604",tab(56),(-8n.n2),tut1,tab(79),(e),"³" lijntel=lijntel+1 if lijntel>printtel(07)-10 : gosub &95 tut1=0 reknum="609 " search=8,reknum:&73,e,rekrec &73 down=8:&80,e,rekdown if left(reknum,3)<>"609" : goto &80 &75 tut1=tut1+rekdeb(02)-rekcred(02) goto &73 &80 print=45:tabv(01),"³ Voorraadwijzigingen (+),(-)",tab(45),"609",tab(56),(-8n.n2),tut1,tab(79),(e),"³" if lijntel>printtel(07)-10 : gosub &95 tut1=0 reknum="61 " search=8,reknum:&83,e,rekrec goto &85 &83 down=8:&90,e,rekdown if left(reknum,2)<>"61" : goto &90 &85 tut1=tut1+rekdeb(02)-rekcred(02) goto &83 &90 print=45:tabv(01),"³ Diensten (A.O.) + Diverse (-)",tab(50),"61",tab(66),(-8n.n2),tut1,tab(79),(e),"³" altot=altot-tut1 print=45:tabv(01),"³ ",tab(79),"³" print=45:tabv(01),"³",tab(67),gener(10,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(79),"³" print=45:tabv(01),"³ Totaal A-B Bruto Marge",tab(66),(-8n.n2),altot,(e),tab(79),"³" print=45:tabv(01),"³ ",tab(79),"³" print=45:tabv(01),"³ ",tab(79),"³" print=45:tabv(01),gener(79,hto) print=45:page close=45 lijntel=0 goto &100 &95 print=45:tabv(01),gener(79,hto) print=45:page print=45:tabv(01),gener(79,hto) print=45:tabv(01),"³ ",naam," TOELICHTING EXPLOITATIE REKENING ",tab(79),"³" print=45:tabv(01),gener(79,hto) lijntel=3 return &100 ret.seg eseg 8 segment 9 for e=1 to 100 klasto1(e)=0 klasto2(e)=0 klasto3(e)=0 next e for e=1 to 10 baltot(e)=0 next e open=8:&100,e &10 print=45:atb(6) print=45:atb(70) print=1:tab(01,05),paint(kh,ka),"INLEZEN REKENINGEN",paint(kt,0) &15 down=8:&90,e,rekdown print=1:tab(01,07),reknum," ",rekoms rekmeko=large(rekmeko) if rekmeko=" " : goto &15 for e=1 to 100 if rekmeko=meckla(e) : goto &20 next e goto &15 &20 klasto1(e)=klasto1(e)+rekdeb(02)-rekcred(02) klasto2(e)=klasto2(e)+rekdeb(03)-rekcred(03) goto &15 &90 print=1:tab(01,05),atb(22) &100 for e=1 to 20 tat(e)=0 next e for e=1 to 9 tat(1)=tat(1)+klasto1(e) next e baltot(1)=klasto1(1) baltot(2)=klasto1(2) tat(2)=0 for e=3 to 8 tat(2)=tat(2)+klasto1(e) next e baltot(3)=tat(2) ;Terreinen en gebouwen klasto1(3) ;Installaties,machines en uitrusting",klasto1(4), ;Meubilair en rollend materieel",klasto1(5), ;Leasing en soortgelijke rechten klasto1(6), ;Overige materiele vaste activa",klasto1(7), ;Activa in aanbouw en vooruitbetalingen",klasto1(8), baltot(4)=klasto1(9) tat(4)=klasto1(10)+klasto1(11) baltot(5)=tat(4) ;Handelsvorderingen klasto1(10), ;Overige vorderingen klasto1(11),tab(79),(e),"³" tat(5)=klasto1(12)+klasto1(13) baltot(6)=tat(5) ;Voorraden ",klasto1(12), ;Bestellingen in uitvoering klasto1(13), tat(6)=klasto1(14)+klasto1(15) baltot(7)=tat(6) ;Handelsvorderingen klasto1(14), ;Overige vorderingen klasto1(15), baltot(8)=klasto1(16) baltot(9)=klasto1(17) baltot(10)=klasto1(18) altot=0 for e=1 to 10 altot=altot+baltot(e) next e print=45:tabv(01),gener(79,hto) print=45:tabv(01),"³ ",naam," BALANS VOLGENS DE JAARREKENINGEN ",tab(79),"³" print=45:tabv(01),gener(79,hto) print=45:tabv(01),"³ Totaal der activa ",tab(50),"³",tab(52),(-4.n2),100,(e)," %",tab(60),"³",(-9n.n2),altot,tab(79),(e),"³" print=45:tabv(01),gener(79,hto) print=45:page print=45:tabv(01),gener(79,hto) print=45:tabv(01),"³ ",naam," BALANS VOLGENS DE JAARREKENINGEN ",tab(79),"³" print=45:tabv(01),gener(79,hto) print=45:tabv(01),"³ AFDRUK P A S S I V A",tab(54),"³ Kode",tab(61),"³ Bedragen",tab(79),"³" print=45:tabv(01),"³",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),gener(79,hto) lijntel=6 tat(6)=0 for e=19 to 51 klasto1(e)=-klasto1(e) next e for e=19 to 30 tat(6)=tat(6)+klasto1(e) next e print=45:tabv(01),"³ ",tab(20),"EIGEN VERMOGEN",tab(54),"³10/15",tab(61),"³",tab(66),(-7n.n2),tat(6),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" tat(7)=klasto1(19)+klasto1(20) print=45:tabv(01),"³ I. Kapitaal (toel III)",tab(54),"³10",tab(61),"³",tab(66),(-7n.n2),tat(7),tab(79),(e),"³" print=45:tabv(01),"³ A. Geplaatst kapitaal ",tab(54),"³100",tab(61),"³",(-9n.n2),klasto1(19),tab(79),(e),"³" print=45:tabv(01),"³ B. Niet opgevraagd kapitaal",tab(54),"³101",tab(61),"³",(-9n.n2),klasto1(20),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ II. Uitgifte premies ",tab(54),"³11",tab(61),"³",tab(66),(-7n.n2),klasto1(21),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ III. Herwaarderingsmeerwaarden ",tab(54),"³12",tab(61),"³",tab(66),(-7n.n2),klasto1(22),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" lijntel=lijntel+11 tat(8)=0 for e=23 to 28 tat(8)=tat(8)+klasto1(e) next e print=45:tabv(01),"³ IV. Reserves ",tab(54),"³13",tab(61),"³",tab(66),(-7n.n2),tat(8),tab(79),(e),"³" print=45:tabv(01),"³ A. Wettelijke reserves ",tab(54),"³130",tab(61),"³",(-9n.n2),klasto1(23),tab(79),(e),"³" tat(9)=klasto1(24)+klasto1(25)+klasto1(26) print=45:tabv(01),"³ B. Onbeschikbare reserves",tab(54),"³131",tab(61),"³",(-9n.n2),tat(9),tab(79),(e),"³" print=45:tabv(01),"³ 1.Voor eigen aandelen",tab(54),"³1310",tab(61),"³",(-7n.n2),klasto1(25),tab(79),(e),"³" print=45:tabv(01),"³ 2.Andere ",tab(54),"³1311",tab(61),"³",(-7n.n2),klasto1(26),tab(79),(e),"³" print=45:tabv(01),"³ C. Belastingsvrije reserves",tab(54),"³132",tab(61),"³",(-9n.n2),klasto1(27),tab(79),(e),"³" print=45:tabv(01),"³ D. Beschikbare reserves",tab(54),"³133",tab(61),"³",(-9n.n2),klasto1(28),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ V. Overgedragen verlies/winst",tab(54),"³14",tab(61),"³",tab(66),(-7n.n2),klasto1(29),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" print=45:tabv(01),"³ VI. Kapitaal subsidies ",tab(54),"³15",tab(61),"³",tab(66),(-7n.n2),klasto1(30),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" lijntel=lijntel+12 tat(8)=klasto1(31) print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(10),"VOORZIENINGEN VOOR RISICO'S EN KOSTEN",tab(54),"³16",tab(61),"³",tab(66),(-7n.n2),tat(8),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ VII. Voorzien, voor risico's en kosten (toel. IV)",tab(54),"³16",tab(61),"³",tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" lijntel=lijntel+5 tat(9)=0 for e=32 to 51 tat(9)=tat(9)+klasto1(e) next e print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(20),"SCHULDEN ",tab(54),"³17/49",tab(61),"³",tab(66),(-7n.n2),tat(9),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",gener(17,hto),tab(79),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" lijntel=lijntel+4 tat(10)=0 for e=32 to 38 tat(10)=tat(10)+klasto1(e) next e print=45:tabv(01),"³VIII. Schulden op meer dan 1 jaar (toel V.)",tab(54),"³17",tab(61),"³",tab(66),(-7n.n2),tat(10),tab(79),(e),"³" tat(11)=klasto1(33)+klasto1(34)+klasto1(35) print=45:tabv(01),"³ A. Financiele schulden",tab(54),"³170/4",tab(61),"³",(-9n.n2),tat(11),tab(79),(e),"³" print=45:tabv(01),"³ 1.Kredietinst,leasing",tab(54),"³172/3",tab(61),"³",(-7n.n2),klasto1(34),tab(79),(e),"³" print=45:tabv(01),"³ 2.Overige leningen ",tab(54),"³174/0",tab(61),"³",(-7n.n2),klasto1(35),tab(79),(e),"³" print=45:tabv(01),"³ B. Handelsschulden ",tab(54),"³175",tab(61),"³",(-9n.n2),klasto1(36),tab(79),(e),"³" print=45:tabv(01),"³ C. Ontvangen vooruitbetalingen op bestellingen",tab(54),"³176",tab(61),"³",(-9n.n2),klasto1(37),tab(79),(e),"³" print=45:tabv(01),"³ D. Overige schulden ",tab(54),"³178/9",tab(61),"³",(-9n.n2),klasto1(38),tab(79),(e),"³" print=45:tabv(01),"³ ",tab(54),"³",tab(61),"³",tab(79),"³" lijntel=lijntel+8 if lijntel12 : goto &70 &80 j=" " ask=1,i=&70,u=&70:tab(01,24),"O.K. om af te drukken Y-N : "=j j=large(j) if j="N" : goto &1 if j="B" : goto &90 if j<>"Y" : goto &80 goto &95 &90 print=45:atb(70) &95 gosub &190 &100 down=9:&150,e,centdown if centdeb(selma)=0 : goto &101 goto &105 &101 if centcred(selma)=0 : goto &100 &105 sommen(1)=sommen(1)+centdeb(selma) sommen(2)=sommen(2)+centcred(selma) &110 print=45:tabv(01),"³ ",centkode," ³ ",centoms," ³ ",(-8),centdeb(selma),(e)," ³ ",(-8),centcred(selma),(e)," ³ ",(-8),centdeb(selma)-centcred(selma),(e)," ³" lijntel=lijntel+1 if lijntel"Y" : goto &1 dfile=9:next,e cfile=9,d=216,lk=6:next,e goto &1 &300 j=" " ask=1,i=&1,u=&1:tab(01,24),"O.K. om af te drukken Y-N : "=j j=large(j) if j="N" : goto &1 if j="B" : goto &390 if j<>"Y" : goto &300 &390 print=45:atb(70) &395 gosub &500 &400 down=9:&450,e,centdown print=45:tabv(01),centkode,tab(10),centoms e=0 sommen(3)=0 sommen(4)=0 for tel=1 to 12 sommen(3)=sommen(3)+centdeb(tel) sommen(4)=sommen(4)+centcred(tel) sommen(1)=sommen(1)+centdeb(tel) sommen(2)=sommen(2)+centcred(tel) print=45:tab(34+e),(-8),centdeb(tel)-centcred(tel) e=e+8 next tel print=45:tabv(01),tab(34),(-12),sommen(3),sommen(4),sommen(3)-sommen(4) print=45:tabv(01),gener(132,hto) lijntel=lijntel+3 if lijntel12 : goto &70 &75 selma2=12 ask=1,i=&1,u=&70:tab(01,09),"Geef eindmaand op 1--12 : "=selma2 if selma2<1 : goto &75 if selma>12 : goto &75 if selma2"Y" : goto &80 goto &8000 &90 print=45:atb(70) &8000 print=45:atb(10) print=45:tabv(01),naam," AFDRUK CENTRALISATIE MAAND : ",(n2),selma,(e)," ",(n2),selma2 print=45:tabv(01),gener(117,hto) print=45:tabv(01),gener(111,hto) print=45:tabv(01)," Reknr",tab(09),"Omschrijving",tab(35),"Balans",tab(43),"Klasse",tab(57),"Debet",tab(69),"Kredit",tab(93),"Debet",tab(104),"Kredit",tab(111)," " print=45:tabv(01)," ",tab(57),"Maand",tab(69),"Maand",tab(93),"Saldo",tab(104),"Saldo",tab(111)," " print=45:tabv(01),gener(111,hto) lijntel=6 &8003 for e=1 to 4 tot2(e)=0 ;totalen per klasse tot3(e)=0 ;totalen per balans next e open=8:&1,e for i=1 to 20 sommen(i)=0 next i &8005 down=8:&8500,e,rekdown if left(rekkode,1)>"7" : goto &8500 centkode=rekkode search=9,centkode:&8005,e,centrec for e=1 to 4 tot1(e)=0 next e centtotd=0 centtotc=0 for e=selma to selma2 centtotd=centtotd+centdeb(e) centtotc=centtotc+centcred(e) next e tot1(1)=centtotd tot1(2)=centtotc &8013 if tot1(1)0 : goto &8026 if tot2(2)<>0 : goto &8026 if tot2(3)<>0 : goto &8026 if tot2(4)<>0 : goto &8026 goto &8027 &8026 print=45:tabv(01),tab(53),"__________",tab(66),"__________",tab(89),"__________",tab(101),"__________" print=45:tabv(01),tab(30),"Totaal klasse ",ouklas,tab(53),(-7.n2),tot2(1),tab(66),tot2(2),tab(89),tot2(3),tab(101),tot2(4),tab(111),tot2(3)-tot2(4) print=45:tabv(01) lijntel=lijntel+3 &8027 for e=1 to 4 tot2(e)=0 next e ouklas=tusklas return &8030 if tot1(1)<>0 : goto &8032 if tot1(2)<>0 : goto &8032 if tot1(3)<>0 : goto &8032 if tot1(4)<>0 : goto &8032 goto &8005 &8032 for e=1 to 4 tot3(e)=tot3(e)+tot1(e) ;balans totalen tot2(e)=tot2(e)+tot1(e) ;klasse totalen next e if lijntel0 : goto &8505 if tot2(2)<>0 : goto &8505 if tot2(3)<>0 : goto &8505 if tot2(4)<>0 : goto &8505 *** alles op nul direct afdrukken eindtotalen goto &8650 &8505 gosub &8025 ;afdrukken totalen per klasse &8650 print=45:atb(10) print=45:tabv(01),gener(111,hto) print=45:tabv(01)," Algemeen eindtotaal ",tab(53),(-7.n2),tot3(1),tab(66),tot3(2),tab(89),tot3(3),tab(101),tot3(4),tab(111),tot3(3)-tot3(4) print=45:tabv(01),gener(111,hto) lijntel=lijntel+3 &8700 print=45:page lijntel=0 close=45 goto &1 eseg 11 end 77n.2),klasto1(),tab(79),(e),"³" print=4nt=45:tabv(01),"³ F. Overige schulden ",tab(54),"³47/48",tab(61),"³",(-9n.n2),klasto1(50),ab(79