A Simoes, Zé Quintas,
Muito Obrigado pela Ajuda viu!
Deu tudo certinho, funcionou tudo 100% com proxy
METHOD MicrosoftXmlSoapPost() CLASS SefazClass
LOCAL oServer, nCont, cRetorno := "Erro: Na comunicação SOAP"
LOCAL cSoapAction
LOCAL cProxy := "192.168.3.1:3128" //::cProxy
cSoapAction := ::cSoapAction
BEGIN SEQUENCE WITH __BreakBlock()
oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP.6.0" )
IF ::cCertificado != NIL
oServer:setOption( 3, "CURRENT_USER\MY\" + ::cCertificado )
ENDIF
oServer:SetProxy(2 , cProxy)
oServer:Open( "POST", ::cWebService, .F. )
oServer:SetRequestHeader( "SOAPAction", cSoapAction )
oServer:SetRequestHeader( "Content-Type", "application/soap+xml; charset=utf-8" )
oServer:Send( ::cXmlSoap )
oServer:WaitForResponse( 500 )
cRetorno:= oServer:ResponseBody
ENDSEQUENCE