Erro no Retorno Caixa Economica Federal SICOB

[Pedro_Manoel]

codigo do ACBRBoleto.

" rCNPJCPF := trim( Copy(ARetorno[1],19,15)) ;

rCNPJCPF := RightStr(rCNPJCPF,14) ;

with ACBrBanco.ACBrBoleto do

begin

if (not LeCedenteRetorno) and (rCNPJCPF <> OnlyNumber(Cedente.CNPJCPF)) then

raise Exception.Create(ACBrStr('CNPJ\CPF do arquivo inválido')); "

quando ele verifica a variavel rCNPJCPF com o que foi passado de parametro da erro pq a variavel é preenchida com as 14 posições do retorno que preenche com 0 a esquerda caso for um cpf numca vai ser validado.

if lenght(Cedente.CNPJCPF)>11 then begin

rCNPJCPF := trim( Copy(ARetorno[1],19,15)) ;

rCNPJCPF := RightStr(rCNPJCPF,14) ;

end else begin

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

rCNPJCPF := RightStr(rCNPJCPF,11) ;

end;

with ACBrBanco.ACBrBoleto do

begin

if (not LeCedenteRetorno) and (rCNPJCPF <> OnlyNumber(Cedente.CNPJCPF)) then

raise Exception.Create(ACBrStr('CNPJ\CPF do arquivo inválido'));

[Juliana Tamizou]

Bom dia.

Pelo que entendi o problema está na comparação do CPF/CNPJ do arquivo retorno com o componente, é isso mesmo?

Por favor anexe a unit com as sua correções ao fórum.

Ao efetuar alterações procure seguir o padrão do projeto, quanto a identação.

Por exemplo, evite usar:

if A > B then begin",

ao invés disso use:

"if A > B then

begin

end;

"

Att.

[Pedro_Manoel]

Bom dia!

segue as correções SICOB e Economica, em ambos foram feitas as verificações de pessoa fisica ou juridica

eu estou com um problema meio grave eu uso para geração do boleto o quiq rep. e o cod de barras não esta lendo...

pelo banco mas a linha digitavel esta correta.. caso alguem tenha passado por isso e saiba como resolver me avise!!

sem mais.

ACBrCaixaEconomica.pas

ACBrCaixaEconomicaSICOB.pas

[Juliana Tamizou]

Boa tarde Pedro.

As correções do Sicob foram todas aplicadas, porém algumas alterações para o SIGCB não foram implementadas pelos seguintes motivos:

Mudança do tamanho do campo Agência - Conforme pode ser observado nos manuais do banco, este campo possui 5 caracteres.

Retorno CNAB240

Modificação para capturar o ano com 4 dígitos - da forma atual está correto, qual seria o ganho efetuando esta mudança?

Verificação para saber se a carteira é registrada na captura do vencimento - a leitura deste campo é feita utilizando um StringtoDateTimeDef, não sendo necessário o if anterior.

Att.

[Marcos Aurélio de Souza]

Bom dia!

estou tendo problemas na leitura do arquivo de retorno, está dando a seguinte mensagem " econvert error with message '00/00/0000' is not valid data and time'" resolvi colocar os dados no componente ACBrBoleto manualmente para ver se dava outro erro mas persiste, troquei o layout para c400 e não deu. vou anexar o retorno.

 

dentro do ACBrUtil.pas aponta aqui:

{-----------------------------------------------------------------------------
  Converte uma <DateTimeString> para TDateTime, semelhante ao StrToDateTimeDef,
  mas verifica se o seprador da Data é compatível com o S.O., efetuando a
  conversão se necessário. Se não for possivel converter, retorna <DefaultValue>
 ---------------------------------------------------------------------------- }
function StringToDateTimeDef(const DateTimeString : String ;
   const DefaultValue : TDateTime ; const Format : String) : TDateTime ;
begin
  try
     Result := StringToDateTime( DateTimeString, Format ) ;
  except
     Result := DefaultValue ;
  end ;
end ;
 

Obrigado

ret1100.ret

[Juliana Tamizou]

3.1 - Não faça flooding - Inundar o fórum com posts repetidos, com a mesma dúvida ou as mesmas palavras é chamado de flooding. Isso é proibido. Apenas um post feito no lugar certo é suficiente. Pesquise antes de postar, talvez sua dúvida já está respondida em outro post. Favor leia as regras do fórum.

[Marcos Aurélio de Souza]

desculpe, fiz pesquisa e não encontrei nada relacionado a minha duvida, e também havia ficado em duvida sobre onde postar, e acabei cometendo o tal flooding.

 

obrigado