Файл: Разработка конфигурации “Управление товарными потоками” в среде 1С:Предприятие 8.3.pdf

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

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

"ВЫБРАТЬ

| Закупка.Дата,

| Закупка.Номер,

| Закупка.Основание,

| Закупка.Поставщик,

| Закупка.СуммаДокумента,

| Закупка.Товары.(

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

| Товар,

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

| ЦенаЗакупки,

| Сумма

| )

|ИЗ

| Документ.Закупка КАК Закупка

|ГДЕ

| Закупка.Ссылка В (&Ссылка)";

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

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

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

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

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

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

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

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

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

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

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

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

КонецЕсли;

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

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

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

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

ВыборкаТовары = Выборка.Товары.Выбрать();

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

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

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

КонецЦикла;

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

ТабДок.Вывести(Подвал);

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

КонецЦикла;

//}}

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

&НаСервере

Функция ПолучитьОстатокПоЗаказу(Заказ) Экспорт

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

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

"ВЫБРАТЬ

| ЗаказыОстатки.Товар КАК Товар ,

| ЗаказыОстатки.КоличествоОстаток КАК Остаток

|ИЗ

| РегистрНакопления.Заказы.Остатки(&Момент, ДокументЗаказа = &ДокументЗаказа) КАК ЗаказыОстатки";

Граница= Новый Граница(КонецДня(ТекущаяДата()),ВидГраницы.Включая);

Запрос.УстановитьПараметр("Момент",Граница);

Запрос.УстановитьПараметр("ДокументЗаказа",Заказ);

Результат = Запрос.Выполнить().Выгрузить();

Возврат Результат;

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

&НаСервере

Процедура ЗаписатьНаборВБазу(Объект,Режим) Экспорт

Если Режим = "Продажа" Тогда

Набор = РегистрыНакопления.Продажа.СоздатьНаборЗаписей();

Набор.Отбор.Регистратор.Значение = Объект.Ссылка;

Товары = Объект.Товары;

Клиент = Объект.Клиент;

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

Запись=Набор.Добавить();

Запись.Период = Объект.Дата;

Запись.Товар = Строка.Товар;

Запись.Клиент =Клиент;