8.03.409a
Im writing a client side customization for job tracker that manipulates
an epishape based on a condition. This needs to happen based on user
selection of operations in the tree view. So far everything works great
with before or after row change, but only when I select different rows
AFTER having selected an initial row, the shape changes. Upon initially
selecting a row it does nothing (even though the conditions are present
to do something on that particular row). Epivewnotification does
nothing.. the before/after adapter methods are not relevant (I don't
believe)... any ideas? My code thus far...
Thanks in advance..
Private Sub edvJobOper_EpiViewNotification(view As EpiDataView, args
As EpiNotifyArgs) Handles edvJobOper.EpiViewNotification
'// ** Argument Properties and Uses **
'// view.dataView(args.Row)("[FieldName]")
'// args.Row, args.Column, args.Sender, args.NotifyType
'// NotifyType.Initialize, NotifyType.AddRow,
NotifyType.DeleteRow, NotifyType.InitLastView,
NotifyType.InitAndResetTreeNodes
If (args.NotifyType = EpiTransaction.NotifyType.Initialize) Then
If (args.Row > -1) Then
Status()
End If
End If
End Sub
Sub Status()
Dim edvJobOper As EpiDataView =
CType(oTrans.EpiDataViews("JobOper"),EpiDataView)
Dim shpDMRAlert as EpiShape
shpDMRAlert =
CType(csm.GetNativeControlReference("e160aaa2-1337-4944-b513-4daacc4ed64
8"),EpiShape)
try
if edvJobOper.dataView(edvJobOper.Row)("CheckBox01") = True Then
'messagebox.show("check on")
shpDMRAlert.Enabled = True
shpDMRAlert.Status = StatusTypes.stop
shpDMRAlert.EnabledCaption = "DMR Present"
Else
if edvJobOper.dataView(edvJobOper.Row)("CheckBox01") = False
Then
'messagebox.show("check off")
shpDMRAlert.Enabled = False
End If
End If
Catch ex as Exception
shpDMRAlert.Visible = false
End Try
End Sub
Private Sub JobOper_AfterRowChange(ByVal args As
EpiRowChangedArgs) Handles JobOper_Row.EpiRowChanged
'// ** Argument Properties and Uses **
'//
args.CurrentView.dataView(args.CurrentRow)("[FieldName]")
'// args.LastRow, args.CurrentRow,
args.CurrentView
'
'Add Event Handler Code
'
messagebox.show(args.currentrow)
Status()
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/>
[Non-text portions of this message have been removed]
Im writing a client side customization for job tracker that manipulates
an epishape based on a condition. This needs to happen based on user
selection of operations in the tree view. So far everything works great
with before or after row change, but only when I select different rows
AFTER having selected an initial row, the shape changes. Upon initially
selecting a row it does nothing (even though the conditions are present
to do something on that particular row). Epivewnotification does
nothing.. the before/after adapter methods are not relevant (I don't
believe)... any ideas? My code thus far...
Thanks in advance..
Private Sub edvJobOper_EpiViewNotification(view As EpiDataView, args
As EpiNotifyArgs) Handles edvJobOper.EpiViewNotification
'// ** Argument Properties and Uses **
'// view.dataView(args.Row)("[FieldName]")
'// args.Row, args.Column, args.Sender, args.NotifyType
'// NotifyType.Initialize, NotifyType.AddRow,
NotifyType.DeleteRow, NotifyType.InitLastView,
NotifyType.InitAndResetTreeNodes
If (args.NotifyType = EpiTransaction.NotifyType.Initialize) Then
If (args.Row > -1) Then
Status()
End If
End If
End Sub
Sub Status()
Dim edvJobOper As EpiDataView =
CType(oTrans.EpiDataViews("JobOper"),EpiDataView)
Dim shpDMRAlert as EpiShape
shpDMRAlert =
CType(csm.GetNativeControlReference("e160aaa2-1337-4944-b513-4daacc4ed64
8"),EpiShape)
try
if edvJobOper.dataView(edvJobOper.Row)("CheckBox01") = True Then
'messagebox.show("check on")
shpDMRAlert.Enabled = True
shpDMRAlert.Status = StatusTypes.stop
shpDMRAlert.EnabledCaption = "DMR Present"
Else
if edvJobOper.dataView(edvJobOper.Row)("CheckBox01") = False
Then
'messagebox.show("check off")
shpDMRAlert.Enabled = False
End If
End If
Catch ex as Exception
shpDMRAlert.Visible = false
End Try
End Sub
Private Sub JobOper_AfterRowChange(ByVal args As
EpiRowChangedArgs) Handles JobOper_Row.EpiRowChanged
'// ** Argument Properties and Uses **
'//
args.CurrentView.dataView(args.CurrentRow)("[FieldName]")
'// args.LastRow, args.CurrentRow,
args.CurrentView
'
'Add Event Handler Code
'
messagebox.show(args.currentrow)
Status()
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/>
[Non-text portions of this message have been removed]