FiveTech Support Forums

      TRY
         oSoap := CreateObject( "MSSOAP.SoapClient30" )
         oSoap:msSoapInit( "http://localhost:8089/open/services/AbsenceFileService?wsdl" )
         // oSoap:msSoapInit( "http://user:passw@localhost:8089/open/services/AbsenceFileService?wsdl" )
         // si trato de poner el usuario en la URL, falla la funcion msSoapInit
         oSoap:ClientProperty("ServerHTTPRequest")
         // en VBA el usuario y la contraseña se ponen así
         // oSoap:ConnectorProperty("AuthUser" ) = 'user'
         // oSoap:ConnectorProperty("AuthPassword") = 'passwd'
         // Y es lo que no he sabido reemplazar con Harbour
         // Cosas que he probado:

         oSoap:ConnectorProperty:AuthUser:= 'user'
         // Argument Error

         oSoap:ConnectorProperty:AuthUser( 'user' )
         // Argument Error

         oSoap:ConnectorProperty("AuthUser", 'user' )
         // Argument Error

         oSoap:ConnectorProperty("AuthUser") := 'user' 
         // No compila, invalid lValue

         oSoap:ConnectorProperty("AuthUser"):Value := 'user' 
         // No exported variable

         oSoap:AuthUser:= 'user'
         // No exported variable

         MsgInfo( ValType( oSoap:ConnectorProperty("AuthUser") ) ) // -> '' en blanco, no tiene tipo, ni siquiera 'U'

         oSoap:ConnectorProperty("AuthPassword"):Value := 'passwd'
         // Not exported variable

      CATCH oError
         MsgStop( oError )
         Quit
      END TRY

#include "FiveWin.ch"

Function Main()
local url
local doc, ohttp, response, cxml
URL:="https://www.sunat.gob.pe/ol-it-wsconscpegem/billConsultService"
doc:=CreateObject( "MSXML2.DOMDocument" )
ohttp:=createobject( "Microsoft.XMLHTTP")

ohttp:Open( "POST" , URL , .F. )
ohttp:SetRequestHeader("Content-Type" ,"text/xml; charset=utf-8")
Ohttp:SetRequestHeader( "SOAPAction" , "getStatus" )

//autenticar(string,string) funcion que se encuntra en el servidor WS


cxml:=""    //'<?xml version="1.0" encoding="UTF-8"?>'
cxml:=cxml+'<soapenv:Envelope xmlns:ser="http://service.sunat.gob.pe"'+chr(13)
cxml:=cxml+'xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"'+CHR(13)
cxml:=cxml+'xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">'+CHR(13)
cxml:=cxml+"<soapenv:Header>"
cxml:=cxml+"<wsse:Security>"
cxml:=cxml+"<wsse:UsernameToken>"
cxml:=cxml+"<wsse:Username>xxxx</wsse:Username>"
cxml:=cxml+"<wsse:Password>xxxx</wsse:Password>"
cxml:=cxml+"</wsse:UsernameToken>"
cxml:=cxml+"</wsse:Security>"
cxml:=cxml+"</soapenv:Header>"
cxml:=cxml+"<soapenv:Body>"
cxml:=cxml+"<ser:getStatus>"
cxml:=cxml+"<rucComprobante>xxxxxx</rucComprobante>"
cxml:=cxml+"<tipoComprobante>xxxx</tipoComprobante>"
cxml:=cxml+"<serieComprobante>xxxx</serieComprobante>"
cxml:=cxml+"<numeroComprobante>xxxx</numeroComprobante>"
cxml:=cxml+"</ser:getStatus>"
cxml:=cxml+"</soapenv:Body>"
cxml:=cxml+"</soapenv:Envelope>"
doc:LoadXML( cXml ) //carga el documento a xml
? cxml
ohttp:send(doc:xml)
response:= ohttp:responseText

?response

return .t.