Iran Lima

Bom dia, Me deparei com um erro na leitura do retorno CNAB 400 do Banco Safra. a procedure TACBrBancoSafra.LerRetorno400(ARetorno: TStringList); está capturando o código do retorno na posição errada.!! Esta assim: OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef(copy(Linha, 103, 2), 0)); O corretor é assim: OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef(copy(Linha, 109, 2), 0)); A posição correta do campo está assim no manual: cobranca2017.pdf Com o erro o retorno esta identificado todos os retornos como "Entrada Confirmada"

Obrigado, vai resolver meu problema.

As linhas de multa, juros, desconto e protesto são geradas pelo componente. Ele gera uma em cada linha.

Bom dia. Estou precisando gerar boletos usando 7 Linhas nas intruções. Seria possivel aumentar o campo de 6 para 7 linhas nas instruções? Eu uso o layout com o recibo de entrega (lPadraoEntrega). O banco safra exigiu uma mensagem grande e terminou cortando as linha ref a multa. A imagem já esta com 7 linhas (eu alterei), mas o padrão do componente só suporta 6 linhas.

O Manual já esta em anexo. Segue a unit alterada. cobranca2017.pdf ACBrBancoSafra.pas

Boa Tarde, Para fazer a homologação dos boletos no Banco Safra tive de fazer as seguintes alterações no layout de remessa CNAB400 Foi preciso alterar a seguinte linha .... para poder incluir as informações da multa. Código velho: IntToStrZero(round(ValorAbatimento * 100), 13) + // Valor Do Abatimento Concedido Ou Cancelado / Multa Novo código : // Multa (Entrada) FormatDateTime('ddmmyy', DataMulta) + // - Posição 206 a 211 a data a partir da qual a multa deve ser cobrada IntToStrZero(round(PercentualMulta * 100), 4) + // - Posição 212 a 215 o percentual referente à multa no formato 99v99 '000' + // - Posição 216 a 218 zeros // FIM DA MULTA Segue o manual para verificação do layout Se possível, favor incluir as mudanças no servidor. Grato! cobranca2017.pdf

Pessoal, Encontrei um erro no calculo do juros do boleto para o Sicoob. O Manual do Sicoob pede a Taxa Mora mês do campo 36, posições 161 a 166 a conforme a linha abaixo ... No ACBrBancoBancoob.pas linha 388 está assim IntToStrZero( Round( (ValorMoraJuros * 30) *10000 ), 6) + // Taxa de mora mês sendo que o ValorMoraJuros é o valor de juros ao dia em R$.

Obrigado @José M. S. Junior.

O forum do acbr morreu?

Olá Pessoal, Estou com um problema ao processar arquivo de retorno BNB, boletos rejeitados que no arquivo de retorno vem com ocorrencia "51 - Entrada Rejeitada." , esta listando no ACBRBoleto a ocorrência "02 - Entrada Confirmada.". Depois de verificar o código do ACBR vi que não esta implantado no código a ocorrência 51 function TACBrBancoNordeste.CodOcorrenciaToTipo(const CodOcorrencia: Integer ) : TACBrTipoOcorrencia; begin case CodOcorrencia of 02: Result := toRetornoRegistroConfirmado; 03: Result := toRetornoRegistroRecusado; 06: Result := toRetornoLiquidado; 09: Result := toRetornoBaixadoViaArquivo; 10: Result := toRetornoBaixadoInstAgencia; 11: Result := toRetornoTituloEmSer; 12: Result := toRetornoAbatimentoConcedido; 13: Result := toRetornoAbatimentoCancelado; 14: Result := toRetornoVencimentoAlterado; 15: Result := toRetornoLiquidadoEmCartorio; 16: Result := toRetornoLiquidado; 17: Result := toRetornoLiquidadoAposBaixaouNaoRegistro; 18: Result := toRetornoAcertoDepositaria; 19: Result := toRetornoRecebimentoInstrucaoProtestar; 20: Result := toRetornoRecebimentoInstrucaoSustarProtesto; 21: Result := toRetornoAcertoControleParticipante; 22: Result := toRetornoRecebimentoInstrucaoAlterarDados; 23: Result := toRetornoEncaminhadoACartorio; 24: Result := toRetornoEntradaRejeitaCEPIrregular; 27: Result := toRetornoBaixaRejeitada; 28: Result := toRetornoDebitoTarifas; 29: Result := toRetornoOcorrenciasdoSacado; 30: Result := toRetornoALteracaoOutrosDadosRejeitada; 32: Result := toRetornoComandoRecusado; 33: Result := toRetornoRecebimentoInstrucaoAlterarDados; 34: Result := toRetornoRetiradoDeCartorio; 35: Result := toRetornoDesagendamentoDebitoAutomatico; 99: Result := toRetornoRegistroRecusado; else Result := toRetornoOutrasOcorrencias; end; end; Segue trecho do manual do BNB para confirmar os códigos de retorno. 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

Bom dia PessoALL, A Caixa também recusou meus boletos relatando o mesmo problema. Alterei eu mesmo o componente, mas gostaria que a alteração fosse oficial no componente. "Autenticação - Ficha de compensação" ______>>>> "Autenticação Mecânica - Ficha de compensação"

E quanto ao tamanho da marguem inferior, segundo as especificações ela dever ser de 12mm até o meio do código de barras. Tive boletos rejeitados por causa desse requisito.

Já fiz a mudança aqui, mas meu medo é esquecer e atualizar o componente. Alguém pode fazer a modificação ai?

Se já tem um campo de carteira preenchido deveria ser usado, simples assim.

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';