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

Vou checar tudo aqui, obrigado.

Galera, em um terminal aqui o ACBRNFe não funciona, nem sequer testa o serviço. Certificado e configurações esta OK. Gera o seguinte XML na pasta do sistema A página XML não pode ser exibida Não é possível exibir a entrada XML usando a folha de estilos . Corrija o erro e clique no botão Atualizar ou tente novamente mais tarde. -------------------------------------------------------------------------------- O sistema não oferece suporte à codificação especificada. Erro ao processar o recurso 'file:///C:/SGI/temp.xml'. Linha 1, ... <?xml version="1.0" encoding="UTF-8"?> Obs: Este erro no ocorre em um terminal. Alguma luz?

Obrigado Sergio, vou fazer a validação com a tabela do IBPT usando o ACBR. Acho que é a melhor solução.

Juliomar, o problema é que a tabela de NCM´s sofre alterações, e NCM´s que eram validos, não são mais.

Obrigado Ricardo, mas preciso uma solução para que os meus clientes consigam detectar o item que esta com NCM invalido ou que o meu sistema faça a validação. A consulta no link informador tambem não informa qual o item esta com NCM incorreto, so esta nota tem 41 items. Parser XML: Nenhum erro encontrado Tipo de Mensagem: Documento de NF-e Schema XML: Nenhum erro encontrado NF-e 29160605967466000184550010001282231001282237 Certificado Digital do Titular: CN=COMERCIAL MARGUTTI LTDA:05967466000184 - CNPJ: 05.967.466/0001-84 [Visualizar] Assinatura Digital: Válida Regras de Negócio [Ambiente de Produção] 1 erro de validação 778 - [Simulacao] Rejeicao: Informado NCM inexistente 29160605967466000184550010001282231001282237-nfe.xml

Alterei os fontes, visto que não seto a impressora.

<cStat>778</cStat> <xMotivo>Rejeicao: Informado NCM inexistente.</xMotivo> Bom dia senhores, Hoje a sefaz BA resolveu fazer validação dos NCM´s nas NF-e´s e estou tendo diversos problemas para identificar quais NCM a sefaz esta rejeitando, pois no retorno não informa qual o item da NF-e esta com NCM inválido. Existe alguma forma de eu validar o NCM com o ACBR? ou retornar a mensagem de erro com o item que esta com NCM errado?

Estou com mesmo problema!

Não teve jeito, arrumei uma impressora MP-4200 e nela funcionou perfeitamente. Vou encerrar o tópico, Obrigado

Boa tarde Juliomar, Obrigado pela ajuda. Bem alterei a porta para COM1 e deu o mesmo erro. O estranho é que nas propriedades da impressora a porta fica como : "Bematech_COM1". Seria por isso? Colocando "Bematech_COM1" no ACBRPosPrinter ele salva como arquivo.