Добавление фотографий из 1с в ActiveDirectory

28.09.12

Интеграция - Внешние источники данных

Расскажу Вам о том как я добавляла фотографию из 1с (справочника физические лица) в карточку пользователя ActiveDirectory

Скачать файлы

Наименование Файл Версия Размер
Пример обработки по загрузки фото в AD
.epf 7,45Kb
41
.epf 7,45Kb 41 Скачать

Допустим что перед нами стоит задача выгрузить фотографии сотрудников из 1с в ActiveDirectory.

С чего начнем. Начнем с создания подключения к AD.

     

    // Подключимся к AD
   
Попытка
       
oConnect = ПолучитьCOMОбъект("","ADODB.Connection");
       
oConnect.Provider = "ADSDSOObject";
       
oConnect.Properties("User ID").Value = "ВашАдминскийЮзер";
       
oConnect.Properties("Password").Value = "ЕгоПароль";
       
oConnect.Properties("Encrypt Password").Value = True;
       
oConnect.Open("Active Directory Provider");
    Исключение
        Возврат;
    КонецПопытки;

Затем необходимо прочитать фото в 1с. Для этого я пользовалась своим РегистромСведений ИзменениеФотоФизЛица, который заполняется каждый раз при изменении фото у физ лица. Вы можете напрямую смотреть в карточке физ лица

 

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

 

Как вы заметили Страховой номер у меня это уникальный идентификатор, т.е. в AD в EmployeeID должно быть равно номеру ПФР.

Для помещения картинки в AD она должна соответствовать размеру (не более 10 К и ширина, высота - 96). Для изменения размера картинки воспользуемся стандартной библиотекой Windows Image Acquisition Automation Library (в Windows 7 входит в состав дистрибутива). Библиотеку wiaaut.dll придется зарегистрировать командой regsvr32.

 

     Попытка
        
Фото       = Новый COMОбъект("WIA.ImageFile");
        
Процессор  = Новый COMОбъект("WIA.ImageProcess");
        
Фото.LoadFile(ИмяФайла);
         Если
Окр(Фото.FileData.Count / 1024, 2) > 10 Тогда  //Сравниваем размер файла
            
Процессор.Filters.Add(Процессор.FilterInfos("Scale").FilterID);
            
Процессор1 = Процессор.Filters(1);
             Для
К = 1 По Процессор1.Properties.Count Цикл
                 Если
Процессор1.Properties(К).Name = "MaximumWidth" Тогда
                    
Процессор1.Properties(К).Value = 96; //Задаем ширину
                
КонецЕсли;
                 Если
Процессор1.Properties(К).Name = "MaximumHeight" Тогда
                    
Процессор1.Properties(К).Value = 96; //Задаем высоту
                
КонецЕсли;
             КонецЦикла;
            
Фото = Процессор.Apply(Фото);
         КонецЕсли;
        
ИмяФайла = Лев(ИмяФайла, СтрДлина(ИмяФайла) - 4) + ".jpg";
        
Фото.SaveFile(ИмяФайла);
        
Фото = Новый COMОбъект("ADODB.Stream");
        
Фото.Type = 1;
        
Фото.Open();
        
Фото.LoadFromFile(ИмяФайла);
     Исключение
        
Сообщить("Возникла проблема " + ОписаниеОшибки());
     КонецПопытки;

 

Ну а теперь находим пользователя в AD и записываем ему фото:

       Query = "SELECT Name, sAMAccountName, ADsPath FROM 'LDAP://Домен/DC=ВашСервер,DC=ru' WHERE objectCategory='User' And employeeID='"+НомерПФР+"'";
      
Records = oConnect.Execute(query);
       Если НЕ
Records.EOF Тогда
          
ADsPath = Records.Fields("ADsPath").Value;
          
CN = ПолучитьCOMОбъект(Records.Fields("ADsPath").Value).Name;
          
ADsPath = СтрЗаменить(ADsPath, CN+",", "");
          
PreObj = ПолучитьCOMОбъект("LDAP:");
          
objContainer = PreObj.OpenDSObject(ADsPath, "ВашАдминскийЮзер", "ЕгоПароль", 1);
          
UpdateObject = objContainer.GetObject("User", CN);
          
UpdateObject.Put("thumbnailPhoto", Фото.Read());
          
UpdateObject.SetInfo();
       КонецЕсли;
      
Записали = Истина;
   Исключение
   КонецПопытки;

Закрываем подключение. Прибираемся. Уходим. Вот и всё!!!

 

        // Удалим фото из регистра
       
СписокФотоФизЛиц.Добавить(ФотоФизЛица);
       
// Удалим временный файл
       
УдалитьФайлы(ИмяФайла);
    КонецЕсли;
КонецЦикла;
// Закроем AD
oConnect.Close();
// Запишим изменения в регистр изменений фотографий физ. лиц
Для каждого ФотоФизЛица Из СписокФотоФизЛиц Цикл
   
ИзменениеФотоФизЛица.Удалить(ФотоФизЛица.Значение);
КонецЦикла;
ИзменениеФотоФизЛица.Записать(Истина);

 

Успехов Wink. В прикрепленных файлах есть обработка (не забудьте изменить строки подключения)

На скриншотах Вы можете увидеть результат работы обработки - на закладке Редактор аттрибутов в атрибуте thumbnailPhoto появилась строка с двоичными данными. В дальнейшем эти фотографии могут быть импортированы в Outlook.

См. также

Перенос данных из Парус 8 в ЗГУ 3

Зарплата Внешние источники данных Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 8 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

84000 руб.

19.08.2020    22448    19    1    

22

Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Обмен между базами 1C Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 10 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

60000 руб.

05.10.2022    9208    9    8    

10

Перенос данных из Парус 7.хх в ЗГУ ред.3

Внешние источники данных Зарплата Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 7.хх учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

24000 руб.

24.04.2017    48700    97    163    

86

Перенос начальных остатков из Парус 7.71 в БГУ

Внешние источники данных Взаиморасчеты Учет ОС и НМА Логистика, склад и ТМЦ Бюджетный учет Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 2.0 1С:Бухгалтерия государственного учреждения Государственные, бюджетные структуры Россия Бюджетный учет Платные (руб)

Перенос словарей и начальных остатков из ПП Парус-Бухгалтерия Бюджет 7.71 в 1Сv8 БГУ2. Заполнение словарей и документов по вводу начальных остатков. Не требуется установка ПП Парус7. Возможна дозагрузка. Позволит автоматически и наиболее полно ввести данные в программу для начала работы. 

15600 руб.

08.12.2011    81566    128    123    

147

Перенос данных из Парус 10 (Торнадо) в ЗГУ ред.3 через Excel

Внешние источники данных Загрузка и выгрузка в Excel Зарплата Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате из Парус 10(Торнадо) учреждений через файлы Excel в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ). В принципе, обработка может быть использована для загрузки из файлов Excel, полученных из любых информационных систем.

24000 руб.

16.11.2018    30002    20    31    

21

Загрузка спецификаций в УНФ из системы Базис-мебельщик

Производство готовой продукции (работ, услуг) Внешние источники данных Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 Лесное и деревообрабатывающее хозяйство Россия Управленческий учет Платные (руб)

Обработка предназначена для загрузки файлов, выгруженных из системы Базис-мебельщик, в справочник "Спецификации" для последующих процессов учета и диспетчирования полуфабрикатов и изделий.

7200 руб.

24.06.2021    19127    52    50    

29
Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. comol 5051 02.10.12 09:05 Сейчас в теме
Если есть установленный sharepoint то это всё делается много проще...
2. Nas'ka 102 02.10.12 09:28 Сейчас в теме
(1) comol, Поделитесь с нами опытом
adhocprog; +1 Ответить
3. dimaster 39 25.10.12 08:18 Сейчас в теме
есть еще такая удобная штука:

Скачать библиотеку можно тут: www.dewdney.co.uk/adext/adext.zip
оф кос, это не пакетная загрузка, но удобней смотреть, чем
4. Nas'ka 102 25.10.12 08:28 Сейчас в теме
(3) Есть еще и такая "CodeTwo Active Directory Photos". Я ею пользовалась. Удобная софтинка. Не принципиально.
adhocprog; +1 Ответить
5. nanik 5 11.09.15 05:14 Сейчас в теме
Подскажите, можно ли получить фото из AD средствами 1с?
6. Nas'ka 102 11.09.15 09:06 Сейчас в теме
(5) Конечно можно, например следующий код открывает фото на просмотр:
Query = "SEL ECT Name, sAMAccountName, ADsPath, thumbnailPhoto  FR OM 'LDAP://ИмяДомена/DC=ИмяДомена,DC=ru' WHERE objectCategory='User' And employeeID='"+НомерПФР+"'";  //или какой то другой уникальный признак
	Records = oConnect.Execute(query); 
	Пока НЕ Records.EOF Цикл 
		Если Records.Fields("thumbnailPhoto").Value = Null Тогда //Или вместо thumbnailPhoto ваше поле с фото
			Предупреждение("Пусто");
		Иначе
			ИмяФайла 	= ПолучитьИмяВременногоФайла("bmp");
			
			Поток 		= Новый COMОбъект("ADODB.Stream");
			Поток.Type 	= 1;
			Поток.Mode 	= 3;
			Поток.Open();
			Поток.Write(Records.Fields("thumbnailPhoto").Value);
			Поток.SaveToFile(ИмяФайла);
			Поток.Close();
			
			ЗапуститьПриложение("explorer " + ИмяФайла);
		КонецЕсли;
		Records.MoveNext();
	КонецЦикла;
Показать
Dudasmit; adhocprog; +2 Ответить
7. nanik 5 14.09.15 02:15 Сейчас в теме
8. пользователь 07.06.22 17:45
Сообщение было скрыто модератором.
...
Оставьте свое сообщение