Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3227 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado (editado)

Arquivo "Boleto_beneficiario.fr3".

O ACBR está preenchendo errado o campo CNPJ/CPF do Sacado, no lugar está sendo informado Agencia e Codigo do Beneficiario.

O arquivo FR3 está correto com a Tag do Sacado.CNPJCPF, mas ao imprimir o preenchimento do Objeto FR3 está mostrando Agencia e Codigo do Cedente.

Att.

Editado por Henrique Paraiba
  • Moderadores
Postado
Agora, Henrique Paraiba disse:

Arquivo "Boleto_beneficiario.fr3".

O ACBR está preenchendo errado o campo CNPJ/CPF do Sacado, no lugar está sendo informado Agencia e Codigo do Beneficiario.

O arquivo FR3 está correndo com a Tag do Sacado.CNPJCPF, mas ao imprimir está mostrando Agencia e Codigo do Cedente.

Att.

Por favor queira corrigir e anexar aqui que avaliamos!

Obrigado

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

Postado

Sobre a analise dos arquivos .fr3 supra.

Ao analisar os dois .fr3, notei que o Boleto_beneficiario.f3 está errado. Se analisado ao abrir o formulário, aparentemente está correto, mas, ao analisar o Script, o mesmo coloca os dados da agencia/conta/CodigoCedente exatamente no local onde estaria o CNPJ do beneficiário, porem, tal situação ocorre em que os números das agencias sejam maiores ou igual a 104, ou seja, é uma condição que está explicita dentro do .fr3, que seta tais valores para as variáveis CedenteAgencia2 e CedenteAgencia3, que consequentemente são as variáveis onde são mostrados o CNPJ.

procedure MDOnBeforePrint(Sender: TfrxComponent);
begin
   (...)
   if <Banco."Numero"> = '104' then
   begin
     CedenteAgencia.Text  := <Titulo."CodCedente">;
     CedenteAgencia2.Text := <Titulo."CodCedente">;
     CedenteAgencia3.Text := <Titulo."CodCedente">;
   end else
   begin
     CedenteAgencia.Text  := <Cedente."Agencia">+'-'+<Cedente."AgenciaDigito">+'/'+<Cedente."CodigoCedente">;
     CedenteAgencia2.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
     CedenteAgencia3.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;  
  end;
end;

Porém, no BoletoFR.fr3 existe a mesma instrução, mas neste ultimo caso, as variáveis do CNPJ são, Memo80 e Memo139 respectivamente.

procedure MDOnBeforePrint(Sender: TfrxComponent);


begin


    (...)
    if <Banco."Numero"> = '104' then
   begin             
    CedenteAgencia.Text  := <Titulo."CodCedente">;
    CedenteAgencia2.Text := <Titulo."CodCedente">;
    CedenteAgencia3.Text := <Titulo."CodCedente">;         
  end else
  begin
     CedenteAgencia.Text  := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
     CedenteAgencia2.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
     CedenteAgencia3.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
  end;                 
end;

Portanto, resta clarividente que, razão assiste ao Juliomar, ao afirmar que não há no repositório o arquivo Boleto_beneficiario.fr3.

Ao que parece, o arquivo supra citado por parte do colega, salvo melhor juízo, está desatualizado, devendo o mesmo, em caso outro, apagar o Boleto_beneficiario.fr3 e copiar o BoletoFR.fr3 para o nome desejado, devendo ser feito este procedimento a cada atualização.

  • Curtir 1

_____________

Prates, Agnaldo

  • Este tópico foi criado há 3227 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.