Имя: Пароль:
1C
1С v8
Удалить строку из ТЗ
,
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 Цикл