Message me offline spelling out exactly what you are looking for...il put it together for you and you can use that as an example going forward...
-----Original Message-----
From: effgroups@... <effgroups@...>
Sent: Wednesday, October 20, 2010 5:28 PM
To: vantage@yahoogroups.com <vantage@yahoogroups.com>
Subject: Re: [Vantage] Adding a custom field in Job Closing
I don't know the code to pull up a record.
Ephraim Feldman
-----Original Message-----
From: "Rob Bucek" <rbucek@... <mailto:rbucek%40dsmfg.com> >
Sender: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Date: Wed, 20 Oct 2010 16:20:21
To: <vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> >
Reply-To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Subject: RE: [Vantage] Adding a custom field in Job Closing
I thought you meant form load lol! Did you try
epinotification.initialize?
Rob Bucek
Production Control Manager
PH: (715) 284-5376 ext 311
Mobile: (715)896-0590
FAX: (715)284-4084
(Click the logo to view our site)
-----Original Message-----
From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> [mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On Behalf
Of Ephraim Feldman
Sent: Wednesday, October 20, 2010 4:04 PM
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Subject: Re: [Vantage] Adding a custom field in Job Closing
Is there no event on Record Load?
-----Original Message-----
From: effgroups@... <effgroups@...>
Sent: Wednesday, October 20, 2010 5:28 PM
To: vantage@yahoogroups.com <vantage@yahoogroups.com>
Subject: Re: [Vantage] Adding a custom field in Job Closing
I don't know the code to pull up a record.
Ephraim Feldman
-----Original Message-----
From: "Rob Bucek" <rbucek@... <mailto:rbucek%40dsmfg.com> >
Sender: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Date: Wed, 20 Oct 2010 16:20:21
To: <vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> >
Reply-To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Subject: RE: [Vantage] Adding a custom field in Job Closing
I thought you meant form load lol! Did you try
epinotification.initialize?
Rob Bucek
Production Control Manager
PH: (715) 284-5376 ext 311
Mobile: (715)896-0590
FAX: (715)284-4084
(Click the logo to view our site)
-----Original Message-----
From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> [mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On Behalf
Of Ephraim Feldman
Sent: Wednesday, October 20, 2010 4:04 PM
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Subject: Re: [Vantage] Adding a custom field in Job Closing
Is there no event on Record Load?
On Wed, Oct 20, 2010 at 4:34 PM, Rob Bucek <rbucek@... <mailto:rbucek%40dsmfg.com> > wrote:
>
>
> When the form loads there isn't a record to start from so that would
> make it kind of difficult..
>
>
> Rob Bucek
> Production Control Manager
> PH: (715) 284-5376 ext 311
> Mobile: (715)896-0590
> FAX: (715)284-4084
>
> (Click the logo to view our site)
>
> -----Original Message-----
> From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com> [mailto:
> vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com>] On Behalf
> Of Ephraim Feldman
> Sent: Wednesday, October 20, 2010 3:19 PM
> To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com>
> Subject: Re: [Vantage] Adding a custom field in Job Closing
>
> Thanks Rob
>
> i tried that already and i wasnt succesfull in getting any method
thats
> why
> i did it on the exiteditmode.
>
> Do you know of a way i can get the data into the form when the data
> loads?
>
> Ephraim
>
> On Wed, Oct 20, 2010 at 3:34 PM, Rob Bucek
<rbucek@... <mailto:rbucek%40dsmfg.com> <rbucek%40dsmfg.com>>
> wrote:
>
> >
> >
> > Ill have to look into that.. something occurred to me just now..you
> may
> > want to test for the update method firing..strangely enough in some
> > forms they don't call that method to save the record, I don't know
all
> > the mechanics behind how they do it otherwise..i just know this to
be
> > the case in some instances..
> >
> > In the original before adapter method sub uncomment the line
> > 'EpiMessageBox.Show(args.MethodName)
> >
> > And step through the process. Everytime a method fires you will get
a
> > message box giving you the method name. Chances are if you don't get
a
> > message box with the word 'update' in it youre hosed for that
method.
> > There are some ways around this.. you could fire it off when the
> > complete or closed check box changes..thinking back perhaps that's
why
> I
> > choose a control event over a form event.. the job closing screen is
a
> > bit of a different animal I think..
> >
> >
> > Rob Bucek
> > Production Control Manager
> > PH: (715) 284-5376 ext 311
> > Mobile: (715)896-0590
> > FAX: (715)284-4084
> >
> > (Click the logo to view our site)
> >
> > -----Original Message-----
> > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> [mailto:
> > vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com>] On Behalf
> > Of Ephraim Feldman
> > Sent: Wednesday, October 20, 2010 1:57 PM
> > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com>
> > Subject: Re: [Vantage] Adding a custom field in Job Closing
> >
> > So i finally made it work on the exitEditMode of the control i will
> post
> > the
> > code below.
> >
> > Now that this works i need to be able to pull in the info from the
> > JobHead
> > when the data loads. How do i do this
> >
> > Here is my code:
> >
> > Private Sub UpdateJob()
> >
> > Dim edvClose As EpiDataView =
> > CType(oTrans.EpiDataViews("Close"),
> > EpiDataView)
> >
> > Dim vJobNum as String =
> > edvClose.dataView(edvClose.Row)("JobNum")
> >
> > Dim adpJobEntry As JobEntryAdapter = New
> > JobEntryAdapter(JobClosingForm)
> >
> > adpJobEntry.BOConnect()
> >
> > Try
> >
> > Dim JobNum As Boolean = adpJobEntry.GetByID(vJobNum)
> >
> > Dim MyEpiTXT as epiTextBox
> >
> > MyEpiTXT =
> >
>
CType(csm.GetNativeControlReference("ad8b2873-e3da-4776-a8fe-ba996c3612a
> > 4"),EpiTextBox)
> >
> > adpJobEntry.JobEntryData.Tables("JobHead").Rows(0).BeginEdit()
> >
> > adpJobEntry.JobEntryData.JobHead(0)("Character01" ) =
> > MyEpiTXT.Text
> >
> > adpJobEntry.JobEntryData.Tables("JobHead").Rows(0).EndEdit()
> >
> > adpJobEntry.Update()
> >
> > Catch e As Exception
> >
> > Finally
> >
> > adpJobEntry.Dispose()
> >
> > End Try
> >
> > End Sub
> >
> > Private Sub txtLocation_AfterExitEditMode(ByVal sender As Object,
> > ByVal
> > args As System.EventArgs)
> > ' ** Place Event Handling Code Here **
> > UpdateJob()
> >
> > End Sub
> >
> > Thanks
> >
> > Ephraim
> >
> > On Wed, Oct 20, 2010 at 2:13 PM, Ephraim Feldman
> > <effgroups@... <mailto:effgroups%40gmail.com> <effgroups%40gmail.com> <effgroups%40gmail.com
> >>wrote:
>
> >
> > > Thanks Rob for helping me out so much im still a newbi
> > >
> > > Here is what i have so far but doesnt work:
> > >
> > >
> > > Private Sub oTrans_closeAdapter_BeforeAdapterMethod(ByVal sender
> > As
> > > Object, ByVal args As BeforeAdapterMethodArgs)
> > > '** Argument Properties and Uses **
> > > '** args.MethodName **
> > > '** Add Event Handler Code **
> > >
> > > '** Use MessageBox to find adapter method name
> > > 'EpiMessageBox.Show(args.MethodName)
> > >
> > > Select Case args.MethodName
> > >
> > > Case "Update"
> > > 'Dim dRes As DialogResult = EpiMessageBox.Show("Cancel
> > > Update?", "Cancel", MessageBoxButtons.YesNo)
> > > 'If (dRes = DialogResult.Yes) Then
> > > 'args.Cancel = True
> > > 'Else
> > > ' 'Do Something Else
> > > 'End If
> > >
> > > UpdateJob()
> > >
> > > Case Else
> > >
> > > End Select
> > >
> > >
> > > End Sub
> > >
> > > Private Sub UpdateJob()
> > >
> > > Dim edvClose As EpiDataView =
> > CType(oTrans.EpiDataViews("Close"),
> > > EpiDataView)
> > >
> > > Dim vJobNum as String =
> > edvClose.dataView(edvClose.Row)("JobNum")
> > >
> > > Dim MyEpiTXT as epiTextBox
> > >
> > > MyEpiTXT =
> > >
> >
>
CType(csm.GetNativeControlReference("ad8b2873-e3da-4776-a8fe-ba996c3612a
> > 4"),EpiTextBox)
> > >
> > >
> > > Dim adpJobEntry As JobEntryAdapter = New
> > > JobEntryAdapter(JobClosingForm)
> > >
> > > adpJobEntry.BOConnect()
> > >
> > >
> > > Try
> > >
> > > Dim JobNum As Boolean = adpJobEntry.GetByID(vJobNum)
> > >
> > >
> > adpJobEntry.JobEntryData.Tables("JobHead").Rows(0).BeginEdit()
> > >
> > > adpJobEntry.JobEntryData.JobHead(0)("Character01" ) =
> > > MyEpiTXT.Text
> > >
> > >
> > >
> > adpJobEntry.JobEntryData.Tables("JobHead").Rows(0).EndEdit()
> > >
> > > adpJobEntry.Update()
> > >
> > > Catch e As Exception
> > >
> > > Finally
> > >
> > > adpJobEntry.Dispose()
> > >
> > > End Try
> > >
> > > End Sub
> > >
> > >
> > >
> > > On Wed, Oct 20, 2010 at 1:59 PM, Rob Bucek
> <rbucek@... <mailto:rbucek%40dsmfg.com> <rbucek%40dsmfg.com><rbucek%40dsmfg.com>>
>
> > wrote:
> > >
> > >>
> > >>
> > >> Use before adapter method, set case to "Update"
> > >>
> > >>
> > >> Rob Bucek
> > >> Production Control Manager
> > >> PH: (715) 284-5376 ext 311
> > >> Mobile: (715)896-0590
> > >> FAX: (715)284-4084
> > >>
> > >> (Click the logo to view our site)
> > >>
> > >> -----Original Message-----
> > >> From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com>
<vantage%
> 40yahoogroups.com> <vantage%
> > 40yahoogroups.com> [mailto:
> > >> vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> <vantage%
> > 40yahoogroups.com>] On Behalf
> > >> Of Ephraim Feldman
> > >> Sent: Wednesday, October 20, 2010 12:53 PM
> > >> To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> <vantage%
> > 40yahoogroups.com>
> > >> Subject: Re: [Vantage] Adding a custom field in Job Closing
> > >>
> > >> I would like to do it on the update of the form what form event
do
> i
> > >> use?
> > >> afterAdapterMethod?
> > >>
> > >> Thanks
> > >>
> > >> On Tue, Oct 19, 2010 at 2:01 PM, Rob Bucek
> > <rbucek@... <mailto:rbucek%40dsmfg.com> <rbucek%40dsmfg.com> <rbucek%40dsmfg.com><rbucek%
> 40dsmfg.com>>
>
> >
> > >> wrote:
> > >>
> > >> >
> > >> >
> > >> > You could do a client customization with an unbound text field,
> add
> > >> job
> > >> > adapter reference assemblies, and when the update method is
> called
> > >> take
> > >> > the control value and update your job header. I did something
> > similar,
> > >> > only with a check box in that form, and I used a control event,
> you
> > >> may
> > >> > prefer a form event.. either way..
> > >> >
> > >> > Private Sub JobClosing_BeforeFieldChange(ByVal sender As
> > >> > object, ByVal args As DataColumnChangeEventArgs) Handles
> > >> > JobClosing_Column.ColumnChanging
> > >> >
> > >> > '// ** Argument Properties and Uses **
> > >> >
> > >> > '// args.Row("[FieldName]")
> > >> >
> > >> > '// args.Column, args.ProposedValue,
> > >> > args.Row
> > >> >
> > >> > '
> > >> >
> > >> > 'Add Event Handler Code
> > >> >
> > >> > '
> > >> >
> > >> > Select Case args.Column.ColumnName
> > >> >
> > >> > Case "JobComplete"
> > >> >
> > >> > Dim edvClose As EpiDataView =
> > >> > CType(oTrans.EpiDataViews("Close"), EpiDataView)
> > >> >
> > >> > Dim intSTK As Integer =
> > >> > edvClose.dataView(edvClose.Row)("StockQty")
> > >> >
> > >> > Dim strJobNum As String =
> > >> > edvClose.dataView(edvClose.Row)("JobNum")
> > >> >
> > >> > Dim chkCmplt As Boolean =
> > >> > edvClose.dataView(edvClose.Row)("JobComplete")
> > >> >
> > >> > If intSTK > 0 Then
> > >> >
> > >> > Dim response As MsgboxResult
> > >> >
> > >> > Dim msg As String = "Has Inventory/WIP Reconciliation been
> > >> > run against this job?"
> > >> >
> > >> > Dim title As String = "Costing."
> > >> >
> > >> > response = MsgBox(msg, MsgBoxStyle.YesNo, title)
> > >> >
> > >> > if response = MsgboxResult.yes then
> > >> >
> > >> > UpdateJob()
> > >> >
> > >> > Else
> > >> >
> > >> > 'edvClose.dataView(edvClose.Row)("JobComplete") = 0
> > >> >
> > >> > End If
> > >> >
> > >> > End If
> > >> >
> > >> > Case Else
> > >> >
> > >> > End Select
> > >> >
> > >> > End Sub
> > >> >
> > >> > Private Sub UpdateJob()
> > >> >
> > >> > Dim edvClose As EpiDataView =
> > >> > CType(oTrans.EpiDataViews("Close"), EpiDataView)
> > >> >
> > >> > 'Dim vProcID As Boolean =
> > >> > edvNC.dataView(edvNC.Row)("ShortChar01")
> > >> >
> > >> > Dim vJobNum as String =
> > >> > edvClose.dataView(edvClose.Row)("JobNum")
> > >> >
> > >> > Dim adpJobEntry As JobEntryAdapter = New
> > >> > JobEntryAdapter(JobClosingForm)
> > >> >
> > >> > adpJobEntry.BOConnect()
> > >> >
> > >> > Try
> > >> >
> > >> > Dim JobNum As Boolean = adpJobEntry.GetByID(vJobNum)
> > >> >
> > >> > adpJobEntry.JobEntryData.Tables("JobHead").Rows(0).BeginEdit()
> > >> >
> > >> > adpJobEntry.JobEntryData.JobHead(0)("CheckBox01" ) = True
> > >> >
> > >> > adpJobEntry.JobEntryData.Tables("JobHead").Rows(0).EndEdit()
> > >> >
> > >> > adpJobEntry.Update()
> > >> >
> > >> > Catch e As Exception
> > >> >
> > >> > 'AddNewDraw()
> > >> >
> > >> > Finally
> > >> >
> > >> > adpJobEntry.Dispose()
> > >> >
> > >> > End Try
> > >> >
> > >> > End Sub
> > >> >
> > >> > Rob Bucek
> > >> >
> > >> > Production Control Manager
> > >> >
> > >> > PH: (715) 284-5376 ext 311
> > >> >
> > >> > Mobile: (715)896-0590
> > >> >
> > >> > FAX: (715)284-4084
> > >> >
> > >> > <http://www.dsmfg.com/>
> > >> >
> > >> > (Click the logo to view our site) <http://www.dsmfg.com/>
> > >> >
> > >> > From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com>
<vantage%
> 40yahoogroups.com>
> <vantage%
> > 40yahoogroups.com> <vantage%
> > >> 40yahoogroups.com> [mailto:
> > >> > vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> <vantage%
> > 40yahoogroups.com> <vantage%
> >
> > >> 40yahoogroups.com>] On Behalf
> > >>
> > >> > Of Ephraim Feldman
> > >> > Sent: Tuesday, October 19, 2010 12:04 PM
> > >> > To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> <vantage%40yahoogroups.com>
<vantage%
> 40yahoogroups.com> <vantage%
> > 40yahoogroups.com> <vantage%
> >
> > >> 40yahoogroups.com>
> > >>
> > >> > Subject: [Vantage] Adding a custom field in Job Closing
> > >> >
> > >> >
> > >> > Im trying to a a charachter field to job Closing screen but
> > realised
> > >> > that
> > >> > there are only virtual tables used there and not the real job
> > header
> > >> > table.
> > >> > My question is how can i work around and add a text field there
> > that
> > >> > will
> > >> > update the charachter01 fied in the job header
> > >> > Any help would be appreciated
> > >> >
> > >> > Ephraim
> > >> >
> > >> > [Non-text portions of this message have been removed]
> > >> >
> > >> > [Non-text portions of this message have been removed]
> > >> >
> > >> >
> > >> >
> > >>
> > >> [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]
> >
> > ------------------------------------
> >
> > 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]
>
> ------------------------------------
>
> 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]
------------------------------------
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]