declare
	
	my_cmd Varchar2(128) ;		-- comand in cmd to open file
	my_path Varchar2(128);		-- path to tmp file
	my_nom Varchar2(100) ;		-- name of tmp fayla
	my_fic Varchar2(128);			-- fullname of tmp fayla
	ln_But Pls_Integer ;			-- somthing
	proc_id WEBUTIL_HOST.PROCESS_ID;
	blob_nomer number;				-- nomer stroki (blob-polya)
	flag boolean;

begin
	
	blob_nomer:=1;	
	if(:LEMDOK_468.NITEM is not null)	then
			blob_nomer:=:LEMDOK_468.NITEM;
	end if;

	my_path := 'D:\';
	my_nom:='tmp' || blob_nomer || '.doc';
	my_fic := my_path || my_nom ;
	--display_mess(my_fic);
 	flag:=WEBUTIL_FILE.DELETE_FILE( my_fic );
 	
	IF not webutil_file_transfer.db_to_client(
				 		my_fic, -- the name where the file should be stored locally
            'FIRST_TEST_IVAN', -- the table-name of the table where your blob is stored in
            'FILE_WORD',-- the column-name of the BLOB-column
            'nomer = ' || blob_nomer  -- the WHERE-clause needed to select the appropiate record from the table
            ) THEN
			display_mess('NOT load');
			Raise Form_trigger_Failure ;
	END IF;
	
	my_cmd := 'cmd /c start "" /WAIT "' || my_fic || '"' ;
	proc_id := WEBUTIL_HOST.Blocking( my_cmd ) ;
	-- open temp file and block form. After exit from msWord perform next commands
	
	
	-- Re-store the modified file in the database --
	IF not webutil_file_transfer.client_to_DB(
				 		my_fic, -- the name where the file should be stored locally 
            'FIRST_TEST_IVAN', -- the table-name of the table where your blob is stored in
            'FILE_WORD',-- the column-name of the BLOB-column
            'nomer = ' || blob_nomer  -- the WHERE-clause needed to select the appropiate record from the table
            ) THEN
			display_mess('NOT saved');
			Raise Form_trigger_Failure ;
	else
			display_mess('has saved');
			If WEBUTIL_FILE.DELETE_FILE( my_fic ) = FALSE Then
					display_mess('NOT deleted');
					Bell ;
			ELSE
					display_mess('has deleted');			
			End if ; 
	End if;

	Clear_Message ;

end;