Hi try changing
edv.dataView( edv.Row)("ShortChar01" ) = dsPart.Tables(
0).Rows(0)("PartNum")
edv.Notify( New EpiNotifyArgs( oTrans, edv.Row, edv.Column) )
to
edv.dataview(edv.Row).BeginEdit()
edv.dataView( edv.Row)("ShortChar01" ) = dsPart.Tables(
0).Rows(0)("PartNum")
edv.Notify( New EpiNotifyArgs( oTrans, edv.Row, edv.Column) )
edv.dataview(edv.Row).EndEdit()
erwin
edv.dataView( edv.Row)("ShortChar01" ) = dsPart.Tables(
0).Rows(0)("PartNum")
edv.Notify( New EpiNotifyArgs( oTrans, edv.Row, edv.Column) )
to
edv.dataview(edv.Row).BeginEdit()
edv.dataView( edv.Row)("ShortChar01" ) = dsPart.Tables(
0).Rows(0)("PartNum")
edv.Notify( New EpiNotifyArgs( oTrans, edv.Row, edv.Column) )
edv.dataview(edv.Row).EndEdit()
erwin
--- In vantage@yahoogroups.com, Ahmet Erispaha <ahmeterispaha@...> wrote:
>
> Hi Ross,
> Â
> Thanks for your response.
> Â
> I had already tried (unsuccessfully) assigning the results of the
search to the EpiDataView.
> I then tried your suggestion which adds the Notify command,
> Â
> edv.Notify( New EpiNotifyArgs( oTrans, edv.Row, edv.Column) )
> Â
> , but got the same reults as before -- textbox clears when I hit save.
> Â
> Has anyone tacked this before?
> Â
> Thanks,
> Â
> Ahmet
>
> --- On Mon, 11/24/08, Ross Hughes <ross.hughes@...> wrote:
>
> From: Ross Hughes <ross.hughes@...>
> Subject: RE: [Vantage] PartNum in UD04
> To: vantage@yahoogroups.com
> Date: Monday, November 24, 2008, 4:07 PM
>
>
>
>
>
>
> Hi,
>
> I have found that behavior as well. It appears that when you dump the
> results from a search box to a text field the interface doesn't
recognize
> that the record has been changed. You need to directly modify the data
> table instead.
>
> Try the following code:
>
> ------------ --------- --------- ---
> Private Sub btnEpiCustom1_ Click(ByVal Sender As Object, ByVal Args As
> System.EventArgs) Handles btnEpiCustom1. Click
> '// ** Place Event Handling Code Here **
>
>
> Dim recSelected As Boolean
> Dim whereClause As String = String.Empty
> Dim dsPart As DataSet =
> Epicor.Mfg.UI. FormFunctions. SearchFunctions. listLookup( oTrans,
> "PartAdapter" , recSelected, True, whereClause)
> If (recSelected) Then
> Dim edv As EpiDataView = CType(oTrans. EpiDataViews(" UD04"),
> EpiDataView)
>
> edv.dataView( edv.Row)(" ShortChar02" ) =
> dsPart.Tables( 0).Rows(0) ("PartNum")
> edv.Notify( New EpiNotifyArgs( oTrans, edv.Row, edv.Column) )
> Else
> MessageBox.Show ("No Part Selected")
>
> End If
>
> End Sub
> ------------ --------- --------- -----
>
> Let me know if this works.
> Ross
>
> -----Original Message-----
> From: vantage@yahoogroups .com [mailto:vantage@yahoogroups .com] On
Behalf Of
> Ahmet Erispaha
> Sent: Monday, November 24, 2008 1:28 PM
> To: vantage@yahoogroups .com
> Subject: [Vantage] PartNum in UD04
>
> Hello,
> Â
> I'm trying to save part number in UD04.ShortChar02.Â
> Â
> The part search works correctly and the selected part number
populates the
> text box. The problem is, when I hit the save icon, the textbox gets
> cleared. I've tried two approaches -- assigning part number to the
DataView
> and to the textbox, and both give me the same results. Â
> Â
> '*********** ********* ***SAMPLE CODE******** *********
> Â Private Sub btnEpiCustom1_ Click(ByVal Sender As Object, ByVal Args As
> System.EventArgs) Handles btnEpiCustom1. Click
> Â Â '// ** Place Event Handling Code Here **
> Â Â Â Â dim recSelected as boolean
> Â Â Â Â Â Â Â dim whereClause as string = string.empty
> Â Â Â Â Â Â Â dim dsPart as DataSet =
> Epicor.Mfg.UI. Formfunctions. SearchFunctions. listLookup(
oTrans,"PartAdap ter",
> recSelected, True,whereClause )
> Â Â Â Â Â Â Â dim edv as EpiDataView =
> CType(oTrans. EpiDataViews( "UD04"),EpiDataV iew)
> Â Â Â Â Â Â Â 'If a part is selected...
> Â Â Â Â Â Â Â if recSelected then
> Â Â Â Â Â Â Â Â Â Â Â
> 'edv.DataView( edv.Row)( "ShortChar02" )=dsPart. Tables(0) .Rows(0)(
"PartNum" )
> Â Â Â Â Â Â Â Â Â Â Â txtEpiCustom2. Text=dsPart. Tables(0) .Rows(0)( "PartNum" )
> Â Â Â Â Â Â Â else
> Â Â Â Â Â Â Â Â Â Â Â messagebox.show( "No Part Selected")
>        end if    Â
> Â Â End Sub
> '*********** ********* ********* ********* *********
> Â
> Can anyone help?
> Â
> Thanks Much
> Â
> Ahmet Erispaha
>
> [Non-text portions of this message have been removed]
>
> ------------ --------- --------- ------
>
> Useful links for the Yahoo!Groups Vantage Board are: ( Note: You
must have
> already linked your email address to a yahoo id to enable access. )
> (1) To access the Files Section of our Yahoo!Group for Report
Builder and
> Crystal Reports and other 'goodies', please goto:
> http://groups. yahoo.com/ group/vantage/ files/.
> (2) To search through old msg's goto:
> http://groups. yahoo.com/ group/vantage/ messages
> (3) To view links to Vendors that provide Vantage services goto:
> http://groups. yahoo.com/ group/vantage/ linksYahoo! Groups Links
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>