()
- Если нет, в целом функционал реализован в форме, не в модуле объекта? (удобно ли будет переделать под фоновые задания)
Там на самом деле не много усилий, чтобы перенести текст в модуль обработки.
1. Добавляем команды:
Функция СведенияОВнешнейОбработке() Экспорт
ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("1.1.1.1");
ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиДополнительнаяОбработка();
ПараметрыРегистрации.Версия = "1.3";
ПараметрыРегистрации.БезопасныйРежим = Ложь;
СтрокаКоманды = ПараметрыРегистрации.Команды.Добавить();
СтрокаКоманды.Представление = НСтр("ru = 'Обмен ОЗОН (регл. задание)'");
СтрокаКоманды.Идентификатор = "ОбменОЗОН_Регламент";
СтрокаКоманды.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
СтрокаКоманды.ПоказыватьОповещение = Истина;
СтрокаКоманды = ПараметрыРегистрации.Команды.Добавить();
СтрокаКоманды.Представление = НСтр("ru = 'Обмен ОЗОН (регл. задание полный обмен)'");
СтрокаКоманды.Идентификатор = "ОбменОЗОН_РегламентПолный";
СтрокаКоманды.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
СтрокаКоманды.ПоказыватьОповещение = Истина;
СтрокаКоманды = ПараметрыРегистрации.Команды.Добавить();
СтрокаКоманды.Идентификатор = Новый УникальныйИдентификатор;
СтрокаКоманды.Представление = "Обмен ОЗОН";
СтрокаКоманды.ПоказыватьОповещение = Истина;
СтрокаКоманды.Использование = "ОткрытиеФормы";
Возврат ПараметрыРегистрации;
КонецФункции
Показать
2. Прописываем процедуру выполнения команды:
Процедура ВыполнитьКоманду(ИдентификаторКоманды,ПараметрыОбработки = Неопределено) Экспорт
Если ИдентификаторКоманды = "ОбменОЗОН_Регламент" Тогда
ПолныйОбмен = Ложь;
Иначе
ПолныйОбмен = Истина;
КонецЕсли;
ВыполнитьРегламентноеЗадание(ПолныйОбмен);
КонецПроцедуры
Показать
3. Создаем дерево значений, для обработки заказов:
&НаСервере
Процедура ВыполнитьРегламентноеЗадание(пПолныйОбмен=Ложь) Экспорт
ЗагрузитьНастройкиФормы();
МассивТиповЧисло = Новый Массив;
МассивТиповЧисло.Добавить(Тип("Число"));
КЧ = Новый КвалификаторыЧисла(30);
ОписаниеЧисло = Новый ОписаниеТипов(МассивТиповЧисло,КЧ);
МассивТиповСтрока = Новый Массив;
МассивТиповСтрока.Добавить(Тип("Строка"));
КС = Новый КвалификаторыСтроки(0);
ОписаниеСтрока = Новый ОписаниеТипов(МассивТиповСтрока, КС);
НовыеЗаказы.Колонки.Добавить("shipment_date", ОписаниеСтрока);
НовыеЗаказы.Колонки.Добавить("order_id", ОписаниеЧисло);
НовыеЗаказы.Колонки.Добавить("order_number", ОписаниеСтрока);
НовыеЗаказы.Колонки.Добавить("posting_number", ОписаниеСтрока);
НовыеЗаказы.Колонки.Добавить("status", ОписаниеСтрока);
НовыеЗаказы.Колонки.Добавить("cancel_reason_id", ОписаниеЧисло);
НовыеЗаказы.Колонки.Добавить("created_at", ОписаниеСтрока);
НовыеЗаказы.Колонки.Добавить("in_process_at", ОписаниеСтрока);
НовыеЗаказы.Колонки.Добавить("sku", ОписаниеЧисло);
НовыеЗаказы.Колонки.Добавить("name", ОписаниеСтрока);
НовыеЗаказы.Колонки.Добавить("quantity", ОписаниеСтрока);
НовыеЗаказы.Колонки.Добавить("offer_id", ОписаниеСтрока);
НовыеЗаказы.Колонки.Добавить("price", ОписаниеСтрока);
//синзронизация товара
Для Каждого ТорговаяПлощадка Из Api_Key Цикл
ПолучениеСпискаТоваровС_ОЗОН_НаСервере(Истина, ТорговаяПлощадка.Значение);
//создание документов "Заказ клиента" на основе полученных данных
Если не ПолныйОбмен Тогда
СоздатьЗаказыНаСервере(Истина, ТорговаяПлощадка.Значение);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Показать
Прописываем процедуры сохранения и загрузки настроек:
&НаСервере
Процедура СохранитьНастройкиФормы()
Настройки = Новый Структура;
Настройки.Вставить("Host", Объект.Host );
Настройки.Вставить("Client_Id", Объект.Client_Id );
Настройки.Вставить("Api_Key", Объект.Api_Key );
ДополнительнаяОбработкаОбъект = Параметры.ДополнительнаяОбработкаСсылка.ПолучитьОбъект();
ДополнительнаяОбработкаОбъект.ХранилищеНастроек = Новый ХранилищеЗначения(Настройки);
ДополнительнаяОбработкаОбъект.Записать();
КонецПроцедуры
&НаСервере
Процедура ЗагрузитьНастройкиФормы()
Попытка
//Настройки = ХранилищеОбщихНастроек.Загрузит("Обработка.ОЗОН", "НастройкаОбмена",,"ПользовательОбмена");
ХранилищеНастроек = Параметры.ДополнительнаяОбработкаСсылка.ХранилищеНастроек;
Настройки = ХранилищеНастроек.Получить();
Если Настройки <> Неопределено Тогда
ЗаполнитьЗначенияСвойств(Объект, Настройки, "Host, Client_Id, Api_Key");
КонецЕсли;
Исключение
СписокСобытий = Новый СписокЗначений;
СтруктураСобытия = Новый Структура;
СтруктураСобытия.Вставить("ИмяСобытия", "Обмен ОЗОН (ошибка загрузки настроек)");
СтруктураСобытия.Вставить("ПредставлениеУровня", "Ошибка");
СтруктураСобытия.Вставить("Комментарий", ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
СписокСобытий.Добавить(СтруктураСобытия);
ЖурналРегистрации.ЗаписатьСобытияВЖурналРегистрации(СписокСобытий);
КонецПопытки;
КонецПроцедуры
Показать
Переносим процедуры, которые будут выполняться в фоне из модуля формы в модуль обработки.
и вместо СообщитьПользователю(), при ошибках обмена, прописываем запись в журнал регистрации:
&НаСервере
Процедура ЗаписатьОтобразитьОшибку(ИмяСобытия, ТекстОшибки)
Перем Ошибки;
Если ЭтоФоновоеЗадание Тогда
СписокСобытий = Новый СписокЗначений;
СтруктураСобытия = Новый Структура;
СтруктураСобытия.Вставить("ИмяСобытия", ИмяСобытия);
СтруктураСобытия.Вставить("ПредставлениеУровня", "Ошибка");
СтруктураСобытия.Вставить("Комментарий", ТекстОшибки);
СписокСобытий.Добавить(СтруктураСобытия);
ЖурналРегистрации.ЗаписатьСобытияВЖурналРегистрации(СписокСобытий);
врВызватьИсключение = Истина;
Иначе
ОбщегоНазначенияКлиентСервер.ДобавитьОшибкуПользователю(Ошибки, "", ИмяСобытия + Символы.ПС + ТекстОшибки, "");
ОбщегоНазначенияКлиентСервер.СообщитьОшибкиПользователю(Ошибки);
КонецЕсли;
КонецПроцедуры
Показать