IF MESSAGEBOX("CONFIRMA A IMPRESSAO",292,"AVISO") = 6
*RETURN .F.  

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

cQEsp = TSL.QECUP

cTpOrc = "COTACAO"

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

*cCodOr = &cTabela..SEQ

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

nSelect = "SELECT Tslor02.*,Tslc003.CODBAR FROM Tslor02 LEFT JOIN Tslc003 ON Tslor02.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "WHERE ?cTabImp = CUPOM AND EXCLUI <> 'S' ORDER BY Tslor02.SEQ "
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))

cTabela = "TSLOR01"
cTabela2 = "TSLOR02"

SET PRINTER TO NAME "bematech"

??? CHR(18)

*??? 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('BEDULLI MATERIAIS PARA CONSTRUCAO')))) / 2))+AllTrim(AllTrim('BEDULLI MATERIAIS PARA CONSTRUCAO')) + 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) + AllTrim("Fone: " + AllTrim(TSL.FONE)) + " - " + "Cel: (15) 99656-8253 "+ 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) + "COT.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1)+ALLTRIM(cTpOrc)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "CODIGO        DESCRICAO" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "    Qtde  X      Unit.R$ Desc  Valor R$  " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)
   
   ??? REPLICATE(" ",cQEsp) + PADL(ALLTRIM(&cTabela2..CODBAR),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,23) + CHR(10)+CHR(13)
   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,24,40)))
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,24,40) + CHR(10)+CHR(13)
   ENDIF
   IF &cTabela2..DESCONTO = 0
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + "     " + " " + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + " X  " +;
      TRANSFORM(&cTabela2..UNIT,"999,999.99") + "  " + TRANSFORM(&cTabela2..DESCONTO,"99.99") + "%" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + CHR(10)+CHR(13)
   ENDIF
   
   SKIP IN &cTabela2
   LOOP
   
ENDDO

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Sub Total..: " + TRANSFORM(&cTabela..BRUTO,"9,999,999.99") + CHR(10)+CHR(13)
IF &cTabela..DESCONTO > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
IF &cTabela..ACRESCIM > 0
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..ACRESCIM,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Total Geral: " + TRANSFORM(&cTabela..LIQUIDO,"9,999,999.99") + 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: " + 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
*IF TSL.RECORC = "S" .And. cImpRec = "S" && Se Emite Contas a Receber no Oramento
*   ??? "Vencimentos..." + chr(13)+chr(10)
*   select &cTabela3
*   Go Top
*   Do While ! Eof(cTabela3)
*      ??? "Vencto.: " + dToc(&cTabela3..VENCTO) + "  Valor..: " + TRANSFORM(&cTabela3..VALOR,"999,999.99")+CHR(13)+CHR(10)
*      Skip In &cTabela3
*      Loop
*   ENDDO
*ENDIF
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? chr(27) + chr(109)
*??? " " + 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 NAME "bematech"

ENDIF