Добрый день! нужно поменять местами инициалы и фамилию во ВПФ Т1 в подписи ответственного (Чтобы инициалы стояли после фамилии), что-то не получается, подскажите, пожалуйста, как правильно)
Если что Конф ЗКГУ 3.1
Я там делала жалкие попытки выполнить задачу, но получилось плохо)
Если что Конф ЗКГУ 3.1
Я там делала жалкие попытки выполнить задачу, но получилось плохо)
ТаблицаОтветственныхЛиц = Новый ТаблицаЗначений;
ТаблицаОтветственныхЛиц.Колонки.Добавить("Организация", Новый ОписаниеТипов("СправочникСсылка.Организации"));
ТаблицаОтветственныхЛиц.Колонки.Добавить("РуководительРасшифровкаПодписи", Новый ОписаниеТипов("Строка"));
Сведения = Новый СписокЗначений;
// Получаем данные из глобальной общей функции.
Сведения.Добавить("", "ФИОРук");
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Если ЗначениеЗаполнено(Выборка.Организация) Тогда
НоваяСтрокаОтветственныхЛиц = ТаблицаОтветственныхЛиц.Добавить();
НоваяСтрокаОтветственныхЛиц.Организация = Выборка.Организация;
ОргСведения = РегламентированнаяОтчетностьВызовСервера.ПолучитьСведенияОбОрганизации(Выборка.Организация, Выборка.Период, Сведения);
ОргСведения.Свойство("ФИОРук", НоваяСтрокаОтветственныхЛиц.РуководительРасшифровкаПодписи);
//ОргСведения.Свойство("ФИОРук", НоваяСтрокаОтветственныхЛиц.РуководительРасшифровкаПодписи);
//ОргСведения.Свойство("ФИОРук", (НоваяСтрокаОтветственныхЛиц.РуководительРасшифровкаПодписи.Фамилия + Лев(НоваяСтрокаОтветственныхЛиц.РуководительРасшифровкаПодписи.Имя, 1) + ". " + лев(НоваяСтрокаОтветственныхЛиц.РуководительРасшифровкаПодписи.Отчество, 1) + ". "));
КонецЕсли;
КонецЦикла;
Запрос.УстановитьПараметр("ТаблицаОтветственныхЛиц", ТаблицаОтветственныхЛиц);
Запрос.Текст =
"ВЫБРАТЬ
| НачисленияСотрудников.Период,
| НачисленияСотрудников.Сотрудник,
| НачисленияСотрудников.ТарифнаяСтавка,
| НачисленияСотрудников.Надбавка
|ПОМЕСТИТЬ ВТНачисления
|ИЗ
| &НачисленияСотрудников КАК НачисленияСотрудников
|;
|
|//////////////////////////////////////////////////////////// ПоказатьПо теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
ТаблицаСКадровымиДанными = КадровыйУчет.КадровыеДанныеФизическихЛиц(Истина, ФизическоеЛицоСсылка, "ФамилияИО", ТекущаяДатаСеанса());
Если ТаблицаСКадровымиДанными.Количество() > 0 Тогда
ФамилияИО = ТаблицаСКадровымиДанными[0].ФамилияИО;
Иначе
ФамилияИО = ФизическоеЛицоСсылка.ФИО;
КонецЕсли;
или попробовать дополнить
Функция КадровыеДанныеДляПечатиКадровыхПриказов() Экспорт
Возврат "ФИОПолные,Пол,ТабельныйНомер,Организация,Подразделение,Должность,ДатаПриема,ДатаУвольнения" + ",ТрудовойДоговорНомер,ТрудовойДоговорДата,РазрядКатегория" + ",ФамилияИО, ИОФамилия";
КонецФункции
(9)
(10)теперь совсем параметр не выводится)
ТаблицаСКадровымиДанными = КадровыйУчет.КадровыеДанныеФизическихЛиц(Истина, ФизическоеЛицоСсылка, "ФамилияИО", ТекущаяДатаСеанса());
Если ТаблицаСКадровымиДанными.Количество() > 0 Тогда
ФамилияИО = ТаблицаСКадровымиДанными[0].ФамилияИО;
Иначе
ФамилияИО = ФизическоеЛицоСсылка.ФИО;
КонецЕсли;
Если ТаблицаСКадровымиДанными.Количество() > 0 Тогда
ФамилияИО = ТаблицаСКадровымиДанными[0].ФамилияИО;
Иначе
ФамилияИО = ФизическоеЛицоСсылка.ФИО;
КонецЕсли;
(10)теперь совсем параметр не выводится)
(11) так а где в параметры выводите ФамилияИО ?
где то в Процедура ЗаполнитьПараметрыКадровогоПриказа надо вставить
где то в Процедура ЗаполнитьПараметрыКадровогоПриказа надо вставить
ТаблицаСКадровымиДанными = КадровыйУчет.КадровыеДанныеФизическихЛиц(Истина, ФизическоеЛицоСсылка, "ФамилияИО", ТекущаяДатаСеанса());
Если ТаблицаСКадровымиДанными.Количество() > 0 Тогда
ФамилияИО = ТаблицаСКадровымиДанными[0].ФамилияИО;
Иначе
ФамилияИО = ФизическоеЛицоСсылка.ФИО;
КонецЕсли;
Параметры.РуководительРасшифровкаПодписи=ФамилияИО ;
(12)
ТаблицаСКадровымиДанными = КадровыйУчет.КадровыеДанныеФизическихЛиц(Истина, , "ФамилияИО", ТекущаяДатаСеанса());
Если ТаблицаСКадровымиДанными.Количество() > 0 Тогда
ФамилияИО = ТаблицаСКадровымиДанными[0].ФамилияИО;
Иначе
КонецЕсли;
СтруктураПараметровКадровогоПриказа.Вставить("РуководительРасшифровкаПодписи", ФамилияИО );
Показать
Эххх, 1Сники... совсем разучились со строками работать.
поз = СтрНайти(ИОФамилия, ".", НаправлениеПоиска.СКонца);
Если поз > 0 Тогда
ФамилияИО = СокрЛП(Сред(ИОФамилия,поз+1)) + " " + Лев(ИОФамилия,поз);
Иначе
ФамилияИО = ИОФамилия;
КонецЕсли;
(15)
{ВнешняяОбработка.ПриказТ1.МодульОбъекта(850,81)}: Неопознанный оператор
поз = СтрНайти("РуководительРасшифровкаПодписи", ".", НаправлениеПоиска.СКонца)<<?>>); (Проверка: Сервер)
поз = СтрНайти(ИОФамилия, ".", НаправлениеПоиска.СКонца));
Если поз > 0 Тогда
ФамилияИО = СокрЛП(Сред(ИОФамилия,поз+1)) + " " + Лев(ИОФамилия,поз);
Иначе
ФамилияИО = ИОФамилия;
КонецЕсли;
Если поз > 0 Тогда
ФамилияИО = СокрЛП(Сред(ИОФамилия,поз+1)) + " " + Лев(ИОФамилия,поз);
Иначе
ФамилияИО = ИОФамилия;
КонецЕсли;
{ВнешняяОбработка.ПриказТ1.МодульОбъекта(850,81)}: Неопознанный оператор
поз = СтрНайти("РуководительРасшифровкаПодписи", ".", НаправлениеПоиска.СКонца)<<?>>); (Проверка: Сервер)
(16)
Тем более - в вашу безразмерную простыню, которую вы нам тут вывалили в (1).
Впрочем, мои подсказки и нравоучения - впустую, это я уже понял. Ну что ж, удачи.
Неопознанный оператор
Так я вам подсказал направление, с помощью которого можно решить такую задачу, а не готовый код для копипаста.
Тем более - в вашу безразмерную простыню, которую вы нам тут вывалили в (1).
Впрочем, мои подсказки и нравоучения - впустую, это я уже понял. Ну что ж, удачи.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот