program "FINANCIEEL"
dcl som,reken$=6,kode$=1,omsch$=20
dcl fiche$=1,kllev$=1,rek$=1,rekhis$=1,k$=1,l$=1,t$=1

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"

assign=10,bestand(01),wr,si   ;rekeningen
assign=02,bestand(02),wr,si   ;maandhistoriek 
assign=03,bestand(03),wr,si   ;leveranciers
assign=04,bestand(04),wr,si   ;klanten
assign=09,bestand(09),wr,si   ;financieel dagboek
assign=11,bestand(11),wr,si   ;klantenhistoriek
assign=12,bestand(12),wr,si   ;leveranciershistoriek

&9
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  VERWERKEN FINANCIEEL ",tab(70),ndat
print=1:tab(01,02),gener(79,hto)
print=1:tab(01,05),"Dit programma verwerkt de financiele dagboeken."
print=1:tab(01,06),"----------------------------------------------"
print=1:tab(01,08),"Fichen bijwerken            Y-N : "
print=1:tab(01,09),"Omzetten tegoeden bijwerken Y-N : "
print=1:tab(01,10),"Rekeningen bijwerken        Y-N : "
print=1:tab(01,11),"Hist. rekeningen bijwerken  Y-N : "
print=1:tab(01,12),"KLANTEN                     Y-N : "
print=1:tab(01,13),"LEVERANCIERS                Y-N : "
print=1:tab(01,14),"REKENINGEN                  Y-N : "
print=1:tab(01,16),gener(79,hto)
&10
fiche=" "
ask=1,i=&1,u=&1:tab(35,08)=fiche
fiche=large(fiche)
if fiche="Y" : goto  &20
if fiche="N" : goto  &20
goto &10
&20
kllev=" "
ask=1,i=&1,u=&10:tab(35,09)=kllev
kllev=large(kllev)
if kllev="Y" : goto  &30
if kllev="N" : goto  &30
goto &20
&30
rek=" "
ask=1,i=&1,u=&20:tab(35,10)=rek
rek=large(rek)
if rek="Y" : goto  &40
if rek="N" : goto  &40
goto &30
&40
rekhis=" "
ask=1,i=&1,u=&30:tab(35,11)=rekhis
rekhis=large(rekhis)
if rekhis="Y" : goto  &50
if rekhis="N" : goto  &50
goto &40
&50
k=" "
ask=1,i=&1,u=&40:tab(35,12)=k
k=large(k)
if k="Y" : goto  &60
if k="N" : goto  &60
goto &50
&60
l=" "
ask=1,i=&1,u=&50:tab(35,13)=l
l=large(l)
if l="Y" : goto  &70
if l="N" : goto  &70
goto &60
&70
t=" "
ask=1,i=&1,u=&60:tab(35,14)=t
t=large(t)
if t="Y" : goto  &90
if t="N" : goto  &90
goto &70
&90 
ask=1,i=&1,u=&70:tab(01,18),vali=j
j=large(j)
if j<>"Y" : goto  &1
&100
ldgo.seg 10
down=9:&1,e,findown
print=1:tab(01,24),finrek," ",findat," ",finklva," ",finkllv,(-10.n2),finbank
if finklva="K" : goto  &110  
if finklva="L" : goto  &120  
if finklva="A" : goto  &130
goto &100
&110
if k<>"Y" : goto  &100
ldgo.seg 1
goto &100
&120
if l<>"Y" : goto  &100
ldgo.seg 2
goto &100
&130
if t<>"Y" : goto  &100
ldgo.seg 3
goto &100
eseg 0

segment 1
 
&1 
goto &20
&10
ret.seg 
&20
klkode=finkllv
search=4,klkode:&25,e,klrec
goto &30 
&25
insert=4,klkode:&26,e,klrec
goto &30 
&26
stop
&30
makllev="K"
maklv=klkode
if fiche<>"Y" : goto  &105
hisnaam=klkode
histdat=right(findat,2)+substr(findat,4,2)+left(findat,2)
histel=0
hisdat=findat
omsch=finoms
hiskod1="F"
hiskod2=" "
hisbed1=-finkla
hiskllv=klkode
hisbed2=0
hisfakt=finfaknr
hisbetw=finrek
hisoms=finoms
hisbtw=0
if fintrek(1)=" " : goto  &85
if fintrek(1)=vastrek(12) : goto  &50
if fintrek(1)=vastrek(14) : goto  &60
if fintrek(1)=vastrek(16) : goto  &70
goto &85
&50
hiskod2="V"
goto &80
&60
hiskod2="K"
goto &80
&70
hiskod2="I"
&80
hisbed1=-finkla
hisbed2=-fintbed(1)
&85
insert=11,hiskode:&90,e,kllvhis
goto &100
&90 
histel=histel+1
goto &85
&100

teller(07)=teller(07)+1       ;aanpassen historieken teller
&105
if kllev<>"Y" : goto  &120
kltego=kltego-finbank         ;verlagen te ontvangen van deze klant
modif=4,klkode:&110,e,klrec
goto &120
&110
print=1:tab(01,24),"Fout modif klkode : ",e," ",klkode
stop
&120
par(3)=param3
par(4)=param4
&150
if finbank>=0 : goto  &160
som=-finbank
kode="C"
goto &180
&160
som=finbank
kode="D"
&180
reken=finrek
ldgo.seg 5
&190
if finkla=0 : goto  &200
reken=vastrek(01)
som=abs(finkla)
if finkla>0 : goto  &195
kode="C"
goto &199
&195
kode="D"
&199
ldgo.seg 5
&200
for tel=1 to 10
if fintrek(tel)=" " : goto  &300
if fintbed(tel)=0 : goto  &300
if fintbed(tel)>0 : goto  &210
kode="C" 
goto &220
&210
kode="D"
&220
som=abs(fintbed(tel))
reken=fintrek(tel)
ldgo.seg 5
&300
next tel
goto &10
eseg 1

segment 2
 
&1 
goto &20
&10
ret.seg 
&20
levkode=finkllv
search=3,levkode:&25,e,levrec
goto &30
&25
insert=3,levkode:&26,e,levrec
goto &30
&26
stop
&30
makllev="L"
maklv=levkode
if fiche<>"Y" : goto  &115
hisnaam=levkode
histdat=right(findat,2)+substr(findat,4,2)+left(findat,2)
histel=0
hisdat=findat
hisoms=finoms
omsch=finoms
hiskod1="F"
hiskod2=" "
hisbed1=-finkla
hiskllv=levkode
hisbed2=0
hisfakt=finfaknr
hisbetw=finrek
hisbtw=0
if fintrek(1)=" " : goto  &85
if fintrek(1)=vastrek(13) : goto  &50
if fintrek(1)=vastrek(15) : goto  &60
if fintrek(1)=vastrek(17) : goto  &70
goto &85
&50
hiskod2="V"
goto &80
&60
hiskod2="K"
goto &80
&70
hiskod2="I"
&80
hisbed1=-finkla
hisbed2=-fintbed(1)
&85
insert=12,hiskode:&90,e,kllvhis
goto &100
&90 
histel=histel+1
goto &85
&100
teller(08)=teller(08)+1       ;aanpassen historieken teller
levtebe=levtebe-finbank       ;verlagen te betalen van deze lever
&115
if kllev<>"Y" : goto  &120
modif=3,levkode:&110,e,levrec
goto &120
&110
print=1:tab(01,24),"Fout modif levkode : ",e," ",levkode
stop
&120
par(3)=param3
par(4)=param4
&150
if finbank>=0 : goto  &160
som=-finbank
kode="D"
goto &180
&160
som=finbank
kode="C"
&180
reken=finrek
ldgo.seg 5
&190
if finkla=0 : goto  &200
reken=vastrek(02)
som=abs(finkla)
if finkla>0 : goto  &195
kode="D"
goto &199
&195
kode="C"
&199
ldgo.seg 5
&200
for tel=1 to 10
if fintrek(tel)=" " : goto  &300
if fintbed(tel)=0 : goto  &300
if fintbed(tel)>0 : goto  &210
kode="D" 
goto &220
&210
kode="C"
&220
som=abs(fintbed(tel))
reken=fintrek(tel)
ldgo.seg 5
&300
next tel
goto &10
eseg 2

segment 3
 
&10
goto &30 
&20
ret.seg
&30 
if finbank>=0 : goto  &40
kode="C"
goto &50
&40
kode="D"
&50
som=abs(finbank)
reken=finrek
ldgo.seg 5
&100
for tel=1 to 10
if fintrek(tel)=" " : goto  &200
if fintbed(tel)=0 : goto  &200
if fintbed(tel)>0 : goto  &110
kode="C" 
goto &120
&110
kode="D"
&120
som=abs(fintbed(tel))
reken=fintrek(tel)
ldgo.seg 5
&200
next tel
goto &20
eseg 3

segment 5
reknum=reken
search=10,reknum:&601,e,rekrec
goto &602
&601
print=1:tab(01,24),"Fout search rekening : ",e," ",reknum
stop
&602
if kode="C" : goto  &605
rekdeb(1)=rekdeb(1)+som
rekdeb(2)=rekdeb(2)+som
madbcr="D"
mabedrd=som
goto &610
&605
rekcred(1)=rekcred(1)+som
rekcred(2)=rekcred(2)+som
madbcr="C"
mabedrc=som
&610
if rek<>"Y" : goto  &611
modif=10,reknum:&601,e,rekrec
&611
matgfak=finfaknr
mareknr=reken
makode="3"
madatum=findat
madat=right(madatum,2)+substr(madatum,4,2)+left(madatum,2)
maomsch=omsch 
if rekhis<>"Y" : goto  &620
rekhok=large(rekhok)
if rekhok="N" : goto  &620
matel=teller(01)
teller(01)=teller(01)+1
makode2=makod9
insert=2,makod9:&615,e,mahisre
goto &620
&612
if e=81 : goto  &611
print=1:tab(01,24),"Fout insert maandhistoriek : ",e," ",matel," ",mareknr
stop
&615
&620
madbcr=" "
mabedrc=0
mabedrd=0
ret.seg
eseg 5

segment 10
som=0
reken=" "
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
ret.seg
eseg 10
end
abedrc=0
ret.seg