Chris,
I tried the solution you provided below and the code works and compiles correctly. However, when I try to deploy the dashboard I get the following error:
-------compile errors--------
Error: BC30203-line 62 (62)-Identifier expected.
Error: BC30203-line 80 (79)-Identifier expected.
Any idea about what might be happening here?
Below is the code in the script editor:
1 '//**************************************************
2 '// Custom VB.NET code for 9c457fcf-edaa-4d0c-ac13-903c764233e5
3 '// Created: 7/21/2011 11:24:10 AM
4 '//**************************************************
5 Imports System
6 Imports System.Data
7 Imports System.Reflection
8 Imports System.Diagnostics
9 Imports System.Windows.Forms
10 Imports System.ComponentModel
11 Imports Microsoft.VisualBasic
12 Imports Epicor.Mfg.UI
13 Imports Epicor.Mfg.UI.FrameWork
14 Imports Epicor.Mfg.UI.ExtendedProps
15 Imports Epicor.Mfg.UI.FormFunctions
16 Imports Epicor.Mfg.UI.Customization
17 Imports Epicor.Mfg.UI.Adapters
18 Imports Epicor.Mfg.UI.Searches
19 Imports Epicor.Mfg.BO
20
21
22 Module Script
23
24
25 '// ** Wizard Insert Location - Do Not Remove 'Begin/End
Wizard Added Module Level Variables' Comments! **
26 '// Begin Wizard Added Module Level Variables **
27
28 '// End Wizard Added Module Level Variables **
29
30
31 '// Add Custom Module Level Variables Here **
32 Private DBTVP As Object = Nothing
33
34
35 Sub InitializeCustomCode()
36
37
38 '// ** Wizard Insert Location - Do not 39
delete 'Begin/End Wizard Added Variable
Initialization' lines **
39 '// Begin Wizard Added Variable Initialization
40
41 '// End Wizard Added Variable Initialization
42 '// Begin Wizard Added Custom Method Calls
43
44 '// End Wizard Added Custom Method Calls
45 DBTVP = DBTVP_9c457fcf_edaa_4d0c_ac13_903c764233e5
46
47 End Sub
48 Private Sub btnRefresh_Click(ByVal Sender As
Object, ByVal Args _
49 As System.EventArgs) Handles btnRefresh.Click
50 '// ** Place Event Handling Code Here **
51
52 Dim methInfo As System.Reflection.MethodInfo = _
DBTVP.GetType().GetMethod("RefreshDB", _
53
54 System.Reflection.BindingFlags.Instance _
55 Or System.Reflection.BindingFlags.NonPublic)
56
57 If Not (methInfo Is Nothing) Then
58
59 methInfo.Invoke(DBTVP, Nothing)
60
61 End If
62
63 End Sub
64
65
66
67 Private Sub btnClear_Click(ByVal Sender As Object, ByVal Args As _
68 System.EventArgs) Handles btnClear.Click
69 '// ** Place Event Handling Code Here **
70
71 Dim methInfo As System.Reflection.MethodInfo = _
72 DBTVP.GetType().GetMethod("ClearPrompts", _
73 System.Reflection.BindingFlags.Instance _
74 Or System.Reflection.BindingFlags.NonPublic)
75
76 If Not (methInfo Is Nothing) Then
77
78 methInfo.Invoke(DBTVP, Nothing)
79
80 End If
81
82 End Sub
83
84
85
86
87 Sub DestroyCustomCode()
88
89
90 // ** Wizard Insert Location - Do not delete 'Begin/End
Wizard Added Object Disposal' lines **
91 '// Begin Wizard Added Object Disposal
92
93 '// End Wizard Added Object Disposal
94 '// Begin Custom Code Disposal
95
96 '// End Custom Code Disposal
97
98 End Sub
99
100
101
102 End Module
103
I tried the solution you provided below and the code works and compiles correctly. However, when I try to deploy the dashboard I get the following error:
-------compile errors--------
Error: BC30203-line 62 (62)-Identifier expected.
Error: BC30203-line 80 (79)-Identifier expected.
Any idea about what might be happening here?
Below is the code in the script editor:
1 '//**************************************************
2 '// Custom VB.NET code for 9c457fcf-edaa-4d0c-ac13-903c764233e5
3 '// Created: 7/21/2011 11:24:10 AM
4 '//**************************************************
5 Imports System
6 Imports System.Data
7 Imports System.Reflection
8 Imports System.Diagnostics
9 Imports System.Windows.Forms
10 Imports System.ComponentModel
11 Imports Microsoft.VisualBasic
12 Imports Epicor.Mfg.UI
13 Imports Epicor.Mfg.UI.FrameWork
14 Imports Epicor.Mfg.UI.ExtendedProps
15 Imports Epicor.Mfg.UI.FormFunctions
16 Imports Epicor.Mfg.UI.Customization
17 Imports Epicor.Mfg.UI.Adapters
18 Imports Epicor.Mfg.UI.Searches
19 Imports Epicor.Mfg.BO
20
21
22 Module Script
23
24
25 '// ** Wizard Insert Location - Do Not Remove 'Begin/End
Wizard Added Module Level Variables' Comments! **
26 '// Begin Wizard Added Module Level Variables **
27
28 '// End Wizard Added Module Level Variables **
29
30
31 '// Add Custom Module Level Variables Here **
32 Private DBTVP As Object = Nothing
33
34
35 Sub InitializeCustomCode()
36
37
38 '// ** Wizard Insert Location - Do not 39
delete 'Begin/End Wizard Added Variable
Initialization' lines **
39 '// Begin Wizard Added Variable Initialization
40
41 '// End Wizard Added Variable Initialization
42 '// Begin Wizard Added Custom Method Calls
43
44 '// End Wizard Added Custom Method Calls
45 DBTVP = DBTVP_9c457fcf_edaa_4d0c_ac13_903c764233e5
46
47 End Sub
48 Private Sub btnRefresh_Click(ByVal Sender As
Object, ByVal Args _
49 As System.EventArgs) Handles btnRefresh.Click
50 '// ** Place Event Handling Code Here **
51
52 Dim methInfo As System.Reflection.MethodInfo = _
DBTVP.GetType().GetMethod("RefreshDB", _
53
54 System.Reflection.BindingFlags.Instance _
55 Or System.Reflection.BindingFlags.NonPublic)
56
57 If Not (methInfo Is Nothing) Then
58
59 methInfo.Invoke(DBTVP, Nothing)
60
61 End If
62
63 End Sub
64
65
66
67 Private Sub btnClear_Click(ByVal Sender As Object, ByVal Args As _
68 System.EventArgs) Handles btnClear.Click
69 '// ** Place Event Handling Code Here **
70
71 Dim methInfo As System.Reflection.MethodInfo = _
72 DBTVP.GetType().GetMethod("ClearPrompts", _
73 System.Reflection.BindingFlags.Instance _
74 Or System.Reflection.BindingFlags.NonPublic)
75
76 If Not (methInfo Is Nothing) Then
77
78 methInfo.Invoke(DBTVP, Nothing)
79
80 End If
81
82 End Sub
83
84
85
86
87 Sub DestroyCustomCode()
88
89
90 // ** Wizard Insert Location - Do not delete 'Begin/End
Wizard Added Object Disposal' lines **
91 '// Begin Wizard Added Object Disposal
92
93 '// End Wizard Added Object Disposal
94 '// Begin Custom Code Disposal
95
96 '// End Custom Code Disposal
97
98 End Sub
99
100
101
102 End Module
103
--- In vantage@yahoogroups.com, Chris Thompson <chriselectrix@...> wrote:
>
> Do the shopfloor employees have touch screens?
>
> I have just tried and TAB to the button then 'ENTER' works well.
>
> To add a 'Search' and 'Clear' button on your dashboard tracker, the first thing you need to do is add two buttons.
>
> Call the Search button btnRefresh and the Clear button btnClear.
>
> In the script editor for the page where you are adding the buttons, add the following:
>
> 1) At approximately line 5, you will see a lot of lines that say e.g. *Imports System.Data*.
> Â Â Â Underneath *Imports System.ComponentModel*, type in *Imports System.Reflection*Â Â <- without the asterisks
>
>
> 2) At approximately line 31, it will say '// Add Custom Module Level Variables Here **.
>    Directly underneath this line, type in *Private DBTVP As Object = Nothing*  <- without the asterisks
>
>
> 3) At approximately line 45, it will say '// End Custom Method Calls.
> Â Â Â Directly underneath this line, copy and paste the following ...
>
> Â Â Â DBTVP = DBTVP_11cd1781_87df_4bef_b61b_2285b237d83e
>
> Â Â Â The line underneath this should say End Sub and should be the existing text - you don't need to type this.
>
> Â Â Â The long combination of numbers/letters above is the GUID of your tracker - To find this, go to Tools > Custom XML Editor >
> Â Â Â Custom Controls. Your unique GUID will be displayed in the FormsID column.
>
> Â Â Â Copy and paste this number after where it says DBTVP_ above, and replace the - with _.
>
>
> 4) After End Sub on approximately line 47, paste the following in one go (do not break it up - keep the tabs in place) ...
>
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Private Sub btnRefresh_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnRefresh.Click
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '// ** Place Event Handling Code Here **
> Â Â Â Â Â Â Â
> Â Â Â Â Â Â Â Dim methInfo As System.Reflection.MethodInfo = DBTVP.GetType().GetMethod("RefreshDB", _
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â System.Reflection.BindingFlags.Instance _
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Or System.Reflection.BindingFlags.NonPublic)Â Â
> Â
> Â Â Â Â Â Â Â If Not (methInfo Is Nothing) Then
> Â
> Â Â Â Â Â Â Â Â Â Â Â methInfo.Invoke(DBTVP, Nothing)
> Â
> Â Â Â Â Â Â Â End If
> Â Â Â Â Â Â Â
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â End Sub
> Â
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Private Sub btnClear_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnClear.Click
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '// ** Place Event Handling Code Here **
> Â Â Â Â Â Â Â
> Â Â Â Â Â Â Â Dim methInfo As System.Reflection.MethodInfo = DBTVP.GetType().GetMethod("ClearPrompts", _
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â System.Reflection.BindingFlags.Instance _
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Or System.Reflection.BindingFlags.NonPublic)Â Â
> Â
> Â Â Â Â Â Â Â If Not (methInfo Is Nothing) Then
> Â
> Â Â Â Â Â Â Â Â Â Â Â methInfo.Invoke(DBTVP, Nothing)
> Â
> Â Â Â Â Â Â Â End If
> Â Â Â Â Â Â Â
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â End Sub
>
>
> 5) If you have done all of the above correctly, the next line should read *Sub DestroyCustomCode()*.
>
>
> 6) Save everything, exit customisation, exit the tracker/dashboard, re-open it, and you should now have one button the acts as a Refresh button and one button that acts as a Clear button.
>
>
> Please let me know how you get on.
>
>
>
>
> ________________________________
> From: edagar2001 <edagar@...>
> To: vantage@yahoogroups.com
> Sent: Wednesday, 17 June, 2009 15:09:54
> Subject: [Vantage] Re: Dash Board Loading Data
>
>
>
>
>
> It sounds like something I can try
> But knowing the Shop Employees they would rather just be able to press tab to load the data
>
> --- In vantage@yahoogroups .com, Chris Thompson <chriselectrix@ ...> wrote:
> >
> > I have a way you can add a refresh button to the dahboard (and a clear button) which you can probably tab to then hit 'enter' if that is any use?
> >
> >
> >
> >
> > ____________ _________ _________ __
> > From: edagar2001 <edagar@>
> > To: vantage@yahoogroups .com
> > Sent: Wednesday, 17 June, 2009 13:19:07
> > Subject: [Vantage] Dash Board Loading Data
> >
> >
> >
> >
> >
> > Good Morning
> > I have created a custom Dashboard that I have to add a P/N to to get the data
> >
> > Currently I will have to type the P/N in the feild and then pres the Refresh Button
> > Is there any way that after I put in the P/N and hit "Tab" to automatically refresh?
> >
> > Thank you
> >
> >
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>