>>Lparameters tiQuoteNo >>*-------------------------------------------------------------------------- >>* Calculates the total quoted price all line items on the Quote. >>* Stores the result into thisform.nSummaryQuoteTotal property >>*-------------------------------------------------------------------------- >> >> Select Sum(qty*price); >> From Quote With (BUFFERING = .t.); >> Where Quote.quote_no=tiQuoteNo and Quote.print=.t.; >> Into Array laQuoteTotal >> >> thisform.nQuoteTotalPrice=Nvl(laQuoteTotal, 0) >> >> Return thisform.nQuoteTotalPrice >>>