??? "Cliente: " + ALLTRIM(cNomClie) + chr(13) + chr(10)
??? "Atendente: " + ALLTRIM(cNomVene) + chr(13) + chr(10)
??? "Comprador: " + ALLTRIM(cCompe) + chr(13) + chr(10)
??? ALLTRIM(cObse) + chr(13) + chr(10)
??? ALLTRIM(cObs2e) + chr(13) + chr(10)
??? REPLICATE("*",40) + chr(13) + chr(10)
??? chr(13)+chr(10)
??? chr(13)+chr(10)
??? chr(13)+chr(10)
??? chr(13)+chr(10)
??? chr(13)+chr(10)

SELECT * FROM TSCOMP4 WHERE PRAZO = 1 INTO CURSOR TMP
SELECT TMP
IF RECCOUNT() > 0
   ??? chr(27)+chr(109)
   
   ??? 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)
   
   ??? SUBSTR("EMISSAO: " + SUBSTR(DTOC(DATE()),1,6) + ;
   SUBSTR(DTOC(DATE()),9,2) + ;
   "    VCTO: " + SUBSTR(DTOC(cVencto),1,6) + SUBSTR(DTOC(cVencto),9,2) + SPACE(48),1,48) + CHR(13) + CHR(10)
   ??? SUBSTR("VALOR:" + ;
   TRANSFORM(TSCOMP4.VALOR,"9,999.99")+SPACE(48),1,48) + CHR(13) + CHR(10)
      
   ??? SUBSTR("PRACA DE PAGAMENTO: " + ALLTRIM(TSL.CIDADE) + SPACE(48),1,48) + CHR(13) + CHR(10)
   ??? SUBSTR("CUPOM N. " + cCodConta + SPACE(48),1,48) + CHR(13) + CHR(10)
   ??? SPACE(48) + CHR(13) + CHR(10)
   
   IF ! USED("TSL")
      TSEXEC("T","SELECT * FROM Tsl ","TSL")
   ENDIF
   
   IF TSL.ITENSRAP = 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 TSCOMP2
      GO TOP IN TSCOMP2
      DO WHILE ! EOF("TSCOMP2")
         ??? SUBSTR(TSCOMP2.CODBAR,4,13) + " " + SUBSTR(TSCOMP2.DESCRICAO,1,30) + " " + TSCOMP2.UN + CHR(13) + CHR(10)
         ??? TRANSFORM(TSCOMP2.QTD,"999999.99") + "  " + TSCOMP2.ST + " " + TRANSFORM(TSCOMP2.UNITARIO,"999,999.99") + SPACE(13) + TRANSFORM(TSCOMP2.TOTAL,"999,999.99") + CHR(13) + CHR(10)
         IF TSCOMP2.EXCLUI = 'S'
            ??? "Cancelado Item " + SUBSTR(TSCOMP2.CODBAR,4,13) + " -" + TRANSFORM(TSCOMP2.TOTAL,"999,999.99") + CHR(13) + CHR(10)
         ENDIF
         
         SKIP IN TSCOMP2
         LOOP
         
      ENDDO
         
   ENDIF
      
   ??? REPLICATE("-",48) + CHR(13) + CHR(10)
      
   ??? SPACE(25) + "Total Geral: " + TRANSFORM(_Screen.ActiveForm.subtotal.Value,"999,999.99") + CHR(13) + CHR(10)
      
   ??? SPACE(96) + "ASSINATURA:_____________________________________" + CHR(13) + CHR(10)
   TSEXEC("T","SELECT CLINOM,PESSOA,CLICPF,CLICGC,CLIEND FROM Tslc001 WHERE ?cCodClie = CLICOD ","TMP_CLIE")
   ??? SUBSTR("EMITENTE: " + ALLTRIM(TMP_CLIE.CLINOM) + SPACE(48),1,48) + CHR(13) + CHR(10)
   IF TMP_CLIE.PESSOA = 'JURDICA'
      ??? SUBSTR("CNPJ/CPF: " + MCPF(TMP_CLIE.CLICGC) + SPACE(48),1,48) + CHR(13) + CHR(10)
   ELSE
      ??? SUBSTR("CNPJ/CPF: " + MCPF(TMP_CLIE.CLICPF) + SPACE(48),1,48) + CHR(13) + CHR(10)
   ENDIF
   ??? SUBSTR("ENDERECO: " + ALLTRIM(TMP_CLIE.CLIEND) + SPACE(48),1,48) + CHR(13) + CHR(10)
   ??? SUBSTR(("Comp: " + cCompe + SPACE(50)),1,48) + CHR(13) + CHR(10)

ENDIF

*??? chr(13)+chr(10)
*??? chr(13)+chr(10)
??? chr(13)+chr(10)
??? chr(13)+chr(10)
??? chr(13)+chr(10)

??? chr(27)+chr(109)
??? chr(27)+chr(112)

SET PRINTER TO
