Imports Vishwa.Example.Business
Namespace Example.WebService
Public NotInheritable Class ServiceHelper
Private Shared instance As New ServiceHelper
Private Shared bizObj As New CustomerBiz
Private Sub New()
EndSub
Friend Shared Function GetCustomerData(ByVal ID AsInteger) As Customer
Dim bizCustomer As CustomerBiz = Nothing
bizCustomer = bizObj.GetCustomer(ID)
Return GetCustomerDataFromBizCustomer(bizCustomer)
End Function
Friend Shared Function GetCustomersData() As List(Of Customer)
Dim customers AsNew List(Of Customer)
Dim bizCustomers AsNew List(Of CustomerBiz)
bizCustomers = bizObj.GetCustomers()
ForEach bizCustRec As CustomerBiz In bizCustomers
customers.Add(GetCustomerDataFromBizCustomer(bizCustRec))
Next
Return customers
End Function
Friend Shared Function AddCustomerData(ByVal custRecord As Customer) As Integer
Return bizObj.AddCustomer(custRecord.CustName, custRecord.CustDOB, custRecord.CustAddress)
End Function
Friend Shared Function UpdateCustomerData(ByVal custRecord As Customer) As Boolean
Return bizObj.UpdateCustomer(custRecord.CustID, custRecord.CustName, custRecord.CustDOB, custRecord.CustAddress)
End Function
Friend Shared Function DeleteCustomerData(ByVal ID AsInteger) As Boolean
Return bizObj.DeleteCustomer(ID)
End Function
Private Shared Function GetCustomerDataFromBizCustomer(ByVal bizCust As CustomerBiz) As Customer
Dim custRecord AsNew Customer
If Not bizCust Is Nothing AndAlso bizCust.CustID > 0 Then
custRecord.CustID = bizCust.CustID
custRecord.CustName = bizCust.CustName
custRecord.CustDOB = bizCust.CustDOB
custRecord.CustAddress = bizCust.CustAddress
custRecord.DateCreated = bizCust.DateCreated
custRecord.DateModified = bizCust.DateModified
End If
Return custRecord
End Function
End Class
End Namespace