>************************************************* >* create and run the senior key entry object >oPUPDAAPVMO1 = CREATEOBJECT( "UPDAAPVMO1_SnrKeyEntry" ) >oPUPDAAPVMO1.Execute() >>
>*------------------------------------------------------------ >* UPDAAPVMO1_SnrKeyEntry >PROCEDURE Execute > * set some things > THIS.SHOW() >ENDPROC > >*------------------------------------------------------------ >* UPDAAPVMO1_SnrKeyEntry >PROCEDURE cmdCancel.CLICK > goApp.lSuccess = .F. > RELEASE THISFORM >ENDPROC >>