AcbrConsultaCNPJ - Sugestão para melhoria do código

[Paulo Casagrande]

Saudações

Problema encontrado: 

A SEFAZ, em alguns casos retorna '********' para os campos  DATA DA SITUAÇÃO CADASTRAL e/ou DATA DA SITUAÇÃO ESPECIAL e isso gera uma mensagem de erro.

Sugestão:

Substituir...

      FDataSituacao := StringToDateTimeDef(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO CADASTRAL')), 0);

      FDataSituacaoEspecial := StringToDateTimeDef(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO ESPECIAL')), 0);

por...

var

cData:string;

.....

    cData := trim(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO CADASTRAL')));
    if (cData + '*')[1] <> '*' then
      FDataSituacao := StringToDateTimeDef(cData, 0);
    cData := trim(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO ESPECIAL')));
    if (cData + '*')[1] <> '*' then
      FDataSituacaoEspecial := StringToDateTimeDef(cdata, 0);

Editado 20 Outubro, 2022 por Paulo Casagrande

[Juliana Tamizou]

Boa tarde Paulo,

Obrigada pela análise, poderia por favor anexar o pas alterado?

At.

[Paulo Casagrande]

Conforme solicitado segue em anexo

ACBrConsultaCNPJ.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-3180

[Diego Foliene]

Em 20/10/2022 at 10:12, Paulo Casagrande disse:

Saudações

Problema encontrado: 

A SEFAZ, em alguns casos retorna '********' para os campos  DATA DA SITUAÇÃO CADASTRAL e/ou DATA DA SITUAÇÃO ESPECIAL e isso gera uma mensagem de erro.

Sugestão:

Substituir...

      FDataSituacao := StringToDateTimeDef(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO CADASTRAL')), 0);

      FDataSituacaoEspecial := StringToDateTimeDef(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO ESPECIAL')), 0);

por...

var

cData:string;

.....

    cData := trim(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO CADASTRAL')));
    if (cData + '*')[1] <> '*' then
      FDataSituacao := StringToDateTimeDef(cData, 0);
    cData := trim(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO ESPECIAL')));
    if (cData + '*')[1] <> '*' then
      FDataSituacaoEspecial := StringToDateTimeDef(cdata, 0);

Boa tarde!
O problema é que algumas consultas retornam ******** para o campo data e da erro de conversão.
Por favor, tem algum motivo para você ter usado dessa maneira?

if(cData + '*')[1] <> '*' then

Ao invés de ter usado o Pos?

if(Pos('*', cData)=0)then

 

[Victor H. Gonzales - Panda]

Em 20/10/2022 at 10:12, Paulo Casagrande disse:

Saudações

Problema encontrado: 

A SEFAZ, em alguns casos retorna '********' para os campos  DATA DA SITUAÇÃO CADASTRAL e/ou DATA DA SITUAÇÃO ESPECIAL e isso gera uma mensagem de erro.

Sugestão:

Substituir...

      FDataSituacao := StringToDateTimeDef(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO CADASTRAL')), 0);

      FDataSituacaoEspecial := StringToDateTimeDef(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO ESPECIAL')), 0);

por...

var

cData:string;

.....

    cData := trim(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO CADASTRAL')));
    if (cData + '*')[1] <> '*' then
      FDataSituacao := StringToDateTimeDef(cData, 0);
    cData := trim(LerCampo(Resposta, ACBrStr('DATA DA SITUAÇÃO ESPECIAL')));
    if (cData + '*')[1] <> '*' then
      FDataSituacaoEspecial := StringToDateTimeDef(cdata, 0);

Isso é exceção controlada.

é Apenas uma alerta, você está rodando isso em Debug.

em Runtime isso não ocorre.

Verifique em runtime por favor

[Diego Foliene]

Em 20/10/2022 at 20:25, Paulo Casagrande disse:

Conforme solicitado segue em anexo

ACBrConsultaCNPJ.pas 13.93 kB · 1 download

Boa tarde.
Após a realização de alguns testes verifiquei que a exceção é uma exceção tratada que só é levantada em debug.
Veja que a atribuição já usa um StringToDateTimeDEF() para o caso de dar algum problema na conversão.
Dito isso optamos por não acatar a sugestão.

Ainda assim agradecemos a intenção e reforçamos que contribuições são e sempre serão mais do que bem vindas.

[Paulo Casagrande]

Boa tarde

Ok, obrigado pelo retorno

att

Paulo Casagrande

[Cleber Ferreira]

Obrigado por reportar.

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