1с вывести фамилию с инициалами

1С 8.3 Преобразование Фамилия Имя Отчество в Фамилия и инициалы — Программист 1С Минск. Автоматизация бизнеса.

1С 8.3 Преобразование Фамилия Имя Отчество в Фамилия и инициалы

&НаКлиенте
Процедура ФИО_Инициалы_1 ()

// Получим из Фамилия Имя Отчество => Фамилия И.О.
ФИО_Руководителя = «Жуков Георгий Константинович» ;
Сообщить ( «Преобразуем: » + ФИО_Руководителя );

Пока Найти ( ФИО_Руководителя , » » ) <> 0 Цикл
ФИО_Руководителя = СтрЗаменить ( ФИО_Руководителя , » » , » » );
КонецЦикла;

ФИО_Руководителя = СтрЗаменить ( ФИО_Руководителя , » » , Символы . ПС );
Сообщить ( «в: » + СтрПолучитьСтроку ( ФИО_Руководителя , 1 )+ » » + Лев ( СтрПолучитьСтроку ( ФИО_Руководителя , 2 ), 1 )
+ «.» + Лев ( СтрПолучитьСтроку ( ФИО_Руководителя , 3 ), 1 ) + «.» );
// в: Жуков Г.К.

&НаКлиенте
Процедура ФИО_Инициалы_2 ()

// Получим из Фамилия Имя Отчество => Фамилия И.О.
ФИО_Руководителя = «Жуков Георгий Константинович» ;
Сообщить ( «Преобразуем: » + ФИО_Руководителя );

Инициал_Имя = СтрНайти ( ФИО_Руководителя , » » ) + 1 ;
Инициал_Имя = Сред ( ФИО_Руководителя , Инициал_Имя , 1 );

Инициал_Отчество = СтрНайти ( ФИО_Руководителя , » » , НаправлениеПоиска . СКонца ) + 1 ;
Инициал_Отчество = Сред ( ФИО_Руководителя , Инициал_Отчество , 1 );

Полностью_Фамилия = СокрЛП ( Лев ( ФИО_Руководителя , СтрНайти ( ФИО_Руководителя , » » )));

Сообщить ( «в: » + Полностью_Фамилия + » » + Инициал_Имя + «.» + Инициал_Отчество + «.» );
// в: Жуков Г.К.

Источник

Подсказки «1с»

Примеры по программированию в 1с 7.7, 8.1, 8.2

вторник, 10 февраля 2015 г.

Полезные типовые функции и процедуры УПП

Функции/Процедуры из модуля «ОбщегоНазначения.»:

Получить Фамилию и инициалы физлица:
ОбщегоНазначения.ФамилияИнициалыФизЛица(Объект = «», Фамилия = » «, Имя = » «, Отчество = » «, НаДату = Неопределено)

Получает имя значения перечисления как объекта метаданных:
ОбщегоНазначения.ИмяЗначенияПеречисления(Значение)
Возвращаемое значение: Строка — имя значения перечисления как объекта метаданных

Печать табличного документа:
УниверсальныеМеханизмы.НапечататьДокумент(ПечДокумент, КоличествоЭкземпляров = 1, НаПринтер = Ложь, Заголовок = «», Ссылка = Неопределено, ПараметрыПечДокумента = Неопределено);

Проверяет дату на заполненность по аналогии с системной функцией «ПустаяСтрока».
ОбщегоНазначения.Функция ПустаяДата(ПроверяемаяДата)
Если ТипЗнч(ПроверяемаяДата) = Тип(«Дата»)
И ПроверяемаяДата = Дата(1,1,1) Тогда

Функция возвращает массив вышестоящих групп указанного элемента (Ограничение — только 5 родителей!)
ОбщегоНазначения.Функция ПолучитьСписокВышеСтоящихГрупп(ЭлементСправочника)

Позволяет определить есть ли среди реквизитов табличной части документа:
ОбщегоНазначения.Функция ЕстьРеквизитТабЧастиДокумента(ИмяРеквизита, МетаданныеДокумента, ИмяТабЧасти)

Функция проверяет наличие в строке только цифр
ОбщегоНазначения.Функция ЕстьНеЦифры(Знач СтрокаПроверки)

Получить организацию по умолчанию:
ОргПоУмолчанию = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, «ОсновнаяОрганизация»)

Период строкой:
БухгалтерскиеОтчеты.Функция ПолучитьПериодДатСтрокой(Знач Период, Знач ДатаПериода) Экспорт

ПериодСтр = Период;
Если ПериодСтр = «ДЕНЬ» тогда
ДатаНачала = НачалоДня(ДатаПериода);
ДатаОкончания = КонецДня(ДатаПериода);
ИначеЕсли ПериодСтр = «НЕДЕЛЯ» тогда
ДатаНачала = НачалоНедели(ДатаПериода);
ДатаОкончания = КонецНедели (ДатаПериода);
ИначеЕсли ПериодСтр = «МЕСЯЦ» тогда
ДатаНачала = НачалоМесяца(ДатаПериода);
ДатаОкончания = КонецМесяца (ДатаПериода);
ИначеЕсли ПериодСтр = «КВАРТАЛ» тогда
ДатаНачала = НачалоКвартала(ДатаПериода);
ДатаОкончания = КонецКвартала (ДатаПериода);
ИначеЕсли ПериодСтр = «ГОД» тогда
ДатаНачала = НачалоГода(ДатаПериода);
ДатаОкончания = КонецГода (ДатаПериода);
КонецЕсли;

Возврат ПредставлениеПериода(ДатаНачала, ДатаОкончания, «ФП=Истина»)

БухгалтерскиеОтчеты.Функция ПроверитьКорректностьОграниченийПоДатам(Знач ДатаНач, Знач ДатаКон, Знач ВыдаватьПредупреждение = Истина) Экспорт

// Проверка на пустые значения
Если ДатаНач > ДатаКон И ДатаКон <> ‘00010101000000’ Тогда

Если ВыдаватьПредупреждение Тогда
Предупреждение(«Дата начала периода не может быть больше даты конца периода»);
КонецЕсли;

ИсхПараметры = Новый Структура(«Номенклатура, Количество, ХарактеристикаНоменклатуры»,Выборка.Продукция,Выборка.Количество);
РезультатРазулования = Новый Структура;
РезультатРазулования.Вставить(«ИсходныеКомплектующие»);
РазузлованиеНоменклатуры.РазузловатьНоменклатуру(ИсхПараметры, РезультатРазулования);
Если РезультатРазулования <> Неопределено Тогда
Для каждого СтрокаРазузлования из РезультатРазулования.ИсходныеКомплектующие Цикл
Если не СтрокаРазузлования.Спецификация.пустая() Тогда Продолжить;КонецЕсли;
Нов = Тз.Добавить();
Нов.Материал = СтрокаРазузлования.Номенклатура;
Нов.МатериалИмя = СтрокаРазузлования.Номенклатура.Наименование;
Нов.Еи = СтрокаРазузлования.ЕдиницаИзмерения;
Нов.Количество = СтрокаРазузлования.Количество;
КонецЦикла;
КонецЕсли;

Источник

Вывести фамилию с инициалами

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вывести Фамилию с инициалами — И. О. Фамилия
Вводится Фамилия Имя Отчество. Вывести Фамилию с инициалами — И. О. Фамилия.

Вывести Фамилию с инициалами таким образом: И. О. Фамилия
Помогите пожалуйста, с задачей ))) Вводится Фамилия Имя Отчество. Вывести Фамилию с инициалами.

Создать функцию, которая по строке, содержащей ФИО формирует строку, содержащую фамилию с инициалами
Создайте функцию, которая по строке, содержащей ФИО формирует строку, содержащую фамилию с.

Добавлено через 6 минут
или

Запросить фамилию, имя и отчество пользователя, и вывести его фамилию и инициалы
Вот задание:Написать программу, которая запрашивает фамилию, имя и отчество, а выводит фамилию и.

Записать в память фамилию студента, вывести эту фамилию в обратном порядке
Записать в память фамилию студента. Написать программу, выводящую на экран эту фамилию в обратном.

В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и инициалы
В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и инициалы. Пояснения: .

Источник

Фамилия Имя Отчество —> ФИО

RTFM СтрЗаменить(ФамилияИмяОтчество,Пробел,Символы.ПС), СтрПолучитьСтроку(,),Лев(,)

в УПП последняя функция формирует «И.О. Фамилия» — помоему это не правильно.

нужно переписать на обратное «Фамилия И.О».

Как раз данная форма является более правильной и используется на крупных предприятиях (пример — Газпром).

Вообще следует руководствоваться Постановлением Госстандарта РФ от 03.03.2003 N 65-ст «О принятии и введении в действие государственного стандарта Российской Федерации»
(вместе с «Унифицированной системой документации. Унифицированная система организационно-распорядительной документации. Требования к оформлению документов. ГОСТ Р 6.30-2003»).
п. 3.15 предусматривает:
. При адресовании документа должностному лицу инициалы указывают перед фамилией. ..
. При адресовании документа физическому лицу указывают фамилию и инициалы получателя, затем почтовый адрес.

п 3.17. Резолюция, написанная на документе соответствующим должностным лицом, включает в себя фамилии, инициалы исполнителей, содержание поручения (при необходимости), срок исполнения, подпись и дату, например:
Морозовой Н.В.
Федосеевой Н.А.

п 3.22. В состав реквизита «Подпись» входят: наименование должности лица, подписавшего документ (полное, если документ оформлен не на бланке документа, и сокращенное — на документе, оформленном на бланке); личная подпись; расшифровка подписи (инициалы, фамилия), например:

Вице-президент Ассоциации
региональных предприятий Личная подпись А.А. Борисов

Источник

1с ФИО+инициалы

Ребят что у меня нехватает в коде и где, чтоб параметр РаботникИН вывелась Фамилия + Инициалы. Заранее спасибо!

Функция РазложитьФИО(Знач ФИОСтр)

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

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

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

ФИО.Отчество = СокрЛП(Сред(ФиоСтр, ВторойПробел + 1));

Функция Печать() Экспорт

Запрос = Новый Запрос;
Запрос.УстановитьПараметр(«ТекущийДокумент», СсылкаНаОбъект.Ссылка);
Запрос.Текст =
«ВЫБРАТЬ
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник КАК Работник,
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник КАК РаботникИН,
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.ДатаПриема КАК ДатаПриема,
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.ТарифнаяСтавка КАК Оклад,
| ПаспортныеДанныеФизЛиц.ДокументСерия КАК СерияПР,
| ПаспортныеДанныеФизЛиц.ДокументНомер КАК НомерПР,
| ПаспортныеДанныеФизЛиц.ДокументДатаВыдачи КАК ДатаПР,
| ПаспортныеДанныеФизЛиц.ДокументКемВыдан КАК КемвыданПР,
| КонтактнаяИнформация.Представление КАК АдресРаботника,
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.ФизЛицо.ИНН КАК ИННРаботника,
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.ФизЛицо.СтраховойНомерПФР КАК СНИЛСРаботника
|ИЗ
| Документ.ПриемНаРаботуВОрганизацию.РаботникиОрганизации КАК ПриемНаРаботуВОрганизациюРаботникиОрганизации
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ПаспортныеДанныеФизЛиц КАК ПаспортныеДанныеФизЛиц
| ПО ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.Физлицо = ПаспортныеДанныеФизЛиц.ФизЛицо
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ПО ПриемНаРаботуВОрганизациюРаботникиОрганизации.Сотрудник.Физлицо = КонтактнаяИнформация.Объект
|ГДЕ
| ПриемНаРаботуВОрганизациюРаботникиОрганизации.Ссылка = &ТекущийДокумент»;

Шапка = Запрос.Выполнить().Выбрать();
Шапка.Следующий();

ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = «ПАРАМЕТРЫ_ПЕЧАТИ_ПриемНаРаботуВОрганизациюРаботникиОрганизации_ТрудовойДоговорРуководитель»;

ОбластьМакета = Макет.ПолучитьОбласть(«ОбластьМакет»);
ОбластьМакета.Параметры.Работник = Шапка.Работник;
ОбластьМакета.Параметры.РаботникИН = Шапка.РаботникИН;
ОбластьМакета.Параметры.ДатаПриема = Шапка.ДатаПриема;
ОбластьМакета.Параметры.Оклад = Шапка.Оклад;
ОбластьМакета.Параметры.АдресРаботника = Шапка.АдресРаботника;
ОбластьМакета.Параметры.СерияПР = Шапка.СерияПР;
ОбластьМакета.Параметры.НомерПР = Шапка.НомерПР;
ОбластьМакета.Параметры.ДатаПР = Шапка.ДатаПР;
ОбластьМакета.Параметры.ИННРаботника = Шапка.ИННРаботника;
ОбластьМакета.Параметры.КемвыданПР = Шапка.КемвыданПР;
ОбластьМакета.Параметры.СНИЛСРаботника = Шапка.СНИЛСРаботника;
ОбластьМакета.Параметры.РабочаяДата=ТекущаяДата();

ТабДокумент.Вывести(ОбластьМакета);
Возврат ТабДокумент;

Источник