БП 2.0
Подскажите, почему не срабатывает условие: надо в ТЧ док-та удалить все проводки Дт20-Кт70, у которых СуммаБУ=0, СуммаНУ - непустая, СуммаВР - непустая.
Пишу:


Процедура УдалитьДт26Кт70(Кнопка)
   
   Счет26 = ПланыСчетов.Хозрасчетный.ОбщехозяйственныеРасходы;
   Счет70 = ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда;
   
   МассивСтрок=Новый Массив;
   ТабЧасть = ДокументОбъект.ОтражениеВУчете;
   
   Для каждого Строка Из ТабЧасть Цикл
       
       Если Строка.СчетДт=Счет26 И Строка.СчетКт=Счет70 И Строка.Сумма=0 И Строка.СуммаНУ<>0 И Строка.СуммаВР<>0 Тогда
           МассивСтрок.Добавить(Строка);
       КонецЕсли;
       
   КонецЦикла;
   
   ном = 0;
   Если МассивСтрок.Количество()=0 Тогда
       Предупреждение("Нет строк Дт26-Кт70(НУ,ВР)!!!");
   Иначе
       Для каждого Строка Из МассивСтрок Цикл
           ТабЧасть.Удалить(Строка);
           ном = ном +1;
       КонецЦикла;
       Сообщить ("Удалено " + ном + " строк, имеющих проводку Дт26-Кт70(НУ,ВР)!!!");
   КонецЕсли;
   
КонецПроцедуры


Удаляет все Дт20-Кт70

используй НайтиСтроки

(0) не читал твой г-код, но дам совет

по условию собирают строки в мУдалемыеСтроки

потом оходят этот массив, а не коллекцию строк и удаляют вшивых из коллекции

(2) это и делает НайтиСтроки, только одной строкой )

+ если отбор не реален в случае получения выборки запросом и кривой типизацией, то используй в переборе в условиях ЗначениеЗаполнено() и будет счастье.

да я не видел, шо он технологию блюл

(1) не взлетит

есть условие не на равенство.

Ничего не поняла (((

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

(5) варум?

"СуммаНУ - непустая, СуммаВР - непустая"
НайтиСтроки - без танцев с бубнами не взлетит. А танцы нафиг не нужны, поэтому просто цикл

(7) проблемы пока не видим.

+9 а, блин, все не читал, как всегда )))

(7) Перебирай Таб часть с конца и сразу удаляй в ней строки по условию. не собирай в массив вообще :)

(0) Удаляются именно 20/70?

автор похож и на Варум и на кавказскую пленицу - надо позвать товарища Сааахова для решения ее насущных проблем

сдается мне, что проблема нефига не в этой функции. Отладчик в помощь.

И почему опять ДокументОбъект? ЭтотОбъект надо писать, если кнопка на форме!!!

Если Строка.СчетДт=Счет26 И Строка.СчетКт=Счет70
И Строка.Сумма=0 И Строка.СуммаНУ<>0 И Строка.СуммаВР<>0 Тогда
           МассивСтрок.Добавить(Строка);
       КонецЕсли;


я убегаю курить когда вижу такие перлы

(7) Примерно так:
Процедура УдалитьДт26Кт70(Кнопка)
   
   Счет26 = ПланыСчетов.Хозрасчетный.ОбщехозяйственныеРасходы;
   Счет70 = ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда;
   
   ТабЧасть = ДокументОбъект.ОтражениеВУчете;
   НомСтроки = ТабЧасть.Количество()-1;
   Пока НомСтроки >= 0 Цикл
       СтрокаТЧ = ТабЧасть[НомСтроки];
       Если СтрокаТЧ .СчетДт=Счет26 И СтрокаТЧ .СчетКт=Счет70 И СтрокаТЧ .Сумма=0 И СтрокаТЧ .СуммаНУ<>0 И СтрокаТЧ .СуммаВР<>0 Тогда
           ТабЧасть.Удалить(СтрокаТЧ);
       КонецЕсли;
   КонецЦикла;

КонецПроцедуры

(19) + Забыл.. вот так:
НомСтроки = НомСтроки -1;
КонецЦикла;

(19) тебя бы повесить за такой код)

(21) Давай свой вариант

маразм крепчал. Процедурка сама откуда вызывается? И что такое документ объект?
Если все происходит в модуле формы документа, то обращание к ТЧ идет тупо п ее миени.

обращение к ТЧ по имени.

(22) не у всех так быстро вечные циклы получаются.

(22) код чего - банального перебора и банального удаления?

там проблема в источниках и условии - шерифа это не волнует)

(25) Я так давно не писал уже - вот и потерял сноровку :)

(26) в условии то где проблема?

(26) Дай девочке образец кода как удалить строки ТЧ по нескольким условиям. Чтобы было красиво, быстро, безупречно.

(29) я считаю глупо забивать девочке голову всякой ерундой

код у девочки вполне нормальный, если не считать замечания по обращению к ТЧ через ДокументОбъект. ИМХО, проблема не в коде.

(30) слив защитан

Процедура УдалитьДт26Кт70(Кнопка)
   
   ТабЧасть = ЭтотОбъект.ОтражениеВУчете;
   Счет26 = ПланыСчетов.Хозрасчетный.ОбщехозяйственныеРасходы;
   Счет70 = ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда;
   
  СтаршийИндексКолонок = ТабЧасть.Колонки.Количество() - 1;
Индекс = ТабЧасть.Количество() - 1;
Пока Индекс > = 0 Цикл
   Для Сч = 0 По СтаршийИндексКолонок Цикл
       Если ТабЧасть[Индекс].Сумма) = 0 ..тут добавить другие условия... Тогда
           ТабЧасть.Удалить(Индекс);
           Прервать;
       КонецЕсли;
   КонецЦикла;
   Индекс = Индекс - 1;
КонецЦикла;
   
КонецПроцедуры

(0) никогда не понимал использования ЭтотОбъект в модуле формы не для передачи контекста в общие модули. Просвети - нафиг он тут нужен?

(34) -> (33) конечно же.

(19) Все равно лишние проводки Дт20-Кт70 удаляются!!!

(0)
Вот тут сделай контрольку
.....
       Если Строка.СчетДт=Счет26 И Строка.СчетКт=Счет70 И Строка.Сумма=0 И Строка.СуммаНУ<>0 И Строка.СуммаВР<>0 Тогда
           МассивСтрок.Добавить(Строка);
       Иначе
Сообщить("были не удаляемые строки"); // собственно сама контролькка
       КонецЕсли;
.......

(34) Согласен, если в модуле формы, то тупо по имени ТЧ.

(38) Судя по ....(Кнопка) код именно в модуле формы.

БП под рукой нет. Строка.Сумма - точно сумма БП, а не какая-нибудь управленческая?

(36) Ищи ошибку в условии. По какому-то из них у тебя всегда срабатывает удаление строки.

сейчас счастье придет )

(33) Написала, как Вы, только условие свое добавила:

ТабЧасть = ЭтотОбъект.ОтражениеВУчете;
   Счет26 = ПланыСчетов.Хозрасчетный.ОбщехозяйственныеРасходы;
   Счет70 = ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда;
   
   СтаршийИндексКолонок = ТабЧасть.Колонки.Количество() - 1;
   Индекс = ТабЧасть.Количество() - 1;
   Пока Индекс > = 0 Цикл
       Для Сч = 0 По СтаршийИндексКолонок Цикл
           //    Если ТабЧасть[Индекс].Сумма) = 0 ..тут добавить другие условия... Тогда
           Если ТабЧасть[Индекс].Сумма = 0 И ТабЧасть[Индекс].СуммаНУ <> 0 И ТабЧасть[Индекс].СуммаВР <> 0  Тогда
               
               ТабЧасть.Удалить(Индекс);
               Прервать;
           КонецЕсли;
       КонецЦикла;
       Индекс = Индекс - 1;
   КонецЦикла;


Выдает ошибку:

Документ.ОтражениеЗарплатыВРеглУчете.Форма.ФормаДокумента.Форма(1903,15)}: Ошибка в выражении
   Пока Индекс ><<?>> = 0 Цикл  (Проверка: Толстый клиент (обычное приложение))

(40) Да

Да что ж такое. Пробел убери между > и =

укушу счас. Грят те проверь по (37), а есть ли строки не попавшие под удаление то.

И вместо ТабЧасть пиши ОтражениеВУчете. И первую строчку вообще убери.

если уж отладчиком вообще лениво пользоваться то.

(41) Условие не меняется:

Если СтрокаТЧ .СчетДт=Счет26 И СтрокаТЧ .СчетКт=Счет70 И СтрокаТЧ .Сумма=0 И СтрокаТЧ .СуммаНУ<>0 И СтрокаТЧ .СуммаВР<>0 Тогда

(43) >= в коде пишется слитно. Но роли это не сыграет.

(45) Убрала пробел, теперь пишет ошибку:

Документ.ОтражениеЗарплатыВРеглУчете.Форма.ФормаДокумента.Форма(1901)}: Поле объекта не обнаружено (Колонки)
   СтаршийИндексКолонок = ТабЧасть.Колонки.Количество() - 1;

(51) вот млин. По (37) проверила? Есть попадание в Иначе?

(52) Да, пишет:
были не удаляемые строки

(53) В (19) + (20) написан перебор строк и удаление по условию. Только нужно обращаться к ТЧ напрямую по имени как она задана на форме документа.
Проверь условие, пройдись отладчиком и посмотри, что творится.

(53) следующий этап. В отладчике ставишь точку останова на КонецПроцедуры. По остановке смотришь отладчиком, что у тебя осталось в ТабЧасть.

но, ИМХО, проблема не в этой процедуре. Строки в какой момент исчезают то из ТЧ? Сразу после отработки процедуры или при записи документа?