Customization Request

Yahoo Archive
1
All VB Experts,
Â
I have created two parent/child UD tables. Parent/Child UD100-100A contains defect codes. Childkey1 is the code and shortchar01, the description.
Â
Tables UD101 and UD101A record various floor activities in reworking RMA returns. One of the entries in UD101A (txtEpiCustom7) is the defect code. After entering the code, I want to recover the description from UD100A. I have created the following customization:
Â
Private Sub txtEpiCustom7_Leave(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles txtEpiCustom7.Leave
  '// ** Place Event Handling Code Here **
Â
  If (txtEpiCustom7.Text <> String.Empty) Then
 Â
  '// Do Search (listLookup)
 Â
   Dim recordSelected As Boolean
   Dim showSearch As Boolean = False
   Dim whereClause As String = "ChildKey1 = '" & txtEpiCustom7.Text & "'"
 Â
  '// Call Search Function
   Dim datasetUD101 As DataSet = SearchFunctions.ListLookup(oTrans, "UD100Adapter", recordSelected, showSearch, whereClause)
 Â
   '// check to see if DataSet is not null and that it
   '// contains at least 1 DataTable
   If (recordSelected = True) Then
Â
  '// get a reference to the UD101A EpiDataView
   Dim edvUD101A As EpiDataView = Ctype(oTrans.EpiDataViews("UD101A"), EpiDataView)
   '// set the ShortChar07 field to value returned by search
   edvUD101A.dataView(edvUD101A.Row)("ShortChar07") = datasetUD101.Tables(0).Rows(0)("ShortChar01")
   '// notify bound control(s) of data change
   edvUD101A.Notify( New EpiNotifyArgs(UD101Form, edvUD101A.Row, edvUD101A.Column))
      End if
     End If
End Sub
Â
----------------------------------
The problem is that while the code compiles, I receive the error, "Invalid query: where Comany = 'CQE' and (ChildKey1 = '101') BY Key1."
Â
The company ID is indeed CQE and I had entered 101 in the field, however, I believe that I am not properly binding the query to UD100A.
Â
Can anyone help.
Â
Many Thanks,
-Karl




[Non-text portions of this message have been removed]
2
Wow! After reading the last few posts and the blog on Epicor should I really be asking for a customization request?? :)
Â
Aw, what the heck. I'll throw caution to the wind.
Â
I have a customer request to handle rework activity differently. Because we have serialized parts being returned, the QC department would like to know, by serial number, what was done to repair this stuff. I'm thinking that when the person entering the job indicates that this is a rework order, If I could have that create a parent-child UD table, I could then capture the rework activity for each serialized part.
Â
The trick is what customization trick while I'm in Job Entry (button-click, check box,etc) would allow the creation of the parent table with the job number assigned to it as Key1?
Â
Thanks as always,
-Karl




[Non-text portions of this message have been removed]
3
I've created the customization that is referenced in the Help files for Lookup. Works great, but I would like to put in a result if the desired value is NOT found. So, listed below is the standard code and following the ELSE is what I created. The problem is that ALL responses I get back now come back as 'Invalid'. Can anyone help on this?
Â
Working Code:
If (recordSelected = True) Then
  '// get a reference to the OrderDtl EpiDataView
  Dim edvOrderDtl As EpiDataView = Ctype(oTrans.EpiDataViews("OrderDtl"), EpiDataView)
  '// set the OrderComment field to value returned by search
                   edvOrderDtl.dataView(edvOrderDtl.Row)("OrderComment") = dsComments.Tables(0).Rows(0)("Character01")
  '// notify bound control(s) of data change
                   edvOrderDtl.Notify( New EpiNotifyArgs(SalesOrderForm, edvOrderDtl.Row, edvOrderDtl.Column))
Â
My Addition:
Â
Else
  '// get a reference to the OrderDtl EpiDataView
                   Dim edvOrderDtl As EpiDataView = Ctype(oTrans.EpiDataViews("OrderDtl"), EpiDataView)
  '// Return Invalid as result
                   edvOrderDtl.dataView(edvOrderDtl.Row)("OrderComment") = "Invalid"
  '// notify bound control(s) of data change
                   edvOrderDtl.Notify( New EpiNotifyArgs(SalesOrderForm, edvOrderDtl.Row, edvOrderDtl.Column))
Â
End If
Â
Thanks as Always,
-Karl




[Non-text portions of this message have been removed]
4
What about using this:
'// After BOConnect()
Try
'//Your Lookup
Catch ex As exception
'// Code if lookup not found
End Try
'// Code if lookup found

--- In vantage@yahoogroups.com, Karl Dash <dashkarl@...> wrote:
>
> I've created the customization that is referenced in the Help
files for Lookup. Works great, but I would like to put in a result
if the desired value is NOT found. So, listed below is the standard
code and following the ELSE is what I created. The problem is that
ALL responses I get back now come back as 'Invalid'. Can anyone help
on this?
> Â
> Working Code:
> If (recordSelected = True) Then
> Â Â '// get a reference to the OrderDtl EpiDataView
> Â Â Dim edvOrderDtl As EpiDataView = Ctype(oTrans.EpiDataViews
("OrderDtl"), EpiDataView)
> Â Â '// set the OrderComment field to value returned by search
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â edvOrderDtl.dataView(edvOrderDtl.Row)
("OrderComment") = dsComments.Tables(0).Rows(0)("Character01")
> Â Â '// notify bound control(s) of data change
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â edvOrderDtl.Notify( New EpiNotifyArgs
(SalesOrderForm, edvOrderDtl.Row, edvOrderDtl.Column))
> Â
> My Addition:
> Â
> Else
> Â Â '// get a reference to the OrderDtl EpiDataView
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Dim edvOrderDtl As EpiDataView = Ctype
(oTrans.EpiDataViews("OrderDtl"), EpiDataView)
> Â Â '//Â Return Invalid as result
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â edvOrderDtl.dataView(edvOrderDtl.Row)
("OrderComment") = "Invalid"
> Â Â '// notify bound control(s) of data change
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â edvOrderDtl.Notify( New EpiNotifyArgs
(SalesOrderForm, edvOrderDtl.Row, edvOrderDtl.Column))
> Â
> End If
> Â
> Thanks as Always,
> -Karl
>
>
>
>
> [Non-text portions of this message have been removed]
>
5
I am trying to get the Terms Description to show up in Customer Credit
Manager on the Credit page. When I add a Text box and set the Control
source to Invchead TermsDesc, I do not get any data to show up on the
screen. Does anyone have this working on their system? Vantage 803.405

Thank you

Jeff



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