andreiluis

Descobri o problema. Se for utilizar um caminho que tenha espaço(s) em branco, é necessário colocar uma \ no final do caminho. Se o caminho não tiver espaço(s), a barra não é necessária. A pergunta que resta agora é: Por que isso acontece?

Boa tarde, Estou começando a utilizar a rotina GerarRemessa, e ao utilizar um caminho de diretório que continha um espaço em branco (propriedade DirArqRemessa do componente), estava obtendo o erro de acesso negado, mesmo sendo esse caminho válido e ter direito de acesso à pasta. Ao utilizar um caminho válido, sem espaço em branco, o problema foi resolvido. Mas e se quiser utilizar um caminho que tenha espaço em branco, como proceder?

Anderson, Baixe todo o ACBr novamente, segue em anexo uma planilha que o Sicredi me enviou a algumas semanas para verificação dos campos. Analisa campos do boleto Sicredi - original.zip

Oi Juliana, me refiro ao meu post do dia 04/07.

Anderson, com as alterações que eu fiz, o DV ficou correto. Juliana, você analisou a última alteração que eu enviei com a função LerRetorno? Está OK e será subida ao SVN?

Olá Juliana, De fato, faltou o override. Bem, apanhei um pouco mas consegui implementar a procedure LerRetorno400. Em anexo está a unit ACBrBancoSicredi, espero que seja útil para outros colegas. Deixei alguns comentários na procedure sobre alguns campos que não entendi e outros que não tem no arquivo de retorno do Sicredi, usei como base a procedure do Banco do Brasil e implementei a leitura de um arquivo de retorno com registros de uma cobrança SEM registro. Para cobrança COM registro cabe algumas modificações. Para referência futura utilizei o manual de Agosto de 2010 do Sicredi. Mais uma vez obrigado pelas dicas Juliana. ACBrBancoSicredi.zip

Segue em anexo, a alteração que fiz foi a proposta pelo alcir neste post: viewtopic.php?f=11&t=5449&p=28742&hilit=748+x#p28742 Outra coisa Juliana, o método LerRetorno400 não foi desenvolvido ainda, tentei começar a fazê-la, mas não consegui. Copiei a função de outro banco e coloquei na unit do Sicredi, mas continua dando erro ao chamar o método LerRetorno, diz que a função LerRetorno400 não está implementada para o Sicredi. Como procedo para implementar essa função? ACBrBoletoFCFR.zip

OK Juliana, mas e quanto ao código do banco 748-x? Baixei agora nova versão e a correção ainda não foi aplicada. Quer que eu envie uma unit corrigida?

Juliana e demais, Hoje consegui homologar junto ao Sicredi. Alterações que precisei fazer que não sei se estão todas já implementadas: - Logotipo não deve ser colorido (não entendi porque, a atendente do Sicredi me enviou um logo em preto e branco, anexei neste post) - O número do banco que fica ao lado do logo e que é destacado, deve ser 748-X e não 748-1 (para isso encontrei esse tópico apliquei a correção proposta e resolveu. - O formato do campo Agência / Código Cedente deve ser AAAA.BB.CCCCC, o componente está formatando AAAA/CCCCC, essa alteração eu fiz direto no arquivo FR3, não sei se é possível algum tipo de alteração no componente para que a formatação já venha pronta de acordo com o banco. A versão que estou usando do ACBrBoleto é a 0.0.31a, existe versão mais nova onde estes problemas já foram resolvidos? Andrei LOGOS.zip

Ninguém?

Bom dia a todos, Uma outra situação que me deparei aqui. Depois de adicionar o boleto via ACBrBoleto1.CriarTituloNaLista e antes de imprimí-lo, como pegar a linha digitável e o código de barras do boleto?

Unit anexada. Grato pela ajuda Juliana. ACBrBancoSicredi.pas

Funcionou Juliana.

Entendi Juliana, e quanto à função que eu alterei, está ok?

Olá Juliana, obrigado pelo retorno. Agora que você falou, fiz algumas alterações na função e ficou assim, me corrija se tiver outra forma melhor de fazer. Linhas suprimidas em vermelho e linhas adicionadas em azul. Edit: Faltou informar que emiti os mesmos 10 boletos de antes, com os mesmos dados, inclusive os mesmos nosso número, e desta vez todos os DVs geraram corretamente. Como funciona para atualizarem essa função no SVN? function TACBrBancoSicredi.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String; var wDigitoFinal: Integer; begin Modulo.CalculoPadrao; Modulo.MultiplicadorFinal := 9; Modulo.Documento := ACBrTitulo.ACBrBoleto.Cedente.Agencia + ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito + ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente + ACBrTitulo.NossoNumero; Modulo.Calcular; {original if Modulo.ModuloFinal = 1 then Result := '1' else if Modulo.DigitoFinal > 9 then result := '0' else Result := IntToStr(Modulo.DigitoFinal); } wDigitoFinal := 11 - Modulo.ModuloFinal; if (wDigitoFinal >= 10) then wDigitoFinal := 0; Result := IntToStr(wDigitoFinal); end; Dados utilizados para emitir o boleto problemático: NossoNumero: 12/200031 Campos utilizados para compor NN: - Cooperativa: 0101 - Posto: 24 - Cedente: 19965 - Ano: 12 - Byte: 2 - Sequencial: 00031 Outros campos: Carteira:1 Agencia: 0101 Conta: 19965 DataVencimento: 12/06/2012 DataDocumento: '' DataMoraJuros: 13/06/2012 DataDesconto: 0 DataAbatimento: 0 Dataprotesto: 0 NumeroDocumento: 687/01 EspecieDoc: 'DM' NossoNumero: '12200031' ValorDocumento: 5787,00 ValorAbatimento: 0 ValorMoraJuros: 11,57 ValorDesconto: 0 PercentualMulta: 5

Bom dia, Ainda estou brigando com o boleto do Sicredi. Testei gerar 10 boletos, em somente um deu erro nos DVs. Gerei outros 10 e novamente: erro em somente 1 boleto. Dados para teste: Linha digitável: 74893.11220 00031.101017 24199.651092 4 53640000057870 Cooperativa: 0101 UA/Posto: 24 Cedente: 19965 Cobrança sem registro Anexei uma planilha atual que o suporte do Sicredi me enviou para testar os boletos, e através dela entendo que a forma correta de calcular o DV do nosso número por exemplo é o frModulo10PIS e não frModulo11 como está sendo utilizado. Estou fazendo testes, e alterei a função TACBrCalcDigito.Calcular que está na unit ACBrValidador, vou dando F8 e dentro da função o digito é calculado corretamente (com as alterações que fiz), mas quando volta para a função CalcularDigitoVerificador da unit ACBrBancoSicredi o dígito está diferente!? Estou usando ACBrBoleto Ver: 0.0.31a, já existe versão mais nova onde isso foi corrigido? Analisa campos do boleto Sicredi - original.zip

Ainda está com erro no DV. Emiti 10 boletos e deu erro em somente um. Dados utilizados: Agência Posto Cedente Ano Byte Seqüencial 0 1 0 1 2 4 1 9 9 6 5 1 2 2 0 0 0 2 8 O DV calculado pelo ACBr foi 1, porém o DV calculado pela planilha de teste do Sicredi foi 0. Alguém se habilita a corrigir? Não sei nem por onde começar.

Obrigado pela info Juliana.

Desculpe, mas não respondeu a minha pergunta. O DV do NN do Sicredi está sendo gerado corretamente?

Boa tarde, O cálculo do DV do NN foi corrigido?

Boa tarde a todos, Estou começando a testar o ACBrBoleto e de cara me deparei com um problema, na verdade vários. Estavam aparecendo +/- 10 msgs de erro ao imprimir um único boleto, descobri que a formatação de alguns campos texto (nosso número, local de pagamento e cedente) estava como data, o que gerava erro de conversão de string para float. Não sei se isso já foi corrigido no repositório, em anexo mando o arquivo que eu alterei. BoletoFR.zip