Se não for o limpalista()
coloca nesse código:
Onde tem if !Empty(hResult)
bufferLen := STR_LEN
buffer := Space(bufferLen)
oErr := DllCall(oDll, DLL_STDCALL, "NFE_UltimoRetorno", @buffer, @bufferLen)
MsgStop(buffer, "Erro: "+Str(hResult))
endif
coloca
Onde tem if !Empty(hResult)
bufferLen := STR_LEN
If bufferLen > STR_LEN
buffer := Space(bufferLen + 256 )
endif
buffer := Space(bufferLen)
oErr := DllCall(oDll, DLL_STDCALL, "NFE_UltimoRetorno", @buffer, @bufferLen)
MsgStop(buffer, "Erro: "+Str(hResult))
endif
Paulo