Save not working

You're on the right track. Some adapters (the ever changing with each release for PO entry is a great example) resist forced otrans.updates().

You need to (trial end error because of the crappy editor) try all kinds of event triggers (after_method, epinotifies, etc.,) to find out which is the last - then you can SOMETIMES force the save.

Rob
--- On Wed, 1/21/09, Michael McWilliams <mmcwilliams22@...> wrote:

From: Michael McWilliams <mmcwilliams22@...>
Subject: [Vantage] Re: Save not working
To: vantage@yahoogroups.com
Date: Wednesday, January 21, 2009, 11:37 AM






I wonder if it is something with the adapter in the UDEntry because
this works. I send the keys & have a hot key for save. If I replace
save with oTrans.Update( ) it does not work again. I some really
complex & lengthy customizations in other screens & they seem to
work fine with multiple updates while parsing the code.
Private Sub btnEpiCustom2_ Click(ByVal Sender As Object, ByVal Args
As System.EventArgs) Handles btnEpiCustom2. Click
'// ** Place Event Handling Code Here **
Dim UD01 As EpiDataView = Ctype(oTrans. EpiDataViews
("UD01"),EpiDataVie w)
txtEpiCustom6. Focus()
SendKeys.Send( "deburr")
SendKeys.Send( "{F10}")
--- In vantage@yahoogroups .com, "Michael McWilliams"
<mmcwilliams22@ ...> wrote:
>
> It is all set up correct.
>
> --- In vantage@yahoogroups .com, "Edward F. Fox, Jr." <efox@>
> wrote:
> >
> > Did you go into menu structure maintenance and set the
> customization there?
> > If not it will clear it each time you leave the screen.
> >
> >
> >
> > Edward F. Fox, Jr., CPA
> >
> > Controller
> >
> > Maxson Automatic Machinery Company
> >
> > Phone 401-596-0162 Fax 401-596-1050
> >
> > www.maxsonautomatic .com
> >
> > _____
> >
> > From: vantage@yahoogroups .com [mailto:vantage@yahoogroups .com]
On
> Behalf Of
> > Michael McWilliams
> > Sent: Wednesday, January 21, 2009 8:23 AM
> > To: vantage@yahoogroups .com
> > Subject: [Vantage] Save not working
> >
> >
> >
> > I am wondering why the most simple of customizations will not
> work.
> > Every time you close out of the screen & go back in the
> shortchar01
> > has the old data.
> >
> > Private Sub btnEpiCustom2_ Click(ByVal Sender As Object, ByVal
Args
> > As System.EventArgs) Handles btnEpiCustom2. Click
> > '// ** Place Event Handling Code Here **
> > Dim UD01 As EpiDataView = Ctype(oTrans. EpiDataViews
> > ("UD01"),EpiDataVie w)
> > UD01.DataView( UD01.Row) ("ShortChar01" ) = "deburr"
> > otrans.update( )
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
I am wondering why the most simple of customizations will not work.
Every time you close out of the screen & go back in the shortchar01
has the old data.

Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal Args
As System.EventArgs) Handles btnEpiCustom2.Click
'// ** Place Event Handling Code Here **
Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
("UD01"),EpiDataView)
UD01.DataView(UD01.Row)("ShortChar01") = "deburr"
otrans.update()
Did you go into menu structure maintenance and set the customization there?
If not it will clear it each time you leave the screen.



Edward F. Fox, Jr., CPA

Controller

Maxson Automatic Machinery Company

Phone 401-596-0162 a Fax 401-596-1050

www.maxsonautomatic.com

_____

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
Michael McWilliams
Sent: Wednesday, January 21, 2009 8:23 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Save not working



I am wondering why the most simple of customizations will not work.
Every time you close out of the screen & go back in the shortchar01
has the old data.

Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal Args
As System.EventArgs) Handles btnEpiCustom2.Click
'// ** Place Event Handling Code Here **
Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
("UD01"),EpiDataView)
UD01.DataView(UD01.Row)("ShortChar01") = "deburr"
otrans.update()





[Non-text portions of this message have been removed]
It is all set up correct.

--- In vantage@yahoogroups.com, "Edward F. Fox, Jr." <efox@...>
wrote:
>
> Did you go into menu structure maintenance and set the
customization there?
> If not it will clear it each time you leave the screen.
>
>
>
> Edward F. Fox, Jr., CPA
>
> Controller
>
> Maxson Automatic Machinery Company
>
> Phone 401-596-0162 a Fax 401-596-1050
>
> www.maxsonautomatic.com
>
> _____
>
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On
Behalf Of
> Michael McWilliams
> Sent: Wednesday, January 21, 2009 8:23 AM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Save not working
>
>
>
> I am wondering why the most simple of customizations will not
work.
> Every time you close out of the screen & go back in the
shortchar01
> has the old data.
>
> Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal Args
> As System.EventArgs) Handles btnEpiCustom2.Click
> '// ** Place Event Handling Code Here **
> Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
> ("UD01"),EpiDataView)
> UD01.DataView(UD01.Row)("ShortChar01") = "deburr"
> otrans.update()
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
I wonder if it is something with the adapter in the UDEntry because
this works. I send the keys & have a hot key for save. If I replace
save with oTrans.Update() it does not work again. I some really
complex & lengthy customizations in other screens & they seem to
work fine with multiple updates while parsing the code.
Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal Args
As System.EventArgs) Handles btnEpiCustom2.Click
'// ** Place Event Handling Code Here **
Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
("UD01"),EpiDataView)
txtEpiCustom6.Focus()
SendKeys.Send("deburr")
SendKeys.Send("{F10}")
--- In vantage@yahoogroups.com, "Michael McWilliams"
<mmcwilliams22@...> wrote:
>
> It is all set up correct.
>
> --- In vantage@yahoogroups.com, "Edward F. Fox, Jr." <efox@>
> wrote:
> >
> > Did you go into menu structure maintenance and set the
> customization there?
> > If not it will clear it each time you leave the screen.
> >
> >
> >
> > Edward F. Fox, Jr., CPA
> >
> > Controller
> >
> > Maxson Automatic Machinery Company
> >
> > Phone 401-596-0162 a Fax 401-596-1050
> >
> > www.maxsonautomatic.com
> >
> > _____
> >
> > From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com]
On
> Behalf Of
> > Michael McWilliams
> > Sent: Wednesday, January 21, 2009 8:23 AM
> > To: vantage@yahoogroups.com
> > Subject: [Vantage] Save not working
> >
> >
> >
> > I am wondering why the most simple of customizations will not
> work.
> > Every time you close out of the screen & go back in the
> shortchar01
> > has the old data.
> >
> > Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal
Args
> > As System.EventArgs) Handles btnEpiCustom2.Click
> > '// ** Place Event Handling Code Here **
> > Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
> > ("UD01"),EpiDataView)
> > UD01.DataView(UD01.Row)("ShortChar01") = "deburr"
> > otrans.update()
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
Have you tried:

Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal Args
As System.EventArgs) Handles btnEpiCustom2.Click
'// ** Place Event Handling Code Here **
Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
("UD01"),EpiDataView)
UD01.dataView(UD01.Row).BeginEdit
UD01.DataView(UD01.Row)("ShortChar01") = "deburr"
UD01.dataView(UD01.Row).EndEdit
otrans.update()

Or:

Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal Args
As System.EventArgs) Handles btnEpiCustom2.Click
'// ** Place Event Handling Code Here **
Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
("UD01"),EpiDataView)
UD01.DataView(UD01.Row)("ShortChar01") = "deburr"
UD01.Notify( New EpiNotifyArgs(oTrans, UD01.Row, UD01.Column))
otrans.update()

--- In vantage@yahoogroups.com, "Michael McWilliams"
<mmcwilliams22@...> wrote:
>
> I wonder if it is something with the adapter in the UDEntry because
> this works. I send the keys & have a hot key for save. If I
replace
> save with oTrans.Update() it does not work again. I some really
> complex & lengthy customizations in other screens & they seem to
> work fine with multiple updates while parsing the code.
> Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal Args
> As System.EventArgs) Handles btnEpiCustom2.Click
> '// ** Place Event Handling Code Here **
> Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
> ("UD01"),EpiDataView)
> txtEpiCustom6.Focus()
> SendKeys.Send("deburr")
> SendKeys.Send("{F10}")
> --- In vantage@yahoogroups.com, "Michael McWilliams"
> <mmcwilliams22@> wrote:
> >
> > It is all set up correct.
> >
> > --- In vantage@yahoogroups.com, "Edward F. Fox, Jr." <efox@>
> > wrote:
> > >
> > > Did you go into menu structure maintenance and set the
> > customization there?
> > > If not it will clear it each time you leave the screen.
> > >
> > >
> > >
> > > Edward F. Fox, Jr., CPA
> > >
> > > Controller
> > >
> > > Maxson Automatic Machinery Company
> > >
> > > Phone 401-596-0162 a Fax 401-596-1050
> > >
> > > www.maxsonautomatic.com
> > >
> > > _____
> > >
> > > From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com]
> On
> > Behalf Of
> > > Michael McWilliams
> > > Sent: Wednesday, January 21, 2009 8:23 AM
> > > To: vantage@yahoogroups.com
> > > Subject: [Vantage] Save not working
> > >
> > >
> > >
> > > I am wondering why the most simple of customizations will not
> > work.
> > > Every time you close out of the screen & go back in the
> > shortchar01
> > > has the old data.
> > >
> > > Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal
> Args
> > > As System.EventArgs) Handles btnEpiCustom2.Click
> > > '// ** Place Event Handling Code Here **
> > > Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
> > > ("UD01"),EpiDataView)
> > > UD01.DataView(UD01.Row)("ShortChar01") = "deburr"
> > > otrans.update()
> > >
> > >
> > >
> > >
> > >
> > > [Non-text portions of this message have been removed]
> > >
> >
>
Method one works great, thanks. Still wonder why it behaves like
this on the UD form only though.
--- In vantage@yahoogroups.com, "bw2868bond" <bwalker@...> wrote:
>
> Have you tried:
>
> Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal
Args
> As System.EventArgs) Handles btnEpiCustom2.Click
> '// ** Place Event Handling Code Here **
> Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
> ("UD01"),EpiDataView)
> UD01.dataView(UD01.Row).BeginEdit
> UD01.DataView(UD01.Row)("ShortChar01") = "deburr"
> UD01.dataView(UD01.Row).EndEdit
> otrans.update()
>
> Or:
>
> Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal
Args
> As System.EventArgs) Handles btnEpiCustom2.Click
> '// ** Place Event Handling Code Here **
> Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
> ("UD01"),EpiDataView)
> UD01.DataView(UD01.Row)("ShortChar01") = "deburr"
> UD01.Notify( New EpiNotifyArgs(oTrans, UD01.Row, UD01.Column))
> otrans.update()
>
> --- In vantage@yahoogroups.com, "Michael McWilliams"
> <mmcwilliams22@> wrote:
> >
> > I wonder if it is something with the adapter in the UDEntry
because
> > this works. I send the keys & have a hot key for save. If I
> replace
> > save with oTrans.Update() it does not work again. I some really
> > complex & lengthy customizations in other screens & they seem to
> > work fine with multiple updates while parsing the code.
> > Private Sub btnEpiCustom2_Click(ByVal Sender As Object, ByVal
Args
> > As System.EventArgs) Handles btnEpiCustom2.Click
> > '// ** Place Event Handling Code Here **
> > Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
> > ("UD01"),EpiDataView)
> > txtEpiCustom6.Focus()
> > SendKeys.Send("deburr")
> > SendKeys.Send("{F10}")
> > --- In vantage@yahoogroups.com, "Michael McWilliams"
> > <mmcwilliams22@> wrote:
> > >
> > > It is all set up correct.
> > >
> > > --- In vantage@yahoogroups.com, "Edward F. Fox, Jr." <efox@>
> > > wrote:
> > > >
> > > > Did you go into menu structure maintenance and set the
> > > customization there?
> > > > If not it will clear it each time you leave the screen.
> > > >
> > > >
> > > >
> > > > Edward F. Fox, Jr., CPA
> > > >
> > > > Controller
> > > >
> > > > Maxson Automatic Machinery Company
> > > >
> > > > Phone 401-596-0162 a Fax 401-596-1050
> > > >
> > > > www.maxsonautomatic.com
> > > >
> > > > _____
> > > >
> > > > From: vantage@yahoogroups.com
[mailto:vantage@yahoogroups.com]
> > On
> > > Behalf Of
> > > > Michael McWilliams
> > > > Sent: Wednesday, January 21, 2009 8:23 AM
> > > > To: vantage@yahoogroups.com
> > > > Subject: [Vantage] Save not working
> > > >
> > > >
> > > >
> > > > I am wondering why the most simple of customizations will
not
> > > work.
> > > > Every time you close out of the screen & go back in the
> > > shortchar01
> > > > has the old data.
> > > >
> > > > Private Sub btnEpiCustom2_Click(ByVal Sender As Object,
ByVal
> > Args
> > > > As System.EventArgs) Handles btnEpiCustom2.Click
> > > > '// ** Place Event Handling Code Here **
> > > > Dim UD01 As EpiDataView = Ctype(oTrans.EpiDataViews
> > > > ("UD01"),EpiDataView)
> > > > UD01.DataView(UD01.Row)("ShortChar01") = "deburr"
> > > > otrans.update()
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > [Non-text portions of this message have been removed]
> > > >
> > >
> >
>