docums1(
	file_id int,		&&номер записи
	flname varchar( 80 ),	&&путь к файлу
	filedate datetime,	&&дата модификации
	filesize int,		&&размер
	filebody image		&&сам файл
)

CURSORSETPROP("MapBinary",.T., 0 )
lcScript=[SELECT file_id, flname, filedate, filesize, filebody FROM docums1 WHERE file_id=?lcId]
nR=SQLEXEC(_Screen.nCon_DDOC,lcScript,[CurDocums01])

COPY MEMO CurGetDoc01.filebody TO (lcFilename+lcPoint)

  DECLARE LONG ShellExecute in Shell32 ;     
    Long    hWnd, ; && хендл родительского окна    
    String  lpOperation, ; && что сделать с файлом "open", "print",  "explore"    
    String  lpFile, ; && имя файла. Можно с путем доступа    
    String  lpParameters, ; && используется только для исполняемых файлов    
    String  lpDirectory, ; && директория, относительно которой надо искать файл    
    Integer ShowCmd  && режим открытия приложения    
    
  lcFileNameSource = 'c:\ImageSource\Имя файла.tif'  
    
  IF FILE(lcFileNameSource)	  
    lnErrNum = ShellExecute( 0 , "open", JUSTFNAME(lcFileNameSource), NULL, JUSTPATH(lcFileNameSource),  1 )  
    IF lnErrNum <  33   
  	MESSAGEBOX('Операционная система Windows не знает приложение, которое открывает выбранный файл',  48 )  
    ENDIF   
  ELSE  
    MESSAGEBOX('Файла нетю ')  
  ENDIF