Launching an AddNew to a UD Maintenance Screen

Yahoo Archive
1
I'm attempting to launch a user-defined maintenance screen (UD07)
from a workbench, AND have it automatically add a new entry. I've
been able to do this with other maintenance screens like Customer and
Quote Entry, but when I use similar code for a UD screen it only
launches the screen. It doesn't start a new entry. Below is the code
I am using; any help would be greatly appreciated.

Thanks.

----------------------------------------------------------
Private Sub btnAddReq_Click(ByVal Sender As Object, ByVal Args As
System.EventArgs) Handles btnAddReq.Click
'// ** Place Event Handling Code Here **
Dim custID As String = String.Empty
Dim LaunchOK as boolean = true
Dim dt As DataTable = DBTVP.DBView.dataView.Table
try
custID = DBTVP.GetCurrentPublishedValue("JMS-CRMSearch- Search:
Customer.CustID")
if custID < 1 then LaunchOK = false
catch
LaunchOK = false
end try

if LaunchOK then
Dim xDoc As XmlDocument = New XmlDocument()
Dim xDocElem As XmlNode = xDoc.CreateElement("Test")
Dim xNodeMode As XmlNode = xDoc.CreateElement("Mode")
xNodeMode.InnerText = "AddNew"

Dim xNodeKey1 As XmlNode = xDoc.CreateElement("Key1")
xNodeKey1.InnerText = custID
Dim xNodeKey2 As XmlNode = xDoc.CreateElement("Key2")
xNodeKey2.InnerText = GetNextReqKey()
xDocElem.AppendChild(xNodeMode)
xDocElem.AppendChild(xNodeKey1)
xDocElem.AppendChild(xNodeKey2)
xDoc.AppendChild(xDocElem)

Dim lfo As LaunchFormOptions = New LaunchFormOptions()
lfo.IsModal = False
lfo.SuppressFormSearch = True
lfo.ValueIn = xDoc
ProcessCaller.LaunchForm(DBTVP, "UDCMGOLR", lfo) ' Our menu item for
UD07
end if
End Sub


Private Function GetNextReqKey() As String
'// Use the Company Adapter to store our sequence number (in Number02)
Dim nextReqID As String = String.Empty
Dim companyAdapter As CompanyAdapter = New CompanyAdapter(DBTVP)
companyAdapter.BOConnect()
Dim company As String = "JMS"
Dim found As Boolean = companyAdapter.GetByID(company)

if (found) then
nextReqId = companyAdapter.CompanyData.Company.Rows(0)
("Number02").toString()
companyAdapter.CompanyData.Company.Rows(0).BeginEdit()
companyAdapter.CompanyData.Company.Rows(0)("Number02") += 1
companyAdapter.CompanyData.Company.Rows(0).EndEdit()
companyAdapter.Update()
companyAdapter.Dispose()
end if
return nextReqId
End Function