Time Phase Suggestions

Yahoo Archive
1
Yes - But what you really want to do is trigger the unchecking by the presence of a newly loaded part number (not just the initial form load):

Module Script

Private WithEvents oTrans_adapter As EpiBaseAdapter
Private WithEvents edvMisc As EpiDataView

Sub InitializeCustomCode()
oTrans_adapter = csm.TransAdaptersHT("oTrans_adapter")
edvMisc = CType(oTrans.EpiDataViews("Misc"), EpiDataView)
End Sub

Sub DestroyCustomCode()
oTrans_adapter = Nothing
edvMisc = Nothing
End Sub

Private Sub oTrans_adapter_AfterAdapterMethod(ByVal sender As object,
_ByVal args As AfterAdapterMethodArgs)
_Handles oTrans_adapter.AfterAdapterMethod

Select Case args.MethodName

Case "GetFrameTitle"

'txtEpiCustom1 is a custom textbox control
'linked to table "Misc" field "PartNum
'and set to Enabled = True, Visible = False
'(drag it off the panel to a
'negative x,y cooridinate for good measure
'so it doesn't 'bleed though' and annoy users

If (txtEpiCustom1.Text <> String.Empty) Then
edvMisc.dataView(edvMisc.Row)("TOSuggestions") = False
edvMisc.dataView(edvMisc.Row)("Suggestions") = False
End If
Case Else
End Select
End Sub

End Module

--- On Tue, 7/29/08, Brian <brian.chandler@...> wrote:

From: Brian <brian.chandler@...>
Subject: [Vantage] Time Phase Suggestions
To: vantage@yahoogroups.com
Date: Tuesday, July 29, 2008, 11:14 AM






Does anyone know how I can modify the Time Phase form to
leave 'Suggestions' unchecked when the form is opened?
2
Does anyone know how I can modify the Time Phase form to
leave 'Suggestions' unchecked when the form is opened?
3
--- In vantage@yahoogroups.com, "Brian" <brian.chandler@...> wrote:
>
> Does anyone know how I can modify the Time Phase form to
> leave 'Suggestions' unchecked when the form is opened?
>

Define a checkbox *you* can control in the Custom Module Level
Variables Section:

'// Add Custom Module Level Variables Here **
Private WithEvents chkSuggestions As EpiCheckBox


Add a Form Load Event Handler and set your checkbox to be equal to
the form's checkbox and then set your control to unchecked:

Private Sub TimePhasForm_Load(ByVal sender As object, ByVal
args As EventArgs) Handles TimePhasForm.Load
'//
'// Add Event Handler Code
'//
chkSuggestions = CType(csm.GetNativeControlReference
("cdf4e0c8-4643-4c8b-9aaf-a53c47ce9985"), EpiCheckBox)
chkSuggestions.Checked = False

End Sub