&& BOLETO 033 - SANTANDER BANESPA &&

SYS(1037) && INDICAR IMPRESSORA

??? chr(27)+"2"
??? CHR(15)
*   ??? chr(18)
   
nSelect = "SELECT * FROM Tsm003 WHERE ?cCodSeqBol = RECSEQ "
TSEXEC("T",nSelect,"TMP_BOLETO")

Select TMP_BOLETO
Go TOP IN TMP_BOLETO
Do While !eof("TMP_BOLETO")

   cCodCli = TMP_BOLETO.RECCLI

   nSelect = "SELECT * FROM Tslc001 WHERE ?cCodCli = CLICOD "
   TSEXEC("T",nSelect,"TSLC001")
      
   nLin = 0
   
   ??? ""+chr(13)+chr(10)
   ??? ""+chr(13)+chr(10)
   ??? "ATE O VENCIMENTO PAGAVEL EM QUALQUER AG. BANCARIA  "+ REPLICATE(" ",40)+dtoc(TMP_BOLETO.RECVENCI)+chr(13)+chr(10)
   ??? ""+chr(13)+chr(10)
   ??? ""+chr(13)+chr(10)
   ??? chr(15)
   ??? +dtoc(TMP_BOLETO.RECEMISS)+chr(13)+chr(10)
   ??? space(95)+transform(TMP_BOLETO.RECVALOR,"999,999.99")+chr(13)+chr(10)
   ??? ""+chr(13)+chr(10)
   ??? ""+chr(13)+chr(10)
   ??? TSBOLETO.INSTR1 + CHR(10)+CHR(13)
   ??? TSBOLETO.INSTR2 + CHR(10)+CHR(13)
   ??? TSBOLETO.INSTR3 + CHR(10)+CHR(13)
   ??? ""+chr(13)+chr(10)
   ??? ""+chr(13)+chr(10)
   ??? ""+chr(13)+chr(10)
   ??? ""+chr(13)+chr(10)
   If ALLTRIM(TSLC001.PESSOA) == 'JURDICA'
      ??? PADL(ALLTRIM(STR(TSLC001.clicod,6)),6,"0") + " - "+TSLC001.clinom+chr(13)+chr(10)
      ??? "C N P J: "+SUBSTR(TSLC001.clicgc,1,2) + "." +;
      SUBSTR(TSLC001.CLICGC,3,3) + "." +;
      SUBSTR(TSLC001.CLICGC,6,3) + "/" +;
      SUBSTR(TSLC001.CLICGC,9,4) + "-" +;
      SUBSTR(TSLC001.CLICGC,13,2)+chr(13)+chr(10)                  
   Else
      ??? PADL(ALLTRIM(STR(TSLC001.clicod,6)),6,"0") + " - "+TSLC001.clinom+chr(13)+chr(10)                  
      ??? "C P F  : "+SUBSTR(TSLC001.clicpf,1,3) + "." +;
      SUBSTR(TSLC001.CLICPF,4,3) + "." +;
      SUBSTR(TSLC001.CLICPF,7,3) + "-" +;
      SUBSTR(TSLC001.CLICPF,10,2)+chr(13)+chr(10)                              
   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)
   
   SKIP IN TMP_BOLETO
   LOOP
Enddo

*eject
set printer to