Добрый день. При попытки вызвать внешнюю печатную форму приказа Т-8. Возникает ошибка {ОбщийМодуль.УправлениеПечатью.Модуль(1217)}: Поле объекта не обнаружено (КоличествоЭкземпляров)
ПечатнаяФорма.ТабличныйДокумент.КоличествоЭкземпляров = ПечатнаяФ
Код:
| Код |
|---|
Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
КоллекцияПечатныхФорм,
"Т-8 (внешняя)",
"Т-8 (внешняя)",
ПолучитьДанныеДляПечатиКадровогоПриказаТ8(СсылкаНаОбъект, ОбъектыПечати, МассивОбъектов));
КонецПроцедуры
Функция ПолучитьТабличныйДокументПриказаТ8(МассивОбъектов, ОбъектыПечати)
ДокументРезультат = Новый ТабличныйДокумент;
ДокументРезультат.ЭкземпляровНаСтранице = 1;
НомерСтрокиНачало = ДокументРезультат.ВысотаТаблицы + 1;
ДокументРезультат.КлючПараметровПечати = "ПараметрыПечати_ПриказОбУвольнении";
ДокументРезультат.АвтоМасштаб = Истина;
//МассивДанныхЗаполнения = ПолучитьДанныеДляПечатиКадровогоПриказаТ8(СсылкаНаОбъект, ОбъектыПечати, МассивОбъектов);
//ВывестиДанныеКадровогоПриказаВТабличныйДокумент(Макет, ДокументРезультат, МассивДанныхЗаполнения, ОбъектыПечати);
Возврат ДокументРезультат;
КонецФункции
Процедура ВывестиДанныеКадровогоПриказаВТабличныйДокумент(Макет, ТабличныйДокумент, МассивДанныхЗаполнения, ОбъектыПечати) Экспорт
Если Макет <> Неопределено Тогда
ПервыйПриказ = Истина;
Для каждого ПараметрыМакета Из МассивДанныхЗаполнения Цикл
Если Не ПервыйПриказ Тогда
ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
Иначе
ПервыйПриказ = Ложь;
КонецЕсли;
НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;
ТабличныйДокумент.Параметры.Заполнить(ПараметрыМакета);
ТабличныйДокумент.Вывести(Макет);
УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, ОбъектыПечати, ПараметрыМакета.Ссылка);
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Функция ПолучитьДанныеДляПечатиКадровогоПриказаТ8(СсылкаНаОбъект, ОбъектыПечати, МассивОбъектов)
//ДокументРезультат = Новый ТабличныйДокумент;
//Макет = ПолучитьМакет ("ПФ_MXL_Т8");
Выборка = КадровыйУчет.СформироватьЗапросДляТ8(МассивОбъектов).Выбрать();
МассивПараметров = Новый Массив;
Пока Выборка.Следующий() Цикл
Параметры = ПараметрыПриказаТ8();
КадровыйУчет.ЗаполнитьПараметрыКадровогоПриказа(Параметры, Выборка);
РезультатСклонения = "";
Если ФизическиеЛицаЗарплатаКадры.Просклонять(Параметры.Работник, 4, РезультатСклонения, Параметры.Пол) Тогда
Параметры.Работник = РезультатСклонения
КонецЕсли;
ПредставлениеДатыУвольнения = Формат(Выборка.ДатаУвольнения, "ДЛФ=DD");
Параметры.ДатаУвольненияЧисло = ?(ЗначениеЗаполнено(Выборка.ДатаУвольнения),
СокрЛП(Лев(ПредставлениеДатыУвольнения,2)),
" ");
Параметры.ДатаУвольненияМесяцГод = ?(ЗначениеЗаполнено(Выборка.ДатаУвольнения),
СокрЛП(Прав(ПредставлениеДатыУвольнения, СтрДлина(ПредставлениеДатыУвольнения)-2)),
" г.");
Если НЕ ПустаяСтрока(Выборка.ТекстОснования) Тогда
Параметры.СтатьяТКРФ = Выборка.ТекстОснования + ", " + КадровыйУчет.ПредставлениеСтатьиУвольненияДляТ8(Выборка.СтатьяТКРФ);
КонецЕсли;
КонецЦикла;
Возврат МассивПараметров;
// Возврат ДокументРезультат;
КонецФункции
Функция ПараметрыПриказаТ8()
Параметры = КадровыйУчет.ПараметрыКадровогоПриказа();
Параметры.Вставить("ДатаУвольненияЧисло");
Параметры.Вставить("ДатаУвольненияМесяцГод");
Параметры.Вставить("СтатьяТКРФ", "");
Параметры.Вставить("ОснованиеУвольнения", "");
Возврат Параметры;
КонецФункции
|
