|
0
tesei
14.02.23
✎
08:45
|
Заполняю обработкой номенклатуру в Поступлении товаров услуг, после выбора номенклатуры нужно заполнить счета учета номенклатуры. Подскажите, коллеги, какую процедуру при этом использовать. Пробовал следующую конструкцию, пока это не работает:
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
док = ВладелецФормы.Объект;
Для Каждого стр из док.Услуги Цикл
Если НЕ ЗначениеЗаполнено(стр.Номенклатура) Тогда
стр.Номенклатура = ПолучитьНоменклатуру("Транспортные услуги");
ПараметрыЗаполненияСчетовУчета = ПоступлениеТоваровУслугФормыКлиентСервер.НачатьЗаполнениеСчетовУчета("Услуги.Номенклатура",док,стр,док,стр);
ЗаполненныеСчета = СчетаУчетаВДокументах.ЗаполнитьРеквизитыПриИзменении(Документы.ПоступлениеТоваровУслуг,ПараметрыЗаполненияСчетовУчета,док,"Услуги",стр,Ложь);
ЗаполнитьЗначенияСвойств(стр, ЗаполненныеСчета);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Если у кого есть рабочая процедура, поделитесь пож-ста.
|
|
|
1
tesei
14.02.23
✎
10:43
|
Вот решение. Всем спасибо за помощь и дискуссию! :)
&НаСервереБезКонтекста
Функция ПолучитьСчетаУчетаНоменклатуры(Знач Организация, Знач Номенклатура)
СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Организация, Номенклатура);
Возврат СчетаУчета;
КонецФункции
СчетаУчета = ПолучитьСчетаУчетаНоменклатуры(док.Организация, стр.Номенклатура);
стр.СчетУчетаНДС = СчетаУчета.СчетУчетаНДС;
стр.СчетЗатрат = СчетаУчета.СчетУчета;
стр.СчетЗатратНУ = СчетаУчета.СчетУчета;
стр.Субконто1 = СчетаУчета.Субконто1;
стр.Субконто2 = СчетаУчета.Субконто2;
стр.Субконто3 = СчетаУчета.Субконто3;
стр.СубконтоНУ1 = СчетаУчета.Субконто1;
стр.СубконтоНУ2 = СчетаУчета.Субконто2;
стр.СубконтоНУ3 = СчетаУчета.Субконто3;
|
|
