Thanks to all,

now it is working

i found also that when i copy the solution from the e-mail windows add some garbage invisible characters that make the XML invalid

when i copy the XML from the support site it did work.

Hi Andres,

I've updated your ticket 1980. Please use the following code or the attachment to verify if it works for you. (some code lost in the post)

ls_url ="https://efxpywsdev.informconf.com.py/Services/Personas.svc?wsdl"
ls_soap_action ='"http://tempuri.org/IPersonas/DatosPersonales"'
lo_xml_request = ''+&
''+&
''+&
' '+&
' '+&
' MARCELO_CLEMOTTE2_5053'+&
' Marcle0918!'+&
' 20.000.000B'+&
' 0'+&
' '+&
' '+&
''

lo_client = Create httpClient
lo_client.SetRequestHeader("Content-Type", "text/xml;charset=UTF-8")
lo_client.SetRequestHeader("SOAPAction", ls_soap_action)
lo_client.SetRequestHeader("Content-Length",string(len(lo_xml_request) ))
//lo_client.SetRequestHeader("Accept-Encoding", "gzip,deflate")
li_ret = lo_client.sendrequest('POST',ls_url,lo_xml_request )
li_StatusCode = lo_client.GetResponseStatusCode()
ls_ret = lo_client.GetResponseStatusText( )
li_ret = lo_client.getresponsebody( ls_data)
destroy lo_client

ls_url ="https://efxpywsdev.informconf.com.py/Services/Personas.svc?wsdl"
ls_soap_action ='"http://tempuri.org/IPersonas/DatosPersonales"'				
lo_xml_request = ''+&
''+&
''+&
'	'+&
'		'+&
'			MARCELO_CLEMOTTE2_5053'+&
'			Marcle0918!'+&
'			20.000.000B'+&
'			0'+&
'		'+&
'	'+&
''

lo_client = Create httpClient
lo_client.SetRequestHeader("Content-Type", "text/xml;charset=UTF-8")
lo_client.SetRequestHeader("SOAPAction", ls_soap_action) 
lo_client.SetRequestHeader("Content-Length",string(len(lo_xml_request) ))
//lo_client.SetRequestHeader("Accept-Encoding", "gzip,deflate")
li_ret = lo_client.sendrequest('POST',ls_url,lo_xml_request )
li_StatusCode = lo_client.GetResponseStatusCode()
ls_ret = lo_client.GetResponseStatusText( )
li_ret = lo_client.getresponsebody(  ls_data)
destroy lo_client

Regards,

Mark Lee

I am trying to use the Sendrequest but i can no find where to set the soapaction

Hi Andres,

I’ve made a simple SOAP web service and I can successfully call the of_test method using the SendRequest or PostData methods of HTTPClient object. See attached for detail.

We found that you webservice link is no longer accessible (https://efxpywsdev.informconf.com.py/Services/Personas.svc), so we can’t help you to verify if the HTTPClient also works with your current SOAP webservice. Theoretically, HTTPClient can support SOAP web services.

I suggest that you use a third party tool like Postman to test your current link and make sure you can successfully call the service and then re-write your PB code based on the same configuration using the HTTPClient.

Additionally, you will need to get a sample SOAP 1.X request and response from your SOAP web services provider to prepare the xml content properly in the ls_body variable.

In your case, I suggest that you use the SendRequest method instead of PostData as it is not sending a lot of data or a big file.  

Here below is the sample code:

SendRequest :

httpClient lo_client
integer li_ret , i , li_StatusCode
string ls_url ,ls_data,ls_body,ls_ret

ls_url ="http://localhost/invoice/n_webservice.asmx"			
ls_body = ''+&
''+&
'  '+&
'    '+&
'  '+&
''
lo_client = Create httpClient
lo_client.SetRequestHeader("Content-Type", "text/xml")
lo_client.sendrequest('POST',ls_url,ls_body)
li_StatusCode = lo_client.GetResponseStatusCode()
ls_ret = lo_client.GetResponseStatusText( )
li_ret = lo_client.getresponsebody(  ls_data)

destroy lo_client

PostData :

httpClient lo_client
integer li_ret, li_StatusCode 
long		i,	ll_len, ll_count
string ls_url ,ls_data,ls_body,ls_ret, ls_newdata, ls_newurl
blob 		lb_data, lb_newdata

ls_url ="http://localhost/invoice/n_webservice.asmx"			
ls_body = ''+&
''+&
'  '+&
'    '+&
'  '+&
''
lo_client = Create httpClient
lo_client.SetRequestHeader("Content-Type", "text/xml")
lb_data = Blob(ls_body, EncodingUTF8!)
lo_client.SetRequestHeader("Content-Length", string(Len(lb_data)))
lo_client.secureprotocol = 0 
ll_count  = Ceiling(len(lb_data) / 1024 ) 
if lo_client.PostDataStart(ls_url) = 1 then
	for i = 1 to ll_count
		lb_newdata = BlobMid(lb_data, (i -1 )* 1024 +1, 1024)
		li_ret = lo_client.PostData(lb_newdata, Len(lb_newdata)  * 2)
		if li_ret <> 1 then exit
	next
end if
if li_ret = 1 then
	li_ret = lo_client.PostDataEnd()
end if
li_StatusCode = lo_client.GetResponseStatusCode()		
ls_ret = lo_client.GetResponseStatusText( )
li_ret = lo_client.getresponsebody( ls_data)
destroy lo_client

Regards,

Mark Lee