nSelect = "SELECT * FROM Tsl "
TSEXEC("T",nSelect,"TSL")

nSelect = "SELECT Tsd001.*,Tslc001.CLINOM,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITel, "
nSelect = nSelect + "Tslc003.CODIGO,Tslc003.DESCPRO,Tsd002.QUANT,Tsd002.UNIT,tsd002b.obs "
nSelect = nSelect + "FROM Tsd002 "
nSelect = nSelect + "LEFT JOIN Tslc001 ON Tsd001.SEQ001   = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tsd001  ON Tsd002.SEQdel01 = Tsd001.SEQdel01 "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tsd002.Seq003   = Tslc003.CODIGO "
nSelect = nSelect + "LEFT JOIN Tsd002b ON Tsd002.SEQdel02 = Tsd002b.SEQdel02 "
nSelect = nSelect + "WHERE ?cSeqDel02 = Tsd001.SEQdel01 And Tsd002.Exclui <> 'S'"
TSEXEC("T",nSelect,"TMP_IMPRIMIR")

cTabela2 = "TMP_IMPRIMIR"

cQEsp = TSL.QECUP

*cValor1 = LEN(ALLTRIM(cTpOrc))
*cVal1 = 28 - cValor1

??? CHR(15)

??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela..DATA) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(cNomeEmp)))) / 2))+AllTrim(AllTrim(cNomeEmp)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("Fone: " + AllTrim(TSL.FONE)))) / 2))+AllTrim("Fone: " + AllTrim(TSL.FONE)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "DELIVERY: " + ALLTRIM(STR(&cTabela..SEQDEL01,6)) + REPLICATE(" ",cVal1)+ chr(27)+chr(71) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "DESCRICAO    " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$   Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "OBS.    " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)

SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCPRO,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCPRO,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
   ENDIF
   ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " " + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " " + TRANSFORM(&cTabela2..QUANT*&cTabela2..UNIT,"9,999.99")
   ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..OBS,1,26) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..OBS,27,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..OBS,27,40) + CHR(10)+CHR(13)
   ENDIF

   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT SUM(TMP_IMPRIMIR.QUANT*TMP_IMPRIMIR.UNIT) AS TOT_GERAL FROM TMP_IMPRIMIR INTO CURSOR TMP_TOT

??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(TMP_TOT.TOT_GERAL,"9,999,999.99") + CHR(10)+CHR(13)

USE IN TMP_TOT

??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Nome: " + PADL(ALLTRIM(STR(&cTabela..CODCLI,6)),6,"0") + " " + SUBSTR(&cTabela..CLINOM,1,36)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela..CLIEND)+CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Vend: " + PADL(ALLTRIM(STR(&cTabela..CODVEN,4)),4,"0") + " " + SUBSTR(&cTabela..VENDEDOR,1,24) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..FORMA)+CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS01)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS01)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS02)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS02)) + CHR(10)+CHR(13)
*??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(PARAMETRO.OMENS03)))) / 2))+AllTrim(AllTrim(PARAMETRO.OMENS03)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("=",40)+CHR(13)+CHR(10)
*WAIT WINDOW parametro.recorc
*WAIT WINDOW cImpRec

??? " " + 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(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(13)

SET PRINTER TO