Добавление работника в печатную форму (ЗУП 8.2)
Здравствуйте, никак не могу разобраться, запутался уже, как мне добавить сотрудника в печатную форму (внешнюю), но чтобы сотрудник отражался не как Иванов Иван Иванович, а сокразенно, т.е Иванов И.И.? Подскажите пожалуйста.
Хотелось бы попробовать реализовать это через запрос, но если не получится буду рад любой помощи. Заранее всем спасибо.
Хотелось бы попробовать реализовать это через запрос, но если не получится буду рад любой помощи. Заранее всем спасибо.
По теме из базы знаний
- Заголовки и подписи в Расчетном листке без изменений конфигурации. Разработка в расширении для ЗУП 3.1
- Обмен между 1С:ЗУП 3 и Промсвязьбанком (ПСБ) 2019
- Печать уведомления о прибытии иностранного гражданина или лица без гражданства в место пребывания старого (2019г с правками из приказа МВД №180 от 24.03.2020) и нового (2021г согласно приложению №4 к приказу МВД №856 от 10.12.2020) образца для ЗУП 3.1
- Печать уведомления об убытии иностранного гражданина или лица без гражданства из места пребывания нового (2020 год) и старого (2019 год) образца для ЗУП 3.1
- Обновление для КА 1.1, ЗУП 2.5, БУХ 2.0: НДС, ЕФС-1, Расчет страховых взносов, Мобилизация, Статистика, Электронные трудовые книжки, 2-НДФЛ, Регламентированная отчетность, Кадровый учет, Прослеживаемость импортных товаров
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
ПолноеИмя=Строка(Реквизит1.Наименование);
ПолноеИмя=СокрЛП(ПолноеИмя);
ПозицияПервогоПробела = Найти(ПолноеИмя, " ");
Фамилия = Лев(ПолноеИмя, ПозицияПервогоПробела);
Фамилия=СокрЛП(Фамилия);
ИмяОтчество = Сред(ПолноеИмя, ПозицияПервогоПробела+1);
ИмяОтчество = СокрЛП(ИмяОтчество);
ПозицияТочки=Найти(ИмяОтчество,".");
ПозицияВторогоПробела = Найти(ИмяОтчество, " ");
Имя = Сред(ИмяОтчество,1, ПозицияВторогоПробела-1);
Имя=лев(Имя,1);
Отчество = Сред(ИмяОтчество, ПозицияВторогоПробела+1);
Отчество = лев(Отчество,1);
ПечТекстСтрокиВывод=строка(фамилия+" "+имя+". "+отчество+".");
Сообщить(ПечТекстСтрокиВывод);
ПолноеИмя=СокрЛП(ПолноеИмя);
ПозицияПервогоПробела = Найти(ПолноеИмя, " ");
Фамилия = Лев(ПолноеИмя, ПозицияПервогоПробела);
Фамилия=СокрЛП(Фамилия);
ИмяОтчество = Сред(ПолноеИмя, ПозицияПервогоПробела+1);
ИмяОтчество = СокрЛП(ИмяОтчество);
ПозицияТочки=Найти(ИмяОтчество,".");
ПозицияВторогоПробела = Найти(ИмяОтчество, " ");
Имя = Сред(ИмяОтчество,1, ПозицияВторогоПробела-1);
Имя=лев(Имя,1);
Отчество = Сред(ИмяОтчество, ПозицияВторогоПробела+1);
Отчество = лев(Отчество,1);
ПечТекстСтрокиВывод=строка(фамилия+" "+имя+". "+отчество+".");
Сообщить(ПечТекстСтрокиВывод);
Я не очень силен в программировании в 1С, поэтому многого еще не понимаю, простите, если буду задавать глупые вопросы.
Вот моя функция запроса:
Функция СформироватьЗапросДляПечати()
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.УстановитьПараметр("Адрес", Перечисления.ТипыКонтактнойИнформации.Адрес);
Запрос.УстановитьПараметр("АдресЮридический", Справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации);
Запрос.УстановитьПараметр("ФизЛицо", Сотрудник.ФизЛицо);
Запрос.УстановитьПараметр("Дата", Дата);
ТекстЗапроса =
"ВЫБРАТЬ
| ДоговорНаВыполнениеРаботСФизЛицом.Номер,
| ДоговорНаВыполнениеРаботСФизЛицом.Дата,
| ДоговорНаВыполнениеРаботСФизЛицом.Организация.НаименованиеПолное КАК НазваниеОрганизации,
| ДоговорНаВыполнениеРаботСФизЛицом.ДатаНачала,
| ДоговорНаВыполнениеРаботСФизЛицом.ДатаОкончания,
| ДоговорНаВыполнениеРаботСФизЛицом.ХарактерОплаты КАК ЧастотаВыплат,
| ЕСТЬNULL(ФИОФизЛицСрезПоследних.Фамилия + "" "" + ФИОФизЛицСрезПоследних.Имя + "" "" + ФИОФизЛицСрезПоследних.Отчество, ДоговорНаВыполнениеРаботСФизЛицом.Сотрудник.Наименование) КАК РаботникНаименование,
| ДоговорНаВыполнениеРаботСФизЛицом.СуммаЗаРаботу,
| ДоговорНаВыполнениеРаботСФизЛицом.ВалютаДокумента.НаименованиеПолное КАК ВалютаДокумента,
| ПаспортныеДанныеФизЛицСрезПоследних.ДокументВид.Наименование КАК ДокументВид,
| ПаспортныеДанныеФизЛицСрезПоследних.ДокументСерия,
| ПаспортныеДанныеФизЛицСрезПоследних.ДокументНомер,
| ПаспортныеДанныеФизЛицСрезПоследних.ДокументДатаВыдачи,
| ПаспортныеДанныеФизЛицСрезПоследних.ДокументКемВыдан,
| АдресРегистрации.Представление КАК АдресРегистрации,
| КонтактнаяИнформация.Представление КАК АдресОрганизации,
| ЕСТЬNULL(ДоговорНаВыполнениеРаботСФизЛицом.Организация.ОсновнойБанковскийСчет.НомерСчета, ""__________________"") КАК НомерСчета,
| ЕСТЬNULL(ДоговорНаВыполнениеРаботСФизЛицом.Организация.ОсновнойБанковскийСчет.Банк.Наименование, ""__________________________________________________________ ____________________________"") КАК Банк
|ИЗ
| Документ.ДоговорНаВыполнениеРаботСФизЛицом КАК ДоговорНаВыполнениеРаботСФизЛицом
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&Дата, ФизЛицо = &ФизЛицо) КАК ФИОФизЛицСрезПоследних
| ПО (ИСТИНА)
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПаспортныеДанныеФизЛиц.СрезПоследних(&Дата, ФизЛицо = &ФизЛицо) КАК ПаспортныеДанныеФизЛицСрезПоследних
| ПО (ИСТИНА)
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК АдресРегистрации
| ПО ДоговорНаВыполнениеРаботСФизЛицом.ФизЛицо = АдресРегистрации.Объект
| И (АдресРегистрации.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресФизЛица))
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ПО ДоговорНаВыполнениеРаботСФизЛицом.Организация = КонтактнаяИнформация.Объект
| И (КонтактнаяИнформация.Тип = &Адрес)
| И (КонтактнаяИнформация.Вид = &АдресЮридический)
|ГДЕ
| ДоговорНаВыполнениеРаботСФизЛицом.Ссылка = &Ссылка";
Запрос.Текст = ТекстЗапроса;
Возврат Запрос.Выполнить();
КонецФункции
И я сейчас немного растерялся, можно как начинающему объяснить. Хотя, почему КАК )))
Вот моя функция запроса:
Функция СформироватьЗапросДляПечати()
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.УстановитьПараметр("Адрес", Перечисления.ТипыКонтактнойИнформации.Адрес);
Запрос.УстановитьПараметр("АдресЮридический", Справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации);
Запрос.УстановитьПараметр("ФизЛицо", Сотрудник.ФизЛицо);
Запрос.УстановитьПараметр("Дата", Дата);
ТекстЗапроса =
"ВЫБРАТЬ
| ДоговорНаВыполнениеРаботСФизЛицом.Номер,
| ДоговорНаВыполнениеРаботСФизЛицом.Дата,
| ДоговорНаВыполнениеРаботСФизЛицом.Организация.НаименованиеПолное КАК НазваниеОрганизации,
| ДоговорНаВыполнениеРаботСФизЛицом.ДатаНачала,
| ДоговорНаВыполнениеРаботСФизЛицом.ДатаОкончания,
| ДоговорНаВыполнениеРаботСФизЛицом.ХарактерОплаты КАК ЧастотаВыплат,
| ЕСТЬNULL(ФИОФизЛицСрезПоследних.Фамилия + "" "" + ФИОФизЛицСрезПоследних.Имя + "" "" + ФИОФизЛицСрезПоследних.Отчество, ДоговорНаВыполнениеРаботСФизЛицом.Сотрудник.Наименование) КАК РаботникНаименование,
| ДоговорНаВыполнениеРаботСФизЛицом.СуммаЗаРаботу,
| ДоговорНаВыполнениеРаботСФизЛицом.ВалютаДокумента.НаименованиеПолное КАК ВалютаДокумента,
| ПаспортныеДанныеФизЛицСрезПоследних.ДокументВид.Наименование КАК ДокументВид,
| ПаспортныеДанныеФизЛицСрезПоследних.ДокументСерия,
| ПаспортныеДанныеФизЛицСрезПоследних.ДокументНомер,
| ПаспортныеДанныеФизЛицСрезПоследних.ДокументДатаВыдачи,
| ПаспортныеДанныеФизЛицСрезПоследних.ДокументКемВыдан,
| АдресРегистрации.Представление КАК АдресРегистрации,
| КонтактнаяИнформация.Представление КАК АдресОрганизации,
| ЕСТЬNULL(ДоговорНаВыполнениеРаботСФизЛицом.Организация.ОсновнойБанковскийСчет.НомерСчета, ""__________________"") КАК НомерСчета,
| ЕСТЬNULL(ДоговорНаВыполнениеРаботСФизЛицом.Организация.ОсновнойБанковскийСчет.Банк.Наименование, ""__________________________________________________________
|ИЗ
| Документ.ДоговорНаВыполнениеРаботСФизЛицом КАК ДоговорНаВыполнениеРаботСФизЛицом
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&Дата, ФизЛицо = &ФизЛицо) КАК ФИОФизЛицСрезПоследних
| ПО (ИСТИНА)
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПаспортныеДанныеФизЛиц.СрезПоследних(&Дата, ФизЛицо = &ФизЛицо) КАК ПаспортныеДанныеФизЛицСрезПоследних
| ПО (ИСТИНА)
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК АдресРегистрации
| ПО ДоговорНаВыполнениеРаботСФизЛицом.ФизЛицо = АдресРегистрации.Объект
| И (АдресРегистрации.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресФизЛица))
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ПО ДоговорНаВыполнениеРаботСФизЛицом.Организация = КонтактнаяИнформация.Объект
| И (КонтактнаяИнформация.Тип = &Адрес)
| И (КонтактнаяИнформация.Вид = &АдресЮридический)
|ГДЕ
| ДоговорНаВыполнениеРаботСФизЛицом.Ссылка = &Ссылка";
Запрос.Текст = ТекстЗапроса;
Возврат Запрос.Выполнить();
КонецФункции
И я сейчас немного растерялся, можно как начинающему объяснить. Хотя, почему КАК )))
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот