Pesquisar na Comunidade

Os códigos de retorno do Banco do Nordeste não batem com o manual. Tanto que o banco fez várias baixas automáticas no meu cliente (código 15) e o ACBr entendeu como "Liquidação em Cartório". Baixa automática é como a baixa simples, a diferença é que a baixa simples é quando o cliente manda baixar, a baixa automática é quando o banco manda baixar pois o prazo do boleto para registro no banco está expirado por exemplo. Mas não tem nada a ver com liquidação em cartório e liquidação em cartório dá a entender que foi quitado. E não foi. Todas as funções que fazem referência aos códigos de retorno estão erradas, como a função CodOcorrenciaToTipo() e TipoOcorrenciaToDescricao(). Esses são os códigos que estão no ACBr. case CodOcorrencia of 02: Result:='02-Entrada Confirmada' ; 51: Result:='51-Entrada Rejeitada' ; 06: Result:='06-Liquidação normal' ; 09: Result:='09-Baixado Automaticamente via Arquivo' ; 10: Result:='10-Baixado conforme instruções da Agência' ; 11: Result:='11-Em Ser - Arquivo de Títulos pendentes' ; 12: Result:='12-Abatimento Concedido' ; 13: Result:='13-Abatimento Cancelado' ; 14: Result:='14-Vencimento Alterado' ; 15: Result:='15-Liquidação em Cartório' ; 16: Result:='16-Titulo Pago em Cheque - Vinculado'; 17: Result:='17-Liquidação após baixa ou Título não registrado' ; 18: Result:='18-Acerto de Depositária' ; 19: Result:='19-Confirmação Recebimento Instrução de Protesto' ; 20: Result:='20-Confirmação Recebimento Instrução Sustação de Protesto' ; 21: Result:='21-Acerto do Controle do Participante' ; 22: Result:='22-Titulo com Pagamento Cancelado'; 23: Result:='23-Entrada do Título em Cartório' ; 24: Result:='24-Entrada rejeitada por CEP Irregular' ; 27: Result:='27-Baixa Rejeitada' ; 28: Result:='28-Débito de tarifas/custas' ; 29: Result:= '29-Ocorrências do Sacado'; 30: Result:='30-Alteração de Outros Dados Rejeitados' ; 32: Result:='32-Instrução Rejeitada' ; 33: Result:='33-Confirmação Pedido Alteração Outros Dados' ; 34: Result:='34-Retirado de Cartório e Manutenção Carteira' ; 35: Result:='35-Desagendamento do débito automático' ; 40: Result:='40-Estorno de Pagamento'; 55: Result:='55-Sustado Judicial'; 68: Result:='68-Acerto dos dados do rateio de Crédito' ; 69: Result:='69-Cancelamento dos dados do rateio' ; end; E esses são os códigos conforme o manual que segue em anexo NOTA Nº 5 - Serviço (Arquivo - Retorno). 02 - Entrada Confirmada. 04 - Alteração. 06 - Liquidação Normal. 07 - Pagamento por Conta. 08 - Pagamento por Cartório. 09 - Baixa Simples. 10 - Devolvido - Protestado 11 - Em ser. 12 - Abatimento Concedido. 13 - Abatimento Cancelado. 14 - Vencimento Alterado. 15 - Baixa Automática 18 - Alteração Depositária. 19 - Confirmação de Protesto. 20 - Confirmação de Sustar-Protesto. 21 - Alteração Informações de Controle da Empresa 22 - Alteração "Seu Número". 51 - Entrada Rejeitada. Obs.: - Os registros com erros no arquivo-remessa serão gravados com a identificação do serviço original acrescido de 50. Ex.: Um registro com Código de Serviço 04 (Concessão de Abatimento), se estiver errado, retornará com o código de serviço 54. PADRAO BNB - CNAB400.pdf

A carteira do Banco do Nordeste deve ser informada com 1 caracter, dentro do ACBR o tipo da operação é setado de acordo com esse valor da carteira, porém recentemente foi feito uma alteração no tamanho do campo carteira e foi postado aqui no fórum e começou a causar problemas, Alteração, quando informo a carteira 4 por exemplo, o tipo de operação correspondente deve ser 21, porém com o tamanho da carteira 2 o valor da carteira é setado como '04' ao invés de '4'. Com isso dentro da classe ACBrBancoNordeste o valor da carteira retornado vai ser '04'. function TACBrBancoNordeste.CarteiraToTipoOperacao(const Carteira: string):String; begin if Carteira = '01' then {Alterei de '1' para '01'} Result:= '21' else if Carteira = '02' then {Alterei de '2' para '02'} Result:= '41' else if Carteira = '04' then {Alterei de '4' para '04'} Result:= '21' else if Carteira = '05' then {Alterei de '5' para '05'} Result:= '41' else if Carteira = '06' then {Alterei de '6' para '06'} Result:= '31' else if Carteira = 'I' then Result:= '51' else Result:= Carteira; end; Segue anexo alteração para avaliação. ACBrBancoNordeste.pas

O módulo do banco do nordeste (.pas) na parte em que gera o arquivo de remessa (cnab400), na coluna 108 (carteira), está usando a mesma carteira utilizada no boleto (ex: carteira 21) que usa duas posições e na verdade não é. No manual do bnb diz que é para usar a carteira (tipo de operação) conforme nota Nª 1 que usa uma única posição, trata-se de uma tabela que vai de 1 a K que faz um relacionamento entre as carteiras e esse código. Inclusive, usando a carteira normal de suas posições (ex: 21) a linha de transação fica com 401 posições.

A função do calculo do digito verificador do ACBr no Banco do Nordeste está assim, dizendo que não existe digito = 1, quando este for 1 será 0. Mas o sistema de emissão de boleto do próprio banco gera boletos com digito verificador 1. O manual diz que quando o resto da divisão (por 11) for 1 aí o digito será 0, mas o resto da divisão, lembrando que ainda vamos subtrair de 11 o resto da divisão, portanto é para transformar o resto da divisão em 0 quando este for 1 e não o próprio digito final encontrado. Gostaria que dessem uma olhada e se realmente estiver errado favor corrigir. Tentei comentar esta parte do .pas, que transforma digito 1 em 0 mas não sei como recompilá-lo, mas o ideal mesmo seria fazer a correção no ACBr. Meu ACBr está atualizado, acabei de instalar com o trunk2. help ! function TACBrBancoNordeste.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String; begin Modulo.CalculoPadrao; Modulo.MultiplicadorFinal := 8; Modulo.Documento := ACBrTitulo.NossoNumero; Modulo.Calcular; if Modulo.DigitoFinal = 1 then Result:= '0' else Result:= IntToStr(Modulo.DigitoFinal); end;