program "LEVERANCIERS"

dcl dr=6(3),dagen=6(12),btwsom=6,totaal=6,tl%
dcl tot1=6,tot2=6,tot3=6,tot4=6,tot5=6,tot6=6
dcl tot7=6,tot8=6,tot9=6,tot10=6,tot11=6
dcl tat7=6,tat8=6,tat9=6,tat10=6,tat6=6,tat11=6
dcl tot30=6,tot60=6,tot90=6,tot120=6,tot12=6
dcl etinaam$=24(3),etistra$=24(3),etigem$=24(3)
dcl begkl$=8,eindkl$=8,tit$=35,opm$=10,keuze$=1,alles$=1

dcl omzet=6
dcl omz$=6
field=m,omz
dcl omzkod$=1,filler=5           
field=m

dcl verdat$=8         
field=m,verdat
dcl vdat1$=2,vpun1$=1,vdat2$=2,vpun2$=1,vdat3$=2
field=m

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"

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

assign=02,bestand(03),wr,si                 ;leveranciersbestand
assign=04,bestand(10),wr,si                 ;openstaande fakturenbestand
assign=05,bestand(12),wr,si                 ;leveranciershistoriek
assign=09,bestand(07),wr,si                 ;aankoopdagboek

&10
lijntel=0
print=1:clear,paint(kh,ka),naam,atb(0),"  LISTINGS VAN DE LEVERANCIERS ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto)
print=1:tab(01,11),gener(79,hto),atb(0)
print=1:tab(01,05),paint(kt,ka), "1 --> Leverancierslijst alle gegevens.",atb(0)
print=1:tab(01,06),paint(kt,ka2),"2 --> Lijst met adressen, tegoeden en overschotten.",atb(0)
print=1:tab(01,07),paint(kt,ka3),"3 --> Leveranciershistoriek - fiche.",atb(0)
print=1:tab(01,08),paint(kt,ka5),"4 --> Leveranciers openstaande fakturen.",atb(0)
print=1:tab(01,09),paint(kt,ka3),"5 --> Heropbouw omzetten en btw.",atb(0)



&12
keuze=" "
ask=1,i=&1,u=&1:tab(01,13),"Maak uw keuze  1--5",esc=keuze
if keuze<"1" : goto  &12
if keuze>"5" : goto  &12

&15
if keuze<>"1" : goto  &16
tit="LEVERANCIERSLIJST ALLE GEGEVENS"
goto &30
&16
if keuze<>"2" : goto  &17
tit="LEVERANCIERSLIJST"
goto &30
&17
if keuze<>"3" : goto  &18
tit="LEVERANCIERSFICHES"
goto &30
&18
if keuze<>"4" : goto  &20
tit="OPENST FAKT LEVERANCIERS"
goto &30
&20
if keuze="5"
ldgo.seg 25     ;heropbouw omzetten en btw
endif
     
goto &10

&30   
print=1:clear,paint(kh,ka),naam,atb(0),"  ",tit,tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),atb(0)
begkl=" "
eindkl="ZZZZZZZZ"
ask=1,i=&10,u=&10:tab(01,10),"Geef begin leverancierskode : ",begkl,tab(31)=begkl
begkl=large(begkl)
goto &32
&31
eindkl=begkl
&32
ask=1,i=&10,u=&30,/80=&31:tab(01,12),"Geef eind  leverancierskode : ",eindkl,tab(31)=eindkl
eindkl=large(eindkl)
if (eindkl<begkl) or (eindkl=" ") : goto  &30

&40
gosub &8000
if keuze="1" : goto  &100
if keuze="2" : goto  &200
if keuze="3" : goto  &4000
if keuze="4" : goto  &3000

&100
print=45:atb(6)
print=45:atb(70)
print=45:tabv(01),naam,tab(50),tit
print=45:tabv(01),gener(132,hto)
lijntel=2
&102
search=2,begkl:&104,e,levrec
goto &105
&104
down=2:&130,e,levdown
op &140,e
&105
if levkode>eindkl : goto  &130
if levjomz=0 : goto  &104
if levgoed="N" : goto  &104
if lijntel<teller(50)-6 : goto  &115
print=45:page
print=45:tabv(01),naam,tab(50),tit
print=45:tabv(01),gener(132,hto)
lijntel=2
&115
print=45:tabv(01),levnaam,tab(26),levvast,tab(35),"Btwnr    : ",levlbtw+"."+levbtw,tab(67),"Tegoeden  :",(-9.n2),levtebe,tab(95),(u11),"Tot. Btw :" ,(-9.n2),levtbtw
print=45:tabv(01),levstraa,tab(26),"Land : ",levland,tab(35),"Telefoon : ",levtele,tab(67),"Voorschot :",(-9.n2),levvoor,tab(95),(u11),"Tot. Aank :",(-9.n2),levjomz
print=45:tabv(01),levgem,tab(35),"Bank     : ",levbank,tab(67),"Saldo    : ",(-9.n2),levtebe-levvoor
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+4
goto &104
&130
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+1
print=45:page
close=45
goto &10
&140
if e=83 : goto  &130
if e=115 : goto  &130
goto &105

&190
phil=1     ;geselecteerd afdrukken aan
goto &200
&195
phil=0     ;geselecteerd afdrukken uit

&200
tot1=0
tot2=0
tot3=0
alles=" "
print=1:clear,paint(kh,ka),naam,atb(0),"  LISTINGS VAN LEVERANCIERS  ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto)
print=1:tab(01,15),gener(79,hto),atb(0)
print=1:tab(01,05),paint(kh,ka),"BIJKOMENDE SELEKTIE.",atb(0)
print=1:tab(01,07),"1--> Alle leveranciers."
print=1:tab(01,08),"2--> Alleen de leveranciers waar er bedragen zijn."
print=1:tab(01,09),"3--> Naam - lokaliteit - telefoon & telefax."
&201
ask=1,i=&10,u=&10,/80=&190,/81=&195:tab(01,13),"Maak uw keuze  (F1-F2) 1--3",esc=alles
if alles="1" : goto  &202
if alles="2" : goto  &202
if alles="3" : goto  &202
goto &201
&202
print=45:atb(6)
print=45:atb(70)
print=45:tabv(01),naam,tab(50),tit
print=45:tabv(01),gener(132,hto)
lijntel=2
tot1=0
tot2=0
tot3=0
gosub &5700
&203
search=2,begkl:&204,e,levrec
goto &205
&204
down=2:&230,e,levdown
op &260,e
&205
if levkode>eindkl : goto  &230
if lijntel<teller(50)-6 : goto  &215
print=45:page
gosub &5700
lijntel=0
&215
print=1:tab(01,20),levkode,tab(10),levnaam,tab(40),levgem,tab(70),(-8.n2),levtebe
if phil=0 : goto  &217
&216
j=" "
ask=1,i=&204,u=&204:tab(01,24),"Afdrukken  Y-N : "=j
j=large(j)
if j=" " : goto  &216
if j<>"Y" : goto  &204
&217
if alles="1" : goto  &220
if alles="3" : goto  &225
if levtebe<>0 : goto  &220
if levvoor<>0 : goto  &220
goto &204
&220
print=45:tabv(01),levkode,tab(10),levnaam,tab(40),levstraa,tab(70),levgem,tab(100),(-9.n2),levtebe,tab(110),levvoor,tab(120),levtebe-levvoor
tot1=tot1+levtebe
tot2=tot2+levvoor
lijntel=lijntel+1
goto &204
&225
print=45:tabv(01),levkode,tab(10),levnaam,tab(40),levstraa,tab(70),levgem,tab(100),levtele,tab(120),levfax
lijntel=lijntel+1
goto &204
&230
print=1:tab(01,22),"Totaal  leveranciers : ",(-12.n2),tot1,tot2,tot1-tot2
print=45:tabv(02),"Totaal  leveranciers : ",(-9.n2),tab(100),tot1,tab(110),tot2,tab(120),tot1-tot2
lijntel=lijntel+2
&250 
print=45:page
close=45
phil=0
goto &10
&260
if e=83 : goto  &250
if e=115 : goto  &250
goto &205

&3000    ;routine openstaande fakturen
tot1=0
tot2=0
tot3=0
tot4=0
gosub &5000
levkode=begkl
search=2,levkode:&3005,e,levrec
goto &3010
&3005
down=2:&3400,e,levdown
op &3600,e
&3010
if levkode>eindkl : goto  &3400
fakkllv="L"
fakname=levkode
fakfak=" "
search=4,fakkode:&3015,e,fakrec
&3015
down=4:&3400,e,fakdown 
if fakname<>levkode : goto  &3005
gosub &5100
gosub &5200
goto &3030
&3020
down=4:&3100,e,fakdown 
if fakname<>levkode : goto  &3100
&3030
print=45:tabv(01),fakdat,tab(15),fakoms,tab(45),shr(faknum),tab(55),fakverv,tab(70),(-9.n2),faktebe,tab(85),fakont,tab(100),faktebe-fakont
tot1=tot1+faktebe-fakont
tot3=tot3+faktebe-fakont
lijntel=lijntel+1
if lijntel<teller(50)-14 : goto  &3020
print=45:page
gosub &5000
gosub &5100
gosub &5200
goto &3020
&3100
print=45:tabv(01),gener(132,hto)
print=45:tabv(01),"Totaal    : ",(-9.n2),tot3      
print=45:tabv(01),"Voorschot : ",(-9.n2),levvoor
print=45:tabv(01),"Saldo     : ",(-9.n2),tot3-levvoor
print=45:tabv(01),gener(132,hto)
tot2=tot2+klover
tot3=0
lijntel=lijntel+5
if lijntel<teller(50)-14 : goto  &3005
print=45:page
gosub &5000
gosub &5100
gosub &5200
goto &3005
&3400
print=45:tabv(02),"Algemaan totaal fakturen : ",(-9.n2),tot1
print=45:tabv(01),"Totaal der voorschotten  : ",(-9.n2),tot2
print=45:tabv(01),"========================================"
print=45:tabv(01),"S a l d o   leveranciers : ",(-9.n2),tot1-tot2
print=45:tabv(02),gener(132,hto)
print=45:page
close=45
goto &10
&3600
if e=83 : goto  &3400
if e=115 : goto  &3400
goto &3010

&4000
gosub &5000
tot8=0
tot9=0
tot10=0
tot11=0
levkode=begkl
search=2,levkode:&4004,e,levrec
goto &4005
&4004
down=2:&4400,e,levdown
tot8=0
tot9=0
tot10=0 
tot11=0
if levkode>eindkl : goto  &4400
&4005
hiskode=levkode
search=5,hiskode:&4010,e,kllvhis
&4010
down=5:&4400,e,hisdown
if hisnaam<>levkode : goto  &4004
gosub &5100
gosub &5600
goto &4020
&4015
down=5:&4400,e,hisdown
op &4500,e
&4016
if hisnaam<>levkode : goto  &4600
if lijntel<teller(50)-10 : goto  &4020
print=45:page
gosub &5000
gosub &5100
gosub &5600
&4020
opm=" "
for i=1 to 3
dr(i)=0
next i
if hiskod1="A" : goto  &4072
if hiskod1="L" : goto  &4072
if hiskod1="F" : goto  &4073
goto &4079
&4072
dr(1)=hisbed1
btwsom=hisbtw
goto &4079
&4073
if large(hisfakt)="TERUG" : goto  &4074
dr(3)=hisbed1
dr(2)=hisbed1
btwsom=0
goto &4079
&4074
dr(3)=-hisbed1
dr(2)=hisbed1
&4079
if hiskod2=" " : goto  &4090
if hiskod2="T" : goto  &4081
if hiskod2="K" : goto  &4082
if hiskod2="I" : goto  &4083
if hiskod2="V" : goto  &4084
&4081
opm="Teveel"
goto &4090
&4082
opm="Korting"
goto &4090
&4083
opm="Intrest"
goto &4090
&4084
opm="Voorsch"
goto &4090
&4090
if lijntel<teller(50)-10 : goto  &4095
print=45:page
gosub &5000
gosub &5100
gosub &5600
&4095
tot10=dr(1)-conv(hisbtw)
tot8=tot8+tot10
if dr(1)<>0 : goto  &4100
if large(hisfakt)="TERUG" : goto  &4105
tot9=tot9-dr(2)
goto &4150
&4100
tot9=tot9+dr(1)
goto &4150
&4105
tot9=tot9+conv(hisbed1)
&4150
tot11=tot11+conv(hisbtw)
print=45:tabv(01),hisdat,tab(10),shr(hisfakt),tab(20),(-9.n2),tot10,tab(35),(-6.n2),hisbtw,tab(50),(-8.n2),dr(1),tab(65),(-8.n2),dr(3),tab(80),(u6),hisbetw,tab(90),(-9.n2),tot9,tab(105),(-9.n2),tot8,tab(120),(-6.n2),tot11
lijntel=lijntel+1
if lijntel<teller(50)-10 : goto  &4015
print=45:page
gosub &5000
gosub &5100
gosub &5600
goto &4015
&4400
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+1
print=45:page
close=45
goto &10
&4500
if e=83 : goto  &4400
if e=115 : goto  &4400
goto &4016
&4600
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+1
goto &4004
&5000
print=45:atb(6)
print=45:atb(70)
print=45:tabv(01),naam,tab(50),tit
print=45:tabv(01),gener(132,hto)
lijntel=2
return
&5100
print=45:atb(70)
print=45:tabv(02),levnaam," ",levstraa," ",levgem," ",levtele
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+3
return
&5200
print=45:atb(70)
print=45:tabv(01),"Datum",tab(15),"Factuur ",tab(45),"Faknum",tab(55),"Vervald",tab(73),"Totaal",tab(87),"Betaald",tab(104),"Saldo"
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+2
return
&5600
print=45:atb(70)
print=45:tabv(01),"Datum",tab(10),"Factuurnr.",tab(22),"Aankoop",tab(38),"Btw",tab(52),"Bedrag",tab(63),"Financieel",tab(78),"Betaalw.",tab(94),"Saldo",tab(102),"Totaal Fact.",tab(119),"Totaal Btw"
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+2
return

&5700
if alles="3" : goto  &5710
print=45:tabv(01),"Kode",tab(10),"Naam",tab(40),"Straat",tab(70),"Gemeente",tab(101),"Tegoeden",tab(111),"Oversch.",tab(124),"Saldo"
goto &5800
&5710
print=45:tabv(01),"Kode",tab(10),"Naam",tab(40),"Straat",tab(70),"Gemeente",tab(100),"Telefoon"
&5800
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+2
return

&8000
print=1:tab(01,24),atb(21)
&8001
ask=1,i=&10,u=&10:tab(01,24),paint(kh,ka),"O.K. om af te drukken  Y-N : ",atb(0),esc=j
j=large(j)
if j=" " : goto  &8001
if j<>"Y" : goto  &10
print=1:clear,paint(kh,ka),naam,atb(0),"  ",tit,tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),atb(0)
return
eseg 0

segment 25    

goto &10

&1
ret.seg

&10
open=2:&1,e
open=9:&1,e
&20
down=2:&100,e,levdown 
levjomz=0
levtbtw=0
modif=2,levkode:&30,e,levrec
print=1:tab(01,24),levkode
goto &20
&30
print=1:tab(01,24),levkode,(-3),e
ask=1:=j   
stop
&100
open=9:&1,e
&110
down=9:&1,e,aankdown
levkode=aanklev
search=2,levkode:&110,e,levrec
print=1:tab(01,23),levkode," ",aanklev," ",aankdat," ",aankbtw
omzet=0
for e=1 to 10
omz=aankteg(e)
if omzkod<>"6" : goto  &120
omzet=omzet+aanktbe(e)
&120
next e  
levjomz=levjomz+omzet   ;verhogen jaaromzet
levtbtw=levtbtw+aankbtw
modif=2,levkode:&150,e,levrec
goto &110
&150
print=1:tab(01,24),"Fout modif levkode : ",e," ",levkode
stop

eseg 25

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