Скажите, пжл, как удалить строку ТЗ, чтоб нумерация не сбилась:
Для каждого СтрокаТЗпроверка2 Из ТЗпроверка2 Цикл
если СтрокаТЗпроверка2.ДОКУМЕНТ.Номер = "00000006365" тогда
й=1;
конецесли;
если СтрокаТЗпроверка2.ВидПростоя <> NULL И Лев(СтрокаТЗпроверка2.ДОКУМЕНТ,6) <> "Ремонт" тогда //путевочный простой
ТЗпроверка2.Удалить(ТЗпроверка2.Индекс(СтрокаТЗпроверка2));
//ТЗпроверка2.Получить(ТЗпроверка2.Индекс(СтрокаТЗпроверка2)-1);
конецесли;
конеццикла;
Ном = ТЗпроверка2.Количество()-1; //это кол-во строк в ТЗ
Пока Ном <=0 Цикл
СтрокаТЗпроверка2 = ТЗпроверка2[Ном];//получаем текущую строку
если СтрокаТЗпроверка2.ДОКУМЕНТ.Номер = "00000006365" тогда
й=1;
конецесли;
если СтрокаТЗпроверка2.ВидПростоя <> NULL И Лев(СтрокаТЗпроверка2.ДОКУМЕНТ,6) <> "Ремонт" тогда //путевочный простой
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший