begin
  if (name_in('[БЛОК].[ПОЛЕ]') is null) then
    begin
      IF (:[БЛОК].[ПОЛЕ]_УИД IS NOT NULL) THEN
        :[БЛОК].[ПОЛЕ]_УИД  := NULL;
      END IF;
      IF (:[БЛОК].[ПОЛЕ]_НАИМЕНОВАНИЕ IS NOT NULL) THEN
        :[БЛОК].[ПОЛЕ]_НАИМЕНОВАНИЕ := NULL;
      END IF;
    exception
      when others then
        CGTE$OTHER_EXCEPTIONS;
    end;
  end if;
end;

begin
  declare
    sub_where varchar2( 4000 ) := null;
    def_where varchar2( 4000 ) := null;
  begin
    if (CG$[FOMRS]_GLOBALS.[БЛОК]_WHERE = 'first_time') then
      CG$[FOMRS]_GLOBALS.[БЛОК]_WHERE := get_block_property('[БЛОК]', DEFAULT_WHERE);
    end if;
  
    def_where := CG$[FOMRS]_GLOBALS.[БЛОК]_WHERE;
  
    cgfk$lkup_qry.extend_where('[БЛОК].[ПОЛЕ]', '[НАИМЕНОВАНИЕ]', sub_where);
    if (sub_where is not null) then
      def_where := cgfk$lkup_qry.add_and(def_where) || '(([УИД_FK]) IN (SELECT УИД FROM [ТАБЛИЦА] WHERE ' || sub_where || '))';
    end if;
    sub_where := null;
  
    set_block_property('[БЛОК]', DEFAULT_WHERE, def_where);
  
  exception
    when VALUE_ERROR then
      MESSAGE('Ошибка: Неверный критерий запроса по элементам поиска');
      raise FORM_TRIGGER_FAILURE;
  end;
end;