8.00.811b MES Custom Buttons

Yahoo Archive
1
After a few days of working and getting some help from Epicor here is
the working script for launching mulitple buttons from MES. Hope
someone finds it useful, for us it will save using full Vantage
licenses to access this information.
We are launching the BOM Listing, and two KanBan trackers.


'// Add Custom Module Level Variables Here **
Private WithEvents btnLaunchTracker As EpiButton
Private WithEvents btnLaunchTracker2 As EpiButton
Private WithEvents btnLaunchTracker3 As EpiButton

Sub InitializeCustomCode()


'// ** Wizard Insert Location - Do not
delete 'Begin/End Wizard Added Variable Intialization' lines **
'// Begin Wizard Added Variable Intialization

'// End Wizard Added Variable Intialization
'// Begin Custom Method Calls

'// End Custom Method Calls
End Sub



Sub DestroyCustomCode()


'// ** Wizard Insert Location - Do not
delete 'Begin/End Wizard Added Object Disposal' lines **
'// Begin Wizard Added Object Disposal

'// End Wizard Added Object Disposal
'// Begin Custom Code Disposal

'// End Custom Code Disposal
End Sub


Private Sub MESMenu_Load(ByVal sender As object, ByVal args As
EventArgs) Handles MESMenu.Load
'//
'// Add Event Handler Code
'//

btnLaunchTracker = CType(csm.GetNativeControlReference("185621db-3bc2-
439a-b146-886972af8e00"), EpiButton)
btnLaunchTracker.Enabled = True

btnLaunchTracker2 = CType(csm.GetNativeControlReference("6485a0e7-
804a-4831-8995-80604acca0ff"), EpiButton)
btnLaunchTracker2.Enabled = True

btnLaunchTracker3 = CType(csm.GetNativeControlReference("c63b952e-
e911-49c6-a26b-df34404201c0"), EpiButton)
btnLaunchTracker3.Enabled = True

End Sub

Private Sub btnLaunchTracker_Click(ByVal Sender As Object, ByVal args
As EventArgs ) Handles btnLaunchTracker.Click
ProcessCaller.LaunchForm(MESMenu, "BMMN4020")
End Sub


Private Sub btnLaunchTracker2_Click(ByVal Sender As Object, ByVal
args As EventArgs ) Handles btnLaunchTracker2.Click
'//
'//
'//Launch KanBan by Cells
'//
ProcessCaller.LaunchForm(MESMenu, "UD9002")
End Sub



Private Sub btnLaunchTracker3_Click(ByVal Sender As Object, ByVal
args As EventArgs ) Handles btnLaunchTracker3.Click
'//
'//
'//Launch KanBan by Production Overview
'//
ProcessCaller.LaunchForm(MESMenu, "UD123")
End Sub


Darren Giordano
PACE Worldwide






--- In vantage@yahoogroups.com, Darren Giordano
<scubadoobydootoo@...> wrote:
>
> I was wondering if anyone has added more than one custom button to
the MES screen?
> I am trying to add two additional dashboard buttons to the
production screen, I have one custom button that has been setup and
working on it already. But I can't seem to get the additional
buttons to function. The code compiles correctly but will not launch
the dashboard, so I don't have something quite right.
>
> I greatly appreciate any help.
>
> Thank you,
> Darren Giordano
> PACE Worldwide
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
> [Non-text portions of this message have been removed]
>
2
I was wondering if anyone has added more than one custom button to the MES screen?
I am trying to add two additional dashboard buttons to the production screen, I have one custom button that has been setup and working on it already. But I can't seem to get the additional buttons to function. The code compiles correctly but will not launch the dashboard, so I don't have something quite right.

I greatly appreciate any help.

Thank you,
Darren Giordano
PACE Worldwide

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

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