РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);

КонецПроцедуры

Проводка документа по двум регистрам «Остатки сырья» и «Стоимость сырья» на примере документа «Приходная накладная»

Движение документа осуществится только при условии, что оприходовано сырье и контрагентом является поставщик, а не реализатор.

Процедура ОбработкаПроведения(Отказ, Режим)

// регистр ОстаткиСырья Приход

Движения.ОстаткиСырья.Записывать = Истина;

Движения.СтоимостьСырья.Записывать = Истина;

Для Каждого ТекСтрокаСырье Из Сырье Цикл

Если ТекСтрокаСырье.Сырье.ВидНоменклатуры=Перечисления.ВидыНоменклатуры.Сырье И

ТекСтрокаСырье.Контрагент.ВидКонтрагента=Перечисления.ВидКонтрагента.Поставщик Тогда

Движение = Движения.ОстаткиСырья.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Сырье = ТекСтрокаСырье.Сырье;

Движение.Количество = ТекСтрокаСырье.Количество;

КонецЕсли;

//регистр стоимость материалов приход

Движение = Движения.СтоимостьСырья.Добавить();

Движение.ВидДвижения=ВидДвиженияНакопления.Приход;

Движение.Период=Дата;

Движение.Сырье=ТекСтрокаСырье.Сырье;

Движение.Стоимость=ТекСтрокаСырье.Сумма;

КонецЦикла;

КонецПроцедуры

КонецПроцедуры



Обработка проведения расходования сырья на примере документа «Расходная накладная»

Процедура ОбработкаПроведения(Отказ, Режим)

// регистр ОстаткиСырья Расход

Движения.ОстаткиСырья.Записывать = Истина;

Движения.СтоимостьСырья.Записывать = Истина;

Для Каждого ТекСтрокаСырье Из Сырье Цикл

Если ТекСтрокаСырье.Сырье.ВидНоменклатуры=Перечисления.ВидыНоменклатуры.Сырье Тогда

Движение = Движения.ОстаткиСырья.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Сырье = ТекСтрокаСырье.Сырье;

Движение.Количество = ТекСтрокаСырье.Количество;

КонецЕсли;

Движение = Движения.СтоимостьСырья.Добавить();

Движение.ВидДвижения=ВидДвиженияНакопления.Расход;

Движение.Период=Дата;

Движение.Сырье=ТекСтрокаСырье.Сырье;

Движение.Стоимость=ТекСтрокаСырье.Сумма;

КонецЦикла;

КонецПроцедуры

Автоматическая подстановка цены в документ при выборе номенклатуры на примере документа «Заказ сырья»

Функция, возвращающая цену номенклатуры

Функция РозничнаяЦена(АктуальнаяДата,ЭлементНоменклатуры) Эспорт

// Создать вспомогательный документ Отбор

Отбор=Новый Структура ("Номенклатура", ЭлементНоменклатуры);

// Получить актуальные значения ресурсов регистра

ЗначенияРесурсов=РегистрыСведений.Цены.ПолучитьПоследнее(АктуальнаяДата,Отбор);

Возврат ЗначенияРесурсов.Цена;

КонецФункции

При выборе элемента из номенклатуры

Процедура ЗаказНаименованиеПриИзменении(Элемент)

// Получить текущую строку табличной части

СтрокаТабличнойЧасти=Элементы.Заказ.ТекущиеДанные;

// Установить цену

СтрокаТабличнойЧасти.Цена=РаботаСоСправочниками.РозничнаяЦена(Объект.Дата, СтрокаТабличнойЧасти.Наименование);

// Пересчитать сумму строки

РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);

КонецПроцедуры

Запрос для отчета о движениях по регистру накоплений

ВЫБРАТЬ

ОстаткиСырьяОстаткиИОбороты.Сырье,

ОстаткиСырьяОстаткиИОбороты.КоличествоНачальныйОстаток,

ОстаткиСырьяОстаткиИОбороты.КоличествоКонечныйОстаток,

ОстаткиСырьяОстаткиИОбороты.КоличествоОборот,

ОстаткиСырьяОстаткиИОбороты.КоличествоПриход,

ОстаткиСырьяОстаткиИОбороты.КоличествоРасход

ИЗ

РегистрНакопления.ОстаткиСырья.ОстаткиИОбороты КАК ОстаткиСырьяОстаткиИОбороты

ОТЧЕТЫ

Реестр документов расходная накладная

ВЫБРАТЬ

РасходнаяНакладнаяСырье.Ссылка КАК Документ,

РасходнаяНакладнаяСырье.Сырье,

РасходнаяНакладнаяСырье.Количество,

РасходнаяНакладнаяСырье.ЕдИзм

ИЗ

Документ.РасходнаяНакладная.Сырье КАК РасходнаяНакладнаяСырье

ЛЕВОЕ СОЕДИНЕНИЕ Документ.РасходнаяНакладная КАК РасходнаяНакладная

ПО РасходнаяНакладнаяСырье.Ссылка = РасходнаяНакладная.Ссылка

УПОРЯДОЧИТЬ ПО

Документ

Рейтинг реализаторов

ВЫБРАТЬ

ГотовыеОбороты.Реализатор,

ГотовыеОбороты.КоличествоОборот КАК Количество,

ГотовыеОбороты.СуммаОборот КАК Сумма

ИЗ

РегистрНакопления.Готовые.Обороты КАК ГотовыеОбороты

Пример листинга печатной формы

Процедура Печать(ТабДок, Ссылка) Экспорт

Макет = Документы.СписокГотовых.ПолучитьМакет("Печать");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|СписокГотовых.Дата,

|СписокГотовых.Номер,

|СписокГотовых.Реализатор,

|СписокГотовых.Параметры.(

|НомерСтроки,

|Наименование,

|Цена,

|Количество,

|ЕдИзм,

|Сумма,

|ДатаИзготовления,

|СрокГодности,

|СрокРеализации

|)

|ИЗ

|Документ.СписокГотовых КАК СписокГотовых

|ГДЕ

|СписокГотовых.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

Выборка = Запрос.Выполнить().Выбрать();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ОбластьПараметрыШапка = Макет.ПолучитьОбласть("ПараметрыШапка");

ОбластьПараметры = Макет.ПолучитьОбласть("Параметры");

ОбластьИтог = Макет.ПолучитьОбласть("Всего");

ОбластьРеквизиты = Макет.ПолучитьОбласть("Реквизиты");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Табдок.Вывести(ОбластьРеквизиты);

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьПараметрыШапка);

ВыборкаПараметры = Выборка.Параметры.Выбрать();

СуммаИтог=0;

Пока ВыборкаПараметры.Следующий() Цикл

ОбластьПараметры.Параметры.Заполнить(ВыборкаПараметры);

ТабДок.Вывести(ОбластьПараметры, ВыборкаПараметры.Уровень());

СуммаИтог = СуммаИтог + ВыборкаПараметры.Сумма;

КонецЦикла;

ОбластьИтог.Параметры.ВсегоПоДокументу = СуммаИтог;

ТабДок.Вывести(ОбластьИтог);

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

КонецПроцедуры



Литература

1. Основы методологий проектирования автоматизированных систем обработки информации и управления/ Учебное пособие/ Составитель: А.В. Иващенко, Самара: СНЦ РАН, 2009 - 40 с., ил.

2. Советов Б.Я., Цехановский В.В, Чертовский В.Д. Теоретические основы автоматизированного управления. -М.:Высш.шк., 2006.

3. Сухомлинов А.И. Разработка интегрированной системы малого предприятия. Учебный пример, Владивосток 2011

4. Сухомлинов, А.И. Информационные системы управления: учеб.пособие/А.И. Сухомлинов. - Владивосток: Изд - во ДВГТУ, 2007. - 111 с. ISBN 978-5-7596-1020-5

5. Сухомлинов, А.И. Разработка информационных систем: учеб.пособие/А.И.Сухомлинов. - Владивосток: Изд - во ДВГТУ, 2008. - 182 с. ISBN 978-5-7596-0753-3

6. Теоритические основы автоматизированного управления/ А.В.Меньков, В.А. Острейковский. - Учебник для вузов. - М.: Издательство Оникс, 2005. - 650 с.: ил.

7. Радченко М. Г. / 1С:Предприятие 8.2. Практическое пособие разработчика. Примеры и типовые приемы. Издательство: 1С-Паблишинг, 2009

Размещено на Allbest.ru