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

cValor1 = LEN(ALLTRIM("COTACAO"))
cVal1 = 27 - cValor1

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

nSelect = "SELECT Tslor01.*,Tslc001.CLINOM,Tslc001.PESSOA,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITEL,Tslc001.CLICPF,"
nSelect = nSelect + "Tslc001.CLICGC,Tslc004.NOME "
nSelect = nSelect + "FROM Tslor01 LEFT JOIN Tslc001 ON Tslor01.CODCLI = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tslor01.CODVEN = Tslc004.CODIGO WHERE ?cTabImp = Tslor01.SEQ "
TSEXEC("T",nSelect,"TSLOR01")

nSelect = "SELECT Tslor02.*,Tslc003.CODBAR FROM Tslor02 LEFT JOIN Tslc003 ON Tslor02.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = CUPOM AND EXCLUI <> 'S' "
TSEXEC("T",nSelect,"TSLOR02_1")

GERACURSOR("TSLOR02_1","TSLOR02")

SELECT TSLOR02
UPDATE TSLOR02 SET CODBAR = PADL(ALLTRIM(STR(CODPROD,16)),16,"0") WHERE EMPTY(ALLTRIM(CODBAR))

IF ! USED("PARAMETRO")
   USE PARAMETRO IN 44 SHARED
ENDIF

SELECT PARAMETRO
APRINTERS(cImp)
   
*SET PRINTER TO NAME cImp(PARAMETRO.IMPORC)

nValPag = 1
SYS(1037) && INDICAR IMPRESSORA

??? CHR(27)+"0"+CHR(27)+"C"+CHR(44)
??? chr(18)
CABECA = space(int((70 - len(AllTrim(TSL.NOME))) / 2)) + alltrim(TSL.NOME)+space(int((70 - len(AllTrim(TSL.NOME))) / 2))+dToc(TSLOR01.DATA) + chr(13)+chr(10)
CABECA = CABECA + CHR(18)
CABECA = CABECA + space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + alltrim(TSL.ENDERECO)+space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + TIME()+chr(13)+chr(10)
CABECA = CABECA + space(int((80 - len(Alltrim(TSL.FONE))) / 2)) + AllTrim(TSL.FONE)+chr(13)+chr(10)
CABECA = CABECA + "COT. N.: " + PADL(ALLTRIM(STR(TSLOR01.SEQ,6)),6,"0") + Replicate(" ",12) + "< CUPOM SEM VALOR FISCAL >" + REPLICATE(" ",cVal1) + chr(27)+chr(71)+ALLTRIM("COTACAO")+CHR(27)+CHR(72)+CHR(13)+CHR(10)
CABECA = CABECA + Replicate("-",80)+chr(13)+chr(10)
IF TSLOR01.PESSOA = "FSICA"
   cCpfCgc = "CPF: " + TSLOR01.CLICPF
ELSE
   cCpfCgc = "CNPJ: " + TSLOR01.CLICGC
ENDIF
CABECA = CABECA + "Nome.....: " + PADL(ALLTRIM(STR(TSLOR01.CODCLI,6)),6,"0") + " - " + TSLOR01.CLINOM + cCpfCgc + CHR(13)+CHR(10)
CABECA = CABECA + "Endereco.: " + AllTrim(TSLOR01.CLIEND) + " " + " Tel.: " + TSLOR01.CLITEL + CHR(13)+CHR(10)
CABECA = CABECA + "Bairro...: " + ALLTRIM(TSLOR01.CLIBAI) + "  Cidade.: " + ALLTRIM(TSLOR01.CLICID) + CHR(13)+CHR(10)
CABECA = CABECA + "Vendedor.: " + PADL(ALLTRIM(STR(TSLOR01.CODVEN,5)),5,"0") + " - " + ALLTRIM(TSLOR01.NOME) + "  Comprador.: " + ALLTRIM(TSLOR01.COMPRADO) + CHR(13)+CHR(10)
CABECA = CABECA + Replicate("-",80)+chr(13)+chr(10)

??? CABECA + "Cod.  Descricao                        UN   ST         Qtde    Unit.R$  Valor R$"+chr(13)+chr(10)
??? Replicate("-",80)+chr(13)+chr(10)
Select TSLOR02
Go Top IN TSLOR02
nLinha = 9
cTotal = 0

Do While ! Eof("TSLOR02")
   
      If nLinha > 36
         ??? Replicate("-",80)+chr(13)+chr(10)
         ??? chr(12)
         ??? cabeca + CHR(13)+CHR(10)
         nLinha = 9
      Endif
   
      nLinha = nLinha + 1
   
      SET DECIMALS TO 3
      ??? Substr(TSLOR02.CODBAR,12,5) + " " + Substr(TSLOR02.DESCRICAO,1,31) + "  " +;
      TSLOR02.UNIDADE + "  " + TSLOR02.ST + "  " + TRANSFORM(TSLOR02.QUANT,"999,999.99") + " "+;
      TRANSFORM(TSLOR02.UNIT,"99,999.999") + " " + TRANSFORM(TSLOR02.TOTAL,"99,999.99")+CHR(13)+CHR(10)
      
      cTotal = cTotal + TSLOR02.TOTAL
      
      Skip In TSLOR02
   Loop
Enddo

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

??? Replicate("-",80)+chr(13)+chr(10)
??? Replicate(" ",60) + "Total R$: " + TRANSFORM(cTotal,"999,999.99")+chr(13)+chr(10)
IF TSLOR01.DESCONTO > 0
   ??? Replicate(" ",60) + "Desconto: " + TRANSFORM(TSLOR01.DESCONTO,"999,999.99")+chr(13)+chr(10)
   ??? Replicate(" ",60) + "Total R$: " + TRANSFORM((cTotal - TSLOR01.DESCONTO),"999,999.99")+chr(13)+chr(10)
ENDIF
??? Replicate("-",80)+chr(13)+chr(10)

IF nLinha > 24
   ??? CHR(12)
   ??? CABECA + CHR(10)+CHR(13)
ENDIF
??? Replicate("-",80)+chr(13)+chr(10)
??? "OBS: "+ TSLOR01.OBS  + CHR(10)+CHR(13)
??? "     "+ TSLOR01.OBS2 + CHR(10)+CHR(13)
??? space(int((80 - len(AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02)))) / 2))+AllTrim(AllTrim(TSL.OMENS01) + " - " + AllTrim(TSL.OMENS02))+chr(13)+chr(10)
??? space(int((80 - len(AllTrim(AllTrim(TSL.OMENS03)))) / 2))+AllTrim(AllTrim(TSL.OMENS03))+chr(13)+chr(10)
??? " " + CHR(10)+CHR(13)
??? "  /    /       Ass.............................   RG........................"+chr(13)+chr(10)
??? Replicate("=",80)+chr(13)+chr(10)
??? "_______________             __________________"+CHR(10)+CHR(13)
??? "Ass. Conferente               Ass. Motorista"+CHR(10)+CHR(13)
??? chr(12)

Set Printer To

SELECT PARAMETRO
APRINTERS(cImp)
*SET PRINTER TO NAME cImp(PARAMETRO.IMPORC)

ENDIF