0
borzay999
09.07.16
✎
15:07
|
Создала правила обмена. Комплектацию переносим в документ инвентаризации. Комплект +, комплектующие -
Загружаю в ТЧ комплектующие переносятся, а комплект переношу таким образом
НеОчищать = Истина;
КоллекцияОбъектов = Новый ТаблицаЗначений();
КоллекцияОбъектов.Колонки.Добавить("ВидМПЗ");
КоллекцияОбъектов.Колонки.Добавить("МПЗ");
КоллекцияОбъектов.Колонки.Добавить("Счет");
КоллекцияОбъектов.Колонки.Добавить("КоличествоУчет");
КоллекцияОбъектов.Колонки.Добавить("Количество");
КоллекцияОбъектов.Колонки.Добавить("СуммаУчет");
КоллекцияОбъектов.Колонки.Добавить("Сумма");
КоллекцияОбъектов.Колонки.Добавить("ФормироватьПроводку");
ОбъектКоллекции = КоллекцияОбъектов.Добавить();
ОбъектКоллекции.ВидМПЗ = "Товар";
ИсходящиеДанные = Новый Структура;
ИсходящиеДанные.Вставить("ТипНоменклатуры", "Товар");
ИсходящиеДанные.Вставить("ТипТовара", "Собственный");
ОбъектКоллекции.МПЗ = ИсходящиеДанные;
ОбъектКоллекции.Счет = ?(Источник.Склад.ВидСклада = Перечисления.ВидыСкладов.Оптовый, "41.1", "41.2");
ОбъектКоллекции.КоличествоУчет = 0;
ОбъектКоллекции.Количество = Источник.Количество * Источник.Коэффициент;
ОбъектКоллекции.СуммаУчет = 0;
ОбъектКоллекции.Сумма = 0;
ОбъектКоллекции.ФормироватьПроводку = Истина;
Если КоллекцияОбъектов.Количество() <= 0 Тогда
Отказ = Истина;
КонецЕсли;
но в конце при переносе не выгружается комплект,а есть только комплектующие.
глаз уже замылился. в чем проблема??
|
|