Teach Yourself e.net - Syspro
Teach Yourself e.net - Syspro
Teach Yourself e.net - Syspro
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Example 5.21. ASP.NET Visual Basic codebehind for Setup.Delete<br />
' Logon and trap any exceptions<br />
Dim UserId As String<br />
Dim Obj As New Encore.Utilities()<br />
Try<br />
UserId = Obj.Logon("ADMIN", " ", "1", " ", 5, 0, 0, " ")<br />
Catch exc As Exception<br />
Response.Write("Exception - message:" & exc.Message)<br />
Exit Sub<br />
End Try<br />
Dim Setup As New Encore.Setup()<br />
Dim XmlOut As String<br />
' Build an XML string to pass parameters<br />
Dim XmlParameters As New System.Text.StringBuilder()<br />
XmlParameters.Append("")<br />
XmlParameters.Append("SetupArCustomer>")<br />
XmlParameters.Append("")<br />
XmlParameters.Append("N")<br />
XmlParameters.Append("Y \<br />
")<br />
XmlParameters.Append("N")<br />
XmlParameters.Append("")<br />
XmlParameters.Append("")<br />
' Build an XML string to add a customer<br />
Dim XmlIn As New System.Text.StringBuilder()<br />
XmlIn.Append("")<br />
XmlIn.Append("")<br />
XmlIn.Append("")<br />
XmlIn.Append("")<br />
XmlIn.Append("0000002")<br />
XmlIn.Append("")<br />
XmlIn.Append("")<br />
XmlIn.Append("")<br />
Try<br />
XmlOut = Setup.Delete(UserId, "ARSSCS", XmlParameters. \<br />
ToString(), XmlIn.ToString())<br />
Catch exc As Exception<br />
Response.Write("Unable to run business object ARSSCS - \<br />
Exception:" & exc.Message)<br />
Exit Sub<br />
5–36