program "FINANCIEEL"

dcl aanduid#,retkode#,sleunum%,selindex%,selmaand%,k%
dcl betnum%(200),tottbe=6(200),totbet=6(200),bedrag=6(5)
dcl bankbed=6,totdeb=6,totcre=6,totfin=6,totgino=6,bedrag1=6,bedrag2=6
dcl selbbed=6,selebed=6,selnbed=6,tebetaal=6,betaald=6,teveel=6,teweinig=6
dcl uitrek2=6,marge=6,reksaldo=6,eindsald=6,totaal=6
dcl koersv=6,btwbank=6,bankost=6,korti=6,terugbt=6,voorsch=6,som=6
dcl totfak$=6(200),totkey$=15(200)
dcl vfoms$=24(10),tabfin$=8(24),sleutl$=8(24),tabkey$=15(24)
dcl selffak$=6,selbed$=8,seleed$=8,selgin$=1,keuzom$=6,kode2$=1
dcl selzoek$=10,vindrek$=6,telkey$=15,leessec$=1,tstuit$=6
dcl rekening$=6,reknaam$=25,dt$=8,uitrek$=6,omschr$=15,kode$=1,nummer$=6

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

* srtfsrt = soort B=bedrag  F=faktuurnummer         = srtbsrt
* ftype   = klant - leverancier                     = srtbtype
* ffak    = faktuurnummer           bedrag          = srtbbed
* frec    = key faktuurrecord                       = srtbrec
* fnul    = opvulling                               = hier niet aanw.
 

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 dat3$=8
field=m,dat3
dcl ondat$=1(8)
field=m

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"
 
marge=conv(teller(38))

assign=02,bestand(02),wr,si                 ;maandhistoriek
assign=03,bestand(12),wr,si                 ;leveranciershistoriek
assign=04,bestand(09),wr,si                 ;financieel dagboek
assign=05,bestand(11),wr,si                 ;klantenhistoriek
assign=06,bestand(04),wr,si                 ;klantenbestand
assign=07,left(bestand(09),6)+"B",wr,si     ;bedragensort+fakturensort
assign=08,bestand(01),wr,si                 ;rekeningenbestand
assign=09,bestand(10),wr,si                 ;openstaande fakturen bestand
assign=10,bestand(03),wr,si                 ;leveranciersbestand
open=8:&1,e
ldgo.seg 10
&10
retkode=0                                   ;aanduiding returnspringroutine
gosub &1000
ldgo.seg 3
if retkode=99 : goto  &10
if retkode=98 : goto  &1
&12
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  FINANCIEEL - DIVERS  ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto)
print=1:tab(01,21),gener(79,hto),paint(kt,0)
print=1:tab(01,03),paint(kh,ka),left(reknaam,len$(reknaam)),paint(kt,0),tab(21)," Saldo :",(-8.n2),reksaldo,(e)," Datum ",dt,"  Uit : ",uitrek," ",paint(kh,ka),(-8.n2),eindsald-reksaldo,(e),paint(kt,0)
print=1:tab(01,07),paint(kt,ka2),"1 --> Betalingen vanwege klanten ",paint(kt,0)
print=1:tab(01,09),paint(kt,ka3),"2 --> Betalingen aan leveranciers",paint(kt,0)
print=1:tab(01,11),paint(kt,ka4),"3 --> Overdrachten tussen algemene rekeningen - via basisrekening ",paint(kt,0)
print=1:tab(01,13),paint(kt,ka5),"5 --> Overzicht financieel dagboek op scherm",paint(kt,0)
print=1:tab(01,15),paint(kt,ka2),"6 --> Actualiseren der faktuurnummers en faktuurbedragen",paint(kt,0)
print=1:tab(01,17),paint(kt,ka3),"7 --> Instellen marges betaling op bedragen : ",paint(kt,0),(-3),marge
print=1:tab(01,19),paint(kt,ka4),"8 --> Opzoeken bedragen klanten - leveranciers ",paint(kt,0)
&13
ask=1,i=&10,u=&10:tab(01,23),"Maak uw keuze  1--8",esc=j
j=large(j)
if j="1" : goto  &20
if j="K" : goto  &20
if j="2" : goto  &200
if j="L" : goto  &200
if j="3" : goto  &340
if j="R" : goto  &340
if j="5" : goto  &15
if j="O" : goto  &15
if j="6" : goto  &14
if j="A" : goto  &14
if j="7" : goto  &17
if j="M" : goto  &17
if j="8" : goto  &19
if j="B" : goto  &19
goto &13

&14
ldgo.seg 10   ;sort
goto &12

&15
print=1:tab(01,23),atb(22)
print=1:tab(01,23),"Uw keuze is : ",paint(kh,ka),"Schermoverzicht",paint(kt,0),"   Maand  1--12  ofwel  return=alles"
selmaand=0     
ask=1,i=&12,u=&12:tab(01,24),"Instellen maandkeuze : "=selmaand
if selmaand=0 : goto  &16
if selmaand<1 : goto  &15
if selmaand>12 : goto  &15
&16
ldgo.seg 6
goto &12

&17
print=1:tab(01,23),atb(21),tab(01,23),"Instellen marges"
ask=1,i=&12,u=&12:tab(01,24),"Geef ",paint(kh,ka),"%",paint(kt,0)," marge : "=marge
teller(38)=conv(marge)
par(3)=param3
goto &12

&19
ldgo.seg 11
goto &12

&20
k=0
koersv=0
bankost=0
btwbank=0
retkode=1
gosub &1000
bedrag2=0
bedrag1=0
kode2=" "
keuzom=" "
aanduid=0
voorsch=0
terugbt=0
teveel=0
teweinig=0
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  BETALINGEN VAN KLANTEN ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
print=1:tab(01,03),paint(kh,ka),left(reknaam,len$(reknaam)),paint(kt,0),tab(21)," Saldo :",(-8.n2),reksaldo,(e)," Datum ",dt,"  Uit : ",uitrek," ",paint(kh,ka),(-8.n2),eindsald-reksaldo,(e),paint(kt,0)
print=1:tab(01,05),paint(kh,ka),"F1",paint(kt,0),"=nieuw/rek. ",paint(kh,ka),"F2",paint(kt,0),"=nieuw/dat+rekuit. ",paint(kh,ka),"F3",paint(kt,0),"=overz.  ",paint(kh,ka),"F4",paint(kt,0),"=sel faktnr. ",paint(kh,ka),"F5",paint(kt,0),"=selbedr.",atb(21)
&21
print=1:tab(01,06),atb(22)
&22
print=1:tab(01,06),"Geef klantenkode : ",klkode
ask=1,i=&12,u=&12,/80=&10,/81=&540,/82=&9000,/83=&8500,/84=&8600,/8a=&27,/8b=&29:tab(20,06)=klkode
if klkode=" " : goto  &22
klkode=large(klkode)
klkode=shl(klkode)
search.m=6,klkode:&22,e,klmk,249
goto &35
&27
up=6:&28,e,kldown
goto &35
&28
print=1:tab(01,24),atb(21)
ask=1,i=&21,u=&21,/8a=&27,/8b=&29:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &21
&29
down=6:&30,e,kldown
goto &35
&30
print=1:tab(01,24),atb(21)
ask=1,i=&21,u=&21,/8a=&27,/8b=&29:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &21
&35
print=1:tab(01,06),atb(22)
print=1:tab(01,06),"Klantenkode : ",klkode
print=1:tab(01,08),"Naam         : ",paint(kt,ka4),klnaam,paint(kt,0)
print=1:tab(01,09),"Straat       : ",klstra
print=1:tab(01,10),"Gemeente     : ",klgem
print=1:tab(01,11),"Te ontvangen : ",(-7.n2),kltego
print=1:tab(01,12),"Voorschot    : ",(-7.n2),klover
print=1:tab(01,13),"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ",gener(12,hto)
print=1:tab(01,14),"Saldo        : ",(-7.n2),kltego-klover
&36
if rekkode=vfinrek(2) : goto  &40
if klbank="000-0000000-00" : goto  &37
goto &40
&37
print=1:tab(01,16),paint(kh,ka),"Banknummer niet aanwezig",paint(kt,0) 
ask=1,i=&39,u=&39,/8a=&27,/8b=&29:tab(01,18),"Geef banknummer",esc=klbank
if len$(klbank)<>14 : goto  &37
if substr(klbank,4,1)<>"-" : goto  &37
if substr(klbank,12,1)<>"-" : goto  &37
modif=6,klkode:&38,e,klrec
&38
j=" "
ask=1,i=&39,u=&37:tab(01,22),vali=j
j=large(j)
if j=" " : goto  &38
if j<>"Y" : goto  &39
&39
print=1:tab(01,16),atb(22)
&40
makllev="K"
maklv=klkode
omschr=uitrek
omschr=large(omschr)
ask=1,i=&20,u=&20,/8a=&27,/8b=&29:tab(01,17),"Omschrijving ",tab(14),": ",omschr,tab(16,17)=omschr
fakkllv="K"
fakname=klkode
fakfak=" " 
search=9,fakkode:&41,e,fakrec
&41
down=9:&42,e,fakdown
if fakname<>klkode : goto  &42
gosub &3500
gosub &4000
i2=5
i3=1
goto &53 
&42
print=1:tab(01,19),paint(kh2,ka3),"Geen openstaande fakturen aanwezig",paint(kt,0)
if klover<>0 : goto  &44
print=1:tab(01,20),paint(kh2,ka3),"Geen voorschotten aanwezig   ",paint(kt,0)
&43
keuzom="Voor  "
kode2="-"
bedrag2=0
aanduid=1
print=1:tab(01,23),atb(22)
ask=1,i=&20,u=&20,/8a=&27,/8b=&29:tab(01,23),"Geef bedrag van het voorschot : "=voorsch
if voorsch=0 : goto  &42
bedrag1=voorsch
goto &80
&44
print=1:tab(01,20),paint(kh,ka),"Er is een voorschot aanwezig van :",paint(kt,0),(-8.n2),klover ,(e)," EU "
ask=1,i=&20,u=&20:tab(01,22),paint(kh,ka),"T",paint(kt,0),"=terugbetaling   ",paint(kh,ka),"V",paint(kt,0),"=registratie bijkomend voorschot : "=j
j=large(j)
if j="V" : goto  &43
if j="T" : goto  &45
goto &44
&45
keuzom="Terug"
kode2="+"
bedrag2=0
aanduid=2
ask=1,i=&20,u=&20,/8a=&27,/8b=&29:tab(01,23),"Geef bedrag terugbetaling : "=terugbt
if terugbt=0 : goto  &45
bedrag1=terugbt
goto &80
&50
down=9:&56,e,fakdown
if fakname<>klkode : goto  &56
&53
gosub &4500
i3=i3+1
if i2>16 : goto  &55
goto &50
&55
print=1:tab(01,24),atb(21)
ask=1,i=&20,u=&20,/80=&56:tab(01,24),paint(kh,ka),bla," F1 ",paint(kt,0),ret=j
gosub &3500
gosub &4000
i2=5
i3=1
goto &50

&56
print=1:tab(01,20),atb(22)
i4=phil-4
print=1:tab(58,01),"Voor : ",(-7.n2),klover
print=1:tab(01,22),atb(21)
ask=1,i=&20,u=&20,"vV"=&57,"tT"=&59,"mM"=&150:tab(01,20),"Keuzenummer : (",paint(kh,ka),"V",paint(kt,0),"=voorschot ",paint(kh,ka),"T",paint(kt,0),"=terugbet. ",paint(kh,ka),"M",paint(kt,0),"=meervoudige) : "=i4
goto &60
&57
keuzom="Voor"
kode2="-"
bedrag2=0
aanduid=1
ask=1,i=&20,u=&56:tab(01,22),"Geef bedrag voorschot : "=voorsch
if voorsch=0 : goto  &57
bedrag1=voorsch
goto &80    ;einde verrichtingen
&59
keuzom="Terug"
kode2="+"
bedrag2=0
aanduid=2
ask=1,i=&20,u=&56:tab(01,22),"Geef bedrag terugbetaling : "=terugbt
if terugbt=0 : goto  &59
bedrag1=terugbt
goto &80
&60
if i4>i3 : goto  &56
if i4<1  : goto  &56
keuzom=totfak(i4)
if keuzom=" " : goto  &56
print=1:tab(01,20),"Facnr : ",totfak(i4),"  Bedrag : ",(-7.n2),tottbe(i4),(u3)," - ",(-7.n2),totbet(i4),(u3)," = ",(-7.n2),tottbe(i4)-totbet(i4),(u8)," Saldo : "
tebetaal=tottbe(i4)-totbet(i4)
betaald=tebetaal
print=1:tab(01,22),klkode," ",paint(kh,ka),left(klnaam,len$(klnaam)),paint(kt,0)
ask=1,i=&20,u=&56:tab(01,21),"Geef bedrag betaald    : ",(-7.n2),tebetaal,tab(27,21)=betaald
&62
bedrag1=betaald
if betaald=tebetaal : goto  &63
if betaald<tebetaal : goto  &64
if betaald>tebetaal : goto  &70
&63
print=1:tab(01,23),paint(kh,ka),"Volledige betaling van deze faktuur",paint(kt,0)
aanduid=4
goto &80
&64
teweinig=tebetaal-betaald
print=1:tab(01,22),"Er werd een bedrag van ",(-7.n2),teweinig,(e)," FR teweinig betaald"
j=" "
ask=1,i=&20,u=&56:tab(01,23),paint(kh,ka),"K",paint(kt,0),"=Korting  ",paint(kh,ka),"G",paint(kt,0),"=Gedeelt bet.  ",paint(kh,ka),"V",paint(kt,0),"=Koersverschil  ",paint(kh,ka),"B",paint(kt,0),"=Bet. versch. : "=j
j=large(j)
if j="K" : goto  &65
if j="V" : goto  &66
if j="G" : goto  &67
if j="B" : goto  &68
goto &64
&65
if vastrek(14)=" " : goto  &69
aanduid=8         ;kortingen
bedrag2=teweinig
kode2="K"
goto &80
&66
if vastrek(18)=" " : goto  &69    
aanduid=9         ;koersverschil
bedrag2=teweinig
kode2="V"
goto &80
&67
aanduid=7        ;gedeeltelijke betaling
bedrag2=0
tebetaal=bedrag1
kode2=" "
goto &80
&68
ask=1,i=&56,u=&56:bell,tab(01,24),paint(kh,ka),"Niet toegelaten",paint(kt,0)," "=j
goto &56
if betrek=" " : goto  &69
aanduid=10      ;betalingsverschillen
bedrag2=teweinig
kode2="X"
goto &80
&69
ask=1,i=&56,u=&56:bell,tab(01,24),paint(kh,ka),"Uw keuze heeft geen tegenboekingsrekening",paint(kt,0)," "=j
goto &56

&70
teveel=betaald-tebetaal
teweinig=teveel
print=1:tab(01,22),"Er werd een bedrag van ",(-7.n2),teveel,(e)," FR teveel betaald",paint(kt,0)
j=" "
ask=1,i=&20,u=&56:tab(01,23),paint(kh,ka),"V",paint(kt,0),"=Koersvers ",paint(kh,ka),"I",paint(kt,0),"=Intrest ",paint(kh,ka),"T",paint(kt,0),"=Teveel bet ",paint(kh,ka),"B",paint(kt,0),"=Betalingsvers ",paint(kh,ka),"G",paint(kt,0),"=Gedeel. bet ",paint(kh,ka),"K",paint(kt,0),"=Korting : "=j
j=large(j)
if j="V" : goto  &71
if j="I" : goto  &72
if j="T" : goto  &73
if j="B" : goto  &74
if j="K" : goto  &75
if j="G" : goto  &76
goto &70
&71
if vastrek(18)=" " : goto  &69	
aanduid=5     ;koersverschillen inbrengen
bedrag2=teveel
kode2="V"
goto &80
&72
if vastrek(16)=" " : goto  &69
aanduid=6     ;intrest
bedrag2=teveel
kode2="I"
goto &80
&73
if vastrek(12)=" " : goto  &69
aanduid=3     ;teveel betaald
bedrag2=teveel
kode2="T"
goto &80
&74
ask=1,i=&56,u=&56:bell,tab(01,24),paint(kh,ka),"Niet toegelaten",paint(kt,0)," "=j
goto &56
if betrek=" " : goto  &69
aanduid=10     ;betalingsverschil
bedrag2=teveel
kode2="X"
goto &80
&75
if vastrek(14)=" " : goto  &69
aanduid=8        ;kortingen
bedrag2=teveel
kode2="K"
goto &80
&76
aanduid=7        ;gedeeltelijke betaling
bedrag2=0
tebetaal=bedrag1
kode2=" "
&80
print=1:tab(01,24),atb(21)
&81
j=" "
ask=1,i=&20,u=&56:tab(01,24),vali=j
j=large(j)
if j="N" : goto  &20
if j<>"Y" : goto  &81
if bedrag1<>0 : goto  &82
if bedrag2=0 : goto  &88
&82
hisnaam=klkode
histdat=right(dt,2)+substr(dt,4,2)+left(dt,2)
histel=0
hiskod2=kode2
hisbed1=bedrag1
hisbed2=bedrag2
hisdat=dt
hiskod1="F"
hiskllv=klkode
hisfakt=keuzom
hisbetw=rekening
hisbtw=0
hisoms=finoms
&83
insert=5,hiskode:&84,e,kllvhis
goto &86
&84
histel=histel+1
goto &83
&86
param3=par(3)
teller(07)=teller(07)+1
par(3)=param3
&88
if aanduid=1 : goto  &100              ;niets aanpassen enkel voorschot
if aanduid=2 : goto  &100              ;niets aanpassen enkel terugbetaling
fakkode=totkey(i4)
if aanduid<>7 : goto  &90              ;gedeeltelijke betaling
search=9,fakkode:&5000,e,fakrec
fakont=fakont+bedrag1
modif=9,fakkode:&5000,e,fakrec
goto &100
&90
if i4=1 : goto  &95                  ;eerste fak in overeenstemming met klrec
fakkode=totkey(i4-1)             ;lezen voorgaande faktuur
search=9,fakkode:&5000,e,fakrec
&95
fakkode=totkey(i4)
delete=9,fakkode:&5000,e
&100
if aanduid<>1 : goto  &101
klover=klover+bedrag1
finbank=bedrag1                  ;normaal bedrag bank
finkla=0                         ;alleen werken met tegenrekening
goto &104
&101
if aanduid<>2 : goto  &102
klover=klover-bedrag1
finbank=-bedrag1                 ;terugbetaling in pos wordt bank gekrediteerd
finkla=0
goto &104
&102
if aanduid<>3 : goto  &103
klover=klover+bedrag2
&103
kltego=kltego-tebetaal
finbank=betaald            ;werkelijke bedrag op de bank
finkla=-tebetaal           ;bedrag dat zou moeten geweest zijn om te kred.
&104
modif=6,klkode:&105,e,klrec
goto &106
&105
if e=74 : goto  &106
print=1:tab(01,24),"Fout modif klkode : ",e," ",klkode
stop
&106
finoms=omschr
finuitr=uitrek
findat=dt
finfaknr=keuzom
finklva="K"
finkllv=klkode
finsaldo=reksaldo
if aanduid<>1 : goto  &107
fintrek(1)=vastrek(12)
fintbed(1)=-bedrag1
goto &118
&107
if aanduid<>2 : goto  &108
fintrek(1)=vastrek(12)
fintbed(1)=bedrag1      ;terugbetaling
goto &118
&108
if aanduid<>3 : goto  &110
fintrek(1)=vastrek(12)
fintbed(1)=-bedrag2     ;overschotten
goto &118
&110
if aanduid<>5 : goto  &111
fintrek(1)=vastrek(18)
fintbed(1)=-bedrag2
goto &118
&111
if aanduid<>6 : goto  &112
fintrek(1)=vastrek(16)
fintbed(1)=-bedrag2
goto &118
&112
if aanduid<>8 : goto  &113
fintrek(1)=vastrek(14)
fintbed(1)=bedrag2
goto &118
&113
if aanduid<>9 : goto  &114
fintrek(1)=vastrek(18)
fintbed(1)=bedrag2
&114
if aanduid<>10 : goto  &115
fintrek(1)=betrek     
fintbed(1)=bedrag2
&115
if bedrag1=0 : goto  &116
goto &118
&116
if bedrag2=0 : goto  &130
&118
param3=par(3)
finrek=rekening
fintel=teller(04)
finkode2=finkode
insert=4,finkode:&119,e,finrec
goto &120
&119
if e<>81 : goto  &9700
teller(04)=teller(04)+1
par(3)=param3
goto &118
&120
teller(04)=teller(04)+1
par(3)=param3
matgfak=keuzom
nummer=rekening
if finbank>0 : goto  &121
som=-finbank
kode="C"
gosub &2000
goto &122
&121
som=finbank
kode="D"
gosub &2000
&122
if finkla=0 : goto  &125
nummer=vastrek(01)
if finkla>0 : goto  &123
som=abs(finkla)
kode="C"
gosub &2000
goto &125
&123
som=abs(finkla)
kode="D"
gosub &2000
&125
nummer=fintrek(1)
if fintbed(1)=0 : goto  &130
if fintbed(1)>0 : goto  &126
som=abs(fintbed(1))
kode="C"
gosub &2000
goto &130
&126
som=abs(fintbed(1))
kode="D"
gosub &2000
&130
par(4)=param4
par(3)=param3
gosub &3000
if k=9999 : goto  &180
goto &20
&150    ;meervoudige betalingen 
print=1:tab(01,01),atb(21),tab(01,01),paint(kh,ka),naam,paint(kt,0),"  MEERVOUDIGE BETALINGEN ",tab(70),ndat
print=1:tab(01,22),"Kortingen kunnen niet verwerkt worden."
i1=5    ;lijnteller
totgino=0
i2=1    ;loper betnum
&152
print=1:tab(01,24),atb(21)
ask=1,i=&160,u=&158:tab(01,24),"Geef nummer betaling  (esc=stop) : "=i4
if i4<1 : goto  &152
if i4>i3 : goto  &152
for k=1 to 200
if i4=betnum(k) : goto  &153
next k
goto &154
&153
print=1:tab(01,24),atb(21)
ask=1:bell,tab(01,24),paint(kh,ka),"Deze betaling is reeds aanwezig :",paint(kt,0),ret=j
goto &152
&154
totgino=totgino+tottbe(i4)-totbet(i4)
print=1:tab(01,23),totfak(i4),"  ",(-7.n2),tottbe(i4),totbet(i4),(e),"  =  ",(-7.n2),tottbe(i4)-totbet(i4),tab(60),totgino
betnum(i2)=i4
i2=i2+1
i1=i1+1
print=1:tab(01,24),atb(21)
if mod(i2,19)<>0 : goto  &152
ask=1,i=&160,u=&158:tab(01,24),paint(kh,ka),bla,paint(kt,0),ret=j
print=1:tab(01,05),atb(22)
i1=5
goto &152
&158
if i2=1 : goto  &20
betnum(i2)=0
i2=i2-1
if i5=5 : goto  &150
print=1:tab(01,i5),atb(21)
i5=i5-1
goto &152
&160   ;einde alles sorteren en verwerken !!!
print=1:tab(01,24),atb(21)
ask=1,i=&20,u=&20:tab(01,24),"O.K. voor uitvoering  Y-N : "=j
j=large(j)
if j<>"Y" : goto  &20
i1=1         ;begin loper
i2=i2        ;eind loper
&161
i4=0
for k=i1 to i2
if betnum(k)>=betnum(k+1) : goto  &162
i3=betnum(k)
betnum(k)=betnum(k+1)
betnum(k+1)=i3
i4=1
&162
next k
if i4=1 : goto  &161
k=9999
for i1=1 to i2-1
k=9999
aanduid=4
i4=betnum(i1)
keuzom=totfak(i4)
tebetaal=tottbe(i4)-totbet(i4)
betaald=tebetaal
bedrag1=betaald
goto &82
&180
next i1
goto &20

&200
koersv=0
bankost=0
btwbank=0
korti=0
retkode=2
gosub &1000
bedrag2=0
bedrag1=0
kode2=" "
keuzom=" "
aanduid=0
voorsch=0
terugbt=0
teveel=0
teweinig=0
k=0
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  BETALINGEN AAN LEVERANCIERS ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
print=1:tab(01,03),paint(kh,ka),left(reknaam,len$(reknaam)),paint(kt,0),tab(21)," Saldo :",(-8.n2),reksaldo,(e)," Datum ",dt,"  Uit : ",uitrek," ",paint(kh,ka),(-8.n2),eindsald-reksaldo,(e),paint(kt,0)
print=1:tab(01,05),paint(kh,ka),"F1",paint(kt,0),"=nieuw/rek. ",paint(kh,ka),"F2",paint(kt,0),"=nieuw/dat+rekuit. ",paint(kh,ka),"F3",paint(kt,0),"=overz.  ",paint(kh,ka),"F4",paint(kt,0),"=sel faktnr. ",paint(kh,ka),"F5",paint(kt,0),"=selbedr.",atb(21)
&221
print=1:tab(01,06),atb(22)
&222
print=1:tab(01,06),"Geef leverancierskode : ",levkode
ask=1,i=&12,u=&12,/80=&10,/81=&540,/82=&9100,/83=&9500,/84=&9600,/8a=&227,/8b=&229:tab(25,06)=levkode
if levkode=" " : goto  &222
levkode=large(levkode)
levkode=shl(levkode)
search=10,levkode:&222,e,levrec
goto &235
&225
print=1:tab(01,24),atb(21)
ask=1,i=&221,u=&221,/8a=&227,/8b=&229:tab(01,24),paint(kh,ka),"Leverancier",ng,paint(kt,0),fvoor,voor,fvolg,volg=j
goto &221
&227 
up=10:&228,e,levdown
goto &235
&228
print=1:tab(01,24),atb(21)
ask=1,i=&221,u=&221,/8a=&227,/8b=&229:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &221
&229
down=10:&230,e,levdown
goto &235
&230
print=1:tab(01,24),atb(21)
ask=1,i=&221,u=&221,/8a=&227,/8b=&229:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &221
&235    
print=1:tab(01,06),atb(22)
print=1:tab(01,06),"Leverancierskode : ",levkode
print=1:tab(01,08),"Naam         : ",paint(kt,ka4),levnaam,paint(kt,0)
print=1:tab(01,09),"Straat       : ",levstraa
print=1:tab(01,10),"Gemeente     : ",levgem
print=1:tab(01,11),"Te betalen   : ",(-7.n2),levtebe
print=1:tab(01,12),"Voorschot    : ",(-7.n2),levvoor
print=1:tab(01,13),"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ",gener(12,hto)
print=1:tab(01,14),"Saldo        : ",(-7.n2),levtebe-levvoor
makllev="L"
maklv=levkode
omschr=uitrek
omschr=large(omschr)
ask=1,i=&200,u=&200,/8a=&227,/8b=&229:tab(01,17),"Omschrijving",tab(14),": ",omschr,tab(16,17)=omschr
fakkllv="L"
fakname=levkode
fakfak=" " 
search=9,fakkode:&241,e,fakrec
&241
down=9:&242,e,fakdown
if fakname<>levkode : goto  &242
gosub &3500
gosub &4000
i2=5
i3=1
goto &253
&242
print=1:tab(01,19),paint(kh2,ka3),"Geen openstaande fakturen aanwezig",paint(kt,0)
if levvoor<>0 : goto  &244
print=1:tab(01,20),paint(kh2,ka3),"Geen voor-overschotten aanwezig   ",paint(kt,0)
&243
keuzom="Voor "
kode2="-"
bedrag2=0
aanduid=1
ask=1,i=&200,u=&200,/8a=&227,/8b=&229:tab(01,23),"Geef bedrag voorschot : "=voorsch
if voorsch=0 : goto  &243
bedrag1=voorsch
goto &280     
&244
print=1:tab(01,20),paint(kh,ka),"Voorschot aanwezig van : ",paint(kt,0),(-8.n2),levvoor,(u4)," FR "
ask=1,i=&200,u=&200:tab(01,22),paint(kh,ka),"T",paint(kt,0),"=terugbetaling ",paint(kh,ka),"V",paint(kt,0),"=registratie bijkomend voorschot : "=j
j=large(j)
if j="V" : goto  &243
if j="T" : goto  &245
goto &244
&245
keuzom="Terug"
kode2="+" 
bedrag2=0
aanduid=2
ask=1,i=&200,u=&200:tab(01,23),"Geef bedrag terugbetaling : "=terugbt
if terugbt=0 : goto  &245
bedrag1=terugbt
goto &280
&250
down=9:&256,e,fakdown
if fakname<>levkode : goto  &256
&253
gosub &4500
i3=i3+1
if i2>16 : goto  &255
goto &250
&255
print=1:tab(01,24),atb(21)
ask=1,i=&200,u=&200,/80=&256:tab(01,24),paint(kh,ka),bla," F1 ",paint(kt,0),ret=j
gosub &3500
gosub &4000
i2=5
i3=1
goto &250

&256 
print=1:tab(01,20),atb(22)
print=1:tab(58,01),"Voor : ",(-7.n2),levvoor
i4=phil-4
print=1:tab(01,22),atb(22)
ask=1,i=&200,u=&200,"vV"=&257,"tT"=&259,"mM"=&450:tab(01,20),"Keuzenummer : (",paint(kh,ka),"V",paint(kt,0),"=voorschot ",paint(kh,ka),"T",paint(kt,0),"=terugbet. ",paint(kh,ka),"M",paint(kt,0),"=meervoudige ) : "=i4
goto &260
&257 
keuzom="Voor "
bedrag2=0
kode2="-"
aanduid=1
ask=1,i=&200,u=&256:tab(01,22),"Geef bedrag voorschot : "=voorsch
if voorsch=0 : goto  &257
bedrag1=voorsch
goto &280 
&259
keuzom="Terug"
bedrag2=0
kode2="+"
aanduid=2
ask=1,i=&200,u=&256:tab(01,22),"Geef bedrag terugbetaling : "=terugbt
if terugbt=0 : goto  &259
bedrag1=terugbt
goto &280 
&260
if i4>i3 : goto  &256    ;heropvragen van de soort betaling
if i4<1  : goto  &256    ;heropvragen van de soort betaling
keuzom=totfak(i4)    ;aanduiding voor historiek
if keuzom=" " : goto  &256
print=1:tab(01,20),"Facnr : ",totfak(i4),"  Bedrag : ",(-7.n2),tottbe(i4),(u3)," - ",(-7.n2),totbet(i4),(u3)," = ",(-7.n2),tottbe(i4)-totbet(i4),(u8)," Saldo : "
tebetaal=tottbe(i4)-totbet(i4)
betaald=tebetaal
print=1:tab(01,22),levkode," ",paint(kh,ka),left(levnaam,len$(levnaam)),paint(kt,0)
ask=1,i=&256,u=&256:tab(01,21),"Geef bedrag betaald    : ",(-7.n2),tebetaal,tab(27,21)=betaald
bedrag1=betaald
if betaald=tebetaal : goto  &263
if betaald<tebetaal : goto  &264
if betaald>tebetaal : goto  &270
&263                                ;normale volledige betaling
print=1:tab(01,23),paint(kh,ka),"Volledige betaling van deze faktuur",paint(kt,0)
aanduid=4
goto &280
&264
teweinig=tebetaal-betaald
print=1:tab(01,22),"Er werd een bedrag van ",(-7.n2),teweinig,(u21)," FR te weinig betaald"
ask=1,i=&256,u=&256:tab(01,23),paint(kh,ka),"K",paint(kt,0),"=Korting  ",paint(kh,ka),"G",paint(kt,0),"=Gedeelt bet.  ",paint(kh,ka),"V",paint(kt,0),"=Koersverschil  ",paint(kh,ka),"B",paint(kt,0),"=Bet. versch. : "=j
j=large(j)
if j="K" : goto  &265
if j="G" : goto  &267
if j="V" : goto  &266
if j="B" : goto  &269
goto &264
&265
if vastrek(15)=" " : goto  &269
aanduid=8         ;kortingen
bedrag2=teweinig
kode2="K"
goto &280
&266
bankost=0
btwbank=0
korti=0
if vastrek(19)=" " : goto  &269
aanduid=9
bedrag2=teweinig
kode2="V"
print=1:tab(01,24),atb(21)
print=1:tab(01,24),"Btw bnk",tab(10),":",tab(20),"Bnkost",tab(30),":",tab(40),"Korting",tab(50),":"
&btwbank
ask=1,i=&256,u=&256:tab(11,24),(-4.n2)=btwbank
&bankkost
ask=1,i=&256,u=&btwbank:tab(31,24),(-4.n2)=bankost
&korti
ask=1,i=&256,u=&bankkost:tab(51,24),(-4.n2)=korti
korti=korti*-1
koersv=bedrag2+btwbank+bankost+korti
koersv=-koersv
print=1:tab(60,24),"Kv :",(-4.n2),koersv
ask=1,i=&256,u=&256:tab(72,24),"O.K ? "=j
j=large(j)
if j="Y" : goto  &280
goto &266
&267
aanduid=7        ;gedeeltelijke betaling
bedrag2=0
tebetaal=bedrag1
kode2=" "
goto &280
&268
ask=1,i=&256,u=&256:bell,tab(01,24),paint(kh,ka),"Niet toegelaten",paint(kt,0)," "=j
goto &256
if betrek=" " : goto  &269
aanduid=10       ;betalingsverschillen
bedrag2=teweinig
kode2="X"
goto &280
&269
ask=1,i=&256,u=&256:bell,tab(01,24),paint(kh,ka),"Uw keuze heeft geen tegenboekingsrekening",paint(kt,0)," "=j
goto &256
&270
teveel=betaald-tebetaal
print=1:tab(01,22),"Er werd een bedrag van ",(-7.n2),teveel,(u21)," teveel betaald"
ask=1,i=&200,u=&256:tab(01,23),paint(kh,ka),"V",paint(kt,0),"=Koersvers ",paint(kh,ka),"I",paint(kt,0),"=Intrest ",paint(kh,ka),"T",paint(kt,0),"=Teveel bet ",paint(kh,ka),"B",paint(kt,0),"=Betalingsvers ",paint(kh,ka),"G",paint(kt,0),"=Gedeel. bet ",paint(kh,ka),"K",paint(kt,0),"=Korting : "=j
j=large(j)
if j="V" : goto  &271
if j="I" : goto  &275
if j="T" : goto  &279
if j="B" : goto  &276
if j="G" : goto  &277
if j="K" : goto  &278
goto &270
&271
btwbank=0
bankost=0
korti=0
koersv=0
if vastrek(19)=" " : goto  &269
aanduid=5     ;koersverschillen
bedrag2=teveel
print=1:tab(01,24),atb(21)
print=1:tab(01,24),"Btw bankk.",tab(10),":",tab(20),"Kosten",tab(30),":",tab(40),"Korting",tab(50),":"
&272
ask=1,i=&256,u=&256:tab(11,24),(-4.n2)=btwbank
&273
ask=1,i=&256,u=&272:tab(31,24),(-4.n2)=bankost
&274
ask=1,i=&256,u=&273:tab(51,24),(-4.n2)=korti
korti=korti*-1
koersv=bedrag2-btwbank-bankost-korti
print=1:tab(60,24),"Kv :",(-4.n2),koersv
kode2="V"
ask=1,i=&256,u=&274:tab(72,24),"O.K. ? "=j
j=large(j)
if j="Y" : goto  &282
if j="N" : goto  &256 
goto &274
&275
if vastrek(17)=" " : goto  &269
aanduid=6
bedrag2=teveel
kode2="I"
goto &280
&276
ask=1,i=&256,u=&256:bell,tab(01,24),paint(kh,ka),"Niet toegelaten",paint(kt,0)," "=j
goto &256
if betrek=" " : goto  &269
aanduid=10
bedrag2=teveel
kode2="X"
goto &280
&277
aanduid=7        ;gedeeltelijke betaling
bedrag2=0
tebetaal=bedrag1
kode2=" "
goto &280
&278
if vastrek(15)=" " : goto  &269
aanduid=8         ;kortingen
bedrag2=-teveel
kode2="K"
goto &280
&279
if vastrek(13)=" " : goto  &268
aanduid=3
bedrag2=teveel
kode2="T"
&280    
print=1:tab(01,24),atb(21)
&281
j=" " 
ask=1,i=&200,u=&256:tab(01,24),vali=j
j=large(j)
if j="N" : goto  &200
if j<>"Y" : goto  &281
if bedrag1<>0 : goto  &282
if bedrag2=0 : goto  &285
&282
hisnaam=levkode
histdat=right(dt,2)+substr(dt,4,2)+left(dt,2)
histel=0
hiskod2=kode2
hisbed1=bedrag1
hisbed2=bedrag2
hisdat=dt
hiskod1="F"
hiskllv=levkode
hisfakt=keuzom
hisbetw=rekening            ;betaalwijze
hisbtw=0
hisoms=finoms
&283
insert=3,hiskode:&284,e,kllvhis
goto &285
&284
histel=histel+1
goto &283
&285
if aanduid=1 : goto  &300    ;niets aanpassen enkel voorschot
if aanduid=2 : goto  &300    ;niets aanpassen enkel terugbetaling
fakkode=totkey(i4)       ;lezen passende faktuur
&286
if aanduid<>7 : goto  &290
search=9,fakkode:&5000,e,fakrec
fakont=fakont+bedrag1
print=1:tab(01,24),atb(21)
if faktest="N" : goto  &289
ask=1,i=&289,u=&289:bell,tab(01,24),paint(kt,ka),"Opnieuw bij bank indienen voor saldo te betalen  Y-N : ",paint(kt,0)=j
j=large(j)
if j="Y" : goto  &288
goto &289
&288
faktest="N"
&289
modif=9,fakkode:&5000,e,fakrec
goto &300
&290
if i4=1 : goto  &295                ;eerste fak in overeenstemming met levrec
fakkode=totkey(i4-1)            ;lezen voorgaande faktuur
search=9,fakkode:&5000,e,fakrec
&295
fakkode=totkey(i4)
delete=9,fakkode:&5000,e
&300
if aanduid<>1 : goto  &301
levvoor=levvoor+bedrag1
finbank=bedrag1            ;normaal bedrag bank
finkla=0                   ;alleen werken met tegenrekening
goto &304
&301
if aanduid<>2 : goto  &302
levvoor=levvoor-bedrag1
finbank=-bedrag1           ;terugbetaling in pos wordt bank debiteerd
finkla=0
goto &304
&302
if aanduid<>3 : goto  &303
levvoor=levvoor+bedrag2
&303
levtebe=levtebe-tebetaal
finbank=betaald           ;werkelijke bedrag op de bank
finkla=-tebetaal          ;bedrag dat zou moeten geweest zijn om te deb
&304
modif=10,levkode:&305,e,levrec
goto &306
&305
if e=74 : goto  &304
print=1:tab(01,24),"Fout modif levkode : ",e," ",levkode
stop
&306
finoms=omschr
finuitr=uitrek
findat=dt
finfaknr=keuzom
finklva="L"
finkllv=levkode
finsaldo=reksaldo
if aanduid<>1 : goto  &307
fintrek(1)=vastrek(13)
fintbed(1)=-bedrag1
goto &318
&307
if aanduid<>2 : goto  &308
fintrek(1)=vastrek(13)
fintbed(1)=bedrag1       ;terugbetaling
goto &318
&308
if aanduid<>3 : goto  &309
fintrek(1)=vastrek(13)
fintbed(1)=-bedrag2      ;overschotten
goto &318
&309
if aanduid<>4 : goto  &310
&310
if aanduid<>5 : goto  &311
fintrek(1)=vastrek(19)   ;koersverschillen
fintbed(1)=-koersv
fintrek(2)=rekbnbt       ;bankbtw kosten
fintrek(3)=rekbkos       ;bankkosten
fintrek(4)=vastrek(15)
fintbed(2)=-btwbank
fintbed(3)=-bankost
fintbed(4)=-korti
goto &318
&311
if aanduid<>6 : goto  &312
fintrek(1)=vastrek(17)
fintbed(1)=-bedrag2
goto &318
&312
if aanduid<>8 : goto  &313
fintrek(1)=vastrek(15)
fintbed(1)=bedrag2
goto &318
&313
if aanduid<>9 : goto  &314
fintrek(1)=vastrek(19)
fintbed(1)=-koersv
fintbed(2)=-btwbank
fintbed(3)=-bankost
fintbed(4)=-korti
fintrek(2)=rekbnbt
fintrek(3)=rekbkos
fintrek(4)=vastrek(15)
&314
if aanduid<>10 : goto  &315
fintrek(1)=betrek
fintbed(1)=-bedrag2
&315
if bedrag1=0 : goto  &316
goto &318
&316
if bedrag2=0 : goto  &332
&318
finrek=rekening
param3=par(3)
fintel=teller(04)
finkode2=finkode
insert=4,finkode:&319,e,finrec
goto &320
&319
if e<>81 : goto  &9700
teller(04)=teller(04)+1
par(3)=param3
goto &318
&320
teller(04)=teller(04)+1
par(3)=param3
matgfak=keuzom
nummer=rekening
if finbank>0 : goto  &321
som=-finbank
kode="D"
gosub &2000
goto &322
&321
som=finbank
kode="C"
gosub &2000
&322
if finkla=0 : goto  &325
nummer=vastrek(02)
if finkla>0 : goto  &323
som=abs(finkla)
kode="D"
gosub &2000
goto &325
&323
som=abs(finkla)
kode="C"
gosub &2000
&325
for i=1 to 5
if fintrek(i)=" " : goto  &332
nummer=fintrek(i)
if fintbed(i)>0 : goto  &326
som=abs(fintbed(i))
kode="D"
gosub &2000
goto &330
&326
som=abs(fintbed(i))
kode="C"
gosub &2000
&330
next i
&332
par(4)=param4
par(3)=param3
gosub &3000
if k=9999 : goto  &480
goto &200

&340
retkode=3
gosub &1000
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  FINANCIEEL VAN REKENING NAAR REKENING ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
print=1:tab(01,03),paint(kh,ka),left(reknaam,len$(reknaam)),paint(kt,0),tab(21)," Saldo :",(-8.n2),reksaldo,(e)," Datum ",dt,"  Uit : ",uitrek," ",paint(kh,ka),(-8.n2),eindsald-reksaldo,(e),paint(kt,0)
print=1:tab(01,04),paint(kh,ka),"Bericht",paint(kt,0)," : Indien bedrag negatief : gekozen rekening gekrediteerd"
print=1:paint(kl,0),tab(01,09),gener(79,htb)
print=1:tab(08,10),vtb,tab(31),vtb,tab(43),vtb,tab(55),vtb,"                   ",vtb,"   ",vtb
print=1:tab(01,11),gener(79,htb)
print=1:tab(01,22),gener(79,htb),paint(kt,0)
print=1:tab(01,10),paint(kh,ka),"Reknr",tab(10),"Omschrijving",tab(33),"Debet",tab(46),"Kredit",tab(57),"Toestand fin.rek.",paint(kt,0)
&342
totcre=0
totdeb=0
totfin=0    ;toestand fin.rek
i2=1        ;loper rekeningen
i3=12       ;lijnnummer scherm
&343
print=1:tab(01,24),atb(21)
ask=1,i=&12,u=&12,/80=&344:tab(01,24),"Geef omschrijving : ",omschr,tab(21,24)=omschr
omschr=large(omschr)
goto &345
&344
omschr="TRANSFERT"
print=1:tab(21,24),omschr
rekkode="580000"
search=8,rekkode:&345,e,rekrec
goto &352
&345
ask=1,i=&342,u=&360,/80=&10,/81=&540,/82=&380,/8a=&347,/8b=&349,"nN"=&400:tab(01,06),"Tegenboekingsrekening : ",paint(kh,ka),"F1",paint(kt,0),"=rek. ",paint(kh,ka),"F2",paint(kt,0),"=datum  ",paint(kh,ka),"F3",paint(kt,0),"=stop  ",paint(kh,ka),"N",paint(kt,0),"=zoek : ",rekkode,tab(61,06)=rekkode
print=1:tab(01,24),atb(21)
search=8,rekkode:&346,e,rekrec
goto &352
&346
print=1:tab(01,24),atb(21)
ask=1,i=&345,u=&360,/8a=&347,/8b=&349,"nN"=&400:tab(01,24),paint(kh,ka),"Rekening",ng,paint(kt,0),fvoor,voor,fvolg,volg=j
goto &345
&347
up=8:&348,e,rekdown
goto &352
&348
print=1:tab(01,24),atb(21)
ask=1,i=&345,u=&345,/8a=&347,/8b=&349,"nN"=&400:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &345
&349 
down=8:&350,e,rekdown
goto &352
&350
print=1:tab(01,24),atb(21)
ask=1,i=&345,u=&345,/8a=&347,/8b=&349,"nN"=&400:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &345
&352
if rekdiver<>"Y" : goto  &353
print=1:tab(01,24),atb(21)
ask=1,i=&345,u=&345,/80=&353,/8a=&347,/8b=&349:tab(01,24),bell,paint(kh,ka),"De gekozen rekening is een collectieve rekening ",paint(kt,0)," "=j
goto &345
&353
print=1:tab(01,24),atb(21)
fintrek(i2)=rekkode
print=1:tab(61,06),rekkode,tab(01,i3),rekkode,tab(8)," ",tab(31)," ",tab(43)," ",tab(55)," ",tab(75)," ",tab(79)," ",tab(10),(u20),rekoms,tab(76),(--),i2
ask=1,i=&340,u=&360,/8a=&347,/8b=&349:tab(01,07),"Geef bedrag tegenboeking : "=fintbed(i2)
if fintbed(i2)=0 : goto  &352
print=1:tab(01,06),atb(21)
print=1:tab(01,07),atb(21)
if fintbed(i2)<0 : goto  &354
print=1:tab(33,i3),(-8.n2),fintbed(i2)
totdeb=totdeb+fintbed(i2)
totfin=reksaldo-totdeb+totcre
goto &355
&354
print=1:tab(45,i3),(-8.n2),abs(fintbed(i2))
totcre=totcre+abs(fintbed(i2))
totfin=reksaldo-totdeb+totcre
&355
print=1:tab(01,24),atb(21)
print=1:tab(01,23),atb(21),tab(21,23),"Cumul :",tab(33,23),(-8.n2),totdeb,tab(45,23),totcre
print=1:tab(60,i3),(-8.n2),totfin
i2=i2+1
i3=i3+1
if i2>10 : goto  &380   ;einde
goto &345
&360                 ;verwerking slechte rekening
if i2<2 : goto  &340    ;opnieuw ingave van alles
i2=i2-1
i3=i3-1
print=1:tab(01,i3),atb(21)
print=1:tab(01,i3+1),atb(21)
if fintbed(i2)<0 : goto  &362    ;kreditering 
totdeb=totdeb-fintbed(i2)
goto &364
&362
totcre=totcre-abs(fintbed(i2))
&364
fintbed(i2)=0
fintrek(i2)=" "
print=1:tab(33,23),(-8.n2),totdeb,tab(45),totcre
goto &345
&380    ;einde
j=" " 
print=1:tab(01,24),atb(21)
ask=1,i=&340,u=&360:tab(01,24),vali=j
j=large(j)
if j="N" : goto  &340
if j="Y" : goto  &381
goto &380
&381
finoms=omschr
finuitr=uitrek
findat=dt
finklva="A"
finkllv=" "
finkla=0
finsaldo=reksaldo
finfaknr=" "
finbank=totcre-totdeb   ;bedrag bank
finrek=rekening
param3=par(3)
fintel=teller(04)
finkode2=finkode
insert=4,finkode:&382,e,finrec
goto &383
&382
if e<>81 : goto  &9700
teller(04)=teller(04)+1
par(3)=param3
goto &381
&383
teller(04)=teller(04)+1
par(3)=param3
madatum=dt
madat=right(madatum,2)+substr(madatum,4,2)+left(madatum,2)
makode="3"
maomsch=omschr
makllev="A"
maklv=" "
for i2=1 to 10
if fintbed(i2)=0 : goto  &390
nummer=fintrek(i2)
if fintbed(i2)<0 : goto  &387        ;krediteren rek en debiteren bank
kode="D"
som=fintbed(i2)
matgfak=rekening
gosub &2000
kode="C"
som=fintbed(i2)
nummer=rekening
matgfak=fintrek(i2)
gosub &2000
goto &390
&387
kode="C"
som=abs(fintbed(i2))
matgfak=rekening
gosub &2000
kode="D"
nummer=rekening
matgfak=fintrek(i2)
gosub &2000
&390
next i2
&395
par(4)=param4
par(3)=param3
gosub &3000
goto &340

&400
print=1:tab(01,23),atb(22)
print=1:tab(01,23),"Opzoeken op naam van de algemene rekening "
selzoek=" "
vindrek=" "
&405
ask=1,i=&430,u=&430:tab(01,24),"Geef trefwoord : "=selzoek
selzoek=large(selzoek)
if selzoek=" " : goto  &405
selzoek=large(selzoek)
open=8:&1,e
&410
down=8:&430,e,rekdown
rekoms=large(rekoms)
selindex=0
selindex=index(rekoms,selzoek)
if selindex=0 : goto  &410
print=1:tab(01,24),atb(21)
print=1:tab(01,24),"Trefw. : ",selzoek," Rek. : ",rekkode," ",rekoms
&415
j=" "
ask=1,i=&430,u=&430:tab(60,24),"Deze rek. Y-N : "=j
j=large(j)
if j="Y" : goto  &420
if j="N" : goto  &410
goto &415
&420
vindrek=rekkode
rekkode=vindrek
goto &435
&430
print=1:tab(01,23),atb(22)
goto &345
&435
search=8,rekkode:&346,e,rekrec
goto &352

&450
print=1:tab(01,01),atb(21),tab(01,01),paint(kh,ka),naam,paint(kt,0),"  MEERVOUDIGE BETALINGEN ",tab(70),ndat
print=1:tab(01,22),"Kortingen kunnen niet verwerkt worden."
i1=5    ;lijnteller
totgino=0
i2=1    ;loper betnum
&452
print=1:tab(01,24),atb(21)
ask=1,i=&460,u=&458:tab(01,24),"Geef nummer betaling",esc=i4
if i4<1 : goto  &452
if i4>i3 : goto  &452
for k=1 to 200
if i4=betnum(k) : goto  &453
next k
goto &454
&453
print=1:tab(01,24),atb(21)
ask=1:tab(01,24),paint(kh,ka),"Deze betaling is reeds aanwezig :",paint(kt,0)," "=j
goto &452
&454
totgino=totgino+tottbe(i4)-totbet(i4)
print=1:tab(01,23),totfak(i4),"  ",(-7.n2),tottbe(i4),totbet(i4),(e),"  =  ",(-7.n2),tottbe(i4)-totbet(i4),tab(60),totgino
betnum(i2)=i4
i2=i2+1
i1=i1+1
if mod(i2,19)<>0 : goto  &452
print=1:tab(01,24),atb(21)
ask=1,i=&460,u=&458:tab(01,24),paint(kh,ka),bla,paint(kt,0),ret=j
print=1:tab(01,05),atb(22)
i1=5
goto &452
&458
if i2=1 : goto  &200
betnum(i2)=0
i2=i2-1
if i5=5 : goto  &450
print=1:tab(01,i5),atb(21)
i5=i5-1
goto &452
&460                           ;einde alles sorteren en verwerken 
print=1:tab(01,24),atb(21)
ask=1,i=&200:tab(01,24),vali=j
j=large(j)
if j<>"Y" : goto  &200
i1=1         ;begin loper
i2=i2        ;eind loper
&461
i4=0
for k=i1 to i2
if betnum(k)>=betnum(k+1) : goto  &462
i3=betnum(k)
betnum(k)=betnum(k+1)
betnum(k+1)=i3
i4=1
&462
next k
if i4=1 : goto  &461    ;einde sortering verwerking gegevens
k=9999
for i1=1 to i2-1
k=9999
aanduid=4
i4=betnum(i1)
keuzom=totfak(i4)
tebetaal=tottbe(i4)-totbet(i4)
betaald=tebetaal
bedrag1=betaald
goto &282
&480
next i1
goto &200

&540
print=1:tab(01,24),atb(21)
inldat1=dt
ask=1,i=&10,u=&10,/80=&590,"nN"=&590:tab(01,24),"Datum bewerking : ",inldat1,tab(19)=inldat1
if len$(inldat1)<>6 : goto  &541
inldat1=left(inldat1,2)+"."+substr(inldat1,3,2)+"."+substr(inldat1,5,2)
&541
dt=left(inldat1,len$(inldat1))+right(dt,8-len$(inldat1))
if substr(dt,3,1)<>"." : goto  &558
if substr(dt,6,1)<>"." : goto  &558
&542
dat3=dt
for i=1 to 2
if ondat(i)=" " : goto  &556
if ondat(i)<"0" : goto  &558
if ondat(i)>"9" : goto  &558
&556
next i
for i=4 to 5
if ondat(i)=" " : goto  &557
if ondat(i)<"0" : goto  &557
if ondat(i)>"9" : goto  &558
&557
next i
if ondat(8)=" " : goto  &558
goto &560
&558
print=1:tab(01,24),atb(21)
ask=1,i=&10,u=&10:tab(01,24),"Datum niet korrekt : ",paint(kt,0)," DD.MM.JJ : "=j
goto &540
&560    ;dt korrekt
print=1:tab(01,24),atb(21)
ask=1,i=&10,u=&540,/80=&570,/81=&575:tab(01,24),"Rekeninguittreksel : ",uitrek,tab(22,24)=uitrek
goto &580
&570
uitrek=substr(dt,4,2)+"/"+left(dt,2)
goto &560
&575
uitrek2=val(uitrek,1)
uitrek2=uitrek2+1
uitrek=strn(uitrek2)
goto &560
&580
print=1:tab(01,24),atb(21)
print=1:tab(01,03),paint(kh,ka),left(reknaam,len$(reknaam)),paint(kt,0),tab(21)," Saldo :",(-8.n2),reksaldo,(e)," Datum ",dt,"  Uit : ",uitrek," ",paint(kh,ka),(-8.n2),eindsald-reksaldo,(e),paint(kt,0)
if retkode=1 : goto  &21
if retkode=2 : goto  &221
if retkode=3 : goto  &345
return
&590
dt=ndat
goto &542

&1000
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
return 

&2000       
rekkode=nummer
search=8,rekkode:&2601,e,rekrec
goto &2602
&2601
print=1:tab(01,24),"Fout zoeken rekening : ",e," ",rekkode
stop
&2602
if kode="C" : goto  &2605
rekdeb(1)=rekdeb(1)+som
rekdeb(2)=rekdeb(2)+som
madbcr="D"
mabedrd=som
goto &2610
&2605
rekcred(1)=rekcred(1)+som
rekcred(2)=rekcred(2)+som
madbcr="C"
mabedrc=som
&2610
modif=8,rekkode:&2601,e,rekrec
rekhok=large(rekhok)
if rekhok="N" : goto  &2620
mareknr=nummer
makode="3"
madatum=dt
madat=right(madatum,2)+substr(madatum,4,2)+left(madatum,2)
maomsch=omschr
&2611
param3=par(3)
matel=teller(01)
makode2=makod9
insert=2,makod9:&2612,e,mahisre
goto &2620
&2612
if e=81 : goto  &2613
print=1:tab(01,24),"Fout insert mareknr : ",e," ",matel," ",mareknr
stop
&2613
teller(01)=teller(01)+1
par(3)=param3
goto &2611
&2620
teller(01)=teller(01)+1
par(3)=param3
madbcr=" "
mabedrc=0
mabedrd=0
return 

&3000
rekkode=rekening
search=8,rekkode:&3010,e,rekrec
goto &3020
&3010
print=1:tab(01,24),"Fout search rekkode : ",e," ",rekkode
stop
&3020
reksaldo=rekdeb(2)-rekcred(2)
return 

&3500
for i=1 to 200
tottbe(i)=0    ;totaal te betalen
totbet(i)=0    ;totaal betaald
totfak(i)=" "  ;faktuurnummer
totkey(i)=" "  ;key deze faktuur
next i
for i=1 to 200
betnum(i)=0
next i
return   

&4000
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  OVERZICHT OPENSTAANDE FAKTUREN "
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
print=1:paint(kh,ka),tab(03,03),"Nr.",tab(09),"Facnr",tab(17),"Omschrijving",tab(40),"Datum",tab(51),"Totaal",tab(62),"Betaald",tab(73),"Saldo",paint(kt,0)
print=1:paint(kl,0),tab(01,04),gener(79,hto),paint(kt,0)
return

&4500       
tottbe(i3)=faktebe    ;totaal te betalen
totbet(i3)=fakont     ;totaal betaald
totfak(i3)=faknum     ;faktuurnummers
totkey(i3)=fakkode    ;sleutel huidige faktuur
if fakkode=telkey : goto  &4510
print=1:tab(02,i2),paint(kn,ka),(n3),i3,(e),"     ",tab(08),paint(kn,ka2),(u6),shr(faknum),(e),"   ",tab(16),paint(kt,ka3)," ",(u23),fakoms,(e),tab(39),paint(kt,ka4)," ",fakdat
print=1:tab(50),paint(kn,ka5),(-7.n2),faktebe,(e)," ",tab(60),paint(kn,ka),(-7.n2),fakont,(e),"  ",tab(70),paint(kn,ka2),(-7.n2),faktebe-fakont,paint(kt,0)
goto &4520
&4510
print=1:tab(01,i2),">",paint(kh,ka2),(n3),i3,(e),"     ",tab(08),(u6),shr(faknum),(e),"   ",tab(16)," ",(u23),fakoms,(e),tab(39)," ",fakdat,"  ",tab(50),(-7.n2),faktebe,(e)," ",tab(60),(-7.n2),fakont,(e),"  ",tab(70),(-7.n2),faktebe-fakont,paint(kt,0)
phil=i2
&4520
i2=i2+1
return

&5000
print=1:tab(01,24),"Fout insert modif delete fakkode : ",e," ",fakkode
stop

&8500
for e=5 to 10
print=1:tab(01,e),atb(21)
next e
print=1:tab(01,05),paint(kh,ka),"Betaling via selektie van een faktuurnummer routine klanten ",paint(kt,0)
print=1:paint(kl,0),tab(01,06),gener(79,hto),paint(kt,0)
selffak="  "
&8501
ask=1,i=&20,u=&20:tab(01,07),"Geef faktuurnummer die betaald werd : "=selffak
if selffak=" " : goto  &8501
selffak=shr(selffak)
srtfsrt="F"
srtftype="K"
srtffak=selffak
srtfrec=" "
search=7,srtfkode:&8505,e
&8505
down=7:&20,e,srtfdown
if srtffak<>selffak : goto  &20
if srtftype<>"K" : goto  &20
fakkode=srtfrec
&8506
search=9,fakkode:&20,e,fakrec
klkode=fakname
telkey=fakkode
for e=5 to 10
print=1:tab(01,e),atb(21)
next e
klkode=large(klkode)
search=6,klkode:&35,e,klrec
goto &35

&8600
for e=5 to 10
print=1:tab(01,e),atb(21)
next e
print=1:tab(01,05),paint(kh,ka),"Betaling via selektie op een bedrag routine klanten ",paint(kt,0)
print=1:paint(kl,0),tab(01,06),gener(79,hto),paint(kt,0)
selbbed=0
selebed=0
selnbed=0
&8601
for e=1 to 24
tabkey(e)=" "
next e
print=1:tab(01,27),atb(21)
ask=1,i=&20,u=&20,/80=&8602:tab(01,07),"Geef bedrag dat betaald werd : "=selnbed
if selnbed=0 : goto  &8601
&8602
selbbed=selnbed-(selnbed*marge/100)
selebed=selnbed+(selnbed*marge/100)
selbbed=roun(selbbed,2)
selebed=roun(selebed,2)
print=1:tab(01,07),"Selektie bedrag : ",(-6.n2),selnbed,(e),"  Beginmarge : ",(-6.n2),selbbed,(e),"  Eindmarge : ",(-6.n2),selebed
print=1:tab(01,08),paint(kh,ka),"Datum",tab(10),"Klant",tab(40),"Factuurnr",tab(55),"Bedrag",tab(66),"Lijnnummer",paint(kt,0)
lijntel=9
selbed=conv(selbbed)
seleed=conv(selebed)
srtbsrt="B"
srtbtype="K"
srtbbed=selbed
srtbrec=" "
search=7,srtbkode:&8605,e
&8605
down=7:&8620,e,srtbdown
if srtbtype<>"K" : goto  &8620
if srtbbed>seleed : goto  &8620
fakkode=srtbrec
search=9,fakkode:&8605,e,fakrec
klkode=fakname
search=6,klkode:&8605,e,klrec
print=1:tab(01,lijntel),fakdat,tab(10),paint(kh,ka),klnaam,paint(kt,0),tab(40),faknum,tab(50),(-7.n2),faktebe-fakont,tab(66),(n2),lijntel
tabkey(lijntel)=fakkode
lijntel=lijntel+1
if lijntel<22 : goto  &8605
i5=0
&8606
ask=1,i=&20,u=&20,/80=&8607:tab(01,24),paint(kh,ka),bla,paint(kt,0),num,ret,(n2)=i5
if i5=0 : goto  &8610
if i5<9 : goto  &8606
if i5>21 : goto  &8606
goto &8608
&8607
i5=9
&8608
fakkode=tabkey(i5)
goto &8506
&8610
for e=9 to 24
tabkey(e)=" "
next e
print=1:tab(01,09),atb(22)
lijntel=9
goto &8605
&8620
if lijntel=9 : goto  &20
i5=0
&8621
print=1:tab(01,24),atb(21)
ask=1,i=&20,u=&20,/80=&8622:tab(01,24),paint(kh,ka),bere,paint(kt,0),num,esc,(n2)=i5
if i5=0 : goto  &20
if i5<9 : goto  &20
if i5>22 : goto  &20
goto &8623
&8622
i5=9
&8623
fakkode=tabkey(i5)
goto &8506

&9000
for tel=1 to 24
sleutl(tel)=" "
next tel
lijntel=6
print=1:tab(01,06),atb(22)
klkode=" "
ask=1,i=&20,u=&20:tab(01,24),"Geef beginkode : ",klkode,tab(18)=klkode
klkode=large(klkode)
search=6,klkode:&9005,e,klrec
goto &9010
&9005
down=6:&9025,e,kldown
&9010
print=1:tab(01,lijntel),paint(kn,ka),(n3),lijntel,(e)," ",paint(kt,ka2)," ",klnaam ,paint(kt,ka3)," ",klstra,paint(kt,ka4)," ",left(klgem,18),paint(kt,0)
sleutl(lijntel)=klkode
lijntel=lijntel+1
if lijntel<23 : goto  &9005
sleunum=1
ask=1,i=&20,u=&20:tab(01,24),paint(kh,ka),bla,paint(kt,0),num,ret,(n2)=sleunum
klkode=sleutl(sleunum)
search=6,klkode:&9000,e,klrec
print=1:tab(01,06),atb(22)
goto &22
&9020
for tel=1 to 24
sleutl(tel)=" "
next tel
lijntel=6
goto &9005
&9025
sleunum=1
ask=1,i=&20,u=&20:tab(01,24),paint(kh,ka),bere,paint(kt,0),num,ret,(n2)=sleunum
klkode=sleutl(sleunum)
search=6,klkode:&20,e,klrec
print=1:tab(01,06),atb(22)
goto &22

&9100
for tel=1 to 24
sleutl(tel)=" "
next tel
lijntel=6
print=1:tab(01,06),atb(22)
levkode=" "
ask=1,i=&200,u=&200:tab(01,24),"Geef beginkode : ",levkode,tab(18)=levkode
levkode=large(levkode)
search=10,levkode:&9105,e,levrec
goto &9110
&9105
down=10:&9125,e,levdown
&9110
print=1:tab(01,lijntel),paint(kn,ka),(n3),lijntel,(e)," ",paint(kt,ka2)," ",levnaam ,paint(kt,ka3)," ",levstraa,paint(kt,ka4)," ",levgem,paint(kt,0)
sleutl(lijntel)=levkode
lijntel=lijntel+1
if lijntel<23 : goto  &9105
sleunum=1
ask=1,i=&200,u=&200:tab(01,24),paint(kh,ka),bla,paint(kt,0),num,ret,(n2)=sleunum
if sleunum=1 : goto  &9120
levkode=sleutl(sleunum)
search=10,levkode:&9120,e,levrec
print=1:tab(01,06),atb(22)
goto &222
&9120
for tel=1 to 24
sleutl(tel)=" "
next tel
lijntel=6
goto &9105
&9125
sleunum=1
ask=1,i=&200,u=&200:tab(01,24),paint(kh,ka),bere,paint(kt,0),num,ret,(n2)=sleunum
search=10,levkode:&200,e,levrec
print=1:tab(01,06),atb(22)
goto &222

&9500
for e=5 to 10
print=1:tab(01,e),atb(21)
next e
print=1:tab(01,05),paint(kh,ka),"Betaling via selektie van een faktuurnummer routine leveranciers ",paint(kt,0)
print=1:paint(kl,0),tab(01,06),gener(79,hto),paint(kt,0)
selffak=" "
&9501
print=1:tab(01,07),atb(21)
ask=1,i=&200,u=&200:tab(01,07),"Geef faktuurnummer die betaald werd : "=selffak
if selffak="      " : goto  &9501
selffak=shr(selffak)
srtfsrt="F"
srtftype="L"
srtffak=selffak
srtfrec=" "
search=7,srtfkode:&9505,e
&9505
down=7:&200,e,srtfdown
if srtffak<>selffak : goto  &200
if srtftype<>"L" : goto  &200
fakkode=srtfrec
&9506
search=9,fakkode:&200,e,fakrec
levkode=fakname
telkey=fakkode
for e=5 to 10
print=1:tab(01,e),atb(21)
next e
levkode=large(levkode)
search=10,levkode:&235,e,levrec
goto &235

&9600
for e=5 to 10
print=1:tab(01,e),atb(21)
next e
print=1:tab(01,05),paint(kh,ka),"Betaling via selektie op een bedrag routine leveranciers ",paint(kt,0)
print=1:paint(kl,0),tab(01,06),gener(79,hto),paint(kt,0)
selbbed=0
selebed=0
selnbed=0
&9601
for e=1 to 24
tabkey(e)=" "
next e
print=1:tab(01,07),atb(21)
ask=1,i=&20,u=&20,/80=&9602:tab(01,07),"Geef bedrag dat betaald werd : "=selnbed
if selnbed=0 : goto  &9601
&9602
selbbed=selnbed-(selnbed*marge/100)
selebed=selnbed+(selnbed*marge/100)
selbbed=roun(selbbed,2)
selebed=roun(selebed,2)
print=1:tab(01,07),"Selektie bedrag : ",(-6.n2),selnbed,(e),"  Beginmarge : ",(-6.n2),selbbed,(e),"  Eindmarge : ",(-6.n2),selebed
print=1:tab(01,08),paint(kh,ka),"Datum",tab(10),"Leverancier",tab(40),"Facnum",tab(50),"Bedrag",tab(60),"Lijnnummer",paint(kt,0)
lijntel=9
selbed=conv(selbbed)
seleed=conv(selebed)
srtbsrt="B"
srtbtype="L"
srtbbed=selbed
srtbrec=" "
search=7,srtbkode:&9605,e
&9605
down=7:&9620,e,srtbdown
if srtbtype<>"L" : goto  &9620
if srtbbed>seleed : goto  &9620
fakkode=srtbrec
search=9,fakkode:&9605,e,fakrec
levkode=fakname
search=10,levkode:&9605,e,levrec
print=1:tab(01,lijntel),fakdat,tab(10),paint(kh,ka),levnaam,paint(kt,0),tab(40),faknum,tab(50),(-7.n2),faktebe-fakont,tab(66),(--),lijntel
tabkey(lijntel)=fakkode
lijntel=lijntel+1
if lijntel<22 : goto  &9605
i5=0
&9606
print=1:tab(01,24),atb(21)
ask=1,i=&200,u=&200,/80=&9607:tab(01,24),paint(kh,ka),bla,paint(kt,0),num,ret,(n2)=i5
if i5=0 : goto  &9610
if i5<9 : goto  &9606
if i5>21 : goto  &9606
goto &9608
&9607
i5=9
&9608
fakkode=tabkey(i5)
goto &9506
&9610
for e=9 to 24
tabkey(e)=" "
next e
print=1:tab(01,09),atb(22)
lijntel=9
goto &9605
&9620
if lijntel=9 : goto  &200
i5=0
&9621
print=1:tab(01,24),atb(21)
ask=1,i=&200,u=&200,/80=&9622:tab(01,24),paint(kh,ka),bere,paint(kt,0),num,ret,(n2)=i5
if i5=0 : goto  &200
if i5<9 : goto  &200
if i5>22 : goto  &200
goto &9623
&9622
i5=9
&9623
fakkode=tabkey(i5)
goto &9506
&9700
print=1:tab(01,24),"Fout insert finkode : ",e," ",finkode,atb(21)
stop

eseg 0

segment 3   ; basisrekening segment

goto &15 
&1
retkode=98
goto &1000
&10
retkode=99
goto &1000
&15
for i=1 to 9 
vfoms(i)=" "
rekkode=vfinrek(i)
search=8,rekkode:&16,e,rekrec
vfoms(i)=large(rekoms)
&16
next i
&20 
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  BEHANDELING FINANCIEEL : Bepalen basisrekening "
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
&30
print=1:tab(01,03),atb(22)
k=10
for i=1 to 9
if vfinrek(i)=" " : goto  &40 
rekkode=vfinrek(i)
search=8,rekkode:&40,e,rekrec
&35
print=1:tab(01,k),paint(kh2,ka3),"F",(-),i,(e),paint(kt,0),"=",vfinrek(i)," ",paint(kh,ka),rekoms,paint(kt,0)
k=k+1
&40
next i 
&300
print=1:tab(01,04),"Geef rekeningnummer",esc
rekkode=" "
ask=1,i=&1,u=&1,/80=&301,/81=&302,/82=&303,/83=&304,/84=&305,/85=&306,/86=&307,/87=&308,/88=&308,/89=&309,/8a=&417,/8b=&419:tab(35,04)=rekkode
if rekkode=" " : goto  &30 
goto &405
&301
if vfinrek(1)=" " : goto  &30 
rekkode=vfinrek(1)
goto &405
&302
if vfinrek(2)=" " : goto  &30 
rekkode=vfinrek(2)
goto &405
&303
if vfinrek(3)=" " : goto  &30 
rekkode=vfinrek(3)
goto &405
&304
if vfinrek(4)=" " : goto  &30 
rekkode=vfinrek(4)
goto &405
&305
if vfinrek(5)=" " : goto  &30 
rekkode=vfinrek(5)
goto &405
&306
if vfinrek(6)=" " : goto  &30 
rekkode=vfinrek(6)
goto &405
&307
if vfinrek(7)=" " : goto  &30 
rekkode=vfinrek(7)
goto &405
&308
if vfinrek(8)=" " : goto  &30 
rekkode=vfinrek(8)
goto &405
&309
if vfinrek(9)=" " : goto  &30 
rekkode=vfinrek(9)
&405
search=8,rekkode:&406,e,rekrec
goto &425
&406
print=1:tab(01,24),atb(21)
ask=1,i=&10,u=&30,/8a=&417,/8b=&419:tab(01,24),paint(kh,ka),"Rekening",ng,paint(kt,0),fvoor,voor,fvolg,volg=j
goto &20 
&417
uitrek=" "
print=1:tab(22,14),uitrek
up=8:&418,e,rekdown
goto &425
&418
print=1:tab(01,24),atb(21)
ask=1,i=&10,u=&30,/8a=&417,/8b=&419:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &20 
&419
uitrek=" "
print=1:tab(22,14),uitrek
print=1:tab(01,24),atb(21)
down=8:&420,e,rekdown
goto &425
&420
print=1:tab(01,24),atb(21)
ask=1,i=&10,u=&30,/8a=&417,/8b=&419:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &20
&425
print=1:tab(01,04),atb(22)
print=1:paint(kl,0),tab(01,10),gener(79,hto)
print=1:tab(01,18),gener(79,hto),paint(kt,0)
print=1:tab(01,11),"Rekeningnummer ",tab(20),": ",paint(kh,ka),rekkode,paint(kt,0)
print=1:tab(01,12),"Omschrijving   ",tab(20),": ",paint(kh,ka),rekoms,paint(kt,0)
print=1:tab(01,13),"Saldo rekening ",tab(20),": ",(-8.n2),rekdeb(2)-rekcred(2)
dt=findat
print=1:tab(01,14),"Datum bewerk.",tab(20),": ",findat
print=1:tab(01,16),"Uittreksel ",tab(20),": ",uitrek
print=1:tab(01,17),"Eindsaldo",tab(20),": "
uitrek=" "
finrek=rekkode
finuitr=" "
fintel=32000
search=4,finkode:&426,e,finrec
&426
up=4:&427,e,findown
if finrek<>rekkode : goto  &427
uitrek=finuitr
goto &428
&427
finuitr=" "
&428
print=1:tab(22,14),findat
print=1:tab(01,15),paint(kh,ka),"Laatste rekeninguittreksel voor dit dagboek :",paint(kt,0),"  ",finuitr
reksaldo=rekdeb(2)-rekcred(2)
rekening=rekkode
reknaam=rekoms    ;invullen interne gegevens dagboek
dt=findat
&440
print=1:tab(01,24),atb(21)
ask=1,i=&10,u=&10,/80=&301,/81=&302,/82=&303,/83=&304,/84=&305,/85=&306,/86=&307,/88=&308,/89=&309,/8a=&417,/8b=&419:tab(22,14)=dt
if len$(dt)<>6 : goto  &445
dt=left(dt,2)+"."+substr(dt,3,2)+"."+substr(dt,5,2)
&445 
dat3=left(dt,len$(dt))+right(findat,8-len$(dt))
if substr(dat3,3,1)<>"." : goto  &455
if substr(dat3,6,1)<>"." : goto  &455
if len$(dat3)<>8 : goto  &455
dt=dat3
print=1:tab(22,14),dt
goto &460
&455
print=1:tab(01,24),atb(21)
ask=1,i=&10,u=&10:tab(01,24),"Datum niet korrekt : ",paint(kt,0)," DD.MM.JJ : "=j
goto &440
&460    ;dt korrekt
ask=1,i=&10,u=&440,/8a=&417,/8b=&419:tab(22,16),uitrek,tab(22,16)=uitrek
if uitrek=" " : goto  &460
&462
eindsald=reksaldo
print=1:tab(22,17),(-8.n2),eindsald 
ask=1,i=&10,u=&460:tab(22,17)=eindsald
&1000
ret.seg

eseg 3

segment 6

leessec="O"
goto &2

&1
ret.seg

&2
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  OVERZICHT FINANCIEEL DAGBOEK ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto)
print=1:tab(01,04),gener(79,htb),paint(kt,0)
print=1:tab(01,03),paint(kh,ka),tab(10),"Uittrek",tab(21),"Factnr",tab(34),"Saldo",tab(41),"Kl-Lv-Ar",tab(50),"Kode",tab(60),"Bedrag bank",paint(kt,0)
print=1:tab(60,04),"Maand : ",(n2),selmaand,(e)," "
i5=5
&3
ask=1,i=&1,u=&1,"iI"=&50:tab(01,24),"Keuze ",paint(kh,ka),"I",paint(kt,0),"=instel maand  ",paint(kh,ka),"N",paint(kt,0),"=normaal  ",paint(kh,ka),"O",paint(kt,0),"=omgekeerd  ",leessec," : "=leessec
leessec=large(leessec)
if leessec="N" : goto  &4
if leessec="O" : goto  &5
goto &3
&4
fintel=0
goto &8
&5
fintel=32000
&8
finrek=rekening
search=4,finkode:&9,e,finrec
&9
if leessec="N" : goto  &10
up=4:&100,e,findown
goto &11
&10
down=4:&100,e,findown
&11
if finrek<>rekening : goto  &100
if i5<22 : goto  &19
&12
print=1:tab(01,24),atb(21)
ask=1,i=&110,u=&110,/80=&150,"bB"=&150,"tT"=&55:tab(01,24),paint(kh,ka),bla,paint(kt,0),ret,paint(kh,ka),"T",paint(kt,0),"=terug : "=j
print=1:tab(01,05),atb(22)
i5=5
&19
op &60,e
&20
if selmaand=0 : goto  &21
k=conv(substr(findat,4,2))
if selmaand<>k : goto  &9
&21
if tstuit=" " : goto  &22
if tstuit=finuitr : goto  &22
print=1:paint(kl,0),tab(01,i5),gener(79,hto),paint(kt,0)
i5=i5+1
tstuit=finuitr
&22
print=1:tab(01,i5),paint(kt,ka),findat," ",paint(kt,ka3)," ",shr(finuitr),"   ",tab(19),"  ",paint(kn,ka4),shr(finfaknr)," ",tab(29)," ",paint(kn,ka5),(-7.n2),finsaldo,(e),"  ",paint(kt,ka)," ",finklva,"     ",tab(49),paint(kt,ka4)," ",(u8),finkllv," ",tab(58),paint(kn,ka4),"  ",(-11.n2),finbank,paint(kt,0)
tabfin(i5-4)=finkode
i5=i5+1
for i4=1 to 10
if fintrek(i4)=" " : goto  &9 
rekkode=fintrek(i4)
search=8,rekkode:&110,e,rekrec
print=1:tab(01,i5),paint(kt,ka),gener(79," ")
print=1:tab(22,i5),paint(kh,ka),fintrek(i4),paint(kt,0),":",paint(kh,ka),rekoms,tab(57,i5)," ",paint(kn,ka5),(-7.n2),fintbed(i4),paint(kt,0)
i5=i5+1
if i5>22 : goto  &12
&23
next i4
goto &9
&50
print=1:tab(01,23),atb(22)
print=1:tab(01,23),"Maand : enkel en alleen om een beginpositie te bepalen "
selmaand=0
ask=1,i=&1,u=&1:tab(01,24),"Instellen maand : "=selmaand
if selmaand=0 : goto  &51
if selmaand<1 : goto  &50
if selmaand>12 : goto  &50
&51
print=1:tab(60,04),"Maand ",(n2),selmaand
print=1:tab(01,23),atb(22)
goto &3
&55
print=1:tab(01,05),atb(22)
i5=5
if leessec="N" : goto  &56
leessec="N"
goto &9
&56
leessec="O"
goto &9
&60
if e=83 : goto  &100
if e=115 : goto  &100
goto &20 
&100
print=1:tab(01,24),atb(21)
ask=1,i=&110,u=&110,/80=&150,"tT"=&55:tab(01,24),paint(kh,ka),bere,paint(kt,0),ret,paint(kh,ka),"T",paint(kt,0),"=terugbladeren  : "=j
&110
ret.seg

&150     ;manipulatie financiele gegevens
for tel=1 to i5-5
print=1:tab(78,tel+4),paint(kh,ka),(--),tel,paint(kt,0)
next tel
print=1:tab(01,24),atb(21)
&160
zoek=24
ask=1,i=&300,u=&300:tab(01,24),"Geef te manipuleren lijnnummer : "=zoek
finkode=tabfin(zoek)
&165
search=4,finkode:&160,e,finrec
goto &180
&170
up=4:&175,e,findown
goto &180
&175
down=4:&170,e,findown
&180
print=1:tab(01,05),atb(22)
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
print=1:tab(23,05),finrek
print=1:tab(01,10),"Rekeningnummer",tab(20)," : ",(n6),finrek
print=1:tab(01,11),"Teller",tab(20)," : ",(n8),fintel
print=1:tab(01,12),"Datum",tab(20)," : ",findat
print=1:tab(01,13),"Uitreksel",tab(20)," : ",(u8),finuitr
print=1:tab(01,14),"Factuurnr",tab(20)," : ",finfaknr
print=1:tab(01,15),"Klant-Leverkode",tab(20)," : ",(u8),finkllv
print=1:tab(01,16),"Saldo",tab(20)," : ",(-8.n2),finsaldo
print=1:tab(01,17),"Bedrag bank",tab(20)," : ",(-8.n2),finbank
print=1:tab(01,18),"Kl-Lev ",finklva,tab(20)," : ",(-8.n2),finkla
print=1:tab(01,19),"Omschrijving",tab(20)," : ",finoms
print=1:tab(01,20),"Tegenboekingsrek",tab(20)," : ",fintrek(1),tab(33),fintrek(2),tab(43),fintrek(3),tab(53),fintrek(4),tab(63),fintrek(5),tab(73),fintrek(6)
print=1:tab(01,21),"Tegenboekingbedr.",tab(20)," : ",(-7.n2),fintbed(1),tab(33),fintbed(2),tab(43),fintbed(3),tab(53),fintbed(4),tab(63),fintbed(5),tab(73),fintbed(6)
print=1:paint(kl,0),tab(01,22),gener(79,hto),paint(kt,0)
goto &200
&185
ask=1,i=&200,u=&200,/8a=&170,/8b=&175:tab(23,10)=finrek
&190
ask=1,i=&200,u=&200,/8a=&170,/8b=&175:tab(23,11)=fintel
&192
finkode2=finkode
insert=4,finkode:&193,e,finrec
goto &200
&193
fintel=fintel+1
goto &192
&200
ask=1,i=&300,u=&185,/8a=&170,/8b=&175:tab(23,12)=findat
&205
ask=1,i=&225,u=&200,/8a=&170,/8b=&175:tab(23,13)=finuitr
&206
ask=1,i=&225,u=&205,/8a=&170,/8b=&175:tab(23,14)=finfaknr
finfaknr=shr(finfaknr)
&207
ask=1,i=&225,u=&206,/8a=&170,/8b=&175:tab(23,15)=finkllv   
finkllv=large(finkllv)
&208
ask=1,i=&225,u=&207,/8a=&170,/8b=&175:tab(23,16)=finsaldo
&209
ask=1,i=&225,u=&208,/8a=&170,/8b=&175:tab(23,17)=finbank 
&210
ask=1,i=&225,u=&219,/8a=&170,/8b=&175:tab(23,18)=finkla
&211
ask=1,i=&225,u=&210,/8a=&170,/8b=&175:tab(23,19)=finoms
finoms=large(finoms)
&212
ask=1,i=&225,u=&211,/8a=&170,/8b=&175:tab(23,20)=fintrek(1)
&213
ask=1,i=&225,u=&212,/8a=&170,/8b=&175:tab(23,21)=fintbed(1)
&214
ask=1,i=&225,u=&213,/8a=&170,/8b=&175:tab(33,20)=fintrek(2)
&215
ask=1,i=&225,u=&214,/8a=&170,/8b=&175:tab(33,21)=fintbed(2)
&216
ask=1,i=&225,u=&215,/8a=&170,/8b=&175:tab(43,20)=fintrek(3)
&217
ask=1,i=&225,u=&216,/8a=&170,/8b=&175:tab(43,21)=fintbed(3)
&218
ask=1,i=&225,u=&217,/8a=&170,/8b=&175:tab(53,20)=fintrek(4)
&219
ask=1,i=&225,u=&218,/8a=&170,/8b=&175:tab(53,21)=fintbed(4)
&220
ask=1,i=&225,u=&219,/8a=&170,/8b=&175:tab(63,20)=fintrek(5)
&221
ask=1,i=&225,u=&220,/8a=&170,/8b=&175:tab(63,21)=fintbed(5)
&222
ask=1,i=&225,u=&221,/8a=&170,/8b=&175:tab(73,20)=fintrek(6)
&223
ask=1,i=&225,u=&222,/8a=&170,/8b=&175:tab(73,21)=fintbed(6)
&225
j=" "
ask=1,i=&300,u=&300,/80=&260:tab(01,24),paint(kh,ka),vali,paint(kt,0)," (A=annulatie) : "=j
if j=" " : goto  &225
j=large(j)   
if j="N" : goto  &300
if j="A" : goto  &270
if j<>"Y" : goto  &225
&250
modif=4,finkode:&265,e,finrec
goto &300
&260
finkode2=finkode
insert=4,finkode:&265,e,finrec
goto &300
&265
if e<>81 : goto  &266
fintel=fintel+1
goto &260
&266 
print=1:tab(01,24),"Fout modif finkode : ",e," ",finkode
stop
&270
delete=4,finkode:&300,e
&300
for tel=1 to 24
tabfin(tel)=" "
next tel
print=1:tab(01,05),atb(22)
i5=5
goto &9

eseg 6

segment 10

goto &16
&1
ret.seg
&2
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  AKTUALISEREN VAN DE FAKTUURNUMMERS ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
print=1:tab(01,03),"OPMERKING"
print=1:tab(01,05),"Deze routine laat U toe alle openstaande fakturen van klanten en leveranciers"
print=1:tab(01,06),"te laten sorteren op faktuurnummer en faktuurbedrag.  Via subkeuze ",paint(kh,ka),"F4",paint(kt,0)," en ",paint(kh,ka),"F5",paint(kt,0)
print=1:tab(01,07),"bij ondermenu betalingen klanten en leveranciers is het dan mogelijk om een"
print=1:tab(01,08),"betaling te doen op een bepaald faktuurnummer of op een bepaald bedrag, die"
print=1:tab(01,09),"dan voldoet aan opgegeven marges via subkeuze 7.  Deze sortering duurt enkele"
print=1:tab(01,10),"minuten dit naargelang de hoeveelheid van openstaande fakturen.  Het is "
print=1:tab(01,11),"aangeraden dat wanneer er fakturen ingeschreven worden of uitgeschreven "
print=1:tab(01,12),"worden de sortering opnieuw te doen, om zo de bestanden aan te passen."
print=1:paint(kl,0),tab(01,14),gener(79,hto),paint(kt,0)
&10
j=" "
print=1:tab(01,24),atb(21)
ask=1,i=&1,u=&1:bell,tab(01,24),"Mag de sortering uitgevoerd worden  Y-N : "=j
j=large(j)
if j="N" : goto  &1
if j<>"Y" : goto  &10
&15
print=1:tab(01,24),atb(21)
&16
open=9:&1,e
dfile=7:&17,e
&17
cfile=7,lk=25:&20,e
&20
down=9:&1,e,fakdown
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=7,srtbkode:&22,e
&22
insert=7,srtfkode:&23,e
&23
modif=7,srtbkode:&24,e
&24
modif=7,srtfkode:&30,e
&30
print=1:tab(01,24),fakdat," ",fakklv," ",fakname," ",faknum
goto &20

eseg 10

segment 11

goto &10
&1
ret.seg
&10
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  OPZOEKEN BEDRAGEN KLANTEN ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
&15
print=1:tab(01,05),atb(22)
ask=1,i=&1,u=&1,/80=&200,/81=&310,/82=&500,/8a=&22,/8b=&24:tab(01,05),"Geef klantenkode",esc=klkode
klkode=large(klkode)
if klkode=" " : goto  &15
search=6,klkode:&20,e,klrec
goto &40
&20 
ask=1,i=&15,u=&15,/8a=&22,/8b=&24:tab(01,24),paint(kh,ka),"Klant",ng,paint(kt,0),fvoor,voor,fvolg,volg=j
j=large(j)
goto &15
&22
up=6:&23,e,kldown
goto &40
&23 
print=1:tab(01,24),atb(21)
ask=1,i=&15,u=&15,/8b=&24:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &15
&24
down=6:&25,e,kldown
goto &40
&25 
print=1:tab(01,24),atb(21)
ask=1,i=&15,u=&15,/8a=&22:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &15
&40
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Klantenkode   : ",klkode
print=1:tab(01,07),"Naam     : ",paint(kh,ka),left(klnaam,len$(klnaam)),paint(kt,0)
print=1:tab(01,08),"Straat   : ",klstra
print=1:tab(01,09),"Gemeente : ",klgem
print=1:paint(kl,0),tab(01,11),gener(79,hto),paint(kt,0)
&45
j="Y"
ask=1,i=&15,u=&15,/8a=&22,/8b=&24:tab(01,13),"Deze klant  Y-N : "=j
j=large(j)
if j="N" : goto  &15
if j<>"Y" : goto  &45
&50
print=1:tab(01,03),atb(22)
open=4:&1,e
for tel=1 to 24
tabfin(tel)=" "
next tel
lijntel=4
totaal=0
&60
print=1:tab(01,03),"Datum",tab(10),"Naam klant",tab(35),"Bedrag betaald",tab(55),"Rekening"
&70
down=4:&100,e,findown
if lijntel>22 : goto  &90
if finklva<>"K" : goto  &70
if finkllv<>klkode : goto  &70
&80
totaal=totaal+finbank
print=1:tab(01,lijntel),findat,tab(10),paint(kh,ka),klnaam,paint(kt,0),tab(35),(-12.n2),finbank,(e),tab(55),finrek,tab(65),(-6.n2),totaal
tabfin(lijntel)=finkode
lijntel=lijntel+1
goto &70
&90
print=1:tab(01,24),atb(21)
ask=1,"bB"=&150,/80=&150:tab(01,24),paint(kh,ka),bla,paint(kt,0),ret,esc=j
&95
for tel=1 to 24
tabfin(tel)=" "
next tel
lijntel=4
print=1:tab(01,04),atb(22)
goto &70
&100
print=1:tab(01,24),atb(21)
ask=1,"bB"=&150,/80=&150:tab(01,24),paint(kh,ka),bere,paint(kt,0),ret,esc=j
goto &1 
&150
ldgo.seg 12
goto &10

&200
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  OPZOEKEN  BEDRAGEN LEVERANCIERS ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
&215
print=1:tab(01,05),atb(22)
ask=1,i=&1,u=&1,/80=&10,/81=&310,/82=&500,/8a=&222,/8b=&224:tab(01,05),"Geef leverancierskode",esc=levkode
levkode=large(levkode)
if levkode=" " : goto  &215
search=10,levkode:&220,e,levrec
goto &240
&220
ask=1,i=&215,u=&215,/8a=&222,/8b=&224:tab(01,24),paint(kh,ka),"Leverancier",ng,paint(kt,0),fvoor,voor,fvolg,volg=j
j=large(j)
goto &215
&222
up=10:&223,e,levdown
goto &240
&223
print=1:tab(01,24),atb(21)
ask=1,i=&215,u=&215,/8b=&224:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &215
&224
down=10:&225,e,levdown
goto &240
&225
print=1:tab(01,24),atb(21)
ask=1,i=&215,u=&215,/8a=&222:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &215
&240
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Leverancierskode  : ",levkode
print=1:tab(01,07),"Naam     : ",paint(kh,ka),left(levnaam,len$(levnaam)),paint(kt,0)
print=1:tab(01,08),"Straat   : ",levstraa
print=1:tab(01,09),"Gemeente : ",levgem
print=1:paint(kl,0),tab(01,11),gener(79,hto),paint(kt,0)
&245
ask=1,i=&215,u=&215,/8a=&222,/8b=&224:tab(01,13),"Deze leverancier  Y-N : "=j
j=large(j)
if j="N" : goto  &215
if j<>"Y" : goto  &245
&250
print=1:tab(01,03),atb(22)
open=4:&1,e
for tel=1 to 24
tabfin(tel)=" "
next tel
lijntel=4
totaal=0
&260
print=1:tab(01,03),"Datum",tab(10),"Naam Lever",tab(35),"Bedrag betaald",tab(55),"Rekening"
&270
down=4:&300,e,findown
if lijntel>22 : goto  &290
if finklva<>"L" : goto  &270
if finkllv<>levkode : goto  &270
&280
totaal=totaal+finbank
print=1:tab(01,lijntel),findat,tab(10),paint(kh,ka),levnaam,paint(kt,0),tab(35),(-12.n2),finbank,(e),tab(55),finrek,tab(65),(-6.n2),totaal
lijntel=lijntel+1
goto &270
&290
print=1:tab(01,24),atb(21)
ask=1,"bB"=&350,/80=&350:tab(01,24),paint(kh,ka),bla,paint(kt,0),ret,esc=j
&295
for tel=1 to 24
tabfin(tel)=" "
next tel
lijntel=4
print=1:tab(01,04),atb(22)
goto &270
&300
print=1:tab(01,24),atb(21)
ask=1,"bB"=&350,/80=&350:tab(01,24),paint(kh,ka),bere,paint(kt,0),ret,esc=j
goto &1 
&350
ldgo.seg 12
goto &200

&310
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  OPZOEKEN  BEDRAGEN ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
open=4:&1,e
lijntel=4
&320
for e=1 to 5
bedrag(e)=0
next e
&330
for e=1 to 5
ask=1,i=&1,u=&1:tab(01,03),"Geef te zoeken bedragen : "=bedrag(e)
next e
&360
print=1:tab(01,03),atb(22)
print=1:tab(01,03),"Datum",tab(35),"Bedrag betaald",tab(55),"Rekening"
&370
down=4:&400,e,findown
if lijntel>22 : goto  &390
for e=1 to 5
if bedrag(e)=0 : goto  &375
if finsaldo=bedrag(e) : goto  &380
if finbank=bedrag(e) : goto  &380
if finkla=bedrag(e) : goto  &380
for tel=1 to 10
if fintbed(tel)=bedrag(e) : goto  &380
next tel
&375
next e
goto &370
&380
print=1:tab(01,lijntel),findat,tab(35),(-12.n2),finbank,(e),tab(55),finrek
lijntel=lijntel+1
goto &370
&390
print=1:tab(01,24),atb(21)
ask=1:tab(01,24),paint(kh,ka),bla,paint(kt,0),ret,esc=j
lijntel=4
print=1:tab(01,04),atb(22)
goto &370
&400
print=1:tab(01,24),atb(21)
ask=1:tab(01,24),paint(kh,ka),bere,paint(kt,0),ret,esc=j
goto &1 
&500 
print=1:tab(01,03),atb(22)
ask=1,i=&1,u=&1:tab(01,05),"Geef rekeningnummer : "=rekkode
search=8,rekkode:&500,e,rekrec
open=4:&1,e
&560
print=1:tab(01,03),atb(22)
print=1:tab(01,03),"Datum"
lijntel=5
&570
down=4:&600,e,findown
if lijntel>22 : goto  &590
for e=1 to 10
if fintrek(e)=rekkode : goto  &580
&575
next e
goto &570
&580
print=1:tab(01,lijntel),findat," ",(-12.n2),finbank,fintbed(e),(e)," ",finrek
lijntel=lijntel+1
goto &570
&590
print=1:tab(01,24),atb(21)
ask=1:tab(01,24),paint(kh,ka),bla,paint(kt,0),ret,esc=j
lijntel=4
print=1:tab(01,04),atb(22)
goto &570
&600
print=1:tab(01,24),atb(21)
ask=1:tab(01,24),paint(kh,ka),bere,paint(kt,0),ret,esc=j
goto &1 

eseg 11

segment 12

&150     ;manipulatie financiele gegevens
for tel=1 to lijntel-4
print=1:tab(78,tel+3),paint(kh,ka),(--),tel,paint(kt,0)
next tel
print=1:tab(01,24),atb(21)
&160
zoek=1
ask=1,i=&300,u=&300:tab(01,24),"Geef te manipuleren lijnnummer : "=zoek
finkode=tabfin(zoek+3)
&165
search=4,finkode:&160,e,finrec
goto &180
&170
up=4:&175,e,findown
goto &180
&175
down=4:&170,e,findown
&180
print=1:tab(01,03),atb(22)
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
print=1:tab(23,05),finrek
print=1:tab(01,10),"Rekeningnummer",tab(20)," : ",(n6),finrek
print=1:tab(01,11),"Teller",tab(20)," : ",(n8),fintel
print=1:tab(01,12),"Datum",tab(20)," : ",findat
print=1:tab(01,13),"Uitreksel",tab(20)," : ",(u8),finuitr
print=1:tab(01,14),"Factuurnr",tab(20)," : ",finfaknr
print=1:tab(01,15),"Klant-Leverkode",tab(20)," : ",(u8),finkllv
print=1:tab(01,16),"Saldo",tab(20)," : ",(-8.n2),finsaldo
print=1:tab(01,17),"Bedrag bank",tab(20)," : ",(-8.n2),finbank
print=1:tab(01,18),"Klanten",tab(20)," : ",(-8.n2),finkla
print=1:tab(01,19),"Omschrijving",tab(20)," : ",finoms
print=1:tab(01,20),"Tegenboekingsrek",tab(20)," : ",fintrek(1),tab(33),fintrek(2),tab(43),fintrek(3),tab(53),fintrek(4),tab(63),fintrek(5),tab(73),fintrek(6)
print=1:tab(01,21),"Tegenboekingbedr.",tab(20)," : ",(-7.n2),fintbed(1),tab(33),fintbed(2),tab(43),fintbed(3),tab(53),fintbed(4),tab(63),fintbed(5),tab(73),fintbed(6)
print=1:paint(kl,0),tab(01,22),gener(79,hto),paint(kt,0)
goto &200
&185
ask=1,i=&200,u=&200,/8a=&170,/8b=&175:tab(23,10)=finrek
&190
ask=1,i=&200,u=&200,/8a=&170,/8b=&175:tab(23,11)=fintel
&192
finkode2=finkode
insert=4,finkode:&193,e,finrec
goto &200
&193
fintel=fintel+1
goto &192
&200
ask=1,i=&300,u=&185,/8a=&170,/8b=&175:tab(23,12)=findat
&205
ask=1,i=&225,u=&200,/8a=&170,/8b=&175:tab(23,13)=finuitr
&206
ask=1,i=&225,u=&205,/8a=&170,/8b=&175:tab(23,14)=finfaknr
finfaknr=shr(finfaknr)
&207
ask=1,i=&225,u=&206,/8a=&170,/8b=&175:tab(23,15)=finkllv   
finkllv=large(finkllv)
&208
ask=1,i=&225,u=&207,/8a=&170,/8b=&175:tab(23,16)=finsaldo
&209
ask=1,i=&225,u=&208,/8a=&170,/8b=&175:tab(23,17)=finbank 
&210
ask=1,i=&225,u=&219,/8a=&170,/8b=&175:tab(23,18)=finkla
&211
ask=1,i=&225,u=&210,/8a=&170,/8b=&175:tab(23,19)=finoms
finoms=large(finoms)
&212
ask=1,i=&225,u=&211,/8a=&170,/8b=&175:tab(23,20)=fintrek(1)
&213
ask=1,i=&225,u=&212,/8a=&170,/8b=&175:tab(23,21)=fintbed(1)
&214
ask=1,i=&225,u=&213,/8a=&170,/8b=&175:tab(33,20)=fintrek(2)
&215
ask=1,i=&225,u=&214,/8a=&170,/8b=&175:tab(33,21)=fintbed(2)
&216
ask=1,i=&225,u=&215,/8a=&170,/8b=&175:tab(43,20)=fintrek(3)
&217
ask=1,i=&225,u=&216,/8a=&170,/8b=&175:tab(43,21)=fintbed(3)
&218
ask=1,i=&225,u=&217,/8a=&170,/8b=&175:tab(53,20)=fintrek(4)
&219
ask=1,i=&225,u=&218,/8a=&170,/8b=&175:tab(53,21)=fintbed(4)
&220
ask=1,i=&225,u=&219,/8a=&170,/8b=&175:tab(63,20)=fintrek(5)
&221
ask=1,i=&225,u=&220,/8a=&170,/8b=&175:tab(63,21)=fintbed(5)
&222
ask=1,i=&225,u=&221,/8a=&170,/8b=&175:tab(73,20)=fintrek(6)
&223
ask=1,i=&225,u=&222,/8a=&170,/8b=&175:tab(73,21)=fintbed(6)
&225
j=" "
ask=1,i=&300,u=&300,/80=&260:tab(01,24),paint(kh,ka),vali,paint(kt,0)," (A=annulatie) : "=j
if j=" " : goto  &225
j=large(j)   
if j="N" : goto  &300
if j="A" : goto  &270
if j<>"Y" : goto  &225
&250
modif=4,finkode:&265,e,finrec
goto &300
&260
finkode2=finkode
insert=4,finkode:&265,e,finrec
goto &300
&265
if e<>81 : goto  &266
fintel=fintel+1
goto &260
&266 
print=1:tab(01,24),"Fout modif finkode : ",e," ",finkode
stop
&270
delete=4,finkode:&300,e
&300
for tel=1 to 24
tabfin(tel)=" "
next tel
print=1:tab(01,05),atb(22)
i5=5
ret.seg 

eseg 12 

end