Bom dia a todos,
Estou com um problema no e-Social. Aproveitando rotina do J. QUINTAS (desculpe se for de outro) neste fórum, estou tentando enviar xml para produção restrita xml de teste e venho recebendo a mensagem: "Argument error".
Peguei a rotina e detalhei... com TRY para tentar identificar se o erro é na rotina de envio( que alterei ):
cURL_Envio := "https://webservices.producaorestrita.esocial.gov.br/servicos/empregador/enviarloteeventos/WsEnviarLoteEventos.svc"
cCertificado := "XXXX"
cSOAPAction := "http://www.esocial.gov.br/servicos/empregador/lote/eventos/envio/v1_1_0/ServicoEnviarLoteEventos/EnviarLoteEventos"
//
*----------------------------------------------------------------------------*
TRY
oServer := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' )
CATCH
oServer := CreateObject( 'MSXML2.XMLHTTP' )
END
//
*----------------------------------------------------------------------------*
cMensagem += "Iniciando conexão com o e-social..."
Exibir_Mensagem()
//
*----------------------------------------------------------------------------*
cMensagem += "Verificando certificado: " + cCertificado
Exibir_Mensagem()
TRY
oServer:SetOption( 3, cCertificado )
TRY
//
*------------------------------------------------------------------------*
cMensagem += "Certificado validado."
Exibir_Mensagem()
//
*------------------------------------------------------------------------*
cMensagem += "Conectando ao webservice(POST): " + cURL_Envio
Exibir_Mensagem()
oServer:Open( "POST", cURL_Envio, .F. )
TRY
//
*----------------------------------------------------------------------*
cMensagem += "Conectado ao webservice (POST)."
Exibir_Mensagem()
oServer:SetRequestHeader( "SOAPAction", cSOAPAction )
oServer:SetRequestHeader( "Content-Type", "text/xml; charset=utf-8" )
TRY
cMensagem += "Enviando XML: " + CRLF + cXML
Exibir_Mensagem()
oServer:Send( cXML )
oServer:WaitForResponse( 500 )
cRetorno := oServer:ResponseBody()
cMensagem += "Resposta: " + cRetorno
Exibir_Mensagem()
cMensagem += "Resposta servidor: " + oServer:status + " - " + oServer:statusText
Exibir_Mensagem()
CATCH oError
cMensagem += "*** Erro no envio do XML - " + oError:Description
Exibir_Mensagem()
END
CATCH oError
cMensagem += "*** Erro na conexão com o webservice(ACTION) - " + oError:Description
Exibir_Mensagem()
END
CATCH oError
cMensagem += "*** Erro na conexão com o webservice(POST) - " + oError:Description
Exibir_Mensagem()
END
CATCH oError
cMensagem += "*** Erro na validação do certificado - " + oError:Description
Exibir_Mensagem()
END
oServer := NIL
o erro aparentemente ocorre na SOAPAction.
Iniciando...
Assinando XML: 201901_06352431000101_1000-esocial-evt.xml
Arquivo 201901_06352431000101_1000-esocial-evt.xml assinado com sucesso.
Iniciando conexão com o e-social...
Verificando certificado: XXXX
Certificado validado.
Conectando ao webservice(POST): https://webservices.producaorestrita.es ... ventos.svc
Conectado ao webservice (POST).
Enviando XML: C:\Sistemas\ESocial\Envio\teste.xml
*** Erro no envio do XML - Argument error
*---------------------------------------------------------------------------------------------------------------------------------------------------------*
Aqui a parte de envelopamento do XML:
cEnvelope_XML := '<?xml version="1.0" encoding="utf-8"?>'
cEnvelope_XML += '<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">'
cEnvelope_XML += '<soap:Body>'
cEnvelope_XML += '<EnviarLoteEventos xmlnm="http://www.esocial.gov.br/schema/lote/eventos/envio/v1_1_1">'
cEnvelope_XML += '<eSocial xmlns="http://www.esocial.gov.br/schema/lote/eventos/envio/v1_1_1">'
Alguem poderia ajudar?
Desde já agradeço.
Att.,
Oliveiros Junior