Имя: Пароль:
1C
1С v8
v8: Как сделать Фамилию с инициалами
0 Трынделка
 
02.09.13
15:01
В внешней печатной форме в самом конце нужно сделать подпись Фамилимия и инициалы к примеру Петров В.В.  в параметре РабСотрПодпись

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

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


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

КонецФункции
1 ДенисЧ
 
02.09.13
15:02
В типовых есть функция что-то типа глФамилияИмяОтчество()...
2 Starhan
 
02.09.13
15:03
емнип в типовых есть функция такая.
3 MSII
 
02.09.13
15:03
У меня в конфе функция есть специальная для таких затей, в модуле ОбщегоНазначения. Как-то так и называется - ФамилияИнициалыФизЛица
4 Rie
 
02.09.13
15:03
(0) Запроси у сотрудника Имя и Отчество - и оставь от них первую букву (ну и добавь точки всякие).
5 Трынделка
 
02.09.13
15:05
(1) (2) (3) (4) Можете на примере моего кода показать, т.е. дописать что нужно. Я еще новичек просто
6 Rie
 
02.09.13
15:07
(5) Конфигурацию огласи. Или хотя бы реквизиты регистров.
7 aka AMIGO
 
02.09.13
15:08
извлечь фамилию, разложить её в СЗ, взять первые символы из 2-го и 3-го значений, присоединить к ним точки.
переприсвоить в строку: фамилию и 2-3 значения
8 Трынделка
 
02.09.13
15:09
ЗУП. Внешка делается для документа ПриемНаРаботуВОрганизацию
9 2S
 
02.09.13
15:10
с Оглы что будем делать или Ибн, автор?
10 aka AMIGO
 
02.09.13
15:11
(9) да фик с ними, пусть останется абракадаброй.. не так уж их и много
11 Бледно Золотистый
 
02.09.13
15:12
(8) Контрол+Шифт+Эф ОбщегоНазначенияЗК.ФамилияИнициалыФизЛица там куча примеров полезет
(9) Вручную подправят
12 aka AMIGO
 
02.09.13
15:15
13 Infsams654
 
02.09.13
15:48
(8) так в ЗУП в ОбщегоНазначения есть Функция ФамилияИнициалыФизЛица
14 v4442
 
02.09.13
16:04
в бухии я делаю так
Функция ВыводФИО(ФизЛицо)
     ФИОСрез = РегистрыСведений.ФИОФизЛиц.ПолучитьПоследнее(,Новый Структура("ФизЛицо",ФизЛицо));
     ФИО = Новый Структура("Фамилия, Имя, Отчество, Представление");
     ФИО.Фамилия           = ФИОСрез.Фамилия;
     ФИО.Имя               = ФИОСрез.Имя;
     ФИО.Отчество          = ФИОСрез.Отчество;
     ВыводФизЛица = ОбщегоНазначения.ПолучитьФамилиюИмяОтчество(ФИО.Фамилия, ФИО.Имя, ФИО.Отчество);
     Возврат ВыводФизЛица;
КонецФункции
15 EvgeniuXP
 
02.09.13
18:50
(0) склонялку возьми: возвращает ФИО, Фамилия И.О., Фамилия Имя, Фамилия И. и т.д. + еще должности :)

написали на 1С.
16 Злопчинский
 
02.09.13
18:51
(15) это ты имеешь в виду "Крохотулька"..?
Программист всегда исправляет последнюю ошибку.