0
AlexYa
17.12.15
✎
16:33
|
Сломал мозг.
Простая задача. Из Розницы в УПП перебросить документ Оприходование товаров.
Т.к. в УПП в документе реквизитов несколько больше, то в ПКО ОприходованиеТоваров ПослеЗагрузки помещаю код
<1c>
Сообщить("После загрузки");
ПерыйРаз = Истина;
Для каждого СтрокаТЧ Из Объект.Товары Цикл
СчетБУ = ПланыСчетов.Хозрасчетный.ТоварыВРозничнойТорговле;
СтрокаТЧ.СчетУчетаБУ = СчетБУ;
СчетНУ = ПланыСчетов.Налоговый.ТоварыВРозничнойТорговле;
СтрокаТЧ.СчетУчетаБУ = СчетНУ;
СтрокаТЧ.СтатусПартии = Перечисления.СтатусыПартийТоваров.Купленный;
Если ПерыйРаз Тогда
Сообщить("Типы СчетБУ " + Строка(ТипЗнч(СчетБУ)) + " СтрокаТЧ.СчетУчетаБУ " + Строка(ТипЗнч(СтрокаТЧ.СчетУчетаБУ)));
Сообщить("СчетБУ " + Строка(СчетБУ) + " СтрокаТЧ.СчетУчетаБУ " + Строка(СтрокаТЧ.СчетУчетаБУ));
КонецЕсли;
ПерыйРаз = Ложь;
КонецЦикла;
Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения);
</1c>
СтатусПартии прекрасно записывается
Тип СчетБУ и СтрокаТЧ.СчетУчетаБУ одинаковый
СчетБУ - присваивается
СтрокаТЧ.СчетУчетаБУ - пустой.
Как счета присвоить программно?
|
|