Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 13:35

Внешняя обработка по преобразованию полного ФИО в сокращенное

Автор mashencev_anton, 20 сен 2013, 13:18

0 Пользователей и 1 гость просматривают эту тему.

Yura063

MuI_I_Ika, я то понимаю! А если у него еще управляемая форма?
Помогли, отблагодари!

mashencev_anton


Yura063

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

    Процедура СформироватьНажатие(Элемент)
  Строка="";
     ЭтаФорма.ЭлементыФормы.Надпись.Заголовок=Сокращ(Строка);
       Сообщить(Строка );
КонецПроцедуры
Помогли, отблагодари!

mashencev_anton

Цитата: Yura063 от 20 сен 2013, 15:21ЭтаФорма.ЭлементыФормы.Надпись.Заголовок=Сокращ(Строка);
Спасибо ОГРОМНОЕ!!!!!! Как я мог это забыть(((((( мы ведь на занятиях так  и делали


Андрей Федотов

ЭлементыФормы.ВашеНазваниеНадписи.Текст = Сокращ(Строка);

pavl_vs

Отменено - не посмотрел 2-ю страницу ответов. Ответы уже даны.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск