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
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
>