[QUOTE]Александр Школьник написал:
НО в Украине сейчас нужно писать вот так - И.О. Фамилия. Если можно, сделайте, пожалуйста еще такой скрипт. [/QUOTE]
[B]Вот, пожалуйста, скрипт для вывода И.О. Фамилия[/B]
[CODE]////////////////////////////////////////////////////////////
Результат = Параметры.Документ_Контрагент;
тмп = Результат;
Поз = Найти(тмп, " ");
Если Поз>0 Тогда
Фам = СокрЛП(Лев(тмп, Поз));
тмп = Сред(тмп, Поз + 1);
Поз = Найти(тмп, " ");
Если Поз=0 Тогда
Имя = тмп;
Отч = "";
Иначе
Имя = СокрЛП(Лев(тмп, Поз));
Отч = Сред(тмп, Поз + 1);
КонецЕсли;
Результат = Фам;
Если ЗначениеЗаполнено(Имя) Тогда
Если ЗначениеЗаполнено(Отч) Тогда
Результат = Лев(Имя, 1) + "." + Лев(Отч, 1) + ". " + Результат;
Иначе
Результат = Лев(Имя, 1) + ". " + Результат;
КонецЕсли;
КонецЕсли;
КонецЕсли;
//////////////////////////////////////////////////////////// [/CODE]
НО в Украине сейчас нужно писать вот так - И.О. Фамилия. Если можно, сделайте, пожалуйста еще такой скрипт. [/QUOTE]
[B]Вот, пожалуйста, скрипт для вывода И.О. Фамилия[/B]
[CODE]////////////////////////////////////////////////////////////
Результат = Параметры.Документ_Контрагент;
тмп = Результат;
Поз = Найти(тмп, " ");
Если Поз>0 Тогда
Фам = СокрЛП(Лев(тмп, Поз));
тмп = Сред(тмп, Поз + 1);
Поз = Найти(тмп, " ");
Если Поз=0 Тогда
Имя = тмп;
Отч = "";
Иначе
Имя = СокрЛП(Лев(тмп, Поз));
Отч = Сред(тмп, Поз + 1);
КонецЕсли;
Результат = Фам;
Если ЗначениеЗаполнено(Имя) Тогда
Если ЗначениеЗаполнено(Отч) Тогда
Результат = Лев(Имя, 1) + "." + Лев(Отч, 1) + ". " + Результат;
Иначе
Результат = Лев(Имя, 1) + ". " + Результат;
КонецЕсли;
КонецЕсли;
КонецЕсли;
////////////////////////////////////////////////////////////
