Добрый вечер! Подскажите, пожалуйста. Необходимо в отчет «Ответственного исполнителя» вывести в следующем виде "Фамилия И. О."

Функция ФамилияИО(ФИО)
   ПервПроб = Найти(ФИО," ");
   Если ПервПроб=0 Тогда
       Возврат ФИО;
   Иначе
       Фамилия = Лев(ФИО,ПервПроб);
       ИО = Сред(ФИО,ПервПроб+1);
       ИО = СокрЛ(ИО);
       Имя = Лев(ИО,1)+".";
       ВтПроб = Найти(ИО," ");
       Если ВтПроб=0 Тогда
           Возврат Фамилия+Имя;
       Иначе
           Возврат Фамилия+Имя+" "+Лев(СокрЛ(Сред(ИО,ВтПроб+1)),1)+".";
       КонецЕсли;
   КонецЕсли;
КонецФункции

Данная функция преобразует строку в вид "Фамилия И. О." Если применить эту функцию для данных, полученных в запросе, система выдает ошибку:

!!«Преобразование значения к типу Строка не может быть выполнено»

Действия: В запросе выбираю данные ответственного исполнителя и применяю функцию  ФамилияИО(ФИО), потом данные передаю в макет.

Функция Ответственный()
   Запрос = Новый Запрос;    
   ЗапросТекст =    "ВЫБРАТЬ
                     |    ПоступлениеТоваровУслуг.Ответственный КАК Ответственный
                     |ИЗ
                     |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
                     |ГДЕ
                     |    ПоступлениеТоваровУслуг.Ссылка = &Ссылка";
   
   Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект);    
   ДанныеШапкиОтветственный = Запрос.Выполнить().Выбрать();    

ДанныеШапкиОтветственный.Следующий();            
Ответственный = ФамилияИО(ДанныеШапкиОтветственный);

Возврат Ответственный;

КонецФункции

................

Макет = ПолучитьМакет("Макет");
Ответственный = Ответственный();
ОбластьМакета = Макет.ПолучитьОбласть("Ответственный");
   ОбластьМакета.Параметры.Заполнить(Ответственный);
   ТабДокумент.Вывести(ОбластьМакета);

В запросе применял «Представление», «Выразить как строка», но всё равно таже ошибка.

Заранее спасибо!

(0)[ФамилияИО(ДанныеШапкиОтветственный)]
сильно

в шаблон макета ячейки зафигачь ФамилияИО

ФамилияИО(ДанныеШапкиОтветственный.Ответственный);

Назначил функцию в макете как шаблон, ничего не выводит.
Применил вариант «Ответственный = ФамилияИО(ДанныеШапкиОтветственный.Ответственный)» система выдает ошибку

«Ошибка при вызове метода контекста (Заполнить): Несоответствие типов (параметр номер '1')»

(4) используй отладчик Люк

ВЫБРАТЬ
                     |    ПоступлениеТоваровУслуг.Ответственный.Наименование КАК Ответственный
                     |ИЗ

Таже ошибка «Несоответствие типов (параметр номер '1')»
Функция Ответственный()
   Запрос = Новый Запрос;    
   ЗапросТекст =    "ВЫБРАТЬ
                     |    ПоступлениеТоваровУслуг.Ответственный.Наименование КАК Ответственный
                     |ИЗ
                     |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
                     |ГДЕ
                     |    ПоступлениеТоваровУслуг.Ссылка = &Ссылка";
   
   Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект);    
   ДанныеШапкиОтветственный = Запрос.Выполнить().Выбрать();    

ДанныеШапкиОтветственный.Следующий();            
Ответственный = ФамилияИО(ДанныеШапкиОтветственный.Ответственный);

Возврат Ответственный;

КонецФункции

Разве можно вызывать на прямую в макете функцию как шаблон, указав имя?
Ведь прекрасно работает данная функция, если ёё применять не для данных полученных из запроса.

(7) а в ДанныеШапкиОтветственный.Ответственный точно что-то есть?

(7) Смотри, у тебя в запросе идет Наименование - это строка, а не элемент. ФамилияИО с каким типом работает?

не... что-то не пойму. А почему нельзя из реквизитов СсылкаНаОбъект прочитать Ответственного и его наименование?

В ДанныеШапкиОтветственный.Ответственный передаеться ссылка справочника пользователи. Ответственный подставляется автоматически при заведении документа.

ФамилияИО(ФИО) работает со строковым типом.

ЗапросТекст =     "ВЫБРАТЬ

точки не хватает

А где именно точки не хватает?

ЗапросУстановитьПараметр еще напиши.
ЗапросВыполнитьВыбрать;

в типовой БП есть специально функция из общего модуля ОбщегоНазвачения, которая как раз возвращает в виде : Фамилия И.О.


Функция ФамилияИнициалыФизЛица(Объект = "", Фамилия = " ", Имя = " ", Отчество = " ") Экспорт

   ТипОбъекта = ТипЗнч(Объект);
   Если ТипОбъекта = Тип("Строка") Тогда
       ФИО = РазложитьСтрокуВМассивПодстрок(СокрЛП(Объект)," ");
       
   ИначеЕсли ТипОбъекта = Тип("СправочникСсылка.ФизическиеЛица") или ТипОбъекта = Тип("СправочникОбъект.ФизическиеЛица") ИЛИ
             ТипОбъекта = Тип("СправочникСсылка.СотрудникиОрганизаций") или ТипОбъекта = Тип("СправочникОбъект.СотрудникиОрганизаций") Тогда
       ФИО = РазложитьСтрокуВМассивПодстрок(СокрЛП(Объект.Наименование)," ");
       
   Иначе
       
       // используем возможно переданные отдельные строки
       Возврат ?(НЕ ПустаяСтрока(Фамилия),
               Фамилия + ?(НЕ ПустаяСтрока(Имя)," " + Лев(Имя,1) + "." + ?(НЕ ПустаяСтрока(Отчество),Лев(Отчество,1)+".", ""), ""),
               "")
   КонецЕсли;
           
   КоличествоПодстрок = ФИО.Количество();
   Фамилия = ?(КоличествоПодстрок > 0,ФИО[0],"");
   Имя        = ?(КоличествоПодстрок > 1,ФИО[1],"");
   Отчество= ?(КоличествоПодстрок > 2,ФИО[2],"");
   
   Возврат ?(НЕ ПустаяСтрока(Фамилия),
               Фамилия + ?(НЕ ПустаяСтрока(Имя)," " + Лев(Имя,1) + "." + ?(НЕ ПустаяСтрока(Отчество),Лев(Отчество,1)+".", ""), ""),
               "");

КонецФункции

т.е. туда можно передать объект/ссылку справочников ФизическиеЛица/СотрудникиОрганизаций и всё

и не надо городить огород

Если я правильно понял это должно быть так:

   Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект);
   Запрос.УстановитьПараметр("Ответственный",СсылкаНаОбъект.Ответственный);
   
   ДанныеШапкиОтветственный = Запрос.Выполнить().Выбрать();
   
    ДанныеШапкиОтветственный.Следующий();        
   
    Ответственный = ФамилияИО(ДанныеШапкиОтветственный.Ответственный);

Проверял эту функцию ФамилияИнициалыФизЛица(Объект = "", Фамилия = " ", Имя = " ", Отчество = " ") она не работает.

конфа упп

в типовой УПП есть специально функция из общего модуля ОбщегоНазвачения, которая как раз возвращает в виде : Фамилия И.О.


Функция ФамилияИнициалыФизЛица(Объект = "", Фамилия = " ", Имя = " ", Отчество = " ") Экспорт

   ТипОбъекта = ТипЗнч(Объект);
   Если ТипОбъекта = Тип("Строка") Тогда
       ФИО = РазложитьСтрокуВМассивПодстрок(СокрЛП(Объект)," ");
       
   ИначеЕсли ТипОбъекта = Тип("СправочникСсылка.ФизическиеЛица") или ТипОбъекта = Тип("СправочникОбъект.ФизическиеЛица") ИЛИ
             ТипОбъекта = Тип("СправочникСсылка.СотрудникиОрганизаций") или ТипОбъекта = Тип("СправочникОбъект.СотрудникиОрганизаций") Тогда
   
       Если ТипОбъекта = Тип("СправочникСсылка.ФизическиеЛица") или
           ТипОбъекта = Тип("СправочникСсылка.СотрудникиОрганизаций") Тогда
           Наименование = ПолучитьЗначениеРеквизита(Объект, "Наименование");
       Иначе
           Наименование = Объект.Наименование;
       КонецЕсли;
   
       // Избавление от возможных выражений в скобках, например (осн.), (вн. совм.).
       НачальнаяПозиция    = Найти(Наименование,"(");
       КонечнаяПозиция        = Найти(Наименование,")");
       ДлинаСтроки            = СтрДлина(Наименование);
       Если НачальнаяПозиция > 0 Тогда
           СтрокаДляОбработки = Лев(Наименование, НачальнаяПозиция - 1) + ?(КонечнаяПозиция > 0,Прав(Наименование, ДлинаСтроки - КонечнаяПозиция),"")
       Иначе
           СтрокаДляОбработки = Наименование;
       КонецЕсли;
       ФИО = РазложитьСтрокуВМассивПодстрок(СокрЛП(СтрокаДляОбработки)," ");
       
       
   Иначе
       
       // используем возможно переданные отдельные строки
       Возврат ?(НЕ ПустаяСтрока(Фамилия),
               Фамилия + ?(НЕ ПустаяСтрока(Имя)," " + Лев(Имя,1) + "." + ?(НЕ ПустаяСтрока(Отчество),Лев(Отчество,1)+".", ""), ""),
               "")
   КонецЕсли;
           
   КоличествоПодстрок = ФИО.Количество();
   Фамилия = ?(КоличествоПодстрок > 0,ФИО[0],"");
   Имя        = ?(КоличествоПодстрок > 1,ФИО[1],"");
   Отчество= ?(КоличествоПодстрок > 2,ФИО[2],"");
   
   Возврат ?(НЕ ПустаяСтрока(Фамилия),
               Фамилия + ?(НЕ ПустаяСтрока(Имя)," " + Лев(Имя,1) + "." + ?(НЕ ПустаяСтрока(Отчество),Лев(Отчество,1)+".", ""), ""),
               "");

КонецФункции

пля, Ответственный это справочник Пользователи, а тебе нужно ФизЛицо

=>

ФизЛицо = ДанныеШапкиОтветственный.ФизЛицо;
ФамилияИнициалыФизЛица = ОбщегоНазвачения.ФамилияИнициалыФизЛица(ФизЛицо);

+ покажи весь код заполнения макета
может ты уже запрос накропал

в каком фра учишься ?

Функция ПечатьМакета(СтрокаРасшифровки)

   ТабДокумент = Новый ТабличныйДокумент;
   Макет = ПолучитьМакет("Макет");
Ответственный = Ответственный();

ОбластьМакета = Макет.ПолучитьОбласть("Ответственный");
ОбластьМакета.Параметры.Заполнить(Ответственный);
ТабДокумент.Вывести(ОбластьМакета);
   
Возврат ТабДокумент;

КонецФункции

сама функция ответственный

Функция Ответственный()
   Запрос = Новый Запрос;    
   ЗапросТекст =    "ВЫБРАТЬ
                     |    ПоступлениеТоваровУслуг.Ответственный.Наименование КАК Ответственный
                     |ИЗ
                     |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
                     |ГДЕ
                     |    ПоступлениеТоваровУслуг.Ссылка = &Ссылка";
   
   Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект);    
   ДанныеШапкиОтветственный = Запрос.Выполнить().Выбрать();    

ДанныеШапкиОтветственный.Следующий();            
Ответственный = ФамилияИО(ДанныеШапкиОтветственный);

Возврат Ответственный;

КонецФункции

Если преобразователь не использовать ФамилияИО, то в отчет выводиться ответственный полностью Фамилия, Имя, Отчество.

печатешь в каком модуле ?

ну чудак

Функция Ответственный()
   Запрос = Новый Запрос;    
   ЗапросТекст =     "ВЫБРАТЬ
                     |    ПоступлениеТоваровУслуг.Ответственный.ФизЛицо КАК Ответственный
                     |ИЗ
                     |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
                     |ГДЕ
                     |    ПоступлениеТоваровУслуг.Ссылка = &Ссылка";
   
   Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект);    
   ДанныеШапкиОтветственный = Запрос.Выполнить().Выбрать();    

ДанныеШапкиОтветственный.Следующий();            
Ответственный = ОбщегоНазвачения.ФамилияИнициалыФизЛица(ДанныеШапкиОтветственный);

Возврат Ответственный;

КонецФункции

во, а так будет работать ?


Функция Ответственный()
   Запрос = Новый Запрос;    
   ЗапросТекст =     "ВЫБРАТЬ
                     |    ОбщегоНазвачения.ФамилияИнициалыФизЛица(ПоступлениеТоваровУслуг.Ответственный.ФизЛицо) КАК Ответственный
                     |ИЗ
                     |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
                     |ГДЕ
                     |    ПоступлениеТоваровУслуг.Ссылка = &Ссылка";
   
   Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект);    
   Возврат Запрос.Выполнить().Выгрузить();    

Возврат Ответственный;

КонецФункции


Функция ПечатьМакета(СтрокаРасшифровки)

   ТабДокумент = Новый ТабличныйДокумент;
   Макет = ПолучитьМакет("Макет");
Ответственный = Ответственный();

ОбластьМакета = Макет.ПолучитьОбласть("Ответственный");
ОбластьМакета.Параметры.Заполнить(Ответственный);
ТабДокумент.Вывести(ОбластьМакета);
   
Возврат ТабДокумент;

КонецФункции

только у меня подозрение, что ПечатьМакета находится в модуле менеджера

ПечатьМакета находиться в модуле объекта.

(30) или (31) заработало ?

только надо переписать :

Функция Ответственный()
   Запрос = Новый Запрос;    
   ЗапросТекст =     "ВЫБРАТЬ
                     |    ПоступлениеТоваровУслуг.Ответственный.ФизЛицо КАК Ответственный
                     |ИЗ
                     |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
                     |ГДЕ
                     |    ПоступлениеТоваровУслуг.Ссылка = &Ссылка";
   
   Запрос.УстановитьПараметр("Ссылка",Ссылка);    
   ДанныеШапкиОтветственный = Запрос.Выполнить().Выбрать();    

ДанныеШапкиОтветственный.Следующий();            
Ответственный = ОбщегоНазвачения.ФамилияИнициалыФизЛица(ДанныеШапкиОтветственный);

Возврат Ответственный;

КонецФункции

и следующий


Функция Ответственный()
   Запрос = Новый Запрос;    
   ЗапросТекст =     "ВЫБРАТЬ
                     |    ОбщегоНазвачения.ФамилияИнициалыФизЛица(ПоступлениеТоваровУслуг.Ответственный.ФизЛицо) КАК Ответственный
                     |ИЗ
                     |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
                     |ГДЕ
                     |    ПоступлениеТоваровУслуг.Ссылка = &Ссылка";
   
   Запрос.УстановитьПараметр("Ссылка",Ссылка);    
   Возврат Запрос.Выполнить().Выгрузить();    

Возврат Ответственный;

КонецФункции


Функция ПечатьМакета(СтрокаРасшифровки)

   ТабДокумент = Новый ТабличныйДокумент;
   Макет = ПолучитьМакет("Макет");
Ответственный = Ответственный();

ОбластьМакета = Макет.ПолучитьОбласть("Ответственный");
ОбластьМакета.Параметры.Заполнить(Ответственный);
ТабДокумент.Вывести(ОбластьМакета);
   
Возврат ТабДокумент;

КонецФункции

нет не работает

как франч называется ?

упп

что не работает ?

нет :(

(35)Ошибка при вызове метода контекста (Выполнить): {(1, 1)}: Ожидается выражение "ВЫБРАТЬ"

> ЗапросТекст

заменить на
Запрос.Текст

(36)При компилировании
Переменная не определена (Ответственный)
   Возврат <<?>>Ответственный; (Проверка: Толстый клиент (обычное приложение))

> Возврат Ответственный;



убрать строку на куй

заменил Запрос.Текст, без изменений
(36)Картина ещё интересней. Конструктор не цепляет запрос, Синтаксическая ошибка
"ВЫБРАТЬ
                     |    ОбщегоНазвачения.ФамилияИнициалыФизЛица(ПоступлениеТоваровУслуг.Ответственный.ФизЛицо) КАК Ответственный
                     |ИЗ
                     |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
                     |ГДЕ
                     |    ПоступлениеТоваровУслуг.Ссылка = &Ссылка";

сделай так :


Функция Ответственный()
   Запрос = Новый Запрос;    
   Запрос.Текст =     "ВЫБРАТЬ
                     |    ПоступлениеТоваровУслуг.Ответственный.ФизЛицо КАК Ответственный
                     |ИЗ
                     |    Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
                     |ГДЕ
                     |    ПоступлениеТоваровУслуг.Ссылка = &Ссылка";
   
   Запрос.УстановитьПараметр("Ссылка",Ссылка);    
   ДанныеШапкиОтветственный = Запрос.Выполнить().Выбрать();    

ДанныеШапкиОтветственный.Следующий();            
Ответственный = ОбщегоНазвачения.ФамилияИнициалыФизЛица(ДанныеШапкиОтветственный);

Возврат Ответственный;

КонецФункции



Функция ПечатьМакета(СтрокаРасшифровки)

   ТабДокумент = Новый ТабличныйДокумент;
   Макет = ПолучитьМакет("Макет");
Ответственный = Ответственный();

ОбластьМакета = Макет.ПолучитьОбласть("Ответственный");
ОбластьМакета.Параметры.Ответственный = Ответственный;
ТабДокумент.Вывести(ОбластьМакета);
   
Возврат ТабДокумент;

КонецФункции

(47)Печатная форма формируется, без отображения ответственного.Мистика просто...

проверь, что в отладчике на Ответственный =

или так :


Функция Ответственный()
     
ДанныеШапкиОтветственный = Ссылка.Ответственный.ФизЛицо;

Возврат ОбщегоНазвачения.ФамилияИнициалыФизЛица(ДанныеШапкиОтветственный);
КонецФункции



Функция ПечатьМакета(СтрокаРасшифровки)

   ТабДокумент = Новый ТабличныйДокумент;
   Макет = ПолучитьМакет("Макет");
Ответственный = Ответственный();

ОбластьМакета = Макет.ПолучитьОбласть("Ответственный");
ОбластьМакета.Параметры.Ответственный = Ответственный;
ТабДокумент.Вывести(ОбластьМакета);
   
Возврат ТабДокумент;

КонецФункции

отладчик показывает
ответственный = значение ""  тип строка

(50)Работает! Спасибо большое за помощь!

хотя правильно конечно получить запросом (!)
только ещё вашу 8ку не особо понимаю