MES Code Question

Aaron,

We have recently upgraded to 405. This customization was developed
and tested in 405. I also put in a call to Epicor today about this.
With the customizations that stop - have any of them stopped more
than once? This one is very hit or miss and I am reluctant to put it
into our live environment until it works all the time in Test.

Have a great day!

Brian


--- In vantage@yahoogroups.com, Aaron Hoyt <aaron.hoyt@...> wrote:
>
> Brian,
> What version are you running?
> We upgraded this last weekend from 403d to 405 and I have some
> customizations that are running fine for a while and then just
stop.
> You have to restart as you stated to reactivate them. They all
worked
> fine in 403d. I am wondering if it is related to the version you
are
> running?
> Aaron Hoyt
> Vantage Plastics
>
> bdmang_83 wrote:
> >
> >
> > Good morning,
> >
> > We have added a ucb that displays active payroll employees to the
> > end activity form. The ucb is popluated in the load event for this
> > form. I have created a sub-process and process calling. This
> > customization works about 95% of the time. However sometimes the
ucb
> > does not show up. The only way to get it back is to close out of
the
> > MES and log back in. Below is the code - any suggestions would be
> > appreciated.
> >
> > Thanks - Brian
> >
> > Private Sub EndActForm_Load(ByVal sender As object, ByVal
> > args As EventArgs) Handles EndActForm.Load
> > '//
> > '// Add Event Handler Code
> > '// ucbEmpEnd uses char09 from the LaborDtl Table
> > '// function fills ucbEmpEnd with active, payroll employees
> > Try
> >
> > Dim recSelected As Boolean
> > Dim whereClause As String ="EmpStatus = 'A' AND Payroll
> > = 'yes'"
> > Dim dsEmp As DataSet =
> > Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup
> > (oTrans,"EmpBasicAdapter",recSelected,False,whereClause)
> > If (recSelected) Then
> > 'dsEmp.Tables("EmpBasic").DefaultView.Sort = "Name"
> > ucbEmpEnd.ValueMember = "Name"
> > ucbEmpEnd.DataSource = dsEmp
> > ucbEmpEnd.DisplayMember = "Name"
> > Dim Fields As String() = New String() {"Name"}
> > ucbEmpEnd.SetColumnFilter(fields)
> > ucbEmpEnd.AutoWidthOption =
> > AutoWidthOptions.ControlWidth
> >
> > End If
> >
> > Catch
> > msgbox("See Admin")
> > End Try
> >
> > End Sub
> >
> >
>
>
> [Non-text portions of this message have been removed]
>
Good morning,

We have added a ucb that displays active payroll employees to the
end activity form. The ucb is popluated in the load event for this
form. I have created a sub-process and process calling. This
customization works about 95% of the time. However sometimes the ucb
does not show up. The only way to get it back is to close out of the
MES and log back in. Below is the code - any suggestions would be
appreciated.

Thanks - Brian


Private Sub EndActForm_Load(ByVal sender As object, ByVal
args As EventArgs) Handles EndActForm.Load
'//
'// Add Event Handler Code
'// ucbEmpEnd uses char09 from the LaborDtl Table
'// function fills ucbEmpEnd with active, payroll employees
Try

Dim recSelected As Boolean
Dim whereClause As String ="EmpStatus = 'A' AND Payroll
= 'yes'"
Dim dsEmp As DataSet =
Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup
(oTrans,"EmpBasicAdapter",recSelected,False,whereClause)
If (recSelected) Then
'dsEmp.Tables("EmpBasic").DefaultView.Sort = "Name"
ucbEmpEnd.ValueMember = "Name"
ucbEmpEnd.DataSource = dsEmp
ucbEmpEnd.DisplayMember = "Name"
Dim Fields As String() = New String() {"Name"}
ucbEmpEnd.SetColumnFilter(fields)
ucbEmpEnd.AutoWidthOption =
AutoWidthOptions.ControlWidth

End If

Catch
msgbox("See Admin")
End Try

End Sub
Brian,
What version are you running?
We upgraded this last weekend from 403d to 405 and I have some
customizations that are running fine for a while and then just stop.
You have to restart as you stated to reactivate them. They all worked
fine in 403d. I am wondering if it is related to the version you are
running?
Aaron Hoyt
Vantage Plastics

bdmang_83 wrote:
>
>
> Good morning,
>
> We have added a ucb that displays active payroll employees to the
> end activity form. The ucb is popluated in the load event for this
> form. I have created a sub-process and process calling. This
> customization works about 95% of the time. However sometimes the ucb
> does not show up. The only way to get it back is to close out of the
> MES and log back in. Below is the code - any suggestions would be
> appreciated.
>
> Thanks - Brian
>
> Private Sub EndActForm_Load(ByVal sender As object, ByVal
> args As EventArgs) Handles EndActForm.Load
> '//
> '// Add Event Handler Code
> '// ucbEmpEnd uses char09 from the LaborDtl Table
> '// function fills ucbEmpEnd with active, payroll employees
> Try
>
> Dim recSelected As Boolean
> Dim whereClause As String ="EmpStatus = 'A' AND Payroll
> = 'yes'"
> Dim dsEmp As DataSet =
> Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup
> (oTrans,"EmpBasicAdapter",recSelected,False,whereClause)
> If (recSelected) Then
> 'dsEmp.Tables("EmpBasic").DefaultView.Sort = "Name"
> ucbEmpEnd.ValueMember = "Name"
> ucbEmpEnd.DataSource = dsEmp
> ucbEmpEnd.DisplayMember = "Name"
> Dim Fields As String() = New String() {"Name"}
> ucbEmpEnd.SetColumnFilter(fields)
> ucbEmpEnd.AutoWidthOption =
> AutoWidthOptions.ControlWidth
>
> End If
>
> Catch
> msgbox("See Admin")
> End Try
>
> End Sub
>
>


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