IF VARTYPE(THISFORM.CurrentGrid) = "O" THEN
  THISFORM.CurrentGrid.ClearFilter()
ENDIF

ON SELECTION BAR  5  OF submenufiltr loGrid.ClearFilter(loHeader)
ON SELECTION BAR  6  OF submenufiltr loGrid.ClearFilter()

LPARAMETERS loHeader

LOCAL loColumn, lcAlias, i, lcFilter,llDoIt,lcTableName, lnRecNo


WITH THIS
  m.lcAlias = ALIAS()
  m.llDoIt = .T.
  
 IF VARTYPE(m.loHeader) = "O"
    
    .ClearFilterTable(loHeader.Parent)  && очистка таблицы с фильтрами
    loHeader.Parent.Filtr_Value = ''    
    .Total_Filtr = .BuildFilterStr()         && построение нового фильтра

  ELSE

    * очистка всех фильтров
    IF EMPTY(.Total_Filtr) THEN
      m.llDoIt = .F.
    ELSE
      FOR m.i =  1  TO .ColumnCount
        .Columns[m.i].Filtr_Value = ''
      ENDFOR
    ENDIF
    .Total_Filtr = ''    

    * удаление записей из служебной таблицы
    m.lcTableName = UPPER(ALLTRIM(THIS.Name) + "_ExFilter")
    IF USED(m.lcTableName) THEN
      SELECT (m.lcTableName)
      DELETE ALL
    ENDIF

  ENDIF
  
  IF m.llDoIt THEN

    IF !EMPTY(.RecordSource) AND USED(.RecordSource)
          
      SELECT (.RecordSource)
      m.lcFilter = ALLTRIM(.Total_Filtr)
    
      IF EMPTY(m.lcFilter)
        SET FILTER TO
      ELSE
        SET FILTER TO &lcFilter
      ENDIF


      * почему-то из toolbar'а все обновляется и grid отображает все данные
      * а из popup меню grid не обновляется и запись ставится на EOF
      * хотя вызовы равнозначны  8 (
      GOTO TOP
     
    ENDIF

    .ShowAllPictureHeader()
    .Refresh()
    IF !EMPTY(m.lcAlias)
      SELECT (m.lcAlias)
    ENDIF

    .After_Set_Filter()
    .RefreshAggregate()
  ENDIF
ENDWITH