Greg, That did it! Thanks so much.
Â
-Karl
________________________________
From: Karl Dash <dashkarl@...>
To: "vantage@yahoogroups.com" <vantage@yahoogroups.com>
Sent: Wednesday, May 9, 2012 1:59 PM
Subject: Re: [Vantage] VB Customization
Â
Greg, thanks for the quick response! I copied and pasted your response (it put a space before and after the '&' but I removed them) and I get an error for the assignment line of:
 Error: BC30277 - line 68 (328) - Type character '&' does not match declared data type 'String'.
 Error: BC30205 - line 68 (328) - End of statement expected.
The line is:Â txtEpiCustom12.Text = txtEpiCustom12.Text&UsrDte
Â
Are the contents of a text box of type array vs string?
Â
Thanks -Karl
________________________________
From: "Rodzewicz, Greg" <grodzewicz@...>
To: "vantage@yahoogroups.com" <vantage@yahoogroups.com>
Sent: Wednesday, May 9, 2012 11:14 AM
Subject: RE: [Vantage] VB Customization
Â
Karl,
Try this
Private Sub btnNameDate_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnNameDate.Click
'// ** Place Event Handling Code Here **
dim txtEpiCustom12 As EpiTextBox = CType(csm.GetNativeControlReference("4e7d5361-2b21-463d-9cf0-95fe5c75ad70"), EpiTextBox)
dim dteToday As Date = DateTime.Now() 'Get Todays date
dim UsrName As String = environment.Username 'Get current user ID
dim UsrDte As String = chr(13) + chr(10) + UsrName + dteToday.ToString() 'Put cr/linefeed & concatenate prior values
txtEpiCustom12.Text = txtEpiCustom12.Text & UsrDte
End Sub
Thanks,
Greg Rodzewicz
Developer
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Karl Dash
Sent: Wednesday, May 09, 2012 1:15 PM
To: Vantage Group
Subject: [Vantage] VB Customization
I'm still on Progress 408 and want to record the user name and date to the DMRHead.Comments field when the user clicks a button. Multiple users may want to add comments so I'll add a char(13) Char(10) so there is a break from the last comments put in. Below is my VB code. The problem I'm having is taking the string values for date and user and appending them to the txtEpiCustom12 box. The error is:
Error: BC30452 - line 68 (328) - Operator '&' is not defined for types 'Epicor.Mfg.UI.FrameWork.EpiTextBox' and 'String'.
Code:
Private Sub btnNameDate_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnNameDate.Click
'// ** Place Event Handling Code Here **
txtEpiCustom12 = CType(csm.GetNativeControlReference("4e7d5361-2b21-463d-9cf0-95fe5c75ad70"), EpiTextBox)
dim dteToday As Date = DateTime.Now() 'Get Todays date
dim UsrName As String = environment.Username 'Get current user ID
dim UsrDte As String = chr(13) + chr(10) + UsrName + dteToday.ToString() 'Put cr/linefeed & concatenate prior values
--> txtEpiCustom12 = txtEpiCustom12 & UsrDte
End Sub
-Thanks, Karl
[Non-text portions of this message have been removed]
________________________________
CONFIDENTIALITY NOTICE - This e-mail transmission and any accompanying documents contain information belonging to the sender which may be confidential and legally privileged. This information is intended only for the use of the person to whom this e-mail transmission was sent as indicated above. If you are not the intended recipient, any disclosure, copying, distribution, or action taken in reliance on the contents of the information contained in this transmission is strictly prohibited. Any commodities, technology or software exported in this e-mail are being exported from the United States in accordance with export administration regulations, diversion contrary to USA law is prohibited.
[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]
Â
-Karl
________________________________
From: Karl Dash <dashkarl@...>
To: "vantage@yahoogroups.com" <vantage@yahoogroups.com>
Sent: Wednesday, May 9, 2012 1:59 PM
Subject: Re: [Vantage] VB Customization
Â
Greg, thanks for the quick response! I copied and pasted your response (it put a space before and after the '&' but I removed them) and I get an error for the assignment line of:
 Error: BC30277 - line 68 (328) - Type character '&' does not match declared data type 'String'.
 Error: BC30205 - line 68 (328) - End of statement expected.
The line is:Â txtEpiCustom12.Text = txtEpiCustom12.Text&UsrDte
Â
Are the contents of a text box of type array vs string?
Â
Thanks -Karl
________________________________
From: "Rodzewicz, Greg" <grodzewicz@...>
To: "vantage@yahoogroups.com" <vantage@yahoogroups.com>
Sent: Wednesday, May 9, 2012 11:14 AM
Subject: RE: [Vantage] VB Customization
Â
Karl,
Try this
Private Sub btnNameDate_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnNameDate.Click
'// ** Place Event Handling Code Here **
dim txtEpiCustom12 As EpiTextBox = CType(csm.GetNativeControlReference("4e7d5361-2b21-463d-9cf0-95fe5c75ad70"), EpiTextBox)
dim dteToday As Date = DateTime.Now() 'Get Todays date
dim UsrName As String = environment.Username 'Get current user ID
dim UsrDte As String = chr(13) + chr(10) + UsrName + dteToday.ToString() 'Put cr/linefeed & concatenate prior values
txtEpiCustom12.Text = txtEpiCustom12.Text & UsrDte
End Sub
Thanks,
Greg Rodzewicz
Developer
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Karl Dash
Sent: Wednesday, May 09, 2012 1:15 PM
To: Vantage Group
Subject: [Vantage] VB Customization
I'm still on Progress 408 and want to record the user name and date to the DMRHead.Comments field when the user clicks a button. Multiple users may want to add comments so I'll add a char(13) Char(10) so there is a break from the last comments put in. Below is my VB code. The problem I'm having is taking the string values for date and user and appending them to the txtEpiCustom12 box. The error is:
Error: BC30452 - line 68 (328) - Operator '&' is not defined for types 'Epicor.Mfg.UI.FrameWork.EpiTextBox' and 'String'.
Code:
Private Sub btnNameDate_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnNameDate.Click
'// ** Place Event Handling Code Here **
txtEpiCustom12 = CType(csm.GetNativeControlReference("4e7d5361-2b21-463d-9cf0-95fe5c75ad70"), EpiTextBox)
dim dteToday As Date = DateTime.Now() 'Get Todays date
dim UsrName As String = environment.Username 'Get current user ID
dim UsrDte As String = chr(13) + chr(10) + UsrName + dteToday.ToString() 'Put cr/linefeed & concatenate prior values
--> txtEpiCustom12 = txtEpiCustom12 & UsrDte
End Sub
-Thanks, Karl
[Non-text portions of this message have been removed]
________________________________
CONFIDENTIALITY NOTICE - This e-mail transmission and any accompanying documents contain information belonging to the sender which may be confidential and legally privileged. This information is intended only for the use of the person to whom this e-mail transmission was sent as indicated above. If you are not the intended recipient, any disclosure, copying, distribution, or action taken in reliance on the contents of the information contained in this transmission is strictly prohibited. Any commodities, technology or software exported in this e-mail are being exported from the United States in accordance with export administration regulations, diversion contrary to USA law is prohibited.
[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]