|
Удалить строку из ТЗ
| ☑ |
0
Adgjj
31.07.12
✎
11:08
|
Скажите, пжл, как удалить строку ТЗ, чтоб нумерация не сбилась:
Для каждого СтрокаТЗпроверка2 Из ТЗпроверка2 Цикл
если СтрокаТЗпроверка2.ДОКУМЕНТ.Номер = "00000006365" тогда
й=1;
конецесли;
если СтрокаТЗпроверка2.ВидПростоя <> NULL И Лев(СтрокаТЗпроверка2.ДОКУМЕНТ,6) <> "Ремонт" тогда //путевочный простой
ТЗпроверка2.Удалить(ТЗпроверка2.Индекс(СтрокаТЗпроверка2));
//ТЗпроверка2.Получить(ТЗпроверка2.Индекс(СтрокаТЗпроверка2)-1);
конецесли;
конеццикла;
|
|
1
Господин ПЖ
31.07.12
✎
11:09
|
растут г.внокодеры... смена растет... деньги будут
*рыдает от умиления*
|
|
2
Adgjj
31.07.12
✎
11:09
|
сейчас после удаления строки следующую строку пропускает
|
|
3
zippygrill
31.07.12
✎
11:10
|
начинай с конца удалять.
|
|
4
xantimans
31.07.12
✎
11:13
|
ну если следовать твоей конструкции, то просто со счетчиком поиграй и будет тебе счастье
|
|
5
Adgjj
31.07.12
✎
11:35
|
не получается
|
|
6
Eugene_life
31.07.12
✎
11:40
|
Ном = ТЗпроверка2.Количество()-1; //это кол-во строк в ТЗ
Пока Ном <=0 Цикл
СтрокаТЗпроверка2 = ТЗпроверка2[Ном];//получаем текущую строку
если СтрокаТЗпроверка2.ДОКУМЕНТ.Номер = "00000006365" тогда
й=1;
конецесли;
если СтрокаТЗпроверка2.ВидПростоя <> NULL И Лев(СтрокаТЗпроверка2.ДОКУМЕНТ,6) <> "Ремонт" тогда //путевочный простой
ТЗпроверка2.Удалить(ТЗпроверка2.Индекс(СтрокаТЗпроверка2));
//ТЗпроверка2.Получить(ТЗпроверка2.Индекс(СтрокаТЗпроверка2)-1);
конецесли;
Ном = Ном - 1; //уменьшаем счетчик
конеццикла;
|
|
7
Eugene_life
31.07.12
✎
11:41
|
(6) Сорри, вот так:
Пока Ном >=0 Цикл
|
|