Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 21:06

Сравнение двух документов

Автор kox, 20 ноя 2011, 16:22

0 Пользователей и 1 гость просматривают эту тему.

kox

Есть два документа и нужно сравнить табличные части этих двух документов и в новый документ так же в табличную часть вывести абсолютно все позиции из обоих документов, но не дублировать одинаковые позиции, предложите варианты алгоритма???

Dethmontt

Загрузи все строки найди одинаковые и удали
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

kox

Предложи как можно потом удалить??? небольшой кусочек кода напиши!! Заранее благодарен тебе!!!

Dethmontt

Ну примерно как то так...

НашлиСамуСебя = Ложь;
МассивДляУдаления = Новый массив;
Для каждого х из ТЧ Цикл
  Для каждого у из ТЧ Цикл
    Если НашлиСамуСебя и у.Наименование = х.Наименование и у.Цена = х.Цена Тогда
МассивДляУдаления.Добавить(х);
ИначеЕсли не НашлиСамуСебя и у.Наименование = х.Наименование и у.Цена = х.Цена Тогда
НашлиСамуСебя = Истина;
КонецЕсли;
КонецЦикла;
КонецЦикла;
Для каждого Строка из МассивДляУдаления Цикл
ТЧ.Удалить(Строка);
КонецЦикла;
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Dethmontt

Забыл... вот так...

МассивДляУдаления = Новый массив;
Для каждого х из ТЧ Цикл
НашлиСамуСебя = Ложь;
  Для каждого у из ТЧ Цикл
    Если НашлиСамуСебя и у.Наименование = х.Наименование и у.Цена = х.Цена Тогда
МассивДляУдаления.Добавить(х);
ИначеЕсли не НашлиСамуСебя и у.Наименование = х.Наименование и у.Цена = х.Цена Тогда
НашлиСамуСебя = Истина;
КонецЕсли;
КонецЦикла;
КонецЦикла;
Для каждого Строка из МассивДляУдаления Цикл
ТЧ.Удалить(Строка);
КонецЦикла;
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Dethmontt

Не нашел кнопку отредактировать...(((
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск