Показано с 1 по 1 из 1
Комбинированный просмотр
-
13.04.2022, 08:47 #1
- Регистрация
- 14.08.2019
- Сообщений
- 30
- Сказал(а) спасибо
- 3
- Поблагодарили 0 раз(а) в 0 сообщениях
Внешня печатная форма - не могу разобраться
Добрый день друзья.
Подскажите пожалуйста, делаю внешнюю печатную форму под ЗУП 3.1. для документа Кадровый Перевод писком
Вот код целиков
Код:Функция ПечатьКадровыйПеревод(СсылкаНаОбъект) УстановитьПривилегированныйРежим(Истина); ТабДокумент = Новый ТабличныйДокумент; Макет = ЭтотОбъект.ПолучитьМакет("Макет"); ТабДокумент.КлючПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_КадровыйПереводписком"; ОбластьМакетаДоговор = Макет.ПолучитьОбласть("Договор"); ОбластьМакетаДоговор.Параметры.НомерДок = СсылкаНаОбъект.Номер; ОбластьМакетаДоговор.Параметры.ДатаДок = Формат(СсылкаНаОбъект.Дата,"ДЛФ=ДД"); Для Каждого СотрудникСтрока из СсылкаНаОбъект.Сотрудники Цикл ОбластьМакетаДоговор.Параметры.ФИОРаботника = СотрудникСтрока.Сотрудник; ОбластьМакетаДоговор.Параметры.ГодРождения = Год(СотрудникСтрока.Сотрудник.ФизическоеЛицо.ДатаРождения); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудниковСрезПоследних.Сотрудник КАК Сотрудник, | ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудниковСрезПоследних.Показатель КАК Показатель, | ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудниковСрезПоследних.Значение КАК Значение, | ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудниковСрезПоследних.Показатель.Идентификатор КАК ПоказательИдентификатор, | ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудниковСрезПоследних.НомерСтроки КАК НомерСтроки, | ОсновныеДанныеКонтрактаДоговораСотрудникаСрезПоследних.ДатаДоговораКонтракта КАК ДатаДоговораКонтракта, | ОсновныеДанныеКонтрактаДоговораСотрудникаСрезПоследних.НомерДоговораКонтракта КАК НомерДоговораКонтракта |ИЗ | РегистрСведений.ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудников.СрезПоследних(&Дата, Сотрудник = &Сотрудник) КАК ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудниковСрезПоследних | ПОЛНОЕ СОЕДИНЕНИЕ РегистрСведений.ОсновныеДанныеКонтрактаДоговораСотрудника.СрезПоследних(&Дата, Сотрудник = &Сотрудник) КАК ОсновныеДанныеКонтрактаДоговораСотрудникаСрезПоследних | ПО ЗначенияПериодическихПоказателейРасчетаЗарплатыСотрудниковСрезПоследних.Сотрудник = ОсновныеДанныеКонтрактаДоговораСотрудникаСрезПоследних.Сотрудник"; Запрос.УстановитьПараметр("Сотрудник", СотрудникСтрока.Сотрудник); Запрос.УстановитьПараметр("Дата", КонецДня(СотрудникСтрока.ДатаНачала)); РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл Если ВыборкаДетальныеЗаписи.ПоказательИдентификатор = "ПроцентНадбавки" Тогда Надбавка = ВыборкаДетальныеЗаписи.Значение; ИначеЕсли ВыборкаДетальныеЗаписи.ПоказательИдентификатор = "ПроцентНадбавкиЗаВредность" Тогда ВУТ = ВыборкаДетальныеЗаписи.Значение; Иначе ТарифнаяСтавка = ВыборкаДетальныеЗаписи.Значение; КонецЕсли; КонецЦикла; ФорматнаяСтрока = "Л=ru_RU; ДП = Истина"; ПараметрыПредметаИсчисления = "тенге,тенге,тенге, ,тиын,тиын,тиын, , 2"; ОбластьМакетаДоговор.Параметры.Тариф = ТарифнаяСтавка; ОбластьМакетаДоговор.Параметры.ТарифПрописью = ЧислоПрописью(Число(ТарифнаяСтавка),ФорматнаяСтрока,ПараметрыПредметаИсчисления); //ТУТ вот ошибка ОбластьМакетаДоговор.Параметры.ДатаТД = Формат(ВыборкаДетальныеЗаписи.ДатаДоговораКонтракта,"ДЛФ=ДД"); ОбластьМакетаДоговор.Параметры.ТДНомер = ВыборкаДетальныеЗаписи.НомерДоговораКонтракта; ПаспортныеДанные = КадровыйУчет.ДокументыФизическихЛиц(СотрудникСтрока.Сотрудник.ФизическоеЛицо, Ложь, Справочники.ВидыДокументовФизическихЛиц.УдостоверениеЛичностиРК, СсылкаНаОбъект.Дата); МассивПД = ПаспортныеДанные.ВыгрузитьКолонку("Представление"); Если МассивПД.Количество()>0 Тогда ОбластьМакетаДоговор.Параметры.УдостоверениеЛичности = МассивПД[0]; КонецЕсли; Телефон = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(СотрудникСтрока.Сотрудник.ФизическоеЛицо, Справочники.ВидыКонтактнойИнформации.ТелефонМобильныйФизическиеЛица,СсылкаНаОбъект.Дата,ИСТИНА); ДТелефон = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(СотрудникСтрока.Сотрудник.ФизическоеЛицо, Справочники.ВидыКонтактнойИнформации.ТелефонДомашнийФизическиеЛица,СсылкаНаОбъект.Дата,ИСТИНА); АдресПроживания = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(СотрудникСтрока.Сотрудник.ФизическоеЛицо, Справочники.ВидыКонтактнойИнформации.АдресМестаПроживанияФизическиеЛица,СсылкаНаОбъект.Дата,ИСТИНА); АдресПрописки = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(СотрудникСтрока.Сотрудник.ФизическоеЛицо, Справочники.ВидыКонтактнойИнформации.АдресПоПропискеФизическиеЛица,СсылкаНаОбъект.Дата,ИСТИНА); ОбластьМакетаДоговор.Параметры.ИИН = СотрудникСтрока.Сотрудник.ФизическоеЛицо.ИНН; ОбластьМакетаДоговор.Параметры.Телефон = Телефон; ОбластьМакетаДоговор.Параметры.АдресПроживания = АдресПроживания; ОбластьМакетаДоговор.Параметры.АдресПрописки = АдресПрописки; ОбластьМакетаДоговор.Параметры.ДТелефон = ДТелефон; ТабДокумент.Вывести(ОбластьМакетаДоговор); КонецЦикла; ТабДокумент.Защита = Ложь; ТабДокумент.ОтображатьСетку = Ложь; ТабДокумент.РазмерСтраницы = "A4"; ТабДокумент.АвтоМасштаб = Истина; ТабДокумент.ПолеСверху = 5; ТабДокумент.ПолеСлева = 5; ТабДокумент.ПолеСнизу = 5; ТабДокумент.ПолеСправа = 5; ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет; Возврат ТабДокумент; КонецФункции
Все заполняется кроме 2х параметров
а именно:
Код:ОбластьМакетаДоговор.Параметры.ДатаТД = Формат(ВыборкаДетальныеЗаписи.ДатаДоговораКонтракта,"ДЛФ=ДД"); ОбластьМакетаДоговор.Параметры.ТДНомер = ВыборкаДетальныеЗаписи.НомерДоговораКонтракта;
Подскажите пожалуйста что не так делаю
Спасибо
Похожие темы
-
Печатная форма УНФ
от krolik123 в разделе Конфигурирование, программирование 1С - ПредприятиеОтветов: 2Последнее сообщение: 10.09.2018, 17:44 -
Печатная форма АВР
от WhiteGhost85 в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 1Последнее сообщение: 27.08.2018, 18:02 -
Help me, help me. Печатная форма
от лёха_милый в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 1Последнее сообщение: 27.04.2016, 15:09 -
УПП.Печатная форма
от Дина777333 в разделе Конфигурирование, программирование 1С - ПредприятиеОтветов: 7Последнее сообщение: 20.03.2014, 12:05
Социальные закладки