Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Сравнение данных из двух ТЧ по Номенклатуре и Количеству
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
Constantus
Приветствую, форумчане!
"Управление торговлей 10.3", (Моби-С 5.5). "ABBYY Ukraine", 2003-2014 (2.3.20.1)

Имеется обработка. В ней 2-е ТЧ: Товары и Регистр.

Данные "Товары"
1. Товар 01 - 100 шт
2. Товар 02 - 100 шт

Данные "Регистр"

1. Товар 01 - 50 шт
2. Товар 01 - 50 шт

3. Товар 02 - 70 шт
4. Товар 02 - 10 шт
4. Товар 02 - 10 шт

Необходимо сравнить данные двух ТЧ. Как видно по Товару 01 сумма значений совпадают, а у Товара02 100<>90

Как в обработке сравнить значения по Номенклатуре и сумме значений и в случае разногласий вывести некий отчет о расхождениях?
Bernet
Constantus @ Сегодня, 13:02 необходимо зарегистрироваться для просмотра ссылки ,
КопияТовары = Товары.Выгрузить();
КопияТовары.Свернуть("Номенклатура", "Количество");
Для Каждого СтрокаТоваров Из КопияТовары Цикл

   СтруктураПоиска = Новый Структура;
   СтруктураПоиска.Вставить("Номенклатура", СтрокаТоваров.Номенклатура);

   ВсегоПоРегистру = 0;
   НайденныеСтроки = Регистр.НайтиСтроки(СтруктураПоиска);
   Для Каждого НайденнаяСтрока Из НайденныеСтроки Цикл
      ВсегоПоРегистру = ВсегоПоРегистру + НайденнаяСтрока.Количество;
   КонецЦикла;
   Если СтрокаТоваров.Количество <> ВсегоПоРегистру  Тогда
      Сообщить("Отличается количество по товару - "+СтрокаТоваров.Номенклатура+" на "+Строка((ВсегоПоРегистру - СтрокаТоваров.Количество)));
   КонецЕсли;
КонецЦикла;
Constantus
Bernet @ Сегодня, 16:10 необходимо зарегистрироваться для просмотра ссылки ,


Шайтан!!! Где Вы всему этому учились? В какой спецшколе? 32541510.gif icon_cuss.gif icon_beer17.gif
Bernet
Constantus @ Сегодня, 14:30 необходимо зарегистрироваться для просмотра ссылки ,
Школа под названием жизнь =) просто практика и все, стыкаясь с подобными задачами каждый день, будете через год щелкать их не задумываясь, это простые задачи
Constantus
Bernet @ Сегодня, 16:31 необходимо зарегистрироваться для просмотра ссылки ,

Ну ладно, тогда еще одна в другой ветке... необходимо зарегистрироваться для просмотра ссылки
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.