Refresh FKV in Job Closing

I have, thanks. It said that refresh wasn't a part of the jobclosing
set.

I ended up creating a disconnected checkbox control and changing it's
state based on a button click as the jobhead data is changed.

Not the most direct approach but the only way I could get to work.

Thanks,
Ross.

On Sep 2, 2009, at 12:24 AM, Robert Brown <robertb_versa@...>
wrote:

> Have you tried a general otrans.refresh() statement as the last
> thing you do after your updating?
>
> Rob
>
>
>
>
> ________________________________
> From: rossh777 <ross.hughes@...>
> To: vantage@yahoogroups.com
> Sent: Monday, August 31, 2009 3:33:14 PM
> Subject: [Vantage] Refresh FKV in Job Closing
>
>
> Hi All,
>
> I have a customization in Job Closing that pulls in JobHead data
> with a FKV.
>
> There is a toggle button with an onclick event that will flip the
> status of a field in JobHead.
>
> Everything works fine except the checkbox does not update until you
> exit Job Closing and restart or clear the job and enter it again.
>
> Is there a method that can be called for this checkbox/screen to
> refresh? Maybe a better way to approach this whole thing? I can't
> directly get at the JobHead table with a bound control although this
> would be ideal.
>
> The code is below.
>
> Thanks,
> Ross
> ------------ --------- ------
> Private Sub btnToggle_Click( ByVal Sender As Object, ByVal Args As
> System.EventArgs) Handles btnToggle.Click
> '// ** Place Event Handling Code Here **
>
> Dim edvJobHead As EpiDataView = CType(oTrans. EpiDataViews
> ( "JobHead" ), EpiDataView)
> Dim Ignore As Boolean = edvJobHead.dataView (edvJobHead. Row)
> ("CheckBox20 ")
> Dim JobNumber As String = edvJobHead.dataView (edvJobHead. Row)
> ("JobNum" )
> 'Messagebox. Show(Ignore)
>
> Dim JobEntryAdapter As JobEntryAdapter = New JobEntryAdapter
> ( JobClosingForm)
> JobEntryAdapter. BOConnect( )
>
> Dim JobData As Data.DataSet = JobEntryAdapter. GetData(JobNumbe r)
>
> Dim found As Boolean = JobEntryAdapter. GetByID(JobNumbe r)
>
> if (found) then
> If Ignore = True Then
> JobData.Tables( 0).Rows(0) ("Checkbox20" ) = False
> JobEntryAdapter. Update
> Else
> JobData.Tables( 0).Rows(0) ("Checkbox20" ) = True
> JobEntryAdapter. Update
> End If
> End If
>
> JobEntryAdapter. Dispose()
>
> End Sub
>
>
>
>
>
>
>
> [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
>
>
>
Hi All,

I have a customization in Job Closing that pulls in JobHead data with a FKV.

There is a toggle button with an onclick event that will flip the status of a field in JobHead.

Everything works fine except the checkbox does not update until you exit Job Closing and restart or clear the job and enter it again.

Is there a method that can be called for this checkbox/screen to refresh? Maybe a better way to approach this whole thing? I can't directly get at the JobHead table with a bound control although this would be ideal.

The code is below.

Thanks,
Ross
---------------------------
Private Sub btnToggle_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnToggle.Click
'// ** Place Event Handling Code Here **

Dim edvJobHead As EpiDataView = CType(oTrans.EpiDataViews("JobHead"), EpiDataView)
Dim Ignore As Boolean = edvJobHead.dataView(edvJobHead.Row)("CheckBox20")
Dim JobNumber As String = edvJobHead.dataView(edvJobHead.Row)("JobNum")
'Messagebox.Show(Ignore)

Dim JobEntryAdapter As JobEntryAdapter = New JobEntryAdapter(JobClosingForm)
JobEntryAdapter.BOConnect()

Dim JobData As Data.DataSet = JobEntryAdapter.GetData(JobNumber)

Dim found As Boolean = JobEntryAdapter.GetByID(JobNumber)

if (found) then
If Ignore = True Then
JobData.Tables(0).Rows(0)("Checkbox20") = False
JobEntryAdapter.Update
Else
JobData.Tables(0).Rows(0)("Checkbox20") = True
JobEntryAdapter.Update
End If
End If

JobEntryAdapter.Dispose()

End Sub
Have you tried a general otrans.refresh() statement as the last thing you do after your updating?

Rob




________________________________
From: rossh777 <ross.hughes@...>
To: vantage@yahoogroups.com
Sent: Monday, August 31, 2009 3:33:14 PM
Subject: [Vantage] Refresh FKV in Job Closing


Hi All,

I have a customization in Job Closing that pulls in JobHead data with a FKV.

There is a toggle button with an onclick event that will flip the status of a field in JobHead.

Everything works fine except the checkbox does not update until you exit Job Closing and restart or clear the job and enter it again.

Is there a method that can be called for this checkbox/screen to refresh? Maybe a better way to approach this whole thing? I can't directly get at the JobHead table with a bound control although this would be ideal.

The code is below.

Thanks,
Ross
------------ --------- ------
Private Sub btnToggle_Click( ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnToggle.Click
'// ** Place Event Handling Code Here **

Dim edvJobHead As EpiDataView = CType(oTrans. EpiDataViews( "JobHead" ), EpiDataView)
Dim Ignore As Boolean = edvJobHead.dataView (edvJobHead. Row)("CheckBox20 ")
Dim JobNumber As String = edvJobHead.dataView (edvJobHead. Row)("JobNum" )
'Messagebox. Show(Ignore)

Dim JobEntryAdapter As JobEntryAdapter = New JobEntryAdapter( JobClosingForm)
JobEntryAdapter. BOConnect( )

Dim JobData As Data.DataSet = JobEntryAdapter. GetData(JobNumbe r)

Dim found As Boolean = JobEntryAdapter. GetByID(JobNumbe r)

if (found) then
If Ignore = True Then
JobData.Tables( 0).Rows(0) ("Checkbox20" ) = False
JobEntryAdapter. Update
Else
JobData.Tables( 0).Rows(0) ("Checkbox20" ) = True
JobEntryAdapter. Update
End If
End If

JobEntryAdapter. Dispose()

End Sub







[Non-text portions of this message have been removed]