Santander - Cnab2340 Homologado

[Jéter Rabelo Ferreira]

Bom dia,

 

Segue anexo a unit do banco Santander com o CNAB240 homologado.

 

Atenciosamente.

ACBrBancoSantander.pas

[Rafael Dias]

Contribuição enviada ao svn.

[Jéter Rabelo Ferreira]

Bom dia.

 

Segue anexo a unit ACBrBancoSantander.pas com algumas correções na leitura do arquivo retorno CNAB240:

 

- Erro ao validar CNPJ do cedente

- Leitura do Bloco U

- Valor do Documento

 

Favor disponiblizarem no SVN.

 

Atenciosamente.

 

ACBrBancoSantander.pas

[Juliomar Marchetti]

Estava olhando as diferenças Jéter !

você removeu o valor do documento do segmento T e adicionou no U é isso mesmo?

 

Bom dia.

 

Segue anexo a unit ACBrBancoSantander.pas com algumas correções na leitura do arquivo retorno CNAB240:

 

- Erro ao validar CNPJ do cedente

- Leitura do Bloco U

- Valor do Documento

 

Favor disponiblizarem no SVN.

 

Atenciosamente.

[Jéter Rabelo Ferreira]

Boa Tarde Juliomar.

 

Sim, é isso mesmo.

 

Acontece situações do boleto não ter registro, aí no bloco T o valor fica zero. E no bloco U vem o valor da liquidação.

 

Atenciosamente.

[Juliana Tamizou]

Boa tarde Jeter.

 

Quando o boleto é registrado como ficam as informações no bloco U?

 

 

Att.

[rluispaulo7]

Boa tarde, pessoal!

 

Jéter, parabéns pela excelente iniciativa. Me ajudou muito!

Obrigado por compartilhar com todos. Só quem faz sabe o trabalho que dá.

 

Até hoje utilizei o componente RLBoleto somente para tratamento do retorno CNAB240 do Santander com esse CNAB. Todos os outros bancos utilizo ACBr.

 

 

Aproveitei para adicionar algumas linhas na unit ACBBancoSantander, na função LerRetorno240:

 

//Adicionei na linha 834

Linha 834:    rCodigoCedente := Copy(ARetorno[0], 55, 7);

 

//Antiga linha 837

Linha 838:  rConta         := padR(OnlyNumber(Copy(ARetorno[0], 38, 9)), fpTamanhoConta, '0');

 

//Adicionei na linha 852

Linha 852:  Cedente.CodigoCedente := rCodigoCedente;

 

//Novas linhas para setar valores de atributos do componente

Linha 854:    Cedente.Agencia := rAgencia;

Linha 855:    Cedente.AgenciaDigito := rAgenciaDigito;

Linha 856:    Cedente.Conta := rConta;

Linha 857:    Cedente.ContaDigito := rContaDigito;

 

Caros moderadores, fiz testes de tratamento de retorno em 2 contas bancárias no Santander com CNAB240, tudo funcionando. Só não fiz testes com geração de remessa CNAB240.

 

Att.

 

Luis Paulo Rodrigues

ACBrBancoSantander.pas

[Juliana Tamizou]

Bom dia Luiz Paulo.

 

Suas alterações foram baseadas em algum novo manual? Vi que vc alterou as posições de leitura de alguns campos...favor anexar o manual utilizado aqui.

 

 

Att.

[rluispaulo7]

Bom dia, Juliana.

 

Segui o manual que a gerente da agência, onde tenho o convênio, me passou.

Trabalho com o Santander para meus recebimentos, tanto conta jurídica quanto física, por isto consigo fazer testes com facilidade.

Só não ouso alterar as funções relacionadas à geração de remessa, pois não utilizo.

Mas, tive que fazer mais uma modificação a partir da linha 841, devido ao tratamento do convênio da minha conta física, onde no arquivo há "0000" antes do meu CPF:

 

  if ACBrBanco.ACBrBoleto.Cedente.TipoInscricao = pFisica then

  begin

    rCNPJCPF := trim( Copy(ARetorno[0],22,11));

    rCNPJCPF := RightStr(rCNPJCPF,11) ;

  end

  else

  begin

    rCNPJCPF := trim( Copy(ARetorno[0],18,15)) ;

    rCNPJCPF := RightStr(rCNPJCPF,14) ;

  end;

 

Em anexo o manual e a alteração que fiz, com base na unit ACBrCaixaEconomicaSICOB, que também utilizo para recebimento.

 

Obrigado!

 

ACBrBancoSantander.pas

Layout CNAB 240 posições padrão Santander Multibanco Agosto 2013 v 2.01.pdf

[Juliana Tamizou]

Bom dia.

 

Alterações disponíveis no svn.

 

@Jeter

Com relação ao valor recebido mantive a leitura no segmento T também e ao realizar a leitura no segmento U, é feito um max() entre o valor atual e o novo.

 

Att.

[Sadao]

Bom dia,

 

Fiz algumas alterações nas functions TipoOcorrenciaToDescricao() e TipoOcorrenciaToCod(), de acordo com o manual em anexo, pois não coincidiam com o Tipo de Ocorrência retornado por CodOcorrenciaToTipo().

ACBrBancoSantander.pas

201308221336142.pdf

[Jéter Rabelo Ferreira]

Juliana, boa noite.

 

Desculpe não ter respondido antes, mas estou com um projeto meio grande e não consegui ler as mensagens.

 

Agora, estou com um problema com essa unit mesmo.

 

No bloco (P) - Remessa, tem um campo que informa (059) se o boleto é cobrança simples ou registrada:

 

Nota 6: FORMA DE CADASTRAMENTO
'1' = Cobrança Registrada (Rápida e Eletrônica com Registro)
'2' = Cobrança sem Registro

 

Quando eu criei o procedimento, coloquei o número 2 como literal para esse campo (059), mas acontece que meu cliente vai ter cobrança registrada e não tem um enumerado no ACBrTitulo para que eu possa identificar o mesmo quando for Cobrança Sem Registro ou com Registro.

 

Não posso utilizar o tipo de cobrança, pois o código 1 do mesmo serve tanto para simples com registro e sem registro.

 

Portanto, não consegui achar uma solução.

 

Será que você teria alguma solução para contonar o problema ou teriamos que criar um enumerado para controlar essa opção?

Aguardo retorno.

Atenciosamente.

[Juliana Tamizou]

Bom dia Jeter.

 

Existe algumas definição de carteiras que são registradas e carteiras que não são? Se existir podemos nos basear por ai.

 

Att.

[Jéter Rabelo Ferreira]

Bom dia Juliana,

 

Ao analisar o tipo de cobrança, que é o campo 058, temos as seguintes opçoes:

 

Nota 5: TIPO DE COBRANÇA
REMESSA:
'1' = Cobrança Simples (Sem Registro e Eletrônica com Registro)
'3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)
„4‟ = Cobrança Descontada (Eletrônica com Registro)
'5' = Cobrança Simples (Rápida com Registro)
„6‟ = Cobrança Caucionada (Rápida com Registro)
„8‟ = Cobrança Cessão (Eletrônica com Registro)

 

Se você analisar, o tipo 1 serve tanto para título com registro como para sem registro.

 

Portanto, fica dificil diferenciar se não for criado uma property para isso. Bom, eu não consegui achar outra alternativa.

 

Aguardo retorno.

Atenciosamente,

[Jéter Rabelo Ferreira]

Juliana, boa tarde.

 

Fiz as alterações conforme relatado acima.

Criei um enumerado chamado TACBrTipoCarteira = (tctSimples, tctRegistrada);

 

Criei uma property TACBrCedente.TipoCarteira

 

E, com base nessa property, o arquivo de remessa de Santander está gerando o arquivo corretamente.

 

OBS: Efetuei um update antes de alterar o ACBrBoleto.

 

Atenciosamente.

ACBrBancoSantander.pas

ACBrBoleto.pas