8.х ОБМЕН Пернос остатков из Торговли7 в УПП 8.1

Тема в разделе "Обмен данными в "1С:Предприятие 8"", создана пользователем Vadimok, 3 сен 2008.

  1. TopicStarter Overlay
    Vadimok
    Offline

    Vadimok

    Регистрация:
    23 ноя 2007
    Сообщения:
    27
    Симпатии:
    0
    Баллы:
    1
    Создал ПКО с пустым источником с сылкой на ДокументСсылка.КорректировкаЗаписейРегистров. Затем ПВД, произвольный алгоритм. Код Перед обработкой
    Код:
    ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений");
    ВыборкаДанных.НоваяКолонка("Дата");
    ВыборкаДанных.НоваяКолонка("Комментарий");
    ВыборкаДанных.НоваяКолонка("ТоварыНаСкладах");
    
    ВыборкаДанных.НоваяСтрока();
    
    ВыборкаДанных.Дата = ПолучитьДатуV8(ПолучитьТА());
    ВыборкаДанных.Комментарий = "Остатки по местам хранения";
    ВыборкаДанных.ТоварыНаСкладах = МестаХраненияОстатки();
    
    Создал алгоритм
    Код:
    Перем РезультатЗапроса;
    
    ДатаКон = ?(ПустоеЗначение(ДатаОкончания) = 0, ?(ДатаОкончания > ПолучитьДатуТА(), ПолучитьДатуТА(), ДатаОкончания), ПолучитьДатуТА());
    
    Запрос = СоздатьОбъект("Запрос");
    
    ТекстЗапроса = 
    "//{{ЗАПРОС(Сформировать)
    |с ДатаКон;
    |Без итогов;
    |Номенклатура = Регистр.ОстаткиТоваров.Товар;
    |Склад = Регистр.ОстаткиТоваров.Склад;
    |МестаХраненияКоличество = Регистр.ОстаткиТоваров.ОстатокТовара;
    |Функция Количество = КонОст(МестаХраненияКоличество);
    |Группировка Номенклатура без групп;
    |Группировка Склад без групп;
    |"//}}ЗАПРОС;
    
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
    
    Возврат 0;
    
    КонецЕсли;
    
    Запрос.Выгрузить(РезультатЗапроса);
    
    РезультатЗапроса.НоваяКолонка("Период");
    
    Если РезультатЗапроса.КоличествоСтрок() > 0 Тогда
    
    РезультатЗапроса.Заполнить(ПолучитьДатуV8(ДатаКон),,, "Период");
    
    КонецЕсли;
    
    Возврат РезультатЗапроса;
    
    После загрузки в УПП посмотрел документ остатки удвоились, в чем ошибка? Помогите кто знает.
  2. BabySG
    Offline

    BabySG Администраторы Команда форума Администратор

    Регистрация:
    10 июн 2007
    Сообщения:
    11.853
    Симпатии:
    12
    Баллы:
    29
    Так а если запросов выполнить в базе - остатки какие выдает?
  3. TopicStarter Overlay
    Vadimok
    Offline

    Vadimok

    Регистрация:
    23 ноя 2007
    Сообщения:
    27
    Симпатии:
    0
    Баллы:
    1
    Ты имешь ввиду выполнить запорс в 7 и посмотреть результат. Думаешь дело в этом. И еще подскажи как мне перенисти цены. Там есть документ "Установка цен номенклатуры" я думаю, что нужно через него делать, но как не сооброжу.
  4. BabySG
    Offline

    BabySG Администраторы Команда форума Администратор

    Регистрация:
    10 июн 2007
    Сообщения:
    11.853
    Симпатии:
    12
    Баллы:
    29
    Посмотри на диске ИТС типовые правила - там есть много интересного

Поделиться этой страницей