program "CENTRALISATIE"

dcl totmede,totuitv,overdr=6(20),somdeb=6(10),somcre=6(10),afdruk=7(10),suptel%
dcl totaal,totbtw,central$=6(300),som,reken$=6,cendebet=6(300)
dcl cencredit=6(300),credit,debet
dcl altotdb(25),altotcd(25),altotd,altotc
dcl teldb#,bezig$=6,optel=6(10),startnam%,oprek$=6,rek$=6,ende$=1,oldr$=6
dcl totdebl,totcredl,totafcred,totafdeb,totdbtrek,totcdtrek,totkoldb,totkolcd
dcl totnafdb,totnafcd,neluxdb,neluxcd,medecd,mededb,totinvoer,totinves
dcl altatd,altatc,baltotd,baltotc,centrek$=6,selma%,drukken$=1,modi$=1
dcl totd,totc,tots

dcl srtdown$=30
field=m,srtdown
dcl srtkode$=29
field=m,srtkode
dcl srtrec$=6,srtboek$=7,srtdeb,srtcred
field=m

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"

assign=02,bestand(04),si                     ;klantenbestand
assign=03,left(bestand(01),6)+"C",wr,si
assign=04,bestand(03),si                     ;leveranciersbestand
assign=08,bestand(01),wr,si                  ;rekeningen bestand
assign=09,left(bestand(01),3)+"CEN",wr,si    ;rekeningencentralisatie
assign=10,bestand(08),wr,si                  ;verkoopdagboek
assign=11,bestand(07),wr,si                  ;aankoopdagboek
assign=12,bestand(09),wr,si                  ;financiele dagboeken
assign=45,"IM0",wr,ex,im
open=2
open=4
open=8
open=10
open=11
open=12
open=9:&7,e
goto &8
&7
cfile=9,d=216,k=6
&8
dfile=3:next,e
cfile=3,lk=29
a=0
goto &10
&9
ende=" "
phil=1
a=a+1
if a>12 : goto  &1
selma=a
goto &15

&10
phil=0
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  CENTRALISATIE PROGRAMMA ALLE DAGBOEKEN "
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
selma=0
ask=1,i=&1,u=&1,/80=&9:tab(01,06),"Geef maand op  1--12  (return = ALLE maanden) : "=selma 
if selma=0 : goto  &15
if selma<1 : goto  &10
if selma>12 : goto  &10
&15
print=1:tab(01,02),atb(22)
print=1:paint(kl,0),tab(01,02),ltb,gener(77,hto),rtb,tab(50),mtb,tab(65),mtb
print=1:tab(01,03),vtb,tab(50),vtb,tab(65),vtb,tab(79),vte
print=1:tab(01,04),mtl,gener(77,hto),rto,tab(50),kruis,tab(65),kruis,tab(79),mtr
for e=5 to 20
print=1:tab(01,e),vtb,tab(50),vtb,tab(65),vtb,tab(79),vtb
next e
print=1:tab(01,21),lto,gener(77,hto),rto,tab(50),mto,tab(65),mto,paint(kt,0)
print=1:tab(01,22),"Maand : ",(nn),selma
print=1:tab(03,03),paint(kh,ka2),"Type dagboek  ",tab(52),"D E B E T",tab(67),"C R E D I T",paint(kt,0)
lijntel=5

open=10
print=1:tab(03,lijntel),"Dagb : VERKOOPDAGBOEK "
lijntel=lijntel+1
&20
open=11
print=1:tab(03,lijntel),"Dagb : AANKOOPDAGBOEK "
lijntel=lijntel+1

&22
open=12
&25
down=12:&100,e,findown
&26
reknum=finrek
search=8,reknum:&28,e,rekrec
goto &30
&28
rekoms="Niet gevonden"
print=1:tab(01,24),"Rekening niet gevonden : ",reknum
stop
&30
print=1:tab(03,lijntel),"Fin.db ",finrek," ",rekoms
lijntel=lijntel+1
&32
fintel=32000
search=12,finkode:&35,e,finrec
&35
down=12:&100,e,findown
if finrek=reknum : goto  &35
goto &26
&100
lijntel=5
&105
if phil=1 : goto  &110
ask=1,i=&9999,u=&10:tab(01,23),"O.K. om te centraliseren  Y-N :",esc=j
j=large(j)
if j<>"Y" : goto  &9999
&110
print=1:tab(01,23),atb(22)
altotd=0
altotc=0
for e=1 to 24
altotdb(e)=0
altotcd(e)=0
next e
print=1:tab(51,23),(-9.n2),altotd,tab(66),altotc

ldgo.seg 1    ;verkoopdagboek
ldgo.seg 2    ;aankoopdagboek
ldgo.seg 3    ;financiele dagboeken

altotd=0
altotc=0
for e=1 to 24
altotd=altotd+altotdb(e)
altotc=altotcd(e)+altotc
print=1:tab(51,23),(-9.n2),altotd,tab(66),altotc
next e
&120
if selma=0 : goto  &125
ldgo.seg 10
if phil=1 : goto  &121
goto &1 
&121
dfile=3:&122,e
&122
cfile=3,lk=29:&1,e
goto &9
&125
j=" "
print=1:tab(01,24),atb(21)
ask=1,i=&9999,u=&9999:tab(01,24),"Afdruk per rekening Y-N : "=j
j=large(j)
if j="N" : goto  &126
if j<>"Y" : goto  &125
&126
modi=" "
print=1:tab(01,24),atb(21)
ask=1,i=&9999,u=&125:tab(01,24),"Rekeningen aanpassen Y-N : "=modi
modi=large(modi)
if modi="N" : goto  &130
if modi="Y" : goto  &130
if j="N" : goto  &161
&130
gosub &9000
altotd=0
altotc=0
altatd=0
altatc=0
baltotd=0
baltotc=0
bezig=" "
srtkode=" "
search=3,srtkode:&135,e
&135
down=3:&160,e,srtdown
reknum=srtrec
if reknum=bezig : goto  &140
if altatc<>0 : goto  &136
if altatd<>0 : goto  &136
goto &138
&136
if j="N" : goto  &137
print=45:tabv(01),gener(79,hto),bezig," ",left(rekoms,20),(-9.n2),altatd,altatc
lijntel=lijntel+1
&137
altatd=0
altatc=0
&138
bezig=reknum
search=8,reknum:&139,e,rekrec
goto &140
&139
rekoms="Niet gevonden"
print=1:tab(01,24),"Rekening niet gevonden : ",reknum
stop
&140
if j="N" : goto  &150
if lijntel<printtel(07)-10 : goto  &145
print=45:tabv(01),gener(79,hto)
print=45:page
gosub &9000
&145
print=45:tabv(01),"| ",reknum,tab(10),"| ",rekoms,tab(40),"| ",srtboek,tab(50),"|",(-9.n2),srtdeb,tab(64),(e),"|",(-9.n2),srtcred,tab(79),(e),"|"
lijntel=lijntel+1
&150
altatc=altatc+srtcred
altatd=altatd+srtdeb
altotd=altotd+srtdeb
altotc=altotc+srtcred
goto &135
&160
if j="N" : goto  &200
print=45:tabv(01),gener(79,hto),bezig," ",left(rekoms,20),(-9.n2),altatd,altatc
print=45:tabv(01),gener(79,hto)
print=45:tabv(01),"|",tab(10),"|   ALGMEEN TOTAAL               ",tab(40),"|",tab(50),"|",(-9.n2),altotd,tab(64),(e),"|",(-9.n2),altotc,tab(79),(e),"|"
print=45:tabv(01),gener(79,hto)
lijntel=lijntel+4
print=45:page
&161
if j="N" : goto  &200
lijntel=0
print=45:tabv(01),gener(79,hto)
print=45:tabv(01),"| ",naam,"  OVERZICHT DER CENTRALISATIES DER DAGBOEKEN ",tab(79),"|"
print=45:tabv(01),gener(79,hto)
print=45:tabv(01),"| Type dagboek  ",tab(52),"D E B E T",tab(67),"K R E D I T"
print=45:tabv(01),gener(79,hto)
lijntel=5
&200
open=10:&220,e
if j="N" : goto  &220
print=45:tabv(01),"| Dagb : VERKOOPDAGBOEK ",tab(50),"|",(-9.n2),altotdb(lijntel),tab(65),(e),"|",(-9.n2),altotcd(lijntel),tab(79),(e),"|"
lijntel=lijntel+1
&220
open=11:&222,e
if j="N" : goto  &222
print=45:tabv(01),"| Dagb : AANKOOPDAGBOEK ",tab(50),"|",(-9.n2),altotdb(lijntel),tab(65),(e),"|",(-9.n2),altotcd(lijntel),tab(79),(e),"|"
lijntel=lijntel+1
&222
open=12:&300,e
&225
down=12:&300,e,findown
&226
reknum=finrek
search=8,reknum:&228,e,rekrec
goto &230
&228
rekoms="Niet gevonden"
print=1:tab(01,24),"Rekening niet gevonden : ",reknum
stop
&230
if j="N" : goto  &232
print=45:tabv(01),"| Fin.db ",finrek," ",rekoms,tab(50),"|",(-9.n2),altotdb(lijntel),tab(65),(e),"|",(-9.n2),altotcd(lijntel),tab(79),(e),"|"
lijntel=lijntel+1
&232
fintel=32000
search=12,finkode:&235,e,finrec
&235
down=12:&300,e,findown
if finrek=reknum : goto  &235
goto &226
&300
if j="N" : goto  &301
print=45:tabv(01),gener(79,hto)
&301
altotd=0
altotc=0
for e=1 to 24
altotd=altotd+altotdb(e)
altotc=altotc+altotcd(e)
next e
if j="N" : goto  &310
print=45:tabv(01),"|   ALGEMEEN TOTAAL               ",tab(50),"|",(-9.n2),altotd,(e),tab(65),"|",(-9.n2),altotc
print=45:tabv(01),gener(79,hto)
lijntel=lijntel+3
print=45:page
&310
open=9:&320,e
goto &330
&320
cfile=9,d=216,lk=6
&330
gosub &9010
altotd=0
altotc=0
altatd=0
altatc=0
baltotd=0
baltotc=0
bezig=" "
open=3:&9999,e
&335
down=3:&360,e,srtdown
reknum=srtrec
if reknum=bezig : goto  &345
bezig=reknum
if altatc<>0 : goto  &336
if altatd<>0 : goto  &336
goto &338
&336
if j="N" : goto  &337
print=45:tab(70),"|",(-9.n2),altatd,tab(90),(e),"|",(-9.n2),altatc,tab(105),(e),"|"
&337
gosub &9020
altatd=0
altatc=0
&338
search=8,reknum:&339,e,rekrec
goto &340
&339
rekoms="Niet gevonden"
print=1:tab(01,24),"Rekening niet gevonden : ",reknum
stop
&340
if j="N" : goto  &342
if lijntel<printtel(07)-10 : goto  &341
print=45:tabv(01),gener(105,hto)
print=45:page
gosub &9010
&341
print=45:tabv(01),"| ",reknum,tab(10),"| ",rekoms,tab(40),"|",(-9.n2),rekdeb(02),tab(55),(e),"|",(-9.n2),rekcred(02)
lijntel=lijntel+1
&342
baltotd=baltotd+rekdeb(02)
baltotc=baltotc+rekcred(02)
&345
altatc=altatc+srtcred
altatd=altatd+srtdeb
altotd=altotd+srtdeb
altotc=altotc+srtcred
goto &335
&360
if j="N" : goto  &370
print=45:tab(70),"|",(-9.n2),altatd,tab(90),(e),"|",(-9.n2),altatc,tab(105),(e),"|"
gosub &9020
print=45:tabv(01),gener(105,hto)
print=45:tabv(01),"|",tab(10),"|   ALGEMEEN TOTAAL              ",tab(40),"|",(-9.n2),baltotd,tab(55),(e),"|",(-9.n2),baltotc,tab(70),(e),"|",(-9.n2),altotd,tab(90),(e),"|",(-9.n2),altotc,tab(105),(e),"|"
print=45:tabv(01),"|",tab(10),"|   DEB  CRE SAL                 ",tab(55),"|",(-9.n2),totd,totc,tots,(e),tab(105),"|"
print=45:tabv(01),gener(105,hto)
lijntel=lijntel+4
print=45:page
lijntel=0
&370
goto &9700
&9000
if j="N" : goto  &9001
totd=0
totc=0
tots=0
print=45:atb(70)
print=45:atb(6)
print=45:tabv(01),naam,"  Detail der centralisaties : per rekening "
print=45:tabv(01),gener(79,hto)
print=45:tabv(01),"| Nr",tab(10),"|  Omschrijving",tab(40),"| Boek",tab(50),"| D E B E T ",tab(64),"|  C R E D I T ",tab(79),"|"
print=45:tabv(01),gener(79,hto)
lijntel=4
&9001
return
&9010
if j="N" : goto  &9011
print=45:atb(70)
print=45:atb(6)
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  TOTAAL DER CENTRALISATIES REKENING BALANS "
print=1:tab(01,02),gener(79,hto)
print=45:tabv(01),naam,"  Totaal der centralisaties : per rekening / balans "
print=45:tabv(01),gener(105,hto)
print=45:tabv(01),"|",tab(10),"|",tab(40),"| B A L A N S T O T A L E N  ",tab(70),"| C E N T R A L I S A T I E S ",tab(105),"|"
print=45:tabv(01),"| Nr",tab(10),"|  Omschrijving",tab(40),"| D E B E T ",tab(55),"| K R E D I T ",tab(70),"| D E B E T",tab(90),"| K R E D I T",tab(105),"|"
print=45:tabv(01),gener(105,hto)
lijntel=5
&9011
return
&9020
if j="N" : goto  &9025
if altatd=rekdeb(02) : goto  &9022
print=45:(u5),"*DEB*",(-5.n2),altatd-rekdeb(02),(e)
totd=totd+altatd-rekdeb(02)
&9022
if altatc=rekcred(02) : goto  &9024 
print=45:(u5),"*KRE*",(-5.n2),altatc-rekcred(02),(e)
totc=totc+altatc-rekcred(02)
&9024
if altatd-altatc=rekdeb(02)-rekcred(02) : goto  &9025
print=45:(u5),"*SAL*",(-5.n2),altatd-altatc
tots=tots+altatd-altatc
&9025
return
&9700
open=3:&9999,e
altatd=0
altatc=0
down=3:&9800,e,srtdown
bezig=srtrec
goto &9760
&9710
down=3:&9800,e,srtdown
rekkode=srtrec
if rekkode=bezig : goto  &9760
&9720
search=8,bezig:&9730,e,rekrec
goto &9740
&9730
print=1:tab(01,24),"Fout search - modif rekkode : ",e," ",bezig
stop
&9740
rekdeb(01)=altatd
rekcred(01)=altatc
rekdeb(02)=altatd
rekcred(02)=altatc
gosub &9900
&9745
if selma<>0 : goto  &9750
if modi<>"Y" : goto  &9750
modif=8,bezig:&9730,e,rekrec
&9750
bezig=rekkode
altatd=0
altatc=0
&9760
altatc=altatc+srtcred
altatd=altatd+srtdeb
goto &9710
&9800
search=8,bezig:&9730,e,rekrec
&9810
rekdeb(01)=altatd
rekcred(01)=altatc
rekdeb(02)=altatd
rekcred(02)=altatc
if selma<>0 : goto  &9820
if modi<>"Y" : goto  &9820
modif=8,bezig:&9730,e,rekrec
&9820
gosub &9900
goto &9999
&9900
if selma=0 : goto  &9950
centkode=bezig
search=9,centkode:&9905,e,centrec
goto &9910
&9905
for e=1 to 12
centdeb(e)=0
centcred(e)=0
next e
centdeb(selma)=altatd
centcred(selma)=altatc
goto &9920
&9910
centdeb(selma)=centdeb(selma)+altatd
centcred(selma)=centcred(selma)+altatc
&9920
centoms=rekoms
modif=9,centkode:&9930,e,centrec
goto &9950
&9930
insert=9,centkode:&9940,e,centrec
goto &9950
&9940
print=1:tab(01,24),"Fout insert centkode : ",e," ",centkode
stop
&9950
return
&9999
dfile=3:&1,e
goto &1

eseg 0

segment 1

open=10
print=1:tab(03,lijntel),paint(kh,ka),"Dagb : VERKOOPDAGBOEK ",paint(kt,0)
totmede=0
totuitv=0
for i=1 to 9
somdeb(i)=0
somcre(i)=0
next i
for i=1 to 99
central(i)=" "
cendebet(i)=0
cencredit(i)=0
next i
print=1:tab(02,24),"Aantal :",(-5),teller(02)-1
print=1:tab(40,24),"Faktuur :"
print=1:tab(60,24),"Datum :"
&30
down=10:&165,e,verkdown
print=1:tab(32,24),(-5),tab(50),(e),verkfak,tab(70),verkdat
if selma=0 : goto  &35
tel=conv(substr(verkdat,4,2))
if tel<>selma : goto  &30
&35
for i=1 to 9
afdruk(i)=0
next i
klkode=large(verkkla)
search=2,klkode:&40,e,klrec
goto &47
&40
print=1:tab(01,24),"Fout search klkode : ",e," ",klkode
stop
&47
if verkcnf="K" : goto  &60
&48
afdruk(1)=verkdeb
afdruk(2)=0
for i=1 to 5
if verkkod(i)=" " : goto  &59
if verkkod(i)="1" : goto  &49
if verkkod(i)="2" : goto  &50
if verkkod(i)="3" : goto  &51
if verkkod(i)="4" : goto  &52
if verkkod(i)="5" : goto  &53
if verkkod(i)="8" : goto  &54
if verkkod(i)="6" : goto  &56
if verkkod(i)="7" : goto  &57
goto &58
&49
afdruk(3)=verkbed(i)
goto &58
&50
afdruk(4)=verkbed(i)
goto &58
&51
afdruk(5)=verkbed(i)
goto &58
&52
afdruk(6)=verkbed(i)
goto &58
&53
afdruk(7)=verkbed(i)
goto &58
&54
afdruk(7)=verkbed(i)
goto &58
&56
afdruk(7)=verkbed(i)
totmede=totmede+verkbed(i)
goto &58
&57
afdruk(7)=verkbed(i)
totuitv=totuitv+verkbed(i)
goto &58
&58
next i
&59
afdruk(8)=verkbtw
afdruk(9)=verktbe(1)
for i=1 to 9
somdeb(i)=somdeb(i)+afdruk(i)
next i
goto &100

&60
afdruk(1)=0
afdruk(2)=abs(verkdeb)
for i=1 to 5
if verkkod(i)=" " : goto  &99
if verkkod(i)="1" : goto  &66
if verkkod(i)="2" : goto  &67
if verkkod(i)="3" : goto  &68
if verkkod(i)="4" : goto  &69
if verkkod(i)="5" : goto  &70
if verkkod(i)="6" : goto  &72
if verkkod(i)="7" : goto  &73
if verkkod(i)="8" : goto  &71
goto &98
&66
afdruk(3)=verkbed(i)
goto &98
&67
afdruk(4)=verkbed(i)
goto &98
&68
afdruk(5)=verkbed(i)
goto &98
&69
afdruk(6)=verkbed(i)
goto &98
&70
afdruk(7)=verkbed(i)
goto &98
&71
afdruk(7)=verkbed(i)
goto &98
&72
afdruk(7)=verkbed(i)
totmede=totmede+verkbed(i)
goto &98
&73
afdruk(7)=verkbed(i)
totuitv=totuitv+verkbed(i)
goto &98
&98
next i
&99
afdruk(8)=verkbtw
afdruk(9)=verktbe(1)
for i=1 to 9
somcre(i)=somcre(i)+abs(afdruk(i))
next i

&100
credit=0
debet=0
if verkteg(1)=" " : goto  &105
reken=verkteg(1)
som=verktbe(1)
if som>0 : goto  &103
debet=abs(som)
goto &104
&103
credit=som
&104
gosub &900
&105
&110
if verkteg(2)=" " : goto  &150
reken=verkteg(2)
som=verktbe(2)
somdeb(9)=somdeb(9)+verktbe(2)
if som>0 : goto  &113
debet=abs(som)
goto &114
&113
credit=som
&114
gosub &900
&120
for i=3 to 10
if verkteg(i)=" " : goto  &162
reken=verkteg(i)
som=verktbe(i)
if som>0 : goto  &123
debet=abs(som)
goto &124
&123
credit=som
&124
gosub &900
somdeb(9)=somdeb(9)+verktbe(i)
&130
next i
goto &162
&150
&162
goto &30

&165      ;einde down
reken=vastrek(01)
som=somdeb(01)
debet=som
gosub &900
reken=vastrek(01)
som=-somcre(02)
credit=abs(som)
gosub &900
reken=vastrek(03)
som=somdeb(08)
credit=som
gosub &900
reken=vastrek(05)
som=somcre(08)
debet=abs(som)
if som=0 : goto  &180
gosub &900
&180
altotd=0
altotc=0
for i=1 to 99
for i2=1 to 2
afdruk(i2)=0
next i2
reknum=central(i)
if reknum=" " : goto  &215
srtrec=reknum
srtboek="VERKOOP"
srtdeb=cendebet(i)
srtcred=cencredit(i)
altotd=altotd+cendebet(i)
altotc=altotc+cencredit(i)
print=1:tab(01,24),reknum
print=1:tab(51,lijntel),(-9.n2),altotd,tab(66),altotc
insert=3,srtkode:&185,e
goto &215
&185
print=1:tab(01,24),"Fout bijvoegen in sortering ",e," ",srtrec
stop
&215
next i
print=1:tab(03,lijntel),paint(kt,0),"Dagb : VERKOOPDAGBOEK ",paint(kt,0)
altotdb(lijntel)=altotd
altotcd(lijntel)=altotc
lijntel=lijntel+1
ret.seg

&900
for i2=1 to 99
if central(i2)=" " : goto  &903
if central(i2)<>reken : goto  &904
cencredit(i2)=cencredit(i2)+credit
cendebet(i2)=cendebet(i2)+debet
goto &905
&903
central(i2)=reken
cencredit(i2)=credit
cendebet(i2)=debet
goto &905
&904
next i2
&905
credit=0
debet=0
return

&9999
ret.seg

eseg 1

segment 2

open=11
print=1:tab(03,lijntel),paint(kh,ka),"Dagb : AANKOOPDAGBOEK ",paint(kt,0)
totafcred=0
totafdeb=0
totdbtrek=0
totcdtrek=0
totkoldb=0
totkolcd=0
totnafdb=0
totnafcd=0
neluxdb=0
neluxcd=0
medecd=0
mededb=0
totinvoer=0
totdebl=0
totcredl=0
for i=1 to 9
somdeb(i)=0
somcre(i)=0
afdruk(i)=0
next i
for i=1 to 300
cencredit(i)=0
cendebet(i)=0
central(i)=" "
next i
print=1:tab(01,24),"Aantal : ",(-5),teller(03)-1
print=1:tab(40,24),"Faktuur : "
print=1:tab(60,24),"Datum : "
&300
down=11:&1700,e,aankdown
print=1:tab(32,24),(-5),tab(50),(e),aankfak,tab(70),aankdat
if selma=0 : goto  &310
tel=conv(substr(aankdat,4,2))
if tel<>selma : goto  &300
&310
for i=1 to 9
afdruk(i)=0
next i
&320
levkode=large(aanklev)
search=4,aanklev:&330,e,levrec
goto &440
&330
print=1:tab(01,24),"Fout search levkode : ",e," ",levkode
stop
&440
if aankcnf="K" : goto  &600
&450
afdruk(2)=aankcre
afdruk(1)=0
totcredl=totcredl+aankcre
for i=1 to 5
if aankkod(i)=" " : goto  &800
if aankkod(i)="1" : goto  &460
if aankkod(i)="2" : goto  &470
if aankkod(i)="3" : goto  &480
if aankkod(i)="4" : goto  &490
if aankkod(i)="5" : goto  &500
goto &540
&460
afdruk(3)=aankbed(i)
&461
if afdruk(3)<0 : goto  &462
totafdeb=totafdeb+afdruk(3)
goto &540
&462
totafcred=totafcred+abs(afdruk(3))
goto &540
&470
afdruk(5)=-aankbed(i)
afdruk(3)=aankbed(i)
if afdruk(5)<0 : goto  &472
neluxdb=neluxdb+afdruk(5)
goto &461
&472
neluxcd=neluxcd+abs(afdruk(5))
goto &461
&480
afdruk(5)=-aankbed(i)
afdruk(3)=aankbed(i)
if afdruk(5)<0 : goto  &482
mededb=mededb+afdruk(5)
goto &461
&482
medecd=medecd+abs(afdruk(5))
goto &461
&490
afdruk(4)=aankbed(i)
if afdruk(4)<0 : goto  &492
totnafdb=totnafdb+afdruk(4)
goto &540
&492
totnafcd=totnafcd+abs(afdruk(4))
goto &540
&500
afdruk(5)=aankbed(i)
totinvoer=totinvoer+afdruk(5)
goto &540
&540
next i
goto &800

&600
afdruk(1)=abs(aankcre)
afdruk(2)=0
totdebl=totdebl+afdruk(1)
for i=1 to 5
if aankkod(i)=" " : goto  &800
if aankkod(i)="1" : goto  &660
if aankkod(i)="2" : goto  &670
if aankkod(i)="3" : goto  &680
if aankkod(i)="4" : goto  &690
if aankkod(i)="5" : goto  &700
goto &740
&660
afdruk(3)=aankbed(i)
&661
if afdruk(3)<0 : goto  &662
totafdeb=totafdeb+afdruk(3)
goto &740
&662
totafcred=totafcred+abs(afdruk(3))
goto &740
&670
afdruk(5)=-aankbed(i)
afdruk(3)=aankbed(i)
if afdruk(5)<0 : goto  &672
neluxdb=neluxdb+afdruk(5)
goto &661
&672
neluxcd=neluxcd+abs(afdruk(5))
goto &661
&680
afdruk(5)=-aankbed(i)
afdruk(3)=-afdruk(5)
if afdruk(5)<0 : goto  &682
mededb=mededb+afdruk(5)
goto &661
&682
medecd=medecd+abs(afdruk(5))
goto &661
&690
afdruk(4)=aankbed(i)
if afdruk(4)<0 : goto  &692
totnafdb=totnafdb+afdruk(4)
goto &740
&692
totnafcd=totnafcd+abs(afdruk(4))
goto &740
&700
afdruk(5)=aankbed(i)
totinvoer=totinvoer+afdruk(5)
&740
next i
&800
&1000
reken=aankteg(1)
som=aanktbe(1)
credit=0
debet=0
if aankcnf="K" : goto  &1025
totdbtrek=totdbtrek+som
if som<0 : goto  &1022
debet=som
goto &1030
&1022
credit=abs(som)
goto &1030
&1025
if som<0 : goto  &1027
totdbtrek=totdbtrek+som
debet=som
goto &1030
&1027
credit=abs(som)
totcdtrek=totcdtrek+credit
&1030
gosub &8000
&1040
&1041
reken=aankteg(2)
som=aanktbe(2)
if reken=" " : goto  &1600
credit=0
debet=0
if aankcnf="K" : goto  &1045
totdbtrek=totdbtrek+som
if som<0 : goto  &1042
debet=som
goto &1050
&1042
credit=abs(som)
goto &1050
&1045
if som<0 : goto  &1047
totdbtrek=totdbtrek+som
debet=som
goto &1050
&1047
credit=abs(som)
totcdtrek=totcdtrek+credit
&1050
gosub &8000
&1200
for i=3 to 10
if aankteg(i)=" " : goto  &1600
reken=aankteg(i)
som=aanktbe(i)
if reken=" " : goto  &1600
credit=0
debet=0
if aankcnf="K" : goto  &1245
totdbtrek=totdbtrek+som
if som<0 : goto  &1242
debet=som
goto &1250
&1242
credit=abs(som)
goto &1250
&1245
if som<0 : goto  &1247
totdbtrek=totdbtrek+som
debet=som
goto &1250
&1247
credit=abs(som)
totcdtrek=totcdtrek+credit
&1250
gosub &8000
&1260
next i
&1600
goto &300

&1700
reken=vastrek(11)
debet=totnafdb
if debet=0 : goto  &1710
gosub &8000
&1710
credit=totnafcd
if credit=0 : goto  &1720
gosub &8000
&1720
reken=vastrek(02)
credit=totcredl
gosub &8000
reken=vastrek(02)
debet=totdebl
gosub &8000
&1725
reken=vastrek(06)
debet=totafdeb
if debet=0 : goto  &1726
gosub &8000
&1726
reken=vastrek(09)
credit=totafcred
if credit=0 : goto  &1728
gosub &8000
&1728
reken=vastrek(10)
debet=neluxdb
if debet=0 : goto  &1729
gosub &8000
&1729
credit=neluxcd
if credit=0 : goto  &1730
gosub &8000
&1730
reken=vastrek(08)
debet=mededb
if debet=0 : goto  &1731
gosub &8000
&1731
credit=medecd
if credit=0 : goto  &1732
gosub &8000
&1732
&1800
altotd=0
altotc=0
for i=1 to 300
for i2=1 to 2
afdruk(i2)=0
next i2
reknum=central(i)
if reknum=" " : goto  &1820
srtrec=reknum
srtboek="AANKOOP"
srtdeb=cendebet(i)
srtcred=cencredit(i)
altotd=altotd+cendebet(i)
altotc=altotc+cencredit(i)
print=1:tab(01,24),reknum
print=1:tab(51,lijntel),(-9.n2),altotd,tab(66),altotc
insert=3,srtkode:&1805,e
goto &1820
&1805
print=1:tab(01,24),"Fout bijvoegen in sortering ",e,srtrec
stop
&1820
next i
print=1:tab(03,lijntel),paint(kt,0),"Dagb : AANKOOPDAGBOEK ",paint(kt,0)
altotdb(lijntel)=altotd
altotcd(lijntel)=altotc
lijntel=lijntel+1
ret.seg
&8000
for i2=1 to 199
if central(i2)=" " : goto  &8030
if central(i2)<>reken : goto  &8040
cencredit(i2)=cencredit(i2)+credit
cendebet(i2)=cendebet(i2)+debet
goto &8050
&8030
central(i2)=reken
cencredit(i2)=credit
cendebet(i2)=debet
goto &8050
&8040
next i2
&8050
credit=0
debet=0
return

&9999
ret.seg

eseg 2

segment 3     ;financieel

open=12
&10
gosub &9995
gosub &9996
gosub &9998
&15
down=12:&9999,e,findown
&16
if selma=0 : goto  &17
tel=conv(substr(findat,4,2))
if tel<>selma : goto  &15
&17
bezig=finrek
reknum=finrek
search=8,reknum:&20,e,rekrec
goto &25
&20
rekoms="Niet gevonden"
print=1:tab(01,24),"Rekening niet gevonden : ",reknum
stop
&25
print=1:tab(03,lijntel),paint(kh,ka),"Fin.db ",finrek," ",rekoms,paint(kt,0)
print=1:tab(01,24),atb(21)
print=1:tab(01,24),"Datum :"
goto &40
&30
down=12:&379,e,findown
print=1:tab(10,24),findat
if selma=0 : goto  &40
tel=conv(substr(findat,4,2))
if tel<>selma : goto  &30
&40
if finrek<>bezig : goto  &380 
gosub &9995
if finklva<>"K" : goto  &258 
klkode=large(finkllv)
search=2,klkode:&50,e,klrec
goto &55
&50
print=1:tab(01,24),"Fout search klkode : ",e," ",klkode
stop
&55
if finbank>=0 : goto  &60 
afdruk(2)=abs(finbank)        ;betaling creditnota
som=-afdruk(2)                ;crediteren bank
credit=abs(som)
rek=finrek
gosub &900
if finkla<0 : goto  &65
afdruk(3)=abs(finkla)         ;betaling creditnota
som=afdruk(3)                 ;debiteren klanten
rek=vastrek(01)
debet=abs(som)
gosub &900
goto &100                     ;kontrole algemene rekening
&60 
afdruk(1)=abs(finbank)        ;betaling normaal
som=afdruk(1)                 ;debiteren bank
debet=abs(som)
rek=finrek
gosub &900
&65
if finkla>0 : goto  &70
afdruk(4)=abs(finkla)         ;betaling normaal dus crediteren klanten
som=-afdruk(4)                ;crediteren  klanten
credit=abs(som)
rek=vastrek(01)
gosub &900
goto &100
&70
afdruk(3)=abs(finkla)         ;betaling creditnota
som=afdruk(3)                 ;debiteren klanten
rek=vastrek(01)
debet=abs(som)
gosub &900
&100
if fintbed(1)=0 : goto  &320      ;afdrukken gegevens
oprek=fintrek(1)
if fintbed(1)<0 : goto  &254
afdruk(7)=abs(fintbed(1))
som=afdruk(7)                     ;debiteren ar
debet=abs(som)
rek=fintrek(1)
gosub &900
goto &255
&254
afdruk(8)=abs(fintbed(1))
som=-afdruk(8)                    ;crediteren ar
credit=abs(som)
rek=fintrek(1)
gosub &900
&255
goto &320                         ;afdruk gegevens
&258
gosub &9995                       ;init afdruk lijn
if finklva<>"L" : goto  &270      ;test klant of lev of ar
levkode=large(finkllv)
search=4,levkode:&260,e,levrec
goto &261
&260
print=1:tab(01,24),"Fout search levkode : ",e," ",levkode
stop
&261
if finbank<0 : goto  &262
afdruk(2)=abs(finbank)        ;betaling creditnota
afdruk(5)=abs(finkla)         ;betaling creditnota
som=-afdruk(2)
credit=abs(som)
rek=finrek
gosub &900
som=afdruk(5)
debet=abs(som)
if finkla>0
credit=abs(som)
endif
rek=vastrek(02)
gosub &900
goto &263                     ;kontrole algemene rekening
&262
afdruk(1)=abs(finbank)        ;betaling normaal
afdruk(6)=abs(finkla)         ;betaling debet nota
som=afdruk(1)
debet=abs(som)
rek=finrek
gosub &900
som=-afdruk(06)
if finkla<0 : goto  &a
credit=abs(som)
goto &b
&a
debet=abs(som)
&b
rek=vastrek(02)
gosub &900
&263
if fintbed(1)=0 : goto  &265     ;afdrukken gegevens
oprek=fintrek(1)
if fintbed(1)<0 : goto  &264
afdruk(8)=abs(fintbed(1))
som=-afdruk(8)
credit=abs(som)
rek=fintrek(1)
gosub &900
goto &265
&264
afdruk(7)=abs(fintbed(1))
som=+afdruk(07)
debet=abs(som)
rek=fintrek(1)
gosub &900
&265
for i=2 to 10
fintbed(i)=-fintbed(i)
next i
goto &320  
&270
startnam=1
&275
for i4=startnam to 10
if fintrek(i4)=" " : goto  &30
if fintbed(i4)<0 : goto  &280
if startnam=2 : goto  &276
afdruk(2)=abs(fintbed(i4))
&276
afdruk(7)=abs(fintbed(i4))
som=-afdruk(2)
credit=abs(som)
rek=bezig
gosub &900
som=afdruk(7)
debet=abs(som)
rek=fintrek(i4)
gosub &900
goto &290
&280
if startnam=2 : goto  &281
afdruk(1)=abs(fintbed(i4))
&281
afdruk(8)=abs(fintbed(i4))
som=afdruk(1)
debet=abs(som)
rek=bezig
gosub &900
som=-afdruk(8)
credit=abs(som)
rek=fintrek(i4)
gosub &900
&290
oprek=fintrek(i4)
&295
for i=1 to 10
optel(i)=optel(i)+afdruk(i)
next i
&296
if i4<>1 : goto  &297
finfaknr=" "
finsaldo=0
findat=" "
finuitr=" "
&297
gosub &9995
next i4
goto &30
&320                                 ;afdruk kl lv gegevens
for i=1 to 10                        ;cumulisatie van de lijn
optel(i)=optel(i)+afdruk(i)
next i
&333
gosub &9995
startnam=2
goto &275

&379
ende="Y"
&380
altotd=0
altotc=0
for i=1 to 300
for i2=1 to 2
afdruk(i2)=0
next i2
reknum=central(i)
if reknum=" " : goto  &385
srtrec=reknum
srtboek=bezig
srtdeb=cendebet(i)
srtcred=cencredit(i)
altotd=altotd+cendebet(i)
altotc=altotc+cencredit(i)
print=1:tab(01,24),reknum
print=1:tab(51,lijntel),(-9.n2),altotd,tab(66),altotc
insert=3,srtkode:&382,e
goto &385
&382
print=1:tab(01,24),"Fout bijvoegen in sortering :",e," ",srtrec
stop
&385
next i
print=1:tab(03,lijntel),paint(kh,ka),"Fin.db ",bezig," ",rekoms,paint(kt,0)
altotdb(lijntel)=altotd
altotcd(lijntel)=altotc
lijntel=lijntel+1
up=12:&9999,e,findown
if ende=" " : goto  &10
ret.seg

&900
for i2=1 to 300
if central(i2)=" " : goto  &903
if central(i2)<>rek : goto  &904
cencredit(i2)=cencredit(i2)+credit
cendebet(i2)=cendebet(i2)+debet
goto &905
&903
central(i2)=rek
cencredit(i2)=credit
cendebet(i2)=debet
goto &905
&904
next i2
&905
credit=0
debet=0
som=0
return

&9995
for i=1 to 10
afdruk(i)=0
next i
return

&9996
for i=1 to 10
optel(i)=0
next i
return

&9998
for i=1 to 300
central(i)=" "
cendebet(i)=0
cencredit(i)=0
next i
som=0
credit=0
debet=0
return
&9999
ret.seg

eseg 3

segment 10

goto &200
&1
ret.seg

&200
open=10:&220,e
&220
open=11:&222,e
&222
open=12:&300,e
&225
down=12:&300,e,findown
&226
reknum=finrek
search=8,reknum:&230,e,rekrec
&230
fintel=32000
search=12,finkode:&235,e,finrec
&235
down=12:&300,e,findown
if finrek=reknum : goto  &235
goto &226
&300
altotd=0
altotc=0
for e=1 to 24
altotd=altotd+altotdb(e)
altotc=altotc+altotcd(e)
next e
&310
open=9:&320,e
goto &325
&320
cfile=9,d=216,lk=6
&325
down=9:&330,e,centdown
centdeb(selma)=0
centcred(selma)=0
modif=9,centkode:&325,e,centrec
goto &325
&330
altotd=0
altotc=0
altatd=0
altatc=0
baltotd=0
baltotc=0
bezig=" "
open=3:&9999,e
&335
down=3:&360,e,srtdown
reknum=srtrec
if reknum=bezig : goto  &342
bezig=reknum
if altatc<>0 : goto  &337
if altatd<>0 : goto  &337
goto &338
&337
altatd=0
altatc=0
&338
search=8,reknum:&339,e,rekrec
goto &340
&339
print=1:tab(01,24),"Rekening niet gevonden : ",reknum
stop
&340
baltotd=baltotd+rekdeb(02)
baltotc=baltotc+rekcred(02)
&342
altatc=altatc+srtcred
altatd=altatd+srtdeb
altotd=altotd+srtdeb
altotc=altotc+srtcred
goto &335
&360
open=3:&9999,e
altatd=0
altatc=0
down=3:&9800,e,srtdown
bezig=srtrec
goto &9760
&9710
down=3:&9800,e,srtdown
rekkode=srtrec
if rekkode=bezig : goto  &9760
&9720
search=8,bezig:&9730,e,rekrec
goto &9740
&9730
print=1:tab(01,24),"Rekening niet gevonden : ",reknum
stop
&9740
rekdeb(01)=altatd
rekcred(01)=altatc
rekdeb(02)=altatd
rekcred(02)=altatc
gosub &9900
&9750
bezig=rekkode
altatd=0
altatc=0
&9760
altatc=altatc+srtcred
altatd=altatd+srtdeb
goto &9710
&9800
search=8,bezig:&9730,e,rekrec
&9810
gosub &9900
goto &9999
&9900
if selma=0 : goto  &9950
centkode=bezig
search=9,centkode:&9905,e,centrec
goto &9910
&9905
for e=1 to 12
centdeb(e)=0
centcred(e)=0
next e
centdeb(selma)=altatd
centcred(selma)=altatc
goto &9920
&9910
centdeb(selma)=centdeb(selma)+altatd
centcred(selma)=centcred(selma)+altatc
&9920
centoms=rekoms
modif=9,centkode:&9930,e,centrec
goto &9950
&9930
insert=9,centkode:&9940,e,centrec
goto &9950
&9940
print=1:tab(01,24),"Fout insert centkode : ",e," ",centkode
stop
&9950
return
&9999
ask=1:=j
dfile=3:&1,e
goto &1

eseg 10

end

cencredit(i2)+credit
cen00
foro  &8040
cencredit(i2)=cencredit(i2)+cr