+7 495 008 8452
Выберите ваш цвет

Обмен пользователями между 1С:УТ 10 и БУС

Если у вас возникли какие либо вопросы которые вы не смогли решить по нашим публикациям самостоятельно,
то ждем ваше обращение в нашей службе тех поддержки.

Выгрузка контрагентов из 1с в битрикс

Дали задачу реализовать обмен между 1с и битриксом в реальном времени + выгружать контрагентов из 1с и создавать пользователей в битрикс. В стандартной поставке битрикс отдает данные 1с, когда пользователь оформляет заказ, в 1с создается контрагент с данными из профиля покупателя.

Моя задача была для каждого контрагента создавать пользователя в битрикс и передавать данные из 1с, такие как ИНН, Адрес, Телефон. Подумав, я решил что буду загружать контрагентов вместе с заказами.
Значит первая задача дописать на стороне 1с выгрузку xml, с возможность выгружать только изменения.

1) Чтобы получать изменения по контрагентам добавим в Общие -> Планы обмена -> ОБМЕН С САЙТОМ ЗАКАЗАМИ правой кнопкой состав -> добавить Справочники.Контрагенты для отслеживания изменений узла.

2) В 1с идем в Обработки -> ОбменССайтом открываем модуль объекта и находим функцию ВыгрузитьЗаказыВФайл, ниже выкладываю измененный код с комментариями:



Функция ВыгрузитьЗаказыВФайл(СтруктураИзменений, СтруктураПараметровСайта, Знач КаталогДляВыгрузки = "",
//Меняем переменную КоличествоВыгруженныхЗаказов на КоличествоОбработанныхДокументовНаВыгрузке
КоличествоОбработанныхДокументовНаВыгрузке = 0)

Успешно = Истина;
КоличествоВыгруженныхЗаказов = 0;

МассивИзменений   = Новый Массив;
//Добавляем переменную МассивИзмененийКонтрагенты
МассивИзмененийКонтрагенты = Новый Массив;

//Формируем переменные ОбъектCMLСтрока и ОбъектCML.
ОбъектCMLСтрока   = "";
ДатаФормирования = ТекущаяДата();
ОбъектCML = ПолучитьОбъектДляЗаписиXML("", ДатаФормирования);

Если ВыгружатьТолькоИзменения Тогда
//Создаем переключатель
Свитч = 0;

МассивИзменений = СтруктураИзменений.Заказы;
//Формируем МассивИзмененийКонтрагенты
МассивИзмененийКонтрагенты = СтруктураИзменений.Контрагенты;

// из этого массива нужно удалить все только что загруженные заказы
Для Каждого Эл Из мМассивЗагруженныхДокументов Цикл

ИндексЭлемента = МассивИзменений.Найти(Эл);
Если ИндексЭлемента <> Неопределено Тогда
МассивИзменений.Удалить(ИндексЭлемента);
КонецЕсли;

КонецЦикла;
//Если нет изменений заказов
Если МассивИзменений.Количество() = 0 Тогда
// ТаблицаДокументов = "";
//Пишем КоличествоВыгруженныхЗаказов (оно равно 0)
КоличествоВыгруженныхЗаказов = МассивИзменений.Количество();
//Пишем пользователю в 1с
СообщитьПользователю("Изменения заказов не зарегистрированы. Выгрузка заказов не произведена.", Истина);
Иначе
//Пишем в переключатель единичку
Свитч = 1;
//Формируем заказы в xml (функцию СформироватьCMLСРанееЗагруженнымиЗаказами нужно немного переписать, код ниже)
ТаблицаДокументов = СформироватьCMLСРанееЗагруженнымиЗаказами(ОбъектCML, МассивИзменений);
//Считаем количество выгруженных заказов
КоличествоВыгруженныхЗаказов = ТаблицаДокументов.Количество();
КонецЕсли;


// Если нет изменений в контрагентах
Если МассивИзмененийКонтрагенты.Количество() = 0 Тогда
// ТаблицаДокументовКонтрагенты = "";
КоличествоВыгруженныхКонтрагентов = МассивИзмененийКонтрагенты.Количество();
СообщитьПользователю("Изменения контрагентов не зарегистрированы. Выгрузка контрагентов не произведена.", Истина);
Иначе
Свитч = 1;
//Фомируем контрагентов, код функции ниже
ТаблицаДокументовКонтрагенты = СформироватьCMLСКонтрагентами(ОбъектCML, МассивИзмененийКонтрагенты);
КоличествоВыгруженныхКонтрагентов = ТаблицаДокументовКонтрагенты.Количество();
КонецЕсли;

//Если выгружаем только изменения, а их нет, то возвращаем функцию
Если Свитч = 0 Тогда
Возврат Истина;
КонецЕсли;
//Если выгружаем все заказы и всех контрагентов без изменений
Иначе
ТаблицаДокументов = СформироватьCMLСРанееЗагруженнымиЗаказами(ОбъектCML, МассивИзменений);
КоличествоВыгруженныхЗаказов = ТаблицаДокументов.Количество();
ТаблицаДокументовКонтрагенты = СформироватьCMLСКонтрагентами(ОбъектCML, МассивИзмененийКонтрагенты);
КоличествоВыгруженныхКонтрагентов = ТаблицаДокументовКонтрагенты.Количество();
КонецЕсли;

//Закрываем тэг в xml
ОбъектCML.ЗаписатьКонецЭлемента();
//Пишем данные xml в ОбъектCMLСтрока
ОбъектCMLСтрока = ОбъектCML.Закрыть();

//Смотрим есть ли выгруженные заказы или контрагенты
Если КоличествоВыгруженныхЗаказов = 0 И КоличествоВыгруженныхКонтрагентов = 0 Тогда

СообщитьПользователю("Не выгружен ни один заказ или контрагент.", Истина);
   Возврат Успешно;

КонецЕсли;

//Считаем количество ОбработанныхДокументов
КоличествоОбработанныхДокументовНаВыгрузке = КоличествоВыгруженныхЗаказов + КоличествоВыгруженныхКонтрагентов;

Если ПустаяСтрока(КаталогДляВыгрузки) Тогда
Возврат Ложь;
КонецЕсли;

ИмяФайлаОбмена = "1cbitrix-" + Строка(Новый УникальныйИдентификатор) + ".xml";
ПолноеИмяФайлаОбмена = КаталогДляВыгрузки + "" + ИмяФайлаОбмена;

СоздатьКаталог(КаталогДляВыгрузки);

ФайлCMLНаДиске = Новый ТекстовыйДокумент;
ФайлCMLНаДиске.УстановитьТекст(ОбъектCMLСтрока);

Попытка
ФайлCMLНаДиске.Записать(ПолноеИмяФайлаОбмена, "UTF-8");
Исключение
СообщитьОбИсключительнойОшибке(Истина, "Не удалось записать CML файл на диск.");
Возврат Ложь;
КонецПопытки;
//Добавляем выгруженно контрагентов в сообщение пользователю
СообщитьПользователю("Выгружено заказов: " + КоличествоВыгруженныхЗаказов + " Выгружено контрагентов: " + КоличествоВыгруженныхКонтрагентов, Истина);
Возврат Истина;

КонецФункции
3) Далее немного изменим функцию СформироватьCMLСРанееЗагруженнымиЗаказами


Функция СформироватьCMLСРанееЗагруженнымиЗаказами(ОбъектCML, МассивИзменений)

ОтобразитьСостояние("Поиск открытых заказов, загруженных с " + HTTPОбменСервер + "...");

ТаблицаДокументов = ПроцедурыОбменаССайтом.ПолучитьЗаказыСОплатойИОтгрузкойПоКатегориям(МассивИзменений, мМассивЗагруженныхДокументов);

Если ТаблицаДокументов.Количество() = 0 Тогда  
Возврат ТаблицаДокументов;
КонецЕсли;


// ДатаФормирования = ТекущаяДата();
// ОбъектCML = ПолучитьОбъектДляЗаписиXML("", ДатаФормирования);

Для Каждого СтрокаТД Из ТаблицаДокументов Цикл

ОбъектCML.ЗаписатьНачалоЭлемента("Документ");

Док = СтрокаТД.ДокументСсылка;

ВыгрузитьЗаказВCML(ОбъектCML, Док);

ОбъектCML.ЗаписатьНачалоЭлемента("ЗначенияРеквизитов");

ДобавитьНовоеЗначениеРеквизита(ОбъектCML, "Номер по 1С", Док.Номер);
ДобавитьНовоеЗначениеРеквизита(ОбъектCML, "Дата по 1С", ФорматДатыДляCML(Док.Дата));
ДобавитьНовоеЗначениеРеквизита(ОбъектCML, "ПометкаУдаления", Док.ПометкаУдаления);
ДобавитьНовоеЗначениеРеквизита(ОбъектCML, "Проведен", Док.Проведен);

Если СтрокаТД.Оплачен ИЛИ СтрокаТД.Отгружен Тогда

Если СтрокаТД.Оплачен Тогда
ДобавитьНовоеЗначениеРеквизита(ОбъектCML, "Номер оплаты по 1С", СтрокаТД.НомерОплаты);
ДобавитьНовоеЗначениеРеквизита(ОбъектCML, "Дата оплаты по 1С", ФорматДатыДляCML(СтрокаТД.ДатаОплаты, Истина, Истина));
КонецЕсли;

Если СтрокаТД.Отгружен Тогда
ДобавитьНовоеЗначениеРеквизита(ОбъектCML, "Номер отгрузки по 1С", СтрокаТД.НомерОтгрузки);
ДобавитьНовоеЗначениеРеквизита(ОбъектCML, "Дата отгрузки по 1С", ФорматДатыДляCML(СтрокаТД.ДатаОтгрузки, Истина, Истина));
КонецЕсли;

КонецЕсли;

ОбъектCML.ЗаписатьКонецЭлемента();
ОбъектCML.ЗаписатьКонецЭлемента();

КонецЦикла;

Возврат ТаблицаДокументов;

КонецФункции
4) Создадим новую функцию СформироватьCMLСКонтрагентами, она будет писать в xml контрагентов


Функция СформироватьCMLСКонтрагентами(ОбъектCML, МассивИзмененийКонтрагенты)

ОтобразитьСостояние("Поиск контрагентов для выгрузки...");
     //Процедура ПолучитьКонтрагентов описана ниже
ТаблицаДокументовКонтрагенты = ПроцедурыОбменаССайтом.ПолучитьКонтрагентов(МассивИзмененийКонтрагенты);

Если ТаблицаДокументовКонтрагенты.Количество() = 0 Тогда  
Возврат ТаблицаДокументовКонтрагенты;
КонецЕсли;

// Если МассивИзменений.Количество() = 0 Тогда
// КонецЕсли;

ОбъектCML.ЗаписатьНачалоЭлемента("Контрагенты");

Для Каждого СтрокаТД Из ТаблицаДокументовКонтрагенты Цикл
                 
ОбъектCML.ЗаписатьНачалоЭлемента("Контрагент");

ЗаписатьТекстовойУзел(ОбъектCML, "Код", СтрокаТД.Код);
ЗаписатьТекстовойУзел(ОбъектCML, "Наименование", СтрокаТД.Наименование);
ЗаписатьТекстовойУзел(ОбъектCML, "ИНН", СтрокаТД.ИНН);
ЗаписатьТекстовойУзел(ОбъектCML, "ЮрФизЛицо", СтрокаТД.ЮрФизЛицоСсылка);
ЗаписатьТекстовойУзел(ОбъектCML, "Адрес", СтрокаТД.ФактАдрес);
ЗаписатьТекстовойУзел(ОбъектCML, "Телефон", СтрокаТД.Телефон);        
ЗаписатьТекстовойУзел(ОбъектCML, "Емэил", СтрокаТД.Емэил);

// ДобавитьНовоеЗначениеРеквизита(ОбъектCML, "Наименование", СтрокаТД.Наименование);
ОбъектCML.ЗаписатьКонецЭлемента();

КонецЦикла;

// ОбъектCML.ЗаписатьКонецЭлемента();
ОбъектCML.ЗаписатьКонецЭлемента();

Возврат ТаблицаДокументовКонтрагенты;

КонецФункции


5) Идем в Общие -> Общие модули -> Процедуры обмена с сайтом, там создаем новую функцию ПолучитьКонтрагентов, по сути это наша запрос к базе для получения всех контрагентов или на основе массива изменений контрагентов

Функция ПолучитьКонтрагентов(МассивИзмененийКонтрагенты) Экспорт

Запрос = Новый Запрос;

   Запрос.Текст = "ВЫБРАТЬ
      | Контрагенты.Ссылка КАК Ссылка,
                  | Контрагенты.Наименование КАК Наименование,
                  | Контрагенты.ИНН КАК ИНН,
                  | Контрагенты.ЮрФизЛицо.Ссылка КАК ЮрФизЛицоСсылка,
                  | КонтактнаяИнформацияТелефон.Представление КАК Телефон,
                  | КонтактнаяИнформацияАдрес.Представление КАК ФактАдрес,
  | КонтактнаяИнформацияЕмэил.Представление КАК Емэил,
                  | Контрагенты.Код КАК Код
                  |ИЗ
                  | Справочник.Контрагенты КАК Контрагенты
                  | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформацияТелефон
                  | ПО Контрагенты.Ссылка = КонтактнаяИнформацияТелефон.Объект
                  | И (КонтактнаяИнформацияТелефон.Тип = &ТипТелефон)
                  | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформацияАдрес
                  | ПО Контрагенты.Ссылка = КонтактнаяИнформацияАдрес.Объект
                  | И (КонтактнаяИнформацияАдрес.Вид = &ВидФактАдрес)
  | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформацияЕмэил
                  | ПО Контрагенты.Ссылка = КонтактнаяИнформацияЕмэил.Объект
                  | И (КонтактнаяИнформацияЕмэил.Вид = &ВидЕмэил)
                  |ГДЕ
                  | Контрагенты.Ссылка В ИЕРАРХИИ(&СсылкаНаРодитель)
                  |    И (НЕ Контрагенты.Ссылка.ЭтоГруппа)";
    //Я выбираю контрагентов только из раздела покупатели 1с, они имееют код 00015
   Запрос.УстановитьПараметр("СсылкаНаРодитель", Справочники.Контрагенты.НайтиПоКоду("00015"));
Запрос.УстановитьПараметр("ВидФактАдрес", Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("2"));
Запрос.УстановитьПараметр("ТипТелефон", Перечисления.ТипыКонтактнойИнформации.Телефон);
Запрос.УстановитьПараметр("ВидЕмэил", Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("000000013"));
//Если в запросе присутствует массив изменений, то добавляем его в запрос      
Если МассивИзмененийКонтрагенты.Количество() > 0 Тогда

Запрос.УстановитьПараметр("МассивДокументовСсылок", МассивИзмененийКонтрагенты);
Запрос.Текст = Запрос.Текст + " И Контрагенты.Ссылка В (&МассивДокументовСсылок)";

   КонецЕсли;

ТаблицаДокументов = Запрос.Выполнить().Выгрузить();

Возврат ТаблицаДокументов;


КонецФункции
По 1с, у нас все, надеюсь ничего не забыл написать. Тут самое сложное будет написать правильный запрос, остальное в общем-то описано.

6) Переходим к битриксу. На сайте идем в папку /bitrix/admin и копируем файл 1c_exchange.php, например в корень не забыв переименовать в site_1c_exchange.php например. Тут стоит обратить внимание на такой момент, что доступ к файлу надо ограничить только для группы пользователей, данные пользователя которой вы вводите в 1с.
Далее компонент sale.export.1c копируем в собственное пространство имен, например site. В файле site_1c_exchange.php для компонента sale.export.1c укажем новое пространство имен.

7) Редактируем компонент sale.export.1c находим строки где битрикс парсит xml в массив и дописываем наш код. В XML_ID пользователя битрикса будет храниться код контрагента из 1с. Тут же возник вопрос, как быть с профилем покупателя пользователя, например при обновлении данных профиля в 1с, все изменения должны быть переданы в битрикс. Решил создать пользовательское поле в битриксе для пользователя, так его и назвал UF_USER_PROPS_ID и запретить редактирование, также создал еще одно поле UF_TEMP_PASSWORD, где писался сгенерированный после импорта в битрикс пользователя пароль, это было необходимо заказчику. Ниже код для самого компонента, который нужно дописать :



// Найти эти строчки в компоненте
$objXML = new CDataXML();
$objXML->LoadString($sResult);
$arResult = $objXML->GetArray();

// ЗДЕСЬ НАЧИНАЕТСЯ ИМПОРТ КОНТРАГЕНТОВ

//Создадим переменный для подсчета
$myContragentCount = 0;
$myContragentSuccessAdd = 0;
$myContragentSuccessUpdate = 0;
$myImportLog= '';

//Для каждого контрагента из нашего xml
foreach($arResult[GetMessage("CC_BSC1_COM_INFO")]["#"]["Контрагенты"][0]["#"]["Контрагент"] as $value)
{
//Если код или наименование пустое идем к следующему
if(empty($value["#"]["Код"][0]["#"]) || empty($value["#"]["Наименование"][0]["#"]))
{
//Пишем в лог
$myImportLog .= "Не заполнено поле наименование для контрагента с кодом: " . trim($value["#"]["Код"][0]["#"]) . "\n";
continue;
}

// Получаем индекс из адреса
$userLocation = '';
$userIndex = preg_replace('/^(\d+).*$/', "$1", $value["#"]["Адрес"][0]["#"]);

if(count($userIndex) > 0 && is_numeric($userIndex))
$userLocation = CSaleLocation::GetByZIP($userIndex);
else
$userIndex = '';

if(!empty($value["#"]["Емэил"][0]["#"]))
{
$userEmail = $value["#"]["Емэил"][0]["#"];
}
else
{
//Если мэил не указан создаем из наимнования
$userEmail = Cutil::translit($value["#"]["Наименование"][0]["#"], "ru", array("replace_space"=>"-","replace_other"=>"-")) . '@mail.you';
}

$userName = substr($value["#"]["Наименование"][0]["#"], 0, 50);
 
  //Проверяем существует ли пользователь с XML_ID в базе битрикса
$rsUser = CUser::GetList($by="", $order="", array("ACTIVE" => "Y", "XML_ID" => trim($value["#"]["Код"][0]["#"])), array("SELECT" => array("UF_*")));
                       
                                              if(!$arUser = $rsUser->Fetch())
{
//если нет создаем нового пользователя
$rand_password = substr(str_shuffle('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789') , 0 , 10 );
$user = new CUser;
$arFields = Array(
// "NAME" => $userlogin,
"NAME"              => $userName,
// "LAST_NAME"         => "Иванов",
"EMAIL"             => $userEmail,
"LOGIN"             => trim($value["#"]["Код"][0]["#"]),
"XML_ID"             => trim($value["#"]["Код"][0]["#"]),
"LID"               => "s1",
"ACTIVE"            => "Y",
"GROUP_ID"          => array(2),
"PASSWORD"          => $rand_password,
"CONFIRM_PASSWORD"  => $rand_password,
// Не пишет "ADMIN_NOTES" => $rand_password,
"UF_TEMP_PASSWORD" => $rand_password,
"WORK_COMPANY" => $value["#"]["Наименование"][0]["#"],
);

$newUserID = $user->Add($arFields);
if (!intval($newUserID) > 0)
$myImportLog .= 'Не удалось создать пользователя с кодом: ' . $value["#"]["Код"][0]["#"] . "\n";
else
{
//выделяем тип пользователя из xml
if(trim($value["#"]["ЮрФизЛицо"][0]["#"]) == 'Физ. лицо')
$myPersonTypeId = 1;
elseif(trim($value["#"]["ЮрФизЛицо"][0]["#"]) == 'Юр. лицо')
$myPersonTypeId = 2;

$arFields = array(
  "NAME" => $value["#"]["Наименование"][0]["#"],
  "USER_ID" => $newUserID,
  "PERSON_TYPE_ID" => $myPersonTypeId,
);
$PROFILE_ID = CSaleOrderUserProps::Add($arFields);

if ($PROFILE_ID)
{
        //формируем массив свойств
        if($myPersonTypeId == 1)
        {
        $PROPS=Array(
        array(
              "USER_PROPS_ID" => $PROFILE_ID,
              "ORDER_PROPS_ID" => 20,
              "NAME" => "ИНН",
              "VALUE" => $value["#"]["ИНН"][0]["#"]
           ),
        array(
              "USER_PROPS_ID" => $PROFILE_ID,
              "ORDER_PROPS_ID" => 7,
              "NAME" => "Адрес доставки",
              "VALUE" => $value["#"]["Адрес"][0]["#"]
           ),
        array(
              "USER_PROPS_ID" => $PROFILE_ID,
              "ORDER_PROPS_ID" => 3,
              "NAME" => "Телефон",
              "VALUE" => $value["#"]["Телефон"][0]["#"]
           ),
        array(
              "USER_PROPS_ID" => $PROFILE_ID,
              "ORDER_PROPS_ID" => 6,
              "NAME" => "Местоположение",
              "VALUE" => $userLocation['ID']
           ),
         array(
              "USER_PROPS_ID" => $PROFILE_ID,
              "ORDER_PROPS_ID" => 4,
              "NAME" => "Индекс",
              "VALUE" => $userIndex
           )  
        );
        }
        elseif($myPersonTypeId == 2)
        {
        $PROPS=Array(
        array(
              "USER_PROPS_ID" => $PROFILE_ID,
              "ORDER_PROPS_ID" => 10,
              "NAME" => "ИНН",
              "VALUE" => $value["#"]["ИНН"][0]["#"]
           ),
        array(
              "USER_PROPS_ID" => $PROFILE_ID,
              "ORDER_PROPS_ID" => 19,
              "NAME" => "Адрес доставки",
              "VALUE" => $value["#"]["Адрес"][0]["#"]
           ),
        array(
              "USER_PROPS_ID" => $PROFILE_ID,
              "ORDER_PROPS_ID" => 14,
              "NAME" => "Телефон",
              "VALUE" => $value["#"]["Телефон"][0]["#"]
           ),
         array(
              "USER_PROPS_ID" => $PROFILE_ID,
              "ORDER_PROPS_ID" => 18,
              "NAME" => "Местоположение",
              "VALUE" => $userLocation['ID']
           ),
         array(
              "USER_PROPS_ID" => $PROFILE_ID,
              "ORDER_PROPS_ID" => 16,
              "NAME" => "Индекс",
              "VALUE" => $userIndex
           )    
        );
        }
        //добавляем значения свойств к созданному ранее профилю
        foreach ($PROPS as $prop)
           CSaleOrderUserPropsValue::Add($prop);
           
        $user = new CUser;
        if(!$user->Update($newUserID, array('UF_USER_PROPS_ID' => $PROFILE_ID)))
$myImportLog .= 'Ошибка записи ID профиля покупателя в UF_USER_PROPS_ID: ' . $user->LAST_ERROR . "\n";
}
else
$myImportLog .= 'Ошибка создания профиля покупателя для контрагента: ' . $value["#"]["Наименование"][0]["#"] . "\n";

$myContragentSuccessAdd++;  
}
}
else
{
//Если пользователь существует обновляем
$user = new CUser;
$arFields = Array(
// "NAME" => $userlogin,
"NAME"              => $userName,
// "LAST_NAME"         => "Иванов",
"EMAIL"             => $userEmail,
"LOGIN"             => trim($value["#"]["Код"][0]["#"]),
"LID"               => "s1",
"ACTIVE"            => "Y",
// "GROUP_ID"          => array(2),
"WORK_COMPANY" => $value["#"]["Наименование"][0]["#"],
);

if(!$user->Update($arUser['ID'], $arFields))
$myImportLog .= 'Ошибка обновления пользователя: ' . $user->LAST_ERROR . "\n";
else
$myContragentSuccessUpdate++;

// Обновляем данные профиля пользователя (ИНН, Адрес ...)

$db_propVals = CSaleOrderUserPropsValue::GetList(($b="SORT"), ($o="ASC"), Array("USER_PROPS_ID"=>$arUser['UF_USER_PROPS_ID']));
    while ($arPropVals = $db_propVals->Fetch())
{

  if($arPropVals['CODE'] == 'INN')
  {
  $arField = array(
      "USER_PROPS_ID" => $arPropVals['UF_USER_PROPS_ID'],
       "ORDER_PROPS_ID" => $arPropVals['ORDER_PROPS_ID'],
       "NAME" => "ИНН",
       "VALUE" => $value["#"]["ИНН"][0]["#"]
);
  CSaleOrderUserPropsValue::Update($arPropVals['ID'], $arField);
  }
  elseif($arPropVals['CODE'] == 'ADDRESS')
  {
  $arField = array(
  "USER_PROPS_ID" => $arPropVals['UF_USER_PROPS_ID'],
       "ORDER_PROPS_ID" => $arPropVals['ORDER_PROPS_ID'],
       "NAME" => "Адрес доставки",
       "VALUE" => $value["#"]["Адрес"][0]["#"]
);
  CSaleOrderUserPropsValue::Update($arPropVals['ID'], $arField);
  }
  elseif($arPropVals['CODE'] == 'PHONE')
  {
  $arField = array(
  "USER_PROPS_ID" => $arPropVals['UF_USER_PROPS_ID'],
       "ORDER_PROPS_ID" => $arPropVals['ORDER_PROPS_ID'],
       "NAME" => "Телефон",
       "VALUE" => $value["#"]["Телефон"][0]["#"]
);
  CSaleOrderUserPropsValue::Update($arPropVals['ID'], $arField);
  }
  elseif($arPropVals['CODE'] == 'ZIP')
  {
  $arField = array(
  "USER_PROPS_ID" => $arPropVals['UF_USER_PROPS_ID'],
       "ORDER_PROPS_ID" => $arPropVals['ORDER_PROPS_ID'],
       "NAME" => "Индекс",
       "VALUE" => $userIndex
);
  CSaleOrderUserPropsValue::Update($arPropVals['ID'], $arField);
  }
  elseif($arPropVals['CODE'] == 'LOCATION')
  {
  $arField = array(
  "USER_PROPS_ID" => $arPropVals['UF_USER_PROPS_ID'],
       "ORDER_PROPS_ID" => $arPropVals['ORDER_PROPS_ID'],
       "NAME" => "Местоположение",
       "VALUE" => $userLocation['ID']
);
  CSaleOrderUserPropsValue::Update($arPropVals['ID'], $arField);
  }
}

}

$myContragentCount++;
}
$myImportLog .= "\nСоздано пользователей в битриксе: " . $myContragentSuccessAdd;
$myImportLog .= "\nОбновлено пользователей в битриксе: " . $myContragentSuccessUpdate;
$myImportLog .= "\nВыгруженно контрагентов всего: " . $myContragentCount;
//в корне сайта нужно создать файл bitrix_1c_import_log.txt, туда будет писаться лог
file_put_contents( $_SERVER['DOCUMENT_ROOT'] . '/bitrix_1c_import_log.txt', $myImportLog);

// КОНЕЦ ИМПОРТА КОНТРАГЕНТОВ
Таким образом я подружил контрагентов из 1с и пользователей битрикс. Можно применять настройки выгружать полностью или только изменения.

1с 8.2 УТ 10
Битрикс 12

 

 

Источник: http://dev.1c-bitrix.ru/community/webdev/user/173519/blog/8071/

Назад в раздел

Подписаться на новые материалы раздела:
CAPTCHA

Веб-студия «АКРИТ»