<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:v1="http://www.esocial.gov.br/servicos/empregador/lote/eventos/envio/v1_1_0">
<soap:Body>
<eSocial xmlns="http://www.esocial.gov.br/schema/lote/eventos/envio/consulta/retornoProcessamento/v1_1_0">
<consultaLoteEventos>
<protocoloEnvio>1.2.201709.0000000000000225594</protocoloEnvio>
</consultaLoteEventos>
</eSocial>
</soap:Body>
</soap:Envelope>
Codigo do PRG, porem não tenho nenhuma experiencia com web service e SOAP, alguém poderia me dar alguma dica, se alguem consegue testar este xml pra mim
#include "fivewin.ch"
#include "directry.ch"
FUNCTION Main
LOCAL aRetorno:={} , cOk := .t.
Local Url := 'https://webservices.producaorestrita.esocial.gov.br/servicos/empregador/consultarloteeventos/WsConsultarLoteEventos.svc'
Local SOAPAction := 'http://www.esocial.gov.br/servicos/empregador/lote/eventos/envio/consulta/retornoProcessamento/v1_1_0/ServicoConsultarLoteEventos/ConsultarLoteEventos'
? "Iniciando....Comunicando com o WebService..."+Time()
//Alerta(url)
xmldom = CREATEOBJECT("MSXML2.DOMDocument")
xmldom:async = .f.
xmldom:validateOnParse = .T.
xmldom:resolveExternals := .F.
xmldom:preserveWhiteSpace = .T.
xmldoc = CREATEOBJECT("MSXML2.XMLHTTP")
xmldoc:open("POST", url, .f.)
xmldoc:SetRequestHeader( "Content-Type" , "text/xml; charset=utf-8" )
xmldoc:SetRequestHeader( "SOAPAction" , SOAPAction)
//-- Montando o Xml pra consulta
Texto := DadosDM()
MEMOWRIT(".\Envio\envia.xml",Texto,.F.)
xmldom:LoadXML(Texto)
IF xmldom:parseError:errorCode = 0
//? "XML Carregado"
ELSE
cErrorMsg = "Não foi possÃvel carregar o documento pois ele não corresponde ao seu Schema"
cErrorMsg += cErrorMsg + " Linha: " + STR(xmldom:parseError:line) + cCRLF
cErrorMsg += cErrorMsg + " Caractere na linha: " + STR(xmldom:parseError:linepos) + cCRLF
cErrorMsg += cErrorMsg + " Causa do erro: " + xmldom:parseError:reason + cCRLF
cErrorMsg += "code: "+STR(xmldom:parseError:errorCode)
msgstop(cErrorMsg)
ENDIF
xmldoc:send(xmldom:xml)
//? "Comunicando com o WebService..."+Time()
DO WHILE xmldoc:readyState <> 4
MILLISEC(50)
ENDDO
Linha :=xmldoc:responseText
Linha2:=xmldoc:responseXML:xml
MEMOWRIT(".\Envio\envio01.xml",Linha,.F.)
MEMOWRIT(".\Envio\consulta.xml",Linha2,.F.)
RETURN cOk
//------------------------------------------------------
Static Function DadosDM()
cChaveNFe:="1.2.201709.0000000000000225594"
** monta soap aqui
sConteudo :='<?xml version="1.0" encoding="utf-8"?>'
sConteudo += '<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:v1="http://www.esocial.gov.br/servicos/empregador/lote/eventos/envio/v1_1_0">'
sConteudo += '<soap:Body>'
sConteudo += '<eSocial xmlns="http://www.esocial.gov.br/schema/lote/eventos/envio/consulta/retornoProcessamento/v1_0_0">'
sConteudo += '<consultaLoteEventos>'
sConteudo += '<protocoloEnvio>'+cChaveNFe+'</protocoloEnvio>'
sConteudo += '</consultaLoteEventos>'
sConteudo += '</eSocial>'
sConteudo += '</soap:Body>'
sConteudo += '</soap:Envelope>'
Return (sConteudo)