IF MESSAGEBOX("Confirma a Impresso  ",292,"Aviso") = 6

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

nSelect = "SELECT Tscom02.*,(Tscom02.Quant*Tslc003.Preco1) as Total,Tscom01.Obs AS OBSCOM01,Tscom01.Seq004_lib,Tslc003.CODBAR,"
nSelect = nSelect + "Tslc003.Descpro,Tslc003.Uni,Tslc003.Preco1,Tslc004.Nome,Tscom01.SEQ001,Tslc001.CLINOM,Tslc001.CliEnd,Tslc001.Numero,Tslc001.Clibai,Tslc001.Clicid,Tslc001.Clitel FROM Tscom02 "
nSelect = nSelect + "LEFT JOIN Tscom01 ON Tscom02.Seqcom01 = Tscom01.Seqcom01 "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tscom02.Seq003 = Tslc003.CODIGO "
nSelect = nSelect + "LEFT JOIN Tscom02obs ON Tscom02.Seqcom02 = Tscom02Obs.Seqcom02 "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tscom01.Seq004_lib = Tslc004.Codigo "
nSelect = nSelect + "LEFT JOIN Tslc001 ON Tscom01.SEQ001 = Tslc001.CLICOD "
nSelect = nSelect + "WHERE ?cCodCom01 = Tscom02.Seqcom01 And Tscom02.Baixa != 'S' And Tscom02.Exclui != 'S'"
TSEXEC("T",nSelect,"TMP_IMPRIMIR")

FOR nIdx = 1 to 2

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cTabela2 = "TMP_IMPRIMIR"

cQEsp = 0

*cValor1 = LEN(ALLTRIM(cTpOrc))
*cVal1 = 28 - cValor1
   
   set printer to

   ??? CHR(27)+"0"+CHR(27)+"C"+CHR(44)
   ??? chr(18)

   CABECA = ""
   CABECA = CABECA + REPLICATE(" ",cQEsp) + space(int((80 - len(AllTrim(AllTrim(TSL.NOME)))) / 2))+AllTrim(AllTrim(TSL.NOME)) + CHR(10)+CHR(13)
   CABECA = CABECA + REPLICATE(" ",cQEsp) + space(int((80 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
   CABECA = CABECA + REPLICATE(" ",cQEsp) + space(int((80 - len(AllTrim("Fone: " + AllTrim(TSL.FONE)))) / 2))+AllTrim("Fone: " + AllTrim(TSL.FONE)) + CHR(10)+CHR(13)
   CABECA = CABECA + REPLICATE(" ",cQEsp) + space(int((80 - len(AllTrim("Celular: " + AllTrim("015 9 9626 2096")))) / 2))+AllTrim("Celular: " + AllTrim("015 9 9626 2096")) + CHR(10)+CHR(13)
   CABECA = CABECA + REPLICATE(" ",cQEsp) + DTOC(&cTabela2..DATA)  + "       " + "< PRE VENDA >"+  "        " + TIME() + CHR(10)+CHR(13)
   CABECA = CABECA + REPLICATE(" ",cQEsp) + "PRE VENDA N: " + PADL(ALLTRIM(STR(&cTabela2..Seqcom01,11)),6,'0') + REPLICATE(" ",29) + CHR(10)+CHR(13)
   CABECA = CABECA + REPLICATE(" ",cQEsp) + "Nome.....: " + PADL(ALLTRIM(STR(&cTabela2..SEQ001,6)),6,"0") + " - " + &cTabela2..CLINOM + CHR(13) + CHR(10)
   CABECA = CABECA + REPLICATE(" ",cQEsp) + "Endereco.: " + AllTrim(&cTabela2..CLIEND) + ", " + alltrim(&cTabela2..numero) + " " + " Tel.: " + &cTabela2..CLITEL + CHR(13) + CHR(10)
   CABECA = CABECA + REPLICATE(" ",cQEsp) + "Bairro...: " + ALLTRIM(&cTabela2..CLIBAI) + "  Cidade.: " + ALLTRIM(&cTabela2..CLICID) + CHR(13) + CHR(10)
   CABECA = CABECA + REPLICATE(" ",cQEsp) + "OBS: " + ALLTRIM(TMP_IMPRIMIR.OBSCOM01) + CHR(10)+CHR(13)
   ??? CABECA
   ??? REPLICATE(" ",cQEsp) + REPLICATE("-",80) + CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + "Cod.  Descricao                             UN        Qtde    Unit.R$  Valor R$"+chr(13) + CHR(10)

   ??? REPLICATE(" ",cQEsp) + REPLICATE("-",80)+CHR(10)+CHR(13)

   nLinha = 9
   cTotal = 0

*   ??? CHR(27) + "G"
*   ??? CHR(13)+CHR(10)

   SELECT &cTabela2
   GO TOP
   DO WHILE ! EOF(cTabela2)

      If nLinha > 36
         ??? Replicate("-",80)+chr(13)+chr(10)
         ??? chr(12)
         ??? cabeca + CHR(13)+CHR(10)
         nLinha = 9
      Endif

      nLinha = nLinha + 1

      ???Substr(&cTabela2..CODBAR,11,6) + " " + Substr(&cTabela2..DESCPRO,1,35) + " " +;
      &cTabela2..UNI + "  " + TRANSFORM(&cTabela2..QUANT,"999,999.99") + " "+;
      TRANSFORM(&cTabela2..Preco1,"99,999.999") + " " + TRANSFORM(&cTabela2..TOTAL,"99,999.99")+CHR(13)+CHR(10)
   
      SKIP IN &cTabela2
      LOOP
   
   ENDDO
   SELECT &cTabela2
   GO TOP IN &cTabela2

   If nlinha > 25
      ??? chr(12)
      ??? cabeca + CHR(10)+CHR(13)
      nLinha = 9
   Endif

   ??? REPLICATE(" ",cQEsp) + REPLICATE("-",80)+CHR(10)+CHR(13)
   SELECT SUM(TOTAL) AS TOTAL FROM TMP_IMPRIMIR INTO CURSOR TMP_TOTAL
   ??? REPLICATE(" ",cQEsp) + Replicate(" ",59) + "Total R$: " + TRANSFORM(TMP_TOTAL.TOTAL,"999,999.99")+chr(13)+CHR(10)

*   ??? CHR(27)+CHR(72)
*   ??? CHR(27) + "H"

   ??? " " + CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + "ATENDIDO POR: " + PADL(ALLTRIM(STR(&cTabela2..SEQ004_LIB)),5,'0') + " - " + ALLTRIM(&cTabela2..NOME) +  CHR(10)+CHR(13)  
   ??? " " + CHR(10)+CHR(13)

   ??? chr(12)

   Set Printer To

if nIdx = 1 
   IF MESSAGEBOX("Deseja Imprimir a Segunda Via  ",292,"Aviso") = 7
      exit
   endif
endif 

NEXT

ENDIF