Teach Yourself e.net - Syspro

Example 5.24. ASP.NET Visual Basic codebehind of Transaction.Build
' Logon and trap any exceptions
Dim UserId As String
Dim Obj As New Encore.Utilities()
Try
UserId = Obj.Logon("ADMIN", " ", "1", " ", 5, 0, 0, " ")
Catch exc As Exception
Response.Write("Exception - message:" & exc.Message)
Exit Sub
End Try
' Run generic query returning a sales order
Dim Trn As New Encore.Transaction()
Dim XmlOut As String
' Build an XML string for s/o header build
Dim XmlIn As New System.Text.StringBuilder()
XmlIn.Append("")
XmlIn.Append("")
XmlIn.Append("")
XmlIn.Append("0000001")
XmlIn.Append("")
XmlIn.Append("")
Try
XmlOut = Trn.Build(UserId, "SORRSH", XmlIn.ToString())
Catch exc As Exception
Response.Write("Unable to run business object SORRSH - \
Exception:" & exc.Message)
Exit Sub
End Try
Response.ContentType = "text/xml"
Response.Write(XmlOut)
Response.End()
' Logoff and Cancel your current Session
Dim ReturnCode As Long
ReturnCode = Obj.Logoff(UserId)
Obj = Nothing
5–42