Нет подписей в УПД УНФ 1.6
Клиент обратился с жалобой, что при печати из УПД нет подписей ответственных лиц.
Вообще-то в счет-фактуре есть реквизиты печати, но они не заполнены:
Подозреваю, если их начать заполнять, то по статистике они начнут заполняться.
Посмотрел, как называются поля в подвале накладной:
В итоге я решил сделать расширение, которое будет заполнять должность и ФИО руководителя и бухгалтера в модуле менеджера обработки ПечатьСчетФактура:
&После("УчестьОсобенностиДокументаСчетФактура") Процедура ТР_УчестьОсобенностиДокументаСчетФактура(ТаблицаДанных, СчетФактура, ДополнительныеСвойства) Для Каждого СтрокаТаблицы ИЗ ТаблицаДанных Цикл Попытка СтрокаТаблицы.ДолжностьРуководителя = СчетФактура.Организация.ПодписьРуководителя.Должность; //Кладовщик = руководитель СтрокаТаблицы.ДолжностьКладовщика = СчетФактура.Организация.ПодписьРуководителя.Должность; ФЛ = СчетФактура.Организация.ПодписьГлавногоБухгалтера.ФизическоеЛицо; Если ЗначениеЗаполнено(ФЛ) Тогда //Эта функция сразу возвращает инициалы! Увы! ФамилияИнициалы = РегистрыСведений.ФИОФизЛиц.ФИОФизЛица(СчетФактура.Дата, ФЛ); //ФИО = РегламентированнаяОтчетность.РазложитьФИО(ФЛ); ФизическиеЛицаКлиентСервер.ФамилияИнициалы(ФЛ); СтрокаТаблицы.РасшифровкаПодписиГлавногоБухгалтера = ФамилияИнициалы; КонецЕсли; ФЛ = СчетФактура.Организация.ПодписьРуководителя.ФизическоеЛицо; Если ЗначениеЗаполнено(ФЛ) Тогда ФамилияИнициалы = РегистрыСведений.ФИОФизЛиц.ФИОФизЛица(СчетФактура.Дата, ФЛ); СтрокаТаблицы.РасшифровкаПодписиРуководителя = ФамилияИнициалы; СтрокаТаблицы.РасшифровкаПодписиКладовщика = ФамилияИнициалы; КонецЕсли; Исключение КонецПопытки; КонецЦикла; КонецПроцедуры
Много времени потратил на поиск типовых функций по получению ФИО физлиц и инициалов.
Среда: 1.6.26.172 Объем: 1 час.
Свежие комментарии