Public Class AccountsReceivable_DeleteLinkedOrderSaleResults Public bSuccessful As Boolean Public sMessage As String End Class <WebMethod(Description:="Deletes the link between 1 OrderID or SaleID to another OrderID or SaleID")> _ Public Function AccountsReceivable_DeleteLinkedOrderSale(ByVal sAPIKey As String, ByVal nPrimarySaleID As Integer, ByVal nLinkToSaleID As Integer, ByVal nTOID As Integer) As AccountsReceivable_DeleteLinkedOrderSaleResults MyBase.CheckAccess(System.Reflection.MethodBase.GetCurrentMethod) ''// Check API Access Dim myReturn As New AccountsReceivable_DeleteLinkedOrderSaleResults Dim sMsg As New System.Text.StringBuilder ''//-- Data validation ----------------------------------------------------------- If sMsg.Length <> 0 Then myReturn.bSuccessful = False myReturn.sMessage = sMsg.Remove(sMsg.Length - oBizHelper.sEndMessageDelimiter.Length, oBizHelper.sEndMessageDelimiter.Length).ToString GoTo ReturnIt End If ''//-- Data validation ----------------------------------------------------------- '//To be Developed (main code goes here) ReturnIt: MyBase.ResultValue = myReturn Return CType(MyBase.ResultValue, AccountsReceivable_DeleteLinkedOrderSaleResults) End Function |