program "CREATIE"

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"

&100
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  CREATIE VAN DE BESTANDEN ",tab(70),ndat
print=1:tab(01,02),paint(kl,0),gener(79,hto),paint(kt,0)
&111
ask=1,i=&1,u=&1,/80=&115:tab(01,24),"Geef passwoord om te creeren : "=passwoord
passwoord=large(passwoord)
if passwoord=pwtest : goto  &115
goto &111
&115
print=1:tab(01,24),atb(21)
print=1:tab(01,04)," 1 --> Klantenbestand."
print=1:tab(01,05)," 2 --> Klantenhistoriek."
print=1:tab(01,06)," 3 --> Leveranciersbestand."
print=1:tab(01,07)," 4 --> Leveranciershistoriek."
print=1:tab(01,08)," 5 --> Algemene rekeningen."
print=1:tab(01,09)," 6 --> Historiek rekeningen."
print=1:tab(01,10)," 7 --> Verkoopdagboek."
print=1:tab(01,11)," 8 --> Aankoopdagboek."
print=1:tab(01,12)," 9 --> Financieel dagboek."
print=1:tab(01,13),"10 --> Openstaande fakturen."
print=1:tab(01,16),paint(kl,0),gener(79,hto),paint(kt,0)
&120
a=0
ask=1,i=&1,u=&1,"nN"=&3000:tab(01,20),"Uw keuze  (N=nulstelling)",esc=a
of a goto &250,&410,&225,&420,&335,&330,&275,&300,&325,&400
goto &120

&225
assign=2,bestand(03),wr,si	;leveranciers
dfile=2:&226,e
&226
cfile=2,d=247,lk=8
gosub &500
goto &120

&250
assign=3,bestand(04),wr,si	;klanten
dfile=3:&252,e
&252
cfile=3,d=247,lk=8
gosub &500
goto &120

&275
assign=4,bestand(08),wr,si      ;verkoopdagboek
dfile=4:&277,e
&277
cfile=4,d=200,rk=8
teller(02)=1
teller(14)=1
teller(34)=1 
par(3)=param3
gosub &500
goto &120 

&300
assign=4,bestand(07),wr,si      ;aankoopdagboek
dfile=4:&307,e
&307
cfile=4,d=200,rk=8
teller(03)=1
teller(15)=1
teller(35)=1 
par(3)=param3
gosub &500
goto &120

&325
assign=6,bestand(09),wr,si	           ;finacieeldagboek
assign=7,left(bestand(09),6)+"B",wr,si     ;bedragensort+fakturensort
dfile=6:&326,e
&326
cfile=6,d=180,lk=8
teller(04)=1
par(3)=param3
&327
dfile=7:&328,e
&328 
cfile=7,lk=25
gosub &500
goto &120

&330
assign=8,bestand(02),wr,si      ;historiek rekeningen.
dfile=8:&332,e
&332
cfile=8,d=80,k=14
teller(01)=1
par(3)=param3   
gosub &500
goto &120

&335
assign=9,bestand(01),wr,si       ;algemene rekeningen
&336
cfile=9,d=80,lk=6:&337,e
goto &340
&337
print=1:bell,tab(35,a+3),paint(kh,ka),"Bestand reeds aangemaakt",paint(kt,0)," " 
goto &115
&340
param1=par(1)
param3=par(3)
for i=1 to 3
rekcred(i)=0
rekdeb(i)=0
next i
rekmeca=0
reknum=vastrek(01)
rekvast="Y"   
rekhok="Y"    
rekoms="KLANTEN"
gosub &380
reknum=vastrek(02)
rekoms="LEVERANCIERS"
gosub &380
reknum=vastrek(03)
rekoms="BTW OP VERKOPEN"
gosub &380
reknum=vastrek(04)
rekoms="                    "
gosub &380
reknum=vastrek(05)
rekoms="BTW KN. VERKOPEN"
gosub &380
reknum=vastrek(06)
rekoms="BTW OP AANKOPEN"
gosub &380
reknum=vastrek(07)
rekoms="BTW OP INVESTERINGEN"
gosub &380
reknum=vastrek(08)
rekoms="BTW MEDEKONTRAKTANT"
gosub &380
reknum=vastrek(09)
rekoms="BTW KN AANKOPEN"
gosub &380
reknum=vastrek(10)
rekoms="BTW INVOER BENELUX"
gosub &380
reknum=rekbnbt
rekoms="BTW OP BANKKOSTEN"
gosub &380
reknum=rekbkos
rekoms="BANKKOSTEN"
gosub &380
reknum=betrek
rekoms="BETALINGSVERSCHIL"
gosub &380
reknum=vastrek(11)
rekoms="NIET AFTREKBARE BTW"
gosub &380
reknum=vastrek(12)
rekoms="VOORSCHOTTEN KLANTEN"
gosub &380
reknum=vastrek(13)
rekoms="VOORSCHOTTEN LEVERANCIERS"
gosub &380
reknum=vastrek(14)
rekoms="KORTINGEN KLANTEN"
gosub &380
reknum=vastrek(15)
rekoms="KORTINGEN LEVERANCIERS"
gosub &380
reknum=vastrek(16)
rekoms="INTRESTEN KLANTEN"
gosub &380
reknum=vastrek(17)
rekoms="INTRESTEN LEVERANCIERS"
gosub &380
reknum=vastrek(18)
rekoms="KOERSVERSCH. KLANTEN"
gosub &380
reknum=vastrek(19)
rekoms="KOERSVERSCH. LEVERANCIERS"
gosub &380
reknum=vastrek(20)
rekoms="AANKOPEN F1 TOETS"
gosub &380
reknum=vastrek(21)
rekoms="AANKOPEN F2 TOETS"
gosub &380
reknum=vastrek(22)
rekoms="AANKOPEN F3 TOETS"
gosub &380
reknum=vastrek(23)
rekoms="AANKOPEN F4 TOETS"
gosub &380
reknum=vastrek(24)
rekoms="AANKOPEN F5 TOETS"
gosub &380
reknum=vastrek(25)
rekoms="AANKOPEN F6 TOETS"
gosub &380
reknum=vastrek(26)
rekoms="AANKOPEN F7 TOETS"
gosub &380
reknum=vastrek(27)
rekoms="AANKOPEN F8 TOETS"
gosub &380
reknum=vastrek(28)
rekoms="VERKOPEN F1 TOETS"
gosub &380
reknum=vastrek(29)
rekoms="VERKOPEN F2 TOETS"
gosub &380
reknum=vastrek(30)
rekoms="VERKOPEN F3 TOETS"
gosub &380
reknum=vastrek(31)
rekoms="VERKOPEN F4 TOETS"
gosub &380
reknum=vastrek(32)
rekoms="VERKOPEN F5 TOETS"
gosub &380
reknum=vastrek(33)
rekoms="VERKOPEN F6 TOETS"
gosub &380
reknum=vastrek(34)
rekoms="VERKOPEN F7 TOETS"
gosub &380
reknum=vfinrek(01)
rekoms="BANK F1 TOETS"
gosub &380
reknum=vfinrek(02)
rekoms="KAS"
gosub &380
reknum=vfinrek(03)
rekoms="BANK F3 TOETS"
gosub &380
print=1:tab(01,24),atb(22)
gosub &500
goto &120
&380
if reknum=" " : goto  &385
rekklas=left(reknum,3)
insert=9,reknum:&390,e,rekrec
print=1:tab(01,24),reknum," ",rekoms
&385 
return
&390
if e=81 : goto  &385
print=1:tab(01,24),"Fout insert rekening : ",e," ",reknum
stop

&400
assign=10,bestand(10),wr,si     ;openstaande fakturen
dfile=10:&407,e
&407
cfile=10,d=80,lk=15
teller(05)=1
par(3)=param3 
gosub &500
goto &120

&410
assign=14,bestand(11),wr,si     ;klantenhistoriek
dfile=14:&417,e
&417
cfile=14,d=60,k=16
teller(07)=1
par(3)=param3
gosub &500
goto &120

&420
assign=14,bestand(12),wr,si     ;leveranciershistoriek 
dfile=14:&427,e
&427
cfile=14,d=60,k=16
teller(08)=1
par(3)=param3          
gosub &500
goto &120

&500
print=1:tab(35,a+3),paint(kh,ka),"CREATIE O.K.",paint(kt,0)," " 
return

&3000
phil=0
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  CREATIE ",tab(70),ndat
print=1:tab(01,02),paint(kl,0),gener(79,hto),paint(kt,0)
print=1:tab(01,05),"1 --> Nulstelling klanten."
print=1:tab(01,06),"2 --> Nulstelling leveranciers."
print=1:tab(01,07),"3 --> Nulstelling rekeningen."
print=1:tab(01,08),"4 --> Initialisatie tellers."
print=1:tab(01,10),paint(kl,0),gener(79,hto),paint(kt,0)
&3005
j=" "
ask=1,i=&1,u=&100:tab(01,12),"Maak uw keuze  1--4",esc=j
if j="1" : goto  &3101
if j="2" : goto  &3102
if j="3" : goto  &3103
if j="4" : goto  &3104
goto &3005
&3101
ldgo.seg 1
goto &3000
&3102
ldgo.seg 2
goto &3000
&3103
ldgo.seg 3
goto &3000
&3104
ldgo.seg 4
goto &3000
eseg 0

segment 1
assign=2,bestand(04),wr,si    ;klantenbestand
open=2:&20,e
&10
down=2:&20,e,kldown
print=1:tab(01,24),klkode," ",klnaam," ",klgem
kljomz=0
kltego=0
kltbtw=0
klcred=0
klover=0
klomzvj=0
klomz2j=0
&19
modif=2,klkode:&20,e,klrec
goto &10
&20
ret.seg
eseg 1

segment 2
assign=2,bestand(03),wr,si    ;leveranciersbestand
open=2:&20,e
&10
down=2:&20,e,levdown
print=1:tab(01,24),levkode," ",levnaam," ",levgem
levtbtw=0
levmede=0
levtebe=0
levvoor=0
levjomz=0
levvj=0
&19
modif=2,levkode:&20,e,levrec
goto &10
&20
ret.seg
eseg 2

segment 3
assign=2,bestand(01),wr,si    ;rekeningenbestand
open=2:&20,e
&10
down=2:&20,e,rekdown
print=1:tab(01,24),rekkode," ",rekoms
for tel=1 to 3
rekdeb(tel)=0
rekcred(tel)=0
next tel
modif=2,rekkode:&10,e,rekrec
goto &10
&20
print=1:tab(01,24),atb(22)
ret.seg
eseg 3

segment 4
param3=par(3)
for e=1 to 50
teller(e)=0
next e
par(3)=param3
ret.seg
eseg 4

end


eseg 4

end
nd
seg 4

end