Здравствуйте, в программе название задания условно "Задание на работу №6 от 05.03.2025"
В GitLab приходит №НФНФ-000004 от 03.03.2025
Процедура РЧ2025_ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
ТокенGitLab = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(РЧ2025_Проект, "РЧ2025_ТокенGitLab");
Если Не ЗначениеЗаполнено(ТокенGitLab)Тогда
Возврат;
КонецЕсли;
Если ЗначениеЗаполнено(РЧ2025_ИдентификаторGitlab) Тогда
Возврат;
КонецЕсли;
АдресСервера = "gitlab.com";
ПутьНаСервере = "";
Соединение = Новый HTTPСоединение(АдресСервера,,,,,, Новый ЗащищенноеСоединениеOpenSSL);
ДанныеЗапроса = Новый Структура;
ДанныеЗапроса.Вставить("title", СтрШаблон("№%1 от %2", Номер, Формат(Дата, "ДЛФ=D")));
ДанныеЗапроса.Вставить("labels", Строка(РЧ2025_ДанныеКалендаря.КолонкаКалендаряЗадачи(Ссылка, КалендарьСотрудника)));
ТелоЗапроса = ЗаписатьЗначениеJSON(ДанныеЗапроса);
Заголовки = Новый Соответствие;
Заголовки.Вставить("PRIVATE-TOKEN", ТокенGitLab);
Заголовки.Вставить("Content-Type", "application/json");
Запрос = Новый HTTPЗапрос(ПутьНаСервере, Заголовки);
Запрос.УстановитьТелоИзСтроки(ТелоЗапроса);
Попытка
Ответ = Соединение.ОтправитьДляОбработки(Запрос);
Исключение
ОбщегоНазначения.СообщитьПользователю("Не удалось отправить задачу в GitLab, повторная попытка будет выполнена при следующей записи");
Возврат;
КонецПопытки;
Если Ответ.КодСостояния >= 300 Тогда
ОбщегоНазначения.СообщитьПользователю("Не удалось отправить задачу в GitLab, повторная попытка будет выполнена при следующей записи");
Возврат;
КонецЕсли;
ТелоОтвета = Ответ.ПолучитьТелоКакСтроку();
ДанныеОтвета = ПрочитатьЗначениеJSON(ТелоОтвета);
РЧ2025_ИдентификаторGitlab = ДанныеОтвета.iid;
КонецПроцедуры
Показать