program "HISTORIEK" dcl totbtw=6,totniet=6,totmede=6,totnelux=6 dcl som=6,reken$=6,kode$=1 #INCLUDE "CRINCLU" #INCLUDE "CRINCLU2" assign=02,bestand(02),wr,si ;maandhistoriek assign=03,bestand(03),wr,si ;leveranciers assign=04,bestand(04),wr,si ;klanten assign=07,bestand(07),wr,si ;aankoopdagboek assign=08,bestand(08),wr,si ;verkoopdagboek assign=09,bestand(09),wr,si ;financieel dagboek open=03 open=04 open=07 open=08 open=09 dfile=02:next,e cfile=02,d=80,k=14 teller(01)=1 par(3)=param3 &150 print=1:clear,paint(kh,ka),naam,paint(kt,0)," HEROPBOUW HISTORIEK REKENINGEN ",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) &155 ask=1,i=&1,u=&1,/80=&160:tab(01,24),"Druk F1 op heropbouw te starten ",esc=j goto &155 &160 print=1:tab(01,05),atb(22) dfile=02:next,e cfile=02,d=80,k=14 teller(01)=1 par(3)=param3 &200 down=7:&300,e,aankdown ldgo.seg 1 goto &200 &300 down=8:&400,e,verkdown ldgo.seg 2 goto &300 &400 down=9:&500,e,findown ldgo.seg 3 goto &400 &500 ask=1,i=&1,u=&1:tab(01,24),bere,esc=j goto &500 eseg 0 segment 1 ;aankoop goto &10 &1 ret.seg &10 print=1:tab(01,24),aankdat," ",aanklev totniet=0 totmede=0 totnelux=0 totbtw=0 for e=1 to 5 if aankkod(e)="1" : goto &15 if aankkod(e)="2" : goto &20 if aankkod(e)="3" : goto &30 if aankkod(e)="4" : goto &40 &13 next e goto &100 &15 totbtw=aankbed(e) goto &13 &20 totnelux=aankbed(e) goto &13 &30 totmede=aankbed(e) goto &13 &40 totniet=aankbed(e) goto &13 &100 reknum=vastrek(02) ;leveranciers if aankcnf<>"K" madbcr="C" mabedrc=aankcre gosub &500 goto &110 endif madbcr="D" mabedrd=abs(aankcre) gosub &500 &110 if totniet<>0 reknum=vastrek(11) if aankcnf<>"K" madbcr="D" mabedrc=totniet gosub &500 goto &180 endif madbcr="C" mabedrc=abs(totniet) gosub &500 endif &180 if totmede<>0 totbtw=totbtw+totmede reknum=vastrek(08) if aankcnf<>"K" madbcr="C" mabedrc=totmede gosub &500 goto &190 endif madbcr="D" mabedrd=abs(totmede) gosub &500 endif &190 if totnelux<>0 totbtw=totbtw+totnelux reknum=vastrek(10) if aankcnf<>"K" madbcr="C" mabedrc=totnelux gosub &500 goto &200 endif madbcr="D" mabedrd=abs(totnelux) gosub &500 endif &200 if totbtw<>0 reknum=vastrek(06) if aankcnf<>"K" &201 madbcr="D" mabedrd=totbtw gosub &500 goto &250 endif reknum=vastrek(09) madbcr="C" mabedrc=abs(totbtw) gosub &500 endif &250 for i2=1 to 10 if aankteg(i2)<>" " reknum=aankteg(i2) if aanktbe(i2)>=0 madbcr="D" mabedrd=aanktbe(i2) gosub &500 goto &295 endif madbcr="C" mabedrc=abs(aanktbe(i2)) gosub &500 &295 endif next i2 goto &1 &500 ;wegschrijven historiek makode="1" makllev="L" maklv=aanklev matgfak=aankfak mareknr=reknum madatum=aankdat madat=right(madatum,2)+substr(madatum,4,2)+left(madatum,2) maomsch=aankoms matel=teller(01) makode2=makod9 insert=2,makod9:&501,e,mahisre goto &505 &501 teller(01)=teller(01)+1 goto &500 &505 madbcr=" " mabedrd=0 mabedrc=0 return eseg 1 segment 2 goto &10 &1 ret.seg &10 print=1:tab(01,24),verkdat," ",verkkla reknum=vastrek(01) if verkcnf<>"K" madbcr="D" mabedrd=verkdeb goto &170 endif madbcr="C" mabedrc=abs(verkdeb) &170 madatum=verkdat madat=right(madatum,2)+substr(madatum,4,2)+left(madatum,2) maklv=verkkla matgfak=shr(verkfak) maomsch=verkoms mareknr=reknum gosub &500 if verkcnf<>"K" reknum=vastrek(03) madbcr="C" mabedrc=verkbtw gosub &500 goto &190 endif reknum=vastrek(05) madbcr="D" mabedrd=abs(verkbtw) gosub &500 &190 for i2=1 to 10 if verkteg(i2)=" " : goto &200 reknum=verkteg(i2) if verktbe(i2)>0 madbcr="C" mabedrc=verktbe(i2) goto &198 endif madbcr="D" mabedrd=abs(verktbe(i2)) &198 gosub &500 next i2 &200 par(3)=param3 par(4)=param4 goto &1 &500 ;wegschrijven historiek makode="2" makllev="K" maklv=verkkla matgfak=verkfak mareknr=reknum madatum=verkdat madat=right(madatum,2)+substr(madatum,4,2)+left(madatum,2) maomsch=verkoms matel=teller(01) makode2=makod9 insert=2,makod9:&501,e,mahisre goto &505 &501 teller(01)=teller(01)+1 goto &500 &505 madbcr=" " mabedrd=0 mabedrc=0 return eseg 2 segment 3 print=1:tab(01,24),findat," ",finklva," ",finkllv," ",finfaknr goto &100 &1 ret.seg &100 if finklva="K" : goto &200 if finklva="L" : goto &300 if finklva="A" : goto &400 &200 kode="C" if finbank>=0 kode="D" endif som=abs(finbank) reken=finrek ldgo.seg 5 if finkla<>0 som=abs(finkla) reken=vastrek(01) kode="C" if finkla>0 kode="D" endif ldgo.seg 5 endif for tel=1 to 10 if fintrek(tel)=" " : goto &210 if fintbed(tel)=0 : goto &210 kode="C" if fintbed(tel)>0 kode="D" endif finklva="A" som=abs(fintbed(tel)) reken=fintrek(tel) finfaknr=finrek ldgo.seg 5 &210 next tel goto &1 &300 kode="D" if finbank>=0 kode="C" endif som=abs(finbank) reken=finrek ldgo.seg 5 if finkla<>0 som=abs(finkla) reken=vastrek(02) kode="D" if finkla>0 kode="C" endif ldgo.seg 5 endif for tel=1 to 10 if fintrek(tel)=" " : goto &310 if fintbed(tel)=0 : goto &310 kode="D" if fintbed(tel)>0 kode="C" endif finklva="A" som=abs(fintbed(tel)) reken=fintrek(tel) finfaknr=finrek ldgo.seg 5 &310 next tel goto &1 &400 for tel=1 to 10 if fintrek(tel)=" " : goto &490 if fintbed(tel)=0 : goto &490 kode="C" if fintbed(tel)>0 kode="D" endif finklva="A" som=abs(fintbed(tel)) reken=fintrek(tel) finfaknr=finrek ldgo.seg 5 if kode="C" kode="D" goto &430 endif if kode="D" kode="C" endif &430 reken=finrek finfaknr=fintrek(tel) ldgo.seg 5 &490 next tel goto &1 eseg 3 segment 5 if kode="C" : goto &605 madbcr="D" mabedrd=som mabedrc=0 goto &610 &605 madbcr="C" mabedrc=som mabedrd=0 &610 makllev=finklva maklv=finkllv matgfak=finfaknr mareknr=reken makode="3" madatum=findat madat=right(madatum,2)+substr(madatum,4,2)+left(madatum,2) maomsch=finoms makode2=makod9 &615 matel=teller(01) insert=2,makod9:&620,e,mahisre teller(01)=teller(01)+1 par(3)=param3 ret.seg &620 teller(01)=teller(01)+1 goto &615 eseg 5 end   e