GetPriceListInquiry need help

Never mind, I figured it out.

The PriceListInquiry doesn't return a dataset. Once the GetPriceListInquiry is
called, you access the tables using
adaPriceListInquiry.PriceListInquiryData.Tables. My final code looks like this:

   Dim MorePagesPLI As Boolean
   Dim adaPriceListInquiry As PriceListInquiryAdapter = New
PriceListInquiryAdapter(UD105Form)
   adaPriceListInquiry.BOconnect()
   adaPriceListInquiry.GetPriceListInquiry(etbCustID.Text, String.Empty,
etbPartNum.Text, dsCustomerAdapter.Tables("Customer").Rows(0)("GroupCode"),
dsPartAdapter.Tables("Part").Rows(0)("ProdCode"), eceQuantity.Value, "ALL",
"BASE", 0, 0, MorePagesPLI)
   If
adaPriceListInquiry.PriceListInquiryData.Tables("PriceListInquiry").Rows.Count >
0 Then
    eceVprice.Value =
adaPriceListInquiry.PriceListInquiryData.Tables("PriceListInquiry").Rows(0)("NetPrice")

    etbFoundIn.Text =
adaPriceListInquiry.PriceListInquiryData.Tables("PriceListInquiry").Rows(0)("ListDescription")

   End If





________________________________
From: Steven <sgotschall@...>
To: vantage@yahoogroups.com
Sent: Fri, July 16, 2010 9:41:22 AM
Subject: [Vantage] GetPriceListInquiry need help

Â
Vantage 8.03.408A Progress

Has anyone used the BO GetPriceListInquiry in a customization? I am trying to
use the following code:

Dim adaPriceListInquiry As PriceListInquiryAdapter = New
PriceListInquiryAdapter(UD105Form)
adaPriceListInquiry.BOconnect()
Dim dsPriceListInquiry As Data.DataSet
dsPriceListInquiry = adaPriceListInquiry.GetPriceListInquiry("MH4312",
String.Empty, "6940-02", "DD", "CLN-MC", "2", "ALL", "BASE", "0", "0",
String.Empty)

I get the following compilation error for the last line:

Expression does not produce a value.







[Non-text portions of this message have been removed]
Vantage 8.03.408A Progress

Has anyone used the BO GetPriceListInquiry in a customization? I am trying to use the following code:

Dim adaPriceListInquiry As PriceListInquiryAdapter = New PriceListInquiryAdapter(UD105Form)
adaPriceListInquiry.BOconnect()
Dim dsPriceListInquiry As Data.DataSet
dsPriceListInquiry = adaPriceListInquiry.GetPriceListInquiry("MH4312", String.Empty, "6940-02", "DD", "CLN-MC", "2", "ALL", "BASE", "0", "0", String.Empty)

I get the following compilation error for the last line:

Expression does not produce a value.
Hi Steven,

I haven't used it myself, but I have a snippet of code with it.

I think the first two arguments are supposed to be Company and CustID. Your code looks like its missing one of these.


HTH,
Nigel.

--- In vantage@yahoogroups.com, "Steven" <sgotschall@...> wrote:
>
> Vantage 8.03.408A Progress
>
> Has anyone used the BO GetPriceListInquiry in a customization? I am trying to use the following code:
>
> Dim adaPriceListInquiry As PriceListInquiryAdapter = New PriceListInquiryAdapter(UD105Form)
> adaPriceListInquiry.BOconnect()
> Dim dsPriceListInquiry As Data.DataSet
> dsPriceListInquiry = adaPriceListInquiry.GetPriceListInquiry("MH4312", String.Empty, "6940-02", "DD", "CLN-MC", "2", "ALL", "BASE", "0", "0", String.Empty)
>
> I get the following compilation error for the last line:
>
> Expression does not produce a value.
>