program "ARTIKELEN"
dcl tabhis$=21(25)
dcl x,ass#,telmaand#,e9#
dcl weektel=6,dagtel=6
dcl goederen=6,totbon=6,aantal=6,verpak=6,leegg=6,totaal=6,totaant=6
dcl deling=6,tot2=6
dcl arthkod3$=21,afdruk$=1,artikel$=4,central$=1,srtbon$=1,selbon$=1
dcl testbest$=10
dcl kod1$=21,kod2$=21,oldhkod2$=21
dcl seldown$=20
field=m,seldown
dcl selkode$=4,filler=1,selrec$=15
field=m,selrec
dcl seltot=5(3)
field=m

dcl teldown$=29
field=m,teldown
dcl telkode$=8,filler=1,telrec$=20
field=m,telkode
dcl telk$=4,teltel=4
field=m,telrec
dcl teltot=5(4)
field=m

#INCLUDE  "crinclu"
#INCLUDE  "crinclu2"

srtbon=conv(process)

assign=45,"im0",wr,ex,im

assign=02,bestand(05),wr,si                ;artikelbestand
assign=04,bestand(03),wr,si                ;leveranciersbestand
assign=05,left(bestand(05),3)+"AKHS",wr,si ;historiek
assign=06,left(bestand(05),3)+"AKH2",wr,si ;copy
assign=07,left(bestand(05),6)+"S",wr,si    ;sort artikelen
assign=08,"C:\2003\AAAAKHS",wr,si          ;historiek vorig jaar 
assign=10,"CEN"+srtbon,wr,si     
assign=11,left(bestand(05),3)+"HKA",wr,si  ;historiek klanten
assign=12,bestand(04),wr,si                ;klantenbestand
assign=15,left(bestand(05),3)+"HLA",wr,si  ;historiek leveranciers
assign=17,left(bestand(05),3)+"HAR",wr,si  ;historiek artikelen verkoop
assign=18,left(bestand(05),3)+"HARI",wr,si ;historiek artikelen aankoop
assign=23,bestand(16),wr,si                ;14
assign=25,bestand(15),wr,si                ;02
assign=26,left(bestand(16),6)+"I",wr,si    ;14
assign=28,left(bestand(15),6)+"I",wr,si    ;02
x=1 
testd(1)=ndat
dat=ndat
ldgo.seg 200
tndat=test1
goto &100
&50
print=1:bell,tab(01,24),"Copy historiekbestand als origineel gebruiken",esc
ask=1,i=&100,u=&100:=j
assign=05,left(bestand(05),3)+"AKH2",wr,si
assign=06,left(bestand(05),3)+"AKHS",wr,si
&100 
open=2:&105,e
goto &120
&105
cfile=2,d=750,rk=4:&1,e
&120
open=7:&125,e
goto &130
&125
cfile=7,k=14:&1,e
&130
open=5:&150,e
goto &150
&145
cfile=5,d=50,k=21:&1,e
&150
open=6:&155,e
goto &170
&155
cfile=6,d=50,k=21:&1,e
&170
open=17:&175,e
goto &180
&175
cfile=17,d=110,rk=4
&180
open=18:&185,e
goto &190
&185
cfile=18,d=110,rk=4
&190
dfile=10:&195,e
&195
cfile=10,d=20,rk=8  
&200
phil=0
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  HISTORIEK AAN- EN VERKOPEN",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)," F1=Klanthist",paint(kh,ka)," F2=Leverhist",paint(kh,ka)," F3=Schrappen",paint(kh,ka)," F4=Art.hist kl",paint(kh,ka)," F5=Art.his lev   ",paint(kt,0)
print=1:tab(01,06),"Geef begindatum         : ",testd(1)
print=1:tab(01,08),"Geef einddatum          : ",testd(2) 
print=1:tab(01,10),"Geef klantenkode     'A': ",klkode
print=1:tab(01,12),"Geef leverancierkode 'A': ",levkode
print=1:tab(01,14),"Geef artikelkode     'A': ",artikel 
print=1:tab(01,16),"Central Y-N-A=+bons     : ",central 
print=1:tab(01,18),"Afdrukken  Y-N          : ",afdruk
goto &209
&201
phil=1
print=1:tab(03,03),paint(kh+1,ka+1)," F1=Klanthist",paint(kh,ka)," F2=Leverhist",paint(kh,ka)," F3=Schrappen",paint(kh,ka)," F4=Art.hist kl",paint(kh,ka)," F5=Art.his lev",paint(kt,0)
goto &209
&202
phil=2
print=1:tab(03,03),paint(kh,ka)," F1=Klanthist",paint(kh+1,ka+1)," F2=Leverhist",paint(kh,ka)," F3=Schrappen",paint(kh,ka)," F4=Art.hist kl",paint(kh,ka)," F5=Art.his lev",paint(kt,0)
goto &209
&203
phil=5
print=1:tab(03,03),paint(kh,ka)," F1=Klanthist",paint(kh,ka)," F2=Leverhist",paint(kh+1,ka+1)," F3=Schrappen",paint(kh,ka)," F4=Art.hist kl",paint(kh,ka)," F5=Art.his lev",paint(kt,0)
goto &209
&204
phil=3
print=1:tab(03,03),paint(kh,ka)," F1=Klanthist",paint(kh,ka)," F2=Leverhist",paint(kh,ka)," F3=Schrappen",paint(kh+1,ka+1)," F4=Art.hist kl",paint(kh,ka)," F5=Art.his lev",paint(kt,0)
goto &209
&205
phil=4 
print=1:tab(03,03),paint(kh,ka)," F1=Klanthist",paint(kh,ka)," F2=Leverhist",paint(kh,ka)," F3=Schrappen",paint(kh,ka)," F4=Art.hist kl",paint(kh+1,ka+1)," F5=Art.his lev",paint(kt,0)
goto &209
&206
ldgo.seg 100
goto &200
&208
testd(1)="01.01."+right(ndat,2)
&209 
inldat1=testd(1)
ask=1,i=&1,u=&1,/80=&201,/81=&202,/82=&203,/83=&204,/84=&205,/85=&206,/86=&50,"bB"=&208,"sS"=&1000:tab(27,06),inldat1,tab(27)=inldat1
if len$(inldat1)<>6 : goto  &210 
inldat1=left(inldat1,2)+"."+substr(inldat1,3,2)+"."+substr(inldat1,5,2)
&210 
testd(1)=left(inldat1,len$(inldat1))+right(testd(1),8-len$(inldat1))
if substr(testd(1),3,1)<>"." : goto  &209 
if substr(testd(1),6,1)<>"." : goto  &209 
if len$(testd(1))<>8 : goto  &209 
&215 
print=1:tab(27,06),testd(1) 
dat=testd(1) 
ldgo.seg 200
ttest1=test1
if testd(2)<>" " : goto  &220
testd(2)=testd(1)
goto &220
&219
testd(2)=ndat 
&220 
inldat1=testd(2)
ask=1,i=&1,u=&209,"eE"=&219:tab(27,08),testd(2),tab(27)=inldat1
if len$(inldat1)<>6 : goto  &225 
inldat1=left(inldat1,2)+"."+substr(inldat1,3,2)+"."+substr(inldat1,5,2)
&225 
testd(2)=left(inldat1,len$(inldat1))+right(testd(2),8-len$(inldat1))
if substr(testd(2),3,1)<>"." : goto  &220 
if substr(testd(2),6,1)<>"." : goto  &220 
if len$(testd(2))<>8 : goto  &220 
&230 
print=1:tab(27,08),testd(2) 
dat=ndat
ldgo.seg 200
tndat=test1
dat=testd(2) 
ldgo.seg 200
ttest2=test1
if ttest1>ttest2 : goto  &209 
if ttest2>tndat : goto  &209 
&300
klnaam=" "
ask=1,i=&1,u=&220:tab(27,10),klkode,tab(27)=klkode 
if klkode=" " : goto  &310
klkode=large(klkode)
if klkode="A        " : goto &305
search=12,klkode:&300,e,klrec
print=1:tab(50,10),klnaam
&305
levkode=" "
print=1:tab(27,12),levkode
goto &325
&310
klkode=" "
print=1:tab(27,10),klkode 
levnaam=" "
ask=1,i=&1,u=&300:tab(27,12),levkode,tab(27)=levkode 
if levkode=" " : goto  &325
levkode=large(levkode)
if levkode="A        " : goto &325
search=4,levkode:&310,e,levrec
print=1:tab(50,12),levnaam
&325
if (klkode=" ") and (levkode=" ") : goto  &300
&326
print=1:tab(35,14),atb(21)
artoms=" "
ask=1,i=&1,u=&310,/8a=&327,/8b=&328:tab(27,14),artikel,tab(27)=artikel 
artikel=large(artikel)
artikel=shr(artikel)
if artikel="   A" : goto  &340
artkey=shr(artikel)
search=2,artikel:&800,e,artrec(1),750
goto &340
&327
up=2:&326,e,artdown(1),768
print=1:tab(35,14),artoms
goto &326
&328
down=2:&326,e,artdown(1),768
print=1:tab(35,14),artoms
goto &326
&329
if artikel="   A" : goto  &340
goto &326
&330
selbon="A"
ask=1,i=&200,u=&326,/8a=&327,/8b=&328:tab(01,24),selbon,tab(27)=selbon
selbon=large(selbon)
if selbon=" " : goto  &340
if selbon="Y" : goto  &340
if selbon="A" : goto  &340
goto &330
&340
ask=1,i=&200,u=&300,/80=&330:tab(27,16),central,tab(27)=central
central=large(central)
if central="Y" : goto  &350
if central="N" : goto  &350
if central="A" : goto  &350
goto &340
&350
ask=1,i=&200,u=&340:tab(27,18),afdruk,tab(27)=afdruk 
afdruk=large(afdruk)
if afdruk="Y" : goto  &360
if afdruk="N" : goto  &360
if afdruk="S" : goto  &360
goto &350
&360
ldgo.seg 90
goto &200
&800
brtoms=shl(artikel)
brtkey=" "
search=7,brtkode:&851,e
&851
down=7:&326,e,brtdown
search=2,brtkey:&851,e,artrec(1),750
print=1:tab(27,14),brtkey,tab(35,14),artoms," "
ask=1,i=&852,u=&851:=j
goto &851
&852
artikel=brtkey
print=1:tab(01,24),atb(21)
goto &326
&1000
ldgo.seg 150
goto &100
eseg 0

segment 10   ;verkoop
if central<>"A" : goto  &1
if klkode=" " : goto  &1
goto &20 
&1
ret.seg
&20 
open=23:&1,e
print=1:tab(01,24),atb(21)
print=1:tab(01,24),"Ik ben bezig met de verkoopbons"
&110
down=23:&1,e,bondown
dat=bondatum 
ldgo.seg 200
tbondat=test1
if tbondat<ttest1 : goto  &110 
if tbondat>ttest2 : goto  &110 
if selbon="A" : goto  &115
if bonlet="Y" : goto  &111
bonlet=" " 
&111
if selbon<>bonlet : goto  &110
&115
if klkode="A       " : goto  &120
if klkode=bonklant : goto  &120
goto &110
&120
for e9=1 to 100
memins=e9
memklant=bonklant 
memfaknu=bonnumer 
search=25,memkode:&110,e,memrec(1),488
for tel=1 to 15
memhelp=memdeel(tel)
if memart=" " : goto  &110
artkey=shr(memart)
search=2,artkey:&190,e,artrec(1),750
if artikel="   A" : goto  &130
artkey=shr(artkey)
if artikel=artkey : goto  &130
goto &190
&130 
selkode=shr(artkey)
search=6,selkode:&140,e,selrec
goto &150 
&140 
seltot(1)=0
seltot(2)=0
seltot(3)=0
insert=6,selkode:&150,e,selrec
&150 
aantal=memaant*conv(artabak)
aantal=aantal+conv(memverk)
aantal=aantal
goederen=aantal*(memprijs-memkort)
goederen=roun(goederen,4)
goederen=goederen
seltot(1)=seltot(1)+memaant*x
seltot(2)=seltot(2)+aantal*x
seltot(3)=seltot(3)+goederen*x
modif=6,selkode:&190,e,selrec
&190
next tel
&200
next e9
goto &110
eseg 10

segment 20     ;aankoop
if central<>"A" : goto &1
if levkode=" " : goto &1
goto &20 
&1
ret.seg
&20 
open=26:&1,e
print=1:tab(01,24),atb(21)
print=1:tab(01,24),"Ik ben bezig met de aankoopbons"
&110
down=26:&1,e,bondown
dat=bondatum 
ldgo.seg 200
tbondat=test1
if tbondat<ttest1 : goto  &110 
if tbondat>ttest2 : goto  &110 
if selbon="A" : goto  &115
if selbon<>bonlet : goto  &110
&115
if levkode="A       " : goto  &120
if levkode=bonklant : goto  &120
goto &110
&120
for e9=1 to 100
memins=e9
memklant=bonklant 
memfaknu=bonnumer 
search=28,memkode:&110,e,memrec(1),488
for tel=1 to 15
memhelp=memdeel(tel)
if memart=" " : goto  &110
artkey=shr(memart)
search=2,artkey:&190,e,artrec(1),750
if artikel="   A" : goto  &130
artkey=shr(artkey)
if artikel=artkey : goto  &130
goto &190
&130 
selkode=shr(artkey)
search=6,selkode:&140,e,selrec
goto &150 
&140 
seltot(1)=0
seltot(2)=0
seltot(3)=0
insert=6,selkode:&150,e,selrec
&150 
aantal=memaant*conv(artabak)
aantal=aantal+conv(memverk)
aantal=aantal
goederen=aantal*(memprijs-memkort)
goederen=roun(goederen,4)
goederen=goederen
memaant=memaant
seltot(1)=seltot(1)+memaant
seltot(2)=seltot(2)+aantal
seltot(3)=seltot(3)+goederen
modif=6,selkode:&190,e,selrec
&190
next tel
&200
next e9
goto &110
eseg 20

segment 40
telmaand=conv(substr(artdat,4,2))
klhklant=shl(artnaam)
klhart=shr(artart)
if artkl="K" : goto  &10
if artkl="L" : goto  &20
&10
if phil<>1 : goto  &160
ass=11
goto &50
&20
if phil<>2 : goto  &160
ass=15
&50
search=ass,klhkode:&100,e,klahrec
goto &110
&100
for e=1 to 12
klhbed(e)=0
klhaant(e)=0
next e
klhdat=" "
&110
klhbed(telmaand)=klhbed(telmaand)+goederen
klhaant(telmaand)=klhaant(telmaand)+arthaant
klhdat=artdat
modif=ass,klhkode:&120,e,klahrec
goto &150
&120
insert=ass,klhkode:&130,e,klahrec
goto &150
&130
print=1:tab(01,24),"Fout insert klhkode : " ,e," ",klhkode
stop
&150
print=1:tab(01,24),artdat," ",artkl," ",artnaam," ",(-8.n2),arthaant
&160
ret.seg
eseg 40

segment 50
telmaand=conv(substr(artdat,4,2))
if artkl="K" : goto  &10
if artkl="L" : goto  &20
&10
if phil<>3 : goto  &110
ass=17
goto &50
&20
if phil<>4 : goto  &110
ass=18
&50
arhart=shr(artart)
arhmaand=telmaand
search=ass,arhkode:&60,e,arhrec
goto &70
&60
for tel=1 to 12
arhtot(tel)=0
next tel
&70
arhtot(telmaand)=arhtot(telmaand)+arthaant
modif=ass,arhkode:&80,e,arhrec
goto &100
&80
insert=ass,arhkode:&90,e,arhrec
goto &100
&90
print=1:tab(01,24),"Fout insert arhkode : " ,e," ",arhkode
stop
&100
print=1:tab(01,24),artdat," ",arhart," ",(-8.n2),arthaant,arhtot(telmaand)
&110
ret.seg
eseg 50

segment 90
if central="Y" : goto  &600
if central="A" : goto  &600
goto &100
&1
ret.seg
&100
if afdruk="Y" : goto  &500
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  OVERZICHT V/D ARTIKELS   ",tab(60)," ",testd(1)," ",testd(2)
print=1:paint(kl,0),tab(01,02),ltb,gener(77,hto),rtb
print=1:tab(01,03),vtb," ",paint(kt,0),klnaam," ",levnaam,tab(79),paint(kl,0),vte
print=1:tab(01,04),lto,gener(77,hto),rto,paint(kt,0)
print=1:tabv(01)
lijntel=5
for a=1 to 25
tabhis(a)=" "
next a
totaant=0
bontot=0
totbon=0
verpak=0
arthkod2=" "
artins2=0
&400
if klkode=" " : goto  &405
artklh="K"
artnaamh=shl(klkode)
if artikel<>"   A" : goto  &401
artarth="    " 
goto &402
&401
artarth=shr(artikel)
&402
search=5,arthkod2:&410,e,arthrec
goto &410
&405
if levkode=" " : goto  &1
artklh="L"
artnaamh=shl(levkode)
if artikel<>"   A" : goto  &406
artarth="    " 
goto &407
&406
artarth=shr(artikel)
&407
search=5,arthkod2:&410,e,arthrec
&410
down=5:&490,e,arthdown 
op &411,e
goto &412
&411
if e=83 : goto  &490
if e=115 : goto  &490
&412
if selbon="A" : goto  &415
if selbon<>arthlet : goto  &410
&415
dat=artdat
ldgo.seg 200
ttest3=test1
if ttest3<ttest1 : goto  &410 
if ttest3>ttest2 : goto  &410 
if artklh="K" : goto  &420
if artklh="L" : goto  &430
goto &410
&420
if klkode=artnaamh : goto  &440
goto &490
&430
if levkode=artnaamh : goto  &440
goto &490
&440
if artikel="   A" : goto  &445
artarth=shr(artarth)
if artarth<>artikel : goto  &490
&445
artarth=shr(artarth)
search=2,artarth:&450,e,artrec(1),750
goto &451
&450
delete=5,arthkod2:&410,e
delete=6,arthkod2:&410,e
&451
goederen=0
leegg=0
leegg=(arthbak*artbak)+(arthaant*artfles)
goederen=arthaant*(arthpr-arthkort)
goederen=roun(goederen,4)
if artreknr<>vastrek(34) : goto  &452
leegg=goederen
goederen=0
&452
if phil=1 : goto  &453
if phil=2 : goto  &453
if phil=3 : goto  &454
if phil=4 : goto  &454
if phil=5 : goto  &455
goto &459
&453
ldgo.seg 40
goto &459
&454
ldgo.seg 50
goto &459
&455
kod1=arthkod2
delete=5,arthkod2:&458,e
artnaamh="A       "
search=5,arthkod2:&456,e,arthrec
delete=5,arthkod2:&456,e
&456
arthkod2=kod1
search=5,arthkod2:&458,e,arthrec
print=1:tab(01,24),paint(kt,ka),"Delete ",paint(kt,0)
&458
print=1:tab(01,22),paint(kt,ka),artdat," ",paint(kt,ka2)," ",artnaam," ",paint(kt,ka3)," ",artoms,paint(kt,ka4),(-6.n2),arthaant,paint(kt,ka3),arthpr,paint(kt,ka),arthkort,paint(kt,0)
goto &407
&459
totbon=totbon+goederen
verpak=verpak+leegg
totaant=totaant+arthaant
gosub &2000  ; centralisatie voor bon te maken
print=1:tab(01,lijntel),paint(kt,ka),artdat," ",paint(kt,ka2)," ",artnaam," ",paint(kt,ka3)," ",artoms,paint(kt,ka4),(-6.n2),arthaant,paint(kt,ka3),arthpr,paint(kt,ka),arthkort,paint(kt,0)
print=1:tab(47,03),paint(kt,ka),(-6.n2),totaant,paint(kt,ka2),(-8.n),totbon,verpak,paint(kt,0)
tabhis(lijntel-4)=arthkod2
lijntel=lijntel+1
if lijntel<24 : goto  &410
print=1:tab(01,24),atb(21)
if afdruk="S" : goto  &460
ask=1,i=&1,u=&460,/80=&700,"B"=&700,"b"=&700:tab(01,24),paint(kh,ka),bla,esc,paint(kt,0)=j
&460
print=1:tab(01,05),atb(22)
lijntel=5
for a=1 to 25
tabhis(a)=" "
next a
goto &410
&490
print=1:tab(01,24),atb(21)
ask=1,i=&1,u=&1,/80=&700,"B"=&700,"b"=&700:tab(01,24),paint(kh,ka),bere,esc,paint(kt,0)=j
goto &1

&500     ;afdrukken 
print=45:con 
print=45:tabv(01),naam,"LIJST VAN DE ARTIKELS",tab(60)," ",testd(1)," ",testd(2)
print=45:tabv(01),klnaam," ",levnaam
print=45:tabv(01)
lijntel=3
totaant=0
bontot=0
totbon=0
verpak=0
arthkod2=" "
artins2=0
if klkode=" " : goto  &505
artklh="K"
artnaamh=shl(klkode)
if artikel<>"   A" : goto  &501
artarth="    " 
goto &502
&501
artarth=shr(artikel)
&502
search=5,arthkod2:&510,e,arthrec
goto &510
&505
if levkode=" " : goto  &1
artklh="L"
artnaamh=shl(levkode)
if artikel<>"   A" : goto  &506
artarth="    " 
goto &507
&506
artarth=shr(artikel)
&507
search=5,arthkod2:&510,e,arthrec
&510
down=5:&590,e,arthdown 
if selbon="A" : goto  &515
if selbon<>arthlet : goto  &510
&515
dat=artdat
ldgo.seg 200
ttest3=test1
if ttest3<ttest1 : goto  &510 
if ttest3>ttest2 : goto  &510 
if artkl="K" : goto  &520
if artkl="L" : goto  &530
goto &510
&520
if klkode=artnaamh : goto  &540
goto &510
&530
if levkode=artnaamh : goto  &540
goto &510
&540
if artikel="   A" : goto  &550
artarth=shr(artarth)
if artikel=artarth : goto  &550
goto &510
&550
artarth=shr(artarth)
search=2,artarth:&510,e,artrec(1),750
goederen=0
leegg=0
leegg=(arthbak*artbak)+(arthaant*artfles)
goederen=arthaant*(arthpr-arthkort)
goederen=roun(goederen,4)
if artreknr<>vastrek(34) : goto  &552
leegg=goederen
goederen=0
&552
totbon=totbon+goederen
verpak=verpak+leegg
totaant=totaant+arthaant
&560
print=45:tabv(01),artdat," ",artnaam," ",artoms,(-6.n4),arthaant,arthpr,arthkort,goederen,totaant,(-9.n2),totbon,verpak
lijntel=lijntel+1
if lijntel<printtel(07)-8 : goto  &510
print=45:ff
print=45:con
print=45:tabv(01),naam,"LIJST VAN DE ARTIKELS",tab(60)," ",testd(1)," ",testd(2)
print=45:tabv(01),klnaam," ",levnaam
print=1:tabv(01)
lijntel=3
goto &510
&590
print=45:ff
print=45:endcon
close=45
goto &1

&600
ldgo.seg 95
goto &1
&700       ;manipulatie historiek
print=1:tab(01,24),atb(21)
for lijntel=1 to 24
if tabhis(lijntel)=" " : goto  &701
print=1:tab(74,lijntel+4),paint(kh,ka),(---),lijntel,paint(kt,0)
next lijntel
&701
print=1:tab(01,24),atb(21)
&702
i1=0
ask=1,i=&800,u=&800:tab(01,24),"Geef lijnnummer te manipuleren : "=i1
if i1<1 : goto  &702
if i1>23 : goto  &702
arthkod2=tabhis(i1)
search=5,arthkod2:&702,e,arthrec
kod1=arthkod2
&715
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  MANIPULATIE VAN DE HISTORIEKEN "
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(01,05),"Artikelkode",tab(20),": ",artart
print=1:tab(01,06),"Klant Lever",tab(20),": ",artkl," ",artnaamh
print=1:tab(01,07),"Kl Lev kode",tab(20),": ",artnaam
print=1:tab(01,08),"Teller",tab(20),": ",(-3),artins2
print=1:tab(01,09),"Datum",tab(20),": ",artdat
print=1:tab(01,10),"Aantal",tab(20),": ",(-9.n2),arthaant
print=1:tab(01,11),"Prijs",tab(20),": ",(-7.n4),arthpr
print=1:tab(01,12),"Korting",tab(20),": ",(-7.n4),arthkort
print=1:tab(01,13),"Bakken",tab(20),": ",(-3),arthbak
print=1:tab(01,14),"Soort",tab(20),": ",arthlet
print=1:tab(01,16),paint(kl,0),gener(79,hto),paint(kt,0)
&716
artnaamh="A       "
search=5,arthkod2:&719,e,arthrec
goto &719 
&717
down=5:&800,e,arthdown
goto &719
&718
up=5:&800,e,arthdown
goto &719
&719
if artnaamh="A" : goto  &720
arthrec=" "
arthaant=0
arthpr=0
arthkort=0
arthbak=0
&720
print=1:tab(40,05),"Artikelkode",tab(60),": ",artart
print=1:tab(40,06),"Klant Lever",tab(60),": ",artkl," ",artnaamh
print=1:tab(40,07),"Kl Lev kode",tab(60),": ",artnaam
print=1:tab(40,08),"Teller",tab(60),": ",(-3),artins2
print=1:tab(40,09),"Datum",tab(60),": ",artdat
print=1:tab(40,10),"Aantal",tab(60),": ",(-9.n2),arthaant
print=1:tab(40,11),"Prijs",tab(60),": ",(-7.n4),arthpr
print=1:tab(40,12),"Korting",tab(60),": ",(-7.n4),arthkort
print=1:tab(40,13),"Bakken",tab(60),": ",(-3),arthbak
print=1:tab(40,14),"Soort",tab(60),": ",arthlet
&725
kod2=arthkod2
ask=1,i=&800,u=&800,/8a=&717,/8b=&718:tab(22,05)=artart
artart=shr(artart)
search=2,artart:&720,e,artrec(1),750
print=1:tab(03,03),paint(kt,ka),artoms,paint(kt,0)
&730
ask=1,i=&780,u=&725:tab(22,06)=artkl
artkl=large(artkl)
if artkl="K" : goto  &740
if artkl="L" : goto  &740
goto &730
&740
ask=1,i=&780,u=&730:tab(22,07)=artnaam
artnaam=shl(artnaam)
artnaam=large(artnaam)
if artkl="L" : goto  &742
search=12,artnaam:&740,e,klrec
print=1:tab(40,03),paint(kt,ka),klnaam,paint(kt,0)
goto &745
&742
search=4,artnaam:&740,e,levrec 
print=1:tab(40,07),paint(kt,ka),levnaam,paint(kt,0)
&745
ask=1,i=&780,u=&740:tab(22,09)=artdat
if len$(artdat)<>6 : goto  &746 
artdat=left(artdat,2)+"."+substr(artdat,3,2)+"."+substr(artdat,5,2)
&746 
if substr(artdat,3,1)<>"." : goto  &745 
if substr(artdat,6,1)<>"." : goto  &745 
if len$(artdat)<>8 : goto  &745 
print=1:tab(22,09),artdat
&750
ask=1,i=&780,u=&745:tab(22,10),(-6z.n4)=arthaant
&755
ask=1,i=&780,u=&750:tab(22,11),(-6z.n4)=arthpr
&760
ask=1,i=&780,u=&755:tab(22,12),(-6z.n4)=arthkort
&765 
ask=1,i=&780,u=&760:tab(22,13),(-5)=arthbak
&770
ask=1,i=&780,u=&765:tab(22,14)=arthlet
arthlet=large(arthlet)
&780
j=" "
print=1:tab(01,22),paint(kh,ka),"F1=Bijvoegen in historiek ",paint(kt,0)
ask=1,i=&800,u=&770,/80=&790:tab(01,24),paint(kh,ka),vali,paint(kt,0)," (A=annulatie) : "=j
j=large(j)
if j="A" : goto  &795 
if j="Y" : goto  &785
if j="N" : goto  &715
goto &780
&785
modif=5,kod1:&715,e,arthrec
modif=6,kod1:&715,e,arthrec
modif=5,kod2:&715,e,arthrec
goto &715
&790
artarth=shr(artart)
artklh=artkl
artnaamh=artnaam
artdath=right(artdat,2)+substr(artdat,4,2)+left(artdat,2)
artins2=1
&791
insert=5,arthkod2:&792,e,arthrec
insert=6,arthkod2:&793,e,arthrec
goto &793
&792
artins2=artins2+1
goto &791
&793
artnaamh="A        "
insert=5,arthkod2:&794,e,arthrec
goto &715
&794
artins2=artins2+1
goto &793
&795
arthkod2=kod1
delete=5,arthkod2:&796,e
delete=6,arthkod2:&796,e
&796
arthkod2=kod2
delete=5,arthkod2:&715,e
delete=6,arthkod2:&715,e
goto &715
&800
print=1:tab(01,05),atb(22)
lijntel=5
goto &410

&2000
search=2,artarth:&2300,e,artrec(1),750
teltel=1
telk=artarth
teltot(1)=arthbak
if artreknr=vastrek(34) : goto &2001
tot2=arthbak*artabak
teltot(3)=arthaant-tot2
if arthaant=0 : goto  &2001
teltot(4)=arthaant*(arthpr-arthkort)   
goto &2002
&2001
teltot(1)=arthaant
teltot(2)=arthpr-arthkort
seltot(3)=0
&2002
insert=10,telkode:&2250,e,telrec
goto &2300 
&2250
teltel=teltel+1
goto &2002
&2300
return
eseg 90

segment 95
srtbon=conv(process)
assign=6,"TOT"+srtbon,wr,si     
dfile=6:&50,e
&50
cfile=6,d=15,rk=4:&100,e
goto &200
&100
ret.seg
&200
lijntel=5
totaant=0
bontot=0
totbon=0
verpak=0
arthkod2=" "
artins2=0
&400
if klkode=" " : goto  &405
artklh="K"
artnaamh=shl(klkode)
if artikel<>"   A" : goto  &401
artarth="    "
goto &402
&401
artarth=shr(artikel)
&402
search=5,arthkod2:&409,e,arthrec
goto &409
&405
if levkode=" " : goto  &100
artklh="L"
artnaamh=shl(levkode)
if artikel<>"   A" : goto  &407
artarth="    "
goto &408
&407
artarth=shr(artikel)
&408
search=5,arthkod2:&409,e,arthrec
&409
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  CENTRALISATIE  ",testd(1)," ",testd(2)
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)
&410
down=5:&2300,e,arthdown 
op &411,e
goto &412
&411
if e=83 : goto  &100
if e=115 : goto  &100
&412
if selbon="A" : goto  &415
if selbon<>arthlet : goto  &410
&415
dat=artdat
ldgo.seg 200
ttest3=test1
if ttest3<ttest1 : goto  &410 
if ttest3>ttest2 : goto  &410 
if artklh="K" : goto  &420
if artklh="L" : goto  &430
goto &410
&420
if klkode=artnaamh : goto  &440
goto &2300
&430
if levkode=artnaamh : goto  &440
goto &2300
&440
if artikel="   A" : goto  &450
artarth=shr(artarth)
if artikel<>artarth : goto  &2300
&450
search=2,artarth:&410,e,artrec(1),750
print=1:tab(01,24),artoms
&2200
selkode=shr(artarth) 
search=6,selkode:&2210,e,selrec
goto &2220
&2210
seltot(1)=0
seltot(2)=0
seltot(3)=0
insert=6,selkode:&2220,e,selrec
&2220
seltot(1)=seltot(1)+arthbak
seltot(2)=seltot(2)+arthaant
totaal=arthaant*(arthpr-arthkort)
seltot(3)=seltot(3)+totaal
modif=6,selkode:&2230,e,selrec
&2230
teltel=1
telk=artarth
teltot(1)=arthbak   
teltot(2)=arthaant  
teltot(3)=0
teltot(4)=arthaant*(arthpr-arthkort)
&2240
insert=10,telkode:&2250,e,telrec
goto &410  
&2250
teltel=teltel+1
goto &2240

&2300
ldgo.seg 10
ldgo.seg 20
open=6:&100,e
if afdruk="Y" : goto  &3000
&2310
print=1:tab(03,03),paint(kh,ka),klnaam,paint(kt,0)
lijntel=6
&2320
if lijntel>20 : goto  &2330
&2325
down=6:&2350,e,seldown
artkey=shr(selkode)
search=2,artkey:&2325,e,artrec(1),750
print=1:tab(01,lijntel),paint(kn,ka),artkey," ",paint(kt,ka2)," ",artoms,"  ",paint(kn,ka3),(-8.n2),seltot(2)
if seltot(2)=0 : goto  &2326
print=1:(-8.n2),seltot(3)/seltot(2),artbedr(1)
&2326
gosub &goederen
totbon=totbon+goederen
verpak=verpak+leegg
dagtel=ttest2-ttest1
weektel=dagtel*.14285714
weektel=weektel-1
weektel=roun(weektel,0)
if weektel=0 : goto  &2329
artmax=seltot(2)/weektel
&2327
artmax=artmax+(artmax*20/100)
artmax=roun(artmax,0)
print=1:tab(60,03),(-3),weektel,(-8.n2),artmax
modif=2,artkey:&2329,e,artrec(1),750
&2329
print=1:tab(03,05),paint(kh,ka),"Totaal goederen : ",paint(kt,0),(-12.n2),totbon,(e)," ",paint(kh,ka),"Leeggoed : ",paint(kt,0),(-6.n2),verpak 
lijntel=lijntel+1
goto &2320
&2330
ask=1,i=&100,u=&2340:tab(01,24),ret," "=j
&2340
print=1:tab(01,06),atb(22)
lijntel=6
goto &2310
&2350
ask=1,i=&100,u=&100,/80=&3000:tab(01,24),paint(kh,ka),bere,paint(kt,0),ret," "=j
goto &100

&3000     ;afdrukken centralisatie
open=6:&100,e
print=45:zes,endcon
print=45:tabv(01),naam," ",levnaam," ",klnaam
print=45:tabv(01),testd(1)," ",testd(2)
print=45:tabv(01),gener(79,hto)
lijntel=3
&3010
down=6:&3050,e,seldown
artkey=shr(selkode)
search=2,artkey:&3010,e,artrec(1),750
if seltot(2)=0 : goto  &3020
print=45:tabv(01)," ",artkey," ",artoms,(-8.n4),seltot(2),seltot(3)/seltot(2),seltot(3)
print=45:tabv(01),gener(79,hto)
lijntel=lijntel+2
&3020
gosub &goederen
totbon=totbon+goederen
verpak=verpak+leegg
if lijntel<printtel(07)-10 : goto  &3010
print=45:ff
print=45:tabv(01),naam," ",levnaam," ",klnaam
print=45:tabv(01),testd(1)," ",testd(2)
print=45:tabv(01),gener(79,hto)
lijntel=3
goto &3010
&3050
print=45:tabv(02),"Totaal goederen : ",(-7.n2),totbon,(e),"  Leeggoed : ",(-6.n2),verpak
print=45:tabv(02),gener(79,hto)
print=45:ff
close=45
goto &100

&goederen     ;uitrekenen leeggoed en goederen
goederen=0
leegg=0
leegg=(seltot(1)*artbak)+(seltot(2)*artfles)
goederen=seltot(3)
goederen=roun(goederen,4)
if artreknr<>vastrek(34) : goto  &goed2
leegg=goederen
goederen=0
&goed2
return
eseg 95

segment 100
goto &200
&1
ret.seg 
&200
open=8:&205,e
goto &208
&205
cfile=8,d=50,k=21:&1,e
&208
print=1:tab(01,10),atb(22)
testd(1)="01.01."+right(ndat,2)
&209 
inldat1=testd(1)
ask=1,i=&1,u=&1:tab(27,06),inldat1,tab(27)=inldat1
if len$(inldat1)<>6 : goto  &210 
inldat1=left(inldat1,2)+"."+substr(inldat1,3,2)+"."+substr(inldat1,5,2)
&210 
testd(1)=left(inldat1,len$(inldat1))+right(testd(1),8-len$(inldat1))
if substr(testd(1),3,1)<>"." : goto  &209 
if substr(testd(1),6,1)<>"." : goto  &209 
if len$(testd(1))<>8 : goto  &209 
&215 
print=1:tab(27,06),testd(1) 
dat=testd(1) 
ldgo.seg 200
ttest1=test1
if testd(2)<>" " : goto  &220
testd(2)=testd(1)
&220 
inldat1=testd(2)
ask=1,i=&1,u=&209:tab(27,08),testd(2),tab(27)=inldat1
if len$(inldat1)<>6 : goto  &225 
inldat1=left(inldat1,2)+"."+substr(inldat1,3,2)+"."+substr(inldat1,5,2)
&225 
testd(2)=left(inldat1,len$(inldat1))+right(testd(2),8-len$(inldat1))
if substr(testd(2),3,1)<>"." : goto  &220 
if substr(testd(2),6,1)<>"." : goto  &220 
if len$(testd(2))<>8 : goto  &220 
&230 
print=1:tab(27,08),testd(2) 
dat=testd(2) 
ldgo.seg 200
ttest2=test1
if ttest1<ttest2 : goto  &300 
print=1:tab(01,13),(-10),ttest1,ttest2
goto &209
&300
open=5:&1,e
&310
down=5:&1,e,arthdown 
kod1=arthkod2
dat=artdat
ldgo.seg 200
ttest3=test1
if ttest3<ttest1 : goto  &310 
if ttest3>ttest2 : goto  &310 
print=1:tab(01,15),artklh," ",artnaamh," ",artnaam," ",artdat," ",artarth," ",artdath,(-10),artins2,atb(22)
if artnaamh<>"A       " : goto  &320
&313
j=" " 
ask=1,i=&1,u=&310:tab(01,24),"Bijvoegen Y-N : "=j
j=large(j)
if j="Y" : goto &315
if j="N" : goto &310
goto &313 
&315
insert=8,arthkod2:&310,e,arthrec
artnaamh=artnaam
insert=8,arthkod2:&310,e,arthrec
print=1:bell,tab(01,18),"Insert ok" 
ask=1:ret=j
&320
delete=5,arthkod2:&321,e
&321
delete=6,arthkod2:&330,e
goto &330
&330
arthkod2=kod1
search=5,arthkod2:&310,e,arthrec
goto &310
eseg 100

segment 150
goto &10
&1
ret.seg 
&10
open=5:&1,e
&20
down=5:&100,e,arthdown 
if artnaamh="A       " : goto  &20
print=1:tab(01,24),artklh," ",artnaamh," ",artarth," ",artdath
delete=5,arthkod2:&20,e
goto &20
&100
open=5:&1,e
&110
assign=16,left(bestand(05),3)+"AKHN",wr,si
dfile=16:&120,e
&120
cfile=16,d=50,k=21
&130
down=5:&200,e,arthdown 
artnaamh=artnaam 
artn2=artnaamh
print=1:tab(01,24),artklh," ",artnaamh," ",artarth," ",artdath
&140 
insert=16,arthkod2:&150,e,arthrec
goto &130 
&150 
artins2=artins2+1
goto &140 
&200
open=16:&1,e
&210
down=16:&1,e,arthdown
&220
print=1:tab(01,24),artklh," ",artnaamh," ",artarth," ",artdath
insert=5,arthkod2:&230,e,arthrec
goto &210
&230 
artins2=artins2+1
goto &220 
eseg 150

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


Ø
Ú
Ü
Þ
à
â
ä
æ
è
ê
ì
î
ð
òô
õ
÷
ù
û
ý
ÿ