program "TEGOED"

dcl netto,totaan,totver,rek6,rek7
dcl trek6=6,trek7=6
dcl tot1,tot2,tot3,tot4,tot5,tot6
dcl sal1=6
dcl voorkla,voorlev
dcl totaal=6,subtot=6,totlev=6,totkla=6,aankoop=6,verkoop=6
dcl kosten=6,opbreng=6
dcl waarde,leeg,totwaar,goederen,goed,leegg

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"

assign=2,bestand(10),wr,si
assign=3,bestand(04),wr,si
assign=4,bestand(03),wr,si
assign=5,bestand(16),wr,si
assign=7,bestand(01),wr,si
assign=9,bestand(05),wr,si

open=2:&1,e
open=3:&1,e
open=4:&1,e
open=5:&1,e
open=7:&1,e
open=9:&1,e

totaal=0
totkla=0
totlev=0

print=1:clear,paint(kh,ka),naam,paint(kt,0),"  SIMULATIE BEDRIJF       ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),ltb,gener(77,hto),rtb
print=1:tab(01,03),vtb,tab(79),vte
print=1:tab(01,04),lto,gener(77,hto),rto,paint(kt,0)
&10
down=2:&100,e,fakdown
print=1:tab(01,24),fakkllv," ",fakdat,(-10.n2),faktebe-fakont
if fakkllv="L" : goto  &20
totkla=totkla+(faktebe-fakont)
totaal=totaal+(faktebe-fakont)
goto &10
&20
totlev=totlev+(faktebe-fakont)
totaal=totaal-(faktebe-fakont)
goto &10
&100
voorkla=0
&200
down=3:&300,e,kldown
print=1:tab(01,24),klkode," ",klnaam,(-10.n2),klover
voorkla=voorkla+klover
totaal=totaal-klover
goto &200

&300
voorlev=0
&400
down=4:&500,e,levdown
print=1:tab(01,24),levkode," ",levnaam,(-10.n2),levvoor
voorlev=voorlev+levvoor
totaal=totaal-levvoor
goto &400
&500
print=1:tab(01,05),"Openstaande facturen klanten",tab(40),(-10.n2),totkla
print=1:tab(01,06),"Openstaande facturen leveranciers",tab(40),(-10.n2),totlev
print=1:tab(01,07),"Voorschotten klanten",tab(40),(-10.n2),voorkla
print=1:tab(01,08),"Voorschotten leveranciers",tab(40),(-10.n2),voorlev,tab(60),totaal

&1000
trek6=0
open=7:&1300,e
&1300
down=7:&1310,e,rekdown
if rekkode<>"6" : goto &1300
rek6=rekdeb(1)-rekcred(1)
trek6=trek6+rek6
goto &1300
&1310
totaan=trek6
print=1:tab(01,15),"Totaal 6 rekeningen",tab(40),(-10.n2),trek6,tab(60),totaan
&1400
trek7=0
open=7:&1410,e
&1401
down=7:&1410,e,rekdown
if rekkode<>"7" : goto &1401
rek7=rekdeb(1)-rekcred(1)
rek7=abs(rek7)
trek7=trek7+rek7
goto &1401
&1410
totver=trek7
print=1:tab(01,16),"Totaal 7 rekeningen",tab(40),(-10.n2),trek7,tab(60),totver,tab(60)
&1450
rekkode="600000"
search=7,rekkode:&1460,e,rekrec
rek6=rekdeb(1)-rekcred(1)
rek6=abs(rek6)
&1460
rekkode="700000"
search=7,rekkode:&1500,e,rekrec
rek7=rekdeb(1)-rekcred(1)
rek7=abs(rek7)
&1470
totaan=rek6
totver=rek7
if totaan=0 : goto &1500
print=1:tab(60,17),(-3.n2),100*(totver)/(totaan)-100,(e),"%"
&1500
ldgo.seg 4
print=1:tab(60,18),(-3.n2),totaal," Kosten"
 
ask=1:=j

goto &1

eseg 0

segment 4

* optellen aflossingen en kosten

&10
open=7
totaal=0
&20
down=7:&100,e,rekdown
if rekkode<"173001" : goto  &20
if rekkode>"173999" : goto  &30
sal1=0
sal1=sal1+rekdeb(1)-rekcred(1)
if sal1=0 : goto  &20
totaal=totaal+sal1
print=1:tab(01,24),rekkode," ",rekoms,(-10.n2),sal1,totaal
goto &20
&30
down=7:&100,e,rekdown
if rekkode<"453000" : goto  &30
if rekkode>"455000" : goto  &40
sal1=0
sal1=sal1+rekdeb(1)-rekcred(1)
if sal1=0 : goto  &30
totaal=totaal+sal1
print=1:tab(01,24),rekkode," ",rekoms,(-10.n2),sal1,totaal
goto &30
&40
down=7:&50,e,rekdown
if rekkode<"600001" : goto  &40
if rekkode>"699999" : goto  &50
sal1=0
sal1=sal1+rekdeb(1)-rekcred(1)
if sal1=0 : goto  &40
totaal=totaal+sal1
print=1:tab(01,24),rekkode," ",rekoms,(-10.n2),sal1,totaal
goto &40
&50
down=7:&100,e,rekdown
if rekkode<"700030" : goto  &50
if rekkode>"799999" : goto  &100
sal1=0
sal1=sal1+rekdeb(1)-rekcred(1)
if sal1=0 : goto  &50
totaal=totaal+sal1
print=1:tab(01,24),rekkode," ",rekoms,(-10.n2),sal1,totaal
goto &50
&100
print=1:tab(01,24),atb(21)
ret.seg

eseg 4

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