EpiShape Changes

Yahoo Archive
1
I will be on vacation and out of the office from Monday March 19th and returning Thursday March 29th. All emails are being forwarded to Dan Sutherby during this period. If it is urgent he can be reached at 508-970-0099x120.
2
Looking to create a customization for the CheckListDtl form where if Checkbox01 is true an EpiShape is green else the EpiShape is red.

This has to be fairly straight forward, but not sure where to start.
3
Heres a snippet from my job tracker....

Sub Status_Head()
Dim edvJobHead As EpiDataView = CType(oTrans.EpiDataViews("JobHead"),EpiDataView)
Dim shpDMRAlertH as EpiShape
shpDMRAlertH = CType(csm.GetNativeControlReference("c1544ca8-82f8-4ec4-9602-67064b5e679a"),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-0590
FAX: (715)284-4084
[Description: 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 Anon
Sent: Saturday, February 04, 2012 4:07 PM
To: vantage@yahoogroups.com
Subject: [Vantage] EpiShape Changes



Looking to create a customization for the CheckListDtl form where if Checkbox01 is true an EpiShape is green else the EpiShape is red.

This has to be fairly straight forward, but not sure where to start.



[Non-text portions of this message have been removed]
4
shpDMRAlertH =
CType(csm.GetNativeControlReference("c1544ca8-82f8-4ec4-9602-67064b5e679a"),
EpiShape)



Is that line the reason why I can't just take the name of a native control
and modify properties. Example being say I have the epiOrderNum field, a
native control and the txtMyCustomControl field a custom control.



I can't seem to do epiOrderNum.Text = "kjasdfjs", but I can do
txtMyCustomControl.Text = "ajskfjks" for some reason within the same block
of code. Didn't understand it. Do I have to get those native controls
using the keys?



Also for the coloring the piece I was missing was 'shpDMRAlertH.Status =
StatusTypes.XXXXX'.



Thank you very much.



Joshua Giese

Chief Technical Officer

920.437.6400 Ext. 337



*Do not follow where the path may lead. Go instead where there is no path
and leave a trail - Harold R. McAlindon*



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
Rob Bucek
Sent: Monday, February 06, 2012 8:30 AM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] EpiShape Changes





Heres a snippet from my job tracker....

Sub Status_Head()
Dim edvJobHead As EpiDataView =
CType(oTrans.EpiDataViews("JobHead"),EpiDataView)
Dim shpDMRAlertH as EpiShape
shpDMRAlertH =
CType(csm.GetNativeControlReference("c1544ca8-82f8-4ec4-9602-67064b5e679a"),
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-0590
FAX: (715)284-4084
[Description: 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 Anon
Sent: Saturday, February 04, 2012 4:07 PM
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Subject: [Vantage] EpiShape Changes

Looking to create a customization for the CheckListDtl form where if
Checkbox01 is true an EpiShape is green else the EpiShape is red.

This has to be fairly straight forward, but not sure where to start.

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





[Non-text portions of this message have been removed]
5
StatusTypes.Warning

StatusTypes.Global

StatusTypes.OK

StatusTypes.Stop

ex.

shpEpiCustom1.Status = StatusTypes.Warning

As for setting the status types based on the value of a given field or control, it shouldn't have any bearing on whether or not it is a native or custom control.

Rob Bucek
Production Control Manager
PH: (715) 284-5376 ext 311
Mobile: (715)896-0590
FAX: (715)284-4084
[Description: 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 Joshua Giese
Sent: Monday, February 06, 2012 8:36 AM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] EpiShape Changes



shpDMRAlertH =
CType(csm.GetNativeControlReference("c1544ca8-82f8-4ec4-9602-67064b5e679a"),
EpiShape)

Is that line the reason why I can't just take the name of a native control
and modify properties. Example being say I have the epiOrderNum field, a
native control and the txtMyCustomControl field a custom control.

I can't seem to do epiOrderNum.Text = "kjasdfjs", but I can do
txtMyCustomControl.Text = "ajskfjks" for some reason within the same block
of code. Didn't understand it. Do I have to get those native controls
using the keys?

Also for the coloring the piece I was missing was 'shpDMRAlertH.Status =
StatusTypes.XXXXX'.

Thank you very much.

Joshua Giese

Chief Technical Officer

920.437.6400 Ext. 337

*Do not follow where the path may lead. Go instead where there is no path
and leave a trail - Harold R. McAlindon*

From: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com> [mailto:vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>] On Behalf Of
Rob Bucek
Sent: Monday, February 06, 2012 8:30 AM
To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>
Subject: RE: [Vantage] EpiShape Changes

Heres a snippet from my job tracker....

Sub Status_Head()
Dim edvJobHead As EpiDataView =
CType(oTrans.EpiDataViews("JobHead"),EpiDataView)
Dim shpDMRAlertH as EpiShape
shpDMRAlertH =
CType(csm.GetNativeControlReference("c1544ca8-82f8-4ec4-9602-67064b5e679a"),
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-0590
FAX: (715)284-4084
[Description: cid:1.234354861@...<mailto:1.234354861%40web65412.mail.ac4.yahoo.com>
<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%40yahoogroups.com>
[mailto:vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com> <mailto:vantage%40yahoogroups.com> ] On
Behalf Of Anon
Sent: Saturday, February 04, 2012 4:07 PM
To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com> <mailto:vantage%40yahoogroups.com>
Subject: [Vantage] EpiShape Changes

Looking to create a customization for the CheckListDtl form where if
Checkbox01 is true an EpiShape is green else the EpiShape is red.

This has to be fairly straight forward, but not sure where to start.

[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]
6
Serious bug in my last post with complete code, deleted that and re-posting.

Private Sub Dtl_AfterRowChange(ByVal args As EpiRowChangedArgs)
UpdateApprovedShape()
End Sub

Private Sub Dtl_DataView_ListChanged(ByVal sender As Object, ByVal args As ListChangedEventArgs)
UpdateApprovedShape()
End Sub

Private Sub UpdateApprovedShape()
' Create/Set Function level vars
Dim shpApproved as EpiShape = CType(csm.GetNativeControlReference("1be4b636-4a3d-4af9-b5cf-d764445f9de6"),EpiShape)
Dim edvDtl As EpiDataView = CType(oTrans.EpiDataViews("Dtl"),EpiDataView)

' Try to set approval EpiShape
Try
If edvDtl.dataView(edvDtl.Row)("CheckBox01") Then
shpApproved.Visible = true
shpApproved.Status = StatusTypes.ok
shpApproved.EnabledCaption = "Approved"
Else
shpApproved.Visible = true
shpApproved.Status = StatusTypes.stop
shpApproved.EnabledCaption = "Not Approved"
End If
Catch ex As Exception
' EpiMessageBox.Show("Unable to get Approved Status")
End Try
End Sub

--- In vantage@yahoogroups.com, Rob Bucek <rbucek@...> wrote:
>
> StatusTypes.Warning
>
> StatusTypes.Global
>
> StatusTypes.OK
>
> StatusTypes.Stop
>
> ex.
>
> shpEpiCustom1.Status = StatusTypes.Warning
>
> As for setting the status types based on the value of a given field or control, it shouldn't have any bearing on whether or not it is a native or custom control.
>
> Rob Bucek
> Production Control Manager
> PH: (715) 284-5376 ext 311
> Mobile: (715)896-0590
> FAX: (715)284-4084
> [Description: 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 Joshua Giese
> Sent: Monday, February 06, 2012 8:36 AM
> To: vantage@yahoogroups.com
> Subject: RE: [Vantage] EpiShape Changes
>
>
>
> shpDMRAlertH =
> CType(csm.GetNativeControlReference("c1544ca8-82f8-4ec4-9602-67064b5e679a"),
> EpiShape)
>
> Is that line the reason why I can't just take the name of a native control
> and modify properties. Example being say I have the epiOrderNum field, a
> native control and the txtMyCustomControl field a custom control.
>
> I can't seem to do epiOrderNum.Text = "kjasdfjs", but I can do
> txtMyCustomControl.Text = "ajskfjks" for some reason within the same block
> of code. Didn't understand it. Do I have to get those native controls
> using the keys?
>
> Also for the coloring the piece I was missing was 'shpDMRAlertH.Status =
> StatusTypes.XXXXX'.
>
> Thank you very much.
>
> Joshua Giese
>
> Chief Technical Officer
>
> 920.437.6400 Ext. 337
>
> *Do not follow where the path may lead. Go instead where there is no path
> and leave a trail - Harold R. McAlindon*
>
> From: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com> [mailto:vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>] On Behalf Of
> Rob Bucek
> Sent: Monday, February 06, 2012 8:30 AM
> To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>
> Subject: RE: [Vantage] EpiShape Changes
>
> Heres a snippet from my job tracker....
>
> Sub Status_Head()
> Dim edvJobHead As EpiDataView =
> CType(oTrans.EpiDataViews("JobHead"),EpiDataView)
> Dim shpDMRAlertH as EpiShape
> shpDMRAlertH =
> CType(csm.GetNativeControlReference("c1544ca8-82f8-4ec4-9602-67064b5e679a"),
> 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-0590
> FAX: (715)284-4084
> [Description: cid:1.234354861@...<mailto:1.234354861%40web65412.mail.ac4.yahoo.com>
> <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%40yahoogroups.com>
> [mailto:vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com> <mailto:vantage%40yahoogroups.com> ] On
> Behalf Of Anon
> Sent: Saturday, February 04, 2012 4:07 PM
> To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com> <mailto:vantage%40yahoogroups.com>
> Subject: [Vantage] EpiShape Changes
>
> Looking to create a customization for the CheckListDtl form where if
> Checkbox01 is true an EpiShape is green else the EpiShape is red.
>
> This has to be fairly straight forward, but not sure where to start.
>
> [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]
>
7
Mr. Bucek which version of Vantage are you using? I can't seem to get mine to work and Epicor Support said it is because of a "limitation in Vantage" My goal is to tie the EpiShape to POHeader.VoidOrder

thanks

--- In vantage@yahoogroups.com, Rob Bucek <rbucek@...> wrote:
>
> Heres a snippet from my job tracker....
>
> Sub Status_Head()
> Dim edvJobHead As EpiDataView = CType(oTrans.EpiDataViews("JobHead"),EpiDataView)
> Dim shpDMRAlertH as EpiShape
> shpDMRAlertH = CType(csm.GetNativeControlReference("c1544ca8-82f8-4ec4-9602-67064b5e679a"),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-0590
> FAX: (715)284-4084
> [Description: 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 Anon
> Sent: Saturday, February 04, 2012 4:07 PM
> To: vantage@yahoogroups.com
> Subject: [Vantage] EpiShape Changes
>
>
>
> Looking to create a customization for the CheckListDtl form where if Checkbox01 is true an EpiShape is green else the EpiShape is red.
>
> This has to be fairly straight forward, but not sure where to start.
>
>
>
> [Non-text portions of this message have been removed]
>
8
I'm on 8.03.409<tel:803409>c

Sent from my Verizon Wireless Droid


-----Original message-----
From: vacortes21 <vcortes@...>
To: "vantage@yahoogroups.com" <vantage@yahoogroups.com>
Sent: Fri, Mar 16, 2012 22:50:30 GMT+00:00
Subject: [Vantage] Re: EpiShape Changes



Mr. Bucek which version of Vantage are you using? I can't seem to get mine to work and Epicor Support said it is because of a "limitation in Vantage" My goal is to tie the EpiShape to POHeader.VoidOrder

thanks

--- In vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>, Rob Bucek <rbucek@...> wrote:
>
> Heres a snippet from my job tracker....
>
> Sub Status_Head()
> Dim edvJobHead As EpiDataView = CType(oTrans.EpiDataViews("JobHead"),EpiDataView)
> Dim shpDMRAlertH as EpiShape
> shpDMRAlertH = CType(csm.GetNativeControlReference("c1544ca8-82f8-4ec4-9602-67064b5e679a"),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-0590
> FAX: (715)284-4084
> [Description: cid:1.234354861@...]<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 Anon
> Sent: Saturday, February 04, 2012 4:07 PM
> To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>
> Subject: [Vantage] EpiShape Changes
>
>
>
> Looking to create a customization for the CheckListDtl form where if Checkbox01 is true an EpiShape is green else the EpiShape is red.
>
> This has to be fairly straight forward, but not sure where to start.
>
>
>
> [Non-text portions of this message have been removed]
>





[Non-text portions of this message have been removed]
9
I will be on vacation and out of the office from Monday March 19th and returning Thursday March 29th. All emails are being forwarded to Dan Sutherby during this period. If it is urgent he can be reached at 508-970-0099x120.
10
I will be on vacation and out of the office from Monday March 19th and returning Thursday March 29th. All emails are being forwarded to Dan Sutherby during this period. If it is urgent he can be reached at 508-970-0099x120.
11
I will be on vacation and out of the office from Monday March 19th and returning Thursday March 29th. All emails are being forwarded to Dan Sutherby during this period. If it is urgent he can be reached at 508-970-0099x120.
12
I will be on vacation and out of the office from Monday March 19th and returning Thursday March 29th. All emails are being forwarded to Dan Sutherby during this period. If it is urgent he can be reached at 508-970-0099x120.
13
I will be on vacation and out of the office from Monday March 19th and returning Thursday March 29th. All emails are being forwarded to Dan Sutherby during this period. If it is urgent he can be reached at 508-970-0099x120.
14
I will be on vacation and out of the office from Monday March 19th and returning Thursday March 29th. All emails are being forwarded to Dan Sutherby during this period. If it is urgent he can be reached at 508-970-0099x120.
15
I will be on vacation and out of the office from Monday March 19th and returning Thursday March 29th. All emails are being forwarded to Dan Sutherby during this period. If it is urgent he can be reached at 508-970-0099x120.
16
I will be on vacation and out of the office from Monday March 19th and returning Thursday March 29th. All emails are being forwarded to Dan Sutherby during this period. If it is urgent he can be reached at 508-970-0099x120.
17
I will be on vacation and out of the office from Monday March 19th and returning Thursday March 29th. All emails are being forwarded to Dan Sutherby during this period. If it is urgent he can be reached at 508-970-0099x120.