Файл: В. И. Кокова инициалы, фамилия.pdf

107
|
ЦенаЗакупки,
|
Сумма
|
)
|ИЗ
|
Документ.Закупка КАК Закупка
|ГДЕ
|
Закупка.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТоварыШапка);

108
ВыборкаТовары = Выборка.Товары.Выбрать();
Пока ВыборкаТовары.Следующий() Цикл
ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
ТабДок.Вывести(ОбластьТовары,
ВыборкаТовары.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
&НаСервере
Функция ПолучитьОстатокПоЗаказу(Заказ) Экспорт
Запрос = Новый Запрос;
Запрос.Текст=
"ВЫБРАТЬ
|
ЗаказыОстатки.Товар КАК Товар ,
|
ЗаказыОстатки.КоличествоОстаток КАК Остаток
|ИЗ
|
РегистрНакопления.Заказы.Остатки(&Момент,
ДокументЗаказа = &ДокументЗаказа) КАК ЗаказыОстатки";
Граница=
Новый
Граница(КонецДня(ТекущаяДата()),ВидГраницы.Включая);

109
Запрос.УстановитьПараметр("Момент",Граница);
Запрос.УстановитьПараметр("ДокументЗаказа",Заказ);
Результат = Запрос.Выполнить().Выгрузить();
Возврат Результат;
КонецФункции
&НаСервере
Процедура ЗаписатьНаборВБазу(Объект,Режим) Экспорт
Если Режим = "Продажа" Тогда
Набор
=
РегистрыНакопления.Продажа.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Значение = Объект.Ссылка;
Товары = Объект.Товары;
Клиент = Объект.Клиент;
Для Каждого Строка Из Товары Цикл
Запись=Набор.Добавить();
Запись.Период = Объект.Дата;
Запись.Товар = Строка.Товар;
Запись.Клиент =Клиент;
Запись.Количество = Строка.Количество;
Запись.Сумма = Строка.Сумма;
Запись.МаркаТовара = Строка.Товар.КодМарки;
КонецЦикла;

110
Набор.Записать();
Набор
=
РегистрыНакопления.Остатки.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Значение = Объект.Ссылка;
Товары = Объект.Товары;
Для Каждого Строка Из Товары Цикл
Если
Строка.Товар.КодТипа
=
Перечисления.ТипТовара.Продукция Тогда
Для
Каждого
СтрокаМатериал
Из
Строка.Товар.Спецификация Цикл
Запись=Набор.ДобавитьРасход();
Запись.Период = Объект.Дата;
Запись.Товар = СтрокаМатериал.Материал;
Запись.Количество
=
СтрокаМатериал.Количество;
КонецЦикла;
Иначе
Запись=Набор.ДобавитьРасход();
Запись.Период = Объект.Дата;
Запись.Товар = Строка.Товар;
Запись.Количество = Строка.Количество;
КонецЕсли;
КонецЦикла;
Набор.Записать();

111
КонецЕсли;
Выборка данных для отчета по товарным запасам
ВЫБРАТЬ
Закупка.Товары.(
Товар.Наименование,
Товар.КодМарки.Наименование
),
Закупка.СуммаДокумента КАК СуммаЗакупки,
Реализация.СуммаДокумента КАК СуммаПродаж,
Закупка.СуммаДокумента / Реализация.СуммаДокумента КАК РТЗ,
ВЫБОР МЕСЯЦ(Закупка.Дата)
КОГДА 1
ТОГДА "Январь"
КОГДА 2
ТОГДА "Февраль"
КОГДА 3
ТОГДА "Март"
КОГДА 4
ТОГДА "Апрель"
КОГДА 5
ТОГДА "Май"
КОГДА 6
ТОГДА "Июнь"
КОГДА 7

112
ТОГДА "Июль"
КОГДА 8
ТОГДА "Август"
КОГДА 9
ТОГДА "Сентябрь"
КОГДА 10
ТОГДА "Октябрь"
КОГДА 11
ТОГДА "Ноябрь"
КОГДА 12
ТОГДА "Декабрь"
КОНЕЦ КАК Месяц_,
ГОД(Закупка.Дата) КАК Год_
ИЗ
Документ.Реализация КАК Реализация
ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.Закупка КАК
Закупка
ПО
Реализация.Товары.Товар.Код
=
Закупка.Товары.Товар.Код

113
Выпускная квалификационная работа выполнена мной самостоятельно.
Использованные в работе материалы и концепции из опубликованной научной литературы и других источников имеют ссылки на них.
Отпечатано в одном экземпляре.
Библиография _31_ наименование.
Один экземпляр сдан на кафедру.
«____» __________ 2017 г. дата
____________________ А.В. Логинов подпись