Функция ПодготовитьМаркировочныеЛистыССериями(ДокументСсылка,Порядок=0) Экспорт
ТекстЗапроса =
"ВЫБРАТЬ
| ЗаказКлиентаТовары.Ссылка КАК ЗаказСсылка,
| ЗаказКлиентаТовары.Серия КАК Серия,
| ЗаказКлиентаТовары.КодСтроки КАК КодСтроки,
| ЗаказКлиентаТовары.Номенклатура КАК Номенклатура,
| ЗаказКлиентаТовары.КоличествоУпаковок КАК КоличествоУпаковок,
| ЗаказКлиентаТовары.Количество КАК Количество
|ПОМЕСТИТЬ ТоварыЗаказа
|ИЗ
| Документ.ЗаказКлиента.Товары КАК ЗаказКлиентаТовары
|ГДЕ
| ЗаказКлиентаТовары.Ссылка = &ДокументСсылка
|;
|ВЫБРАТЬ
| CG_Online_ЗаказыКлиентовСервисовТовары.НомерЗаказа КАК НомерЗаказа,
| CG_Online_ЗаказыКлиентовСервисовТовары.НомерОтправления КАК НомерОтправления,
| CG_Online_ЗаказыКлиентовСервисовТовары.Артикул КАК Артикул,
| CG_Online_ЗаказыКлиентовСервисовТовары.Товар КАК Товар,
| CG_Online_ЗаказыКлиентовСервисовТовары.УчетнаяЗапись КАК УчетнаяЗапись,
| CG_Online_ЗаказыКлиентовСервисовТовары.ЗаказКлиентаСервиса КАК ЗаказКлиентаСервиса,
| CG_Online_ЗаказыКлиентовСервисовТовары.ЗаказКлиента КАК ЗаказКлиента,
| CG_Online_ЗаказыКлиентовСервисовТовары.КодСтроки КАК КодСтроки,
| CG_Online_ЗаказыКлиентовСервисовТовары.Отменено КАК Отменено,
| CG_Online_IWS_НоменклатураСервисов.Номенклатура КАК Номенклатура,
| CG_Online_IWS_НоменклатураСервисов.Упаковка КАК Упаковка,
| CG_Online_ЗаказыКлиентовСервисовТовары.Количество КАК Количество,
| CG_Online_IWS_НоменклатураСервисов.Характеристика КАК Характеристика,
| CG_Online_ЗаказыКлиентовСервисовТовары.Количество КАК КоличествоУпаковок
|ПОМЕСТИТЬ СписокЗаказов
|ИЗ
| РегистрСведений.CG_Online_ЗаказыКлиентовСервисовТовары КАК CG_Online_ЗаказыКлиентовСервисовТовары
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.CG_Online_IWS_НоменклатураСервисов КАК CG_Online_IWS_НоменклатураСервисов
| ПО CG_Online_ЗаказыКлиентовСервисовТовары.Товар = CG_Online_IWS_НоменклатураСервисов.Ссылка
|ГДЕ
| CG_Online_ЗаказыКлиентовСервисовТовары.ЗаказКлиента = &ДокументСсылка
|;
|
|ВЫБРАТЬ
| СписокЗаказов.НомерЗаказа КАК НомерЗаказа,
| СписокЗаказов.НомерОтправления КАК НомерОтправления,
| СписокЗаказов.Товар КАК Товар,
| СписокЗаказов.Артикул КАК Артикул,
| СписокЗаказов.УчетнаяЗапись КАК УчетнаяЗапись,
| СписокЗаказов.ЗаказКлиентаСервиса КАК ЗаказКлиентаСервиса,
| СписокЗаказов.ЗаказКлиента КАК ЗаказКлиента,
| СписокЗаказов.КодСтроки КАК КодСтроки,
| СписокЗаказов.Отменено КАК Отменено,
| ЗаказКлиентаТовары.Серия КАК Серия,
| СписокЗаказов.Номенклатура КАК Номенклатура,
| СписокЗаказов.Упаковка КАК Упаковка,
| СписокЗаказов.Характеристика КАК Характеристика,
| СписокЗаказов.Количество КАК КоличествоУпаковок,
| ЗаказКлиентаТовары.Количество КАК Количество
|ПОМЕСТИТЬ СписокЗаказовССериями
|ИЗ
| СписокЗаказов КАК СписокЗаказов
| ЛЕВОЕ СОЕДИНЕНИЕ ТоварыЗаказа КАК ЗаказКлиентаТовары
| ПО СписокЗаказов.ЗаказКлиента = ЗаказКлиентаТовары.ЗаказСсылка
| И СписокЗаказов.КодСтроки = ЗаказКлиентаТовары.КодСтроки
| И СписокЗаказов.Номенклатура = ЗаказКлиентаТовары.Номенклатура
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| СписокЗаказов.УчетнаяЗапись КАК УчетнаяЗапись,
| СписокЗаказов.ЗаказКлиента КАК ЗаказКлиента,
| СписокЗаказов.ЗаказКлиентаСервиса КАК ЗаказКлиентаСервиса,
| ЗаказыКлиентовСервисовМаркировкаТоваров.МаркировочныйЛист КАК МаркировочныйЛист,
| ЗаказыКлиентовСервисовМаркировкаТоваров.СтикерЧастьА КАК СтикерЧастьА,
| ЗаказыКлиентовСервисовМаркировкаТоваров.СтикерЧастьВ КАК СтикерЧастьВ,
| ЗаказыКлиентовСервисовМаркировкаТоваров.СтикерЗначение КАК СтикерЗначение,
| СписокЗаказов.Артикул КАК Артикул,
| СписокЗаказов.Товар КАК Товар,
| СписокЗаказов.НомерЗаказа КАК НомерЗаказа,
| СписокЗаказов.НомерОтправления КАК НомерОтправления,
| СписокЗаказов.Количество КАК Количество,
| СписокЗаказов.КодСтроки КАК КодСтроки,
| СписокЗаказов.Отменено КАК Отменено,
| СписокЗаказов.Серия КАК Серия,
| СписокЗаказов.Номенклатура КАК Номенклатура,
| СписокЗаказов.Упаковка КАК Упаковка,
| СписокЗаказов.Характеристика КАК Характеристика,
| СписокЗаказов.КоличествоУпаковок КАК КоличествоУпаковок
|ИЗ
| СписокЗаказовССериями КАК СписокЗаказов
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.CG_Online_ЗаказыКлиентовСервисовМаркировкаТоваров КАК ЗаказыКлиентовСервисовМаркировкаТоваров
| ПО СписокЗаказов.НомерЗаказа = ЗаказыКлиентовСервисовМаркировкаТоваров.НомерЗаказа
| И СписокЗаказов.НомерОтправления = ЗаказыКлиентовСервисовМаркировкаТоваров.НомерОтправления
| И СписокЗаказов.Товар = ЗаказыКлиентовСервисовМаркировкаТоваров.Товар
|
|ГДЕ
| не СписокЗаказов.Отменено
|УПОРЯДОЧИТЬ ПО
| Товар,
| Серия,
| Артикул,
| НомерЗаказа,
| НомерОтправления";
Функция ПодготовитьМаркировочныеЛистыССериями(ДокументСсылка,Порядок=0) Экспорт
ТекстЗапроса =
"ВЫБРАТЬ
| ЗаказКлиентаТовары.Ссылка КАК ЗаказСсылка,
| ЗаказКлиентаТовары.Серия КАК Серия,
| ЗаказКлиентаТовары.КодСтроки КАК КодСтроки,
| ЗаказКлиентаТовары.Номенклатура КАК Номенклатура,
| ЗаказКлиентаТовары.КоличествоУпаковок КАК КоличествоУпаковок,
| ЗаказКлиентаТовары.Количество КАК Количество
|ПОМЕСТИТЬ ТоварыЗаказа
|ИЗ
| Документ.ЗаказКлиента.Товары КАК ЗаказКлиентаТовары
|ГДЕ
| ЗаказКлиентаТовары.Ссылка = &ДокументСсылка
|;
|ВЫБРАТЬ
| CG_Online_ЗаказыКлиентовСервисовТовары.НомерЗаказа КАК НомерЗаказа,
| CG_Online_ЗаказыКлиентовСервисовТовары.НомерОтправления КАК НомерОтправления,
| CG_Online_ЗаказыКлиентовСервисовТовары.Артикул КАК Артикул,
| CG_Online_ЗаказыКлиентовСервисовТовары.Товар КАК Товар,
| CG_Online_ЗаказыКлиентовСервисовТовары.УчетнаяЗапись КАК УчетнаяЗапись,
| CG_Online_ЗаказыКлиентовСервисовТовары.ЗаказКлиентаСервиса КАК ЗаказКлиентаСервиса,
| CG_Online_ЗаказыКлиентовСервисовТовары.ЗаказКлиента КАК ЗаказКлиента,
| CG_Online_ЗаказыКлиентовСервисовТовары.КодСтроки КАК КодСтроки,
| CG_Online_ЗаказыКлиентовСервисовТовары.Отменено КАК Отменено,
| CG_Online_IWS_НоменклатураСервисов.Номенклатура КАК Номенклатура,
| CG_Online_IWS_НоменклатураСервисов.Упаковка КАК Упаковка,
| CG_Online_ЗаказыКлиентовСервисовТовары.Количество КАК Количество,
| CG_Online_IWS_НоменклатураСервисов.Характеристика КАК Характеристика,
| CG_Online_ЗаказыКлиентовСервисовТовары.Количество КАК КоличествоУпаковок
|ПОМЕСТИТЬ СписокЗаказов
|ИЗ
| РегистрСведений.CG_Online_ЗаказыКлиентовСервисовТовары КАК CG_Online_ЗаказыКлиентовСервисовТовары
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.CG_Online_IWS_НоменклатураСервисов КАК CG_Online_IWS_НоменклатураСервисов
| ПО CG_Online_ЗаказыКлиентовСервисовТовары.Товар = CG_Online_IWS_НоменклатураСервисов.Ссылка
|ГДЕ
| CG_Online_ЗаказыКлиентовСервисовТовары.ЗаказКлиента = &ДокументСсылка
|;
|
|ВЫБРАТЬ
| СписокЗаказов.НомерЗаказа КАК НомерЗаказа,
| СписокЗаказов.НомерОтправления КАК НомерОтправления,
| СписокЗаказов.Товар КАК Товар,
| СписокЗаказов.Артикул КАК Артикул,
| СписокЗаказов.УчетнаяЗапись КАК УчетнаяЗапись,
| СписокЗаказов.ЗаказКлиентаСервиса КАК ЗаказКлиентаСервиса,
| СписокЗаказов.ЗаказКлиента КАК ЗаказКлиента,
| СписокЗаказов.КодСтроки КАК КодСтроки,
| СписокЗаказов.Отменено КАК Отменено,
| ЗаказКлиентаТовары.Серия КАК Серия,
| СписокЗаказов.Номенклатура КАК Номенклатура,
| СписокЗаказов.Упаковка КАК Упаковка,
| СписокЗаказов.Характеристика КАК Характеристика,
| СписокЗаказов.Количество КАК КоличествоУпаковок,
| ЗаказКлиентаТовары.Количество КАК Количество
|ПОМЕСТИТЬ СписокЗаказовССериями
|ИЗ
| СписокЗаказов КАК СписокЗаказов
| ЛЕВОЕ СОЕДИНЕНИЕ ТоварыЗаказа КАК ЗаказКлиентаТовары
| ПО СписокЗаказов.ЗаказКлиента = ЗаказКлиентаТовары.ЗаказСсылка
| И СписокЗаказов.КодСтроки = ЗаказКлиентаТовары.КодСтроки
| И СписокЗаказов.Номенклатура = ЗаказКлиентаТовары.Номенклатура
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| СписокЗаказов.УчетнаяЗапись КАК УчетнаяЗапись,
| СписокЗаказов.ЗаказКлиента КАК ЗаказКлиента,
| СписокЗаказов.ЗаказКлиентаСервиса КАК ЗаказКлиентаСервиса,
| ЗаказыКлиентовСервисовМаркировкаТоваров.МаркировочныйЛист КАК МаркировочныйЛист,
| ЗаказыКлиентовСервисовМаркировкаТоваров.СтикерЧастьА КАК СтикерЧастьА,
| ЗаказыКлиентовСервисовМаркировкаТоваров.СтикерЧастьВ КАК СтикерЧастьВ,
| ЗаказыКлиентовСервисовМаркировкаТоваров.СтикерЗначение КАК СтикерЗначение,
| СписокЗаказов.Артикул КАК Артикул,
| СписокЗаказов.Товар КАК Товар,
| СписокЗаказов.НомерЗаказа КАК НомерЗаказа,
| СписокЗаказов.НомерОтправления КАК НомерОтправления,
| СписокЗаказов.Количество КАК Количество,
| СписокЗаказов.КодСтроки КАК КодСтроки,
| СписокЗаказов.Отменено КАК Отменено,
| СписокЗаказов.Серия КАК Серия,
| СписокЗаказов.Номенклатура КАК Номенклатура,
| СписокЗаказов.Упаковка КАК Упаковка,
| СписокЗаказов.Характеристика КАК Характеристика,
| СписокЗаказов.КоличествоУпаковок КАК КоличествоУпаковок
|ИЗ
| СписокЗаказовССериями КАК СписокЗаказов
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.CG_Online_ЗаказыКлиентовСервисовМаркировкаТоваров КАК ЗаказыКлиентовСервисовМаркировкаТоваров
| ПО СписокЗаказов.НомерЗаказа = ЗаказыКлиентовСервисовМаркировкаТоваров.НомерЗаказа
| И СписокЗаказов.НомерОтправления = ЗаказыКлиентовСервисовМаркировкаТоваров.НомерОтправления
| И СписокЗаказов.Товар = ЗаказыКлиентовСервисовМаркировкаТоваров.Товар
|
|ГДЕ
| не СписокЗаказов.Отменено
|УПОРЯДОЧИТЬ ПО
| Товар,
| Серия,
| Артикул,
| НомерЗаказа,
| НомерОтправления";
Функция ПримерВызоваМетодаAPI()
Соединение = Новый HTTPСоединение("https://<адрес API>",,,,,5,Новый ЗащищенноеСоединениеOpenSSL);
Запрос = Новый HTTPЗапрос();
Запрос.АдресРесурса = "/api/v1/echo";
Запрос.Заголовки.Вставить("Authorization", "Ключ сервиса");
Запрос.Заголовки.Вставить("Content-Type", "application/json");
ДанныеДляПередачи = Новый Структура("data");
ЗаписьJSON = Новый ЗаписьJSON;
ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(, Символы.Таб);
ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
ЗаписатьJSON(ЗаписьJSON, ДанныеДляПередачи);
ТелоЗапросаСтрока = ЗаписьJSON.Закрыть();
Запрос.УстановитьТелоИзСтроки(ТелоЗапросаСтрока);
ОтветHTTP = Соединение.ВызватьHTTPМетод("POST", Запрос);
КодСостояния = ОтветHTTP.КодСостояния;
Если КодСостояния < 200 Или КодСостояния >= 300 Тогда
Сообщить("Ошибка " + КодСостояния + " подключения к сервису " + ОтветHTTP.ПолучитьТелоКакСтроку());
Возврат Неопределено;
КонецЕсли;
СтрокаJSON = ОтветHTTP.ПолучитьТелоКакСтроку();
Возврат СтрокаJSON;
КонецФункции
Функция ПримерВызоваМетодаAPI()
Соединение = Новый HTTPСоединение("https://<адрес API>",,,,,5,Новый ЗащищенноеСоединениеOpenSSL);
Запрос = Новый HTTPЗапрос();
Запрос.АдресРесурса = "/api/v1/echo";
Запрос.Заголовки.Вставить("Authorization", "Ключ сервиса");
Запрос.Заголовки.Вставить("Content-Type", "application/json");
ДанныеДляПередачи = Новый Структура("data");
ЗаписьJSON = Новый ЗаписьJSON;
ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(, Символы.Таб);
ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
ЗаписатьJSON(ЗаписьJSON, ДанныеДляПередачи);
ТелоЗапросаСтрока = ЗаписьJSON.Закрыть();
Запрос.УстановитьТелоИзСтроки(ТелоЗапросаСтрока);
ОтветHTTP = Соединение.ВызватьHTTPМетод("POST", Запрос);
КодСостояния = ОтветHTTP.КодСостояния;
Если КодСостояния < 200 Или КодСостояния >= 300 Тогда
Сообщить("Ошибка " + КодСостояния + " подключения к сервису " + ОтветHTTP.ПолучитьТелоКакСтроку());
Возврат Неопределено;
КонецЕсли;
СтрокаJSON = ОтветHTTP.ПолучитьТелоКакСтроку();
Возврат СтрокаJSON;
КонецФункции
// Проверить расположен ли элемент управляемой формы ПроверяемыйЭлемент внутри элемента Родитель.
// Параметры:
// Родитель - ГруппаФормы, ТаблицаФормы, ФормаКлиентскогоПриложения -
// ПроверяемыйЭлемент - ПолеФормы, ГруппаФормы, ТаблицаФормы, КнопкаФормы, ДекорацияФормы -
// Возвращаемое значение:
// Булево -
Функция ЛиВнутриРодителяФормыЛкс(Знач Родитель, Знач ПроверяемыйЭлемент) Экспорт
ТекущийРодитель = ПроверяемыйЭлемент;
Пока Истина Цикл
Если ТекущийРодитель = Родитель Тогда
Возврат Истина;
КонецЕсли;
Если ТипЗнч(ТекущийРодитель) = Тип("ФормаКлиентскогоПриложения") Тогда
Возврат Ложь;
КонецЕсли;
ТекущийРодитель = ТекущийРодитель.Родитель;
КонецЦикла;
КонецФункции
// Проверить расположен ли элемент управляемой формы ПроверяемыйЭлемент внутри элемента Родитель.
// Параметры:
// Родитель - ГруппаФормы, ТаблицаФормы, ФормаКлиентскогоПриложения -
// ПроверяемыйЭлемент - ПолеФормы, ГруппаФормы, ТаблицаФормы, КнопкаФормы, ДекорацияФормы -
// Возвращаемое значение:
// Булево -
Функция ЛиВнутриРодителяФормыЛкс(Знач Родитель, Знач ПроверяемыйЭлемент) Экспорт
ТекущийРодитель = ПроверяемыйЭлемент;
Пока Истина Цикл
Если ТекущийРодитель = Родитель Тогда
Возврат Истина;
КонецЕсли;
Если ТипЗнч(ТекущийРодитель) = Тип("ФормаКлиентскогоПриложения") Тогда
Возврат Ложь;
КонецЕсли;
ТекущийРодитель = ТекущийРодитель.Родитель;
КонецЦикла;
КонецФункции