Click above to get retro games delivered to your door ever month!

Syntax

EXTEND( [ nQty[, nPrice[, nTax[, nRow ;
        [, nCol [, cPic ]]]]]] )

Purpose

Calculate and display a dynamic extended price.

Arguments

     nQty -- quantity; defaults to 0

     nPrice -- price; defaults to 0

     nTax -- tax rate; defaults to 0

     nRow -- row on which to display result; defaults to current row

     nCol -- column at which to display result; defaults to current
                 column

     cPic -- picture clause to use for display; defaults to
                 "#######.##"

Setup

All parameters are assumed valid if passed.

Example

In an order-entry program, a useful VALID clause...

     LOCAL mQty := 0
     @ 6, 10 SAY "Extended Price: "
     @ 4, 10 SAY "Quantity:" GET mQty PICTURE "9999" ;
             VALID EXTEND( mQty, 299.95, 0.08, 6, 26 )
     READ_IT()

Returns

.T.

Side Effects

The information is displayed in the enhanced colour of the current
colour setting.

Artful Calls

PARTCOLOR

Source File

AA_XTEND.PRG

Notes

Repeated calls to this function with identical parameters, once for the
quantity, once for the price, once for the tax, gives your program the
feeling of instantaneous response.