Лучший форум по 1С:Предприятию 8 и не только;)

Добавлено: **Чт июл 01, 2010 12:36 pm**

// ТЗ - Таблица, в которой чистим
// Колонка - имя колонки
// Зн - Значение по которому удаляем строки
// ФлагЗавершения - возвращаемое значение: -1 - ошибка в параметрах, 0 - строки не удалялись, 1 - строки удалялись

Функция глПочиститьТЗ(ТЗ, Колонка, Зн) Экспорт

Если ТипЗначенияСтр(ТЗ) <> "ТаблицаЗначений" Тогда
Возврат -1;
КонецЕсли;

Если ПустаяСтрока(Колонка) = 1 Тогда
Возврат -1;
КонецЕсли;

Шаг = ТЗ.КоличествоСтрок();
ФлагЗавершения = 0;
Пока Шаг > 0 Цикл
Если ТЗ.ПолучитьЗначение(Шаг, Колонка) = Зн Тогда
ТЗ.УдалитьСтроку(Шаг);
ФлагЗавершения = 1;
КонецЕсли;
Шаг = Шаг - 1;
КонецЦикла;
Возврат ФлагЗавершения;
КонецФункции;

Лучший форум по 1С:Предприятию 8 и не только;)

удаление строк

удаление строк