Ajuste Validação Dados Obrigatórios

[Danilo Ziza]

Boa noite,

Alterei o método TACBrBoleto.ChecarDadosObrigatorios para informar qual campo não foi preenchido, unit  em anexo caso queiram subir para o SVN.

 

At.te

ACBrBoleto.pas

[Juliomar Marchetti]

No svn a contribuição

[Warquia]

@Juliomar Marchetti essa alteração afetou o clientes que tem contas do Itaú e Caixa Economia aqui em GO, pois esse bancos não possuem Digito Verificador na Agência.

Segue em anexo removendo a exigência quando for Itau e Caixa.

Att, Warquia
 

ACBrBoleto.pas

Editado 5 Março, 2018 por Warquia Pereira

[Danilo Ziza]

Boa tarde,

Apenas para alinhar, conforme verificado nos logs do SVN estes campos já estavam como obrigatórios na validação ANTES dessa alteração do dia 28/12, a implementação realizada foi apenas para avisar qual campo não estava preenchido, logo não foi essa alteração que afetou os teus clientes.

[Warquia]

Na realidade a revisão do dia 28/12 para trás ele não caía nessa validação pois o "vDadosIncompletos" recebia True no início do método; 
vDadosIncompletos := Cedente.Nome = ''; por isso que teve essa dirigência.

procedure TACBrBoleto.ChecarDadosObrigatorios;
var
  // Indicar se algum dos dados obrigatórios não foi preenchido
  vDadosIncompletos: boolean;
begin
   // Verificar o preenchimento do nome
   vDadosIncompletos := Cedente.Nome = '';
   // Verificar o preenchimento da conta
   if not vDadosIncompletos then
     vDadosIncompletos := Cedente.Conta = '';
   // Verificar o preenchimento do dígito da conta
   if not vDadosIncompletos then
     vDadosIncompletos := (Cedente.ContaDigito = '') and (Banco.TipoCobranca <> cobBanestes);
   // Verificar o preenchimento da agência
   if not vDadosIncompletos then
     vDadosIncompletos := Cedente.Agencia = '';
   // Verificar o preenchimento do dígito da agência
   if not vDadosIncompletos then
     vDadosIncompletos := (Cedente.AgenciaDigito = '') and (not (Banco.TipoCobranca in [cobBanestes, cobBanrisul]));
   // Gerar exceção caso algum dos campos obrigatórios não esteja preenchido
   if vDadosIncompletos then
     raise Exception.Create(ACBrStr('Informações do Cedente incompletas'));
end;

 

Editado 6 Março, 2018 por Warquia Pereira

[Warquia]

Bom dia, pessoal tem a possibilidade de subir essa correção?

[Juliomar Marchetti]

aguardar para quem cuida do componente consiga passar e ler

[SISCONT]

Boa tarde, mesmo problema aqui em Goias, após a atualização do componente, obrigando a colocar o Digito verificador no Itaú.

[SISCONT]

10 minutos atrás, Patrick Santos Pereira disse:

Boa tarde, mesmo problema aqui em Goias, após a atualização do componente, obrigando a colocar o Digito verificador no Itaú.

@Juliomar Marchetti Sabe me dizer quem subiu para o SVN essa correção?

[Juliomar Marchetti]

1 hora atrás, Patrick Santos Pereira disse:

@Juliomar Marchetti Sabe me dizer quem subiu para o SVN essa correção?

Tu mesmo pode ver, basta clicar com o lado direto no arquivo e no menu to tortoisesvn e veja o log 

[Warquia]

Bom dia @Juliana Tamizou, teria um tempo para avaliar essa correção por gentileza?

[Juliomar Marchetti]

Acho que não é mais a Juliana que cuida desse componente.

[José M. S. Junior]

Em 14/04/2018 at 11:21, Warquia Pereira disse:

Bom dia @Juliana Tamizou, teria um tempo para avaliar essa correção por gentileza?

Bom dia, ajuste atualizado no SVN.

[Warquia]

Muito obrigado @José M. S. Junior