Local sOldFilters As String, sNameField As String, sNameColumn As String, sValue As String
Local sTypeFilterColumn As String, sCharEnd As String, sCharStart As String
Local sCond As String, nCountConditions As Long, bIsFind  As Boolean
bIsFind  = .F.
Try
 sOldPoint = Set("Point")
 Set Point To [.]
 sOldFilters = Filter(Thisform.exgrid1.RecordSource)
 Select raw_fact
 CurrRecNo = Recno()
 sNameField  = Getwordnum(This.Tag, 1, "^")
 sNameColumn = Getwordnum(This.Tag, 2, "^")
 sValue = This.List(This.ListIndex)

* Ищем столбец курсора по которому будем фильтровать и определяем его тип, для правильного оформления условия фильтра
 Afields(arrF, Thisform.exgrid1.RecordSource)
 If Type("arrF[1]")#"U" Then
  nPos = Ascan(arrF, m.sNameField, -1, -1, 1, 1+8)
  If nPos != 0 Then
   sTypeFilterColumn = arrF(nPos,2)
  Else
   sTypeFilterColumn = "C"
  Endif
 Endif
* По определенному типу столбца, определяем символ ограничитель
 Do Case
 Case Inlist(sTypeFilterColumn, "C", "V")
  sCharStart = "["
  sCharEnd = "]"
 Case  Inlist(sTypeFilterColumn, "D", "T")
  sCharStart = "{"
  sCharEnd = "}"
 Case  Inlist(sTypeFilterColumn, "I", "Y", "B", "F", "N", "L")
  sCharStart = "  "
  sCharEnd = "  "
 Endcase
 If Len(sOldFilters) > 1 Then
* Если фильтр не пустой, проверяем, что наше поле есть уже в фильтре и устанавливаем новое значение
  nCountConditions = Alines(arrFilters, sOldFilters,1+4, ".AND.")
  sOldFilters = ""
  If nCountConditions > 0 Then
* В массиве из условий фильтра пробуем найти свое
   For i = 1 To nCountConditions
*    If Atc(sNameField, arrFilters(i)) != 0 Then
    If Len(sNameField) <= Len(arrFilters(i)) Then
     If Lower(sNameField) == Lower(Left(arrFilters(i), Len(sNameField))) Then
      bIsFind = .T.
* Если нашли наше поле, смотрим, что нужно делать. Поменять условие или убрать вообще
      If sValue != "(Все)" Then
* Если выбрали отобразить всё - удаляем условие, просто пропускаем это условие
* Если выбрали другое значение - перестраиваем условие
       sCond = sNameField + " = " + sCharStart + sValue + sCharEnd + " and "
*  Проверяем, если тип поля числовой, заменяем все запятые на точки
       If Inlist(sTypeFilterColumn, "I", "Y", "B", "F", "N", "L")
        sOldFilters = Chrtran(sCond, ",", ".")
       Endif
       sOldFilters = sOldFilters + sCond
      Endif
     Else
      sOldFilters = sOldFilters + arrFilters(i) + " and "
     Endif && If sNameField == Left(arrFilters(i), Len(sNameField)) Then
    Else
     sOldFilters = sOldFilters + arrFilters(i) + " and "
    Endif && If Len(sNameField) <= Len(arrFilters(i)) Then
   Next i
   If Len(sOldFilters) > 5 Then
    sOldFilters = Left(sOldFilters, Len(sOldFilters) - 5)
   Endif
   If !bIsFind And sValue != "(Все)" Then
    sCond = sNameField + " = " + sCharStart + sValue + sCharEnd
*  Проверяем, если тип поля числовой, заменяем все запятые на точки
    If Inlist(sTypeFilterColumn, "I", "Y", "B", "F", "N", "L")
     sCond = Chrtran(sCond, ",", ".")
    Endif
    sOldFilters = sOldFilters + " and " + sCond
   Endif
  Else
*  Количество условий пустое, просто добавляем
   sOldFilters = sNameField + " = " + sCharStart + sValue + sCharEnd
  Endif

* * Ищем вхождение "нашего" поля в фильтр
*   nStart = Atc(sNameField, sOldFilters)
*   If nStart > 0 Then
*    nEnd = Atc(sCharEnd, sOldFilters)
* * Если нашли, заменяем его
*    If sValue = "(Все)" Then
* * Вырезаем наше условие фильтра
*     If nStart = 1 Then
* * Если ускомое условие стоит первым, обрезаем его и захватываем оператор AND, если он есть
*      If nEnd => Len(Alltrim(sOldFilters)) Then
*       sOldFilters = ""
*      Else
*       sOldFilters = Substr(sOldFilters, nEnd + 6) && ].AND.
*      Endif
*     Else
* * Если искомое условие стоит НЕ первым, захватываем оператор AND
*      sOldFilters = Substr(sOldFilters, 1, nStart - 4) + Substr(sOldFilters, nEnd)
*     Endif
*    Else
*     sOldFilters = Substr(sOldFilters, 1, nStart - 1) + sNameField + " = " + sCharStart + sValue + sCharEnd + 
Substr(sOldFilters, nEnd)
*    Endif
*   Else
* * Если не нашли наше поле в условии и выбрали не фильтр, добавляем условие
*    If sValue != "(Все)" Then
*     sOldFilters = sOldFilters + " and " + sNameField + " = " + sCharStart + sValue + sCharEnd
*    Endif
*   Endif
 Else
  If sValue != "(Все)" Then
   sOldFilters = sNameField + " = " + sCharStart + sValue + sCharEnd
  Endif
 Endif
 Set Point To (sOldPoint)
* Если строка фильтра заполнена, применяем её
 Select(Thisform.exgrid1.RecordSource)
 Set Filter To
 If Len(sOldFilters) > 3 Then
*  sOldFilters = Chrtran(sOldFilters, ",", ".")
  Set Filter To &sOldFilters
 Endif
 sOldFilters = "Thisform.Exgrid1." + sNameColumn + ".Header1.ForeColor = " + Iif(sValue != "(Все)", "Rgb(0,0,255)", 
"Rgb(0,0,0)")
 &sOldFilters
 sOldFilters = "Thisform.Exgrid1." + sNameColumn + ".SetFocus()"
 &sOldFilters
Catch To oErr
 Set Point To (sOldPoint)
 If g_debug Then
  m.lcmess='('+Alltrim(Str(oErr.ErrorNo))+') '+Trim(oErr.Details) + Chr(10) ;
   + 'Сообщение: ' + Alltrim(oErr.Message) + Chr(10) ;
   + 'Функция: ' + Alltrim(oErr.Procedure) + Chr(10) ;
   + 'Строка №' + Alltrim(Str(oErr.Lineno)) + Chr(10) ;
   + 'Код в строке: ' + Alltrim(oErr.LineContents) + Chr(10) ;
   + 'message:' + Message() + Chr(10) ;
   + 'sOldFilters = ' + sOldFilters
  Messagebox(m.lcmess,0,'Ваше соединение вернуло ошибку: ',30000)
 Endif
Endtry

* Подбиваем итоги
Select(Thisform.exgrid1.RecordSource)
Sum Summa To m_summa_filters
Count To  m_count_filters
With Thisform.conItogs
 .lblCountFilters.Caption = Alltrim(Transform(m_count_filters, "999999"))
 .lblSumFilters.Caption = Alltrim(Transform(m_summa_filters, "999 999 999 999 999.99"))
Endwith
Thisform.Refresh()
Select(Thisform.exgrid1.RecordSource)
Go Record CurrRecNo
* Убираем за собой, удаляем ненужный курсор и сбрасывает Тэг
sOldFilters = This.RowSource
This.ResetToDefault("RowSource")
This.ResetToDefault("RowSourceType")
*This.RowSource = []
This.Tag = ""
*Release &sOldFilters
Use In Select(sOldFilters)
This.Visible = .F.
Thisform.exgrid1.SetFocus()