local lcfilename, lcAlias * Save current work area lcAlias = ALIAS() * Get the file name lcFileName = GETPICT("BMP;TIF;PCX;WMF;DIB;GIF;JPG", ; "Select Map Image File", ; "Select") * If you have a file name IF !EMPTY(lcFileName) * Select the Cutters work area SELECT Cutters * Add a new record for the file APPEND BLANK * Add the image file to the general field APPEND GENERAL bitmapname from (lcFileName) * Refresh the form thisform.Refresh() ENDIF * Put the current work area back to what it was IF NOT EMPTY(lcAlias ) * If there qwas a table open then reselect its work area SELECT ( lcAlias ) ELSE * Otherwise select an empty work area SELECT 0 ENDIF