Progress Coding QuoteDtl

Yahoo Archive
1
Hey I would just like to thank Troy Flute, Todd Caughey, and
lonniedrew for the help with the progress coding. Here is my code
that I used to be able to do it. It takes the first 5 quote
quantities and puts them in 5 numeric fields on the quotedtl VB Form.

/* quoteqty.p */
/* To get the quote quantities for a quotedtl and put them on the
screen */
/* using a VB Form button control. */

{vbp/vb.i}

find QuoteDtl where (rowid(QuoteDtl) = GetCurrentRowID()) no-lock.
Find FIRST QuoteQty where (QuoteQty.QuoteNum = QuoteDtl.QuoteNum) and
(QuoteQty.QuoteLine = QuoteDtl.Quoteline) no-lock no-error.
setdecimalvalue("QuoteDTL.NUMBER-
FIELD_1.SCRVALUE":U,Quoteqty.OurQuantity) no-error.
Find Next QuoteQty where (QuoteQty.QuoteNum = QuoteDtl.QuoteNum) and
(QuoteQty.QuoteLine = QuoteDtl.Quoteline) no-lock no-error.
setdecimalvalue("QuoteDTL.NUMBER-
FIELD_2.SCRVALUE":U,Quoteqty.OurQuantity) no-error.
Find Next QuoteQty where (QuoteQty.QuoteNum = QuoteDtl.QuoteNum) and
(QuoteQty.QuoteLine = QuoteDtl.Quoteline) no-lock no-error.
setdecimalvalue("QuoteDTL.NUMBER-
FIELD_3.SCRVALUE":U,Quoteqty.OurQuantity) no-error.
Find Next QuoteQty where (QuoteQty.QuoteNum = QuoteDtl.QuoteNum) and
(QuoteQty.QuoteLine = QuoteDtl.Quoteline) no-lock no-error.
setdecimalvalue("QuoteDTL.NUMBER-
FIELD_4.SCRVALUE":U,Quoteqty.OurQuantity) no-error.
Find Next QuoteQty where (QuoteQty.QuoteNum = QuoteDtl.QuoteNum) and
(QuoteQty.QuoteLine = QuoteDtl.Quoteline) no-lock no-error.
setdecimalvalue("QuoteDTL.NUMBER-
FIELD_5.SCRVALUE":U,Quoteqty.OurQuantity) no-error.
RETURN.

/* end of program */