program "FACTURATIE"
 
dcl e1#,loper#
dcl drfak%,drukfak%,drbon%,pagnum%,bonaant%
dcl faktot=6,totbon=6,totbeta=6,totbet=6,ftotaal=6,omzet=6
dcl som=6,goederen=6,aantal=6,klsaldo=6,betaald=6
dcl zon1=5(5),zon2=5(5),zon3=5(5),zon4=5(5),zon5=5(5)
dcl help$=2,hulpma=5,hulpja=5,hulpdag=5
dcl totbtw=6,btwtot=6(8)
dcl totfak=6,prijs=6
dcl tdat$=6,fdatum$=8,vdatum$=8,fnummer$=6
dcl fdat$=8,drdat$=8,omsch$=3,kode$=1
dcl tekstl1$=60,tekstl2$=60
dcl srtfak$=1

dcl srtfdown$=26
field=m,srtfdown
dcl srtfkode$=25
field=m,srtfkode
dcl srtfsrt$=1,srtftype$=1,srtffak$=6,srtfrec$=15,srtfnul$=2,filler=1
field=m

dcl srtbdown$=26
field=m,srtbdown
dcl srtbkode$=25
field=m,srtbkode
dcl srtbsrt$=1,srtbtype$=1,srtbbed$=8,srtbrec$=15,filler=1
field=m

dcl srtdown$=47
field=m,srtdown
dcl srtkode$=16
field=m,srtkode
dcl srtdat$=6,srtbon%,srtart$=4,srtins%,srtmem%,filler=1,srtrec$=30
field=m

dcl omz$=6
field=m,omz
dcl omzkod$=1,filler=5           
field=m

dcl fact$=256
field=m,fact
dcl fkldat$=8,fklkode$=8,fkltest$=1,fklnum%
field=m

#INCLUDE  "CRINCLU"

field=3
dcl tek$=60(2)

field=4 
dcl factuur$=256

#INCLUDE  "CRINCLU2"

assign=45,"IM0",wr,ex,im

for i=1 to 12
datum(i)=31
next i
datum(04)=30
datum(06)=30
datum(09)=30
datum(11)=30
datum(02)=28
if jaar<>"2008" : goto  &21
if jaar<>"2012" : goto  &21
if jaar<>"2016" : goto  &21
if jaar<>"2020" : goto  &21
if jaar<>"2024" : goto  &21
if jaar<>"2028" : goto  &21
datum(02)=29
&21
assign=02,bestand(15),wr,si               ;bonbestand memrec
assign=14,bestand(16),wr,si               ;bonbestand bonrec
assign=03,left(bestand(05),3)+"TFAK",wr   ;tekstlijnen voor op factuur
assign=04,"FACTUUR",wr                    ;factuurgegevens 
assign=05,bestand(09),wr,si               ;financieel dagboek
assign=06,bestand(11),wr,si               ;klantenhistoriekbestand
assign=07,bestand(10),wr,si               ;openstaande facturen 
assign=08,bestand(08),wr,si               ;verkoopdagboek
assign=09,bestand(02),wr,si               ;maandhistoriek
assign=10,bestand(01),wr,si               ;rekeningenbestand
assign=11,bestand(04),wr,si               ;klantenbestand
assign=12,bestand(05),wr,si               ;artikelbestand

assign=17,bestand(17),wr,si               ;tekslijnen bon
open=4:&1,e
fact=factuur
if fkltest="Y"
assign=02,left(bestand(15),6)+"C",wr,si   ;bonbestand memrec
assign=14,left(bestand(16),6)+"C",wr,si   ;bonbestand bonrec
endif

open=12:&1,e
open=9:&26,e
goto &30
&26
cfile=9,d=50,k=6
&30
open=3:&35,e
goto &60
&35
cfile=3,d=120
tek(1)=" "
tek(2)=" "
&60
goto &100
&90
fact=" " 
factuur=fact
par(3)=param3
assign=1,"CRBFAK"
chain=1:&1,e
stop
&100
open=8:&1,e
verkfok="999999"
verktel=32000
search=8,verkkey:&101,e,verkrec
&101
up=8:&102,e,verkdown
goto &103
&102
verkfok="000000"
&103
param3=par(3)
teller(02)=conv(verkfok)+1
par(3)=param3

;    inlezen
if fklkode=" " : goto &90     ;einde
fdat=fkldat
dat=fdat
ldgo.seg 200
ttest1=test1
fadat=fdat
omsch="   "
a=conv(substr(fdat,4,2)) 
mnd(1)="JANUARI"
mnd(2)="FEBRUARI"
mnd(3)="MAART"
mnd(4)="APRIL"
mnd(5)="MEI"
mnd(6)="JUNI"
mnd(7)="JULI"
mnd(8)="AUGUSTUS"
mnd(9)="SEPTEMBER"
mnd(10)="OKTOBER"
mnd(11)="NOVEMBER"
mnd(12)="DECEMBER"
omsch=large(mnd(a))
klkode=fklkode
search=11,klkode:&90,e,klrec
print=1:clear,paint(kh,ka),naam,atb(0),"  FAKTURATIE VOOR KLANT  ",tab(70),ndat
print=1:tab(01,02),gener(79,hto),atb(0)
&225
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Klantenkode : ",klkode
print=1:tab(01,06),"Naam",tab(20),": ",paint(kh,ka),left(klnaam,len$(klnaam)),atb(0)
print=1:tab(01,07),"Straat",tab(20),": ",klstra
print=1:tab(01,08),"Gemeente",tab(20),": ",klgem
print=1:atb(0),tab(01,10),gener(79,hto),atb(0)
&230
j=" "
ask=1,i=&1,u=&1:tab(01,12),"Deze klant  Y-N : "=j
j=large(j)
if j=" " : goto  &230
if j<>"Y" : goto  &1
goto &1000
&1000
bonklant=klkode
bonnumer=fklnum  
search=14,bonkode:&90,e,bonrec
if bonklant<>klkode : goto  &90    
if bonnumer<>fklnum : goto &90    
klkode=bonklant
search=11,klkode:&1017,e,klrec 
goto &1020
&1017
print=1:tab(01,24),"Fout search klkode : ",(-3),e,(e),klkode
stop
&1020
print=1:tab(01,15),atb(22)
print=1:tab(01,16),"Klantkode  : ",klkode," ",klnaam
print=1:tab(01,17),"Bonklant   : ",bonklant," ",(-7),bonnumer
print=1:tab(01,18),"Datum bon  : ",bondatum," ",(-7),bonfak
&1100
for bonaant=1 to 2 
pagnum=1
gosub &9900
totfak=0
totbeta=bonbeta
totbon=0
totbet=0
verkrec=" "
for i=1 to 5
verkbed(i)=0
next i
verkdeb=0
verkbtw=0
for i=1 to 10
verktbe(i)=0
next i
fakrec=" "
fakklv="K"
faktebe=0
fakont=0
kllvhis=" "
hisbed1=0
hisbed2=0
hisbtw=0
mahisre=" "
mabedrd=0
mabedrc=0
for e=1 to 5
btwtot(e)=0
next e
totbon=0
totfak=0
drbon=0
drdat=" "
search=14,bonkode:&1162,e,bonrec
drdat=bondatum
goto &1163
&1162
print=1:tab(01,24),"Fout search bonkode : ",e," ",bonkode
stop
&1163
if lijntel<printtel(01)-35 : goto  &1165
gosub &3000
drdat=bondatum
drbon=bonnumer
&1165
memklant=bonklant 
memfaknu=bonnumer
memins=1
&1170
search=02,memkode:&1600,e,memrec(1),488
klkode=bonklant
search=11,klkode:&1190,e,klrec
goto &1200
&1190
stop
&1200
for loper=1 to 15
memhelp=memdeel(loper)
if memart="    " : goto &1600
if memart="GESC" : goto &1250

if memspec="TEKST" 
artkode=memnum
search=17,artkode:&1250,e,specoms
print=45:tabv(01),tab(32),specoms
goto &1250
endif

if memart="BLAN" 
print=45:tabv(01)
goto &1250
endif

artkey=memart
artkey=shr(artkey)
search=12,artkey:&1210,e,artrec(1),750
goto &1215
&1210
ask=1,i=&1,u=&1:tab(01,24),bell,"Artikel ",artkey," reeds geschrapt voor afdruk "=j
print=45:tabv(01),"Artikel : ",artkey," opnieuw inlezen"
print=45:page
close=45
goto &90
&1215
if lijntel<printtel(01)-35 : goto  &1227
gosub &3000
drdat=bondatum
&1227
aantal=memaant
aantal=aantal+conv(memverk)
if aantal=0 : goto  &1250
goederen=aantal*(memprijs-memkort)
goederen=roun(goederen,2)
totbon=totbon+goederen
print=45:atb(64)
print=45:atb(6)
print=45:tabv(01),memart,tab(08),(-6.n2),aantal,(e),tab(18),artoms,tab(45),(-6.n2),goederen/aantal,tab(55),(-6.n2),memkort,tab(65),(-6.n2),goederen,tab(78),(n2),verper(artbtw)
lijntel=lijntel+1
if artoms2<>" "
print=45:tabv(01),tab(18),artoms2
lijntel=lijntel+1
endif
print=1:tab(01,20),"Artikel    : ",paint(kh,ka),memart," ",paint(kh2,ka2),artoms,paint(kh3,ka3),(-6.n2),aantal,atb(0)
drdat=" "
if artreknr=" "
artreknr=vastrek(28)
endif
prijs=goederen
gosub &9990
btwtot(artbtw)=btwtot(artbtw)+goederen
&1250
next loper
memins=memins+1
goto &1170
&1600
totbtw=0
for e=1 to 5
totbtw=totbtw+btwtot(e)
next e
for e=1 to 5
zon1(e)=0
zon2(e)=0
zon3(e)=0
zon4(e)=0
zon5(e)=0
next e
&1910
totfak=0
for e=1 to 5
totfak=totfak+btwtot(e)
next e
e1=1
for e=1 to 5     ;uizoeken van de btw
if btwtot(e)=0 : goto  &1911
zon1(e1)=conv(e)
zon2(e1)=verper(e)
zon3(e1)=btwtot(e)
zon5(e1)=0
zon4(e1)=(zon3(e1)+zon5(e1))*conv(verper(e))
zon4(e1)=zon4(e1)/100
zon4(e1)=roun(zon4(e1),2)
e1=e1+1
&1911
next e
totbtw=0
if large(klland)="B" : goto  &1912
for e=1 to 5
zon1(e)=0
zon2(e)=0
zon3(e)=0
zon4(e)=0
zon5(e)=0
next e
goto &1913
&1912
for e=1 to 5
totbtw=totbtw+zon4(e)
next e
&1913
for e=1 to 5
if zon3(e)<>0 : goto  &1919
zon2(e)=0
zon4(e)=0
zon5(e)=0
&1919
next e
totbtw=roun(totbtw,2)
totbet=totfak+totbtw
hulpdag=conv(left(fdat,2))
hulpdag=hulpdag+conv(teller(20))
hulpma=conv(substr(fdat,4,2))
hulpja=conv(right(fdat,2))

if hulpdag>30 
hulpma=hulpma+1
hulpdag=hulpdag-29
endif

if hulpma>12 
hulpja=hulpja+1
hulpma=hulpma-12
endif

fdatum=fdat
ftotaal=totbet
help=conv(hulpdag)
ndag=shr(help)
help=conv(hulpma)
nmaa=shr(help)
help=conv(hulpja)
njaa=shr(help)
vdatum=ndat      ;vervaldatum in zone zetten
klsaldo=0
fakkode=" "
fakkllv="K"
fakname=klkode
search=7,fakkode:&1932,e,fakrec
&1932
down=7:&1933,e,fakdown

if fakname=klkode 
if faknum<>fnummer 
klsaldo=klsaldo+(faktebe-fakont)
goto &1932
endif
endif

&1933

if abs(totbet-totbeta)<0.10 
totbeta=totbet
endif

klsaldo=klsaldo+totbet-totbeta

search=11,klkode:klrec
print=1:tab(01,21),"Tot. fakt. : ",(-6.n2),totbet 
print=1:tab(01,22),"Ontvangen  : ",(-6.n2),totbeta
print=1:tab(01,23),"Verschil   : ",(-6.n2),totbet-totbeta
print=1:tab(01,24),"Saldo      : ",(-6.n2),klsaldo
print=45:tabv(printtel(01)-(lijntel+35))
print=45:tabv(01),ltb,gener(65,hto),rtb
print=45:tabv(01),vtb,tab(10),"Goederen",tab(45),"Btw % ",tab(52),"Btwbedrag",tab(67),vte
print=45:tabv(01),lto,gener(65,hto),rto
print=45:tabv(01),tab(10),(-5.n2),zon3(1),tab(24),zon5(1),tab(45),(n2.n2),zon2(1),tab(55),(-4.n2),zon4(1)
print=45:tabv(01),tab(10),(-5.n2),zon3(2),tab(24),zon5(2),tab(45),(n2.n2),zon2(2),tab(55),(-4.n2),zon4(2)
print=45:tabv(01),tab(10),(-5.n2),zon3(3),tab(24),zon5(3),tab(45),(n2.n2),zon2(3),tab(55),(-4.n2),zon4(3)
tekstl1=tek(01)
tekstl2=tek(02)
a=len$(tekstl1)
print=45:tabv(02),tab(05),tekstl1
a=len$(tekstl2)
print=45:tabv(01),tab(05),tekstl2
print=45:tabv(03),tab(45),ltb,gener(34,hto),rtb
print=45:tabv(01),tab(45),vtb,tab(50),"Goederen",tab(70),":",(-6.n2),totbon,(e),tab(80),vte
print=45:tabv(01),tab(45),vtb,tab(50),"Tot. Btw",tab(70),":",(-6.n2),totbtw,(e),tab(80),vte
print=45:tabv(01),tab(45),vtb,tab(50),"TOTAAL",tab(70),":",(-6.n2),totbet,(e),tab(80),vte
print=45:tabv(01),tab(45),vtb,tab(50),"Betaald",tab(70),":",(-6.n2),totbeta,(e),tab(80),vte
print=45:tabv(01),tab(45),vtb,tab(50),"Openstaand bedrag",tab(70),":",(-6.n2),klsaldo-klover,(e),tab(80),vte
print=45:tabv(01),tab(45),vtb,tab(50),"Vervaldatum",tab(70),": ",vdatum,tab(80),vte
print=45:tabv(01),tab(45),lto,gener(34,hto),rto
if totbet=totbeta 
print=45:tabv(02),tab(50),"<< VOLDAAN >>"
endif

print=45:tabv(03),"     VERKOOPSVOORWAARDEN : betaalbaar binnen de 15 dagen na factuurdatum."
print=45:tabv(01),"     In geval van betwisting zijn enkel de rechtbanken van Brugge bevoegd."
print=45:page
bondruk="Y"
modif=14,bonkode:next,e,bonrec
next bonaant
ldgo.seg 1
&1945
bonklant=klkode
bonnumer=fklnum
search=14,bonkode:&1960,e,bonrec
bonfak=drfak
bonverw="Y"
&1950 
modif=14,bonkode:&1960,e,bonrec
goto &90    
&1960
print=1:tab(01,24),"Fout bonklant bonnummer : ",e," ",bonklant," ",bonnumer
stop
&3000
lijntel=0
pagnum=pagnum+1
gosub &9910
return

&9900
bonklant=klkode
bonnumer=fklnum 
search=14,bonkode:&9910,e,bonrec
drfak=bonfak
if bonfak<>0 : goto  &9910
verkfok="999999"
verktel=32000
search=8,verkkey:&9902,e,verkrec
&9902
up=8:&9903,e,verkdown
goto &9904
&9903
verkfok="000000"
&9904
teller(02)=conv(verkfok)+1
par(3)=param3
bonfak=teller(02)
drfak=bonfak
modif=14,bonkode:&9905,e,bonrec
goto &9910
&9905
print=1:tab(01,24),"Fout modif bonkode : ",e," ",bonkode
stop
&9910
print=45:atb(69)
print=45:atb(6)
print=45:tabv(01),left(naam,len$(naam))," STORAGE",tab(60),"FACTUUR"
print=45:atb(64)
print=45:tabv(03),adres
print=45:tabv(01),gemeen
print=45:atb(6)
print=45:tabv(01),tab(60),left(klnaam,len$(klnaam))
print=45:atb(64)
print=45:tabv(01)
if fax<>" "
print=45:tabv(00),"Telefax  : ",fax
endif
if kltwnaam<>" " 
print=45:tabv(00),tab(60),left(kltwnaam,len$(kltwnaam))
endif
print=45:tabv(01),"Gsm             : ",telf1
print=45:tabv(01),"Ondernemingsnr. : ",handel,tab(60),klstra
print=45:tabv(01),"Btwnummer       : ","BE.0"+btwnr
print=45:tabv(01),"Banknummer      : ",banknr(1),tab(60),klgem
a=len$(klgem)
print=45:tabv(01),"E-mail          : ",email,tab(60),gener(a,hto)
print=45:tabv(01),"Website         : ",web    
print=45:tabv(05),ltb,gener(78,hto),rtb
print=45:tabv(01),vtb," Kode : ",klkode," Btw : ",kllbtw,klbtwnr," Datum : ",fdat," Nr :",(n6),drfak,(e),"  Blz : ",(-2),pagnum,(e),tab(80),vte
print=45:tabv(01),mtl,gener(78,hto),mtr
print=45:tabv(01),vtb," Kode",tab(08),"Aantal",tab(18),"Artikel",tab(45),"Prijs",tab(55),tab(65),"Goederen",tab(75),"Btw %",tab(80),vte
print=45:tabv(01),lto,gener(78,hto),rto
lijntel=22

fnummer=strn(conv(drfak))
fnummer=shr(fnummer)
return
&9990
for e=1 to 10
if verkteg(e)=" " : goto  &9991
if verkteg(e)=artreknr : goto  &9994
next e
verktbe(1)=verktbe(1)+prijs
goto &9995
&9991
verkteg(e)=artreknr
verktbe(e)=prijs
goto &9995
&9994
verktbe(e)=verktbe(e)+prijs
&9995
return

eseg 0

segment 1

goto &10

&5
ret.seg

&10  
a=conv(substr(fdat,4,2)) 
mnd(1)="JANUARI"
mnd(2)="FEBRUARI"
mnd(3)="MAART"
mnd(4)="APRIL"
mnd(5)="MEI"
mnd(6)="JUNI"
mnd(7)="JULI"
mnd(8)="AUGUSTUS"
mnd(9)="SEPTEMBER"
mnd(10)="OKTOBER"
mnd(11)="NOVEMBER"
mnd(12)="DECEMBER"
omsch=large(mnd(a))
fakoms="FAKT. "+omsch+" "+right(fdat,2)
teller(02)=drfak
par(3)=param3
verkfok=conv(teller(02))
verktel=0
verkdat=fdat
verkkla=klkode
verkfak=fnummer
verkoms=fakoms
verkbtw=totbtw
verkdeb=ftotaal
&30
verkcnf="F"
if totbtw>=0 : goto  &40
verkcnf="K"
&40
for e=1 to 5
verkkod(e)=conv(zon1(e))
verkbed(e)=zon3(e)+zon5(e)
next e
insert=8,verkkey:&5,e,verkrec
&50
hisnaam=klkode
histdat=right(fdat,2)+substr(fdat,4,2)+left(fdat,2)
histel=0
hisdat=fdat
hiskod1="V"
hiskod2=" "
hisbed1=ftotaal
hiskllv=klkode
hisbed2=0
hisfakt=fnummer
hisbetw=" "
hisbtw=totbtw
hisoms="FAKT. "+omsch+" "+right(fdat,2)
&100
histel=teller(07)
insert=6,hiskode:&105,e,kllvhis
goto &110
&105
teller(07)=teller(07)+1
goto &100
&110
teller(07)=teller(07)+1
par(3)=param3
&120
fakkllv="K"
fakname=klkode
fakfak=fnummer 
fakklv="K"
faknaam=klkode
faknum=fnummer
fakdat=fdatum
fakverv=vdatum
faktebe=ftotaal
fakont=totbeta
fakoms="FAKT. "+omsch+" "+right(fdat,2)
if faktebe=0 : goto  &137
if totbeta=totbet : goto  &137
fakteba="Y"
faktest="N"
&132
insert=7,fakkode:&134,e,fakrec
goto &136
&134
modif=7,fakkode:&135,e,fakrec
goto &136
&135
print=1:tab(01,24),"Fout insert fakkode : ",e," ",fakkode
stop
&136
if right(fakdat,2)<right(ndat,2)
insert=20,fakkode:next,e,fakrec
endif

&137
srtfsrt="F"
srtbsrt="B"
srtftype=fakklv
srtbtype=fakklv
srtffak=shr(faknum)
srtfrec=fakkode
srtfnul=" "
srtbrec=fakkode
som=faktebe-fakont
som=roun(som,2)
srtbbed=conv(som)
insert=18,srtbkode:next,e
insert=18,srtfkode:next,e
omzet=0
param3=par(3)
teller(05)=teller(05)+1
par(3)=param3
for i4=1 to 10
omz=verkteg(i4)
if omzkod<>"7" : goto  &138
omzet=omzet+verktbe(i4)
&138
next i4                ;verrekenen totale omzet : exclusief btw en verpakkingen
kljomz=kljomz+omzet    ;verhogen jaaromzet
kltego=kltego+faktebe  ;verhogen te ontvangen van deze klant
if verkcnf="K" : goto  &140       ;kredietnota
kltbtw=kltbtw+totbtw
goto &145
&140
klcred=klcred+totbtw
&145
modif=11,klkode:&146,e,klrec
goto &150
&146
print=1:tab(01,24),"Fout modif klkode : ",e," ",klkode
stop
&150 
reknum=vastrek(01)
search=10,reknum:&161,e,rekrec
goto &162
&161
print=1:tab(01,24),"Fout search rekkode : ",e," ",reknum
stop
&162
if verkcnf="K" : goto  &164
rekdeb(1)=rekdeb(1)+ftotaal
rekdeb(2)=rekdeb(2)+ftotaal
madbcr="D"       ;debitering normale factuur
mabedrd=ftotaal  ;debet bedrag is factuur bedrag
mabedrc=0
goto &170
&164     ;verwerking credit nota
rekcred(1)=rekcred(1)+abs(ftotaal)
rekcred(2)=rekcred(2)+abs(ftotaal)
madbcr="C"
mabedrc=abs(ftotaal)     ;positief maken creditbedrag
mabedrd=0
&170
modif=10,reknum:&171,e,rekrec
goto &172
&171
print=1:tab(01,24),"Fout modif rekkode : ",e," ",reknum
stop
&172
madatum=verkdat
madat=right(madatum,2)+substr(madatum,4,2)+left(madatum,2)
makode="2"       ;kode verkoop
makllev="K"      ;kode klant
maklv=klkode     ;sleutel klant
matgfak=shr(fnummer)  ;factuurnummer
maomsch=fakoms   ;omschrijving factuur
mareknr=reknum   ;klaarzetten voor insert te doen
gosub &500
&175    ;aanpassen btw rekening of btw op credit nota's
if verkcnf="K" : goto  &185
&180
reknum=vastrek(03)
search=10,reknum:&415,e,rekrec
rekcred(1)=rekcred(1)+totbtw
rekcred(2)=rekcred(2)+totbtw
madbcr="C"
mabedrc=totbtw
mabedrd=0
modif=10,reknum:&415,e,rekrec
gosub &500
goto &190
&185
reknum=vastrek(05)
search=10,reknum:&415,e,rekrec
rekdeb(1)=rekdeb(1)+abs(totbtw)
rekdeb(2)=rekdeb(2)+abs(totbtw)
madbcr="D"
mabedrd=abs(totbtw)
mabedrc=0
modif=10,reknum:&415,e,rekrec
gosub &500
&190
for i2=1 to 10
if verkteg(i2)=" " : goto  &200
if verktbe(i2)=0 : goto  &200
reknum=verkteg(i2)
search=10,reknum:&191,e,rekrec
goto &192
&191
print=1:tab(01,24),"Fout modif rekkode : ",e," ",reknum
stop
&192
if verktbe(i2)<0 : goto  &194
rekcred(1)=rekcred(1)+verktbe(i2)
rekcred(2)=rekcred(2)+verktbe(i2)
madbcr="C"
mabedrc=verktbe(i2)
mabedrd=0
goto &198
&194
rekdeb(01)=rekdeb(01)+abs(verktbe(i2))
rekdeb(02)=rekdeb(02)+abs(verktbe(i2))
madbcr="D"
mabedrd=abs(verktbe(i2))
mabedrc=0
&198
modif=10,reknum:&191,e,rekrec
gosub &500
&200
next i2
par(3)=param3
par(4)=param4
if bonbeta=0 : goto &ret 
ldgo.seg 2

&ret
ret.seg

&415
print=1:tab(01,24),"Fout search - modif rekkode : ",e," ",rekkode
stop
&500
if rekhok<>"N" : goto  &501
return
&501
param3=par(3)
mareknr=reknum
&502
matel=teller(01)
makode2=makod9
insert=9,makod9:&504,e,mahisre
goto &505
&504
teller(01)=teller(01)+1
goto &502
&505
teller(01)=teller(01)+1
par(3)=param3
madbcr=" "
mabedrd=0
mabedrc=0
return

eseg 1

segment 2

&10
finrec=" "
fintel=0
finkla=0
finsaldo=0
finbank=0
for i=1 to 10
fintbed(i)=0
next i
hiskllv=" "
hisbed1=0
hisbed2=0
hisbtw=0
mahisre=" "
mabedrd=0
mabedrc=0
&70 
search=11,klkode:&75,e,klrec
goto &80
&75
print=1:tab(01,24),"Fout search klkode : ",e," ",klkode
stop
&80
hisnaam=klkode
histdat=right(fdat,2)+substr(fdat,4,2)+left(fdat,2)
histel=0
hiskod2=" "
hisbed1=totbeta 
hisbed2=0
hisdat=fdat 
hiskod1="F"
hiskllv=klkode
hisfakt=fnummer
hisbetw=vfinrek(02)
hisbtw=0
hisoms=substr(fdat,4,2)+"/"+left(fdat,2)
if totbeta>ftotaal : goto  &81
goto &85
&81
hiskod2="T" 
hisbed2=totbeta-ftotaal
&85
insert=6,hiskode:&90,e,kllvhis
goto &95
&90
histel=histel+1    
teller(07)=teller(07)+1
goto &85
&95
teller(07)=teller(07)+1
par(3)=param3
&100
kltego=kltego-totbeta 
modif=11,klkode:&105,e,klrec
goto &110
&105
if e=74 : goto  &110
print=1:tab(01,24),"Fout modif klkode : ",e," ",klkode
stop
&110
rekkode=vfinrek(02)
search=10,rekkode:&111,e,rekrec
goto &115
&111
print=1:tab(01,24),"Fout search rekkode : ",e," ",rekkode
stop
&115
finoms=fakoms
finuitr=substr(fdat,4,2)+"/"+left(fdat,2)
findat=fdat
finfaknr=fnummer
finklva="K"
finkllv=klkode
finbank=totbeta
finkla=-totbeta
finsaldo=rekdeb(2)-rekcred(2)
finrek=vfinrek(02)
param3=param3
fintel=teller(04)
&116
finkode2=finkode
insert=5,finkode:&119,e,finrec
goto &120
&119
fintel=fintel+1
teller(04)=teller(04)+1
goto &116
&120
teller(04)=teller(04)+1
par(3)=param3
makode="3"
matgfak=shr(fnummer)
rekkode=vfinrek(02)
if finbank>0 : goto  &121
kode="C"
som=-totbeta
ldgo.seg 3
goto &122
&121
kode="D"
som=totbeta 
ldgo.seg 3
&122
if finkla=0 : goto  &125
rekkode=vastrek(01)
if finkla>0 : goto  &123
som=abs(finkla)
kode="C"
ldgo.seg 3
goto &125
&123
som=abs(finkla)
kode="D"
ldgo.seg 3
&125
par(4)=param4
par(3)=param3
ret.seg

eseg 2

segment 3

search=10,rekkode:&601,e,rekrec
goto &602
&601
print=1:tab(01,24),"Fout search rekkode : ",e," ",reknum
stop
&602
if kode="C" : goto  &605
rekdeb(1)=rekdeb(1)+som
rekdeb(2)=rekdeb(2)+som
madbcr="D"
mabedrd=som
mabedrc=0
goto &610
&605
rekcred(1)=rekcred(1)+som
rekcred(2)=rekcred(2)+som
madbcr="C"
mabedrc=som
mabedrd=0
&610
modif=10,rekkode:&601,e,rekrec
rekhok=large(rekhok)
if rekhok="N" : goto  &620
mareknr=rekkode
madatum=fdat
madat=right(madatum,2)+substr(madatum,4,2)+left(madatum,2)
makllev="K"
maklv=klkode
makode="3"
matgfak=shr(fnummer)
maomsch=finuitr
matel=teller(01)
&611
makode2=makod9
insert=9,makod9:&612,e,mahisre
goto &620
&612
matel=matel+1
teller(01)=teller(01)+1
goto &611
&620
teller(01)=teller(01)+1
par(3)=param3
madbcr=" "
mabedrc=0
mabedrd=0
ret.seg

eseg 3

segment 200

test1=conv(right(dat,2))
test1=test1+1900
if test1>1950 : goto  &10
test1=test1+100
&10
test1=test1*372
test2=conv(substr(dat,4,2))
test2=test2*31
test1=test1+test2
test2=conv(left(dat,2))
test1=test1+test2
ret.seg
eseg 200

end