"При написании кода выдается ошибка<br>Цена=Товар.Себестоимость.Получить(ДатаДок);<br>{Документ.ПрихНакл.Форма.Модуль(21)}: Значение не представляет агрегатный объект (Получить)<br><br><br>Код в модуле документа<br>Процедура Подбор()<br> ОткрытьПодбор("Номенклатура","ФормаСписка");<br>КонецПроцедуры <br> <br><br><br>Процедура ЗапросКоличестваВПодборе(выб)<br> Если Выб.пометкаУдаления()=1 Тогда<br> Предупреждение("Нельзя выбирать помеченные на удаление товары!");<br> Возврат;<br> КонецЕсли;<br> Кол=1;<br> Если ВвестиЧисло(Кол,"Введите количество",10,2)=1 Тогда<br> НоваяСтрока();<br> Товар=Выб;<br> Количество=Кол;<br> КонецЕсли;<br>КонецПроцедуры <br> <br>Процедура УстанЦеныПрих()<br> Цена=Товар.Себестоимость.Получить(ДатаДок);<br> СтавкаНДС=Товар.СтавкаНДС.Получить(ДатаДок);<br>КонецПроцедуры <br><br> <br><br><br>Процедура Выч_суммы_накл()<br> Сумма=Цена*Количество;<br> НДС=Сумма/(СтавкаНДС+100)*СтавкаНДС;<br> КонецПроцедуры<br> <br> Процедура ОбработкаПодбора(Выб) <br> ЗапросКоличестваВПодборе(Выб); <br> УстанЦеныПрих();<br> Выч_суммы_накл();<br> АктивизироватьСтроку(); <br>КонецПроцедуры <br><br><br><br>Процедура ПриОткрытии()<br> ПриЗаписиПерепроводить(1);<br>КонецПроцедуры<br>"