Program Multiple MES Buttons

Yahoo Archive
1
I have not had any luck with that code for graying of the buttons.



Tim Dines

Information Technology

Steel Parts Manufacturing, Inc.

801 Berryman Pike

Tipton, IN 46072

Direct: 765-675-5201

Cell: 765-437-1402



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of pbriscoe10
Sent: Monday, January 25, 2010 7:34 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: Program Multiple MES Buttons





Thank you, this is exactly what I needed!

Now to look at the comments below for greying-out the buttons.

Thanks again for the help.

--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"Dines, Tim" <tdines@...> wrote:
>
> You will need to have a separate button tracker statement for each of
> the buttons. Below is my code. It got a little messy in the cut and
> paste, but is readable. We are version 8.03.408B.
>
>
>
> '//**************************************************
>
> '// Custom VB.NET code for MESMenu
>
> '// Created: 11/23/2009 7:53:17 AM
>
> '//**************************************************
>
> Imports System
>
> Imports System.Data
>
> Imports System.Diagnostics
>
> Imports System.Windows.Forms
>
> Imports System.ComponentModel
>
> Imports Microsoft.VisualBasic
>
> Imports Epicor.Mfg.UI
>
> Imports Epicor.Mfg.UI.FrameWork
>
> Imports Epicor.Mfg.UI.ExtendedProps
>
> Imports Epicor.Mfg.UI.FormFunctions
>
> Imports Epicor.Mfg.UI.Customization
>
> Imports Epicor.Mfg.UI.Adapters
>
> Imports Epicor.Mfg.UI.Searches
>
> Imports Epicor.Mfg.BO
>
>
>
>
>
> Module Script
>
>
>
>
>
>
>
> '// ** Wizard Insert Location - Do Not Remove 'Begin/End
> Wizard Added Module Level Variables' Comments! **
>
> '// Begin Wizard Added Module Level Variables **
>
>
>
> '// End Wizard Added Module Level Variables **
>
>
>
>
>
> '// Add Custom Module Level Variables Here **
>
>
>
> Private WithEvents btnLaunchTracker As EpiButton
>
> Private WithEvents btnLaunchTracker1 As EpiButton
>
> Private WithEvents btnLaunchTracker2 As EpiButton
>
> Private WithEvents btnLaunchTracker6 As EpiButton
>
> Private WithEvents btnLaunchTracker7 As EpiButton
>
> Private WithEvents btnLaunchTracker8 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("c63b952e-e911-49c6-a26b-df34404201c
> 0"), EpiButton)
>
> btnLaunchTracker.Enabled = True
>
> btnLaunchTracker1 =
>
CType(csm.GetNativeControlReference("b76487ac-0725-4359-bd48-27e309699c2
> c"), EpiButton)
>
> btnLaunchTracker1.Enabled = True
>
> btnLaunchTracker2 =
>
CType(csm.GetNativeControlReference("3091d13d-edd7-4773-9036-eea633900d6
> a"), EpiButton)
>
> btnLaunchTracker2.Enabled = True
>
> btnLaunchTracker6 =
>
CType(csm.GetNativeControlReference("4dd9a508-41d1-4a00-90ed-3c64e906866
> e"), EpiButton)
>
> btnLaunchTracker6.Enabled = True
>
> btnLaunchTracker7 =
>
CType(csm.GetNativeControlReference("b5a7494b-7c60-4135-ae1e-ff871e11fd9
> 1"), EpiButton)
>
> btnLaunchTracker7.Enabled = True
>
> btnLaunchTracker8 =
>
CType(csm.GetNativeControlReference("89873dd8-0acb-42b4-95a5-7dca6254806
> e"), EpiButton)
>
> btnLaunchTracker8.Enabled = True
>
> End Sub
>
>
>
> Private Sub btnLaunchTracker_Click(ByVal Sender As Object, ByVal
> args As EventArgs ) Handles btnLaunchTracker.Click
>
> ProcessCaller.LaunchForm(MESMenu,"MRRP3010")
>
> End Sub
>
>
>
> Private Sub btnLaunchTracker1_Click(ByVal Sender As
> Object, ByVal args As EventArgs ) Handles btnLaunchTracker1.Click
>
> ProcessCaller.LaunchForm(MESMenu, "UD1005") '<==== enter your
> menu Id here
>
> End Sub
>
>
>
>
>
>
>
> Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args
> As System.EventArgs) Handles btnEpiCustom1.Click
>
> '// ** Place Event Handling Code Here **
>
>
> Process.start("Outlook.exe")
>
>
>
> End Sub
>
>
>
> Private Sub btnEpiCustom2_Click(ByVal Sender As Object,
> ByVal Args As System.EventArgs) Handles btnEpiCustom2.Click
>
> '// ** Place Event Handling Code Here **
>
>
>
> Process.start("Excel.exe","g:\worksheet.xls")
>
> End Sub
>
>
>
> Private Sub btnEpiCustom3_Click(ByVal Sender As Object, ByVal Args
> As System.EventArgs) Handles btnEpiCustom3.Click
>
> '// ** Place Event Handling Code Here **
>
>
>
> Process.start("Excel.exe","g:\mfg\input-spm.xls")
>
> End Sub
>
>
>
>
>
> Private Sub btnLaunchTracker2_Click(ByVal Sender As
> Object, ByVal args As EventArgs ) Handles btnLaunchTracker2.Click
>
> ProcessCaller.LaunchForm(MESMenu, "JCRP4001")
> '<==== enter your menu Id here
>
> End Sub
>
>
>
>
>
> Private Sub btnEpiCustom6_Click(ByVal Sender As Object,
> ByVal Args As System.EventArgs) Handles btnEpiCustom6.Click
>
> Process.start("Excel.exe","g:\productionshipping.xls")
>
> End Sub
>
>
>
>
>
> Private Sub btnEpiCustom7_Click(ByVal Sender As Object,
> ByVal Args As System.EventArgs) Handles btnEpiCustom7.Click
>
> '// ** Place Event Handling Code Here **
>
>
> ProcessCaller.LaunchForm(MESMenu,
> "JCRP4008")
>
> End Sub
>
>
>
>
>
> Private Sub btnEpiCustom8_Click(ByVal Sender As Object,
> ByVal Args As System.EventArgs) Handles btnEpiCustom8.Click
>
> '// ** Place Event Handling Code Here **
>
>
> ProcessCaller.LaunchForm(MESMenu,
> "JCG3002")
>
> End Sub
>
>
>
>
>
> End Module
>
>
>
> Tim Dines
>
> Information Technology
>
> Steel Parts Manufacturing, Inc.
>
> 801 Berryman Pike
>
> Tipton, IN 46072
>
> Direct: 765-675-5201
>
> Cell: 765-437-1402
>
>
>
> From: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
[mailto:vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ] On
Behalf
> Of pbriscoe10
> Sent: Wednesday, January 20, 2010 7:44 PM
> To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
> Subject: [Vantage] Program Multiple MES Buttons
>
>
>
>
>
> Hello,
>
> I have decided to use up some blank buttons in MES by using them to
> launch custom reports that we've made. I've followed the instructions
> for customizing MES to do this and have had success with one button.
> Now, I want to do this for other buttons too but am running into
script
> problems. I have copied and edited the script for one button from
> AnswerBook and it worked fine, but now that I want to add more
buttons,
> I'm not sure how to edit the script properly. The AnswerBook entry
I've
> read has a blurb on what to do in order to add more buttons, but I'm
> having trouble understanding how to apply this to my script. Below are
> the instructions from AnswerBook and below that is the code I
currently
> have. Any help is appreciated. Thank you.
>
> -------AnswerBook Instructions (that I don't understand)--------
> "What if I want to customize more than one button?
>
> You would work with a different set of properties, BUT it would need
to
> be addressed in this script. You need one procedure, and one pairing,
> per button. You would need one declaration of the procedure for the
GUID
> of the button, and another declaration of the procedure for the menu
ID.
> Also, each procedure needs a unique name, so if it were another
tracker,
> it might be btnLaunchTracker2."
>
> -------My Script (how would I change it to accommodate the other
> buttons?------
> '// Start of Custom report button
> Private WithEvents btnLaunchTracker As EpiButton
>
> Private Sub MESMenu_Load(ByVal sender As object, ByVal args As
> EventArgs) Handles MESMenu.Load
> '//
> '// Add Event Handler Code
> '//
>
> btnLaunchTracker =
>
CType(csm.GetNativeControlReference("1e025c84-e7f0-45b8-b592-8e8007a72ce
> 7"), EpiButton)
>
> btnLaunchTracker.Enabled = True
> End Sub
>
> Private Sub btnLaunchTracker_Click(ByVal Sender As Object, ByVal args
As
> EventArgs ) Handles btnLaunchTracker.Click
> ProcessCaller.LaunchForm(MESMenu, "UD10004")
> End Sub
> '// End of Custom report button
>
>
>
>
>
> [Non-text portions of this message have been removed]
>





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

I have decided to use up some blank buttons in MES by using them to launch custom reports that we've made. I've followed the instructions for customizing MES to do this and have had success with one button. Now, I want to do this for other buttons too but am running into script problems. I have copied and edited the script for one button from AnswerBook and it worked fine, but now that I want to add more buttons, I'm not sure how to edit the script properly. The AnswerBook entry I've read has a blurb on what to do in order to add more buttons, but I'm having trouble understanding how to apply this to my script. Below are the instructions from AnswerBook and below that is the code I currently have. Any help is appreciated. Thank you.

-------AnswerBook Instructions (that I don't understand)--------
"What if I want to customize more than one button?

You would work with a different set of properties, BUT it would need to be addressed in this script. You need one procedure, and one pairing, per button. You would need one declaration of the procedure for the GUID of the button, and another declaration of the procedure for the menu ID. Also, each procedure needs a unique name, so if it were another tracker, it might be btnLaunchTracker2."


-------My Script (how would I change it to accommodate the other buttons?------
'// Start of Custom report button
Private WithEvents btnLaunchTracker As EpiButton

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

btnLaunchTracker = CType(csm.GetNativeControlReference("1e025c84-e7f0-45b8-b592-8e8007a72ce7"), EpiButton)

btnLaunchTracker.Enabled = True
End Sub

Private Sub btnLaunchTracker_Click(ByVal Sender As Object, ByVal args As EventArgs ) Handles btnLaunchTracker.Click
ProcessCaller.LaunchForm(MESMenu, "UD10004")
End Sub
'// End of Custom report button
3
You will need to have a separate button tracker statement for each of
the buttons. Below is my code. It got a little messy in the cut and
paste, but is readable. We are version 8.03.408B.



'//**************************************************

'// Custom VB.NET code for MESMenu

'// Created: 11/23/2009 7:53:17 AM

'//**************************************************

Imports System

Imports System.Data

Imports System.Diagnostics

Imports System.Windows.Forms

Imports System.ComponentModel

Imports Microsoft.VisualBasic

Imports Epicor.Mfg.UI

Imports Epicor.Mfg.UI.FrameWork

Imports Epicor.Mfg.UI.ExtendedProps

Imports Epicor.Mfg.UI.FormFunctions

Imports Epicor.Mfg.UI.Customization

Imports Epicor.Mfg.UI.Adapters

Imports Epicor.Mfg.UI.Searches

Imports Epicor.Mfg.BO





Module Script







'// ** Wizard Insert Location - Do Not Remove 'Begin/End
Wizard Added Module Level Variables' Comments! **

'// Begin Wizard Added Module Level Variables **



'// End Wizard Added Module Level Variables **





'// Add Custom Module Level Variables Here **



Private WithEvents btnLaunchTracker As EpiButton

Private WithEvents btnLaunchTracker1 As EpiButton

Private WithEvents btnLaunchTracker2 As EpiButton

Private WithEvents btnLaunchTracker6 As EpiButton

Private WithEvents btnLaunchTracker7 As EpiButton

Private WithEvents btnLaunchTracker8 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("c63b952e-e911-49c6-a26b-df34404201c
0"), EpiButton)

btnLaunchTracker.Enabled = True

btnLaunchTracker1 =
CType(csm.GetNativeControlReference("b76487ac-0725-4359-bd48-27e309699c2
c"), EpiButton)

btnLaunchTracker1.Enabled = True

btnLaunchTracker2 =
CType(csm.GetNativeControlReference("3091d13d-edd7-4773-9036-eea633900d6
a"), EpiButton)

btnLaunchTracker2.Enabled = True

btnLaunchTracker6 =
CType(csm.GetNativeControlReference("4dd9a508-41d1-4a00-90ed-3c64e906866
e"), EpiButton)

btnLaunchTracker6.Enabled = True

btnLaunchTracker7 =
CType(csm.GetNativeControlReference("b5a7494b-7c60-4135-ae1e-ff871e11fd9
1"), EpiButton)

btnLaunchTracker7.Enabled = True

btnLaunchTracker8 =
CType(csm.GetNativeControlReference("89873dd8-0acb-42b4-95a5-7dca6254806
e"), EpiButton)

btnLaunchTracker8.Enabled = True

End Sub



Private Sub btnLaunchTracker_Click(ByVal Sender As Object, ByVal
args As EventArgs ) Handles btnLaunchTracker.Click

ProcessCaller.LaunchForm(MESMenu,"MRRP3010")

End Sub



Private Sub btnLaunchTracker1_Click(ByVal Sender As
Object, ByVal args As EventArgs ) Handles btnLaunchTracker1.Click

ProcessCaller.LaunchForm(MESMenu, "UD1005") '<==== enter your
menu Id here

End Sub







Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args
As System.EventArgs) Handles btnEpiCustom1.Click

'// ** Place Event Handling Code Here **


Process.start("Outlook.exe")



End Sub



Private Sub btnEpiCustom2_Click(ByVal Sender As Object,
ByVal Args As System.EventArgs) Handles btnEpiCustom2.Click

'// ** Place Event Handling Code Here **



Process.start("Excel.exe","g:\worksheet.xls")

End Sub



Private Sub btnEpiCustom3_Click(ByVal Sender As Object, ByVal Args
As System.EventArgs) Handles btnEpiCustom3.Click

'// ** Place Event Handling Code Here **



Process.start("Excel.exe","g:\mfg\input-spm.xls")

End Sub





Private Sub btnLaunchTracker2_Click(ByVal Sender As
Object, ByVal args As EventArgs ) Handles btnLaunchTracker2.Click

ProcessCaller.LaunchForm(MESMenu, "JCRP4001")
'<==== enter your menu Id here

End Sub





Private Sub btnEpiCustom6_Click(ByVal Sender As Object,
ByVal Args As System.EventArgs) Handles btnEpiCustom6.Click

Process.start("Excel.exe","g:\productionshipping.xls")

End Sub





Private Sub btnEpiCustom7_Click(ByVal Sender As Object,
ByVal Args As System.EventArgs) Handles btnEpiCustom7.Click

'// ** Place Event Handling Code Here **


ProcessCaller.LaunchForm(MESMenu,
"JCRP4008")

End Sub





Private Sub btnEpiCustom8_Click(ByVal Sender As Object,
ByVal Args As System.EventArgs) Handles btnEpiCustom8.Click

'// ** Place Event Handling Code Here **


ProcessCaller.LaunchForm(MESMenu,
"JCG3002")

End Sub





End Module



Tim Dines

Information Technology

Steel Parts Manufacturing, Inc.

801 Berryman Pike

Tipton, IN 46072

Direct: 765-675-5201

Cell: 765-437-1402



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of pbriscoe10
Sent: Wednesday, January 20, 2010 7:44 PM
To: vantage@yahoogroups.com
Subject: [Vantage] Program Multiple MES Buttons





Hello,

I have decided to use up some blank buttons in MES by using them to
launch custom reports that we've made. I've followed the instructions
for customizing MES to do this and have had success with one button.
Now, I want to do this for other buttons too but am running into script
problems. I have copied and edited the script for one button from
AnswerBook and it worked fine, but now that I want to add more buttons,
I'm not sure how to edit the script properly. The AnswerBook entry I've
read has a blurb on what to do in order to add more buttons, but I'm
having trouble understanding how to apply this to my script. Below are
the instructions from AnswerBook and below that is the code I currently
have. Any help is appreciated. Thank you.

-------AnswerBook Instructions (that I don't understand)--------
"What if I want to customize more than one button?

You would work with a different set of properties, BUT it would need to
be addressed in this script. You need one procedure, and one pairing,
per button. You would need one declaration of the procedure for the GUID
of the button, and another declaration of the procedure for the menu ID.
Also, each procedure needs a unique name, so if it were another tracker,
it might be btnLaunchTracker2."

-------My Script (how would I change it to accommodate the other
buttons?------
'// Start of Custom report button
Private WithEvents btnLaunchTracker As EpiButton

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

btnLaunchTracker =
CType(csm.GetNativeControlReference("1e025c84-e7f0-45b8-b592-8e8007a72ce
7"), EpiButton)

btnLaunchTracker.Enabled = True
End Sub

Private Sub btnLaunchTracker_Click(ByVal Sender As Object, ByVal args As
EventArgs ) Handles btnLaunchTracker.Click
ProcessCaller.LaunchForm(MESMenu, "UD10004")
End Sub
'// End of Custom report button





[Non-text portions of this message have been removed]
4
When you've set up the MES buttons have you got the same problem that I have got where the buttons are available whether you are logged in OR out and are available to ALL shopfloor employees?

I have raised it as a bug as I would expect the buttons to be greyed out when nobody is clocked in to the MES screen and would also expect the security for ie the shipping/receiving tab to be carried forward to the new button if it was added to the shipping/receiving tab.




________________________________
From: pbriscoe10 <pbriscoe10@...>
To: vantage@yahoogroups.com
Sent: Thu, 21 January, 2010 0:44:01
Subject: [Vantage] Program Multiple MES Buttons

Â
Hello,

I have decided to use up some blank buttons in MES by using them to launch custom reports that we've made. I've followed the instructions for customizing MES to do this and have had success with one button. Now, I want to do this for other buttons too but am running into script problems. I have copied and edited the script for one button from AnswerBook and it worked fine, but now that I want to add more buttons, I'm not sure how to edit the script properly. The AnswerBook entry I've read has a blurb on what to do in order to add more buttons, but I'm having trouble understanding how to apply this to my script. Below are the instructions from AnswerBook and below that is the code I currently have. Any help is appreciated. Thank you.

-------AnswerBook Instructions (that I don't understand)- -------
"What if I want to customize more than one button?

You would work with a different set of properties, BUT it would need to be addressed in this script. You need one procedure, and one pairing, per button. You would need one declaration of the procedure for the GUID of the button, and another declaration of the procedure for the menu ID. Also, each procedure needs a unique name, so if it were another tracker, it might be btnLaunchTracker2. "

-------My Script (how would I change it to accommodate the other buttons?---- --
'// Start of Custom report button
Private WithEvents btnLaunchTracker As EpiButton

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

btnLaunchTracker = CType(csm.GetNative ControlReference ("1e025c84- e7f0-45b8- b592-8e8007a72ce 7"), EpiButton)

btnLaunchTracker. Enabled = True
End Sub

Private Sub btnLaunchTracker_ Click(ByVal Sender As Object, ByVal args As EventArgs ) Handles btnLaunchTracker. Click
ProcessCaller. LaunchForm( MESMenu, "UD10004")
End Sub
'// End of Custom report button







[Non-text portions of this message have been removed]
5
I have not tried to gray the buttons on the MES. For the buttons that I am sending to Vantage screens, I have set the security in Menu Maintenance in such a way that it will only open to persons logged in with permissions.



Tim Dines

Information Technology

Steel Parts Manufacturing, Inc.

801 Berryman Pike

Tipton, IN 46072

Direct: 765-675-5201

Cell: 765-437-1402



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Chris Thompson
Sent: Thursday, January 21, 2010 7:55 AM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] Program Multiple MES Buttons





When you've set up the MES buttons have you got the same problem that I have got where the buttons are available whether you are logged in OR out and are available to ALL shopfloor employees?

I have raised it as a bug as I would expect the buttons to be greyed out when nobody is clocked in to the MES screen and would also expect the security for ie the shipping/receiving tab to be carried forward to the new button if it was added to the shipping/receiving tab.

________________________________
From: pbriscoe10 <pbriscoe10@... <mailto:pbriscoe10%40yahoo.com> >
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Sent: Thu, 21 January, 2010 0:44:01
Subject: [Vantage] Program Multiple MES Buttons


Hello,

I have decided to use up some blank buttons in MES by using them to launch custom reports that we've made. I've followed the instructions for customizing MES to do this and have had success with one button. Now, I want to do this for other buttons too but am running into script problems. I have copied and edited the script for one button from AnswerBook and it worked fine, but now that I want to add more buttons, I'm not sure how to edit the script properly. The AnswerBook entry I've read has a blurb on what to do in order to add more buttons, but I'm having trouble understanding how to apply this to my script. Below are the instructions from AnswerBook and below that is the code I currently have. Any help is appreciated. Thank you.

-------AnswerBook Instructions (that I don't understand)- -------
"What if I want to customize more than one button?

You would work with a different set of properties, BUT it would need to be addressed in this script. You need one procedure, and one pairing, per button. You would need one declaration of the procedure for the GUID of the button, and another declaration of the procedure for the menu ID. Also, each procedure needs a unique name, so if it were another tracker, it might be btnLaunchTracker2. "

-------My Script (how would I change it to accommodate the other buttons?---- --
'// Start of Custom report button
Private WithEvents btnLaunchTracker As EpiButton

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

btnLaunchTracker = CType(csm.GetNative ControlReference ("1e025c84- e7f0-45b8- b592-8e8007a72ce 7"), EpiButton)

btnLaunchTracker. Enabled = True
End Sub

Private Sub btnLaunchTracker_ Click(ByVal Sender As Object, ByVal args As EventArgs ) Handles btnLaunchTracker. Click
ProcessCaller. LaunchForm( MESMenu, "UD10004")
End Sub
'// End of Custom report button

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





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



You can handle this in various ways one example is to do the following



Private Sub edvMESControl_EpiViewNotification(view As EpiDataView, args As EpiNotifyArgs) Handles edvMESControl.EpiViewNotification

If (args.Row > -1) Then

Dim enabled as Boolean = Not view.dataView(args.Row)("LoggedIn")

btnYourButton.Enabled = enabled

End If

End Sub



You could also use the enabled property of another button, this would allow you to handle the user level control.



Regards,

Stephen

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Chris Thompson
Sent: 21 January 2010 12:55
To: vantage@yahoogroups.com
Subject: Re: [Vantage] Program Multiple MES Buttons





When you've set up the MES buttons have you got the same problem that I have got where the buttons are available whether you are logged in OR out and are available to ALL shopfloor employees?

I have raised it as a bug as I would expect the buttons to be greyed out when nobody is clocked in to the MES screen and would also expect the security for ie the shipping/receiving tab to be carried forward to the new button if it was added to the shipping/receiving tab.

________________________________
From: pbriscoe10 <pbriscoe10@... <mailto:pbriscoe10%40yahoo.com> >
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Sent: Thu, 21 January, 2010 0:44:01
Subject: [Vantage] Program Multiple MES Buttons


Hello,

I have decided to use up some blank buttons in MES by using them to launch custom reports that we've made. I've followed the instructions for customizing MES to do this and have had success with one button. Now, I want to do this for other buttons too but am running into script problems. I have copied and edited the script for one button from AnswerBook and it worked fine, but now that I want to add more buttons, I'm not sure how to edit the script properly. The AnswerBook entry I've read has a blurb on what to do in order to add more buttons, but I'm having trouble understanding how to apply this to my script. Below are the instructions from AnswerBook and below that is the code I currently have. Any help is appreciated. Thank you.

-------AnswerBook Instructions (that I don't understand)- -------
"What if I want to customize more than one button?

You would work with a different set of properties, BUT it would need to be addressed in this script. You need one procedure, and one pairing, per button. You would need one declaration of the procedure for the GUID of the button, and another declaration of the procedure for the menu ID. Also, each procedure needs a unique name, so if it were another tracker, it might be btnLaunchTracker2. "

-------My Script (how would I change it to accommodate the other buttons?---- --
'// Start of Custom report button
Private WithEvents btnLaunchTracker As EpiButton

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

btnLaunchTracker = CType(csm.GetNative ControlReference ("1e025c84- e7f0-45b8- b592-8e8007a72ce 7"), EpiButton)

btnLaunchTracker. Enabled = True
End Sub

Private Sub btnLaunchTracker_ Click(ByVal Sender As Object, ByVal args As EventArgs ) Handles btnLaunchTracker. Click
ProcessCaller. LaunchForm( MESMenu, "UD10004")
End Sub
'// End of Custom report button

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





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

I have used the answer book to add my button which has asked for me to add the following code then modify accordingly ...

Private WithEvents btnLaunchTracker As EpiButton

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

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

btnLaunchTracker.Enabled = True
End Sub

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


How do I fit your code in with the above code?

Also where do you find the enabled property of an existing button? Not very good at all this coding stuff.




________________________________
From: Stephen Edginton <stephene@...>
To: vantage@yahoogroups.com
Sent: Thu, 21 January, 2010 13:42:52
Subject: RE: [Vantage] Program Multiple MES Buttons

Â
Chris,



You can handle this in various ways one example is to do the following



Private Sub edvMESControl_ EpiViewNotificat ion(view As EpiDataView, args As EpiNotifyArgs) Handles edvMESControl. EpiViewNotificat ion

If (args.Row > -1) Then

Dim enabled as Boolean = Not view.dataView( args.Row) ("LoggedIn" )

btnYourButton. Enabled = enabled

End If

End Sub



You could also use the enabled property of another button, this would allow you to handle the user level control.



Regards,

Stephen

From: vantage@yahoogroups .com [mailto:vantage@yahoogroups .com] On Behalf Of Chris Thompson
Sent: 21 January 2010 12:55
To: vantage@yahoogroups .com
Subject: Re: [Vantage] Program Multiple MES Buttons





When you've set up the MES buttons have you got the same problem that I have got where the buttons are available whether you are logged in OR out and are available to ALL shopfloor employees?

I have raised it as a bug as I would expect the buttons to be greyed out when nobody is clocked in to the MES screen and would also expect the security for ie the shipping/receiving tab to be carried forward to the new button if it was added to the shipping/receiving tab.

____________ _________ _________ __
From: pbriscoe10 <pbriscoe10@yahoo. com <mailto:pbriscoe10% 40yahoo.com> >
To: vantage@yahoogroups .com <mailto:vantage% 40yahoogroups. com>
Sent: Thu, 21 January, 2010 0:44:01
Subject: [Vantage] Program Multiple MES Buttons


Hello,

I have decided to use up some blank buttons in MES by using them to launch custom reports that we've made. I've followed the instructions for customizing MES to do this and have had success with one button. Now, I want to do this for other buttons too but am running into script problems. I have copied and edited the script for one button from AnswerBook and it worked fine, but now that I want to add more buttons, I'm not sure how to edit the script properly. The AnswerBook entry I've read has a blurb on what to do in order to add more buttons, but I'm having trouble understanding how to apply this to my script. Below are the instructions from AnswerBook and below that is the code I currently have. Any help is appreciated. Thank you.

-------AnswerBook Instructions (that I don't understand)- -------
"What if I want to customize more than one button?

You would work with a different set of properties, BUT it would need to be addressed in this script. You need one procedure, and one pairing, per button. You would need one declaration of the procedure for the GUID of the button, and another declaration of the procedure for the menu ID. Also, each procedure needs a unique name, so if it were another tracker, it might be btnLaunchTracker2. "

-------My Script (how would I change it to accommodate the other buttons?---- --
'// Start of Custom report button
Private WithEvents btnLaunchTracker As EpiButton

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

btnLaunchTracker = CType(csm.GetNative ControlReference ("1e025c84- e7f0-45b8- b592-8e8007a72ce 7"), EpiButton)

btnLaunchTracker. Enabled = True
End Sub

Private Sub btnLaunchTracker_ Click(ByVal Sender As Object, ByVal args As EventArgs ) Handles btnLaunchTracker. Click
ProcessCaller. LaunchForm( MESMenu, "UD10004")
End Sub
'// End of Custom report button

[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]
8
Chris,

Go into customisation mode, then

Wizards Tab-> Form Event Wizard

Select Type – EpiViewNotification

Then select the view – MESControl



Press the Blue arrow to copy to preview the code, then press update selected event code.



Now go into the script editor you will see a new entry point for th eEpiViewNotification.



Based on your code below you would remove this line.

btnLanuchTracker.Endabled = True



then in the newly added epiViewnotification method you would add the following.



Private Sub edvMESControl_ EpiViewNotificat ion(view As EpiDataView, args As EpiNotifyArgs) Handles edvMESControl. EpiViewNotificat ion
If (args.Row > -1) Then
Dim enabled as Boolean = Not view.dataView( args.Row) ("LoggedIn" )
btnLaunchTracker. Enabled = enabled
End If



Then save an exit and now the button is only enabled when users are logged in.



With the question re an existing button,

What you do is exactly the same as you have done but make it uniqie so for another button

Private WithEvents btnLaunchTracker2 As EpiButton



In the Load method you need to associate this with a button on the screen

btnLaunchTracker2 = CType(csm.GetNativeControlReference("GUID"), EpiButton)



The GUID, is specific to the button you want to get access to, so

In customisation click on the button you want to control and look at its properties, here you will find its EpiGUID property



Hope this helps.



Regards,

Stephen



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Chris Thompson
Sent: 22 January 2010 08:54
To: vantage@yahoogroups.com
Subject: Re: [Vantage] Program Multiple MES Buttons





Interesting.

I have used the answer book to add my button which has asked for me to add the following code then modify accordingly ...

Private WithEvents btnLaunchTracker As EpiButton

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

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

btnLaunchTracker.Enabled = True
End Sub

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

How do I fit your code in with the above code?

Also where do you find the enabled property of an existing button? Not very good at all this coding stuff.

________________________________
From: Stephen Edginton <stephene@... <mailto:stephene%40dotnetit.co.uk> >
To: vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com>
Sent: Thu, 21 January, 2010 13:42:52
Subject: RE: [Vantage] Program Multiple MES Buttons


Chris,

You can handle this in various ways one example is to do the following

Private Sub edvMESControl_ EpiViewNotificat ion(view As EpiDataView, args As EpiNotifyArgs) Handles edvMESControl. EpiViewNotificat ion

If (args.Row > -1) Then

Dim enabled as Boolean = Not view.dataView( args.Row) ("LoggedIn" )

btnYourButton. Enabled = enabled

End If

End Sub

You could also use the enabled property of another button, this would allow you to handle the user level control.

Regards,

Stephen

From: vantage@yahoogroups .com [mailto:vantage@yahoogroups .com] On Behalf Of Chris Thompson
Sent: 21 January 2010 12:55
To: vantage@yahoogroups .com
Subject: Re: [Vantage] Program Multiple MES Buttons

When you've set up the MES buttons have you got the same problem that I have got where the buttons are available whether you are logged in OR out and are available to ALL shopfloor employees?

I have raised it as a bug as I would expect the buttons to be greyed out when nobody is clocked in to the MES screen and would also expect the security for ie the shipping/receiving tab to be carried forward to the new button if it was added to the shipping/receiving tab.

____________ _________ _________ __
From: pbriscoe10 <pbriscoe10@yahoo. com <mailto:pbriscoe10% 40yahoo.com> >
To: vantage@yahoogroups .com <mailto:vantage% 40yahoogroups. com>
Sent: Thu, 21 January, 2010 0:44:01
Subject: [Vantage] Program Multiple MES Buttons

Hello,

I have decided to use up some blank buttons in MES by using them to launch custom reports that we've made. I've followed the instructions for customizing MES to do this and have had success with one button. Now, I want to do this for other buttons too but am running into script problems. I have copied and edited the script for one button from AnswerBook and it worked fine, but now that I want to add more buttons, I'm not sure how to edit the script properly. The AnswerBook entry I've read has a blurb on what to do in order to add more buttons, but I'm having trouble understanding how to apply this to my script. Below are the instructions from AnswerBook and below that is the code I currently have. Any help is appreciated. Thank you.

-------AnswerBook Instructions (that I don't understand)- -------
"What if I want to customize more than one button?

You would work with a different set of properties, BUT it would need to be addressed in this script. You need one procedure, and one pairing, per button. You would need one declaration of the procedure for the GUID of the button, and another declaration of the procedure for the menu ID. Also, each procedure needs a unique name, so if it were another tracker, it might be btnLaunchTracker2. "

-------My Script (how would I change it to accommodate the other buttons?---- --
'// Start of Custom report button
Private WithEvents btnLaunchTracker As EpiButton

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

btnLaunchTracker = CType(csm.GetNative ControlReference ("1e025c84- e7f0-45b8- b592-8e8007a72ce 7"), EpiButton)

btnLaunchTracker. Enabled = True
End Sub

Private Sub btnLaunchTracker_ Click(ByVal Sender As Object, ByVal args As EventArgs ) Handles btnLaunchTracker. Click
ProcessCaller. LaunchForm( MESMenu, "UD10004")
End Sub
'// End of Custom report button

[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]





[Non-text portions of this message have been removed]
9
I will have a play with it and let me know how i get on.

Thanks.




________________________________
From: Stephen Edginton <stephene@...>
To: vantage@yahoogroups.com
Sent: Fri, 22 January, 2010 9:47:52
Subject: RE: [Vantage] Program Multiple MES Buttons

Â
Chris,

Go into customisation mode, then

Wizards Tab-> Form Event Wizard

Select Type – EpiViewNotification

Then select the view – MESControl



Press the Blue arrow to copy to preview the code, then press update selected event code.



Now go into the script editor you will see a new entry point for th eEpiViewNotificatio n.



Based on your code below you would remove this line.

btnLanuchTracker. Endabled = True



then in the newly added epiViewnotification method you would add the following.



Private Sub edvMESControl_ EpiViewNotificat ion(view As EpiDataView, args As EpiNotifyArgs) Handles edvMESControl. EpiViewNotificat ion
If (args.Row > -1) Then
Dim enabled as Boolean = Not view.dataView( args.Row) ("LoggedIn" )
btnLaunchTracker. Enabled = enabled
End If



Then save an exit and now the button is only enabled when users are logged in.



With the question re an existing button,

What you do is exactly the same as you have done but make it uniqie so for another button

Private WithEvents btnLaunchTracker2 As EpiButton



In the Load method you need to associate this with a button on the screen

btnLaunchTracker2 = CType(csm.GetNative ControlReference ("GUID"), EpiButton)



The GUID, is specific to the button you want to get access to, so

In customisation click on the button you want to control and look at its properties, here you will find its EpiGUID property



Hope this helps.



Regards,

Stephen



From: vantage@yahoogroups .com [mailto:vantage@yahoogroups .com] On Behalf Of Chris Thompson
Sent: 22 January 2010 08:54
To: vantage@yahoogroups .com
Subject: Re: [Vantage] Program Multiple MES Buttons





Interesting.

I have used the answer book to add my button which has asked for me to add the following code then modify accordingly ...

Private WithEvents btnLaunchTracker As EpiButton

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

btnLaunchTracker = CType(csm.GetNative ControlReference ("6485a0e7- 804a-4831- 8995-80604acca0f f"), EpiButton)

btnLaunchTracker. Enabled = True
End Sub

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

How do I fit your code in with the above code?

Also where do you find the enabled property of an existing button? Not very good at all this coding stuff.

____________ _________ _________ __
From: Stephen Edginton <stephene@dotnetit. co.uk <mailto:stephene% 40dotnetit. co.uk> >
To: vantage@yahoogroups .com <mailto:vantage% 40yahoogroups. com>
Sent: Thu, 21 January, 2010 13:42:52
Subject: RE: [Vantage] Program Multiple MES Buttons


Chris,

You can handle this in various ways one example is to do the following

Private Sub edvMESControl_ EpiViewNotificat ion(view As EpiDataView, args As EpiNotifyArgs) Handles edvMESControl. EpiViewNotificat ion

If (args.Row > -1) Then

Dim enabled as Boolean = Not view.dataView( args.Row) ("LoggedIn" )

btnYourButton. Enabled = enabled

End If

End Sub

You could also use the enabled property of another button, this would allow you to handle the user level control.

Regards,

Stephen

From: vantage@yahoogroups .com [mailto:vantage@ yahoogroups .com] On Behalf Of Chris Thompson
Sent: 21 January 2010 12:55
To: vantage@yahoogroups .com
Subject: Re: [Vantage] Program Multiple MES Buttons

When you've set up the MES buttons have you got the same problem that I have got where the buttons are available whether you are logged in OR out and are available to ALL shopfloor employees?

I have raised it as a bug as I would expect the buttons to be greyed out when nobody is clocked in to the MES screen and would also expect the security for ie the shipping/receiving tab to be carried forward to the new button if it was added to the shipping/receiving tab.

____________ _________ _________ __
From: pbriscoe10 <pbriscoe10@ yahoo. com <mailto:pbriscoe10% 40yahoo.com> >
To: vantage@yahoogroups .com <mailto:vantage% 40yahoogroups. com>
Sent: Thu, 21 January, 2010 0:44:01
Subject: [Vantage] Program Multiple MES Buttons

Hello,

I have decided to use up some blank buttons in MES by using them to launch custom reports that we've made. I've followed the instructions for customizing MES to do this and have had success with one button. Now, I want to do this for other buttons too but am running into script problems. I have copied and edited the script for one button from AnswerBook and it worked fine, but now that I want to add more buttons, I'm not sure how to edit the script properly. The AnswerBook entry I've read has a blurb on what to do in order to add more buttons, but I'm having trouble understanding how to apply this to my script. Below are the instructions from AnswerBook and below that is the code I currently have. Any help is appreciated. Thank you.

-------AnswerBook Instructions (that I don't understand)- -------
"What if I want to customize more than one button?

You would work with a different set of properties, BUT it would need to be addressed in this script. You need one procedure, and one pairing, per button. You would need one declaration of the procedure for the GUID of the button, and another declaration of the procedure for the menu ID. Also, each procedure needs a unique name, so if it were another tracker, it might be btnLaunchTracker2. "

-------My Script (how would I change it to accommodate the other buttons?---- --
'// Start of Custom report button
Private WithEvents btnLaunchTracker As EpiButton

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

btnLaunchTracker = CType(csm.GetNative ControlReference ("1e025c84- e7f0-45b8- b592-8e8007a72ce 7"), EpiButton)

btnLaunchTracker. Enabled = True
End Sub

Private Sub btnLaunchTracker_ Click(ByVal Sender As Object, ByVal args As EventArgs ) Handles btnLaunchTracker. Click
ProcessCaller. LaunchForm( MESMenu, "UD10004")
End Sub
'// End of Custom report button

[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]




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







[Non-text portions of this message have been removed]
10
Thank you, this is exactly what I needed!

Now to look at the comments below for greying-out the buttons.

Thanks again for the help.

--- In vantage@yahoogroups.com, "Dines, Tim" <tdines@...> wrote:
>
> You will need to have a separate button tracker statement for each of
> the buttons. Below is my code. It got a little messy in the cut and
> paste, but is readable. We are version 8.03.408B.
>
>
>
> '//**************************************************
>
> '// Custom VB.NET code for MESMenu
>
> '// Created: 11/23/2009 7:53:17 AM
>
> '//**************************************************
>
> Imports System
>
> Imports System.Data
>
> Imports System.Diagnostics
>
> Imports System.Windows.Forms
>
> Imports System.ComponentModel
>
> Imports Microsoft.VisualBasic
>
> Imports Epicor.Mfg.UI
>
> Imports Epicor.Mfg.UI.FrameWork
>
> Imports Epicor.Mfg.UI.ExtendedProps
>
> Imports Epicor.Mfg.UI.FormFunctions
>
> Imports Epicor.Mfg.UI.Customization
>
> Imports Epicor.Mfg.UI.Adapters
>
> Imports Epicor.Mfg.UI.Searches
>
> Imports Epicor.Mfg.BO
>
>
>
>
>
> Module Script
>
>
>
>
>
>
>
> '// ** Wizard Insert Location - Do Not Remove 'Begin/End
> Wizard Added Module Level Variables' Comments! **
>
> '// Begin Wizard Added Module Level Variables **
>
>
>
> '// End Wizard Added Module Level Variables **
>
>
>
>
>
> '// Add Custom Module Level Variables Here **
>
>
>
> Private WithEvents btnLaunchTracker As EpiButton
>
> Private WithEvents btnLaunchTracker1 As EpiButton
>
> Private WithEvents btnLaunchTracker2 As EpiButton
>
> Private WithEvents btnLaunchTracker6 As EpiButton
>
> Private WithEvents btnLaunchTracker7 As EpiButton
>
> Private WithEvents btnLaunchTracker8 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("c63b952e-e911-49c6-a26b-df34404201c
> 0"), EpiButton)
>
> btnLaunchTracker.Enabled = True
>
> btnLaunchTracker1 =
> CType(csm.GetNativeControlReference("b76487ac-0725-4359-bd48-27e309699c2
> c"), EpiButton)
>
> btnLaunchTracker1.Enabled = True
>
> btnLaunchTracker2 =
> CType(csm.GetNativeControlReference("3091d13d-edd7-4773-9036-eea633900d6
> a"), EpiButton)
>
> btnLaunchTracker2.Enabled = True
>
> btnLaunchTracker6 =
> CType(csm.GetNativeControlReference("4dd9a508-41d1-4a00-90ed-3c64e906866
> e"), EpiButton)
>
> btnLaunchTracker6.Enabled = True
>
> btnLaunchTracker7 =
> CType(csm.GetNativeControlReference("b5a7494b-7c60-4135-ae1e-ff871e11fd9
> 1"), EpiButton)
>
> btnLaunchTracker7.Enabled = True
>
> btnLaunchTracker8 =
> CType(csm.GetNativeControlReference("89873dd8-0acb-42b4-95a5-7dca6254806
> e"), EpiButton)
>
> btnLaunchTracker8.Enabled = True
>
> End Sub
>
>
>
> Private Sub btnLaunchTracker_Click(ByVal Sender As Object, ByVal
> args As EventArgs ) Handles btnLaunchTracker.Click
>
> ProcessCaller.LaunchForm(MESMenu,"MRRP3010")
>
> End Sub
>
>
>
> Private Sub btnLaunchTracker1_Click(ByVal Sender As
> Object, ByVal args As EventArgs ) Handles btnLaunchTracker1.Click
>
> ProcessCaller.LaunchForm(MESMenu, "UD1005") '<==== enter your
> menu Id here
>
> End Sub
>
>
>
>
>
>
>
> Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args
> As System.EventArgs) Handles btnEpiCustom1.Click
>
> '// ** Place Event Handling Code Here **
>
>
> Process.start("Outlook.exe")
>
>
>
> End Sub
>
>
>
> Private Sub btnEpiCustom2_Click(ByVal Sender As Object,
> ByVal Args As System.EventArgs) Handles btnEpiCustom2.Click
>
> '// ** Place Event Handling Code Here **
>
>
>
> Process.start("Excel.exe","g:\worksheet.xls")
>
> End Sub
>
>
>
> Private Sub btnEpiCustom3_Click(ByVal Sender As Object, ByVal Args
> As System.EventArgs) Handles btnEpiCustom3.Click
>
> '// ** Place Event Handling Code Here **
>
>
>
> Process.start("Excel.exe","g:\mfg\input-spm.xls")
>
> End Sub
>
>
>
>
>
> Private Sub btnLaunchTracker2_Click(ByVal Sender As
> Object, ByVal args As EventArgs ) Handles btnLaunchTracker2.Click
>
> ProcessCaller.LaunchForm(MESMenu, "JCRP4001")
> '<==== enter your menu Id here
>
> End Sub
>
>
>
>
>
> Private Sub btnEpiCustom6_Click(ByVal Sender As Object,
> ByVal Args As System.EventArgs) Handles btnEpiCustom6.Click
>
> Process.start("Excel.exe","g:\productionshipping.xls")
>
> End Sub
>
>
>
>
>
> Private Sub btnEpiCustom7_Click(ByVal Sender As Object,
> ByVal Args As System.EventArgs) Handles btnEpiCustom7.Click
>
> '// ** Place Event Handling Code Here **
>
>
> ProcessCaller.LaunchForm(MESMenu,
> "JCRP4008")
>
> End Sub
>
>
>
>
>
> Private Sub btnEpiCustom8_Click(ByVal Sender As Object,
> ByVal Args As System.EventArgs) Handles btnEpiCustom8.Click
>
> '// ** Place Event Handling Code Here **
>
>
> ProcessCaller.LaunchForm(MESMenu,
> "JCG3002")
>
> End Sub
>
>
>
>
>
> End Module
>
>
>
> Tim Dines
>
> Information Technology
>
> Steel Parts Manufacturing, Inc.
>
> 801 Berryman Pike
>
> Tipton, IN 46072
>
> Direct: 765-675-5201
>
> Cell: 765-437-1402
>
>
>
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
> Of pbriscoe10
> Sent: Wednesday, January 20, 2010 7:44 PM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Program Multiple MES Buttons
>
>
>
>
>
> Hello,
>
> I have decided to use up some blank buttons in MES by using them to
> launch custom reports that we've made. I've followed the instructions
> for customizing MES to do this and have had success with one button.
> Now, I want to do this for other buttons too but am running into script
> problems. I have copied and edited the script for one button from
> AnswerBook and it worked fine, but now that I want to add more buttons,
> I'm not sure how to edit the script properly. The AnswerBook entry I've
> read has a blurb on what to do in order to add more buttons, but I'm
> having trouble understanding how to apply this to my script. Below are
> the instructions from AnswerBook and below that is the code I currently
> have. Any help is appreciated. Thank you.
>
> -------AnswerBook Instructions (that I don't understand)--------
> "What if I want to customize more than one button?
>
> You would work with a different set of properties, BUT it would need to
> be addressed in this script. You need one procedure, and one pairing,
> per button. You would need one declaration of the procedure for the GUID
> of the button, and another declaration of the procedure for the menu ID.
> Also, each procedure needs a unique name, so if it were another tracker,
> it might be btnLaunchTracker2."
>
> -------My Script (how would I change it to accommodate the other
> buttons?------
> '// Start of Custom report button
> Private WithEvents btnLaunchTracker As EpiButton
>
> Private Sub MESMenu_Load(ByVal sender As object, ByVal args As
> EventArgs) Handles MESMenu.Load
> '//
> '// Add Event Handler Code
> '//
>
> btnLaunchTracker =
> CType(csm.GetNativeControlReference("1e025c84-e7f0-45b8-b592-8e8007a72ce
> 7"), EpiButton)
>
> btnLaunchTracker.Enabled = True
> End Sub
>
> Private Sub btnLaunchTracker_Click(ByVal Sender As Object, ByVal args As
> EventArgs ) Handles btnLaunchTracker.Click
> ProcessCaller.LaunchForm(MESMenu, "UD10004")
> End Sub
> '// End of Custom report button
>
>
>
>
>
> [Non-text portions of this message have been removed]
>