******************************************
*  REKLST - RENO-PORT Afdrukken lijsten  *
*            Theo  3-nov-92              *
******************************************

* Hoofdlus
titel = "REKENINGEN "
DO kader WITH titel
wnaam=space(20)
* Toon afdrukkeuze
mopt=0
@  7,10 SAY "Lijsten afdrukken op:"
@  9, 25 SAY "1. Printer"
@ 11, 25 SAY "2. Scherm"
@ 13, 25 SAY "0. Terug naar het Hoofdmenu"
@ 21, 25 SAY "KEUZE: "GET mopt PICTURE "9" RANGE 0,2
READ
@ 21, 1 SAY SPACE(78)
* Voer de keuze uit
DO CASE
   CASE mopt=1
   printer=1          &&  Printervlag op 1 zetten
   tot=55
   CASE mopt=2
   printer=0          &&  printer niet aanzetten
   tot=14
   CASE mopt=0
   RETURN
ENDCASE

@ 5,2 CLEAR TO 18,78
DO REKopen
SELECT 1
SET DELETED ON
mans=.F.
@ 21, 17 SAY 'Wilt U selectiecriteria aangeven (J of N) ? ';
  GET mans PICTURE 'Y'
READ
IF mans
 MODIFY QUERY REKrap     && Bepaal nieuw criteria met MODIFY QUERY *
 DO kader WITH titel
@ 5,5 SAY "Geef BIJKOMENDE tekst "GET wnaam PICTURE '!!!!!!!!!!!!!!!!!!!!'
READ
ELSE
wnaam="ALLES"
ENDIF

  * Toon reccord met overeenkomend gegeven                   
  GOTO TOP
@ 2,2 CLEAR TO 3,78 
@ 5,2 CLEAR TO 18,78
@ 21,2 CLEAR TO 22,78
A=0
AANT=0
TOTAAL=0
ww=space(7)
bedr=space(7)
hoofd="REKENINGEN"
spat=space(40)
lang=0
weg=0
lijn="---------------------------------------"
wnaam=trim(wnaam)
lang=LEN(wnaam)
weg=30-(lang/2)
spat= LEFT(spat,weg)
blz=1
IF printer=1
* Toon mededeling over printer
mok=' '
@ 10, 10 SAY 'Is de printer klaar? Druk dan op een toets' Get mok
READ
   SET PRINT ON       &&  Printer opzetten
   SET CONSOLE OFF    
? spat+hoofd+" "+wnaam
lijn=LEFT(lijn,11+lang)
? spat+lijn 

? "DATUM            REDEN                   ";
+"DOEL            BEDRAG      TOTAAL"
?"-----------------------------------------------------------";
+ "------------------"
ELSE
@ 2,34-(LANG/2) SAY "REKENINGEN "+wnaam
@ 3,2 SAY "DATUM            REDEN"
@ 3,43 SAY "DOEL            BEDRAG       TOTAAL"
ENDIF
SET DECIMALS TO 2
 
 OK=.F.
  DO WHILE .not.EOF()
 A=A+1 
 AANT=AANT+1
ww=STR(bedrag,8,2)
do eurotal with ww

bedr=ww
 TOTAAL=TOTAAL+BEDRAG
ww=STR(totaal,8,2)
DO eurotal WITH ww


IF printer=1
? DTOC(DATUM)+" | "+REDEN+" | "+FIRMA+" | "+bedr+" | "+ww
ELSE
PL=A+4
@ PL,2 SAY DTOC(DATUM)+" | "+REDEN+" | "+FIRMA+" |"+bedr+" |"+ww          
ENDIF

IF A>tot
A=0
blz=blz+1
as=str(blz)
as=ltrim(as)
IF PRINTER=1
SET PRINT OFF
SET CONSOLE ON
ENDIF
mans=.F.
@ 21, 17 SAY 'Verder afdrukken blz.'+as+' (J of N) ? ';
  GET mans PICTURE 'Y'
READ
IF mans
IF printer=1
   SET PRINT ON       &&  Printer opzetten
   SET CONSOLE OFF    
?
?
?
?
?
?
? spat+hoofd+" "+wnaam
? spat+lijn
? "DATUM            REDEN                 ";
+"DOEL         BEDRAG     TOTAAL"
?"----------------------------------------------------------------------"
ELSE
@ 5,2 CLEAR TO 19,78
ENDIF
ELSE
EXIT
ENDIF
ENDIF
SKIP 1 
ENDDO

IF printer=0
ok=.F.
@ 21,5 CLEAR TO 22,50
@ 21,5 SAY "Afgedrukte verhandelingen="+str(AANT)
@ 22,5 SAY "gelezen (J)"GET ok PICTURE "Y"
READ

ELSE
SET PRINT ON
SET CONSOLE OFF
?
? "Afgderukte verhandelingen="+str(AANT)
?

SET PRINT OFF
SET CONSOLE ON
printer=0
ENDIF

CLEAR
CLOSE DATABASES
RETURN