Help needed setting up http_fetch

[DDPMarc]

Hey all,

I'm trying to wrap my head around getting this to work. I need to make some calls to an API and get the response. It does not need to have ssl active The credentials in the code are live test credentials and will provide a response. I'm not sure if I am putting the right stuff in the right place. After weeks of reading every post I can find on the forum about the http functions I think the code Steve has up will do the trick if I can modify it correctly.

The test service is located here for documentation purposes http://wsd.adminscreen.net/evolution...CostPriceBySKU
The service can be called directly from a browser http://wsd.adminscreen.net/evolution.asmx/ViewCostPriceBySKU?ServerID=1&TokenKey=42274449465b2c744c7461645649666c7c4865747a6b7a282f433d797d&Password=test1&SkuID=unv21200

Once I get the request down I'll start working on what to do with it. I plan on setting it in fields to save to a database table.

<%a5
dim req	 as p
dim req.body	 as c = ""
dim req.header	 as c = ""
dim req.host	 as c = "wsd.adminscreen.net"
dim req.method	 as c = "POST"
dim req.page	 as c = "/ViewCostPriceBySKU"
dim req.ssl_on	 as l = .f.
dim req.ssl_validatecert	as l = .f.
dim req.timeout	 as n = 10000
dim resp	 as p

req.header = <<%a%
text/xml; charset=utf-8 %a%

req.body = <<%xml%
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<ViewCostPriceBySKU xmlns="http://wsd.adminscreen.net">
<ServerID>1</ServerID>
<TokenKey>42274449465b2c744c7461645649666c7c4865747a6b7a282f433d797d</TokenKey>
<Password>test1</Password>
<SkuID>unv21200</SkuID>
</ViewCostPriceBySKU>
</soap:Body>
</soap:Envelope>
%xml%

resp = http_fetch(Req)

Any assistance is appreciated

[Steve Wood]

Re: Help needed setting up http_fetch

Your req.page does not appear to be accurate. The URL is http://wsd.adminscreen.net/evolution...CostPriceBySKU, so:

req.host = "wsd.adminscreen.net"
req.page = "/evolution.asmx"
req.query_string = "op=ViewCostPriceBySKU"

[DDPMarc]

Re: Help needed setting up http_fetch

Steve, thanks for the reply.

It is my understanding that the url http://wsd.adminscreen.net/evolution...CostPriceBySKU is just for testing as it is a page with a form the actual page that gives a response is http://wsd.adminscreen.net/evolution...CostPriceBySKU with the added parameters in the URL. I may be wrong, but I thought the form page is just a place to enter the request data to send to the request page for manual testing.

[DDPMarc]

Re: Help needed setting up http_fetch

I did notice this though, I was missing http://wsd.adminscreen.net/evolution.asmx/ in the url.

[DDPMarc]

Re: Help needed setting up http_fetch

Ok, well I'v tried your suggestion Steve, but I'm still getting the same results.

<%a5
dim req	 as p
req.body = ""
req.header = ""
req.host = "wsd.adminscreen.net"
req.method = "POST"
req.page = "/evolution.asmx"
req.query_string = "op=ViewCostPriceBySKU"
req.ssl_on as l = .f.
req.ssl_validatecert as l = .f.
req.timeout as n = 10000
resp as p

req.header = <<%a%
text/xml; charset=utf-8 %a%

req.body = <<%xml%
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<ViewCostPriceBySKU xmlns="http://wsd.adminscreen.net">
<ServerID>1</ServerID>
<TokenKey>42274449465b2c744c7461645649666c7c4865747a6b7a282f433d797d</TokenKey>
<Password>test1</Password>
<SkuID>unv21200</SkuID>
</ViewCostPriceBySKU>
</soap:Body>
</soap:Envelope>
%xml%

resp = http_fetch(req)

This give me

?resp
= body = 
error_code = 1
error_text = "Host must be specified."
headers = ""
+parsed_headers.

?req
= body = ""
cookie = ""
header = ""
host = ""
method = ""
page = "/evolution.asmx"
port = 0
protocol = ""
query_string = ""
referer = ""
ssl_on = .F.
ssl_ValidateCert = .T.
timeout = 0
user_agent = ""

I don't understand why it would have a "Host must be specified." error since I have one.

[DDPMarc]

Re: Help needed setting up http_fetch

Well this is very strange, but I couldn't get http_get to work earlier with the exact same code, but now it is working and giving me a response in the interactive window.

dim response as p
dim url as c

url = "http://wsd.adminscreen.net/evolution.asmx/ViewCostPriceBySKU?ServerID=1&TokenKey=42274449465b2c744c7461645649666c7c4865747a6b7a282f433d797d&Password=test1&SkuID=unv21200"

response = http_get(url)
?response.body
= <?xml version="1.0" encoding="utf-8"?>
<DataSet xmlns="http://wsd.adminscreen.net">
  <xs:schema id="NewDataSet" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
    <xs:element name="NewDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true">
      <xs:complexType>
        <xs:choice minOccurs="0" maxOccurs="unbounded">
          <xs:element name="ViewCostPriceBySKU">
            <xs:complexType>
              <xs:sequence>
                <xs:element name="idcostprice" type="xs:int" minOccurs="0" />
                <xs:element name="idproduct" type="xs:int" minOccurs="0" />
                <xs:element name="sku" type="xs:string" minOccurs="0" />
                <xs:element name="cost" type="xs:double" minOccurs="0" />
                <xs:element name="date_added" type="xs:dateTime" minOccurs="0" />
                <xs:element name="external_id" type="xs:string" minOccurs="0" />
                <xs:element name="idsupplier" type="xs:int" minOccurs="0" />
              </xs:sequence>
            </xs:complexType>
          </xs:element>
        </xs:choice>
      </xs:complexType>
    </xs:element>
  </xs:schema>
  <diffgr:diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:diffgr="urn:schemas-microsoft-com:xml-diffgram-v1">
    <NewDataSet xmlns="">
      <ViewCostPriceBySKU diffgr:id="ViewCostPriceBySKU1" msdata:rowOrder="0">
        <idcostprice>37214208</idcostprice>
        <idproduct>9877</idproduct>
        <sku>UNV21200</sku>
        <cost>168.32</cost>
        <date_added>2013-07-16T11:23:27-05:00</date_added>
        <idsupplier>1</idsupplier>
      </ViewCostPriceBySKU>
    </NewDataSet>
  </diffgr:diffgram>
</DataSet>

So I think I will use this instead of fetch, and need to figure out how to parse the xml response and load it into the database.

[Lenny Forziati]

Re: Help needed setting up http_fetch

Your page, query_string and header values are incorrect, and your XML body is missing a closing tag. The following should work as expected.

req.body = ""
req.header = ""
req.host = "wsd.adminscreen.net"
req.method = "POST"
[COLOR="#FF0000"]req.page = "/evolution.asmx/ViewCostPriceBySKU"
req.query_string = ""[/COLOR]
req.ssl_on as l = .f.
req.ssl_validatecert as l = .f.
req.timeout as n = 10000
[COLOR="#FF0000"]dim[/COLOR] resp as p

[COLOR="#FF0000"]req.header = "Content-Type: text/xml"[/COLOR]


req.body = <<%xml%
#<?xml version="1.0" encoding="utf-8"?>
#<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<ViewCostPriceBySKU xmlns="http://wsd.adminscreen.net">
<ServerID>1</ServerID>
<TokenKey>42274449465b2c744c7461645649666c7c4865747a6b7a282f433d797d</TokenKey>
<Password>test1</Password>
<SkuID>unv21200</SkuID>
</ViewCostPriceBySKU>
</soap:Body>
</soap:Envelope>
[COLOR="#FF0000"]</xml>[/COLOR]
%xml%

resp = http_fetch(req)

[DDPMarc]

Re: Help needed setting up http_fetch

Lenny thanks for the input, I may look back into fetch later but I'm getting good results now from get so I'll just stick with that.

Now if I can just figure out why pasting code into the interactive window won't run correctly.

[DDPMarc]

Re: Help needed setting up http_fetch

So I have the code getting responses now and i'm re coding this to work with API function I really want to use but I'm having difficulty getting the current record data into variables to use in the url variable.

This worked for me in the last function i was helped in putting together, but now its not recognizing the function I'm trying to use to get the data from the current record. Not sure why it work in one function and not another.

I'm trying to use e._currentRowDataNew.FieldName to get the current field data from the current record.

function addEvoCustomer as c (e as p)
	
	debug(1)
	dim response as p
	
	dim id_customer as c
	
	'web service address and credential variables
	dim address as c
	dim opperation as c
	dim server_id as c
	dim tokenKey as c
	dim ws_password as c
	
	'AddCustomer Values variables
	dim User_CustomerTypeID as c
	dim User_FullName as c
	dim User_CompanyName as c
	dim User_Telephone as c
	dim User_Email as c
	dim User_Password as c
	dim Internal_Account as c
	dim External_ID as c
	
	dim customer_id as n
	
	'url variable
	dim url as c
	
	
	'Values to add Customer
	address = "wsd.adminscreen.net"
	opperation = "/evolution.asmx/AddCustomer?"
	server_id = "ServerID=1"
	tokenKey = "&TokenKey=42274449465b2c744c7461645649666c7c4865747a6b7a282f433d797d"
	ws_password = "&Password=test1"
	
	
	User_CustomerTypeID ="&User_CustomerTypeID="
	User_FullName ="&User_FullName="
	User_CompanyName ="&User_CompanyName="
	User_Telephone ="&User_Telephone="
	User_Email ="&User_Email="
	User_Password ="&User_Password="
	Internal_Account ="&Internal_Account="
	External_ID ="&External_ID="
	
	User_CustomerTypeID = User_CustomerTypeID+e._currentRowDataNew.Customer_Type
	User_FullName = User_FullName+e._currentRowDataNew.First_Name+e._currentRowDataNew.First_Name
	User_CompanyName = User_CompanyName+e._currentRowDataNew.Account
	User_Telephone = User_Telephone+e._currentRowDataNew.Phone1
	User_Email = User_Email+e._currentRowDataNew.Email
	User_Password = User_Password+e._currentRowDataNew.Password
	Internal_Account = Internal_Account+e._currentRowDataNew.Dove_Account
	External_ID = External_ID+e._currentRowDataNew.Dove_Account
	
	
	
	customer_id = e._currentRowDataNew.Customer_ID
	id_customer = +e._currentRowDataNew.EVO_Customer_ID
	
	response.body as c = ""
	
	url = address+opperation+server_id+tokenKey+ws_password+User_CustomerTypeID+User_FullName+User_CompanyName+User_Telephone+User_Email+User_Password+Internal_Account+External_ID
	
	if 	id_customer > 0
		addEvoCustomer = "alert ('This Customer has already been added to EVO')"
	else
		response = http_get(url)
		
		if .not. eval_valid("response.body")
			ui_msg_box("Error","The function did not work",UI_STOP_SYMBOL)
		else
			
			responce.body = extract_string(response.body,"<idcustomer>","</idcustomer>",1,.f.)
			'===============================================
			dim cn as sql::Connection
			dim result as l
			
			result = cn.Open("::Name::evo_utility_db_connection") 'connect to database with named connection
			if result then
				
				dim sqlUpdate as c
				sqlUpdate = "UPDATE customers SET EVO_Customer_ID = (:NewID) WHERE Customer_ID = (:NewCustomer_ID)" 'update customer with new group_accounts group_id in the id_goup field
				args.add("NewID",response.body)
				args.add("NewCustomer_ID",customer_id)
				result = cn.Execute(sqlUpdate,args)
				if result then
					
					addEvoCustomer = "alert('Your Customer was added to EVO!');"
					e._set.EVO_Customer_ID.value = response.body
				else
					addEvoCustomer = "alert('Could not add Customer to EVO!');"
				end if
				
				
				cn.close()
			else
				addEvoCustomer = "alert('Could not connect to database!');"
				
			end if
		end if
	end if
	
	
	
end function

Thanks again for any assistance.

[DDPMarc]

Re: Help needed setting up http_fetch

Figured it out. There is a little check box with "Compute current row data"