Pesquisar na Comunidade
Showing results for tags 'bnb'.
Encontrado 6 registros
-
Homologação Boletos e Remessa BNB resolvido (alteração na Unit ACBrBancoNordeste.pas)
um tópico no fórum postou 7Master ACBrBoleto
Olá Juliana, tudo bem? Estive conversando com o Regys e ele me pediu pra abrir um post aqui para correção do ACBrBancoNordeste.pas e tb ajudar as pessoas que não conseguiram homologar o BNB. O layout deles realmente é bem confuso, no campo carteira eles informam que deve ter 1 posição. Ex: se a carteira for 21 informar 4 na remessa, porém no boleto tem que aparecer 21 na carteira. Só questão de estética, pois não ira influenciar em nada, mas por conta disso eles não homologam. Então fiz a seguinte alteração: constructor TACBrBancoNordeste.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito := 3; fpNome := 'Banco do Nordeste'; fpNumero := 4; fpTamanhoMaximoNossoNum := 7; fpTamanhoAgencia := 4; fpTamanhoConta := 7; fpTamanhoCarteira := 2; {alterei para 2, anteriormente valor 1} fSequencia := 1; end; E pronto, os arquivos foram homologados. A nota está em anexo. ACBrBancoNordeste.pas -
Bom dia! Quando vou imprimir um boleto, o código de barras sai com o número da conta incorreto, e isso acontece apenas na primeira tentativa, se eu tentar imprimir novamente sem fechar o sistema sai corretamente. Ag: 0223 - CC:26-4 Percebi que o problema está na function abaixo: function TACBrBancoNordeste.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String; var CodigoBarras, FatorVencimento, DigitoCodBarras:String; begin with ACBrTitulo.ACBrBoleto do begin FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento); CodigoBarras := IntToStrZero( Numero, 3 )+'9'+ FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) + PadLeft(OnlyNumber(Cedente.Agencia),4,'0') + PadLeft(OnlyNumber(Cedente.Conta),7,'0') + PadLeft(Cedente.ContaDigito,1,'0') + ACBrTitulo.NossoNumero + CalcularDigitoVerificador(ACBrTitulo) + CarteiraToTipoOperacao(ACBrTitulo.Carteira) + '000'; DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras); end; Result:= IntToStrZero(Numero, 3) + '9'+ DigitoCodBarras + Copy(CodigoBarras,5,39); end; A conta está ficando dessa forma: 0000000026 e na impressão fica 0000000 E na segunda tentativa já fica normal: 0000026
-
Pessoal, Estou implementando o boleto para o Banco do Nordeste. O Layout do boleto já foi aprovado e esta 100%. No entanto ao gerar a remessa o campo da carteira esta sendo informado errado na remessa. A Careira correta e informada no componente é a 5. Que no layout do boleto deve sair 41. Esta OK No entanto no arquivo de remessa esta gerando a carteira 4 = '21' e deve ser a 5 como esta sendo informado. Já coloquei a ACBrBoleto.Cedente.CaracTitulo = tcVinculada mas mesmo assim só sai carteira 4 no txt if ACBrBoleto.Cedente.CaracTitulo = tcSimples then begin if ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite then wCarteira:= '1' else wCarteira:= '4'; end else if ACBrBoleto.Cedente.CaracTitulo = tcVinculada then begin if ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite then wCarteira:= '2' else wCarteira:= '5'; end else WCarteira:= 'I';
-
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.
-
Amigos, Boa tarde, Apos atualizar nosso projeto para o Trunk2, identificamos que o retorno do BNB não estava lendo na posição correta. Identificamos que estava lendo na posição 71 do registro de transação ao inves da 63 que era a correta. Tambem não estava identificando o tamanho correto. Segue trecho do código corrigido, arquivo ACBrBancoNordeste.pas, arquivo de retorno e layout do BNB que temos. Linha 437 - Anterior NossoNumero := Copy(Linha,71,11); Linha 437 - Corrigida NossoNumero := Copy(Linha,63,7); ACBrBancoNordeste.pas Manual Leiaute CNAB400 v2 0.pdf A02501_05121500.SAI
-
Banco do Nordeste - Cálculo do Digito Verificador
um tópico no fórum postou Luciano Rodrigues Pereira ACBrBoleto
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;
