program "VERWERKING"

dcl loper%,e9%,telmaand%
dcl prijs=6,aankoop=6,goederen=6,aantal=6
dcl testklant$=8

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"      

assign=03,bestand(14),wr,si                ;artikelhistoriek artikelen
assign=10,bestand(15),wr,si                ;bongegevens           
assign=11,bestand(04),wr,si                ;klantenbestand
assign=12,bestand(05),wr,si                ;artikelbestand
assign=14,bestand(16),wr,si                ;bongegevens 
assign=15,left(bestand(15),6)+"C",wr,si
assign=16,left(bestand(16),6)+"C",wr,si
open=10:&1,e
open=11:&1,e
open=12:&1,e
open=14:&1,e

testklant="        "
&50
open=3:&55,e
goto &60
&55
cfile=3,d=200,lk=12
&60
open=15:&70,e
goto &80
&70
cfile=15,d=488,k=11
&80
open=16:&90,e
goto &200
&90
cfile=16,d=100,k=10
goto &200

&180
ldgo.seg 1     ;verwerven van 1 klant
goto &206

&190
assign=1,"CRBFAK" 
chain=1
stop

&200
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  VERWERKEN VAN DE BONS  ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
&205 
print=1:tab(01,24),"F1=Verwerken bons van 1 klant"
j=" "
ask=1,i=&190,u=&190,/80=&180:tab(01,05),"Mogen de gefaktureerde bons geschrapt worden  Y-N ",esc=j
j=large(j)
if j<>"Y" : goto  &205
&206
open=14:&190,e
&210
down=14:&190,e,bondown
if bonverw<>"Y" : goto  &210
if bonfak=0 : goto &210

if testklant<>"        " 
if bonklant<>testklant : goto &210
endif

print=1:tab(01,20),bonklant," ",bondatum," ",bonverw
search=11,bonklant:&216,e,klrec
goto &220
&216
print=1:tab(01,24),"Fout klant niet gevonden ",e," ",bonklant
stop
&220
telmaand=conv(conv(substr(bondatum,4,2)))
klkode=bonklant
memklant=bonklant
memfaknu=bonnumer
memins=1
&1030
search=10,memkode:&1800,e,memrec(1),488
&1035
for loper=1 to 15                ;bepalen van de gegevens
memhelp=memdeel(loper)           ;hulpzone voor verwerking
if memart=" " : goto  &1800      ;einde der artikels van een element
&1100
if memspec="TEKST" : goto  &1500
if memart="BLAN" : goto  &1500
if memart="GESC" : goto  &1500
artkey=shr(memart)
search=12,artkey:&1110,e,artrec(1),750
print=1:tab(01,22),artkey," ",artoms," ",bondatum," ",bonklant
goto &1120
&1110
ask=1,i=&1500:tab(01,24),bell,artkey," ",e," niet gevonden : "=j
stop
&1120  
aantal=memaant+conv(memverk)
if aantal=0 : goto  &1500
aantal=memaant+conv(memverk)
goederen=aantal*(memprijs-memkort)
goederen=roun(goederen,2)
veraant=veraant+aantal
verbed=verbed+goederen
modif=12,artkey:next,e,artrec(1),750
klhklant=bonklant
klhart=shr(artkey)
search=3,klhkode:&1230,e,klahrec
goto &1235
&1230
for e=1 to 12
klhbed(e)=0
klhaant(e)=0
next e
klhdat=" "
&1235
klhbed(telmaand)=klhbed(telmaand)+goederen
klhaant(telmaand)=klhaant(telmaand)+aantal
klhdat=bondatum
modif=3,klhkode:&1236,e,klahrec
goto &1500
&1236
klhkode2=klhkode
insert=3,klhkode:&1237,e,klahrec
goto &1500
&1237
print=1:tab(01,24),"Fout insert klhkode : " ,e," ",klhkode
stop
&1500
next loper
memins=memins+1
goto &1030

&1800
insert=16,bonkode:next,e,bonrec
delete=14,bonkode:&210,e
memklant=bonklant
memfaknu=bonnumer
for e9=1 to 100
memins=e9
insert=15,memkode:next,e,memrec(1),488
delete=10,memkode:&210,e 
next e9
goto &210

eseg 0

segment 1      

goto &510

&505
ret.seg

&510
print=1:tab(01,05),atb(22)
testklant=" "
ask=1,i=&505,u=&505,/8a=&520,/8b=&530:tab(01,05),"Geef klantenkode",esc,klkode,tab(32)=klkode
if klkode=" " : goto  &510
klkode=large(klkode)
search=11,klkode:&515,e,klrec
goto &550
&515
ask=1,i=&505,u=&510,/8a=&520,/8b=&530:tab(01,24),paint(kh,ka),"Klant",ng,paint(kt,0),fvoor,voor,fvolg,volg=j
j=large(j)
goto &510
&520
up=11:&525,e,kldown
goto &550
&525
print=1:tab(01,24),atb(21)
ask=1,i=&505,u=&510,/8b=&530:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &550
&530
down=11:&535,e,kldown
goto &550
&535
print=1:tab(01,24),atb(21)
ask=1,i=&505,u=&510,/8a=&520:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &510
&550
print=1:tab(01,05),"Kode klant : ",klkode,atb(21)
print=1:tab(01,07),"Naam",tab(20),": ",paint(kh,ka),left(klnaam,len$(klnaam)),paint(kt,0)
print=1:tab(01,08),"Adres",tab(20),": ",klstra
print=1:tab(01,09),"Gemeente",tab(20),": ",klgem
print=1:paint(kl,0),tab(01,11),gener(79,hto),paint(kt,0)
&560
j=" "
ask=1,i=&505,u=&510,/8a=&520,/8b=&530:tab(01,13),"Deze klant  Y-N : "=j
j=large(j)
if j=" " : goto  &560
if j<>"Y" : goto  &510
testklant=klkode
goto &505

eseg 1

end


end

end

eg 200

end



eseg 200