НУЖНА Помощь с кодом печатной формы

[Денис Медведев]

Не могу разобраться как правильно прописать <ПодразделениеМОЛ> в заголовке, что б автоматом выходило значение.
Подскажите что и куда добавить, а то голова уже кругом ))

Скриншот
https://yadi.sk/i/MPaONHbmtgPaFA

код

Код Выделить Развернуть


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

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

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

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

ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;

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

ТабДок.Вывести(ОбластьУстройстваШапка);
ВыборкаУстройства = Выборка.Устройства.Выбрать();
Пока ВыборкаУстройства.Следующий() Цикл
ОбластьУстройства.Параметры.Заполнить(ВыборкаУстройства);
ТабДок.Вывести(ОбластьУстройства, ВыборкаУстройства.Уровень());
КонецЦикла;

Подвал.Параметры.Заполнить(Выборка);
Подвал.Параметры.МОЛ = "" + Выборка.МОЛ.Фамилия + " " + Лев(Выборка.МОЛ.Имя, 1) + ". " + Лев(Выборка.МОЛ.Отчество, 1) + ".";
Подвал.Параметры.ПользовательТС = "" + Выборка.ПользовательТС.Фамилия + " " + Лев(Выборка.ПользовательТС.Имя, 1) + ". " + Лев(Выборка.ПользовательТС.Отчество, 1) + ".";   
Подвал.Параметры.ПодразделениеМОЛ = "" + Выборка.МОЛ.Подразделение + " " + Выборка.МОЛ.Должность + Символы.ПС + " " +Выборка.ПользовательТС.Звание;
Подвал.Параметры.ПодразделениеПолТС = "" + Выборка.ПользовательТС.Подразделение + " " + Выборка.ПользовательТС.Должность + Символы.ПС + " " +Выборка.ПользовательТС.Звание;
ТабДок.Вывести(Подвал);


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

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


[wise]

(0) НАДО заполнить параметры у области "ОбластьЗаголовок"

[Денис Медведев]

это как будет выглядить ? можно код ?

[alexandr_ll]

это как будет выглядить ? можно код ?

Код Выделить Развернуть

       ОбластьЗаголовок.Параметры.ПодразделениеМОЛ = МОЛ.Подразделение;
   ТабДок.Вывести(ОбластьЗаголовок);
       


[Денис Медведев]

Сделал

Код Выделить Развернуть

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

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

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

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

ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);
ВыборкаУстройства = Выборка.ПодразделениеМОЛ.Выбрать ();
ОбластьЗаголовок.Параметры.ПодразделениеМОЛ = ПодразделениеМОЛ = "";

ТабДок.Вывести(ОбластьУстройстваШапка);
ВыборкаУстройства = Выборка.Устройства.Выбрать();
Пока ВыборкаУстройства.Следующий() Цикл
ОбластьУстройства.Параметры.Заполнить(ВыборкаУстройства);
ТабДок.Вывести(ОбластьУстройства, ВыборкаУстройства.Уровень());
КонецЦикла;

Подвал.Параметры.Заполнить(Выборка);
Подвал.Параметры.МОЛ = "" + Выборка.МОЛ.Фамилия + " " + Лев(Выборка.МОЛ.Имя, 1) + ". " + Лев(Выборка.МОЛ.Отчество, 1) + ".";
Подвал.Параметры.ПользовательТС = "" + Выборка.ПользовательТС.Фамилия + " " + Лев(Выборка.ПользовательТС.Имя, 1) + ". " + Лев(Выборка.ПользовательТС.Отчество, 1) + ".";   
Подвал.Параметры.ПодразделениеМОЛ = "" + Выборка.МОЛ.Должность + " " + Выборка.МОЛ.Подразделение;
Подвал.Параметры.ПодразделениеПолТС = "" + Выборка.ПользовательТС.Должность + " " + Выборка.ПользовательТС.Подразделение;
ТабДок.Вывести(Подвал);

ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры


в итоге выдает ошибку

Код Выделить Развернуть

{Документ.ЗаявкаНаЗаправкуКатриджей.МодульМенеджера(59,2)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>КонецЦикла; (Проверка: Сервер)

[alexandr_ll]

Сделал

Код Выделить Развернуть

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

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

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

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

ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);
ВыборкаУстройства = Выборка.ПодразделениеМОЛ.Выбрать ();
ОбластьЗаголовок.Параметры.ПодразделениеМОЛ = ПодразделениеМОЛ = "";

ТабДок.Вывести(ОбластьУстройстваШапка);
ВыборкаУстройства = Выборка.Устройства.Выбрать();
Пока ВыборкаУстройства.Следующий() Цикл
ОбластьУстройства.Параметры.Заполнить(ВыборкаУстройства);
ТабДок.Вывести(ОбластьУстройства, ВыборкаУстройства.Уровень());
КонецЦикла;

Подвал.Параметры.Заполнить(Выборка);
Подвал.Параметры.МОЛ = "" + Выборка.МОЛ.Фамилия + " " + Лев(Выборка.МОЛ.Имя, 1) + ". " + Лев(Выборка.МОЛ.Отчество, 1) + ".";
Подвал.Параметры.ПользовательТС = "" + Выборка.ПользовательТС.Фамилия + " " + Лев(Выборка.ПользовательТС.Имя, 1) + ". " + Лев(Выборка.ПользовательТС.Отчество, 1) + ".";   
Подвал.Параметры.ПодразделениеМОЛ = "" + Выборка.МОЛ.Должность + " " + Выборка.МОЛ.Подразделение;
Подвал.Параметры.ПодразделениеПолТС = "" + Выборка.ПользовательТС.Должность + " " + Выборка.ПользовательТС.Подразделение;
ТабДок.Вывести(Подвал);

ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры


в итоге выдает ошибку

Код Выделить Развернуть

{Документ.ЗаявкаНаЗаправкуКатриджей.МодульМенеджера(59,2)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>КонецЦикла; (Проверка: Сервер)

Что означает эта строка?:
 

Код Выделить Развернуть

ОбластьЗаголовок.Параметры.ПодразделениеМОЛ = ПодразделениеМОЛ = "";

[Денис Медведев]

ПодразделениеМОЛ к примеру отдел кадров итд

[alexandr_ll]

ПодразделениеМОЛ к примеру отдел кадров итд

Почему два раза "="?

[Денис Медведев]

в заявке должно быть в заголовке и в подвале

[alexandr_ll]

в заявке должно быть в заголовке и в подвале

В этой строке

Код Выделить Развернуть

ОбластьЗаголовок.Параметры.ПодразделениеМОЛ = ПодразделениеМОЛ = "";
Вот это понятно

Код Выделить Развернуть

ОбластьЗаголовок.Параметры.ПодразделениеМОЛ= ПодразделениеМОЛ;
А это что значит?

Код Выделить Развернуть

= "";