nSelect = "SELECT * FROM Tsd001 WHERE baixado <> 'S' and exclui <> 'S' AND VIAGEM = 0 "
TSEXEC("T",nSelect,"TMP_IMPDEL01")

SET PRINTER TO NAME 'TSTISAT'

??? DTOC(DATE()) + SPACE(5) + TIME() + CHR(13) + CHR(10)
??? REPLICATE("-",48) + CHR(13) + CHR(10)
??? "RELATORIO DE ENTREGAS DELIVERY" + CHR(13) + CHR(10)
??? REPLICATE("-",48) + CHR(13) + CHR(10)
??? "SEQ.   DATA       HORA       VLR  ENTRE    TOTAL" + CHR(13) + CHR(10)
??? REPLICATE("-",48) + CHR(13) + CHR(10)

cValorp  = 0
cValortx = 0
cValorto = 0

SELECT TMP_IMPDEL01
GO TOP IN TMP_IMPDEL01
DO WHILE ! EOF("TMP_IMPDEL01")
   
   ??? STR(TMP_IMPDEL01.SEQDEL01,6) + " " + DTOC(TMP_IMPDEL01.DATA) + " " + ;
   SUBSTR(TMP_IMPDEL01.HORA,1,5) + " " + TRANSFORM(TMP_IMPDEL01.TOTAL,"9,999.99") + " " + ;
   TRANSFORM(TMP_IMPDEL01.TX_ENTREGA,"999.99") + " " + ;
   TRANSFORM((TMP_IMPDEL01.TOTAL + TMP_IMPDEL01.TX_ENTREGA),"9,999.99") + CHR(13) + CHR(10)

   cValorp  = cValorp + TMP_IMPDEL01.TOTAL
   cValortx = cValortx + TMP_IMPDEL01.TX_ENTREGA
   cValorto = cValorto + TMP_IMPDEL01.TOTAL + TMP_IMPDEL01.TX_ENTREGA

   SKIP IN TMP_IMPDEL01
   LOOP

ENDDO

??? REPLICATE("-",48) + CHR(13) + CHR(10)
SELECT TMP_IMPDEL01
??? "TOTAL PEDIDOS.: " + ALLTRIM(STR(RECCOUNT(),10)) + CHR(13) + CHR(10)
??? "TOTAL" + REPLICATE(".",19) + TRANSFORM(cValorp,"9,999.99") + " " + TRANSFORM(cValortx,"999.99") +" " + ;
TRANSFORM(cValorto,"9,999.99") + CHR(13) + CHR(10)
??? CHR(13) + CHR(10)
??? CHR(13) + CHR(10)
??? CHR(13) + CHR(10)
??? CHR(13) + CHR(10)
??? CHR(13) + CHR(10)
??? CHR(13) + CHR(10)
??? CHR(27) +  CHR(109)

SET PRINTER TO NAME "TSTISAT"