Erro ao gerar Registros do PAF - (P1) Não tem CNPJ

[Daniel Schroeder]

Bom Dia.

 

Encontrei um poblema no arquivo: ACBrPAF_P_Class.pas

Na linha > 146 
Check(Trim(FRegistroP1.CNPJ)=EmptyStr, '(P1) Não tem CNPJ');

Tenho informação vinda do "Trim(FRegistroP1.CNPJ)" porém esta me estourando erro;

Tive que mudar para:

Check(Trim(FRegistroP1.CNPJ)<>EmptyStr, '(P1) Não tem CNPJ');

Demais esta tudo certo a principio, tenho mapeado o evento: ACBrPAFError(const MsnError: string);

 

 

 

 

ACBrPAF_P_Class.pas

[Juliomar Marchetti]

Se rodar o exemplo do svn ocorre o emsmo?

[schrsistemas]

2 horas atrás, Juliomar Marchetti disse:

Se rodar o exemplo do svn ocorre o emsmo?

 

Com o evento implementado:

procedure TForm6.ACBrPAFError(const MsnError: string);
begin
  ShowMessage(MsnError);
end;
 

[Juliomar Marchetti]

Está com seus fontes desatualizados. acabei de fazer o teste aqui com o exemplo em lazarus enão houve erros

[schrsistemas]

Fontes atualizados, fiz a alteração no exemplo ativando apenas o evento: ACBrPAFError pra validar estes erros - mostrando em tela para o usuário.

A ultima correção vindo deste arquivo esta relacionado com este link: 

 

Editado 31 Janeiro, 2022 por schrsistemas

[schrsistemas]

up

[Juliana Tamizou]

Bom dia,

15 horas atrás, schrsistemas disse:

up

Por favor evite esse tipo de postagem, se a comunidade não lhe respondeu é porque não teve disponibilidade, sugiro estudar a opção de ser membro do ACBr Pro e ter entre outros benefícios, a garantia de resposta diretamente dos consultores ACBr.

Saiba mais em https://projetoacbr.com.br/pro

At.

[Juliana Tamizou]

Bom dia,

Nossos desenvolvedores notaram a possível necessidade de correção no componente.

Análise está no baacklog sob a TK-2381

At.

[EMBarbosa]

Em 28/01/2022 at 11:03, Daniel Schroeder disse:

Bom Dia.

 

Encontrei um poblema no arquivo: ACBrPAF_P_Class.pas

Na linha > 146 
Check(Trim(FRegistroP1.CNPJ)=EmptyStr, '(P1) Não tem CNPJ');

Tenho informação vinda do "Trim(FRegistroP1.CNPJ)" porém esta me estourando erro;

Tive que mudar para:

Check(Trim(FRegistroP1.CNPJ)<>EmptyStr, '(P1) Não tem CNPJ');

Demais esta tudo certo a principio, tenho mapeado o evento: ACBrPAFError(const MsnError: string);

ACBrPAF_P_Class.pas 6 kB · 1 download

@schrsistemas

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  24738.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

[Daniel Schroeder]

Vlw!

Testado,... funcionando.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.