Имя: Пароль:
1C
1С v8
1с8.2 Зарплата и управление персоналом паспортные данные сотрудника как получить
0 VBMADD
 
04.06.14
13:35
Привет братьям по разуму.
Чета не удается мне получить паспортные данные сотрудника.
Может кто подскажет где собака порылась...

//===============================================
СпрСотрудники = Справочники.СотрудникиОрганизаций;
ВыборкаСотрудник = СпрСотрудники.Выбрать();
СпрМСП = Справочники.МедицинскиеСтраховыеПолисы;
i=0;
Пока i <=10 Цикл
  ВыборкаСотрудник.Следующий();
  Паспорт = СпрМСП.НайтиПоРеквизиту("Физлицо",ВыборкаСотрудник.Наименование);
Сообщить("Паспорт = " + Паспорт.УдостоверениеЛичности);      
//===============================================

Спасибо всем, кто откликнулся.
1 VBMADD
 
04.06.14
13:40
Может не там ищу, где вообще они(паспортные данные) храняться
2 EvgeniuXP
 
04.06.14
13:50
а запросом?
3 VBMADD
 
04.06.14
13:57
(2) Мил человек, подскажи как, очень надо...
4 VBMADD
 
04.06.14
13:59
Очень надо в отчет вставить паспортные данные сотрудника.
Никак не соображу как их достать...
5 echo77
 
04.06.14
14:02
ОбщегоНазначения.ПолучитьПаспортныеДанныеСтрокой()


// Процедура возвращает паспортные данные физлица в виде строки
//
// Параметры:
//  ФизЛицо - ссылка на элемент справочника "Физические лица",по которму необходимо
//            получить паспортные данные.
//
// Возвращаемое значение:
//  Строка с данными об удостоверении личности физичского лица
//
Функция ПолучитьПаспортныеДанныеСтрокой(ФизЛицо) Экспорт

    СтруктураПаспортныхДанных    = РегистрыСведений.ПаспортныеДанныеФизЛиц.ПолучитьПоследнее(РабочаяДата, Новый Структура("ФизЛицо",ФизЛицо));
    ВидДокумента                = СтруктураПаспортныхДанных.ДокументВид;
    Серия                        = СтруктураПаспортныхДанных.ДокументСерия;
    Номер                        = СтруктураПаспортныхДанных.ДокументНомер;
    ДатаВыдачи                    = СтруктураПаспортныхДанных.ДокументДатаВыдачи;
    КемВыдан                    = СтруктураПаспортныхДанных.ДокументКемВыдан;
    НомерПодразделения            = СтруктураПаспортныхДанных.ДокументКодПодразделения;

    Если НЕ (НЕ ЗначениеЗаполнено(ДатаВыдачи)
           И НЕ ЗначениеЗаполнено(ВидДокумента)
           И НЕ ЗначениеЗаполнено(Серия + Номер + КемВыдан + НомерПодразделения)) Тогда

        Возврат ?(ВидДокумента.Пустая(),"","" + ВидДокумента + ", ")
                + "Серия: " + Серия + ", № " + Номер
                + ", Выдан: " + Формат(ДатаВыдачи,"ДФ='дд ММММ гггг'") + " года, "
                + КемВыдан + "; № подр. " + НомерПодразделения;

    Иначе
        Возврат "Отсутствуют данные об удостоверении личности."
    КонецЕсли;

КонецФункции // ПолучитьПаспортныеДанныеСтрокой()
6 TARPV
 
04.06.14
14:02
(4) Запрос к регистру сведений ПаспортныеДанныеФизЛиц
7 echo77
 
04.06.14
14:04
или ОбщегоНазначения.ДанныеФизЛица()
8 VBMADD
 
04.06.14
14:19
Зарплата и кадры бюджетного учреждения, редакция 1.0 (1.0.71.1)
В модулях ОбщегоНазначения не нашел
ни ДанныеФизЛица(), ни ПолучитьПаспортныеДанныеСтрокой()
где еще поискать?
9 VBMADD
 
04.06.14
14:20
Ура, нашел...
10 VBMADD
 
04.06.14
14:27
не не то, нашел ОбщегоНазначенияЗК.ПолучитьСвязанныеДанныеФизлица()
(6) пож-ста напиши код запроса
11 VBMADD
 
04.06.14
14:42
Братцы, все перекопал ну нет функций ни ДанныеФизЛица(), ни ПолучитьПаспортныеДанныеСтрокой()

С запросами как обращаться не знаю, ну кто-нибудь подсобите бедному крестьянину...
12 piter3
 
04.06.14
14:48
(11) врешь
13 piter3
 
04.06.14
14:49
хотя с у четом (8)
СтруктураПаспортныхДанных = РегистрыСведений.ПаспортныеДанныеФизЛиц.ПолучитьПоследнее(РабочаяДата, Новый Структура("ФизЛицо",ФизЛицо));

    ВидДокумента       = СтруктураПаспортныхДанных.ДокументВид;
    Серия              = СтруктураПаспортныхДанных.ДокументСерия;
    Номер              = СтруктураПаспортныхДанных.ДокументНомер;
    ДатаВыдачи         = СтруктураПаспортныхДанных.ДокументДатаВыдачи;
    КемВыдан           = СтруктураПаспортныхДанных.ДокументКемВыдан;
    НомерПодразделения = СтруктураПаспортныхДанных.ДокументКодПодразделения;

    Если НЕ (НЕ ЗначениеЗаполнено(ДатаВыдачи)
           И НЕ ЗначениеЗаполнено(ВидДокумента)
           И НЕ ЗначениеЗаполнено(Серия + Номер + КемВыдан + НомерПодразделения)) Тогда

        Возврат ?(ВидДокумента.Пустая(),"","" + ВидДокумента + ", ")
                + "Серия: "   + Серия + ", № " + Номер
                + ", Выдан: " + Формат(ДатаВыдачи,"ДФ='дд ММММ гггг'") + " года, "
                + КемВыдан    + "; № подр. " + НомерПодразделения;

    Иначе

        Возврат "Отсутствуют данные об удостоверении личности."

    КонецЕсли;
14 VBMADD
 
04.06.14
15:20
(13) Спасибо, дай тебе бог всех благ земных...
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс