program "CRKFIN"

dcl begsaldo=6
dcl zindown$=189
field=m,zindown
dcl zinkode$=8
field=m,zinkode
dcl zinrek$=6,zintel%,filler=1,zinrec$=180
field=m

#include "CRINCLU" 
#include "CRINCLU2"

assign=2,bestand(01),wr,si
assign=3,bestand(09),wr,si
assign=4,bestand(09),wr,si

open=2:&1,e  
open=3:&1,e 
open=4:&1,e

tel=1

&10
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  FINANCIEEL SALDO CORRECTIE ",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)
print=1:tab(03,03),paint(kh,ka),"                                                                            ",paint(kt,0)
&20
print=1:tab(01,05),atb(22)
&21
reknum=" " 
ask=1,i=&1,u=&1:tab(01,05),"Geef rekeningnummer : "=reknum
if reknum= " " : goto &21
search=2,reknum:&21,e,rekrec
print=1:tab(40,05),paint(kt,ka),rekoms,paint(kt,0)
goto &500
&30
ask=1,i=&1,u=&20:tab(01,07),"Geef beginsaldo : ",(-10.n2),begsaldo,tab(19,07)=begsaldo 
ask=1,i=&30,u=&30:=j
open=3:&1,e
&40
down=3:&21,e,findown        
if finrek<>reknum : goto &40
finsaldo=begsaldo
modif=3,finkode:&21,e,finrec

if large(finklva)="L" 
finbank=-finbank 
endif

begsaldo=finsaldo+finbank
dat=findat
;gosub &600
goto &40

&500
open=3:&1,e
finrek="590000"
fintel=0
search=3,finkode:&501,e,finrec
&501
down=3:&510,e,findown
for e=1 to 10
print=1:tab(01,24),findat," ",fintrek(e)
if fintrek(e)=reknum : goto &505
next e
goto &501
&505 
begsaldo=fintbed(e)
goto &30
&510
begsaldo=0
goto &30

&600
zinrek="590000" 
zintel=tel
search=4,zinkode:&601,e,zinrec
&601
down=4:&610,e,zindown
finrec=zinrec
if findat<>dat : goto &601
for e=1 to 10
if fintrek(e)=reknum : goto &605
next e
goto &601
&605 
begsaldo=begsaldo+fintbed(e)
print=1:tab(01,24),fintbed(e)," ",findat
tel=zintel
&610
return     

eseg 0

end




0eg 0
end




0k#,arttartdown(1)
dcl artkey$=4,artmk#,arttnd

00ield=m,artdown(1)
dc wn(1)
dc wn(1)
dc 
00i