Adding a custom field in Job Closing

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?



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]
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]
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@yahoogroups.com] On Behalf
Of Ephraim Feldman
Sent: Tuesday, October 19, 2010 12:04 PM
To: vantage@yahoogroups.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]
Thanks Rob

But since its the first time doing such a thing maybe you can tell me what assemblies I have to add and where

Thanks
Ephraim Feldman

-----Original Message-----
From: "Rob Bucek" <rbucek@...>
Sender: vantage@yahoogroups.com
Date: Tue, 19 Oct 2010 13:01:53
To: <vantage@yahoogroups.com>
Reply-To: vantage@yahoogroups.com
Subject: RE: [Vantage] Adding a custom field in Job Closing

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@yahoogroups.com] On Behalf
Of Ephraim Feldman
Sent: Tuesday, October 19, 2010 12:04 PM
To: vantage@yahoogroups.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]
Ephraim,



A quick over view would be to open customization, tools, assembly
reference manager and click the button add custom reference. At that
point you will add 3 dll's, AD,BO, and IF for the relevant adapter (in
your case jobentry.dll).



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@yahoogroups.com] On Behalf
Of effgroups@...
Sent: Tuesday, October 19, 2010 2:36 PM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] Adding a custom field in Job Closing





Thanks Rob

But since its the first time doing such a thing maybe you can tell me
what assemblies I have to add and where

Thanks
Ephraim Feldman

-----Original Message-----
From: "Rob Bucek" <rbucek@... <mailto:rbucek%40dsmfg.com> >
Sender: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Date: Tue, 19 Oct 2010 13:01:53
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

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>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
Behalf
Of Ephraim Feldman
Sent: Tuesday, October 19, 2010 12:04 PM
To: vantage@yahoogroups.com <mailto: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]





[Non-text portions of this message have been removed]
Thanks Rob i will try it soon i will let you know how it goes

Ephraim

On Wed, Oct 20, 2010 at 12:18 PM, Rob Bucek <rbucek@...> wrote:

>
>
> Ephraim,
>
> A quick over view would be to open customization, tools, assembly
> reference manager and click the button add custom reference. At that
> point you will add 3 dll's, AD,BO, and IF for the relevant adapter (in
> your case jobentry.dll).
>
>
> 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 <vantage%40yahoogroups.com> [mailto:
> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
> Of effgroups@... <effgroups%40gmail.com>
> Sent: Tuesday, October 19, 2010 2:36 PM
> To: vantage@yahoogroups.com <vantage%40yahoogroups.com>
> Subject: Re: [Vantage] Adding a custom field in Job Closing
>
>
> Thanks Rob
>
> But since its the first time doing such a thing maybe you can tell me
> what assemblies I have to add and where
>
> Thanks
> Ephraim Feldman
>
> -----Original Message-----
> From: "Rob Bucek" <rbucek@... <rbucek%40dsmfg.com> <mailto:
> rbucek%40dsmfg.com <rbucek%2540dsmfg.com>> >
> Sender: vantage@yahoogroups.com <vantage%40yahoogroups.com> <mailto:
> vantage%40yahoogroups.com <vantage%2540yahoogroups.com>>
> Date: Tue, 19 Oct 2010 13:01:53
> To: <vantage@yahoogroups.com <vantage%40yahoogroups.com> <mailto:
> vantage%40yahoogroups.com <vantage%2540yahoogroups.com>> >
> Reply-To: vantage@yahoogroups.com <vantage%40yahoogroups.com> <mailto:
> vantage%40yahoogroups.com <vantage%2540yahoogroups.com>>
> Subject: RE: [Vantage] Adding a custom field in Job Closing
>
> 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 <vantage%40yahoogroups.com> <mailto:
> vantage%40yahoogroups.com <vantage%2540yahoogroups.com>>
> [mailto:vantage@yahoogroups.com <vantage%40yahoogroups.com> <mailto:
> vantage%40yahoogroups.com <vantage%2540yahoogroups.com>> ] On
>
> Behalf
> Of Ephraim Feldman
> Sent: Tuesday, October 19, 2010 12:04 PM
> To: vantage@yahoogroups.com <vantage%40yahoogroups.com> <mailto:
> vantage%40yahoogroups.com <vantage%2540yahoogroups.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]
>
> [Non-text portions of this message have been removed]
>
>
>


[Non-text portions of this message have been removed]
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@...> 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 <vantage%40yahoogroups.com> [mailto:
> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
> Of Ephraim Feldman
> Sent: Tuesday, October 19, 2010 12:04 PM
> To: vantage@yahoogroups.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]
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@yahoogroups.com] On Behalf
Of Ephraim Feldman
Sent: Wednesday, October 20, 2010 12:53 PM
To: vantage@yahoogroups.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@...> 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 <vantage%40yahoogroups.com> [mailto:
> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
> Of Ephraim Feldman
> Sent: Tuesday, October 19, 2010 12:04 PM
> To: vantage@yahoogroups.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
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-ba996c3612a4"),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@...> 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 <vantage%40yahoogroups.com> [mailto:
> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
> Of Ephraim Feldman
> Sent: Wednesday, October 20, 2010 12:53 PM
> To: vantage@yahoogroups.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@...<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 <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> [mailto:
> > vantage@yahoogroups.com <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com>] On Behalf
>
> > Of Ephraim Feldman
> > Sent: Tuesday, October 19, 2010 12:04 PM
> > To: vantage@yahoogroups.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]
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-ba996c3612a4"),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@...>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-ba996c3612a4"),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@...> 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 <vantage%40yahoogroups.com> [mailto:
>> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
>> Of Ephraim Feldman
>> Sent: Wednesday, October 20, 2010 12:53 PM
>> To: vantage@yahoogroups.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@...<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 <vantage%40yahoogroups.com> <vantage%
>> 40yahoogroups.com> [mailto:
>> > vantage@yahoogroups.com <vantage%40yahoogroups.com> <vantage%
>> 40yahoogroups.com>] On Behalf
>>
>> > Of Ephraim Feldman
>> > Sent: Tuesday, October 19, 2010 12:04 PM
>> > To: vantage@yahoogroups.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]
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@yahoogroups.com] On Behalf
Of Ephraim Feldman
Sent: Wednesday, October 20, 2010 1:57 PM
To: vantage@yahoogroups.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@...>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@...> 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 <vantage%40yahoogroups.com> [mailto:
>> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
>> Of Ephraim Feldman
>> Sent: Wednesday, October 20, 2010 12:53 PM
>> To: vantage@yahoogroups.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@...<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 <vantage%40yahoogroups.com> <vantage%
>> 40yahoogroups.com> [mailto:
>> > vantage@yahoogroups.com <vantage%40yahoogroups.com> <vantage%
>> 40yahoogroups.com>] On Behalf
>>
>> > Of Ephraim Feldman
>> > Sent: Tuesday, October 19, 2010 12:04 PM
>> > To: vantage@yahoogroups.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
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@...> 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 <vantage%40yahoogroups.com> [mailto:
> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
> Of Ephraim Feldman
> Sent: Wednesday, October 20, 2010 1:57 PM
> To: vantage@yahoogroups.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@... <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@...<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 <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> [mailto:
> >> vantage@yahoogroups.com <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com>] On Behalf
> >> Of Ephraim Feldman
> >> Sent: Wednesday, October 20, 2010 12:53 PM
> >> To: vantage@yahoogroups.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@... <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 <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> <vantage%
> >> 40yahoogroups.com> [mailto:
> >> > vantage@yahoogroups.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 <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]
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@yahoogroups.com] On Behalf
Of Ephraim Feldman
Sent: Wednesday, October 20, 2010 3:19 PM
To: vantage@yahoogroups.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@...> 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 <vantage%40yahoogroups.com> [mailto:
> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
> Of Ephraim Feldman
> Sent: Wednesday, October 20, 2010 1:57 PM
> To: vantage@yahoogroups.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@... <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@...<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 <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> [mailto:
> >> vantage@yahoogroups.com <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com>] On Behalf
> >> Of Ephraim Feldman
> >> Sent: Wednesday, October 20, 2010 12:53 PM
> >> To: vantage@yahoogroups.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@... <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 <vantage%40yahoogroups.com>
<vantage%
> 40yahoogroups.com> <vantage%
> >> 40yahoogroups.com> [mailto:
> >> > vantage@yahoogroups.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 <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
Is there no event on Record Load?



On Wed, Oct 20, 2010 at 4:34 PM, Rob Bucek <rbucek@...> 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 <vantage%40yahoogroups.com> [mailto:
> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
> Of Ephraim Feldman
> Sent: Wednesday, October 20, 2010 3:19 PM
> To: vantage@yahoogroups.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@...<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 <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> [mailto:
> > vantage@yahoogroups.com <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com>] On Behalf
> > Of Ephraim Feldman
> > Sent: Wednesday, October 20, 2010 1:57 PM
> > To: vantage@yahoogroups.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@... <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@... <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 <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> <vantage%
> > 40yahoogroups.com> [mailto:
> > >> vantage@yahoogroups.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 <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@... <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 <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com>
> <vantage%
> > 40yahoogroups.com> <vantage%
> > >> 40yahoogroups.com> [mailto:
> > >> > vantage@yahoogroups.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 <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]
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@yahoogroups.com] On Behalf
Of Ephraim Feldman
Sent: Wednesday, October 20, 2010 4:04 PM
To: vantage@yahoogroups.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@...> 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 <vantage%40yahoogroups.com> [mailto:
> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
> Of Ephraim Feldman
> Sent: Wednesday, October 20, 2010 3:19 PM
> To: vantage@yahoogroups.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@...<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 <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> [mailto:
> > vantage@yahoogroups.com <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com>] On Behalf
> > Of Ephraim Feldman
> > Sent: Wednesday, October 20, 2010 1:57 PM
> > To: vantage@yahoogroups.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@... <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@... <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 <vantage%40yahoogroups.com>
<vantage%
> 40yahoogroups.com> <vantage%
> > 40yahoogroups.com> [mailto:
> > >> vantage@yahoogroups.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 <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@... <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 <vantage%40yahoogroups.com>
<vantage%
> 40yahoogroups.com>
> <vantage%
> > 40yahoogroups.com> <vantage%
> > >> 40yahoogroups.com> [mailto:
> > >> > vantage@yahoogroups.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 <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
I don't know the code to pull up a record.

Ephraim Feldman

-----Original Message-----
From: "Rob Bucek" <rbucek@...>
Sender: vantage@yahoogroups.com
Date: Wed, 20 Oct 2010 16:20:21
To: <vantage@yahoogroups.com>
Reply-To: vantage@yahoogroups.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@yahoogroups.com] On Behalf
Of Ephraim Feldman
Sent: Wednesday, October 20, 2010 4:04 PM
To: vantage@yahoogroups.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@...> 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 <vantage%40yahoogroups.com> [mailto:
> vantage@yahoogroups.com <vantage%40yahoogroups.com>] On Behalf
> Of Ephraim Feldman
> Sent: Wednesday, October 20, 2010 3:19 PM
> To: vantage@yahoogroups.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@...<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 <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com> [mailto:
> > vantage@yahoogroups.com <vantage%40yahoogroups.com> <vantage%
> 40yahoogroups.com>] On Behalf
> > Of Ephraim Feldman
> > Sent: Wednesday, October 20, 2010 1:57 PM
> > To: vantage@yahoogroups.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@... <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@... <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 <vantage%40yahoogroups.com>
<vantage%
> 40yahoogroups.com> <vantage%
> > 40yahoogroups.com> [mailto:
> > >> vantage@yahoogroups.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 <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@... <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 <vantage%40yahoogroups.com>
<vantage%
> 40yahoogroups.com>
> <vantage%
> > 40yahoogroups.com> <vantage%
> > >> 40yahoogroups.com> [mailto:
> > >> > vantage@yahoogroups.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 <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]