Function TentaPegarMensagemErroDetalhada diretiva DELPHILANGUAGE

[Antonio Gomes]

Gostaria que conferissem por favor, sobre a falta da declaração {$I ACBr_jedi.inc} no topo da unit ACBrDFeXsLibXml2, onde a mesma, faz uso da chamada de uma diretiva, que está dentro dessa .inc

Diretiva: DELPHILANGUAGE

Isso ocorre o erro na validação da NF-e, onde fica aparecendo apenas o número do erro 1824, de erro de campo de inscricao estadual no caso. Erro que retorna: 

"Falha na validação dos dados da nota: 1232

 --> 1824"

função:

function TDFeSSLXmlSignLibXml2.TentaPegarMensagemErroDetalhada(const MsgErroAtual: string): String;
var
  prtUltimoErroXml: xmlErrorPtr;
begin
  Result := '';
  prtUltimoErroXml := xmlGetLastError();
  if prtUltimoErroXml = nil then
  begin
    Result := MsgErroAtual;
    Exit;
  end;

  Result := MsgErroAtual + ' --> ' + IntToStr(prtUltimoErroXml^.code);

  {$IFDEF DELPHILANGUAGE}
    {$IFDEF WINDOWS}
      if (prtUltimoErroXml^.message <> nil) then
        Result := Result + ' - ' + prtUltimoErroXml^.message;
    {$ENDIF}
  {$ELSE}
      if (prtUltimoErroXml^.message <> nil) then
        Result := Result + ' - ' + prtUltimoErroXml^.message;
  {$ENDIF}
end;
 

Inclusive, está até estranho, o código é igual.

[Antonio Gomes]

foi resolvido já. 

[Juliomar Marchetti]

Obrigado por reportar.

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