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

Syntax

HELP_FILL( pMemvar, cAlias, aFldArray[, bcUdf ;
           [, xcCondition[, nTtr[, nTc[, nBr ;
           [, nBc[, aHeadarray[, nKey_no ;
           [, xcReal_key[, nFldPtr ;
           [, nDisp_ordr ]]]]]]]]]]] )

Purpose

A validation routine to scroll a lookup table in a window, returning .T. if
the user selects a record, else .F.. This traps the user in the GET until a
legitimate entry is made.

Arguments

     pMemvar -- item to validate

     cAlias -- name of lookup table

     aFldArray -- character array of fields to display

     bcUdf -- optional code block or udf string to execute if a lookup
                  is successful; if none is passed, pMemvar is painted
                  at the GET location

     xcCondition -- optional filter on the available lookup values

     nTr ... nBc -- optional window coordinates

     aHeadArray -- optional array of column header strings; defaults to
                       proper-cased field names

     nKey_no -- optional index order for SEEK; defaults to current
                    order

     xcReal_key -- optional expression (to be macro-expanded) to SEEK;
                       defaults to pMemvar

     nFldPtr -- optional index into aFldArray pointing to field to
                    return; defaults to 2

     nDisp_ordr -- optional index order to use for displaying window;
                       defaults to current order

Setup

The lookup table is open and indexed. All passed data are legitimate.
Considerable power is inherent in this function, but care must be taken in
setting up the call properly.

Example

     LOCAL _flds := { "DESC", "ID" }, ;
           _prodno := SPACE( 5 )
     CHK_DICT( "AAI_DICT" )
     SELECT PRODUCT

     @ 10,10 SAY "Emter Product Code:" ;
             GET _prodno ;
             PICTURE "99999" ;
             VALID HELP_FILL( @_prodno, "PRODUCT", ;
             fld_array )

     READ_IT()

Returns

.T. if an item is selected, else .F.

Side Effects

If pMemvar is passed by reference and an item is selected from the
lookup table, pMemvar will, on return, contain the value of the field
named in aFldArray[ nFldPtr ].

You can use bcUdf to paint pMemvar, or display or fill multiple
fields. Note that the width of pMemvar may not correspond to what your
screen expects; in this case you must use bcUdf to paint it as you wish.

Artful Calls

GET/SET_KEYS, AFLENGTH, CENTRE, GET/SET_FILTER, SYSCOLOR, FILTR_TYPE,
PUSH/POP_SCR, DRAW_BOX, STAT_LINE, IS_DATA

Source File

AA_HFILL.PRG