FUNCTION FIELDPUT PARAMETERS nFIELD,cFIELD LOCAL mKODE mKODE=FIELD(nFIELD) REPLACE &mKODE WITH cFIELD RETURN ENDFUNC