NFSe - IPM

[LMI]

Boa tarde a todos, alguém do grupo já conseguiu enviar arquivo XML da NFSe para a IPM? Estou autenticando, mas não consego enviar o arquivo, eu uso exemplo do HBNFe nas NFe´s e tudo funciona, já fiz as alterações:

Código: Selecionar todos

TRY
//   oServerWS:=win_oleCreateObject( 'MSXML2.ServerXMLHTTP.5.0' )
//   oServerWS:=win_oleCreateObject( 'MSXML2.ServerXMLHTTP.3.0' )
//   oServerWS:=win_oleCreateObject( 'MSXML2.XMLHTTP.6.0' )
   oServerWS:=win_oleCreateObject( 'MSXML2.XMLHTTP' )
CATCH
   MsgInfo('Erro ao criar servidor HTTP !!!')
   RETURN
END
_cBoundary := '----WebKitFormBoundary7MA4YWxkTrZu0gW'
//oServerWS:open("POST",'https://ws-saojose.atende.net:7443/?pg=rest&service=WNERestServiceNFSe',.F.)
oServerWS:open("POST",'https://saojose.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao',.F.)
oServerWS:setRequestHeader("Authorization","Basic "+_cBase64Encode)
oServerWS:setRequestHeader("Host","saojose.atende.net")
oServerWS:setRequestHeader("content-type", "multipart/form-data; boundary="+_cBoundary)
* Autêntica
 
TRY
   oServerWS:Send(_cXml)
CATCH
   Rotina('!!! ERRO no Envido do XML !!!')
END
*Não Envia

_Status   := oServerWS:STATUS
* Retorna Status 200

_cRetorno := oServerWS:ResponseText  //Resposta Web Server

*Retorna:

<retorno>
<mensagem>
<codigo>9999 - Arquivo XML da Nota Fiscal de Servi?Eletr?a n?enviado!</codigo>
</mensagem>
</retorno>

Alguém tem uma ideia de como resolver?

Obrigado.

[JoséQuintas]

*Retorna:

<retorno>
<mensagem>
<codigo>9999 - Arquivo XML da Nota Fiscal de Servi?Eletr?a n?enviado!</codigo>
</mensagem>
</retorno>

Alguém tem uma ideia de como resolver?

Não vi nada dessa mensagem no fonte, então suponho que a comunicação funcionou e esse seja o retorno.
Em todo caso, teste alterando esta parte:

Código: Selecionar todos

      oServerWS:SetRequestHeader( "Content-Type", "application/soap+xml; charset=utf-8" )