Имя: Пароль:
1C
1С v8
Как сделать Фамилию и инициалы?
0 JaZDik
 
24.09.13
01:03
Ребят помогите что нужно добавить в код, чтоб вывелись Фамилия И.О. , т.е. Иванов И.И. у работника и работодателя

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

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

    
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_КадровоеПеремещениеОрганизацийРаботникиОрганизации_ДополнительноеСоглашение";
    
    Макет = ПолучитьМакет("ДополнительноеСоглашение");                                                                        
    
    ОбластьМакета = Макет.ПолучитьОбласть("Общее");
    ОбластьМакета.Параметры.Работник = Шапка.Сотрудник.Наименованиерока;
    ОбластьМакета.Параметры.Серия = Шапка.Серия;
    ОбластьМакета.Параметры.Номер = Шапка.Номер;
    ОбластьМакета.Параметры.ДатаВыд = Шапка.ДатаВыд;
    ОбластьМакета.Параметры.КемВыдан = Шапка.КемВыдан;
    ОбластьМакета.Параметры.ИНН = Шапка.ИНН;
    ОбластьМакета.Параметры.СтрахНомер = Шапка.СтрахНомер;
    ОбластьМакета.Параметры.ДатаРож = Шапка.ДатаРож;
    ОбластьМакета.Параметры.ДатаДог = Шапка.ДатаДог;
    ОбластьМакета.Параметры.НомерДог = Шапка.НомерДог;
    ОбластьМакета.Параметры.Подразделение = Шапка.Подразделение;
    ОбластьМакета.Параметры.Должность = Шапка.Должность;
    ОбластьМакета.Параметры.Оклад = Шапка.Оклад;
    ОбластьМакета.Параметры.РабДата = ТекущаяДата();
    ОбластьМакета.Параметры.Дата1 = Шапка.Дата1;
    ОбластьМакета.Параметры.Номер1 = Шапка.Номер1;
    ОбластьМакета.Параметры.Работодатель = Шапка.Работодатель;
    ОбластьМакета.Параметры.ДатаОт = Шапка.ДатаОт;
    ОбластьМакета.Параметры.Поле1 = Шапка.Поле1;
    ОбластьМакета.Параметры.Поле2 = Шапка.Поле1;

         
    ТабДокумент.Вывести(ОбластьМакета);
    Возврат ТабДокумент;
    
КонецФункции
1 JaZDik
 
24.09.13
01:10
Зуп... Докемент  КадровоеПеремещениеОрганизаций
2 vicof
 
24.09.13
01:16
ОбщегоНазначения.ФамилияИнициалыФизЛица()
как-то так
3 SeraFim
 
24.09.13
02:22
Соединение с РС.ФИОФизЛиц и
    |    ЕСТЬNULL(ФИОФизЛицСрезПоследних.Фамилия + ВЫБОР
    |            КОГДА ПОДСТРОКА(ФИОФизЛицСрезПоследних.Имя, 1, 1) <> """"
    |                ТОГДА "" "" + ПОДСТРОКА(ФИОФизЛицСрезПоследних.Имя, 1, 1) + "".""
    |            ИНАЧЕ """"
    |        КОНЕЦ + ВЫБОР
    |            КОГДА ПОДСТРОКА(ФИОФизЛицСрезПоследних.Отчество, 1, 1) <> """"
    |                ТОГДА "" "" + ПОДСТРОКА(ФИОФизЛицСрезПоследних.Отчество, 1, 1) + "".""
    |            ИНАЧЕ """"
    |        КОНЕЦ, ФизическоеЛицо.Наименование) КАК ФИО
4 JaZDik
 
24.09.13
09:57
(3) После какой строки это вставить ?
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn