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