Модули интеграции для Битрикс24

&НаКлиенте
Процедура cmd_Запрос(Команда)
   НастройкаСинхронизации = Объект.СправочникНастройки; // берем штатные настройки
   ОбщиеНастройки =  Б24_Синхр_СинхронизацияКлиентСервер.СформироватьБазовуюСтруктуруНастроек(НастройкаСинхронизации);  // инициируем настройки
   Если ОбщиеНастройки = Неопределено Тогда
      Возврат;
   КонецЕсли;
   sID = Объект.ID; //   выбираем заказ
   sLEAD_ID           = yz_Б24_ПолучитьДанныеУказаногоПоля( ОбщиеНастройки ,"crm.deal.get?id=" , sID      , "LEAD_ID" ); // зачитать лид из сделки
   STATUS_SEMANTIC_ID = yz_Б24_ПолучитьДанныеУказаногоПоля( ОбщиеНастройки ,"crm.lead.get?id=" , sLEAD_ID , "STATUS_SEMANTIC_ID" ); // зачитать по лиду поле STATUS_SEMANTIC_ID 
   если STATUS_SEMANTIC_ID = "S" тогда // если ЛИД успешно обработан , провести оплату 
       // тут провести документ по оплате
   конецесли
КонецПроцедуры

&НаСервере
функция yz_Б24_ПолучитьДанныеУказаногоПоля ( пОбщиеНастройки, Команда , НомерID ,Поле )
   Результат = Неопределено; 
   ПрефиксВнешнихКодовБитрикс24 = Б24_Синхр_СинхронизацияСервер.ПолучитьПрефиксВнешнихКодовБитрикс24();   
   СтруктураДанных = Новый Структура;
   СтруктураДанных.Вставить("ИнформацияОСделках"         , Новый Массив);
   Метод            = Команда  + НомерID;  
   мЗапросы = Новый Массив;
   мЗапросы.Добавить(Метод);
   ТелоHTTPЗапроса = "";
   ТелоHTTPЗапроса = ТелоHTTPЗапроса + "&" + "cmd[S]=" + Б24_Синхр_RestApiВызовСервера.ЗакодироватьСтрокуСервер(Метод);
   СтруктураОтвета = Б24_Синхр_RestApiВызовСервера.ОтправкаДанныхНаПорталЧерезBatch(пОбщиеНастройки, ТелоHTTPЗапроса);
   Если СтруктураОтвета = Неопределено Тогда
      Возврат Результат;
   КонецЕсли;
   result = СтруктураОтвета.Получить("result");                                             
   Если result <> Неопределено Тогда                                                         
      result2 = result.Получить("result");
      Если result2 <> Неопределено Тогда       
         ДанныеЛидов          = result2.Получить("S"); 
         Если ДанныеЛидов <> Неопределено Тогда
            Результат = ДанныеЛидов.Получить(Поле)  ; 
         КонецЕсли;
      КонецЕсли;
   КонецЕсли;
   Возврат Результат;   
конецфункции

&НаСервере
Процедура ПриОткрытииНаСервере()
   Объект.ID ="1695";     // прибиваем гвоздями это для проверки
   Объект.СправочникНастройки = Справочники.Б24_Синхр_НастройкиСинхронизацииСБитрикс24.НайтиПоКоду("000000001"); // прибиваем гвоздями наш случай код = 1
   НастройкаСинхронизации = Объект.СправочникНастройки;
КонецПроцедуры


&НаКлиенте
Процедура ПриОткрытии(Отказ)
   ПриОткрытииНаСервере();
КонецПроцедуры