В модуле получаем последнюю цену для товара из регистра сведений «Цены».
Деятельность организации «» подходит для демонстрации возможностей 1С: Предприятия 8.2. Она позволяет довольно широко показать возможность формирования различных отчетов и итоговых данных на основе имеющейся информации, выводить на печать бумажные аналоги электронных документов.
Список использованных источников
1.Радченко М.Г. 1С: Предприятие 8.2 « Практическое пособие разработчика»/ М.Г. Радченко. - М.: ООО «1С Паблишинг», 2004.
2.Радченко М.Г. ИТС по книге 1С: Предприятие 8.0 « Практическое пособие разработчика»/ М.Г. Радченко. - М.: ООО «1С Паблишинг», 2004.
3.Митичкин С. «Практика программирования в среде 1С:Предприятие»/
С. Митичкин - М.: «КомБук», 2004.
.Рязанцева Н. 1С: Предприятие «Комплексная конфигурация. Секреты работы»/ Н.Рязанцева, Д.Рязанцев - Санкт-Петербург «БХВ-Петербург» 2005.
5.Постовалов С. 1С: Предприятие 8 «Зарплата и Управление Персоналом»/ С. Постовалов, А. Постовалова. Санкт-Петербург «БХВ-Петербург» 2008.
6.Шустикова Т.Б. 1С:Предприятие 8.0. Управление торговлей / Т.Б. Шустикова - М.: «НТ Пресс», 2006. - 284с.
7.Габец А.П. Профессиональная разработка в системе 1С: Предприятие 8.0 / А.П. Габец. - М.: ООО «1С: Паблишинг», 2006.
Приложение
А.1. Процедура - Программный код модуля объекта документа «ПриходнаяНакладная»
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр ОстаткиМатериалов Приход
Движения.ОстаткиМатериалов.Записывать = Истина;
Для Каждого ТекСтрокаМатериалы Из Материалы Цикл
Движение = Движения.ОстаткиМатериалов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Материал = ТекСтрокаМатериалы.Материал;
Движение.Склад = Склад;
КонецЦикла;
КонецПроцедуры
А.2 Процедура - Программный код модуля формы документа «ПриходнаяНакладная»
&НаКлиенте
Процедура МатериалыКоличествоПриИзменении(Элемент)
СтрокаТабличнойЧасти=Элементы.Материалы.ТекущиеДанные;
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
&НаКлиенте
Процедура МатериалыЦенаПриИзменении(Элемент)
СтрокаТабличнойЧасти=Элементы.Материалы.ТекущиеДанные;
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
&НаКлиенте
Процедура МатериалыНоменклатураПриИзменении(Элемент)
//Получить текущую строку табличной части.
СтрокаТабличнойЧасти=Элементы.Материалы.ТекущиеДанные;
//Установить цену.СтрокаТабличнойЧасти.Цена=РаботаСоСправочниками.РозничнаяЦена(Объект.Дата , СтрокаТабличнойЧасти.Номенклатура);
//Пересчитать сумму строки. РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
А.3. Процедура - Программный код модуля формы документа «ОказаниеУслуги»
&НаКлиенте
Процедура ПереченьНоменклатурыКоличествоПриИзменении(Элемент)
СтрокаТабличнойЧасти=Элементы.ПереченьНоменклатуры.ТекущиеДанные;
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
&НаКлиенте
Процедура ПереченьНоменклатурыЦенаПриИзменении(Элемент)
СтрокаТабличнойЧасти=Элементы.ПереченьНоменклатуры.ТекущиеДанные;
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
&НаКлиенте
Процедура ПереченьНоменклатурыНоменклатураПриИзменении(Элемент) СтрокаТабличнойЧасти=Элементы.ПереченьНоменклатуры.ТекущиеДанные; СтрокаТабличнойЧасти.Цена=РаботаСоСправочниками.РозничнаяЦена(Объект.Дата , СтрокаТабличнойЧасти.Номенклатура);
РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры
А.4. Процедура - Программный код модуля объекта документа «ОказаниеУслуги»
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.Продажи.Записывать = Истина;
Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл
Движение = Движения.Продажи.Добавить();
Движение.Период = Дата;
Движение.Номенклатура =ТекСтрокаПереченьНоменклатуры.Номенклатура;
Движение.Клиент = Клиент;
Движение.Мастер = Мастер;
Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
Движение.Стоимость=ТекСтрокаПереченьНоменклатуры.Стоимость;
КонецЦикла;
Движения.ОстаткиМатериалов.Записывать = Истина;
Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл
Если ТекСтрокаПереченьНоменклатуры.Номенклатура
.ВидНоменклатуры=Перечисления.ВидыНоменклатуры.Материал Тогда
Движение = Движения.ОстаткиМатериалов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
Движение.Склад = Склад;
Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
А.5. Процедура - Программный код общего модуля «РаботаСДокументами»
Процедура РассчитатьСумму(СтрокаТабличнойЧасти)Экспорт
СтрокаТабличнойЧасти.Сумма=СтрокаТабличнойЧасти.Количество*СтрокаТабличнойЧасти.Цена;
КонецПроцедуры
А.6. Процедура - Программный код общего модуля «РаботаСоСправочниками»
Функция РозничнаяЦена(АктуальнаяДата, ЭлементНоменклатуры) Экспорт
//Создать вспомогательный объект Отбор.
Отбор=Новый Структура("Номенклатура", ЭлементНоменклатуры);
//Получить актуальные значени ресурсов регистра.
ЗначенияРесурсов=РегистрыСведений.Цены.ПолучитьПоследнее(АктуальнаяДата, Отбор);
КонецФункции