program "KLANTENLIJST"

dcl dr=6(2),dagen=6(12)
dcl hulpma=5,hulpja=5,hulpdag=5
dcl x=6,sall=6,btwsom=6,totabtw=6,totomzet=6,tgoed=6,totaal=6
dcl verval=6
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 tat6=6,tat7=6,tat8=6,tat9=6,tat10=6,tat11=6

dcl tot30=6,tot60=6,tot90=6,tot120=6,tot12=6

dcl begkl$=8,eindkl$=8,tit$=40,opm$=10,selmaand$=2,uitdat$=8

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

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"

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

assign=2,bestand(04),wr,si                    ;klantenbestand
assign=3,bestand(03),wr,si                    ;leveranciersbestand
assign=4,bestand(10),wr,si                    ;openstaande fakturenbestand
assign=5,bestand(11),wr,si                    ;klantenhistoriek
assign=9,bestand(08),wr,si                    ;verkoopdagboekbestand
assign=12,bestand(01),wr,si                   ;rekeningenbestand

open=2:&1,e
open=3:&1,e
open=4:&1,e
open=5:&1,e
open=9:&1,e
open=12:&1,e

&10
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  LISTINGS VAN DE KLANTEN ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto)
print=1:tab(01,14),gener(79,hto),paint(kt,0)
print=1:tab(01,05),paint(kt,ka), " 1 --> Klantenlijst alle gegevens.",paint(kt,0)
print=1:tab(01,06),paint(kt,ka3)," 2 --> Klantenhistoriek - fiche.",paint(kt,0)
print=1:tab(01,07),paint(kt,ka5)," 3 --> Klanten openstaande fakturen.",paint(kt,0)
print=1:tab(01,08),paint(kt,ka), " 4 --> Klanten rappels.",paint(kt,0)
print=1:tab(01,09),paint(kt,ka2)," 5 --> Klanten B.T.W. lijst.",paint(kt,0)
print=1:tab(01,10),paint(kt,ka), " 6 --> Ouderdomsanalyse openstaande fakturen.",paint(kt,0)
print=1:tab(01,11),paint(kt,ka3)," 7 --> Lijst ontbrekende B.T.W. nummers.",paint(kt,0)
print=1:tab(01,12),paint(kt,ka), " 8 --> Heropbouwen omzetten en btw.",paint(kt,0)
&11
lijntel=0
keuz=0
ask=1,i=&1,u=&1:tab(01,16),"Maak uw keuze  1--8 ",esc=keuz
if keuz<1 : goto  &11
if keuz>8 : goto  &11

tit=" "
if keuz=1
tit="KLANTENLIJST MET ALLE GEGEVENS"
goto &30
endif

if keuz=2 
tit="KLANTENFICHES"
goto &30
endif

if keuz=3
tit="OPENSTAANDE FAKTUREN"
goto &30
endif

if keuz=4 
tit="RAPPELS - MANINGEN"
goto &50
endif

if keuz=5 
tit="B.T.W. LIJST"
goto &30
endif

if keuz=6
tit="OUDERDOMSANALYSE OPENSTAANDE FAKTUREN"
goto &30
endif

if keuz=7
tit="LIJST ONTBREKENDE B.T.W. NUMMERS"
goto &30
endif

if keuz=8
tit="HEROPBOUW OMZET EN BTW"
goto &30
endif

&30
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  ",tit,tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)

if (keuz=1) or (keuz=2) or (keuz=3)
begkl=" "
ask=1,i=&10,u=&10:tab(01,10),"Geef begin klantenkode : ",begkl,tab(26)=begkl 
begkl=large(begkl)
&32
eindkl="ZZZZZZZZ"
&33
ask=1,i=&10,u=&30,/80=&35:tab(01,12),"Geef eind  klantenkode : ",eindkl,tab(26)=eindkl
eindkl=large(eindkl)
if (eindkl<begkl) or (eindkl=" ") : goto  &30
goto &40
&35
eindkl=begkl
goto &33
endif

&40
if keuz=8 : goto  &90

gosub &8000

if keuz=1 : goto  &100
if keuz=2 : goto  &4000	
if keuz=3 : goto  &3000 
if keuz=4 : goto  &50
if keuz=5 : goto  &60
if keuz=6 : goto  &70
if keuz=7 : goto  &80

&50     ;rappels
ldgo.seg 1
goto &10

&60     ;btwlijst
ldgo.seg 2
goto &10

&70     ;ouderdomsanalyse
ldgo.seg 5
goto &10

&80     ;lijst ontbrekende btwnummers
ldgo.seg 4
goto &10

&90     ;heropbouw omzet en btw
ldgo.seg 25
goto &10




&100    ;klantenlijst alle gegevens
print=45:atb(70)
print=45:atb(6)
print=45:tabv(01),naam,"  ",tit," ",tab(120),ndat
print=45:tabv(01),gener(132,hto)
lijntel=2
&102
search=2,begkl:&104,e,klrec
goto &105
&104
down=2:&140,e,kldown
op &150,e
&105
if klkode>eindkl : goto  &140
&110
if lijntel<printtel(07)-10 : goto  &115
print=45:page
print=45:tabv(01),naam,"  ",tit," ",tab(120),ndat
print=45:tabv(01),gener(132,hto)
lijntel=2
&115
if klniet="Y" : goto &104
print=45:tabv(01),klkode,tab(10),klnaam,tab(40),kltelef,tab(60),klgsm,tab(80),kllbtw,klbtwnr
print=45:tabv(01),tab(10),klstra
print=45:tabv(01),tab(10),klgem
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+4
goto &104
&140
print=45:tabv(01),gener(132,hto)
print=45:page
close=45
goto &10
&150
if e=83 : goto  &140
if e=115 : goto  &140
goto &105

&3000    ;routine openstaande fakturen
tot1=0
tot2=0
tot3=0
tot4=0
gosub &5000
klkode=begkl
search=2,klkode:&3005,e,klrec
goto &3010
&3005
down=2:&3400,e,kldown
op &3600,e
&3010
if klkode>eindkl : goto  &3400
fakkllv="K"
fakname=klkode
fakfak=" "
search=4,fakkode:&3015,e,fakrec
&3015
down=4:&3400,e,fakdown 
if fakname<>klkode : goto  &3005
gosub &5100
gosub &5200 
goto &3030
&3020
down=4:&3100,e,fakdown 
if fakname<>klkode : 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<printtel(07)-14 : goto  &3020
print=45:page

&3050
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),klover
print=45:tabv(01),"Saldo     : ",(-9.n2),tot3-klover
print=45:tabv(01),gener(132,hto)
tot2=tot2+klover
tot3=0
lijntel=lijntel+5
if lijntel<printtel(07)-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   klanten      : ",(-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
klkode=begkl 
search=2,klkode:&4004,e,klrec
goto &4005
&4004
down=2:&4400,e,kldown
op &4500,e
&4005  
if klkode>eindkl : goto  &4400
sall=0
hiskode=klkode
search=5,hiskode:&4006,e,kllvhis
&4006
down=5:&4400,e,hisdown
if hisnaam<>klkode : goto  &4004
gosub &5100
gosub &5600
goto &4020
&4010
down=5:&4400,e,hisdown
if hisnaam<>klkode : goto  &4600
if lijntel<printtel(07)-10 : goto  &4020
print=45:page

gosub &5000
gosub &5100
gosub &5600

&4020
for i=1 to 2
dr(i)=0
next i
opm=" "
if hiskod1="V" : goto  &4070
if hiskod1="F" : goto  &4075
goto &4080
&4070
dr(1)=hisbed1
sall=sall+hisbed1
hisbed2=hisbtw
if hisbed2=0 : goto  &4090
opm="Btw"
goto &4090
&4075 
dr(2)=hisbed1
if hiskod2="+" : goto  &4076
sall=sall-hisbed1
goto &4077
&4076
sall=sall+hisbed1
&4077
opm=" "
rekkode=shl(large(hisbetw))
search=12,rekkode:&4080,e,rekrec
opm=large(rekoms)
&4080
if hiskod2="T" : goto  &4081
if hiskod2="K" : goto  &4082
if hiskod2="I" : goto  &4083
if hiskod2="V" : goto  &4084
if hiskod2="X" : goto  &4085
if hiskod2="+" : goto  &4086
if hiskod2=hto : goto  &4087
if hiskod2=" " : goto  &4088
goto &4090
&4081
opm="Teveel"
goto &4090
&4082
opm="Korting"
goto &4090
&4083
opm="Intrest" 
goto &4090
&4084
opm="Koersv"
goto &4090
&4085
opm="Bet.verschil"
goto &4090
&4086 
opm="Terug"
goto &4090
&4087
opm="Voorschot"
goto &4090
&4088
&4090
if lijntel<printtel(07)-10 : goto  &4095
print=45:page

gosub &5000
gosub &5100
gosub &5600

&4095
print=45:tabv(01),hisdat,tab(10),shr(hisfakt),tab(20),(-9.n2),dr(1),tab(35),dr(2),tab(50),(u6),hisbetw,tab(60),(-9.n2),hisbed2,tab(75),opm,tab(95),(-9.n2),hisbtw,tab(110),sall
lijntel=lijntel+1
if lijntel<printtel(07)-10 : goto  &4010
print=45:page

gosub &5000
gosub &5100
gosub &5600
goto &4010

&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 &4005
&4600
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+1
goto &4004

&5000
print=45:atb(70)
print=45:atb(6)
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:atb(6)
print=45:tabv(02),klnaam," ",klstra," ",klgem," ",kltelef
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+3
return

&5200
print=45:atb(70)
print=45:atb(6)
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:atb(6)
print=45:tabv(01),"Datum",tab(10),"Factuurnr",tab(22),"Verkoop",tab(34),"Financieel",tab(50),"Betaalw.",tab(61),"Bedrag 2",tab(75),"Opmerking",tab(94),"Btw Bedrag",tab(114),"Saldo"
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+2
return

&5700
print=45:atb(70)
print=45:atb(6)
print=45:tabv(01),"Kode",tab(10),"Naam",tab(40),"Zaak",tab(70),"Straat",tab(100),"Gemeente"
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+2
return

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

eseg 0

segment 1

&1
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  ",tit,tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
&5
print=1:tab(01,05),atb(22)
ask=1,i=&500,u=&500,/8a=&17,/8b=&19:tab(01,05),"Geef klantenkode",esc,klkode,tab(32)=klkode
if klkode=" " : goto  &5
klkode=shl(large(klkode))
search=2,klkode:&10,e,klrec
goto &22
&10
print=1:tab(01,24),atb(21)
ask=1,i=&5,u=&5,/8a=&17,/8b=&19:tab(01,24),paint(kh,ka),"Klant",ng,paint(kt,0),fvoor,voor,fvolg,volg=j
goto &5
&17 
up=2:&18,e,kldown
goto &22
&18
print=1:tab(01,24),atb(21)
ask=1,i=&5,u=&5,/8b=&19:tab(01,24),paint(kh,ka),berb,paint(kt,0),fvolg,volg=j
goto &5
&19
down=2:&21,e,kldown
goto &22
&21
print=1:tab(01,24),atb(21)
ask=1,i=&5,u=&5,/8a=&17:tab(01,24),paint(kh,ka),bere,paint(kt,0),fvoor,voor=j
goto &5
&22
print=1:tab(01,05),atb(22)
print=1:tab(01,05),"Klantenkode : ",klkode
print=1:tab(01,07),"Naam klant",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,(-8n.n2),kltego-klover
print=1:paint(kl,0),tab(01,11),gener(79,hto),paint(kt,0)
&23
print=1:tab(01,20),atb(22)
uitdat=ndat
inldat1=ndat
ask=1,i=&5,u=&5,/8a=&17,/8b=&19:tab(01,15),"Geef uitgiftedatum : ",ndat,tab(22)=inldat1
if len$(inldat1)<>6 : goto  &24
inldat1=left(inldat1,2)+"."+substr(inldat1,3,2)+"."+substr(inldat1,5,2)
&24
uitdat=left(inldat1,len$(inldat1))+right(uitdat,8-len$(inldat1))
if substr(uitdat,3,1)<>"." : goto  &23
if substr(uitdat,6,1)<>"." : goto  &23
if len$(uitdat)<>8 : goto  &23
print=1:tab(22,15),uitdat
j=" "
ask=1,i=&500,u=&23,/8a=&17,/8b=&19:tab(01,20),"O.K. om af te drukken  Y-N  (L=dreigende rappel) : "=j
j=large(j)
if j=" " : goto  &24
if j="Y" : goto  &29    
if j="L" : goto  &29    
goto &500
&29
print=45:atb(64)
print=45:atb(6) 
gosub &550
verval=0
tot5=0
if klover-kltego=0 : goto  &1
fakkllv="K"
fakname=klkode
fakfak=" "
search=4,fakkode:&100,e,fakrec
&100
down=4:&260,e,fakdown
if fakname<>klkode : goto  &260
&150
dat=ndat
ldgo.seg 200
tndat=test1
dat=fakdat
ldgo.seg 200
ttest1=test1+60
&200
faktebe=faktebe-fakont
if tndat<ttest1 : goto  &210
verval=verval+faktebe
&210
if faktebe<0 : goto  &220
print=45:tabv(01),"³ ",fakdat,tab(17)," ³ ",shr(faknum)," ³ ",(u15),fakoms,(e),tab(44),"³ ",fakverv," ³ ",(-9.n2),faktebe,(e)," ³ ",tab(82)," ³"
goto &230
&220
print=45:tabv(01),"³ ",fakdat,tab(17)," ³ ",shr(faknum)," ³ ",(u15),fakoms,(e),tab(44),"³ ",fakverv," ³ ",tab(69)," ³ ",(-8.n2),faktebe,(e),tab(82)," ³"
&230
lijntel=lijntel+1
tot5=tot5+faktebe
&250
down=4:&260,e,fakdown
if fakname<>klkode : goto  &260
goto &150
&260
print=45:tabv(01),gener(83,hto)
lijntel=lijntel+1
if j="L" : goto  &310
print=45:tabv(01),tab(37),"Totaal bedrag    : ",(-10.n2),tot5
lijntel=lijntel+1
if klover=0 : goto  &301
print=45:tabv(01),tab(37),"Totaal voorschot : ",(-10.n2),klover
if tot5-klover<0 : goto  &261
print=45:tabv(01),tab(37),"Nog te betalen   : ",(-10.n2),tot5-klover
goto &270
&261
print=45:tabv(01),tab(32),"Bedrag in Uw voordeel : ",(-10.n2),-1*(tot5-klover)
&270
lijntel=lijntel+2
&301
if verval=0 : goto  &302
print=45:tabv(01),tab(37),"Vervallen bedrag : ",(-10.n2),verval-klover
lijntel=lijntel+1
if verval<=0 : goto  &302
print=45:tabv(01),tab(37),"Intrest 1% maand : ",(-10.n2),1*(verval-klover)/100
lijntel=lijntel+1
&302
if tot5-klover<0 : goto  &303
print=45:tabv(02),"Wij verzoeken U dit bedrag te willen overschrijven op onze bankrekening."
print=45:tabv(01),"Onze rekeningnummer is : ",banknr(1)
print=45:tabv(01),"Mocht U inmiddels betaald hebben, gelieve dan dit schrijven als nietig"
print=45:tabv(01),"te willen beschouwen."
print=45:tabv(02),"Wij danken U bij voorbaat en verblijven inmiddels,"
print=45:tabv(02),"Hoogachtend,"
print=45:tabv(02),tab(45),"De boekhouding."
goto &304
&303
print=45:tabv(05),"Wij verzoeken het bedrag van ",(-8.n2),-1*(tot5-klover),(e)," fr."
print=45:tabv(01),"af te trekken van volgende faktuur."
print=45:tabv(02),"Wij danken U bij voorbaat en verblijven inmiddels,"
print=45:tabv(02),"Hoogachtend,"
print=45:tabv(02),tab(45),"De boekhouding."
&304
lijntel=lijntel+12
&307
print=45:page
close=45
goto &1
&310
print=45:tabv(01),tab(30),"Totaal bedrag : ",(-6.n2),tot5
print=45:tabv(02),tab(20),"W A A R S C H U W I N G "
print=45:tabv(01),tab(20),"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ "
print=45:tabv(02),tab(05),"Wij verzoeken dringend dit bedrag te willen overschrijven "
print=45:tabv(01),tab(05),"op onze bankrekening."
print=45:tabv(01),tab(05),"Onze rekeningnummer is : ",banknr(1)
print=45:tabv(01),tab(05),"Mocht U inmiddels betaald hebben, gelieve dan dit schrijven als nietig"
print=45:tabv(01),tab(05),"te willen beschouwen."
print=45:tabv(02),tab(05),"Wij danken U bij voorbaat en verblijven inmiddels,"
print=45:tabv(02),tab(45),"Hoogachtend,"
print=45:tabv(02),tab(45),"De boekhouding."
lijntel=lijntel+16
goto &307
&500 
ret.seg
&550
print=45:atb(69)
print=45:atb(6)
print=45:tabv(00),naam
print=45:atb(64)
print=45:tabv(00),tab(45),"Storage",tab(70),uitdat
print=45:tabv(02),adres
print=45:tabv(01),gemeen
print=45:tabv(01),gener(len$(gemeen),hto)
print=45:tabv(01),"Telefoon : ",telf1
print=45:tabv(01),tab(45),klnaam
print=45:tabv(01),"Banknr.  : ",banknr(1),tab(45),kltwnaam
print=45:tabv(01),"           ",tab(45),klstra
print=45:tabv(02),tab(45),klgem
print=45:tabv(04),tab(23),"R E K E N I N G - U I T T R E K S E L"
print=45:tabv(01),tab(23),"ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ-"
print=45:tabv(02),"Geachte Klant,"
print=45:tabv(02),"Mogen wij U erop wijzen dat in onze boekhouding onderstaande fakturen"
print=45:tabv(01),"waarvan de betalingstermijn reeds overschreden is, nog openstaan."
print=45:tabv(02),gener(83,hto)
print=45:tabv(01), "³ Datum   ",tab(18),"³   Num.",tab(27),"³ Omschrijving",tab(44),"³ Vervald.",tab(55),"³    Bedrag ",tab(70),"³ Kred.nota",tab(83),"³"
print=45:tabv(01),gener(83,hto)
lijntel=lijntel+25
return

eseg 1

segment 2

print=45:atb(64)
print=45:atb(6)
print=45:tabv(01),tab(20),"BELASTING OVER DE TOEGEVOEGDE WAARDE"
print=45:tabv(01),tab(15),"JAARLIJKSE OPGAVE VAN DE AFNEMERS-BELASTINGPLICHTIGEN"
print=45:tabv(01),tab(22),"AAN WIE GOEDEREN EN DIENSTEN WERDEN"
print=45:tabv(01),tab(30),"GELEVERD IN 20 . ."
print=45:tabv(03),tab(20),ltb,gener(45,hto),rtb
print=45:tabv(01),tab(20),vtb,tab(41),"AANGEVER",tab(66),vtb
for e=1 to 10
print=45:tabv(01),tab(20),vtb,tab(66),vtb
next e
print=45:tabv(01),tab(20),lto,gener(45,hto),rto
print=45:tabv(03),tab(02),ltb,gener(77,hto),rtb
print=45:tabv(01),tab(02),vtb," VAK BESTEMD VOOR DE ADMINISTRATIE ",tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb,tab(80),vtb
print=45:tabv(01),tab(02),vtb," Datum van ontvangst op controlekantoor :",tab(50),vtb," Dossier D.I.V Nr:",tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb,tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb," Gesplitst :..../.... ",tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vte,tab(80),vte
print=45:tabv(01),tab(02),vtb," Stempelafdruk controlekantoor :",tab(50),vte," Aantal blz. :",tab(80),vte
print=45:tabv(01),tab(02),vtb,tab(50),vtb,tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb," Aantal posten :",tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb,tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb," Omzet :",tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb,tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb," Bedrag belasting :",tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb,tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb," Ontvangstdatum D.I.V. :",tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb,tab(80),vtb
print=45:tabv(01),tab(02),vtb,tab(50),vtb,tab(80),vtb
print=45:tabv(01),tab(02),lto,gener(77,hto),rto
print=45:page
print=45:tabv(01),gener(80,hto)
print=45:tabv(01),"³ Volgnr³ Naam en adres van de afnemer ³ BTW-nummer    ³Omzet(excl³Bedrag v/d  ³"
print=45:tabv(01),"³       ³                              ³               ³BTW,speci.³belasting de³"
print=45:tabv(01),"³       ³                              ³               ³taks      ³ BTW        ³"
print=45:tabv(01),"³  (1)  ³             (2)              ³       (3)     ³   (4)    ³    (5)     ³"
print=45:tabv(01),gener(80,hto)
lijntel=6
tot1=0
tot2=0
tot4=0
tot6=0
open=2:&9000,e
goto &15
&14
down=2:&9000,e,kldown
&15
if kljomz+kltbtw+klcred<conv(teller(26)) : goto  &14
if klbtwnr="999.999.999" : goto  &14

if large(klland)<>"B" : goto &14
if lijntel>printtel(01)-18 : gosub  &5000
tot1=tot1+kljomz
tot2=tot2+kltbtw+klcred
tot4=tot4+1
tot6=0
print=45:tabv(01),"³",(-6.n2),tot4,(e),tab(09),"³",klnaam,tab(40),"³",kllbtw,klbtwnr,tab(56),"³",(-8.n2),kljomz,(e),tab(67),"³",(-8.n2),kltbtw+klcred,(e),tab(80),"³"
print=45:tabv(01),"³",(-6.n2),0,(e),tab(09),"³",klstra,tab(40),"³",tab(56),"³",(-8.n2),0,(e),tab(67),"³",(-8.n2),0,(e),tab(80),"³"
print=45:tabv(01),"³",(-6.n2),0,(e),tab(09),"³",klgem,tab(40),"³",tab(56),"³",(-8.n2),0,(e),tab(67),"³",(-8.n2),0,(e),tab(80),"³"
print=45:tabv(01),"³",tab(09),"³",tab(40),"³",tab(56),"³",tab(67),"³",tab(80),"³"
lijntel=lijntel+4
goto &14
&5000
print=45:tabv(01),"³",tab(09),"³",tab(40),"³",tab(56),"³",tab(67),"³",tab(80),"³"
print=45:tabv(01),"³",tab(09),"³",tab(40),"³",tab(56),"³",tab(67),"³",tab(80),"³"
print=45:tabv(01),gener(80,hto)
print=45:tabv(01),tab(56),"³",tab(67),"³",tab(80),"³"
print=45:tabv(01),tab(45),"Transport ","³",(-8.n2),tot1,tab(67),(u),"³",(-8.n2),tot2,tab(80),(u),"³"
print=45:tabv(01),tab(56),gener(26,hto)
print=45:page
print=45:tabv(01),gener(80,hto)
print=45:tabv(01),"³ Volgnr³ Naam en adres van de afnemer ³ BTW-nummer    ³Omzet(excl³Bedrag v/d  ³"
print=45:tabv(01),"³       ³                              ³               ³BTW,speci.³belasting de³"
print=45:tabv(01),"³       ³                              ³               ³taks      ³(BTW en EB) ³"
print=45:tabv(01),"³  (1)  ³             (2)              ³      (3)      ³   (4)    ³    (5)     ³"
print=45:tabv(01),gener(80,hto)
lijntel=6
return
&9000
print=45:tabv(01),gener(80,hto)
print=45:tabv(01),tab(47),"Totaal   ³",(-8.n2),tot1,tab(67),(e),"³",(-8.n2),tot2,tab(80),(u),"³"
print=45:tabv(01),tab(56),gener(25,hto)
lijntel=lijntel+3
if lijntel<printtel(07)-20 : goto  &9100
print=45:page
lijntel=0
&9100
print=45:tabv(03),tab(56),"Echt verklaard"
print=45:tabv(03),tab(40),"Datum :.....................   20..  "
print=45:tabv(02),tab(40),"Handtekening(en) :"
print=45:tabv(06)
print=45:tabv(01),tab(02),"Indien de ondertekenaar een gevolmachtigde is of indien de opgave wordt   "
print=45:tabv(01),tab(02),"opgemaakt namens een rechtspersoon, moet de hoedanigheid van de "
print=45:tabv(01),tab(02),"ondertekenaar worden vermeld."
&9110
print=45:page
close=45
lijntel=0
ret.seg 

eseg 2

segment 4

goto &10
&1
ret.seg
&10
print=1:tab(01,24),atb(21)
print=45:atb(70)
print=45:atb(6)
print=45:tabv(01),naam," LIJST VAN DE ONTBREKENDE BTW NUMMERS KLANTEN "
print=45:tabv(01),gener(132,hto)
lijntel=2
klkode=begkl
search=2,klkode:&17,e,klrec
&17
down=2:&30,e,kldown
op &25,e
&18
if klkode>eindkl : goto  &30
if kljomz<conv(teller(26)) : goto  &17
if klland=" " : goto  &19
if klland="B" : goto  &19
goto &17
&19
if left(klbtwnr,3)="000" : goto  &20
if left(klbtwnr,3)="   " : goto  &20
goto &17
&20
if lijntel<printtel(07)-10 : goto  &23
print=45:page
lijntel=0
&23
print=45:tabv(01),klkode," ",klnaam," ",klstra," ",klgem," ",kllbtw,klbtwnr," ",(-9.n2),kljomz,(e),"     ",kltelef
lijntel=lijntel+1
goto &17
&25
if e=83 : goto  &30
if e=115 : goto  &30
print=1:tab(01,24),atb(21)
j=" "
ask=1,i=&18,u=&18:tab(01,24),bell,"U heeft het afdrukken onderbroken - verdergaan  Y-N : ",esc=j
j=large(j)
if j="Y" : goto  &18
if j="N" : goto  &30
goto &25
&30
print=45:tabv(01),gener(132,hto)
print=45:page
close=45
goto &1

eseg 4

segment 5     ;ouderdomsanalyse

goto &10

&1
ret.seg

&10
uitdat=ndat
dat=ndat
ldgo.seg 200
tot1=test1
tot2=0
tot3=0
tot12=0
tot30=0
tot60=0
tot90=0
tot120=0
tat6=0
tat7=0
tat8=0
tat9=0
tat10=0
tat11=0
print=45:atb(70)
print=45:atb(6)
print=45:tabv(01),naam,"  ",tit,tab(120),ndat
print=45:tabv(01),gener(132,hto)
lijntel=2
l6=5
gosub &500
&200
klkode=begkl
search=2,klkode:&205,e,klrec
goto &210
&205
down=2:&240,e,kldown
&210
if klkode>eindkl : goto  &240
if lijntel<printtel(07)-10 : goto  &215
print=45:page
lijntel=0
gosub &500
&215
tot6=0
tot7=0
tot8=0
tot10=0
tot9=0
fakkllv="K"
fakname=klkode
fakfak=" "
search=4,fakkode:&220,e,fakrec
&220
down=4:&230,e,fakdown
if fakname<>klkode : goto  &230
dat=fakverv
ldgo.seg 200
tot4=test1
if tot4>tot1-120  : goto  &223
tot7=tot7+faktebe-fakont
if faktebe-fakont<0 : goto  &222
tot120=tot120+faktebe-fakont
goto &229
&222
tat7=tat7+faktebe-fakont
goto &229
&223
if tot4>tot1-90 : goto  &225
tot8=tot8+faktebe-fakont
if faktebe-fakont<0 : goto  &224
tot90=tot90+faktebe-fakont
goto &229
&224
tat8=tat8+faktebe-fakont
goto &229
&225
if tot4>tot1-60 : goto  &227
tot9=tot9+faktebe-fakont
if faktebe-fakont<0 : goto  &226
tot60=tot60+faktebe-fakont
goto &229
&226
tat9=tat9+faktebe-fakont
goto &229
&227
if tot4>tot1-30 : goto  &229
tot10=tot10+faktebe-fakont
if faktebe-fakont<0 : goto  &228
tot30=tot30+faktebe-fakont
goto &229
&228
tat10=tat10+faktebe-fakont
&229
goto &220
&230
if kltego-klover=0 : goto  &205
print=1:tab(01,l6),klnaam,(-6.n2),kltego,klover,kltego-klover,tot10,tot9,tot8,tot7
l6=l6+1
if l6<22 : goto  &235
print=1:tab(01,05),atb(22)
l6=5
&235
print=45:tabv(01),klkode,tab(10),klnaam,tab(45),(-8.n2),kltego,tab(60),klover,tab(75),kltego-klover,tot10,tot9,tot8,tot7
gosub &250
tot3=tot3+kltego
tot2=tot2+klover
print=1:tab(01,23),"Totaal : ",tot3-tot2
lijntel=lijntel+1
goto &205
&240
print=45:tabv(02),tab(45),(-8.n2),tot3,tab(60),tot2,tab(75),(-8.n2),tot12,tot30,tot60,tot90,tot120
print=45:tabv(01),tab(75),(-8.n2),tat11,tat10,tat9,tat8,tat7
lijntel=lijntel+3
&245
print=45:tabv(01),gener(132,hto)
print=45:page
close=45
goto &1
&250
if kltego-klover>0 : goto  &255
tat11=tat11+kltego-klover
return
&255
tot12=tot12+kltego-klover
return
&500 
print=45:atb(70)
print=45:atb(6)
print=45:tabv(01),"Kode",tab(10),"Naam",tab(48),"Tegoeden",tab(62),"Voorschot",tab(81),"Saldo      30d       60d       90d      120d"
print=45:tabv(01),gener(132,hto)
lijntel=lijntel+2
return
ret.seg

eseg 5

segment 6

goto &10
&1
ret.seg
&10
dat=ndat 
ldgo.seg 200
tot1=test1
tot30=0
tot60=0
tot90=0
tot120=0
tot12=0
tat6=0
tat7=0
tat8=0
tat9=0
tat10=0
tat11=0
tot2=0
tot3=0
print=1:tab(01,01),atb(22),paint(kh,ka),"Naam                    Tegoeden   Voor    30d        60d      90d     120d",paint(kt,0)
print=1:tabv(01),gener(79,hto)
lijntel=5
open=2:&1,e
&205
down=2:&240,e,kldown
op &600,e
&210
if lijntel<22 : goto  &215
lijntel=5
print=1:tab(01,05),atb(22)
&215
tot6=0
tot7=0
tot8=0
tot10=0
tot9=0
fakkllv="K"
fakname=klkode
fakfak=" "
search=4,fakkode:&220,e,fakrec
&220
down=4:&230,e,fakdown
if fakname<>klkode : goto  &230
dat=fakdat 
ldgo.seg 200
tot4=test1
if tot4>tot1-120  : goto  &223
tot7=tot7+faktebe-fakont
if faktebe-fakont<0 : goto  &222
tot120=tot120+faktebe-fakont
goto &229
&222
tat7=tat7+faktebe-fakont
goto &229
&223
if tot4>tot1-90 : goto  &225
tot8=tot8+faktebe-fakont
if faktebe-fakont<0 : goto  &224
tot90=tot90+faktebe-fakont
goto &229
&224
tat8=tat8+faktebe-fakont
goto &229
&225
if tot4>tot1-60 : goto  &227
tot9=tot9+faktebe-fakont
if faktebe-fakont<0 : goto  &226
tot60=tot60+faktebe-fakont
goto &229
&226
tat9=tat9+faktebe-fakont
goto &229
&227
if tot4>tot1-30 : goto  &229
tot10=tot10+faktebe-fakont
if faktebe-fakont<0 : goto  &228
tot30=tot30+faktebe-fakont
goto &229
&228
tat10=tat10+faktebe-fakont
&229
goto &220
&230
if kltego-klover=0 : goto  &205
if tot9=0 : goto  &231
goto &239
&231
if tot8=0 : goto  &232
goto &239
&232
if tot7=0 : goto  &205
&239
print=1:tab(01,lijntel),paint(kt,ka),klnaam,paint(kh,ka3),(-6.n2),kltego,klover,tot10,tot9,tot8,tot7,paint(kt,0)
lijntel=lijntel+1
tot3=tot3+kltego
tot2=tot2+klover
print=1:tab(01,03),"Totaal : ",tot3-tot2
goto &maning
ask=1,/80=&maning:=j
goto &205
&maning
uitdat=ndat
ldgo.seg 1
dagen(01)=0
dagen(02)=31
dagen(03)=59
dagen(04)=90
dagen(05)=120
dagen(06)=151
dagen(07)=181
dagen(08)=212
dagen(09)=243
dagen(10)=273
dagen(11)=304
dagen(12)=334
tot30=0
tot60=0
tot90=0
tot120=0
tot12=0
tat6=0
tat7=0
tat8=0
tat9=0
tat10=0
tat11=0
tot2=0
tot3=0
print=1:tab(01,01),atb(22),"Naam                    Tegoeden   Voor     30d      60d    90d   120d"
print=1:tabv(01),gener(79,hto)
lijntel=5
search=2,klkode:&205,e,klrec
goto &205
&240
print=1:tab(01,24),(-8.n2),tat11,tat10,tat9,tat8,tat7
ask=1,i=&1,u=&1:=j
goto &1
&250
if kltego-klover>0 : goto  &255
tat11=tat11+kltego-klover
return
&255
tot12=tot12+kltego-klover
return
&600 
if e=83 : goto  &240
if e=115 : goto  &240
goto &210

eseg 6

segment 25    

goto &10
&1
ret.seg
&10
open=2:&1,e
open=9:&1,e
&20
down=2:&100,e,kldown
kljomz=0
kltbtw=0
modif=2,klkode:&20,e,klrec
print=1:tab(01,24),klkode
goto &20
&100
open=9:&1,e
&110
down=9:&1,e,verkdown
klkode=verkkla
search=2,klkode:&110,e,klrec
for e=1 to 10
if left(verkteg(e),1)<>"7" : goto  &120
kljomz=kljomz+verktbe(e)
&120
next e
&130
kltbtw=kltbtw+verkbtw
modif=2,klkode:&110,e,klrec
goto &110

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

,³W-nummer