• Откуда: г. Чебоксары
  • На форуме с 7 апреля 2011
  • Сообщений: 117

Тема: Фильтр в номенклатурном справочнике

Здравствуйте.
Хочу отобразить в окне номенклатурного справочника только те позиции, у которых есть спецификация.

Написала такой код, но ничего не происходит, макрос тут же завершается, вид окна не изменяется.

Sub FormMacro_TestFilter(TCSActiveModule)
Set Filter = TCSActiveModule.Filter
Call Filter.ClearFilter
Call Filter.NewFilterItem(TCSActiveModule.Properties("HAS_SPEC"), 0, "T")
Call Filter.ApplyFilter
FilterItem.Active = True
Filter.Active = True
TCSActiveModule.Refresh
End Sub

В чём ошибка?

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Фильтр в номенклатурном справочнике

Вы хоть бы ошибка глянули, программа же ругается. Неизвестная переменная FilterItem, да и Filter чем то не нравится

Sub FormMacro_TestFilter(TCSActiveModule)'Filter
 Dim Filter
 Set Filter = TCSActiveModule.Filter
 Call Filter.ClearFilter
 Call Filter.NewFilterItem(TCSActiveModule.Properties("HAS_SPEC"), 0, "T")
 Call Filter.ApplyFilter
 Filter.Active = True
 TCSActiveModule.Refresh
End Sub
Спасибо сказали: Шишкина Наталия1

  • Откуда: г. Чебоксары
  • На форуме с 7 апреля 2011
  • Сообщений: 117

Re: Фильтр в номенклатурном справочнике

Проверяла под отладчиком.
Не ругается, просто переходит на End Sub и всё.
Ваш вариант сработал, спасибо.

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Фильтр в номенклатурном справочнике

Ну я просто запустил макрос вылетела ошибка, встал на эту строку и исправил.

Отладчиком редко пользуюсь, но он ошибки где то в окне отображает если не ошибаюсь.

Спасибо сказали: Шишкина Наталия1