Dashboard button Add New UD01 Record

Yahoo Archive
1
As an additional note to help focus this issue, are there any web services required for this type of XMLDocument creation?

If so, that's likely my problem but would like confirmation of this.

Thanks,

NB

--- In vantage@yahoogroups.com, "Nathan" <bonner.nathan@...> wrote:
>
> Trying to add a new UD01 record from a Dashboard button using the following code. Version is E9.05.601.
>
> Form is launching but fields are not populating.
>
> Private DBTVP As Object
>
> Sub InitializeCustomCode()
> DBTVP = DBTVP_caaf8a28_a2df_429f_80fb_d5b161e9421e
> End Sub
> Sub DestroyCustomCode()
> End Sub
> Private Sub epiBtnAddMdl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles epiBtnAddMdl.Click
> Dim Key1 As String = String.Empty
> Dim Key2 As String = String.Empty
> Dim Key3 As String = String.Empty
> Dim Key4 As String = String.Empty
> Dim Key5 As String = String.Empty
> Dim LaunchOK as boolean = true
> Dim dt As DataTable = DBTVP.DBView.dataView.Table
> try
> Key1 = DBTVP.GetCurrentPublishedValue("EPIC03-PartModel- PartModel: Part.PartNum")
> if Key1 = String.Empty 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 = Key1
> Dim xNodeKey2 As XmlNode = xDoc.CreateElement("Key2")
> xNodeKey2.InnerText = Key2
> Dim xNodeKey3 As XmlNode = xDoc.CreateElement("Key3")
> xNodeKey3.InnerText = Key3
> Dim xNodeKey4 As XmlNode = xDoc.CreateElement("Key4")
> xNodeKey4.InnerText = Key4
> Dim xNodeKey5 As XmlNode = xDoc.CreateElement("Key5")
> xNodeKey5.InnerText = Key5
> xDocElem.AppendChild(xNodeMode)
> xDocElem.AppendChild(xNodeKey1)
> xDocElem.AppendChild(xNodeKey2)
> xDocElem.AppendChild(xNodeKey3)
> xDocElem.AppendChild(xNodeKey4)
> xDocElem.AppendChild(xNodeKey5)
> xDoc.AppendChild(xDocElem)
>
> Dim lfo As LaunchFormOptions = New LaunchFormOptions()
> lfo.IsModal = False
> lfo.SuppressFormSearch = True
> lfo.ValueIn = xDoc
> ProcessCaller.LaunchForm(DBTVP, "PrtMdl01", lfo)
>
>
> End If
>
> End Sub
>
> Thanks in advance for any suggestions,
>
> Nathan Bonner
> bonner.nathan@
> gmail.com
>
2
Trying to add a new UD01 record from a Dashboard button using the following code. Version is E9.05.601.

Form is launching but fields are not populating.

Private DBTVP As Object

Sub InitializeCustomCode()
DBTVP = DBTVP_caaf8a28_a2df_429f_80fb_d5b161e9421e
End Sub
Sub DestroyCustomCode()
End Sub
Private Sub epiBtnAddMdl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles epiBtnAddMdl.Click
Dim Key1 As String = String.Empty
Dim Key2 As String = String.Empty
Dim Key3 As String = String.Empty
Dim Key4 As String = String.Empty
Dim Key5 As String = String.Empty
Dim LaunchOK as boolean = true
Dim dt As DataTable = DBTVP.DBView.dataView.Table
try
Key1 = DBTVP.GetCurrentPublishedValue("EPIC03-PartModel- PartModel: Part.PartNum")
if Key1 = String.Empty 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 = Key1
Dim xNodeKey2 As XmlNode = xDoc.CreateElement("Key2")
xNodeKey2.InnerText = Key2
Dim xNodeKey3 As XmlNode = xDoc.CreateElement("Key3")
xNodeKey3.InnerText = Key3
Dim xNodeKey4 As XmlNode = xDoc.CreateElement("Key4")
xNodeKey4.InnerText = Key4
Dim xNodeKey5 As XmlNode = xDoc.CreateElement("Key5")
xNodeKey5.InnerText = Key5
xDocElem.AppendChild(xNodeMode)
xDocElem.AppendChild(xNodeKey1)
xDocElem.AppendChild(xNodeKey2)
xDocElem.AppendChild(xNodeKey3)
xDocElem.AppendChild(xNodeKey4)
xDocElem.AppendChild(xNodeKey5)
xDoc.AppendChild(xDocElem)

Dim lfo As LaunchFormOptions = New LaunchFormOptions()
lfo.IsModal = False
lfo.SuppressFormSearch = True
lfo.ValueIn = xDoc
ProcessCaller.LaunchForm(DBTVP, "PrtMdl01", lfo)


End If

End Sub

Thanks in advance for any suggestions,

Nathan Bonner
bonner.nathan@
gmail.com