How to create REST API POST working in Alpha WAS

[Khanafi]

Solved, I remove the P type

define class REST::myRestAPI 
function createNewCustomer as p (newCustomer as REST::myRestAPI::newCustomer)
    dim CustomerID as c = newCustomer.CustomerID
    dim CompanyName as c = newCustomer.CompanyName
    dim ContactName as c = newCustomer.ContactName    
    dim ContactTitle as c = newCustomer.ContactTitle

	dim cn as sql::connection
	dim flag as l 
	flag = cn.open("::Name::northwind")
	if flag = .f. then 
		'there was an error
		dim errorText as c 
		errorText = cn.callresult.text
		end
	end if 
	'turn on portable SQL
	cn.PortableSQLEnabled = .t.
	dim SQL as c 
	sql = "INSERT INTO customers(CustomerID,CompanyName,ContactName,ContactTitle) VALUES (:CustomerID,:CompanyName,:ContactName,:ContactTitle)"
	dim args as sql::arguments
	args.add("CustomerID",CustomerID)
	args.add("CompanyName",CompanyName)
	args.add("ContactName",ContactName)
	args.add("ContactTitle",ContactTitle)
	'execute the SQL
	flag = cn.execute(sql,args)
	if flag = .f. then 
		'there was an error
		dim errorText as c 
		errorText = cn.callresult.text
		cn.close()
		end
	end if 
	dim rowsInserted as n 
	'get the number of rows that were inserted
	rowsInserted = cn.CallResult.rowsaffected
	cn.close()


'TIP: You can also use the sql_insert() helper function instead of using the low-level Xbasic commands
'dim field_value_pairs as c
'field_value_pairs = <<%txt
'CustomerID=CustomerID
'CompanyName=CompanyName
'ContactName=ContactName
'ContactTitle=ContactTitle
'%txt%
'dim cn as sql::connection
'cn.open("::Name::northwind")
'dim p as p
'p = sql_insert(cn,"customers",field_value_pairs )
'flagHasError = p.error
'errorText = p.errorText 


end function 

end class


define class REST::myRestAPI::newCustomer
    dim CustomerID as c
    dim CompanyName as c
    dim ContactName as c	
	dim ContactTitle as c
end class

removed
define class REST::myRestAPI::ContactName
dim FirstName as c
dim LastName as c
end class



Regards,

Khanafi

[Khanafi]

Re: How to create REST API POST working in Alpha WAS

Has anyone success to play with DELETE and PUT with REST API Build
I need guide, mine doesn't working :/

and when it is published it always ask for http://127.0.0.1:80/LivePreview/
why on earth it always refer to LivePreview

I am using latest build on 11 January 2019,

5581-5237


curl -X DELETE "http://127.0.0.1:80/LivePreview/customeInfo.a5svc/deleteUser" -H "accept: application/json" -H "content-type: application/json" -d "{ "deleteCustomer": { "CustomerID": "ZZZZZ" }}"

define class REST::myRestAPI


'DELETE ----------------------------------------------------------  
function deleteUser as c(deleteCustomer as REST::myRestAPI::deleteCustomer)
	dim CustomerID as c = deleteCustomer.CustomerID
	
    dim cn as sql::connection
	dim flag as l
	flag = cn.open("::Name::northwind")
	if flag = .f. then
	'there was an error
	dim errorText as c
	errorText = cn.callresult.text
	end
	end if
	
	'turn on portable SQL
	cn.PortableSQLEnabled = .t.
	dim SQL as c
	sql = "DELETE FROM Customers WHERE CustomerID = :CustomerID"
	dim args as sql::arguments
	args.add("CustomerID", CustomerID)
	
	'execute the SQL
	flag = cn.execute(sql,args)
	
	if flag = .f. then
	'there was an error
	
	dim errorText as c
	errorText = cn.callresult.text
	cn.close()
	end
	end if
	
	dim rowsInserted as n
	'get the number of rows that were inserted
	rowsInserted = cn.CallResult.rowsaffected
	cn.close()
	
	debug()
	
end function


'UPDATE ----------------------------------------------------------  
function updateExistingCustomer as p (updateCustomer as REST::myRestAPI::updateCustomer)
	dim CustomerID as c = updateCustomer.CustomerID
	dim CompanyName as c = updateCustomer.CompanyName
	dim ContactName as c = updateCustomer.ContactName
	dim ContactTitle as c = updateCustomer.ContactTitle
	dim ContactTitle as c = updateCustomer.ContactTitle
	dim Address as c = updateCustomer.Address
	dim City as c = updateCustomer.City
	dim Region as c = updateCustomer.Region
	dim PostalCode as c = updateCustomer.PostalCode
	dim Country as c = updateCustomer.Country
	dim Phone as c = updateCustomer.Phone
	dim Fax as c = updateCustomer.Fax
	
    dim cn as sql::connection
	dim flag as l
	flag = cn.open("::Name::northwind")
	if flag = .f. then
	'there was an error
	dim errorText as c
	errorText = cn.callresult.text
	end
	end if
	'turn on portable SQL
	cn.PortableSQLEnabled = .t.
	dim SQL as c
	sql = "UPDATE customers SET CompanyName= :CompanyName, ContactName= :ContactName, ContactTitle= :ContactTitle, Address= :Address ,City= :City ,Region= :Region ,PostalCode= :PostalCode, Country= :Country, Phone= :Phone, Fax= :Fax WHERE CustomerID = :CustomerID"
	dim args as sql::arguments
	args.add("CustomerID", CustomerID)
	args.add("CompanyName", CompanyName)
	args.add("ContactName", ContactName)
	args.add("ContactTitle", ContactTitle)
	args.add("Address", Address)
	args.add("City", City)
	args.add("Region", Region)
	args.add("PostalCode", PostalCode)
	args.add("Country", Country)
	args.add("Phone", Phone)
	args.add("Fax", Fax)
	
	'execute the SQL
	flag = cn.execute(sql,args)
	
	if flag = .f. then
	'there was an error
	
	dim errorText as c
	errorText = cn.callresult.text
	cn.close()
	end
	end if
	
	dim rowsInserted as n
	'get the number of rows that were inserted
	rowsInserted = cn.CallResult.rowsaffected
	cn.close()
	
	debug()
end function








'CREATE NEW USER ----------------------------------------------------------    
function createNewCustomer as p (newCustomer as REST::myRestAPI::newCustomer)
	dim CustomerID as c = newCustomer.CustomerID
	dim CompanyName as c = newCustomer.CompanyName
	dim ContactName as c = newCustomer.ContactName
	dim ContactTitle as c = newCustomer.ContactTitle
	dim ContactTitle as c = newCustomer.ContactTitle
	dim Address as c = newCustomer.Address
	dim City as c = newCustomer.City
	dim Region as c = newCustomer.Region
	dim PostalCode as c = newCustomer.PostalCode
	dim Country as c = newCustomer.Country
	dim Phone as c = newCustomer.Phone
	dim Fax as c = newCustomer.Fax
		
	dim cn as sql::connection
	dim flag as l
	flag = cn.open("::Name::northwind")
	if flag = .f. then
	'there was an error
	dim errorText as c
	errorText = cn.callresult.text
	end
	end if
	'turn on portable SQL
	cn.PortableSQLEnabled = .t.
	dim SQL as c
	sql = "INSERT INTO customers(CustomerID,CompanyName,ContactName,ContactTitle,Address,City,Region,PostalCode,Country,Phone,Fax) VALUES (:CustomerID,:CompanyName,:ContactName,:ContactTitle,:Address,:City,:Region,:PostalCode,:Country,:Phone,:Fax)"
	dim args as sql::arguments
	args.add("CustomerID", CustomerID)
	args.add("CompanyName", CompanyName)
	args.add("ContactName", ContactName)
	args.add("ContactTitle", ContactTitle)
	args.add("Address", Address)
	args.add("City", City)
	args.add("Region", Region)
	args.add("PostalCode", PostalCode)
	args.add("Country", Country)
	args.add("Phone", Phone)
	args.add("Fax", Fax)
	
	'execute the SQL
	flag = cn.execute(sql,args)
	
	if flag = .f. then
	'there was an error
	
	dim errorText as c
	errorText = cn.callresult.text
	cn.close()
	end
	end if
	
	dim rowsInserted as n
	'get the number of rows that were inserted
	rowsInserted = cn.CallResult.rowsaffected
	cn.close()
end function
end class

define class REST::myRestAPI::newCustomer
dim CustomerID as c
dim CompanyName as c
dim ContactName as c
dim ContactTitle as c
dim Address as c
dim City as c
dim Region as c
dim PostalCode as c
dim Country as c
dim Phone as c
dim Fax as c
end class

define class REST::myRestAPI::deleteCustomer
dim CustomerID as c
end class

define class REST::myRestAPI::updateCustomer
dim CustomerID as c
dim CompanyName as c
dim ContactName as c
dim ContactTitle as c
dim Address as c
dim City as c
dim Region as c
dim PostalCode as c
dim Country as c
dim Phone as c
dim Fax as c
end class

[Khanafi]

Re: How to create REST API POST working in Alpha WAS

Demo
https://www.screencast.com/t/wEBTrj9WWeHn

You have to restart your WAS after Publish any changes with API Servicesm EACH TIMES!

GET, POST, DELETE, PUT sample code
using northwind database

for delete I can make it work by

1. check option has custom heading,
2. build header
3. set these:
4. Header variable name: CustomerID
5. Value: {arguments.CustomerID}

define class REST::myRestAPI	

'GET ----------------------------------------------------------
function getCustomer as p (customerId as c )
	

dim ops as p
ops.connectionString = "::Name::northwind"
dim ops.sql as c
ops.json = .t.
'define the nested sql queries and query properties. each level of indentation denotes a parent-child relationship
ops.sql = <<%xstr%
{sql: 'SELECT CUSTOMERID, COMPANYNAME, CONTACTNAME, CONTACTTITLE, CITY, COUNTRY, POSTALCODE, PHONE, FAX  FROM customers  WHERE customerid = :customerid',name: 'Top',sqlSecurityJSON: ''}
	{sql: 'SELECT OrderID, CustomerID, EmployeeID, OrderDate FROM orders',name: 'Orders',parentKey: 'CUSTOMERID',key: 'CustomerID',sqlSecurityJSON: ''}
		{sql: 'SELECT order_details.OrderID, order_details.ProductID, products.ProductName, order_details.UnitPrice, order_details.Quantity FROM [order details] order_details INNER JOIN products products ON  order_details.ProductID = products.ProductID',name: 'Details',parentKey: 'OrderID',key: 'order_details.OrderID',sqlSecurityJSON: ''}
%xstr%
dim args as sql::arguments
args.add("customerid",customerId)
dim p as p
'execute the definition to get the JSON data
p = a5_sql_nested_query_to_json_document(ops,args)
if p.hasError = .f. then
	dim json as c 
	json = p.json
	
	getCustomer = json_parse(json)
	
else
	'there was an error
	dim errorText as c 
	errorText = p.errortext
	dim pout as p
	pout.error = .t.
	pout.errorText = errorText 
	getCustomer = pout
end if	
		
end function 


'DELETE ----------------------------------------------------------  
function deleteCustomer as c(CustomerID as c )
	'dim CustomerID as c = deleteCustomer.CustomerID
    dim cn as sql::connection
	dim flag as l
	flag = cn.open("::Name::northwind")
	if flag = .f. then
	'there was an error
	dim errorText as c
	errorText = cn.callresult.text
	end
	end if
	'turn on portable SQL
	cn.PortableSQLEnabled = .t.
	dim SQL as c
	sql = "DELETE FROM customers WHERE CustomerID = :CustomerID"
	dim args as sql::arguments
	args.add("CustomerID", CustomerID)
	
	'execute the SQL
	flag = cn.execute(sql,args)	
end function


'UPDATE ----------------------------------------------------------  
function updateCustomer as p (updateCustomer as REST::myRestAPI::updatePCustomer)
	dim CustomerID as c = updateCustomer.CustomerID
	dim CompanyName as c = updateCustomer.CompanyName
	dim ContactName as c = updateCustomer.ContactName
	dim ContactTitle as c = updateCustomer.ContactTitle
	dim ContactTitle as c = updateCustomer.ContactTitle
	dim Address as c = updateCustomer.Address
	dim City as c = updateCustomer.City
	dim Region as c = updateCustomer.Region
	dim PostalCode as c = updateCustomer.PostalCode
	dim Country as c = updateCustomer.Country
	dim Phone as c = updateCustomer.Phone
	dim Fax as c = updateCustomer.Fax
	
    dim cn as sql::connection
	dim flag as l
	flag = cn.open("::Name::northwind")
	if flag = .f. then
	'there was an error
	dim errorText as c
	errorText = cn.callresult.text
	end
	end if
	'turn on portable SQL
	cn.PortableSQLEnabled = .t.
	dim SQL as c
	sql = "UPDATE customers SET CompanyName= :CompanyName, ContactName= :ContactName, ContactTitle= :ContactTitle, Address= :Address ,City= :City ,Region= :Region ,PostalCode= :PostalCode, Country= :Country, Phone= :Phone, Fax= :Fax WHERE CustomerID = :CustomerID"
	dim args as sql::arguments
	args.add("CustomerID", CustomerID)
	args.add("CompanyName", CompanyName)
	args.add("ContactName", ContactName)
	args.add("ContactTitle", ContactTitle)
	args.add("Address", Address)
	args.add("City", City)
	args.add("Region", Region)
	args.add("PostalCode", PostalCode)
	args.add("Country", Country)
	args.add("Phone", Phone)
	args.add("Fax", Fax)
	
	'execute the SQL
	flag = cn.execute(sql,args)
	
	if flag = .f. then
	'there was an error
	
	dim errorText as c
	errorText = cn.callresult.text
	cn.close()
	end
	end if
	
	dim rowsInserted as n
	'get the number of rows that were inserted
	rowsInserted = cn.CallResult.rowsaffected
	cn.close()
	
end function


'CREATE ----------------------------------------------------------    
function createCustomer as p (newCustomer as REST::myRestAPI::newPCustomer)
	dim CustomerID as c = newCustomer.CustomerID
	dim CompanyName as c = newCustomer.CompanyName
	dim ContactName as c = newCustomer.ContactName
	dim ContactTitle as c = newCustomer.ContactTitle
	dim ContactTitle as c = newCustomer.ContactTitle
	dim Address as c = newCustomer.Address
	dim City as c = newCustomer.City
	dim Region as c = newCustomer.Region
	dim PostalCode as c = newCustomer.PostalCode
	dim Country as c = newCustomer.Country
	dim Phone as c = newCustomer.Phone
	dim Fax as c = newCustomer.Fax
		
	dim cn as sql::connection
	dim flag as l
	flag = cn.open("::Name::northwind")
	if flag = .f. then
		
	'there was an error
	dim errorText as c
	errorText = cn.callresult.text
	cn.close()
	end
	end if
	
	'turn on portable SQL
	cn.PortableSQLEnabled = .t.
	dim SQL as c
	sql = "INSERT INTO customers(CustomerID,CompanyName,ContactName,ContactTitle,Address,City,Region,PostalCode,Country,Phone,Fax) VALUES (:CustomerID,:CompanyName,:ContactName,:ContactTitle,:Address,:City,:Region,:PostalCode,:Country,:Phone,:Fax)"
	dim args as sql::arguments
	args.add("CustomerID", CustomerID)
	args.add("CompanyName", CompanyName)
	args.add("ContactName", ContactName)
	args.add("ContactTitle", ContactTitle)
	args.add("Address", Address)
	args.add("City", City)
	args.add("Region", Region)
	args.add("PostalCode", PostalCode)
	args.add("Country", Country)
	args.add("Phone", Phone)
	args.add("Fax", Fax)
	
	'execute the SQL
	flag = cn.execute(sql,args)
	
	if flag = .f. then
	'there was an error
	
	dim errorText as c
	errorText = cn.callresult.text
	cn.close()
	end
	end if
	
	dim rowsInserted as n
	'get the number of rows that were inserted
	rowsInserted = cn.CallResult.rowsaffected
	
end function

end class

'CLASS ---------------------------------------------------------- 

define class REST::myRestAPI::newPCustomer
dim CustomerID as c
dim CompanyName as c
dim ContactName as c
dim ContactTitle as c
dim Address as c
dim City as c
dim Region as c
dim PostalCode as c
dim Country as c
dim Phone as c
dim Fax as c
end class

define class REST::myRestAPI::updatePCustomer
dim CustomerID as c
dim CompanyName as c
dim ContactName as c
dim ContactTitle as c
dim Address as c
dim City as c
dim Region as c
dim PostalCode as c
dim Country as c
dim Phone as c
dim Fax as c
end class

NB:
How to edit my old post instead create new one reply in the forum?