Как удалить две повторяющихся строки подряд?

У нас есть таблица в которой есть повторяющиеся подряд строки (после сортировки) и обе они ненужны!

Например в таблице будут будущие проводки и если суммы совпадают, то эти проводки нам не нужны.

Значит нужно удалить повторяющиеся строки:

Код 1C v 8.х

 #Область УдалениеЛишнихСтрок

 Индекс=0;

 Для каждого СтрТаб Из ТаблицаКурсовыхРазниц Цикл

  Индекс = ТаблицаКурсовыхРазниц.Индекс(СтрТаб);

   СтрТаб2 = ТаблицаКурсовыхРазниц.Получить(Индекс);

   Если СтрТаб.СубконтоДт1 = СтрТаб2.СубконтоДт1 И СтрТаб.Сумма = СтрТаб2.Сумма Тогда //Условие совпадиния

    ТаблицаКурсовыхРазниц.Удалить(Индекс+1);

    ТаблицаКурсовыхРазниц.Удалить(Индекс);

  КонецЕсли;

 КонецЦикла;

#КонецОбласти

На выходе получим уже чистую таблицу.

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq8/view/1782.html