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

Syntax

RPLCHIFLDS( acFields, apValues[, acTables[, axcKeys [, lLock ]])

Purpose

REPLACE contents of non-key fields in child tables with values passed as
strings for macro expansion (to allow passing field names).

Arguments

     acFields -- field name or array of them

     apValues -- string, or array of them, which macro-expand to the values
                 with which the fields will be replaced

     acTables -- if passed, name of child table or array of them, otherwise
                 all child tables documented by the dictionary

     axcKeys -- must be passed if _tables is passed -- key which related
                current table to _tables, or array of them, otherwise
                relational keys from the dictionary

     lLock -- Multi-user only: if passed, whether to lock the current
              record and the child tables. The default is .F. because in
              most cases locks will already be in place.

Setup

Of THE_USUAL().

Example

     * From CUS_RPL() in AAI_CUST.PRG

     LOCAL _flds := { "LAST_NAME", "FIRST_NAME" }, ;
           _vals := { CUSTOMER->Last_name, ;
                      CUSTOMER->First_name }, ;
           _tbls := { "ORDERS", "PAYMENTS" }, ;
           _keys := { "ACCOUNT_NO", "ACCOUNT_NO" }
     IF RPL()
         RPLCHIFLDS( _flds, _vals, _tbls, _keys )
     ENDIF

Returns

.T. if successful. otherwise .F.

Side Effects

Replaces fields.

Artful Calls

CHILDREN, MACRO

Source Files

AA_RPLCF.PRG, AM_RPLCF.PRG