Yeah the Baq is filtering records from UD07. In the dashboard I'm trying to give the user the ability to update all the records within that filter (update of character09 field) without having to go into each record.
The only columns in the baq at present is key1 and Character09.
When running the first part of the dashboard button it correctly finds the amount of rows (shown in first msgbox) - then says: record "123456" is not found. (Record 123456 is in the baq)
I've done similar with the part table and it has worked fine.
The only columns in the baq at present is key1 and Character09.
When running the first part of the dashboard button it correctly finds the amount of rows (shown in first msgbox) - then says: record "123456" is not found. (Record 123456 is in the baq)
I've done similar with the part table and it has worked fine.
--- In vantage@yahoogroups.com, "erwin" <erwinjw@...> wrote:
>
> Hi again
>
> I presume that you are populating a dashboard from a BAQ? The BAQ contains a list of "something" and you are using one of the columns to lookup UD07 and then update selected UD07 records to say there is a match.
>
> Obvious questions:
> does the record actually exist in UD07?
> if so what values are in Keys 1 to 5, there isn't anything being saved as a key value?
> Are you trying to update and create a new ud07 record?
>
> erwin
>
> --- In vantage@yahoogroups.com, "Rupert" <rupert@> wrote:
> >
> > Still in 8.03.405 Unfortunately
> >
> > --- In vantage@yahoogroups.com, "Dale Schuerman" <dale.schuerman@> wrote:
> > >
> > > If you are in version 9 there is also a customization process to do on
> > > the keys not required.
> > >
> > > I have done it once and do not remember how I did it. Support told me
> > > how to do it.
> > >
> > >
> > >
> > > This is new to Epicor 9.
> > >
> > >
> > >
> > > Hope this helps
> > >
> > >
> > >
> > > Dale E. Schuerman
> > >
> > > Senior Consultant
> > >
> > > Epicor Certified Consulting Partner
> > >
> > >
> > >
> > > RAM Software Systems, Inc.
> > >
> > > 1701 North Collins Suite 200
> > > Richardson, Texas 75080
> > >
> > >
> > >
> > > 972-669-0763 x233 (voice)
> > >
> > > 972-669-9603 (fax)
> > >
> > > mailto:dale.schuerman@
> > > <BLOCKED::blocked::mailto:dale.schuerman@> (email)
> > >
> > > http://www.ramsys.com <blocked::blocked::http://www.ramsys.com/>
> > > (website)
> > >
> > >
> > >
> > > From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
> > > Of Rupert
> > > Sent: Thursday, April 22, 2010 4:56 AM
> > > To: vantage@yahoogroups.com
> > > Subject: [Vantage] Re: Dashboard Button to update records
> > >
> > >
> > >
> > >
> > >
> > > Hi Again & Thanks again
> > >
> > > I put in your suggestion and
> > >
> > > The oexception came back with record not found at
> > > Epicor.Mfg.proxy.UD07Impl.GetByID(string Key1,String Key2........
> > > and
> > > UI.adapters.ud07Adapter.getbyID(String Key......) at
> > > script.character09(Sting Key 1)
> > >
> > > I'm no clearer where I'm going wrong - so will have to dig deeper or try
> > > a different approach
> > >
> > > --- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
> > > "erwin" <erwinjw@> wrote:
> > > >
> > > > Hi
> > > >
> > > > Yes, you need to specify all 5 fields.
> > > >
> > > > Try testing the result of the BO, I have had the same problem and now
> > > always check the result
> > > >
> > > > Dim U As Boolean
> > > > try
> > > > U = UD07Adapter.GetByID(Key1, String.Empty, String.Empty,
> > > String.Empty, String.Empty)
> > > > Catch e As Exception
> > > > messagebox.show("oException " + e.ToString())
> > > > End Try
> > > >
> > > > if U then
> > > > 'success
> > > > else
> > > > 'fail
> > > > end if
> > > >
> > > > --- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
> > > "Rupert" <rupert@> wrote:
> > > > >
> > > > > Thanks - Seems to run, however the msgbox is saying Error occurred
> > > for #### Record not found.
> > > > >
> > > > > Do UD tables require all 5 key fields?
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > Updated script:
> > > > >
> > > > > '//**************************************************
> > > > > '// Custom VB.NET code for bbef6f4a-7f02-4b72-96a7-dfb5e2cb66ee
> > > > > '// Created: 21/04/2010 10:52:59
> > > > > '//**************************************************
> > > > > Imports System
> > > > > Imports System.Data
> > > > > Imports System.Diagnostics
> > > > > Imports System.Windows.Forms
> > > > > Imports System.ComponentModel
> > > > > Imports Microsoft.VisualBasic
> > > > > Imports Epicor.Mfg.UI
> > > > > Imports Epicor.Mfg.UI.FrameWork
> > > > > Imports Epicor.Mfg.UI.ExtendedProps
> > > > > Imports Epicor.Mfg.UI.FormFunctions
> > > > > Imports Epicor.Mfg.UI.Customization
> > > > > Imports Epicor.Mfg.UI.Adapters
> > > > > Imports Epicor.Mfg.UI.Searches
> > > > > Imports Epicor.Mfg.BO
> > > > >
> > > > >
> > > > > Module Script
> > > > >
> > > > >
> > > > > '// ** Wizard Insert Location - Do Not Remove 'Begin/End Wizard
> > > Added Module Level Variables' Comments! **
> > > > > '// Begin Wizard Added Module Level Variables **
> > > > >
> > > > > '// End Wizard Added Module Level Variables **
> > > > >
> > > > >
> > > > > '// Add Custom Module Level Variables Here **
> > > > > dim dbtvp as object
> > > > > Sub InitializeCustomCode()
> > > > >
> > > > >
> > > > > '// ** Wizard Insert Location - Do not delete 'Begin/End Wizard
> > > Added Variable Intialization' lines **
> > > > > '// Begin Wizard Added Variable Intialization
> > > > >
> > > > > '// End Wizard Added Variable Intialization
> > > > > '// Begin Custom Method Calls
> > > > > dbtvp = DBTVP_bbef6f4a_7f02_4b72_96a7_dfb5e2cb66ee
> > > > > '// End Custom Method Calls
> > > > > End Sub
> > > > >
> > > > >
> > > > >
> > > > > Sub DestroyCustomCode()
> > > > >
> > > > >
> > > > > '// ** Wizard Insert Location - Do not delete 'Begin/End Wizard
> > > Added Object Disposal' lines **
> > > > > '// Begin Wizard Added Object Disposal
> > > > >
> > > > > '// End Wizard Added Object Disposal
> > > > > '// Begin Custom Code Disposal
> > > > >
> > > > > '// End Custom Code Disposal
> > > > > End Sub
> > > > >
> > > > >
> > > > >
> > > > > Private Sub btnupdate_Click(ByVal Sender As Object, ByVal Args As
> > > System.EventArgs) Handles btnupdate.Click
> > > > > '// ** Place Event Handling Code Here **
> > > > > '//Get the dashboard dataview
> > > > > MessageBox.Show("count of records " +
> > > dbtvp.DBView.dataView.table.Rows.Count.ToString())
> > > > > '//For each row, mark the configurator as approved.
> > > > > for each dr As DataRow in dbtvp.DBView.dataView.table.Rows
> > > > > Character09(dr("UD07.Key1").toString())
> > > > > next
> > > > > End Sub
> > > > > Private sub Character09(Key1 as string)
> > > > > Try
> > > > > Dim UDAD As UD07Adapter = New UD07Adapter(dbtvp)
> > > > > UDAD.BOConnect()
> > > > > UDAD.GetByID(key1,String.Empty, String.Empty, String.Empty,
> > > String.Empty)
> > > > > UDAD.UD07Data.UD07(0).Character09 = "Awaiting"
> > > > > UDAD.update()
> > > > > UDAD.Dispose()
> > > > > Catch ex As Exception
> > > > > MessageBox.Show("Error occured for " + key1 + " " + ex.Message)
> > > > > end Try
> > > > > end sub
> > > > >
> > > > >
> > > > > End Module
> > > > >
> > > >
> > >
> > >
> > >
> > >
> > > ########################################################################
> > > Attention:
> > > This email message is privileged and confidential. If you are not the
> > > intended recipient please delete the message and notify the sender.
> > > Any views or opinions presented are solely those of the author.
> > >
> > > This email message has been scanned for Viruses and Content and cleared
> > > by MailMarshal SMTP
> > >
> > > For more information go to http://www.ramsys.com
> > > ########################################################################
> > >
> > >
> > > [Non-text portions of this message have been removed]
> > >
> >
>