Имя: Пароль:
1C
 
Перенос документа комплектации 1с УТ 10.3 в бух 7.7
0 borzay999
 
09.07.16
15:07
Создала правила обмена. Комплектацию переносим в документ инвентаризации. Комплект +, комплектующие -
Загружаю в ТЧ комплектующие переносятся, а комплект переношу таким образом


    НеОчищать = Истина;
    
    
КоллекцияОбъектов = Новый ТаблицаЗначений();
КоллекцияОбъектов.Колонки.Добавить("ВидМПЗ");
КоллекцияОбъектов.Колонки.Добавить("МПЗ");
КоллекцияОбъектов.Колонки.Добавить("Счет");
КоллекцияОбъектов.Колонки.Добавить("КоличествоУчет");
КоллекцияОбъектов.Колонки.Добавить("Количество");
КоллекцияОбъектов.Колонки.Добавить("СуммаУчет");
КоллекцияОбъектов.Колонки.Добавить("Сумма");
КоллекцияОбъектов.Колонки.Добавить("ФормироватьПроводку");

ОбъектКоллекции = КоллекцияОбъектов.Добавить();
ОбъектКоллекции.ВидМПЗ                = "Товар";
ИсходящиеДанные = Новый Структура;
ИсходящиеДанные.Вставить("ТипНоменклатуры", "Товар");
ИсходящиеДанные.Вставить("ТипТовара", "Собственный");
ОбъектКоллекции.МПЗ                    = ИсходящиеДанные;
ОбъектКоллекции.Счет                = ?(Источник.Склад.ВидСклада = Перечисления.ВидыСкладов.Оптовый, "41.1", "41.2");
ОбъектКоллекции.КоличествоУчет        = 0;
ОбъектКоллекции.Количество            = Источник.Количество * Источник.Коэффициент;
ОбъектКоллекции.СуммаУчет            = 0;
ОбъектКоллекции.Сумма                = 0;
ОбъектКоллекции.ФормироватьПроводку = Истина;

Если КоллекцияОбъектов.Количество() <= 0 Тогда
   Отказ = Истина;
КонецЕсли;


но в конце при переносе не выгружается комплект,а есть только комплектующие.
глаз уже замылился. в чем проблема??
1 borzay999
 
09.07.16
16:09
зададим вопрос по другому, как в одну табличную часть загрузить табличную часть документа и реквизиты. ведь комплект по итогу это реквизит