Novos títulos boletos bancários

[jfaguiar]

Olá amigos.

Recebi um comunicado do Bradesco e do Santander sobre os novos títulos dos boletos bancários. Já tentei por duas vezes falar com a Cobrebem sobre o assunto e não obtive nenhuma resposta. Alguém sabe de alguma coisa?

Obrigado

[Luiz Fernando]

Ola jfaguiar, tenho varios cliente que usam cobrança destes dois banco, ate momento ninguem me comunicou nada sobre mudança.

Luiz Fernando

[B@rney]

Também estou tendo o mesmo problema que nosso amigo jfaguiar, pois segundo o depto financeiro da empresa onde trabalho o banco está exigindo o novo layout , conforme circulares nº 3.598 de 06/06/2012 e 3.656 de 02/04/2013 emitidos pelo banco central. Caso se não obtiver nenhuma resposta da cobrebem terei que fazer na unha mesmo. Aproveitando o ensejo alguém tem alguma modelo de emissão de boletos programado?

[aferra]

Bem tem esse projeto que funciona, ainda não incorporei ao meu, porem conheço pessoas que estão usando, então segue o link

http://sourceforge.net/projects/harbourboleto/

http://fivewin.com.br/index.php?/files/file/1105-harbour-boleto/

[Luiz Fernando]

A mudança na verdade é só no layout do impresso, hoje uso a cobrebem somente para geração do código de barra mesmo, pois arquivo remessa faço na mão, e a impressão uso o fastreport, o ultimo boleto que homologuei na caixa tive que fazer estes ajuste, tipo endereço do cedente entre outros detalhe que são coisas bem simples mesmo.

Abraços

Luiz Fernando

[alex2002]

Olá pessoal.

Olha só, está por vir mudanças drásticas ai. Não são coisas simples não.

Só para se ter uma idéia poderemos pagar os boletos mesmo vencidos em qualquer banco. Vai exisitir uma central de processamento de boletos.

Não sei dizer se isso irá afetar a vocês, mas para mim, que os clientes são os próprios bancos, a mudança é grande.

Quanto a empresa citada "Cobre....", eu continuo tendo problemas. A verdade eu já disse aqui e graças a Deus agora tem esta mudança radical que as softwares-houses que usam esta ferramenta terão que trocar ou a empresa citada vai ter que enfim prestar suporte.

[Ladinilson]

Luiz poderias me mandar por favor como faz para gerar aquivo remessa e como mandar para Caixa pois já tenho a rotina de criação dos boletos, pegar retorno e da a baixa no contas a receber direto e só esta me faltando isso.

ladinilson@hotmail.com

fwh 8.12

[Luiz Fernando]

Luiz poderias me mandar por favor como faz para gerar aquivo remessa e como mandar para Caixa pois já tenho a rotina de criação dos boletos, pegar retorno e da a baixa no contas a receber direto e só esta me faltando isso.

ladinilson@hotmail.com

fwh 8.12

Ola Ladinilson, não tenho da caixa ainda, inclusive preciso criar aqui , estou com o layout deles, mais segue do santander, como o layout do banco na mão é so ir preenchendo conforme os campos.

Obs; aqui optei tudo pelo 400 posições

nRegistro:=1
nTotal:=0
oFile1 = TTxtFile():New( cPath1+"BOLETO\REMESSA\"+marqui )
wlin='0'
wlin+='1'
wlin+='REMESSA'
wlin+='01'
wlin+='COBRANÇA'+space(7)
wlin+='35570496646501300208'
wlin+='EMPRESA FRIOS'+space(19)
wlin+='033'
wlin+='SANTANDER'+space(6)
wlin+=strzero(day(date()),2)+strzero(month(date()),2)+RIGHT(STR(YEAR(date()),4),2) //substr(str(year(date()),42),3,2)
wlin+=repl('0',16)
wlin+=space(275)
wlin+='013'
wlin+=strzero(nRegistro,6)+chr(13)+chr(10)
oFile1:PutStr( wlin )
for i=1 to len(aBoleto)
    nVMulta:=0
    oBoleto := oCBX:DocumentosCobranca:Add()
    oBoleto:NossoNumero := aBoleto[i,2]
    oCBX:calcularDadosBoletos()          
    oCBX:GravaArquivoRemessa()
    nNosso:=substr(oBoleto:NossoNumero,6,8)   //);
    wlin='1'     // 01 A 01
    wlin+='02'   // 02 A 03
    wlin+=R_CnpjLienar(aEmpresa[1,1])  // 004 A 017
    wlin+='35570496646501300208'       // 018 A 037
    wlin+=aBoleto[i,4]+space(15)       // 038 A 062
    wlin+=nNosso                       // 063 A 070
    wlin+='000000'                     // 071 A 076
    wlin+=space(1)                     // 077 A 077
    wlin+='0'                          // 078 A 078 
    wlin+='0000'                       // 079 A 082
    wlin+='00'                         // 083 A 084
    wlin+=repl('0',13)                 // 085 A 097
    wlin+=space(4)                     // 098 A 101
    wlin+='000000'                     // 102 A 107
    wlin+='5'                          // 108 A 108
    wlin+='01'                         // 109 A 110
    wlin+=aBoleto[i,4]                 // 111 A 120
    wlin+=strzero(day(aBoleto[i,10]),2)+strzero(month(aBoleto[i,10]),2)+RIGHT(STR(YEAR(aBoleto[i,10]),4),2) //str(year(boleto->vencto),2)
    wlin+=strzero(aBoleto[i,5]*100,13) // 127 A 139
    wlin+='033'                        // 140 A 142
    wlin+='00000'                      // 143 A 147
    wlin+='05'                         // 148 A 149
    wlin+='N'                          // 150 A 150
    wlin+=strzero(day(aBoleto[i,9]),2)+strzero(month(aBoleto[i,9]),2)+RIGHT(STR(YEAR(aBoleto[i,9]),4),2)
    wlin+='00'                         // 157 A 158
    wlin+='00'                         // 159 A 160
    //wlin+=repl('0',13)               // 161 A 173
    wlin+=strzero(nVMulta*100,13)      // 161 A 173
    wlin+='000000'                     
    wlin+=repl('0',13)
    wlin+=repl('0',13)
    wlin+=repl('0',13)
    if len(alltrim(aBoleto[i,20]))<14
        wlin+='02'
    else
        wlin+='01'
    endif
    wlin+=R_CnpjLienar(aBoleto[i,20])
    wlin+=aBoleto[i,8]  //+space(5)
    wlin+=aBoleto[i,12] //+space(5)
    wlin+=left(aBoleto[i,15],12)
    wlin+=substr(aBoleto[i,18],1,5)
    wlin+=substr(aBoleto[i,18],7,3)
    wlin+=substr(aBoleto[i,16],1,15)
    wlin+=aBoleto[i,17]
    wlin+=space(30)
    wlin+=space(1)
    wlin+='I'  //space(1)
    wlin+='84'
    wlin+=space(6)
    wlin+='00'
    wlin+=space(1)
    nRegistro++
    wlin+=strzero(nRegistro,6)+chr(13)+chr(10)
    oFile1:PutStr( wlin )
    nTotal+=aBoleto[i,5]
next
nRegistro++
wlin='9'
wlin+=strzero(nRegistro,6)
wlin+=strzero(nTotal*100,13)
wlin+=repl('0',374)
wlin+=strzero(nRegistro,6)+chr(13)+chr(10)
oFile1:PutStr( wlin )
oFile1:End()

Abs

Luiz Fernando