Retorno inválido MySQL ???

[JoséQuintas]

SYSTEM ERROR
Error BASE/1108 Argument error: AT
Called from AT(0)
Called from XMLNODE(143)
Called from JPMDFCABCLASS:ENCERRAMDFE(297)
Called from JPMDFCABCLASS:USERFUNCTION(110)
Called from JPMDFCABCLASS:EXECUTE(364)
Called from PJPMDFCAB(19)
Called from DO(0)
Called from DOPRG(154)
Called from (b)RUNMODULE(118)
(1) = Tipo: C Valor: "<nProt>"
(2) = Tipo: U

Usuário já foi embora não deu tempo de confirmar.

Código: Selecionar todos

   cXml := cnSQL:ExecuteReturnValue( "SELECT COALESCE( XXXML, '' ) FROM JPXML20" + Substr( cChave, 3, 2 ) + " WHERE XXCHAVE=" + StringSQL( cChave ) + " AND XXEVENTO='110100'" )
   xProtocolo := XmlNode( cXml, "nProt" )
   IF Empty( xProtocolo )
      MsgExclamation( "Não foi possível localizar o protocolo de emissão" )
      RETURN Nil
   ENDIF

COALESCE() impede retorno NULL.
A única possibilidade que vejo é se retornou mais de um registro, o que não deveria acontecer, já que só existiria um XML de autorização.
Confirmar amanhã qual é o manifesto que está gerando o erro.

[JoséQuintas]

Não.
COALESCE() não evita EOF()

[JoséQuintas]

Código: Selecionar todos

   cXml := cnSQL:ExecuteReturnValue( "SELECT COALESCE( XXXML, '' ) FROM JPXML20" + Substr( cChave, 3, 2 ) + " WHERE XXCHAVE=" + StringSQL( cChave ) + " AND XXEVENTO='110100'" )
   IF cXml == Nil
      MsgExclamation( "Não foi possível localizar o XML de autorização" )
      RETURN Nil
   ENDIF
   xProtocolo := XmlNode( cXml, "nProt" )
   IF Empty( xProtocolo )
      MsgExclamation( "Não foi possível localizar o protocolo de emissão" )
      RETURN Nil
   ENDIF

Acho que isso vai resolver O ERRO, a situação vejo depois.

[JoséQuintas]

Deve ter ocorrido falha na fazenda, e o MDFE ficou sem autorização, e sem XML.
E o sistema considerou que estava autorizado.

É a primeira vez que isso acontece em 9 anos.

[JoséQuintas]

Pois é....

Agora que não tem mais os erros inexplicáveis....
Apareceu um com explicação kkkkk
Parece até piada isso, porque nunca aconteceu esse.