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.
The Class Library Reference<br />
Example 5.20. ASP.NET Visual Basic codebehind for Setup.Update<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 />
' Run generic query returning a sales order<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("Bikes and Blades - Northern")<br />
XmlIn.Append("")<br />
XmlIn.Append("")<br />
Try<br />
XmlOut = Setup.Update(UserId, "ARSSCS", XmlParameters. \<br />
ToString(), XmlIn.ToString())<br />
Catch exc As Exception<br />
5–33