Ross,
It's working now. I had originally had the adapter in parentheses inside the searchfunction and it was giving me the same error. I believe the problem had been in the whereclause. I set the whereclause to String.Empty and it is working exactly how I want it to.
Thanks again for your help,
Drew
It's working now. I had originally had the adapter in parentheses inside the searchfunction and it was giving me the same error. I believe the problem had been in the whereclause. I set the whereclause to String.Empty and it is working exactly how I want it to.
Thanks again for your help,
Drew
--- In vantage@yahoogroups.com, "Ross Hughes" <ross.hughes@...> wrote:
>
> Drew,
>
> I looked at this a little closer.
>
> Here is a working copy:
>
> 'Dim CustXPrtAdapt As String = "CustXPrtAdapter"
> Dim edvCRMCall As EpiDataView = CType(oTrans.EpiDataViews("CRMCall"),
> EpiDataView)
> Dim recSelected As Boolean
> Dim whereClause As String = String.Empty
> Dim dsCustPart As DataSet =
> Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup(oTrans,
> "CustXPrtAdapter", recSelected, True, whereClause)
>
> If (recSelected) Then
> 'edvCRMCall.dataView(edvCRMCall.Row)("ShortChar01") =
> dsCustPart.Tables(0).Rows(0)("XPartNum")
> 'edvCRMCall.Notify( New EpiNotifyArgs(oTrans,
> edvCRMCall.Row,edvCRMCall.Column) )
> End If
> End Sub
>
> Notes:
>
> The Adapter has to be surrounded in quotes and it seems that you can't pass
> the variable from above. So, I commented out the top variable and added the
> quotes down below.
>
> There was also a typo in the adapter name. And I initialized the
> whereclause with an empty string.
>
> Give it a try and see if it works for you.
>
> Ross
>
> -----Original Message-----
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
> drew.pete
> Sent: Wednesday, November 04, 2009 7:55 AM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Re: CustXPrt Num Search
>
> Ross,
>
> I've added those in the Assembly Reference Manager before thinking that was
> the case. This isn't the only form I've had trouble adding a search-to
> button on. I tried adding a button to the Project Entry form to bring up a
> list of our Part Numbers and got the same error. I will continue to work
> through it today and hopefully come up with a solution.
>
> Thanks for the quick response,
>
> Drew
>
> --- In vantage@yahoogroups.com, "Ross Hughes" <ross.hughes@> wrote:
> >
> > Drew,
> >
> > You may need to add custom assembly references.
> >
> > In Developer Mode go to Assembly Reference Manager and try add the
> following
> > files:
> >
> > Epicor.Mfg.AD.CustXPrt.dll
> > Epicor.Mfg.BO.CustXPrt.dll
> > Epicor.Mfg.IF.ICustXPrt.dll
> >
> > See if that makes any difference.
> >
> > Ross
> >
> > -----Original Message-----
> > From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
> Of
> > drew.pete
> > Sent: Tuesday, November 03, 2009 4:19 PM
> > To: vantage@yahoogroups.com
> > Subject: [Vantage] CustXPrt Num Search
> >
> > I'm looking to initiate a search upon button click for the customer part
> > number, eventually filter by the custom to be included on the CRM Call Log
> > form. I was able to complete something similar for the ShipTo with some
> > help. I tried to replicate this, instead looking to grab the CustXPrt from
> a
> > search and deposit in a UD field but I get the error
> >
> > "Error Detail
> > ============
> > Object reference not set to an instance of an object.
> >
> >
> > Stack Trace
> > ===========
> > at Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup(Object
> Sender,
> > String adapter, Boolean& recordSelected, Boolean showSearch, String
> > whereClause, Boolean multiSelect, String primaryTableName)
> > "
> >
> > The code that I am using is as follows...
> >
> > Private Sub btnPartNum_Click(ByVal Sender As Object, ByVal Args As
> > System.EventArgs) Handles btnPartNum.Click
> > Dim CustXPrtAdapt As String = "CustXPrtAdapter"
> > Dim edvCRMCall As EpiDataView = CType(oTrans.EpiDataViews("CRMCall"),
> > EpiDataView)
> > Dim recSelected As Boolean
> > Dim whereClause As String
> > Dim dsCustPart As DataSet =
> >
> Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup(oTrans,CustXPrtAdapt,
> > recSelected, True, whereClause)
> > If (recSelected) Then
> > 'edvCRMCall.dataView(edvCRMCall.Row)("ShortChar01") =
> > dsCustPart.Tables(0).Rows(0)("XPartNum")
> > 'edvCRMCall.Notify( New EpiNotifyArgs(oTrans,
> > edvCRMCall.Row,edvCRMCall.Column) )
> > End If
> > End Sub
> >
> > Any ideas would be much appreciated.
> >
> > Thanks,
> >
> > Drew
> >
> >
> >
> > ------------------------------------
> >
> > Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must
> have
> > already linked your email address to a yahoo id to enable access. )
> > (1) To access the Files Section of our Yahoo!Group for Report Builder and
> > Crystal Reports and other 'goodies', please goto:
> > http://groups.yahoo.com/group/vantage/files/.
> > (2) To search through old msg's goto:
> > http://groups.yahoo.com/group/vantage/messages
> > (3) To view links to Vendors that provide Vantage services goto:
> > http://groups.yahoo.com/group/vantage/linksYahoo! Groups Links
> >
>
>
>
>
> ------------------------------------
>
> Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have
> already linked your email address to a yahoo id to enable access. )
> (1) To access the Files Section of our Yahoo!Group for Report Builder and
> Crystal Reports and other 'goodies', please goto:
> http://groups.yahoo.com/group/vantage/files/.
> (2) To search through old msg's goto:
> http://groups.yahoo.com/group/vantage/messages
> (3) To view links to Vendors that provide Vantage services goto:
> http://groups.yahoo.com/group/vantage/linksYahoo! Groups Links
>