Working with EpiShapes

Yahoo Archive
1
Thank you! This helped.

[Description: Description: logo]
Austin Skrepak
Data Specialist / Developer
[PHONE] 712.324.4854 Ext: 2019
[EMAIL] askrepak@...<mailto:askrepak@...>

"Without ambition one starts nothing. Without work one finishes nothing. The prize will not be sent to you. You have to win it."
Ralph Waldo Emerson

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Rob Bucek
Sent: Thursday, December 20, 2012 1:44 PM
To: vantage@yahoogroups.com
Subject: [Vantage] RE: Working with EpiShapes



Here's how I did it...

Private Sub edvJobHead_EpiViewNotification(view As EpiDataView, args As EpiNotifyArgs) Handles edvJobHead.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_Head()
Rework()
End If
End If

End Sub

Sub Status_Head()
Dim edvJobHead As EpiDataView = CType(oTrans.EpiDataViews("JobHead"),EpiDataView)
Dim shpDMRAlertH as EpiShape
shpDMRAlertH = CType(csm.GetNativeControlReference("5b9d3214-b165-442a-8516-2f136567257f"),EpiShape)
try
if edvJobHead.dataView(edvJobHead.Row)("CheckBox02") = True Then
'messagebox.show("check on")
shpDMRAlertH.Enabled = True
shpDMRAlertH.Status = StatusTypes.stop
shpDMRAlertH.EnabledCaption = "DMR Present"
Else
if edvJobHead.dataView(edvJobHead.Row)("CheckBox02") = False Then
'messagebox.show("check off")
shpDMRAlertH.Enabled = False
End If
End If
Catch ex as Exception
'shpDMRAlert.Visible = false
End Try
End Sub
Rob Bucek
Production Control Manager
PH: (715) 284-5376 ext 311
Mobile: (715)896-4832
FAX: (715)284-4084
[cid:1.234354861@...<mailto:1.234354861%40web65412.mail.ac4.yahoo.com>]<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 Austin Skrepak
Sent: Thursday, December 20, 2012 1:38 PM
To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>
Subject: [Vantage] Working with EpiShapes

I'm struggling. I've added a new checkbox in Job Entry in the status section tied to JobHead.Checkbox03. Now, I am trying to link an EpiShape to it to have it colored red when the checkbox is checked. Can anyone help me with this? I feel like there is probably something simple I am missing.

Thank you,

Austin Skrepak
Data Specialist / Developer

"Without ambition one starts nothing. Without work one finishes nothing. The prize will not be sent to you. You have to win it."
Ralph Waldo Emerson

[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]
2
I'm struggling. I've added a new checkbox in Job Entry in the status section tied to JobHead.Checkbox03. Now, I am trying to link an EpiShape to it to have it colored red when the checkbox is checked. Can anyone help me with this? I feel like there is probably something simple I am missing.

Thank you,


Austin Skrepak
Data Specialist / Developer

"Without ambition one starts nothing. Without work one finishes nothing. The prize will not be sent to you. You have to win it."
Ralph Waldo Emerson



[Non-text portions of this message have been removed]
3
Here's how I did it...


Private Sub edvJobHead_EpiViewNotification(view As EpiDataView, args As EpiNotifyArgs) Handles edvJobHead.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_Head()
Rework()
End If
End If

End Sub

Sub Status_Head()
Dim edvJobHead As EpiDataView = CType(oTrans.EpiDataViews("JobHead"),EpiDataView)
Dim shpDMRAlertH as EpiShape
shpDMRAlertH = CType(csm.GetNativeControlReference("5b9d3214-b165-442a-8516-2f136567257f"),EpiShape)
try
if edvJobHead.dataView(edvJobHead.Row)("CheckBox02") = True Then
'messagebox.show("check on")
shpDMRAlertH.Enabled = True
shpDMRAlertH.Status = StatusTypes.stop
shpDMRAlertH.EnabledCaption = "DMR Present"
Else
if edvJobHead.dataView(edvJobHead.Row)("CheckBox02") = False Then
'messagebox.show("check off")
shpDMRAlertH.Enabled = False
End If
End If
Catch ex as Exception
'shpDMRAlert.Visible = false
End Try
End Sub
Rob Bucek
Production Control Manager
PH: (715) 284-5376 ext 311
Mobile: (715)896-4832
FAX: (715)284-4084
[cid:1.234354861@...]<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 Austin Skrepak
Sent: Thursday, December 20, 2012 1:38 PM
To: vantage@yahoogroups.com
Subject: [Vantage] Working with EpiShapes



I'm struggling. I've added a new checkbox in Job Entry in the status section tied to JobHead.Checkbox03. Now, I am trying to link an EpiShape to it to have it colored red when the checkbox is checked. Can anyone help me with this? I feel like there is probably something simple I am missing.

Thank you,

Austin Skrepak
Data Specialist / Developer

"Without ambition one starts nothing. Without work one finishes nothing. The prize will not be sent to you. You have to win it."
Ralph Waldo Emerson

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



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