jairodacosta

Olá !!! Tentei homologar hj novo layout Banrisul 10.3, fiz as alterações conforme orientado em outro tópico mas retornou com posição de campos errados !!! esses são os retornos do banco !!! Registro header de arquivo Incluir nas posições 33-52 código do beneficiário com 13 dígitos, iniciando na posição 33. Registro header de lote Incluir nas posições 34-53 código do beneficiário com 13 dígitos, iniciando na posição 34; Nome da empresa deve constar nas posições 74-103. Segmento P Incluir na posição 118-118 código de juros. Utilize código 1 para valor ao dia ou código 2 para taxa mensal; Incluir nas posições 119-126 data dos juros; Incluir nas posições 127-141 , valor dos juros, conforme consta no boleto; Incluir na posição 221-221, código 3 (não protestar) conforme informação do boleto. Segmento R Nas posições 67-74 uma data válida para multa. esse é o arquivo remessa q foi gerado !!! cb230801.rem

O Colega aqui já mencionou q fez a homologação e foi normal, enviou os arquivos, apenas aguardando !!!

Olá !!! Onde mandei para homologação e recebi tmb o aviso de alteração do layout para a versão 10.3 !!! Tem previsão !!

Olá !!! O amigo Simons fez algumas alterações no arquivo remessa do Banrisul ref. aos Campos Numéricos Opcionais em branco, porém ficou faltando substituir o campo Zero por campo em branco, quando o título não tem instruções de protesto conforme manual do banco, Mandei para homologação no dia 30/08/2018 e retornou com o alerta !!! O Colega Simons fez as referidas alterações conforme tópico abaixo, e ficou faltando apenas as informações ref. aos dias de protesto !!! segue a Unit com essa alteração para validação !!! Obrigado !!! ACBrBancoBanrisul.pas

Olá !!! Mandei para homologação ontem 30/08/2018 e retornou com os mesmos alertas sobre os campos quando não utilizados devem permanecer em branco, usei a unit disponibilizada pelo Simons e observei que está fazendo certo, porém só falta deixar o campo ref. aos dias de protesto em branco quando o título não tiver instrução de protesto

VC tem um exemplo de como ler o arquivo retorno no formato 240 do Bancoob ??!!!

Consegui fazer !!! Agora está OK !!! Faltava atualizar o componente !!!

Olá !!!! Não estou conseguindo salvar os xmls nas pastas mensais, não está criando as subpastas, somente o nome do arquivo!!! estou fazendo assim !!! ACBRNFe1.Configuracoes.Geral.Salvar := true; ACBRNFe1.Configuracoes.Arquivos.Salvar := True; ACBRNFe1.Configuracoes.Geral.PathSalvar := IncludeTrailingPathDelimiter('C:\NFE\XML'); ACBRNFe1.Configuracoes.Arquivos.PastaMensal := TRUE; ACBRNFe1.Configuracoes.Arquivos.EmissaoPathNFe := true; ACBRNFe1.Configuracoes.Arquivos.AdicionarLiteral := true; ACBrNFe1.NotasFiscais.Items[0].SaveToFile;

Olá !! Alguém já implementou a leitura dos arquivos retorno do banrisul ??!!

Olá !!! Se a fonte do danfe tiver ftCourier não imprime, mas se tiver ftTimes imprime normalmente, também tive esse problema e alterei a fonte e está imprimindo normal !!! Alterei na configuração do componente AcbrnfeDanfeRaveCB propriedade fonte !!!

Olá !!! Essa linha do código CampoLivre := CampoLivre + IntToStr(Modulo.DigitoFinal) ele pega o campo livre e adiciona 1 digito então fica 24 digitos, e para o cálculo do duplo dígito ele usa o seguinte código *** digitoVerificador:=(CalculaDigitosChaveASBACE(copy(CampoLivre,1,23))) *** !!! Foi esquecido de comentar a linha, ela não interfere no novo código para cálculo do duplo dígito !!!

Ao colega 'fschunig' !! Olá !!! Efetuei alteracoes na unit AcbrBAncoBanrisul.pas ontem e homologuei 46 boletos e todos deram ok !!!! veja nesse link na sua unit AcbrBancoBanrisul.pas está assim CampoLivre:= Modalidade +'1'+ padR(copy(trim(ACBrBoleto.Cedente.Agencia),1,4), 4, '0')+{ Código agência (cooperativa) } padR(OnlyNumber(ACBrBoleto.Cedente.Conta), 7, '0')+{ Código cedente = Número da conta } padR(NossoNumero, 8, '0')+{ Nosso número } '40'; porém o código do cedente não é igual ao numero da conta, tem que ser assim padR(OnlyNumber(ACBrBoleto.Cedente.codigocedente), 7, '0')+{ Código cedente = codigo cedente } eu havia homologado anteriormente da maneira como está na sua unit, mas após um mes do cliente estar emitindo a cada 20 boletos 03 davam erro no duplo digito, segundo o suporte do banrisul havia problema quando o cálculo entrava nas exceções !!! Então fiz essa alteração e nesses 46 que mandei para homologação todos deram ok !!! O que alterei foi pedir paga calcular o duplo dígito com a funcao function TACBrBanrisul.CalculaDigitosChaveASBACE(ChaveASBACESemDigito: string):string; {Calcula os 2 dígitos usados na CHAVE ASBACE - Código usado por bancos estaduais}

Olá !!! Efetuei alteracoes na unit AcbrBAncoBanrisul.pas ontem e homologuei 46 boletos e todos deram ok !!!! veja nesse link na sua unit AcbrBancoBanrisul.pas está assim CampoLivre:= Modalidade +'1'+ padR(copy(trim(ACBrBoleto.Cedente.Agencia),1,4), 4, '0')+{ Código agência (cooperativa) } padR(OnlyNumber(ACBrBoleto.Cedente.Conta), 7, '0')+{ Código cedente = Número da conta } padR(NossoNumero, 8, '0')+{ Nosso número } '40'; porém o código do cedente não é igual ao numero da conta, tem que ser assim padR(OnlyNumber(ACBrBoleto.Cedente.cedente), 7, '0')+{ Código cedente = codigo cedente } eu havia homologado anteriormente da maneira como está na sua unit, mas após um mes do cliente estar emitindo a cada 20 boletos 03 davam erro no duplo digito, segundo o suporte do banrisul havia problema quando o cálculo entrava nas exceções !!! Então fiz essa alteração e nesses 46 que mandei para homologação todos deram ok !!! O que alterei foi pedir paga calcular o duplo dígito com a funcao function TACBrBanrisul.CalculaDigitosChaveASBACE(ChaveASBACESemDigito: string): string; {Calcula os 2 dígitos usados na CHAVE ASBACE - Código usado por bancos estaduais}

Esqueci de mencionar essa rotina é para o manual Leiaute CNAB 400 Posições Padrão Febraban Código de Agência Com Tamanho de 04 Dígitos Versão 26.05.2010, se voce tem o acbr atualizado está ok !!!

Blz !!! Essas informacoes eu tenho no cadastro do banco !!! Essa é a rotina que uso para configurar o componente !! procedure Tf_EmissaoBoletos._configuraComponenteAcbr; begin xNossoNumero := dts_Bancos.DataSet.FieldByName('nosso_numero').AsInteger; ACBrBoleto1.ACBrBoletoFC.DirLogo:=_logoBanco; ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum; ACBrBoleto1.ACBrBoletoFC.LayOut := lPadraoEntrega; case strtoint(dts_Bancos.DataSet.FieldByName('num_banco').Text) of 1:ACBrBoleto1.Banco.TipoCobranca:=cobBancoDoBrasil; 41:ACBrBoleto1.Banco.TipoCobranca:=cobBanrisul; 104:ACBrBoleto1.Banco.TipoCobranca:=cobCaixaEconomica; 237:ACBrBoleto1.Banco.TipoCobranca:=cobBradesco; 748:ACBrBoleto1.Banco.TipoCobranca:=cobSicred; end; ACBrBoleto1.Cedente.Nome :=dts_Bancos.DataSet.FieldByName('cedente').AsString; ACBrBoleto1.Cedente.CodigoCedente :=dts_Bancos.DataSet.FieldByName('codigo_cedente').AsString; //Codigo do cedente sem n.º Agência ACBrBoleto1.Cedente.Modalidade:=dts_Bancos.DataSet.FieldByName('modalidade').AsString; ACBrBoleto1.Cedente.CNPJCPF :=dts_Bancos.DataSet.FieldByName('cnpj').AsString; ACBrBoleto1.Cedente.Agencia :=dts_Bancos.DataSet.FieldByName('n_agencia').AsString; ACBrBoleto1.Cedente.AgenciaDigito :=dts_Bancos.DataSet.FieldByName('digito_agencia').AsString; ACBrBoleto1.Cedente.Conta :=dts_Bancos.DataSet.FieldByName('n_conta').AsString;; ACBrBoleto1.Cedente.ContaDigito :=dts_Bancos.DataSet.FieldByName('digito_conta').AsString; dentro da unit AcbrBancoBanrisul.pas é que estava errado na hora de gerar a linha digitavel e o codigo de barras, mas eu corrigi e agora está pegando certo, basta voce informar igual minha rotina de config. do componente !!!

Obs : o número da conta e o código do cedente são diferentes !!! Exemplo n.c/c 06.854.640-05 cód. cedente 854640058 o componente que voce tem instalado está pegando o n.º da conta e preenchendo o cód. do cedente veja parte do código **************************************************************************************************************************************************** CampoLivre:= Modalidade +'1'+ padR(copy(trim(ACBrBoleto.Cedente.Agencia),1,4), 4, '0')+{ Código agência (cooperativa) } padR(OnlyNumber(ACBrBoleto.Cedente.CodigoCedente), 7, '0')+{ Código cedente = Número da conta } padR(NossoNumero, 8, '0')+{ Nosso número } '40'; o correto é assim CampoLivre:= Modalidade +'1'+ padR(copy(trim(ACBrBoleto.Cedente.Agencia),1,4), 4, '0')+{ Código agência (cooperativa) } padR(OnlyNumber(ACBrBoleto.Cedente.CodigoCedente), 7, '0')+{ Código cedente = codigoCedente } padR(NossoNumero, 8, '0')+{ Nosso número } '40'; nesse arquivo que eu te passei para download já está corrigido !!!

Olá !!! Faça uma cópia de segurança do arquivo AcbrBancobanrisul.pas do diretorio Acbr de tua máquina depois copie esse arquivo e susbstitua o seu !!! Fiz umas alterações e Homologuei hoje 21/02/2013 46 boletos e todos deram ok, faça os testes depois retorne com a resposta se deu certo !!! ACBrBancoBanrisul.pas ACBrBancoBanrisul.pas

Obs: Homologuei hoje à tarde 21/02/13 !!!!

Juliana !!! Fiz uma alteração nos boletos do banrisul, e enviei 46 boletos para homologação e todos retornaram ok !!! A alteração foi na funcao 'MontarCodigoBarras' segue em anexo para atualização no SVN !!! ACBrBancoBanrisul.pas

Nâo resolveu !!! Homologuei ontem 20/02/13 e deu erro nestes 3 boletos !!! O suporte falou que o erro está nas excecões do cálculo !!! Quando ele encontra essas excecoes ele refaz o calculo mas está fazendo errado, segundo o atendimento !!! De 23 boletos 03 deram o problema !!!

Sim !!! Tentei homologar ontem 20/02/13 !!! O suporte falou que o erro está nas exceções do calculo !!!

Olá !!! estou com problemas na homologação de boletos do banrisul !!! Mandei 23 boletos para homologação e 3 estão com erro Esta foi a reposta que obtive Os seguintes boletos estão com erro no número de controle: NN - 50.53 - o número de controle correto é 01 em vez de 10. linha digitavel gerada pelo acbr 04192.10638 08546.400006 00005.040100 5 56280000004400 NN - 52.15 - o número de controle correto é 61 em vez de 70. linha digitavel gerada pelo acbr 04192.10638 08546.400006 00005.240700 8 56280000007988 NN - 56.22 - o npumero de controle correto é 71 em vez de 80. linha digitavel gerada pelo acbr 04192.10638 08546.400006 00005.640800 8 56280000007326 BoletosComProblema.pdf

CampoLivre:= Modalidade +'1'+ padR(copy(trim(ACBrBoleto.Cedente.Agencia),1,4), 4, '0')+{ Código agência (cooperativa) } aqui alterei estava pegando apenas 3 digitos da agencia e tem que ser 4 padR(OnlyNumber(ACBrBoleto.Cedente.CodigoCedente), 7, '0')+{ Código cedente = codigo do cedente } aqui estava pegando o numero da conta e tem que ser o codigo do cedente padR(NossoNumero, 8, '0')+{ Nosso número } '40';

Olá !!! Também estou com problemas na homologação de boletos do banrisul !!! Mandei 23 boletos para homologação e 3 estão com erro Esta foi a reposta que obtive Os seguintes boletos estão com erro no número de controle: NN - 50.53 - o número de controle correto é 01 em vez de 10. linha digitavel gerada pelo acbr 04192.10638 08546.400006 00005.040100 5 56280000004400 NN - 52.15 - o número de controle correto é 61 em vez de 70. linha digitavel gerada pelo acbr 04192.10638 08546.400006 00005.240700 8 56280000007988 NN - 56.22 - o npumero de controle correto é 71 em vez de 80. linha digitavel gerada pelo acbr 04192.10638 08546.400006 00005.640800 8 56280000007326

alguém fez homologação recentemente ??!!