20.01.2015 Views

Teach Yourself e.net - Syspro

Teach Yourself e.net - Syspro

Teach Yourself e.net - Syspro

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!