program "CRTFOF"

dcl sall=6
dcl testbed=5

#include "CRINCLU"
#include "CRINCLU2"

assign=02,bestand(03),wr,si                 ;leveranciersbestand
assign=04,bestand(10),wr,si                 ;openstaande fakturen
assign=05,bestand(12),wr,si                 ;historiek leveranciers

open=2:&1,e
open=4:&1,e
open=5:&1,e

&100 
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  CONTROLE FICHE & OPENSTRAANDE FACTUREN",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)
&110
print=1:tab(01,05),"1. Klanten"
print=1:tab(01,07),"2. Leveranciers"
print=1:tab(01,09),gener(80,hto)      
&120
ask=1,i=&1,u=&1,"1"=&1000,"2"=&5000:tab(01,11),"Maak uw keuze 1--2 : ",esc=j
goto &120

&1000
print=1:tab(01,05),atb(22)
down=2:&1,e,levdown
sall=0
hisnaam=levkode
search=5,hisnaam:next,e,kllvhis
&4030
down=5:&1000,e,hisdown 
&4040
if hisnaam<>levkode : goto  &4300
if hiskod1="A" : goto  &4070
if hiskod1="F" : goto  &4075
goto &4080
&4070
sall=sall+hisbed1
hisbed2=hisbtw
if hisbed2=0 : goto  &4090
goto &4090
&4075 
if hiskod2="+" : goto  &4076
sall=sall-hisbed1
goto &4077
&4076
sall=sall+hisbed1
&4077
&4080
if hiskod2="K" : goto  &4082
goto &4090
&4082
sall=sall-hisbed2
&4090
goto &4030
&4300
print=1:tabv(01),gener(80,hto)
testbed=levtebe-levvoor
if sall=testbed : goto &1000
print=1:tabv(01),levkode," ",levnaam,(-8.n2),testbed,sall,testbed-sall
print=1:tabv(01),gener(80,hto)
ask=1,i=&1:=j
goto &1000

&5000
ldgo.seg 1
ret.seg

eseg 0

segment 1

assign=02,bestand(04),wr,si                 ;klantenbestand
assign=04,bestand(10),wr,si                 ;openstaande fakturen
assign=05,bestand(11),wr,si                 ;historiek klanten

open=2:&1,e
open=4:&1,e
open=5:&1,e
goto &1000

&1
ret.seg 

&1000
print=1:tab(01,05),atb(22)
down=2:&1,e,kldown
sall=0
hisnaam=klkode
search=5,hisnaam:next,e,kllvhis
&4030
down=5:&1000,e,hisdown 
&4040
if hisnaam<>klkode : goto  &4300
if hiskod1="V" : goto  &4070
if hiskod1="F" : goto  &4075
goto &4080
&4070
sall=sall+hisbed1
hisbed2=hisbtw
if hisbed2=0 : goto  &4090
goto &4090
&4075 
if hiskod2="+" : goto  &4076
sall=sall-hisbed1
goto &4077
&4076
sall=sall+hisbed1
&4077
&4080
if hiskod2="K" : goto  &4082
goto &4090
&4082
sall=sall-hisbed2
&4090
goto &4030
&4300
print=1:tabv(01),gener(80,hto)
testbed=kltego-klover 
if sall=testbed : goto &1000
print=1:tabv(01),klkode," ",klnaam,(-8.n2),testbed,sall,testbed-sall
print=1:tabv(01),gener(80,hto)
ask=1,i=&1:=j
goto &1000

eseg 1

end

&goto &40  
&500
aankkey=tabaank(zoek)
search=3,aankkey:&510,e,aankrec
goto &520
&510
down=3:&640,e,aankdown
&520
print=1:clear,paint(kh,ka),naam,p