powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / [игнор отключен] [закрыт для гостей] / Бухгалтерия предприятия, редакция 3.0 (3.0.40.37) ФИО разложить на части
2 сообщений из 2, страница 1 из 1
Бухгалтерия предприятия, редакция 3.0 (3.0.40.37) ФИО разложить на части
    #39003385
trew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
СтруктураФИО = Новый Структура("Фамилия, Имя, Отчество");
СтруктураФИО = ФизическиеЛицаКлиентСервер.ФамилияИмяОтчество(ФизическоеЛицо.ФИО);

автор// Функция раскладывает ФИО в структуру.
//
// Параметры:
// ФИО - строка - наименование.
//
// Возвращаемое значение:
// Структура - со свойствами:
// * Фамилия - Строка
// * Имя - Строка
// * Отчество - Строка
//
Функция ФамилияИмяОтчество(Знач ФИО) Экспорт

СтруктураФИО = Новый Структура("Фамилия, Имя, Отчество");

МассивПодстрок = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ФИО, " ");

Если МассивПодстрок.Количество() > 0 Тогда
СтруктураФИО.Вставить("Фамилия", МассивПодстрок[0]);
Если МассивПодстрок.Количество() > 1 Тогда
СтруктураФИО.Вставить("Имя", МассивПодстрок[1]);
КонецЕсли;
Если МассивПодстрок.Количество() > 2 Тогда
Отчество = "";
Для Шаг = 2 По МассивПодстрок.Количество()-1 Цикл
Отчество = Отчество + МассивПодстрок[Шаг] + " ";
КонецЦикла;
СтроковыеФункцииКлиентСервер.УдалитьПоследнийСимволВСтроке(Отчество, 1);
СтруктураФИО.Вставить("Отчество", Отчество);
КонецЕсли;
КонецЕсли;

Возврат СтруктураФИО;

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


Теперь осталось в справочнике Физические лица завести нового человека:
Хакас Иглы Ибагим Олегович , фамилия это Хакас Иглы.

Если у вас есть такая возможность, отправьте это в фирму 1с.
...
Рейтинг: 0 / 0
Бухгалтерия предприятия, редакция 3.0 (3.0.40.37) ФИО разложить на части
    #39003404
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
trewСтруктураФИО = Новый Структура("Фамилия, Имя, Отчество");
СтруктураФИО = ФизическиеЛицаКлиентСервер.ФамилияИмяОтчество(ФизическоеЛицо.ФИО);

автор// Функция раскладывает ФИО в структуру.
//
// Параметры:
// ФИО - строка - наименование.
//
// Возвращаемое значение:
// Структура - со свойствами:
// * Фамилия - Строка
// * Имя - Строка
// * Отчество - Строка
//
Функция ФамилияИмяОтчество(Знач ФИО) Экспорт

СтруктураФИО = Новый Структура("Фамилия, Имя, Отчество");

МассивПодстрок = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ФИО, " ");

Если МассивПодстрок.Количество() > 0 Тогда
СтруктураФИО.Вставить("Фамилия", МассивПодстрок[0]);
Если МассивПодстрок.Количество() > 1 Тогда
СтруктураФИО.Вставить("Имя", МассивПодстрок[1]);
КонецЕсли;
Если МассивПодстрок.Количество() > 2 Тогда
Отчество = "";
Для Шаг = 2 По МассивПодстрок.Количество()-1 Цикл
Отчество = Отчество + МассивПодстрок[Шаг] + " ";
КонецЦикла;
СтроковыеФункцииКлиентСервер.УдалитьПоследнийСимволВСтроке(Отчество, 1);
СтруктураФИО.Вставить("Отчество", Отчество);
КонецЕсли;
КонецЕсли;

Возврат СтруктураФИО;

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


Теперь осталось в справочнике Физические лица завести нового человека:
Хакас Иглы Ибагим Олегович , фамилия это Хакас Иглы.

Если у вас есть такая возможность, отправьте это в фирму 1с.
Гыыы....был тож на прошлой работе татарин с такими же проблемами- отчетность не могли сдать нормально)))
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Бухгалтерия предприятия, редакция 3.0 (3.0.40.37) ФИО разложить на части
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]