I
inock
Кризис заставляет повышать квалификацию. Сейчас действительно везде требуется знание 1С. Накачал книжек, осваиваю с азов. Можно я тут поспрашиваю, если будет что-то не получаться?
Пытаюсь автоматизировать заполнение накладной. Согласно книжке, набил в модуле документа следующий код:
В форме в свойствах кнопки прописал так:
link removed
Но при нажатии на кнопку "Добавить" почему-то вылетает ошибка:
link removed
Что я делаю не так?
Пытаюсь автоматизировать заполнение накладной. Согласно книжке, набил в модуле документа следующий код:
Код:
Процедура ОбработкаПроведения()
//Здесь следует написать алгоритм проведения документа
КонецПроцедуры
Процедура ЗапросКоличестваВПодборе(Выб) //интерактивно выставляем количество
Если Выб.ПометкаУдаления()=1 Тогда //товар помечен на удаление
Предупреждение("Нельзя выбирать помеченные на удаление товары!");
Возврат; //прекращаем работу процедуры
КонецЕсли;
Кол=1; //Обьявили переменную для ввода количества и присвоили ей значение "1"
Если ВвестиЧисло(Кол,"Введите количество",10,2)=1 Тогда
НоваяСтрока(); //добавляем строку в табличную часть
Товар=Выб; //Товар из Выб в добавленную строку
Количество=Кол;//Количество - туда же
КонецЕсли;
КонецПроцедуры
Процедура УстанЦеныПрих()
Цена=Товар.Себестоимость.Получить(ДатаДок); //Себестоимость товара из спр. Номенклатура - в документ
СтавкаНДС=Товар.СтавкаНДС.Получить(ДатаДок);//Ставку НДС из спр. Номенклатура - в документ
КонецПроцедуры
Процедура Выч_суммы_накл()
Сумма=Цена * Количество;
НДС=Сумма/(СтавкаНДС+100)*СтавкаНДС;
КонецПроцедуры
Процедура ОбработкаПодбора(Выб)
ЗапросКоличестваВПодборе(Выб);
УстанЦеныПрих(); //вызов процедур обработки подбора
Выч суммы_накл();
АктивизироватьСтроку();
КонецПроцедуры
Процедура Подбор()
ОткрытьПодбор("Номенклатура","ФормаСписка");
КонецПроцедуры
В форме в свойствах кнопки прописал так:
Но при нажатии на кнопку "Добавить" почему-то вылетает ошибка:
Что я делаю не так?