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

Переделать код с обычного на управление

Автор FoXy, 12 мар 2023, 11:18

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

FoXy

В обычно приложение работает, а под управление не могу это переделать.


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

//Пример обращения
Текст = "Иванов Иван Иванович";
Сообщить(ФамилияИО(Текст)); //Выведет - Иванов И. И.

LexaK

FoXy, синтаксически все правильно, и для управляемых форм то-же!

а что у вас не работает-то? в чем ошибка?
если помогло нажмите: Спасибо!

FoXy

LexaK, Вставлял в управляемое, но когда запускал, у меня ничего не происходит, никаких действий, пытался привязать к кнопке в управляемом, выдает ошибки. Я только обучаюсь, и не могу разобраться почему.2023-03-12_13-42-36.png

LexaK

FoXy, ээээ,
процедура и функция  - так нельзя писать

вынесите функцию из процедуры

должно быть примерно так

Процедура ....
КонецПроцедуры;

Функция ...
КонецФункции;
если помогло нажмите: Спасибо!

FoXy

LexaK, Всё разобрался, Спасибо Большое!

Теги:

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

Рейтинг@Mail.ru

Поиск