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

Различные полезные вещи для программистов 1С

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

Сообщение julyp » Чт июл 01, 2010 12:36 pm

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


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

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

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

Шаг = ТЗ.КоличествоСтрок();
ФлагЗавершения = 0;
Пока Шаг > 0 Цикл
Если ТЗ.ПолучитьЗначение(Шаг, Колонка) = Зн Тогда
ТЗ.УдалитьСтроку(Шаг);
ФлагЗавершения = 1;
КонецЕсли;
Шаг = Шаг - 1;
КонецЦикла;
Возврат ФлагЗавершения;
КонецФункции;
julyp
Администратор
 
Сообщения: 127
Зарегистрирован: Вт май 25, 2010 6:55 am

Вернуться в Полезные вещи

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron