I corresponded with Karl offline and was going to try and untangle that
for him this week yet. Unless you want to...
Rob Bucek
Manufacturing Engineer
PH: 715-284-5376 ext 311
FAX: 715-284-4084
<http://www.dsmfg.com/>
(Click the logo to view our site)
________________________________
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Robert Brown
Sent: Thursday, May 28, 2009 3:15 PM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] Customization Errors
Karl,
Did you ever get anywhere with this?
Rob Brown
________________________________
From: Karl Dash <dashkarl@... <mailto:dashkarl%40yahoo.com> >
To: Vantage Group <vantage@yahoogroups.com
<mailto:vantage%40yahoogroups.com> >
Sent: Monday, May 25, 2009 8:56:36 PM
Subject: [Vantage] Customization Errors
Code Gurus,
I am trying to retrieve a job number into a UD table. I have borrowed
the code for "Search for Specified Adapter" featured in the User Tool
Guide and modified for the GUID of my button and text box but received
the errors shown below. For clarity I showed the line numbers at the
beginning of each statement.
138 Private Sub btnKeyField- 3b06b8f2- a9d0-44d0- 9aa1-4db6ddc60c7
7-Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnKeyField- 3b06b8f2- a9d0-44d0-
9aa1-4db6ddc60c7 7.Click
140 '// place event handling code here
142 Dim whereClause As String = String.Empty '// "JobNum = '" +
txtKeyField- 46567b2e- 6bc0-4967- be35-a0ec6843838 f.Text + "'"
144 Dim recSelected As Boolean
145 Dim dsSearch As DataSet
147 dsSearch = Epicor.Mfg.UI. FormFunctions. SearchFunctions.
listLookup( oTrans,"JobEntry Adapter", recSelected,
True, whereClause)
149 If recSelected Then
150 txtKeyField- 46567b2e- 6bc0-4967- be35-a0ec6843838 f.Text =
dsSearch.Tables( 0).Rows(0) ("JobNum" )
152 End If
154 End Sub
Compiling Custom Code ...
----------errors- --------- --
Error: BC30205 - line 138 (386) - End of statement expected.
Error: BC30451 - line 150 (398) - Name 'txtKeyField' is not declared.
Error: BC30800 - line 150 (398) - Method arguments must be enclosed in
parentheses.
Error: BC32017 - line 150 (398) - Comma, ')', or a valid expression
continuation expected.
** Compile Failed. **
TIA,
-Karl
[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]
for him this week yet. Unless you want to...
Rob Bucek
Manufacturing Engineer
PH: 715-284-5376 ext 311
FAX: 715-284-4084
<http://www.dsmfg.com/>
(Click the logo to view our site)
________________________________
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Robert Brown
Sent: Thursday, May 28, 2009 3:15 PM
To: vantage@yahoogroups.com
Subject: Re: [Vantage] Customization Errors
Karl,
Did you ever get anywhere with this?
Rob Brown
________________________________
From: Karl Dash <dashkarl@... <mailto:dashkarl%40yahoo.com> >
To: Vantage Group <vantage@yahoogroups.com
<mailto:vantage%40yahoogroups.com> >
Sent: Monday, May 25, 2009 8:56:36 PM
Subject: [Vantage] Customization Errors
Code Gurus,
I am trying to retrieve a job number into a UD table. I have borrowed
the code for "Search for Specified Adapter" featured in the User Tool
Guide and modified for the GUID of my button and text box but received
the errors shown below. For clarity I showed the line numbers at the
beginning of each statement.
138 Private Sub btnKeyField- 3b06b8f2- a9d0-44d0- 9aa1-4db6ddc60c7
7-Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnKeyField- 3b06b8f2- a9d0-44d0-
9aa1-4db6ddc60c7 7.Click
140 '// place event handling code here
142 Dim whereClause As String = String.Empty '// "JobNum = '" +
txtKeyField- 46567b2e- 6bc0-4967- be35-a0ec6843838 f.Text + "'"
144 Dim recSelected As Boolean
145 Dim dsSearch As DataSet
147 dsSearch = Epicor.Mfg.UI. FormFunctions. SearchFunctions.
listLookup( oTrans,"JobEntry Adapter", recSelected,
True, whereClause)
149 If recSelected Then
150 txtKeyField- 46567b2e- 6bc0-4967- be35-a0ec6843838 f.Text =
dsSearch.Tables( 0).Rows(0) ("JobNum" )
152 End If
154 End Sub
Compiling Custom Code ...
----------errors- --------- --
Error: BC30205 - line 138 (386) - End of statement expected.
Error: BC30451 - line 150 (398) - Name 'txtKeyField' is not declared.
Error: BC30800 - line 150 (398) - Method arguments must be enclosed in
parentheses.
Error: BC32017 - line 150 (398) - Comma, ')', or a valid expression
continuation expected.
** Compile Failed. **
TIA,
-Karl
[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]