program "OVERZETTEN OPS FACT"

dcl telhist%,e9#

#INCLUDE  "CRINCLU"
#INCLUDE  "CRINCLU2"

assign=5,"NEWOPF",wr,si
open=5:&1,e

&100
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  OVERZETTEN OPENST. FACTUREN ",tab(70),ndat
print=1:tab(01,02),paint(kl,0),gener(79,hto),paint(kt,0)
&115
print=1:tab(01,05)," 1 --> Klanten."
print=1:tab(01,06)," 2 --> Leveranciers."
print=1:tab(01,14),paint(kl,0),gener(79,hto),paint(kt,0)
&120
ask=1,i=&1,u=&1:tab(01,16),"Uw keuze 1--2  (esc=einde) : ",(n2),a,tab(30)=a
if a=1 : goto  &340
if a=2 : goto  &350
goto &120

&340
ldgo.seg 2     ;klanten
goto &100

&350
ldgo.seg 3     ;leveranciers
goto &100

eseg 0

segment 2

goto &5

&1
ret.seg

&5
assign=3,bestand(11),wr,si
assign=4,bestand(10),wr,si
&10 
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  KLANTEN ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
passwoord=" "
ask=1,i=&1,u=&1,/80=&20:tab(01,20),"Geef passwoord voor uitvoering eindejaarsbewerkingen klanten : "=passwoord
if passwoord=" " : goto  &10
passwoord=large(passwoord)
if passwoord=pwtest : goto  &20
goto &1
&20 
open=3:&1,e
open=4:&1,e
open=5:&1,e
&70
down=5:&1,e,fakdown
if fakkllv<>"K" : goto  &70
insert=4,fakkode:&70,e,fakrec
delete=5,fakkode:&70,e
print=1:tab(01,23),faknaam," ",fakdat
hisnaam=faknaam
histdat=right(fakdat,2)+substr(fakdat,4,2)+left(fakdat,2)
histel=0
hisdat=fakdat
hiskod1="V"
hiskod2=" "
hisbed1=faktebe-fakont
hisbed2=0
hiskllv=faknaam
hisfakt=faknum
hisbetw=" "
hisbtw=0
&100
print=1:tab(01,24),hisnaam," ",hisdat
insert=3,hiskode:&110,e,kllvhis
goto &70
&110
histel=histel+1
goto &100

eseg 2

segment 3

goto &5

&1
ret.seg

&5
assign=3,bestand(12),wr,si
assign=4,bestand(10),wr,si
&10 
print=1:clear,paint(kh,ka),naam,paint(kt,0),"  LEVERANCIERS ",tab(70),ndat
print=1:paint(kl,0),tab(01,02),gener(79,hto),paint(kt,0)
passwoord=" "
ask=1,i=&1,u=&1,/80=&20:tab(01,20),"Geef passwoord voor uitvoering eindejaarsbewerkingen leveranciers : "=passwoord
if passwoord=" " : goto  &10
passwoord=large(passwoord)
if passwoord=pwtest : goto  &20
goto &1
&20 
open=3:&1,e
open=4:&1,e
open=5:&1,e
&70
down=5:&1,e,fakdown
if fakklv<>"L" : goto  &70
insert=4,fakkode:&70,e,fakrec
delete=5,fakkode:&70,e
print=1:tab(01,23),faknaam," ",fakdat
hisnaam=faknaam
histdat=right(fakdat,2)+substr(fakdat,4,2)+left(fakdat,2)
histel=0
hisdat=fakdat
hiskod1="A"
hiskod2=" "
hisbed1=faktebe-fakont
hisbed2=0
hiskllv=faknaam
hisfakt=faknum
hisbetw=" "
hisbtw=0
&100
print=1:tab(01,24),hisnaam," ",hisdat
insert=3,hiskode:&110,e,kllvhis
telhist=telhist+1
goto &70
&110
histel=histel+1
goto &100

goto &1

eseg 3

end

end

 3

end


eseg 3

end





l=histel+1
goto