<strong> > >*********************** >* in the calling .prg * >*********************** > >* create array of selected records >nRetRec = RECNO() >SELECT RECNO() FROM ( goApp.cCUserID + 'UPDAAPVMO1' ) WHERE MARKED INTO ARRAY aRecList >IF _TALLY = 0 > DIMENSION aRecList(1,1) > aRecList(1,1) = nRetRec >ENDIF >GOTO nRetRec > >* create EDIT form >oEUPDAAPVMO1 = CREATEOBJECT( "UPDAAPVMO1_Edit_Class", aRecList ) > > >***************************************************** >* in the class definition for UPDAAPVMO1_Edit_Class * >***************************************************** > >*------------------------------------------------------------ >PROCEDURE INIT > LPARAMETERS aRecList > > * Parent class sets datasession environment settings ( dele, esca, talk, excl, etc. ) > DODEFAULT() > THIS.cOpAlias = goApp.cOpAlias > > * set keys > IF ALEN( aRecList, 1 ) > 1 ------> > ------> "aRecList is not an Array" > ------> ></strong>>