то что ты хотел по фильтрам можно сделать так
обычно все что тебе надо пихаестя в 1 или несколько прог
потом set proc to .. additive и дальше вызываешь

Add_filter([kol=1])

* --------------------------
Func Add_filter
PARAM m.fil , From_Begin
Priv _fil
IF ! Empty( m.Fil ) && Если уже есть - не добавлять
m.Fil = Norm( m.Fil )
* а если там хитрый фильтр - типа OR - то может быть некорректно
* ( kol >1 or kol<100 ) - kol < 1
IF m.Fil $ Filter() && чтобы 2 раз не вешать
Retu .t.
ENDIF
ENDIF

If From_Begin
_fil= Add_Cond1 (m.Fil , Filter() )
Else
_fil= Add_Cond1 (Filter() , m.Fil)
Endif
Set filter to &_fil
* --------------------------
* было m.From_Right справа (можно просто поменять параметры местами !!!)
* теперь .T. - без скобок
* и не ставлю скобок если не надо
* Usl = Name_Gp=""СЛОHИМСКОЕ ТОАО "СВИТАHОК" "
* !!!!!!!! Внимание если в строке уже были кавычки то Norm( Usl) --> NAME_GP="" !!!

Func Add_Cond1
Para Old ,add1 , No_Skobki

IF Empty(m.Old)
Retu m.add1
Endif

IF Empty(m.add1)
Retu m.Old
Endif
* ---------------------------------------------
* Оба не пустые
IF m.No_Skobki
Retu m.Old + ' AND ' + m.add1
ENDIF
* Скобки только в случае если надо (есть OR)
* NOT имеет высший приоритет над AND

m.Old = NORMALIZE(m.Old)
m.Add1 = NORMALIZE(m.Add1)

* && '.NOT.' $ m.Old OR
* Добавлять скобки только если их нет

IF '.OR.' $ m.Old AND ;
! ( Left(m.Old,1) ='(' AND Right(m.Old,1) =')' )
m.Old = '('+m.Old+')'
ENDIF

IF '.OR.' $ m.add1 AND ;
! ( Left(m.Add1,1) ='(' AND Right(m.Add1,1) =')' )
m.add1 = '('+m.add1+')'
ENDIF

Retu NORMALIZE ( m.Old + ' AND ' + m.add1 ) && ! .AND.
* ------------------------------------------------