|
Бухгалтерия предприятия, редакция 3.0 (3.0.40.37) ФИО разложить на части
|
|||
---|---|---|---|
#18+
СтруктураФИО = Новый Структура("Фамилия, Имя, Отчество"); СтруктураФИО = ФизическиеЛицаКлиентСервер.ФамилияИмяОтчество(ФизическоеЛицо.ФИО); автор// Функция раскладывает ФИО в структуру. // // Параметры: // ФИО - строка - наименование. // // Возвращаемое значение: // Структура - со свойствами: // * Фамилия - Строка // * Имя - Строка // * Отчество - Строка // Функция ФамилияИмяОтчество(Знач ФИО) Экспорт СтруктураФИО = Новый Структура("Фамилия, Имя, Отчество"); МассивПодстрок = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ФИО, " "); Если МассивПодстрок.Количество() > 0 Тогда СтруктураФИО.Вставить("Фамилия", МассивПодстрок[0]); Если МассивПодстрок.Количество() > 1 Тогда СтруктураФИО.Вставить("Имя", МассивПодстрок[1]); КонецЕсли; Если МассивПодстрок.Количество() > 2 Тогда Отчество = ""; Для Шаг = 2 По МассивПодстрок.Количество()-1 Цикл Отчество = Отчество + МассивПодстрок[Шаг] + " "; КонецЦикла; СтроковыеФункцииКлиентСервер.УдалитьПоследнийСимволВСтроке(Отчество, 1); СтруктураФИО.Вставить("Отчество", Отчество); КонецЕсли; КонецЕсли; Возврат СтруктураФИО; КонецФункции Теперь осталось в справочнике Физические лица завести нового человека: Хакас Иглы Ибагим Олегович , фамилия это Хакас Иглы. Если у вас есть такая возможность, отправьте это в фирму 1с. ... |
|||
:
Нравится:
Не нравится:
|
|||
09.07.2015, 13:35 |
|
Бухгалтерия предприятия, редакция 3.0 (3.0.40.37) ФИО разложить на части
|
|||
---|---|---|---|
#18+
trewСтруктураФИО = Новый Структура("Фамилия, Имя, Отчество"); СтруктураФИО = ФизическиеЛицаКлиентСервер.ФамилияИмяОтчество(ФизическоеЛицо.ФИО); автор// Функция раскладывает ФИО в структуру. // // Параметры: // ФИО - строка - наименование. // // Возвращаемое значение: // Структура - со свойствами: // * Фамилия - Строка // * Имя - Строка // * Отчество - Строка // Функция ФамилияИмяОтчество(Знач ФИО) Экспорт СтруктураФИО = Новый Структура("Фамилия, Имя, Отчество"); МассивПодстрок = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ФИО, " "); Если МассивПодстрок.Количество() > 0 Тогда СтруктураФИО.Вставить("Фамилия", МассивПодстрок[0]); Если МассивПодстрок.Количество() > 1 Тогда СтруктураФИО.Вставить("Имя", МассивПодстрок[1]); КонецЕсли; Если МассивПодстрок.Количество() > 2 Тогда Отчество = ""; Для Шаг = 2 По МассивПодстрок.Количество()-1 Цикл Отчество = Отчество + МассивПодстрок[Шаг] + " "; КонецЦикла; СтроковыеФункцииКлиентСервер.УдалитьПоследнийСимволВСтроке(Отчество, 1); СтруктураФИО.Вставить("Отчество", Отчество); КонецЕсли; КонецЕсли; Возврат СтруктураФИО; КонецФункции Теперь осталось в справочнике Физические лица завести нового человека: Хакас Иглы Ибагим Олегович , фамилия это Хакас Иглы. Если у вас есть такая возможность, отправьте это в фирму 1с. Гыыы....был тож на прошлой работе татарин с такими же проблемами- отчетность не могли сдать нормально))) ... |
|||
:
Нравится:
Не нравится:
|
|||
09.07.2015, 13:43 |
|
|
start [/forum/topic.php?fid=28&msg=39003385&tid=1519058]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
30ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
52ms |
get tp. blocked users: |
2ms |
others: | 15ms |
total: | 145ms |
0 / 0 |