andreiluis

Homologuei junto à Caixa, mas ainda não coloquei em produção. Segue em anexo a unit. ACBrBancoCaixa.pas

Segue em anexo. ACBrBancoBanrisul.pas

Opa, legal, segue. ACBrBancoBanrisul.pas

Bom dia, Estou trabalhando para criar as rotinas para gerar remessa CNAB400. Estou olhando na remessa 200, e percebi que utilizam um código fixo, 14, que é uma variável conforme o tipo de carteira e quem emite (banco ou cedente). Creio que vou utilizar esse campo modalidade para esse fim, o que acham?

Juliomar, o código que mandei será incorporado ao componente?

Juliomar, de acordo com o manual (CobrancaEletronicaBanrisul_pdr400_vrs15072015_ed06.pdf), pág 9, posição 157-158, o componente está "correto". O único porém, é que existe uma validação ali que não permite essa posição receber 00 ou espaços em branco, quando isso acontece, o componente troca para 23, que de acordo com a gerente do banco com quem eu tive contato me informou que caso a a instrução seja 23, terá custo para alterar essa instrução posteriormente, o que não acontece caso a instrução seja 00 ou espaços em branco. Falei agora com o suporte do banco, e de fato a orientação que me deram é que caso não seja necessário preencher algum campo, o mesmo deve ser deixado em branco, conforme a página 5 do manual (Alinhamento de campos numéricos).

Boa noite, Homologuei boletos e remessa no Banrisul recentemente e precisei fazer um pequeno ajuste na função que gera o registro na remessa. Hoje atualizei o componente e percebi que essa alteração ainda não está presente. Segue em anexo para apreciação dos responsáveis. A alteração que fiz começa na linha 65 e vai até a linha 74. TACBrBanrisul_GerarRegistroTransacao400.txt

Até gostaria, mas meu conhecimento para tanto, especialmente criar as propriedades envolvidas, é zero.

Pois é, percebi. Bem, obrigado pela resposta Juliomar, um ótimo 2017 pra ti e tua família.

Bom dia, desculpe ressuscitar um tópico tão antigo, mas pesquisando foi o mais próximo que encontrei do que procuro. Essa funcionalidade foi implantada no componente?

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