1с УТ 8,1
в печатную форму надо вставить ФИО руководителя
я конечно пытался своять, но ничего не получилось
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ОтветственныеЛицаОрганизации.ФизическоеЛицо
|ИЗ
| РегистрСведений.ОтветственныеЛицаОрганизации КАК ОтветственныеЛицаОрганизации";
Пред = Запрос.Выполнить().Выбрать();
Пред.Следующий();
Руководители = РегламентированнаяОтчетность.ОтветственныеЛицаОрганизации(Пред.Руководители,);
Руководитель = Руководители.Руководитель;
в печатную форму надо вставить ФИО руководителя
я конечно пытался своять, но ничего не получилось
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ОтветственныеЛицаОрганизации.ФизическоеЛицо
|ИЗ
| РегистрСведений.ОтветственныеЛицаОрганизации КАК ОтветственныеЛицаОрганизации";
Пред = Запрос.Выполнить().Выбрать();
Пред.Следующий();
Руководители = РегламентированнаяОтчетность.ОтветственныеЛицаОрганизации(Пред.Руководители,);
Руководитель = Руководители.Руководитель;
По теме из базы знаний
- История оптимизации одного большого запроса средствами MSSQL Profiler и 1С
- Неоплаченные долги при распределении оплаты по правилу ФИФО одним запросом и намного быстрее, чем Вы думали
- Консоль запросов к базе Oracle для 1С, без использования специализированных программ
- Оптимизатор запроса. Часть первая
- Как читать чужой код? Часть 3. Разбор и доработка запросов
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) chimzar, могу предложить немного другой финт.
Имя:
Отчество:
Фамилия:
Имя:
Значение="";
Стр=Источник.Наименование; //Исходная строка
Поз=Найти(Стр," "); // Находим позицию первого пробела
Если Поз<>0 Тогда // если есть пробел
Стр=Сред(Стр,Поз+1); //Отнимаем Фамилию
Поз=Найти(Стр," "); //Находим пробел
Если Поз<>0 Тогда // если есть пробел
Значение=Лев(Стр,Поз-1); //отнимает от сроки позицию пробела и берем левую часть и получаем имя
Иначе
Значение=Стр; //иначе в строке только имя
КонецЕсли;
КонецЕсли;
Сообщить (Значение);
ПоказатьОтчество:
Значение="";
Стр=Источник.Наименование;
Поз=Найти(Стр," ");
Если Поз<>0 Тогда
Стр=Сред(Стр,Поз+1);
Поз=Найти(Стр," ");
Если Поз<>0 Тогда
Значение=Сред(Стр,Поз+1);
КонецЕсли;
КонецЕсли;
Сообщить (Значение);
ПоказатьФамилия:
Значение="";
Стр=Источник.Наименование;
Поз=Найти(Стр," ");
Если Поз<>0 Тогда
Значение=Сред(Стр,1,Поз);
Иначе
Значение=Стр;
КонецЕсли;
Сообщить (Значение);
Показать
Уточните версию УТ (в зависимости от версий расположение в модулях может отличаться)
Почему не используете стандартные функции:
Почему не используете стандартные функции:
// Функция собирает фамилию, имя и отчество физ. лица на указанную дату
//
// Параметры:
// ФизЛицо. - физ. лицо, для которго необходимо получить данные
// ДатаПериода - дата получения сведений
//
// Возвращаемое значение:
// Структура с данными.
//
Функция ФамилияИмяОтчество(ФизЛицо, ДатаПериода) Экспорт
// Функция формирует фамилию и инициалы либо по наименованию элемента спр-ка ФизическиеЛица
// либо по переданным строкам.
// Если передан Объект, то извлеченная из него строка считается совокупностью
// Фамилия + Имя + Отчество, разделенными пробелами.
//
// Параметры
// Объект - строка или ссылка или объект элемента спр-ка ФизическиеЛица.
// Фамилия - фамилия физ. лица.
// Имя - имя физ. лица.
// Отчество - отчество физ. лица.
//
// Возвращаемое значение
// Фамилия и Инициалы одной строкой. Побочные эффекты - переданная целая строка
// Побочные эффекты - переданная целая строка разбивается на подстроки, соответствующие
// отдельным Фамилии,Имени и Отчеству
//
Функция ФамилияИнициалыФизЛица(Объект = "", Фамилия = " ", Имя = " ", Отчество = " ") Экспорт
Показать
(13) chimzar,
Руководители = РегламентированнаяОтчетность.ОтветственныеЛицаОрганизации(Шапка.Организация, Шапка.ДатаДокумента);
Руководитель = Руководители.Руководитель;
Бухгалтер = Руководители.ГлавныйБухгалтер;
ОбластьМакета.Параметры.ФИОРуководителя = Руководитель;
Руководители = РегламентированнаяОтчетность.ОтветственныеЛицаОрганизации(Шапка.Организация, Шапка.ДатаДокумента);
Руководитель = Руководители.Руководитель;
Бухгалтер = Руководители.ГлавныйБухгалтер;
ОбластьМакета.Параметры.ФИОРуководителя = Руководитель;
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот