Customization - UD08Adapter.GetNewUD08 method

Yahoo Archive
1
Thank you for replying. This is great.

________________________________

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of mmcwilliams22
Sent: Tuesday, September 15, 2009 5:49 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: Customization - UD08Adapter.GetNewUD08 method




Dim udAdapter As UD03Adapter = New UD03Adapter(ReceiptEntryForm)
Dim udConnected As Boolean = udAdapter.BOConnect()
Dim newUD03 As Boolean = udAdapter.GetaNewUD03()

udAdapter.UD03Data.Tables("UD03").Rows(0)("Key1") = strLot
udAdapter.UD03Data.Tables("UD03").Rows(0)("Key2") = String.Empty
udAdapter.UD03Data.Tables("UD03").Rows(0)("Key3") = String.Empty
udAdapter.UD03Data.Tables("UD03").Rows(0)("Key4") = String.Empty
udAdapter.UD03Data.Tables("UD03").Rows(0)("Key5") = String.Empty
udAdapter.UD03Data.Tables("UD03").Rows(0)("Character01") = strVendTag
udAdapter.UD03Data.Tables("UD03").Rows(0)("Character02") = strHeatNum
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number01") = decCarbon
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number02") = decSulfur
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number03") = decManganese
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number04") = decSilicon
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number05") = decPhosphorus
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number06") = decAluminum
udAdapter.UD03Data.Tables("UD03").Rows(0)("ShortChar09") = shtRB
udAdapter.Update


--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"dgodfrey_amc" <dgodfrey_amc@...> wrote:
>
> I want to create a new record and assign other field in the UD08 Table
through the adapter. I have the adapter implemented and I am able to
establish a new record. What I don't know how to do is assigne certain
fields on that new record.
>
> Does anyone have a sample of code which after GetNew**** method of an
adapter you assign some fields to that adapter?
>






[Non-text portions of this message have been removed]
2
I want to create a new record and assign other field in the UD08 Table through the adapter. I have the adapter implemented and I am able to establish a new record. What I don't know how to do is assigne certain fields on that new record.

Does anyone have a sample of code which after GetNew**** method of an adapter you assign some fields to that adapter?
3
Dim udAdapter As UD03Adapter = New UD03Adapter(ReceiptEntryForm)
Dim udConnected As Boolean = udAdapter.BOConnect()
Dim newUD03 As Boolean = udAdapter.GetaNewUD03()

udAdapter.UD03Data.Tables("UD03").Rows(0)("Key1") = strLot
udAdapter.UD03Data.Tables("UD03").Rows(0)("Key2") = String.Empty
udAdapter.UD03Data.Tables("UD03").Rows(0)("Key3") = String.Empty
udAdapter.UD03Data.Tables("UD03").Rows(0)("Key4") = String.Empty
udAdapter.UD03Data.Tables("UD03").Rows(0)("Key5") = String.Empty
udAdapter.UD03Data.Tables("UD03").Rows(0)("Character01") = strVendTag
udAdapter.UD03Data.Tables("UD03").Rows(0)("Character02") = strHeatNum
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number01") = decCarbon
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number02") = decSulfur
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number03") = decManganese
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number04") = decSilicon
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number05") = decPhosphorus
udAdapter.UD03Data.Tables("UD03").Rows(0)("Number06") = decAluminum
udAdapter.UD03Data.Tables("UD03").Rows(0)("ShortChar09") = shtRB
udAdapter.Update









--- In vantage@yahoogroups.com, "dgodfrey_amc" <dgodfrey_amc@...> wrote:
>
> I want to create a new record and assign other field in the UD08 Table through the adapter. I have the adapter implemented and I am able to establish a new record. What I don't know how to do is assigne certain fields on that new record.
>
> Does anyone have a sample of code which after GetNew**** method of an adapter you assign some fields to that adapter?
>