IF MESSAGEBOX("Confirma Impresso   ",52,"Impresso") = 7
RETURN .F.
ENDIF

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

cQEsp = TSL.QECUP
cTpOrc = 'ORCAMENTO'

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

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

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

GERACURSOR("TSLV021_1","TSLV021")

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

cTabela  = "TSLV020"
cTabela2 = "TSLV021"

??? 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) + "ORC.: " + PADL(ALLTRIM(STR(&cTabela..SEQ,6)),6,"0") + REPLICATE(" ",cVal1)+ chr(27)+chr(71)+ALLTRIM(cTpOrc)+CHR(27)+CHR(72)+ 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(STR(val(&cTabela2..CODBAR),13)),13,"0") + " " + SUBSTR(&cTabela2..DESCRICAO,1,26) + CHR(10)+CHR(13)
*   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCRICAO,27,40)))
*      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,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 EMPTY(&cTabela..ACRESCIM)
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
ELSE
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..DESCONTO,"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)
??? " " + 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..NOME,1,24) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Pgto: " + ALLTRIM(&cTabela..DESCRICAO)+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

nSelect = "SELECT * FROM Tsm003 WHERE ?cTabImp = SEQCUP AND FLAG = 'O' AND RECEST= 0 AND RECBAIXA <> 'S' "
TSEXEC("T",nSelect,"TMP_FIN")

cTabela3 = "TMP_FIN"

IF TSL.RECORC = "S" && Se Emite Contas a Receber no Oramento
   ??? "Vencimentos..." + chr(13)+chr(10)
   select &cTabela3
   Go Top
   Do While ! Eof(cTabela3)
      ??? "Vencto.: " + dToc(&cTabela3..RECVENCI) + "  Valor..: " + TRANSFORM(&cTabela3..RECVALOR,"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(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)

cCodOrc = &cTabela..SEQ
cCodFor = &cTabela..CODFORM
TSEXEC("T","SELECT * FROM Tslc005 WHERE CODIGO = ?cCodFor ","TMP_FOR")

IF TMP_FOR.GERARREL = 1 .And. PARAMETRO.NGERARREL = 0
      
      ??? SPACE(16) + "NOTA PROMISSORIA" + SPACE(16) + chr(13) + chr(10)
      ??? SPACE(9) + "REPUBLICA FEDERATIVA DO BRASIL" + SPACE(9) + chr(13) + chr(10)
      ??? "PAGAREI POR ESTA NOTA PROMISSORIA DO DEVIDO VCTO" + chr(13) + chr(10)
      ??? SUBSTR("O VALOR DEVIDO A " + ALLTRIM(cNomeEmp) + SPACE(32),1,48)  + chr(13) + chr(10)
      IF TSL.RECCUP = "S" && Se Emite Contas a Receber no Cupom
         nSelect = "SELECT * FROM Tsm003 WHERE ?cCodFor = SEQCUP AND FLAG = 'C' AND RECEST = 0 "
         TSEXEC("T",nSelect,"TMP_DPL")
         
         SELECT SUM(RECVALOR) AS RECVALOR FROM TMP_DPL INTO CURSOR TMP_DPL2
         
         SELECT TMP_DPL
         GO BOTTOM
            
            ??? SUBSTR("EMISSAO: " + SUBSTR(DTOC(TMP_DPL.RECEMISS),1,6) + ;
            SUBSTR(DTOC(TMP_DPL.RECEMISS),9,2) + ;
            "    VCTO: " + SUBSTR(DTOC(TMP_DPL.RECVENCI),1,6) + SUBSTR(DTOC(TMP_DPL.RECVENCI),9,2) + SPACE(48),1,48)  + chr(13) + chr(10)
            ??? SUBSTR("VALOR:" + ;
            TRANSFORM(TMP_DPL2.RECVALOR,"9,999.99")+SPACE(48),1,48) + chr(13) + chr(10)

      ELSE
         nselect = "SELECT * FROM Tslc005 WHERE ?cCodFor = CODIGO "
         TSEXEC("T",nSelect,"TMP_FF")
         SELECT TMP_FF
         cVencto = DATE() + TMP_FF.NDIA1
         ??? SUBSTR("EMISSAO: " + SUBSTR(DTOC(DATE()),1,6) + SUBSTR(DTOC(DATE()),9,2) + ;
         " VCTO: " + SUBSTR(DTOC(cVencto),1,6) + SUBSTR(DTOC(cVencto),9,2) + "- VALOR:" + ;
         TRANSFORM(&cTabela..LIQUIDO,"9,999.99")+SPACE(48),1,48) + chr(13) + chr(10)
      ENDIF
      
      ??? SUBSTR("PRACA DE PAGAMENTO: " + ALLTRIM(TSL.CIDADE) + SPACE(48),1,48) + chr(13) + chr(10)
      ??? SUBSTR("ORC N. " + PADL(ALLTRIM(str(&cTabela..seq,6)),6,"0") + SPACE(48),1,48) + chr(13) + chr(10)
      ??? SPACE(48) + chr(13) + chr(10)
      
      IF TMP_FOR.ITREL = 1
         
         ??? "            COPIA DOS ITENS DO CUPOM            " + chr(13) + chr(10)
         ??? "CODIGO     DESCRICAO                          UN" + chr(13) + chr(10)
         ??? "      QTDE X     UNIT. R$               TOTAL R$" + chr(13) + chr(10)
         ??? REPLICATE("-",48) + chr(13) + chr(10)
         
         SELECT &cTabela2
         GO TOP IN &cTabela2
         DO WHILE ! EOF(cTabela2)
            ??? &cTabela2..CODBAR + " " + SUBSTR(&cTabela2..DESCRICAO,1,28) + " " + ALLTRIM(&cTabela2..UNIDADE) + chr(13) + chr(10)
            ??? TRANSFORM(&cTabela2..QUANT,"999999.99") + " " + &cTabela2..ST + " " + TRANSFORM(&cTabela2..UNIT,"999,999.99") + SPACE(13) + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + chr(13) + chr(10)
            IF &cTabela2..EXCLUI = 'S'
               ??? "Cancelado Item " + &cTabela2..CODBAR + " -" + TRANSFORM(&cTabela2..TOTAL,"999,999.99") + chr(13) + chr(10)
            ENDIF
            
            SKIP IN &cTabela2
            LOOP
            
         ENDDO
         
         ??? REPLICATE("-",48) + chr(13) + chr(10)
         
*         ??? 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 EMPTY(&cTabela..ACRESCIM)
         ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Desconto...: " + TRANSFORM(&cTabela..DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
      ELSE
         ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",15) + "Acrescimo..: " + TRANSFORM(&cTabela..DESCONTO,"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)
         
      ENDIF
      
      ??? chr(13) + chr(10)
      ??? chr(13) + chr(10)
      ??? "ASSINATURA:_____________________________________" + chr(13) + chr(10)
      ??? 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..NOME,1,24) + CHR(10)+CHR(13)

ENDIF

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

SET PRINTER TO
