97
Приложение В
Листинг прогр
аммы на язы
ке 1С:Предпр
иятие 8.3
ВЫБРАТЬ
|Приходная
Накладная.Водитель,
|Приходная
Накладная.Дата,
|Приходная
Накладная.ДатаПоступления,
|Приходная
Накладная.Кладовщик,
|Приходная
Накладная.Менеджер,
|Приходная
Накладная.Номер,
|Приходная
Накладная.Поставщик,
|Приходная
Накладная.ЯчейкаМесто,
|Приходная
Накладная.ИнформацияОТоваре.(
|НомерС
троки,
|Артикул,
|Наимен
ование,
|ЕдиницаИзмерения,
|Колич
ество,
|Стоимость,
|Сум
ма|
)
|ИЗ
|Доку
мент.ПриходнаяНакладная КА
К ПриходнаяН
акладная
|ГДЕ
|Приходная
Накладная.СсылкаВ (&Ссы
лка)";
Запрос.Парам
етры.Вставить("Ссы
лка", Ссылка);
Выбо
рка = Запрос.Выпол
нить().Выбрать();
ОбластьЗ
аголовок = Макет.Получить
Область("Заголовок");
Шап
ка = Макет.Получить
Область("Шапка");
98
ОбластьИнформац
ияОТовареШапка =
Макет.Получить
Область("ИнформацияОТовареШапка");
ОбластьИнфор
мацияОТоваре =
Макет.Получить
Область("ИнформацияОТоваре");
Таб
Док.Очистить();
ВставлятьРазде
лительСтраниц = Ложь;
По
ка Выборка.Следу
ющий() Цикл
Ес
ли ВставлятьРазделительСтраниц Тог
да
ТабДок.ВывестиГоризонтальны
йРазделительСтраниц();
КонецЕсли;
Таб
Док.Вывести(ОбластьЗ
аголовок);
Шапка.Парам
етры.Заполнить(Выбо
рка);
ТабДок.Выве
сти(Шапка,Выбо
рка.Уровень());
Таб
Док.Вывести(ОбластьИнформац
ияОТовареШапка);
ВыборкаИнформацияОТоваре = Выбо
рка.ИнформацияОТоваре.Выбр
ать();
Пока ВыборкаИнфор
мацияОТоваре.Следующий() Ци
кл
ОбластьИнформацияОТоваре.Парам
етры.Заполнить(ВыборкаИнфор
мацияОТова
ре);
ТабДок.Выве
сти(ОбластьИнформацияОТоваре,
ВыборкаИнфор
мацияОТоваре.Уровень());
Конец
Цикла;
ВставлятьРазделительСтраниц = Ист
ина;
КонецЦикла;
//}}КонецПр
оцедуры
Процедура ОбработкаЗ
аполнения(ДанныеЗаполнения,
Стандартна
яОбработка)
99
//{{__КОНСТРУКТОР_ВВ
ОД_НА_ОСНОВ
АНИИ
// Данный фраг
мент построен констру
ктором.
// При повто
рном использовании констр
уктора, внесенные вруч
ную изменения
буд
ут утеряны!!!
Ес
ли ТипЗнч(ДанныеЗа
полнения) =
Тип("Докумен
тСсылка.ПриходнаяНакладная") Тог
да
// Заполнение шап
ки
Водитель = ДанныеЗа
полнения.Водитель;
Кладо
вщик = ДанныеЗаполнения.Кладо
вщик;
Менеджер = ДанныеЗа
полнения.Менеджер;
Поста
вщик = ДанныеЗаполнения.Поста
вщик;
ЯчейкаМесто = ДанныеЗа
полнения.ЯчейкаМесто;
Дл
я Каждого ТекСтрокаИнфо
рмацияОТоваре Из
ДанныеЗа
полнения.ИнформацияОТоваре Ци
кл
НоваяСтрока = Информаци
яОТоваре.Добавить();
НоваяС
трока.Артикул = ТекСтрокаИнфо
рмацияОТоваре.Артикул;
НоваяС
трока.ЕдиницаИзмерения =
ТекСтрокаИнфо
рмацияОТоваре.ЕдиницаИзмерения;
ВЫБР
АТЬ
ПриходнаяНакладная.Ячейка
Место,
ПриходнаяНакладная.Кладо
вщик,
ПриходнаяНакладная.Информаци
яОТоваре.(
Наименование,
ЕдиницаИ
змерения,
Количество
)
И
З
Документ.Приходная
Накладная КАК Приходная
Накладная
ВЫБРАТЬ
Расходная
Накладная.ЯчейкаМесто,
Расходная
Накладная.ИнформацияОТоваре.(
Наимен
ование,
100
ЕдиницаИзмерения,
Колич
ество
)
ИЗ
Доку
мент.РасходнаяНакладная КА
К РасходнаяНакладная"
ВЫБР
АТЬ
|ПриходнаяНакладная.Води
тель,
|ПриходнаяНакладная.Да
та,
|ПриходнаяНакладная.ДатаПост
упления,
|ПриходнаяНакладная.Кладо
вщик,
|ПриходнаяНакладная.Мене
джер,
|ПриходнаяНакладная.Ном
ер,
|ПриходнаяНакладная.Поста
вщик,
|ПриходнаяНакладная.Ячейка
Место,
|ПриходнаяНакладная.Информаци
яОТоваре.(
|НомерСтроки,
|Арти
кул,
|Наименование,
|ЕдиницаИ
змерения,
|Количество,
|Стоим
ость,
|Сумма
|
)
|И
З
|Документ.Приход
наяНакладнаяНакл
адная|
ГДЕ
|Приходная
Накладная.Ссылка В (&Ссылка)";
Зап
рос.Параметры.Вста
вить("Ссылка", Ссы
лка);
Выборка = Зап
рос.Выполнить().Выбр
ать();
ОбластьЗаголовок = Мак
ет.ПолучитьОбласть("Загол
овок");
101
Шапка = Мак
ет.ПолучитьОбласть("Шап
ка");
ОбластьИнформацияОТовареШапка =
Мак
ет.ПолучитьОбласть("Информаци
яОТоваре
Шапка");ОбластьИнфор
мацияОТоваре =
Макет.Получить
Область("ИнформацияОТоваре");
Таб
Док.Очистить();
ВставлятьРазде
лительСтраниц = Ложь;
По
ка Выборка.Следу
ющий() Цикл
Ес
ли ВставлятьРазделительСтраниц Тог
да
ТабДок.ВывестиГоризонтальны
йРазделительСтраниц();
КонецЕсли;
Таб
Док.Вывести(ОбластьЗ
аголовок);
Шапка.Парам
етры.Заполнить(Выбо
рка);
ТабДок.Выве
сти(Шапка, Выбо
рка.Уровень());
Таб
Док.Вывести(ОбластьИнформац
ияОТовареШапка);
ВыборкаИнформацияОТоваре = Выбо
рка.ИнформацияОТоваре.Выбр
ать();
Пока ВыборкаИнфор
мацияОТоваре.Следующий() Ци
кл
ОбластьИнформацияОТоваре.Парам
етры.Заполнить(ВыборкаИнфор
мацияОТова
ре);
ТабДок.Выве
сти(ОбластьИнформацияОТоваре,
ВыборкаИнфор
мацияОТоваре.Уровень());
Конец
Цикла;
ВставлятьРазделительСтраниц = Ист
ина;
КонецЦикла;
//}}
КонецПр
оцедуры
Процедура ОбработкаЗ
аполнения(ДанныеЗаполнения, Стандартна
яОбработка)/
/{{__КОНСТРУКТОР_ВВ
ОД_НА_ОСНОВ
АНИИ
// Данный фраг
мент построен констру
ктором
102
// При повто
рном использовании констр
уктора, внесенные вруч
ную изменения
буд
ут утеряны!!!
Ес
ли ТипЗнч(ДанныеЗа
полнения) =
Тип("Докумен
тСсылка.ПриходнаяНакладная") Тог
да
// Заполнение шап
ки
Водитель = ДанныеЗа
полнения.Водитель;
Кладо
вщик = ДанныеЗаполнения.Кладо
вщик;
Менеджер = ДанныеЗа
полнения.Менеджер;
Поста
вщик = ДанныеЗаполнения.Поста
вщик;
ЯчейкаМесто = ДанныеЗа
полнения.ЯчейкаМесто;
Дл
я Каждого ТекСтрокаИнфо
рмацияОТоваре Из
ДанныеЗа
полнения.ИнформацияОТоваре Ци
кл
НоваяСтрока = Информаци
яОТоваре.Добавить();
НоваяС
трока.Артикул = ТекСтрокаИнфо
рмацияОТоваре.Артикул;
НоваяС
трока.ЕдиницаИзмерения =
ТекСтрокаИнфо
рмацияОТоваре.ЕдиницаИзмерения;
ВЫБР
АТЬ
ПриходнаяНакладная.Ячейка
Место,
ПриходнаяНакладная.Кладо
вщик,
ПриходнаяНакладная.Информаци
яОТоваре.(
Наименование,
ЕдиницаИ
змерения,
Количество
)
И
З
Докум
ент.ПриходнаяНакладная КА
К ПриходнаяНакладная
ВЫБР
АТЬ
РасходнаяНакладная.
Ячейка
Место,
РасходнаяНакладная.Информаци
яОТоваре.(Наименование,ЕдиницаИ
змерения,К
оличество
103
)
И
З
Документ.Расходная
Накладная КАК Расходна
яНакладная