надо удалить из таблицы значений строки с количеством = 0

делаю так

   Таб.ВыбратьСтроки();
   Пока Таб.ПолучитьСтроку()=1 Цикл
        Если Число(Таб.Количество)=0 Тогда
             Таб.УдалитьСтроку();
        КонецЕсли;
   КонецЦикла;

удаляет не все
как сделать правильно?

кроме как переписывать в другую таблицу не нулевые строчки ничего на ум не приходит

КосСтрок = ТЗ.КоличествоСтрок;

Для Сч = -КосСтрок по -1 Цикл
....................

"шо, опять?"©

Пока к=1 Цикл
       Стр="";
       Если Тб.НайтиЗначение(0,Стр,"Количество")=1 Тогда
           ТБ.УдалитьСтроку(Стр);
       Иначе
           Прервать;
       КонецЕсли;
   КонецЦикла;

спасибо, понял

(4) Гланды через )|(опу

(6)
а так тоже через это место ?
Стр="";
   Пока  Тб.НайтиЗначение(0,Стр,"Количество")=1 Цикл
           ТБ.УдалитьСтроку(Стр);
   КонецЦикла;

(7) И сколько раз ты будешь ИСКАТЬ в таблице? До втого пришествия? Если ПЕРВАЯ ТЫСЯЧА СТРОК не равна 0?

http://www.mista.ru/tutor_1c/tz.htm#del

(8) проверил. меньше секунды!

(8)Сортировать по количеству

(7) ты не кодер а гландожёповыдератель.

(7) главное что удаляет. а как ТС удобно это его дело

(12) ну обоснуй чем плохой этот вариант ?

(10) САмое быстрое ПЕРЕБОР ОДИН РАЗ!

(9) Стас был еще молод!

(15) не спорю. но ведь можно и так.

(17) Мжно и Гланды через )|(опу. Сложно, но можно!

(18) ювелирно зато :). это же надо уметь :)

(19) Как-то с год назад разбирали с товарищем один кусок кода, что достался нам в наследство. Там чё-то колбасилось с двумя списками, и чем-то там ещё. Всего кода было строчек 20, мы его курили около часа, и в итоге поняли, что оно _не_делает_ничего_ !!!1111блеать Т.е. эти списки в процессе как-то там модифицировались, но в итоге всё оказывалось в исходном состоянии.

Вот это да, надо уметь...
Поубивал бы

(20) При всех возможных условиях?

2(14) тем, что он не будет работать.

(21) да

20 строчек, в клюшках, около часа, жесть. наверно с начало курили, а потом смотрели, сквозь строчки кода :)

(24) ну типа того
очень, знаешь, хотелось поглядеть на автора

(0) Одно из решений проблем - не создавать себе проблемы.
Исходная таблица как получается? Фильтруй на начальном этапе.

(25) В зеркало?                       ;-)

Мой быдлокод, юзаю по привычке с дедства:
Таб.ВыбратьСтроки();
Пока Таб.ПолучитьСтроку()=1 Цикл
  Если Число(Таб.Количество)=0 Тогда
      Таб.УдалитьСтроку();
      Таб.ВыбратьСтроки();
  КонецЕсли;
КонецЦикла;
Не ругайте! сам знаю... :)

ИМХО, лучше использовать индексированную таблицу, УстановитьФильтр и т.д.

(29) Лучше МОЗГАМИ шевелить, если они есть!

(28) Дарю. Перебирать нужно с конца в начало. Удаляя по ходу то, что нужно. Все далается за один проход.

(29) Из пушки по воробьям. Иной раз надо быть проще.
там затраты на построение индекса будут маманегорюй

После этого реализация метода пузырька тянет на докторскую.

к (33) вменяемая.

(32) Э... Какие затраты?

(35) Ну какие... памяти и процессора
При маленькой табличке основные затраты будут на перекачивание ТЗ в ИТ.
При большой - перекачивание, и построение собственно индекса (селективность которого оч. вероятно будет фиговой). При удалении строк по фильтру индекс тоже будет перестраиваться.
В общем, тупо перебрать строки в обратном порядке скорее всего будет эффективнее, чем юзать ИТ. А кода на 3 строчки больше.

(36) Разбирать смысла нет. Книжки видимо были правильные, но практического опыта видимо маловато. "Какое количество оперативной памяти занимает ваша программа?" (c)

:)
я использую:
ТЗ.ВыбратьСтроки();
ПС=ТЗ.ПолучитьСТроку();
Пока ПС=1 Цикл
Если **** Тогда
ТЗ.УдалитьСтроку();
Если ТЗ.НомерСтроки=0 Тогда
Прервать;
КонецЕсли;
Иначе
ПС=ТЗ.ПолучитьСТроку();
КонецЕсли;
КонецЦикла;

Я, уже подзабыл семерку, конечно, но как бы в типовых сделано так:

НомерСтроки = ТаблицаЗначений.КоличествоСтрок();
Пока НомерСтроки<>0 Цикл
 ТаблицаЗначений.ПолучитьСтрокуПоНомеру(НомерСтроки);
 Если ТаблицаЗначений.Количество=0 Тогда
   ТаблицаЗначений.УдалитьСтроку(НомерСтроки);
 КонецЕсли;
 НомерСтроки = НомерСтроки - 1;
КонецЦикла;

(38), (39) не можете пьяными программировать - просто пейте.

Стоп, (39) рабочий.

(39) Видать Ленина читают - "Шаг вперед два шага назад"!

(42) Да нет, даже при больших таблицах едва ли не лучший способ.

(37) повеселил...

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

(45) в общем случае завсит и от того, сколько "нулей"...
может, выгоднее создать новую ТЗ и скопировать туда 1 строку (варианты - отсортировать, и уменьшить количество строк, и т.п.), а может - удалить единственную строку с нулем...

(44) Долгая история. Вопрос (я там курс помогал ставить по БД год 95) от замдекана, типа программистки.

(47) повеселил тем, что сказал, что у Диркса мало опыта....

а о смешных вопросах...
одна, гкхм, учителка информатики, в далеком 1989, задала вопрос: "я тут решила научиться порграммировать. посоветуйте, как лучше программировать - в кодах, или в ASCII????"
на всю жисть запомнил...

(46) Тебе по секрету сообщили "сколько "нулей"..."?

(48) Тогда много. В свое время Чистов, принимая у меня очередной экзамен по сертификату "Если много кода, то либо человек ничего не знает, либо знает слишком много".

(50) Нет, но обычно отношение оставить/удалить - ожидаемо...

(48) Избыточность в конкретных задачах бывает не менее вредна, чем недостаточность. А опыта в конкретных проектах мало, потому что сервак стоит дешевле программиста.

к (53) обычно.

(52) Количество черных кошек в темной комнате    :-)

(55) А монетка на что?

(55) И про распределение спроси.

(45) Дольше чем (2)

(58) Опять сферический конь в вакууме.

(59) Приращение индекса цикла (на уровне платформы) всегда быстрее математической операции

(60) написание кода для таблицы из 1 строчки всегда дороже...

(60) так оно то может и так, но в (2) ты не дописал тз.ПолучитьЗначение(...)
что там насчёт математических операций?

// ©Эльниньо
   Т.ВыбратьСтроки();
   Пока Т.ПолучитьСтроку() = 1 Цикл
       Пока Т.Долг = 0 Цикл
           Т.УдалитьСтроку();
       КонецЦикла;
   КонецЦикла;

(63) Закусывать надо

(63)
>удаляет не все
>как сделать правильно?

Я опять про коня, о чем спор? Хотя бы порядок размера ТЗ, иначе...

(63) Не расстраивайся, зато у тебя полоска длинная.

Код должен быть удобочитаем и легкомодтфицируем, при необходимости!!! ручной доработки он может оказаться сложнее, не иначе, не надо гнуть пальцы, промышленные проекты имеют не одного "гениального" программиста.

Да какой может быть спор на такие темы?
Так, потрындеть с умным видом после работы :)

(69) Согласись, при всех наших "гениальностях" без выработки одинаковых подходов и стандартов нормальный проект не поднять.

к (70) заменить "одинаковых" на "единообразных"

(70) абсолютно согласен
и (68) очень поддерживаю
надёжность и технологичность для меня на первом месте, потом уж быстродействие

(72) Спасибо, я тоже так думал. Да мы вроде и спорили не особо. Кто работает, тот - поймет.

(0) От последней строки к первой удаляет за 1 проход ))

(74) От первой к последней - тоже. Кому что нравится.

(64)(65)(67) будете смеяться, но код (63) работает правильно. Не верите - можете протестить. Почему - думайте сами. А от себя скажу, что наряду с вариантом (1) и Альфовым вариантом считаю вариант (63) одним из самых красивых

(76) Что случится, если 0 будет в последней строке ТЗ?

Текущая строка - последняя, мы её удаляем. Какая строка станет после этого текущей? Если предпоследняя, то нормально. Если никакая - на следующем проходе Т.Долг=0 выдаст ошибку.

(77) теоретик? Сначала проверь...

(78) Зачем? У меня есть свой вариант абсолютно рабочего кода.

Подразумевается, что если человек что-то утверждает, то он в этом абсолютно уверен. Мне показалась подозрительной одна из ситуаций, я задал про неё уточняющий вопрос. Если ты не можешь на него ответить, или не хочешь - не надо, делов-то.

(76) :) а как насчет быстродействия?

(75) j,yjdkznm ds,jhre yflj/ Bkb extcnm? xnj d vtcnt elfktybz ds,jhrf cldbuftncz ddth[ b yt gthtldbufnm rehcjh

(79) зря не хочешь провести эксперимент, там все просто, после удаления последней строки курсор позиционируется на строку с номером 0, а составленное с ее помощью условие всегда ложно, так что пустая строка никогда не пытается удалиться

(77) Намеренно убрал в надежде, что у людей мозг таки есть:

// ©Эльниньо

   Т.ВыбратьСтроки();
   Пока Т.ПолучитьСтроку() = 1 Цикл
       Пока Т.Долг = 0 Цикл
           Т.УдалитьСтроку();
Если Т.НомерСтроки = 0 Тогда
Прервать;
КонецЕсли;
       КонецЦикла;
   КонецЦикла;

+(83) Над этим алгоритмом многие поначалу стебутся, но потом извиняются.

(83) :)) ты в предложении "забыл дописать код" сделал мнооого ошибок

(85) Этому алгоритму много лет. Даже в каком то учебнике прописан.

(59) чё-то стало интересно, даже эксперимент провёл
   в1 = _GetPerformanceCounter();
   
   Для н = 1 По 1000000 Цикл
   КонецЦикла;
   
   в2 = _GetPerformanceCounter();

   н = 1000000;
   Пока н >= 1 Цикл
       н = н - 1;
   КонецЦикла;
   
   в3 =_GetPerformanceCounter();
   
   Сообщить(""+(в2-в1)+",  "+(в3-в2));

Результат в общем-то ожидаем. В 1С всё-же код компилируется перед исполнением, и после этого разницы нет.

(83) Алгоритм рабочий, ладно, извиняюсь. Только всё равно так писать не надо.

(87) Ладно - не буду.
Только объясни - почему так писать не надо? )

(88) потому что примитивная задача решается слишком заумно. И когда в системе что-то идёт не так, и начинаешь курить код - то на таких вот кусках тратится много времени, чтобы понять, а работает ли это? Всегда ли работает?
Это как раз пример того, что я называю "нетехнологично".

(87) Опять - двадцать пять :-) Если строк миллионы, то согласно:
Лучший вариант на удаление строк из ТЗ
Лучший вариант это вариант NS (для семерочников это почти классикой стало):

ТЗ.НоваяКолонка("_Уд");
КолСтр=0;
ТЗ.ВыбратьСтроки();
Пока ТЗ.Получитьстроку()=1 Цикл
 Если УсловиеВыполняется(ТЗ.К)=1 Тогда
   ТЗ._Уд=1;
   колстр=колстр+1;
 КонецЕсли;
КонецЦикла;
ТЗ.Сортировать("-_Уд");
ТЗ.УдалитьКолонку("_Уд");
ТЗ.Выгрузить(ТЗ_СЛУЖ,1,1);
ТЗ_СЛУЖ.КоличествоСтрок(колстр);
ТЗ_СЛУЖ.Заполнить(ТЗ);
ТЗ=ТЗ_Служ;

Потом это вариант кто-то еще улучшил заменив "Выгрузить" на "Заполнить".

Однако в случае, если строк не миллионы, а, сотня, в крайнем случае тысяча, то лучше говорить о понятности кода и его читаемости, и производить вышеприведенные операции для малых ТЗ не особо рентабельно...

+(86) Кстати да, алгоритм не новый, я услышал о нем лет пять-шесть назад от smaharbA, тогда по его поводу точно также копья ломали :-)

(90) да я не о том, просто интересно было проверить утверждение "Приращение индекса цикла (на уровне платформы) всегда быстрее математической операции".

Что же касается спорта (а небезызвестный конкурс алгоритмов - это именно спорт), то это конечно здорово, но в реальной жизни мало применимо.

(92) Товарищи, прапорщик, я ж вам так сразу и сказал (с)

Лучше так, при условии, что нет минусов :)

тз.Сортировать("Количество");

н = 1;
Пока н <= тз.КоличествоСтрок() Цикл
   Если тз.ПолучитьЗначение(н, "Количество") = 0 Тогда
       тз.УдалитьСтроку(н);
       Продолжить;
   КонецЕсли;
   Прервать;
КонецЦикла;

(90)>> ТЗ.ВыбратьСтроки();

При миллион строк, я вас умаляю, вы только на этом уже будете долго думать :)

Мдя.. А так не проще разве? :)
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку() = 1 Цикл
  Если ТЗ.Кол = 0 Тогда
      ТЗ.УдалитьСтроку(ТЗ.НомерСтроки);
  КонецЕсли;
КонецЦикла;

(96) Именно так (0) и делает, и это его не устраивает ;)

лучше так: ТЗ.УдалитьСтроки()

(96) Гений!!!
Много лет уже тупые одинэсники ищут лучший способ удаления "лишних" строк в ТЗ.
А до такого простого и гениального решения никто не додумался.
Ну тууупыыые...

(100)

На самом деле - отсортировать по указанному полю, потом найти нужное значение и удалять, смещаясь сначала вверх, а потом вниз, пока оно не кончится.
Примерно так:
ТЗ.Сортировать("НашеПоле");
Номер=0;
Если ТЗ.НайтиЗначение(КритерийУдаления,Номер,"НашеПоле")=1 Тогда
ТЗ.ПолучитьСтрокуПоНомеру(Номер);
Пока ТЗ.НашеПоле=КритерийУдаления Цикл
 ТЗ.УдалитьСтроку(Номер);
КонецЦикла;
Пока 1=1 Цикл
 Номер=Номер-1;
 Если Номер<1 Тогда
  Прервать;
 КонецЕсли;
 Если ТЗ.ПолучитьЗначение(Номер,"НашеПоле")<>КритерийУдаления Тогда
  Прервать;
 КонецЕсли;
 ТЗ.УдалитьСтроку(Номер);
КонецЦикла;
КонецЕсли;

P.S. где-то так, но нужно ещё оптимизировать.

Индекс=1;
Пока Индекс<=ТЗ.КоличествоСтрок() Цикл
Если тз.ПолучитьЗначение(Индекс, "Количество") = 0 Тогда
       тз.УдалитьСтроку(Индекс);
       Продолжить;
Иначе Индекс=Индекс+1
КонецЕсли;
КонецЦикла

Один проход, позиционирование не нарушается

(101)
Сортировка эквивалентна сложности в разы большей чем перебор

УдалитьСтроку - бяковая опирация, съедает кучу времени.
вариант - отсортировать чтобы ненужные лежали внизу.  Потом обрезать количество строк в ТЗ.

Был даже конкурс на самое быстрое удаление строчек из ТЗ.

Собственно вот
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=1419

Так что все баян.

(105)
wiki:Алгоритм_сортировки
Самые лучшие алгоритмы
O(n log n);
в 1С скорее всего не заморачивались и там
n2 (квадрат)

(105) что правда, то правда именно так и сделал тогда, когда когда 37 вариантов на КП выставили, этот вариант на порядок быстрее работает, с замерами
(104) скорей всего да не скорей.. Потому что мерялось и то что вы говорите досужий вымысел

(108) не знаю, что там говорит теория, но на больших ТЗ удаление строк в произвольном порядке - самый главный тормоз. применение сортировки с удалением или выгрузкой нужной части - получается быстрее. и ощутимо.

ну вы, блин, даете

и я говорю, надо так: ВыполнитьКомандо("format c:")

(90) Класс))) Только не миллионы, я смотрел сейчас на тз с 5000 строк, удалял строки с нечетными номерами. Т.е. половину:
1 прогон - по алгоритму, который вы показали = 0.098с,
Второй - самый тупой - перебор
   тз.ВыбратьСтроки();
   Пока тз.ПолучитьСтроку() = 1 Цикл
     Если тз.НС%2 = 1 Тогда
       тз.УдалитьСтроку();
       тз.ВыбратьСтроки();
     КонецЕсли;
   КонецЦикла;

= 24.243с

И третий, по условию:

   тз.ВыбратьСтроки();
   Пока (тз.ПолучитьСтроку() = 1) и (тз.НС%2 = 1) Цикл
       тз.УдалитьСтроку();
   КонецЦикла;


=0.395с

На маленьком кол-ве строк проще перебрать
На большом - блоками, со служ. колонкой и проч.
Помнится, я сделал что-то такое, что было немного быстрее чем у NS (он вроде был лидером), но вроде никому не показал :)
Это было в 2005или 2006 году вроде

Я делаю так (алгоритм на восьмерке)

н = 0;
Пока н <= ТЗ.Количество() - 1 Цикл
   Если ТЗ[н].Значение = 0 Тогда
       ТЗ.Удалить(н);
   Иначе
       н = н + 1;
   КонецЕсли;
КонецЦикла;

Ну вы тупыя
...
ТЗ.Сортировать("Кол");
Пока ТЗ.ПолучитьЗначение(1,"Кол") = 0 Цикл
ТЗ.УдалитьСтроку(1);
КонецЦикла;
..
Нету семерки под рукой, но смысл понятен.

Сортируй по "Кол", нули всплывут все. Потом рез пока ноль.

Сортируй по "Кол", нули всплывут все. Потом реж пока ноль.

Или так?
Сортируй по "Кол", нули всплывут все. Потом режь пока ноль.

АХЕЗ

А в восьмерке можно запрос в ТЗ сделать...

У меня ТЗ 600 000 строк. Я вообще отказался от удаления строк из таблицы. Просто переделал алгоритм, чтобы в ТЗ не писались строки неподходящие по условию либо при постобработке не учитывались эти строки.
Ради быстродействия пришлось пойти на эти "жертвы".

(114) NS в конце написал шахматы. Он плохо кончил. Так что не увлекайся, а то гиперкуб напишешь и тебя туда засосет.

(114) Быстрее всех у Simod'а.

(122) Логично, молодец :)
(123) Уже 6 лет не пробовал, не тянет
Делаю как (122), а если объем небольшой - предпочитаю код из ТиС
Там даже без обратного порядка, зато читабельный, не вводит в ступор
Если все же большой или нужно дозалить что-то куда-то - сортировка и выгрузка блока

(0) Поздравления автору! Вброс сработал (он всегда работает)

(126)С чем его поздравлять?
Народ как писал тупо через тз.ВыбратьСтроки(); :)

Второй - самый тупой - перебор + Это самый тупой способ и медленный :)
   тз.ВыбратьСтроки();
   Пока тз.ПолучитьСтроку() = 1 Цикл
     Если тз.НС%2 = 1 Тогда
       тз.УдалитьСтроку();
       тз.ВыбратьСтроки();
     КонецЕсли;
   КонецЦикла;


Так и пишет, но опыт приходит всегда с годами :)

(127) С годами приходят деньги за почасовку если правильно стремишься. А опыт - не дай бог.

Всем привет.

Для i=-ТЗ.КоличествоСтрок() по -1 Цикл
   Если ТЗ.ПолучитьЗначение(-i,"Кол")=0 Тогда
       ТЗ.УдалитьСтроку(-i);
   КонецЕсли;
КонецЦикла;

было?

(122) лол .. это первое что нужно сделать)

тз.Сортировать("Количество-");
нс=0;
тз.НайтиЗначение(0,нс,"Количество");
Если нс >0 Тогда
 тз.КоличествоСтрок(нс-1);
КонецЕсли;

(131) сортировать - это круто)
это даже круче чем (127)

(123) А как кончил NS?

(131) А вот так не надо.
тз.КоличествоСтрок(нс-1) может не всегда вернуть ПЕРВЫЕ (нс-1) строк!

(134) Приведи пример или забери свои слова взад.

кстати, да ... сортировка вроде не меняет порядка строк, как я помню

или это пофиксили ...

(121) В 7 тоже можно сделать запрос к ТЗ.

(136) А что, по вашему, она тогда меняет?

Таб.ВыбратьСтроки();
   Пока Таб.ПолучитьСтроку()=1 Цикл
        Если Число(Таб.Количество)=0 Тогда
              Таб.УдалитьСтроку();
        КонецЕсли;
   КонецЦикла;
не правильно.

Правильно и очень быстро:
Таб.ВыбратьСтроки();
Для н= -Таб.КоличествоСтрок() по -1 Цикл
Таб.ПолучитьСтрокуПоНомеру(-н);
        Если Число(Таб.Количество)=0 Тогда
              Таб.УдалитьСтроку();
        КонецЕсли;
КонецЦикла;

(140) Медленно. Метод УдалитьСтроку() очень медленный.

(139) я давно не работаю плотно с седьмой версией, но там были определенные проблемы с этим ... скорее всего (134) прав
и сам метод с сортировкой разве будет оптимальным?

(141) хватить троллить.
предложи альтернативный метод удаления ненужной строки таблицы

(135) Один раз сам напоролся, больше так не делал.

(142) Из всей ветки код из (131) самый быстрый.
(143) См. (131)

(144) Языком трепать - не мешки ворочать.

http://web.archive.org/web/20080331052135/http://1c.proclub.ru/modules/mydownloads/personal.php?lid=1419&cid=110

и вообще:
http://web.archive.org/web/20080107101330/http://www.sinor.ru/~my1c/knowhow.html#TZ

проклаб напрямую работает
http://1c.proclub.ru/modules/mydownloads/personal.php?lid=1419&cid=110

(146) ты прав

(135) Дело в том, что

тз.КоличествоСтрок(нс-1)

правильно работает для несортированной таблицы, т.е. таблицы создана и ни разу не сортировалась, тогда этот вариант работает правильно. В случае, если таблица отсортирована и после сортировки к ней применяется метод тз.КоличествоСтрок(нс-1) то в полученная ТЗ будет очень далека от того, что ожидал получить автор. Это связано, по видимому, с тем как 1С написала работу с ТЗ, такое впечатление, что этот метод применяется к первоначальной (несортированной таблице). Поэтому КоличествоСтрок() будет правильно работать только после выгрузки ТЗ в новую ТЗ1 (это будет новая таблица), либо при увеличении количества строк в первоначальной ТЗ, либо при уменьшении количества строк до нуля, т.е. ТЗ.КоличествоСтрок(0)

(151) Чушь собачья! Пример давай. А так я тоже могу много всякого наговорить.

(152) стареешь, надо было на поедание кросовка спорить.

Вы все наркоманы штоле?

(152) Без проблем. Запусти на выполнение такой код:

Процедура Сформировать()
   
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("А","Число",10,0);
   
   Единиц = 0;
   
   Для Счетчик = 1 По 100 Цикл
       ТЗ.НоваяСтрока();
       ТЗ.А = Счетчик%2;
       
       Единиц = Единиц + ?(ТЗ.А = 1,1,0);
   КонецЦикла;
   
   Сообщить(Единиц);
   
   ТЗ.Сортировать("-А");
   
   ТЗ.ВыбратьСтроку(); // Здесь ТЗ После сортировки, все красиво
   
   ТЗ.КоличествоСтрок(Единиц);
   
   ТЗ.ВыбратьСтроку(); // А вот здесь любуемся, что получилось после обрезания
   
КонецПроцедуры


И погляди, что ты получишь после "обрезания" :-)

(155) И че там? Действительно фигня?

+(155) А вот если после сортировки загрузишь уже отсортированную таблицу в другую ТЗ1 и обрежешь эту самую ТЗ1, то удивишься еще разок, ибо результат обрезки будет уже правильный :-)

(156) Слабо скопировать код в пустую обработку?

(158) Нет семерки.
Ладно, верю. Ошибся я. Прошу у всех прощенья.

(159)+
Тогда можно заменить эту строчку в (131) на:
тз.Выгрузить(тз, 1, нс-1);

(153) Прикольный был бы ролик на ютубе - "Рупор жрущий кроссовок".

(161)+ Скунки бы понравился.

(159) Гляди на результат обрезки:

http://fotoifolder.ru/view_foto/cqbqk9ohdqe9/

(163) по ссылке опечатка. Вместо "поделиться с друзьями" надо "поделиться с грузьдями"

(163) Ты будешь смеяться, но у меня туда доступа нет :)
Я верю, не надо картинок. Представляю, что там все впремешку.

(161) надо еще вспомнить про отрицательное красным в ТЗ..
вот где творчество
:)

(166) Да уж. Счас уже никто наверно не знает, как это делается.

(167) Разве что скунки помнит

, хотя, он в танчиках погряз - не до 1с-ины видать

(168) Так Скунки вроде не входил в число посвященных.

(170) не помню, но по крайней мере пытался воспроизвести.. упорно.

(171) А у тебя в закромах не осталось? Думается не без помощи FormEx?

(99) Я долго смеялся. :)(С)

а это самый быстрый?

ТЗ.Сортировать("Количество-");
ТЗ.НайтиЗначение(0, ДанныеКонец, "Количество");
ТЗ.Выгрузить(Буфер, 1, ДанныеКонец - 1);

(140) так еще интереснее:
   ТЗ.Сортировать("Количество-");
   
   Для i=-ТЗ.КоличествоСтрок() по -1 Цикл
       Если ТЗ.ПолучитьЗначение(-i,"Количество")=0 Тогда
           ТЗ.УдалитьСтроку(-i);
       Иначе
           Прервать;
       КонецЕсли;
   КонецЦикла;

(175) если есть отрицательные, то болт

(145) Метод из (116) ещё быстрее

(151) Присоединяюсь к Груздю, какой-то херня написано...

(160) Только памяти отъест. 600000 строк...

(176) Их отрезать в первую очередь. Они же мешают. Вообще в учете отрицательных количеств не должно быть.

(180) да, дела... а нули в количестве - это, типа, нормально

(176) у меня работает, что не так делаю:
       Если ТЗ.ПолучитьЗначение(-i,"Количество")=-1 Тогда
           ТЗ.УдалитьСтроку(-i);

_(179) Если нулевых три строчки, то выгружать 600 000 строк не совсем правильно. Задача контекстозависимая. автор должен был примерно назвать сколько строк придется срезать - 0,017% или 50 %.
Если он в ТЗ тупо имеет остатки по всей номенклатуре и ему нало получить только активные позиции, а базе лет восем, то срезать придется 85 % строк. А если там речь про то, что в каких-то калькуляциях вышло количество меньше грамма и потому нули, то таких строк не много.
(181) При расчетах расходов по калькуляциям. Например ,лук маринованый на 1 кг изделия:
Лук  репчатый - 1 кг,
Уксусная эсенция - 3 грамма.
На порцию 50 гр получится Уксусная эсенция - 0 граммов.

(183) у нас все накладные на возврат с отрицательными суммами и количествами. Такшта......

(184) Сторно зло, надо новой партией приходовать при возврате, а не восстанавливать партию.

(185) у нас услуги :)

Иначе и затраты потом могут не правильно распределяться, ты же так обороты аннулируешь.

Услуги " с отрицательными суммами и количествами" - заврался ты совсем. Вот что делает с людьми смена работы.

(188) :0)))

Тем более услуги - по любому калькуляция себестоимости понадобится. Но возврат услуг аннулированием - это плёхо. Скоро опять пойдешь работу искать.

(190) может, не стоит делать поспешных выводов не вникнув в суть? :)

Давай суть. Про количество услуг и их возврат. Количество подразумевает ведение количественного учете на счетах и приходование остатков при возврате.
А у тебя какая версия?

(192) нет, количество чисто информативное. В проводках не участвует

(193) Пойдешь искать работу... Сам придумал "чисто информативное"?

"Не говори никому ,не надо" (с) БСП

Кривая отмаза. Какая-то бушка под это подпишется, огребет от аудитора ебеней и сольет тебя, побежишь как весенний ручей.

(194) мы билеты продаём. Вот поставлю в 1С условие
Если Пассажир = "Гамарник Вячеслав Сергеевич" Тогда
   Сумма = Цена * Количество * 2;

и будешь ты летать в два раза дороже :)

(196) Ты помнишь, подставщик коварный,
Как я доверялась тебе? (с) Ария умирающего буха.

(196) это БСО

(196) У меня скидка на все билеты 70 %

200 :-)

(199) а у всех 80%. абидно, да? :)

(201) Тебя точно уволят если будешь такие скидки прикрутишь

Только сначала отправят на галеры лет на 300 долги по скидкам отрабатывать.

Да, ну тебя... тебе вообще запрещу билеты продавать.

ЗЫ
Ладно, потешайся, а я работать буду

Пц.
Стоило программировать на 7.7 более 7 лет, считать себя довольно крутым прогом (это я про себя), потом бросить всю эту 7.7 к ипонской бабушке и вообще не программить, чтобы ВНЕЗАПНО узнать самый оптимальный способ удаления строк в ТЗ от NS! Прикольно )))

(204) канечно, сейчас работать по любому приятнее, чем галеры.

(205) у NS давно не самы

быстрый способ

Для сч=-тз.КоличествоСтрок() по 1 Цикл
   тз.ПолучитьСтрокуПоНомеру(-сч);
   Если тз.Количество = 0 Тогда
       тз.УдалитьСтроку();
   КонецЕсли;
КонецЦикла;

(209)
А чтобы еще и работало :)
Для сч=-тз.КоличествоСтрок() по 1 Цикл
   тз.ПолучитьСтрокуПоНомеру(-сч);
   Если сч > -1 тогда
      Продолжить;
   КонецЕсли;
   Если тз.Количество = 0 Тогда
       тз.УдалитьСтроку();
   КонецЕсли;
КонецЦикла;

А! ну да же!

Для сч=-тз.КоличествоСтрок() по -1 Цикл
   тз.ПолучитьСтрокуПоНомеру(-сч);
   Если тз.Количество = 0 Тогда
       тз.УдалитьСтроку();
   КонецЕсли;
КонецЦикла;