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