Boleto na Laser

[BHS]

Pessoal boa tarde

Para imprimir boletos bancários em uma impressora laser, o que vc estão usando ?
o PRWin do Wagner ou um fonteboleto.zip que estava circulando a um tempo? Ou alguma outra sugestão ?


Obrigado

BHS

[gvc]

Existe um fonte para imprimir em impressora laser HP. Já tem algum tempo.
O PRWin eu nunca usei, mas ouvi/li que é muito bom.

Como eu tive que atender um caso específico do usuário, criei a impressão em FW. Se vc usa o Fivewin, esta no forum do Fivewin para download.

[sygecom]

Se for fazer algo via Harbour\xHarbour tem o Harbourboleto tmb. é um projeto livre.
http://sourceforge.net/projects/harbourboleto/

[rochinha]

Amiguinhos

No meu caso optei por integrar em meu sistema meios de trabalhar com softwares de terceiros, exemplo:

BoletoPRO e CobreBEM

- Neste caso fica mais facil a integração.
- Trabalham de forma invisivel.
- Tem todas as carteiras e bancos do Brasil.
- O custo fica pr conta do cliente.

Outras soluções existentes podem suprir suas necessidades caso elas estejam preparadas para trabalhar com o banco que voce necessita.

Como tido antes, voce pode optar por usar o PRWin e o projeto HarBoleto, desde que eles sejam usados para uma finalidade simples, somente para suprir a necessidade do momento.

O PRWin é fácil de trabalhar, pois fica na bandeja, espiando a existencia do script que pode ser criado como sua aplicação. Basta verificar se atende os bancos que voce precisa.

Mas se necessitar de algo totalmente completo voce deverá usar outra solução... e paga.

[BHS]

bom dia amigos

Eu preciso na verdade é somente imprimir o boleto e lógico criar o campo nosso número, porem este tem no manual do Bradesco, entre outros. No meu sistema ja gero arquivo de remessa, puxo o arquivo de retorno. Só estou querendo mudar pra não usar mais os boletos pré-impresso do banco.

Rochinha, esse boletoPRO e Cobrebem, como é o funcionamento deles? gerar arq texto pra eles importarem ou de outra forma ?

Agradeço desde já

BHS

[rochinha]

Amiguinho

Com o BoletoPRO voce passa via command line o nome do arquivo csv(texto separado por e os parametros para impressao, envio via email, etc.

Veja estes trechos de meu modulo financeiro e tire suas duvidas:

Código: Selecionar todos

...
Function IntegraBoletoPro
   BolCMD := [ -M /P /QE ] + ;
             [ "/F:Boletos.csv" ]
   cMacro := [BoletoPRO\boletoPRO.exe ] + BolCMD
   MsgRun( "Gerando Impressao.." )
   //memowrit( "boletos.bat", cMacro )
   WinExec( cMacro, 7 )
   if file( "boletos.log" )
      MapiLOG := memoread( "boletos.log" )
      if "ERROR" $ Upper(MapiLOG)
         MsgStop( MapiLOG )
      endif
      fErase( "boletos.log" )
   endif
   return .t.
...

Código: Selecionar todos

...
FUNCTION ImprimeBDOC( dDataProc    ,;
                      dVencimento  ,;
                      nValor       ,;
                      cNossoNumero ,;
                      dDataDoc     ,;
                      cEspecie     ,;
                      cDocumento   ,;
                      cAceite      ,;
                      cInstrucao   ,;
                      cSacado      ,;
                      cCNPJ        ,;
                      cEndereco    ,;
                      nNumero      ,;
                      cComplemento ,;
                      cBairro      ,;
                      cCidade      ,;
                      cEstado      ,;
                      cCEP         ,;
                      nParcela     ,;
                      nParcelas    ,;
                      cEmail, lEmail )
   LOCAL nHandle, nLenght, cHeader
   DEFAULT dDataProc    := date()                ,;
           dVencimento  := date() + 30           ,;
           nValor       := 49.25                 ,; 
           cNossoNumero := ""                    ,;
           dDataDoc     := date()                ,;
           cEspecie     := "RC"                  ,;
           cDocumento   := "DOC_A_123"           ,;
           cAceite      := ""                    ,;
           cInstrucao   := "NAO RECEBER APOS O VENCIMENTO" ,;
           cSacado      := "JOSE CARLO DA ROCHA" ,;
           cCNPJ        := "123.456.789-00"      ,;
           cEndereco    := "R DR MARIO MAURO RAMOS MATOSO" ,;
           nNumero      := 50                    ,;
           cComplemento := "CASA 2"              ,;
           cBairro      := "PIRITUBA"            ,;
           cCidade      := "SAO PAULO"           ,;
           cEstado      := "SP"                  ,;
           cCEP         := "05171-340"           ,;
           nParcela     := 0                     ,;
           nParcelas    := 0                     ,;
           cEmail       := "irochinha@itelefonica.com.br" 
   cPathBLPRO := VerifyINI( "BOLETOPRO", "DIRETORIO", cPath+"\BoletoPRO" , cPath+"nfw.ini", .f. )
   if file( cPathBLPRO+"\BoletoPRO.exe" )
      cHeader := "Data Processamento;Vencimento;Valor Documento;Nosso Número;Data Documento;Espécie Documento;Número Documento;Aceite;Instruções;Sacado;CNPJ;Rua;Número;Complemento;Bairro;Cidade;Estado;CEP;Parcela;NParcelas;E-Mail"+chr(13)+chr(10)
      cHeader += dtoc( dDataProc )    + ";"
      cHeader += dtoc( dVencimento )  + ";"
      cHeader += transf( nValor, "@e 999999.99" ) + ";"
      cHeader += cNossoNumero         + ";"
      cHeader += dtoc( dDataDoc )     + ";"
      cHeader += cEspecie             + ";"
      cHeader += cDocumento           + ";"
      cHeader += cAceite              + ";"
      cHeader += cInstrucao           + ";"
      cHeader += cSacado              + ";"
      cHeader += cCNPJ                + ";"
      cHeader += cEndereco            + ";"
      cHeader += str( nNumero, 4 )    + ";"
      cHeader += cComplemento         + ";"
      cHeader += cBairro              + ";"
      cHeader += cCidade              + ";"
      cHeader += cEstado              + ";"
      cHeader += cCEP                 + ";"
      cHeader += strzero(nParcela,3)  + ";"
      cHeader += strzero(nParcelas,3) + ";"
      cHeader += cEmail
      //                                                  
      nHandle := fCreate(cPathBLPRO+"\boletos.csv")
      fWrite( nHandle, cHeader, LEN(cHeader) )
      fClose( nHandle )
      if lEmail // MsgYesNo("Voce deseja enviar este boleto por email?") // empty(cEmail)
         WaitRun( cPathBLPRO+[\BoletoPRO.exe -M /E /QM /QE "/F:]+cPathBLPRO+[\boletos.csv"] ) 
      else
         WaitRun( cPathBLPRO+[\BoletoPRO.exe -M /P /QM /QE "/F:]+cPathBLPRO+[\boletos.csv"] ) 
      endif
   else
      MsgStop( "BoletoPRO nao instalado." )
   endif
   RETURN .T.
...

[BHS]

oi Rochinha

muito obrigado,

vi um tópico anterior sobre vc falando do BoletoPro e entrei no site.
Achei muito bom ele e baixei pra fazer alguns testes aqui, com certeza seu exemplo ira ajudar e muito, mais uma vez obrigado.

PS: para o pessoal que queira acessar o site:
http://www.neointerativa.com.br/

BHS