База знаний АО АСП

Описание сервисов сборка: различия между версиями

← Предыдущая правка
ВизуальныйВики-текст
Нет описания правки
Нет описания правки
 
(не показаны 3 промежуточные версии этого же участника)
Строка 2: Строка 2:


Описание
Описание
|


'''Назначение:''' Сервис предназначен для проверки соединения с АСП.Склад WMS.
'''Назначение:''' Сервис предназначен для проверки соединения с АСП.Склад WMS.
Строка 14: Строка 13:


Пример вызова 1C
Пример вызова 1C
|


<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


&НаСервере Процедура ПроверитьПодключениеНаСервере() Прокси = ПолучитьПрокси(); Результат = Прокси.ПроверитьПодключение(); Сообщить(Результат); КонецПроцедуры </syntaxhighlight>Пример вызова XML
&НаСервере Процедура ПроверитьПодключениеНаСервере() Прокси = ПолучитьПрокси(); Результат = Прокси.ПроверитьПодключение(); Сообщить(Результат); КонецПроцедуры </syntaxhighlight>
|


<syntaxhighlight lang="xml checkConnect.xml">
Пример вызова XML
 
<syntaxhighlight lang="xml">
<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
Строка 35: Строка 34:


Пример ответа XML
Пример ответа XML
|


<syntaxhighlight lang="xml checkConnectResponse.xml">
<syntaxhighlight lang="xml">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 53: Строка 51:


Описание
Описание
|


'''Назначение:''' Операция предназначена для выгрузки и обновления номенклатуры из учетной системы в АСП.Склад WMS.
'''Назначение:''' Операция предназначена для выгрузки и обновления номенклатуры из учетной системы в АСП.Склад WMS.
Строка 70: Строка 67:


Пример вызова 1С
Пример вызова 1С
|


<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


Процедура ВыгрузитьНоменклатуруНаСервере() Прокси = ПолучитьПрокси(); Фабрика = Прокси.ФабрикаXDTO; Запрос = Новый Запрос; Запрос.Текст =  "ВЫБРАТЬ | Номенклатура.Ссылка |ИЗ | Справочник.Номенклатура КАК Номенклатура |ГДЕ | (&ВсяНоменклатура | ИЛИ Номенклатура.Ссылка В ИЕРАРХИИ (&Номенклатура)) | И НЕ Номенклатура.ЭтоГруппа"; Запрос.УстановитьПараметр("Номенклатура", Номенклатура); Запрос.УстановитьПараметр("ВсяНоменклатура", НЕ ЗначениеЗаполнено(Номенклатура)); Выборка = Запрос.Выполнить().Выбрать(); Пока Выборка.Следующий() Цикл Результат = Прокси.СоздатьНоменклатуру(СформироватьНоменклатуру(Выборка.Ссылка,Фабрика)); Сообщить(Результат); КонецЦикла;  КонецПроцедуры </syntaxhighlight>Пример вызова XML
Процедура ВыгрузитьНоменклатуруНаСервере() Прокси = ПолучитьПрокси(); Фабрика = Прокси.ФабрикаXDTO; Запрос = Новый Запрос; Запрос.Текст =  "ВЫБРАТЬ | Номенклатура.Ссылка |ИЗ | Справочник.Номенклатура КАК Номенклатура |ГДЕ | (&ВсяНоменклатура | ИЛИ Номенклатура.Ссылка В ИЕРАРХИИ (&Номенклатура)) | И НЕ Номенклатура.ЭтоГруппа"; Запрос.УстановитьПараметр("Номенклатура", Номенклатура); Запрос.УстановитьПараметр("ВсяНоменклатура", НЕ ЗначениеЗаполнено(Номенклатура)); Выборка = Запрос.Выполнить().Выбрать(); Пока Выборка.Следующий() Цикл Результат = Прокси.СоздатьНоменклатуру(СформироватьНоменклатуру(Выборка.Ссылка,Фабрика)); Сообщить(Результат); КонецЦикла;  КонецПроцедуры  
|


<syntaxhighlight lang="xml createProduct.xml">
</syntaxhighlight>
 
Пример вызова XML
 
<syntaxhighlight lang="xml">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Body>
<soap-env:Body>
Строка 138: Строка 137:


Пример ответа XML
Пример ответа XML
|


<syntaxhighlight lang="xml createProductResponse.xml">
<syntaxhighlight lang="xml">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 156: Строка 154:


Описание
Описание
|


'''Назначение:''' Выполняет загрузку контрагентов в АСП.Склад WMS.
'''Назначение:''' Выполняет загрузку контрагентов в АСП.Склад WMS.
Строка 168: Строка 165:


Пример вызова 1C
Пример вызова 1C
|


<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


Процедура ВыгрузитьКонтрагентаНаСервере()Прокси = ПолучитьПрокси();Фабрика = Прокси.ФабрикаXDTO;Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ| Контрагенты.Ссылка|ИЗ| Справочник.Контрагенты КАК Контрагенты|ГДЕ| Контрагенты.Ссылка В ИЕРАРХИИ(&Контрагент)| И НЕ Контрагенты.ЭтоГруппа";Запрос.УстановитьПараметр("Контрагент", Контрагент); Выборка = Запрос.Выполнить().Выбрать();Пока Выборка.Следующий() ЦиклКонтрагент = СформироватьКонтрагента(Выборка.Ссылка,Фабрика);Если ТипЗнч(Контрагент) = Тип("Строка") ТогдаСообщить(Контрагент);Продолжить;КонецЕсли; Результат = Прокси.СоздатьКонтрагента(Контрагент);КонецЦикла; КонецПроцедуры </syntaxhighlight>Пример вызова XML
Процедура ВыгрузитьКонтрагентаНаСервере()Прокси = ПолучитьПрокси();Фабрика = Прокси.ФабрикаXDTO;Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ| Контрагенты.Ссылка|ИЗ| Справочник.Контрагенты КАК Контрагенты|ГДЕ| Контрагенты.Ссылка В ИЕРАРХИИ(&Контрагент)| И НЕ Контрагенты.ЭтоГруппа";Запрос.УстановитьПараметр("Контрагент", Контрагент); Выборка = Запрос.Выполнить().Выбрать();Пока Выборка.Следующий() ЦиклКонтрагент = СформироватьКонтрагента(Выборка.Ссылка,Фабрика);Если ТипЗнч(Контрагент) = Тип("Строка") ТогдаСообщить(Контрагент);Продолжить;КонецЕсли; Результат = Прокси.СоздатьКонтрагента(Контрагент);КонецЦикла; КонецПроцедуры </syntaxhighlight>Пример вызова XML
|


<syntaxhighlight lang="xml createAgent.xml">
 
<syntaxhighlight lang="xml>
<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
Строка 193: Строка 189:


Пример ответа XML
Пример ответа XML
|


<syntaxhighlight lang="xml createAgentResponse.xml">
 
<syntaxhighlight lang="xml">
soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 211: Строка 207:


Описание
Описание
|


'''Назначение:''' Выполняет загрузку упаковок в АСП.Склад WMS.
'''Назначение:''' Выполняет загрузку упаковок в АСП.Склад WMS.
Строка 224: Строка 219:


Пример вызова 1C
Пример вызова 1C
|


<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


&НаСервере Процедура ВыгрузитьУпаковкуНаСервере()Прокси = ПолучитьПрокси();Фабрика = Прокси.ФабрикаXDTO;Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ| Упаковки.Ссылка|ИЗ| Справочник.УпаковкиЕдиницыИзмерения КАК Упаковки; Выборка = Запрос.Выполнить().Выбрать();Пока Выборка.Следующий() ЦиклУпаковка = СформироватьУпаковку(Выборка.Ссылка,Фабрика);Если ТипЗнч(Упаковка) = Тип("Строка") ТогдаСообщить(Упаковка);Продолжить;КонецЕсли; Результат = Прокси.СоздатьУпаковку(Упаковка);КонецЦикла; КонецПроцедуры </syntaxhighlight>Пример вызова XML
&НаСервере Процедура ВыгрузитьУпаковкуНаСервере()Прокси = ПолучитьПрокси();Фабрика = Прокси.ФабрикаXDTO;Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ| Упаковки.Ссылка|ИЗ| Справочник.УпаковкиЕдиницыИзмерения КАК Упаковки; Выборка = Запрос.Выполнить().Выбрать();Пока Выборка.Следующий() ЦиклУпаковка = СформироватьУпаковку(Выборка.Ссылка,Фабрика);Если ТипЗнч(Упаковка) = Тип("Строка") ТогдаСообщить(Упаковка);Продолжить;КонецЕсли; Результат = Прокси.СоздатьУпаковку(Упаковка);КонецЦикла; КонецПроцедуры </syntaxhighlight>
|
 
Пример вызова XML


<syntaxhighlight lang="xml createPackage.xml">
 
<syntaxhighlight lang="xml">
<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
Строка 249: Строка 245:


Пример ответа XML
Пример ответа XML
|


<syntaxhighlight lang="xml resposeСreatePackage.xml">
<syntaxhighlight lang="xml">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 267: Строка 262:


Описание
Описание
|


'''Назначение:''' Выполняет загрузку массива документов в АСП.Склад WMS.
'''Назначение:''' Выполняет загрузку массива документов в АСП.Склад WMS.
Строка 282: Строка 276:


Пример вызова 1С
Пример вызова 1С
|


<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>
Строка 289: Строка 282:
|<syntaxhighlight lang='1c'>
|<syntaxhighlight lang='1c'>
Процедура РазобратьОтвет(ДанныеОтвета) ТаблицаРезультатов = Новый ТаблицаЗначений; ТаблицаРезультатов.Колонки.Добавить("ТипДокумента"); ТаблицаРезультатов.Колонки.Добавить("Документ"); ТаблицаРезультатов.Колонки.Добавить("Результат"); Для Каждого Ответ Из ДанныеОтвета.МассивРезультатов Цикл  НовРез = ТаблицаРезультатов.Добавить(); НовРез.ТипДокумента = ТекущееСоответствие.Сборка; НовРез.Документ = НайтиДокумент(Ответ.Документ, ТекущееСоответствие); НовРез.Результат = Ответ.РезультатТранзакции; КонецЦикла; ТаблицаРезультатов.Сортировать("ТипДокумента"); Обработка = РеквизитФормыВЗначение("Объект"); Макет = Обработка.ПолучитьМакет("Макет"); ШапкаТД = Макет.ПолучитьОбласть("Шапка"); ГруппаДок = Макет.ПолучитьОбласть("ГруппаДокументов"); СтрокаДок = Макет.ПолучитьОбласть("СтрокаДокумент"); ТД.Очистить(); ШапкаТД.Параметры.ТипОбъекта = "Документ"; ТД.Вывести(ШапкаТД); ТД.НачатьАвтогруппировкуСтрок(); ТекТип = ""; ПараметрыОтбора = Новый Структура; ПараметрыОтбора.Вставить("ТипДокумента"); Для Каждого Рез Из ТаблицаРезультатов Цикл Если ТекТип <> Рез.ТипДокумента Тогда ТекТип = Рез.ТипДокумента; ГруппаДок.Параметры.Заполнить(Рез); ГруппаДок.Параметры.ТипДокумента = ТипВСборке(Рез.ТипДокумента); ПараметрыОтбора.ТипДокумента = Рез.ТипДокумента; ГруппаДок.Параметры.КоличествоЗагружено = ТаблицаРезультатов.НайтиСтроки(ПараметрыОтбора).Количество(); ТД.Вывести(ГруппаДок,1); КонецЕсли; СтрокаДок.Параметры.Заполнить(Рез); ТД.Вывести(СтрокаДок); КонецЦикла; ТД.ЗакончитьАвтогруппировкуСтрок(); ТД.ТолькоПросмотр = Истина; КонецПроцедуры  Функция НайтиДокумент(ДокументХ, ТипДокументаСтрокой) Запрос = Новый Запрос; Запрос.Текст =  "ВЫБРАТЬ | ТипДок.Ссылка |ИЗ | Документ.#ТипДок# КАК ТипДок |ГДЕ | ТипДок.Номер ПОДОБНО &Номер | И НАЧАЛОПЕРИОДА(ТипДок.Дата, ДЕНЬ) = НАЧАЛОПЕРИОДА(&Дата, ДЕНЬ)"; Запрос.УстановитьПараметр("Дата", ДокументХ.Дата); Запрос.УстановитьПараметр("Номер", "%"+СокрЛП(ДокументХ.Номер)+"%"); Запрос.Текст = СтрЗаменить(Запрос.Текст,"#ТипДок#",СтрЗаменить(ТипДокументаСтрокой," ","")); Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда  Возврат Выборка.Ссылка; Иначе  Возврат Документы[СтрЗаменить(ТипДокументаСтрокой," ","")].ПустаяСсылка(); КонецЕсли; КонецФункции  </syntaxhighlight>Пример вызова XML
Процедура РазобратьОтвет(ДанныеОтвета) ТаблицаРезультатов = Новый ТаблицаЗначений; ТаблицаРезультатов.Колонки.Добавить("ТипДокумента"); ТаблицаРезультатов.Колонки.Добавить("Документ"); ТаблицаРезультатов.Колонки.Добавить("Результат"); Для Каждого Ответ Из ДанныеОтвета.МассивРезультатов Цикл  НовРез = ТаблицаРезультатов.Добавить(); НовРез.ТипДокумента = ТекущееСоответствие.Сборка; НовРез.Документ = НайтиДокумент(Ответ.Документ, ТекущееСоответствие); НовРез.Результат = Ответ.РезультатТранзакции; КонецЦикла; ТаблицаРезультатов.Сортировать("ТипДокумента"); Обработка = РеквизитФормыВЗначение("Объект"); Макет = Обработка.ПолучитьМакет("Макет"); ШапкаТД = Макет.ПолучитьОбласть("Шапка"); ГруппаДок = Макет.ПолучитьОбласть("ГруппаДокументов"); СтрокаДок = Макет.ПолучитьОбласть("СтрокаДокумент"); ТД.Очистить(); ШапкаТД.Параметры.ТипОбъекта = "Документ"; ТД.Вывести(ШапкаТД); ТД.НачатьАвтогруппировкуСтрок(); ТекТип = ""; ПараметрыОтбора = Новый Структура; ПараметрыОтбора.Вставить("ТипДокумента"); Для Каждого Рез Из ТаблицаРезультатов Цикл Если ТекТип <> Рез.ТипДокумента Тогда ТекТип = Рез.ТипДокумента; ГруппаДок.Параметры.Заполнить(Рез); ГруппаДок.Параметры.ТипДокумента = ТипВСборке(Рез.ТипДокумента); ПараметрыОтбора.ТипДокумента = Рез.ТипДокумента; ГруппаДок.Параметры.КоличествоЗагружено = ТаблицаРезультатов.НайтиСтроки(ПараметрыОтбора).Количество(); ТД.Вывести(ГруппаДок,1); КонецЕсли; СтрокаДок.Параметры.Заполнить(Рез); ТД.Вывести(СтрокаДок); КонецЦикла; ТД.ЗакончитьАвтогруппировкуСтрок(); ТД.ТолькоПросмотр = Истина; КонецПроцедуры  Функция НайтиДокумент(ДокументХ, ТипДокументаСтрокой) Запрос = Новый Запрос; Запрос.Текст =  "ВЫБРАТЬ | ТипДок.Ссылка |ИЗ | Документ.#ТипДок# КАК ТипДок |ГДЕ | ТипДок.Номер ПОДОБНО &Номер | И НАЧАЛОПЕРИОДА(ТипДок.Дата, ДЕНЬ) = НАЧАЛОПЕРИОДА(&Дата, ДЕНЬ)"; Запрос.УстановитьПараметр("Дата", ДокументХ.Дата); Запрос.УстановитьПараметр("Номер", "%"+СокрЛП(ДокументХ.Номер)+"%"); Запрос.Текст = СтрЗаменить(Запрос.Текст,"#ТипДок#",СтрЗаменить(ТипДокументаСтрокой," ","")); Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда  Возврат Выборка.Ссылка; Иначе  Возврат Документы[СтрЗаменить(ТипДокументаСтрокой," ","")].ПустаяСсылка(); КонецЕсли; КонецФункции  </syntaxhighlight>Пример вызова XML
|
 
<syntaxhighlight lang="xml">
<syntaxhighlight lang="xml createDownloadDocuments.xml">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
   <soap-env:Body>
   <soap-env:Body>
Строка 476: Строка 468:


Пример ответа XML
Пример ответа XML
|
 
<syntaxhighlight lang="xml">
<syntaxhighlight lang="xml resposeCreateDownloadDocuments.xml">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 667: Строка 658:


Описание
Описание
|
 
'''Назначение:''' Сервис предназначен для получения документов сборки у которых не установлена галочка выгружен в 1С со статусом частичная или полная из АСП.Склад WMS.
'''Назначение:''' Сервис предназначен для получения документов сборки у которых не установлена галочка выгружен в 1С со статусом частичная или полная из АСП.Склад WMS.


Строка 679: Строка 669:


Пример вызова 1C
Пример вызова 1C
|
 
<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


&НаСервере Процедура ВернутьИзСборщика() Прокси = ПолучитьПрокси(); Результат = Прокси.ПолучитьДокументыЗаказНаСборку(); Если Результат<> Неопределено Тогда КоличествоЗагруженно = 0; Для каждого ДокХДТО Из Результат.МассивРезультатов Цикл Документ = Документы.АСП_ЗаказНаСборку.НайтиПоНомеру(ДокХДТО.Документ.Номер, ДокХДТО.Документ.Дата); Если Документ.Пустая() Тогда ДокСсылка = Документы.АСП_ЗаказНаСборку.СоздатьДокумент(); ДокСсылка.Дата = ДокХДТО.Документ.Дата; ДокСсылка.Номер = ДокХДТО.Документ.Номер; Иначе ДокСсылка = Документ.ПолучитьОбъект(); КонецЕсли; ДокСсылка.Склад = Справочники.Склады.НайтиПоКоду(СокрЛП(ДокХДТО.Документ.Склад.Код)); Если ПустаяСтрока(ДокХДТО.Документ.Организация.ИНН) Тогда  ДокСсылка.Организация = Справочники.Организации.НайтиПоКоду(ДокХДТО.Документ.Организация.Код); Иначе  ДокСсылка.Организация = Справочники.Организации.НайтиПоРеквизиту("ИНН", ДокХДТО.Документ.Организация.ИНН); КонецЕсли; СообщениеСтатуса = ""; ПеречСтатус = ПолучитьСтатусСборки(ДокХДТО.Документ.Статус);  Если ТипЗнч(ПеречСтатус) <> Тип("Строка") Тогда ДокСсылка.СтатусСборки = ПеречСтатус; Иначе СообщениеСтатуса = ("Документ №"+ ДокСсылка.Номер+ " загружен без статуса. "+ ПеречСтатус); КонецЕсли; ДокСсылка.Товары.Очистить(); Для каждого СтрокиТЧ Из ДокХДТО.Документ.Товары Цикл НовСтр = ДокСсылка.Товары.Добавить(); ЗаполнитьЗначенияСвойств(НовСтр,СтрокиТЧ); НовСтр.Номенклатура =  Справочники.Номенклатура.НайтиПоКоду(СокрЛП(СтрокиТЧ.Номенклатура.Код)); Если НовСтр.Номенклатура.Пустая() Тогда  Сообщить("Номенклатура по данному коду "+ СокрЛП(СтрокиТЧ.Номенклатура.Код)+ " не обнаружена"); Продолжить;  КонецЕсли; НовСтр.ЕдиницаИзмерения =  Справочники.ЕдиницыИзмерения.НайтиПоКоду(СокрЛП(СтрокиТЧ.Упаковка.КодЗагрузки)); НовСтр.Производитель =  Справочники.Организации.НайтиПоКоду(СокрЛП(СтрокиТЧ.Производитель.Код)); НомерЗаказаСборки = ?(СтрокиТЧ.Заказ = Неопределено,ДокХДТО.Документ.Номер,СтрЗаменить(СтрокиТЧ.Заказ.Номер,"З_","")); ДатаЗаказаСборка  = ?(СтрокиТЧ.Заказ = Неопределено,ДокХДТО.Документ.Дата,СтрокиТЧ.Заказ.Дата); НовСтр.Заказ   =  Документы[ТекущееСоответствие.База].НайтиПоНомеру(НомерЗаказаСборки, ДатаЗаказаСборка); Если Не ЗначениеЗаполнено(НовСтр.Заказ) Тогда Сообщить("Заказ не указан в заказе на сборку №"+ СокрЛП(ДокХДТО.Документ.Номер)); Продолжить; КонецЕсли;  Если НовСтр.Заказ <> Неопределено И Не НовСтр.Заказ.Пустая() Тогда УстановитьСтатус(НовСтр.Заказ,ДокСсылка.СтатусСборки); КонецЕсли; КонецЦикла; Если ДокСсылка.Товары.Количество()> 0 Тогда ДокСсылка.Записать(); КонецЕсли; Если Не ДокСсылка.Ссылка.Пустая() Тогда  КоличествоЗагруженно = КоличествоЗагруженно + 1; Если ДокХДТО.Документ <> Неопределено Тогда СписокДокументов.МассивДокументов.Добавить(ДокХДТО.Документ); КонецЕсли; КонецЕсли; СтрокаДок.Параметры.Документ = Строка(ДокСсылка); СтрокаДок.Параметры.Результат = Строка(ДокХДТО.РезультатТранзакции) + " " + СообщениеСтатуса; ТД.Вывести(СтрокаДок); КонецЦикла; КонецЕсли; КонецПроцедуры </syntaxhighlight>Пример вызова XML
&НаСервере Процедура ВернутьИзСборщика() Прокси = ПолучитьПрокси(); Результат = Прокси.ПолучитьДокументыЗаказНаСборку(); Если Результат<> Неопределено Тогда КоличествоЗагруженно = 0; Для каждого ДокХДТО Из Результат.МассивРезультатов Цикл Документ = Документы.АСП_ЗаказНаСборку.НайтиПоНомеру(ДокХДТО.Документ.Номер, ДокХДТО.Документ.Дата); Если Документ.Пустая() Тогда ДокСсылка = Документы.АСП_ЗаказНаСборку.СоздатьДокумент(); ДокСсылка.Дата = ДокХДТО.Документ.Дата; ДокСсылка.Номер = ДокХДТО.Документ.Номер; Иначе ДокСсылка = Документ.ПолучитьОбъект(); КонецЕсли; ДокСсылка.Склад = Справочники.Склады.НайтиПоКоду(СокрЛП(ДокХДТО.Документ.Склад.Код)); Если ПустаяСтрока(ДокХДТО.Документ.Организация.ИНН) Тогда  ДокСсылка.Организация = Справочники.Организации.НайтиПоКоду(ДокХДТО.Документ.Организация.Код); Иначе  ДокСсылка.Организация = Справочники.Организации.НайтиПоРеквизиту("ИНН", ДокХДТО.Документ.Организация.ИНН); КонецЕсли; СообщениеСтатуса = ""; ПеречСтатус = ПолучитьСтатусСборки(ДокХДТО.Документ.Статус);  Если ТипЗнч(ПеречСтатус) <> Тип("Строка") Тогда ДокСсылка.СтатусСборки = ПеречСтатус; Иначе СообщениеСтатуса = ("Документ №"+ ДокСсылка.Номер+ " загружен без статуса. "+ ПеречСтатус); КонецЕсли; ДокСсылка.Товары.Очистить(); Для каждого СтрокиТЧ Из ДокХДТО.Документ.Товары Цикл НовСтр = ДокСсылка.Товары.Добавить(); ЗаполнитьЗначенияСвойств(НовСтр,СтрокиТЧ); НовСтр.Номенклатура =  Справочники.Номенклатура.НайтиПоКоду(СокрЛП(СтрокиТЧ.Номенклатура.Код)); Если НовСтр.Номенклатура.Пустая() Тогда  Сообщить("Номенклатура по данному коду "+ СокрЛП(СтрокиТЧ.Номенклатура.Код)+ " не обнаружена"); Продолжить;  КонецЕсли; НовСтр.ЕдиницаИзмерения =  Справочники.ЕдиницыИзмерения.НайтиПоКоду(СокрЛП(СтрокиТЧ.Упаковка.КодЗагрузки)); НовСтр.Производитель =  Справочники.Организации.НайтиПоКоду(СокрЛП(СтрокиТЧ.Производитель.Код)); НомерЗаказаСборки = ?(СтрокиТЧ.Заказ = Неопределено,ДокХДТО.Документ.Номер,СтрЗаменить(СтрокиТЧ.Заказ.Номер,"З_","")); ДатаЗаказаСборка  = ?(СтрокиТЧ.Заказ = Неопределено,ДокХДТО.Документ.Дата,СтрокиТЧ.Заказ.Дата); НовСтр.Заказ   =  Документы[ТекущееСоответствие.База].НайтиПоНомеру(НомерЗаказаСборки, ДатаЗаказаСборка); Если Не ЗначениеЗаполнено(НовСтр.Заказ) Тогда Сообщить("Заказ не указан в заказе на сборку №"+ СокрЛП(ДокХДТО.Документ.Номер)); Продолжить; КонецЕсли;  Если НовСтр.Заказ <> Неопределено И Не НовСтр.Заказ.Пустая() Тогда УстановитьСтатус(НовСтр.Заказ,ДокСсылка.СтатусСборки); КонецЕсли; КонецЦикла; Если ДокСсылка.Товары.Количество()> 0 Тогда ДокСсылка.Записать(); КонецЕсли; Если Не ДокСсылка.Ссылка.Пустая() Тогда  КоличествоЗагруженно = КоличествоЗагруженно + 1; Если ДокХДТО.Документ <> Неопределено Тогда СписокДокументов.МассивДокументов.Добавить(ДокХДТО.Документ); КонецЕсли; КонецЕсли; СтрокаДок.Параметры.Документ = Строка(ДокСсылка); СтрокаДок.Параметры.Результат = Строка(ДокХДТО.РезультатТранзакции) + " " + СообщениеСтатуса; ТД.Вывести(СтрокаДок); КонецЦикла; КонецЕсли; КонецПроцедуры </syntaxhighlight>Пример вызова XML
|
 
<syntaxhighlight lang="xml">
<syntaxhighlight lang="xml createTakeAssembly.xml">
<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
Строка 700: Строка 688:


Пример ответа XML
Пример ответа XML
|


<syntaxhighlight lang="xml resposeCreateTakeAssembly.xml">
<syntaxhighlight lang="xml">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 907: Строка 894:


Описание
Описание
|
 
'''Назначение:''' Сервис предназначен для получения документов сборки которые зарегистрированы планом обмена из АСП.Склад WMS.
'''Назначение:''' Сервис предназначен для получения документов сборки которые зарегистрированы планом обмена из АСП.Склад WMS.


Строка 920: Строка 906:


Пример вызова 1C
Пример вызова 1C
|
 


<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


&НаСервере Процедура ВернутьИзСборщика2() Прокси = ПолучитьПрокси(); Результат = Прокси.ПолучитьДокументыЗаказНаСборку2("П6"); Если Результат<> Неопределено Тогда КоличествоЗагруженно = 0; Для каждого ДокХДТО Из Результат.МассивРезультатов Цикл Документ = Документы.АСП_ЗаказНаСборку.НайтиПоНомеру(ДокХДТО.Документ.Номер, ДокХДТО.Документ.Дата); Если Документ.Пустая() Тогда ДокСсылка = Документы.АСП_ЗаказНаСборку.СоздатьДокумент(); ДокСсылка.Дата = ДокХДТО.Документ.Дата; ДокСсылка.Номер = ДокХДТО.Документ.Номер; Иначе ДокСсылка = Документ.ПолучитьОбъект(); КонецЕсли; ДокСсылка.Склад = Справочники.Склады.НайтиПоКоду(СокрЛП(ДокХДТО.Документ.Склад.Код)); Если ПустаяСтрока(ДокХДТО.Документ.Организация.ИНН) Тогда  ДокСсылка.Организация = Справочники.Организации.НайтиПоКоду(ДокХДТО.Документ.Организация.Код); Иначе  ДокСсылка.Организация = Справочники.Организации.НайтиПоРеквизиту("ИНН", ДокХДТО.Документ.Организация.ИНН); КонецЕсли; СообщениеСтатуса = ""; ПеречСтатус = ПолучитьСтатусСборки(ДокХДТО.Документ.Статус);  Если ТипЗнч(ПеречСтатус) <> Тип("Строка") Тогда ДокСсылка.СтатусСборки = ПеречСтатус; Иначе СообщениеСтатуса = ("Документ №"+ ДокСсылка.Номер+ " загружен без статуса. "+ ПеречСтатус); КонецЕсли; ДокСсылка.Товары.Очистить(); Для каждого СтрокиТЧ Из ДокХДТО.Документ.Товары Цикл НовСтр = ДокСсылка.Товары.Добавить(); ЗаполнитьЗначенияСвойств(НовСтр,СтрокиТЧ); НовСтр.Номенклатура =  Справочники.Номенклатура.НайтиПоКоду(СокрЛП(СтрокиТЧ.Номенклатура.Код)); Если НовСтр.Номенклатура.Пустая() Тогда  Сообщить("Номенклатура по данному коду "+ СокрЛП(СтрокиТЧ.Номенклатура.Код)+ " не обнаружена"); Продолжить;  КонецЕсли; НовСтр.ЕдиницаИзмерения =  Справочники.ЕдиницыИзмерения.НайтиПоКоду(СокрЛП(СтрокиТЧ.Упаковка.КодЗагрузки)); НовСтр.Производитель =  Справочники.Организации.НайтиПоКоду(СокрЛП(СтрокиТЧ.Производитель.Код)); НомерЗаказаСборки = ?(СтрокиТЧ.Заказ = Неопределено,ДокХДТО.Документ.Номер,СтрЗаменить(СтрокиТЧ.Заказ.Номер,"З_","")); ДатаЗаказаСборка  = ?(СтрокиТЧ.Заказ = Неопределено,ДокХДТО.Документ.Дата,СтрокиТЧ.Заказ.Дата); НовСтр.Заказ   =  Документы[ТекущееСоответствие.База].НайтиПоНомеру(НомерЗаказаСборки, ДатаЗаказаСборка); Если Не ЗначениеЗаполнено(НовСтр.Заказ) Тогда Сообщить("Заказ не указан в заказе на сборку №"+ СокрЛП(ДокХДТО.Документ.Номер)); Продолжить; КонецЕсли;  Если НовСтр.Заказ <> Неопределено И Не НовСтр.Заказ.Пустая() Тогда УстановитьСтатус(НовСтр.Заказ,ДокСсылка.СтатусСборки); КонецЕсли; КонецЦикла; Если ДокСсылка.Товары.Количество()> 0 Тогда ДокСсылка.Записать(); КонецЕсли; Если Не ДокСсылка.Ссылка.Пустая() Тогда  КоличествоЗагруженно = КоличествоЗагруженно + 1; Если ДокХДТО.Документ <> Неопределено Тогда СписокДокументов.МассивДокументов.Добавить(ДокХДТО.Документ); КонецЕсли; КонецЕсли; СтрокаДок.Параметры.Документ = Строка(ДокСсылка); СтрокаДок.Параметры.Результат = Строка(ДокХДТО.РезультатТранзакции) + " " + СообщениеСтатуса; ТД.Вывести(СтрокаДок); КонецЦикла; КонецЕсли; КонецПроцедуры </syntaxhighlight>Пример вызова XML
&НаСервере Процедура ВернутьИзСборщика2() Прокси = ПолучитьПрокси(); Результат = Прокси.ПолучитьДокументыЗаказНаСборку2("П6"); Если Результат<> Неопределено Тогда КоличествоЗагруженно = 0; Для каждого ДокХДТО Из Результат.МассивРезультатов Цикл Документ = Документы.АСП_ЗаказНаСборку.НайтиПоНомеру(ДокХДТО.Документ.Номер, ДокХДТО.Документ.Дата); Если Документ.Пустая() Тогда ДокСсылка = Документы.АСП_ЗаказНаСборку.СоздатьДокумент(); ДокСсылка.Дата = ДокХДТО.Документ.Дата; ДокСсылка.Номер = ДокХДТО.Документ.Номер; Иначе ДокСсылка = Документ.ПолучитьОбъект(); КонецЕсли; ДокСсылка.Склад = Справочники.Склады.НайтиПоКоду(СокрЛП(ДокХДТО.Документ.Склад.Код)); Если ПустаяСтрока(ДокХДТО.Документ.Организация.ИНН) Тогда  ДокСсылка.Организация = Справочники.Организации.НайтиПоКоду(ДокХДТО.Документ.Организация.Код); Иначе  ДокСсылка.Организация = Справочники.Организации.НайтиПоРеквизиту("ИНН", ДокХДТО.Документ.Организация.ИНН); КонецЕсли; СообщениеСтатуса = ""; ПеречСтатус = ПолучитьСтатусСборки(ДокХДТО.Документ.Статус);  Если ТипЗнч(ПеречСтатус) <> Тип("Строка") Тогда ДокСсылка.СтатусСборки = ПеречСтатус; Иначе СообщениеСтатуса = ("Документ №"+ ДокСсылка.Номер+ " загружен без статуса. "+ ПеречСтатус); КонецЕсли; ДокСсылка.Товары.Очистить(); Для каждого СтрокиТЧ Из ДокХДТО.Документ.Товары Цикл НовСтр = ДокСсылка.Товары.Добавить(); ЗаполнитьЗначенияСвойств(НовСтр,СтрокиТЧ); НовСтр.Номенклатура =  Справочники.Номенклатура.НайтиПоКоду(СокрЛП(СтрокиТЧ.Номенклатура.Код)); Если НовСтр.Номенклатура.Пустая() Тогда  Сообщить("Номенклатура по данному коду "+ СокрЛП(СтрокиТЧ.Номенклатура.Код)+ " не обнаружена"); Продолжить;  КонецЕсли; НовСтр.ЕдиницаИзмерения =  Справочники.ЕдиницыИзмерения.НайтиПоКоду(СокрЛП(СтрокиТЧ.Упаковка.КодЗагрузки)); НовСтр.Производитель =  Справочники.Организации.НайтиПоКоду(СокрЛП(СтрокиТЧ.Производитель.Код)); НомерЗаказаСборки = ?(СтрокиТЧ.Заказ = Неопределено,ДокХДТО.Документ.Номер,СтрЗаменить(СтрокиТЧ.Заказ.Номер,"З_","")); ДатаЗаказаСборка  = ?(СтрокиТЧ.Заказ = Неопределено,ДокХДТО.Документ.Дата,СтрокиТЧ.Заказ.Дата); НовСтр.Заказ   =  Документы[ТекущееСоответствие.База].НайтиПоНомеру(НомерЗаказаСборки, ДатаЗаказаСборка); Если Не ЗначениеЗаполнено(НовСтр.Заказ) Тогда Сообщить("Заказ не указан в заказе на сборку №"+ СокрЛП(ДокХДТО.Документ.Номер)); Продолжить; КонецЕсли;  Если НовСтр.Заказ <> Неопределено И Не НовСтр.Заказ.Пустая() Тогда УстановитьСтатус(НовСтр.Заказ,ДокСсылка.СтатусСборки); КонецЕсли; КонецЦикла; Если ДокСсылка.Товары.Количество()> 0 Тогда ДокСсылка.Записать(); КонецЕсли; Если Не ДокСсылка.Ссылка.Пустая() Тогда  КоличествоЗагруженно = КоличествоЗагруженно + 1; Если ДокХДТО.Документ <> Неопределено Тогда СписокДокументов.МассивДокументов.Добавить(ДокХДТО.Документ); КонецЕсли; КонецЕсли; СтрокаДок.Параметры.Документ = Строка(ДокСсылка); СтрокаДок.Параметры.Результат = Строка(ДокХДТО.РезультатТранзакции) + " " + СообщениеСтатуса; ТД.Вывести(СтрокаДок); КонецЦикла; КонецЕсли; КонецПроцедуры </syntaxhighlight>Пример вызова XML
|
 
<syntaxhighlight lang="xml">
<syntaxhighlight lang="xml createTakeAssembly2.xml">
<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
Строка 941: Строка 926:


Пример ответа XML
Пример ответа XML
|


<syntaxhighlight lang="xml resposeCreateTakeAssembly2.xml">
 
<syntaxhighlight lang="xml">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 1093: Строка 1078:


Описание
Описание
|
 


'''Назначение:''' Сервис предназначен для регистрации документа отгрузки связанного с передаваемым заказом в АСП.Склад WMS.
'''Назначение:''' Сервис предназначен для регистрации документа отгрузки связанного с передаваемым заказом в АСП.Склад WMS.
Строка 1106: Строка 1091:


Пример вызова 1C
Пример вызова 1C
|
 
<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


&НаСервере Процедура ЗарегистрироватьОтгрузку(ДокЗаказ)Прокси = ПолучитьПрокси(); Фабрика = Прокси.ФабрикаXDTO; хДокумент = Фабрика.Создать(Фабрика.Тип(ПространствоИмен(),"Документ")); хДокумент.Номер = ДокЗаказ.Номер; хДокумент.Дата = ДокЗаказ.Дата; Результат = Прокси.ЗарегистрироватьОтгрузку(хДокумент);Сообщить(Результат); КонецПроцедуры </syntaxhighlight>Пример вызова XML
&НаСервере Процедура ЗарегистрироватьОтгрузку(ДокЗаказ)Прокси = ПолучитьПрокси(); Фабрика = Прокси.ФабрикаXDTO; хДокумент = Фабрика.Создать(Фабрика.Тип(ПространствоИмен(),"Документ")); хДокумент.Номер = ДокЗаказ.Номер; хДокумент.Дата = ДокЗаказ.Дата; Результат = Прокси.ЗарегистрироватьОтгрузку(хДокумент);Сообщить(Результат); КонецПроцедуры </syntaxhighlight>Пример вызова XML
|


<syntaxhighlight lang="xml createTakeDocuments.xml">
 
<syntaxhighlight lang="xml">
<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
Строка 1132: Строка 1116:


Описание
Описание
|
 


'''Назначение:''' Сервис предназначен для получения документов по типу документа из АСП.Склад WMS.
'''Назначение:''' Сервис предназначен для получения документов по типу документа из АСП.Склад WMS.
Строка 1145: Строка 1129:


Пример вызова 1C
Пример вызова 1C
|
 


<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


&НаСервере Процедура ВернутьДокументыИзСборщика(ДокументыСборщика) Прокси = ПолучитьПрокси();Фабрика = Прокси.ФабрикаXDTO; СписокДокументов = Фабрика.Создать(Фабрика.Тип(ПространствоИмен,"СписокДокументов")); ДокументыСборщика = ?(Найти(ТекущееСоответствие.Шлюз,"Заказ") = 0,ТекущееСоответствие.Шлюз,"ЗаказНаСборку"); Результат = Прокси.ПолучитьДокументСборки(ДокументыСборщика); Если Результат <> Неопределено Тогда Если Найти(ДокументыСборщика,"ЗаказНаСборку") > 0 Тогда  КоличествоЗагруженно = ВернутьЗаказыНаСборку(Результат,СтрокаДок,СписокДокументов,ТекущееСоответствие); ИначеЕсли Найти(ДокументыСборщика,"Перемещение") > 0 Тогда КоличествоЗагруженно = ВернутьПеремещение(Результат,СтрокаДок,ТекущееСоответствие); Иначе  Сообщить("Данный документ не настроен для возврата в базу"); Возврат; КонецЕсли; КонецЕсли;Сообщить("Загружено документов: "+Строка(КоличествоЗагруженно)); КонецПроцедуры </syntaxhighlight>Пример вызова XML
&НаСервере Процедура ВернутьДокументыИзСборщика(ДокументыСборщика) Прокси = ПолучитьПрокси();Фабрика = Прокси.ФабрикаXDTO; СписокДокументов = Фабрика.Создать(Фабрика.Тип(ПространствоИмен,"СписокДокументов")); ДокументыСборщика = ?(Найти(ТекущееСоответствие.Шлюз,"Заказ") = 0,ТекущееСоответствие.Шлюз,"ЗаказНаСборку"); Результат = Прокси.ПолучитьДокументСборки(ДокументыСборщика); Если Результат <> Неопределено Тогда Если Найти(ДокументыСборщика,"ЗаказНаСборку") > 0 Тогда  КоличествоЗагруженно = ВернутьЗаказыНаСборку(Результат,СтрокаДок,СписокДокументов,ТекущееСоответствие); ИначеЕсли Найти(ДокументыСборщика,"Перемещение") > 0 Тогда КоличествоЗагруженно = ВернутьПеремещение(Результат,СтрокаДок,ТекущееСоответствие); Иначе  Сообщить("Данный документ не настроен для возврата в базу"); Возврат; КонецЕсли; КонецЕсли;Сообщить("Загружено документов: "+Строка(КоличествоЗагруженно)); КонецПроцедуры </syntaxhighlight>Пример вызова XML
|
 
<syntaxhighlight lang="xml">
<syntaxhighlight lang="xml createTakeDocuments.xml">
<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
Строка 1166: Строка 1149:


Пример ответа XML
Пример ответа XML
|


<syntaxhighlight lang="xml resposeCreateTakeDocuments.xml">
<syntaxhighlight lang="xml">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 1362: Строка 1344:


Описание
Описание
|


'''Назначение:''' Сервис предназначен для получения документов сборки по типу документа которые зарегистрированы планом обмена из АСП.Склад WMS.
'''Назначение:''' Сервис предназначен для получения документов сборки по типу документа которые зарегистрированы планом обмена из АСП.Склад WMS.
Строка 1376: Строка 1357:


Пример вызова 1C
Пример вызова 1C
|
 
<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


&НаСервере Процедура ВернутьДокументыИзСборщика2(ДокументыСборщика)Прокси = ПолучитьПрокси();Фабрика = Прокси.ФабрикаXDTO;СписокДокументов = Фабрика.Создать(Фабрика.Тип(ПространствоИмен,"СписокДокументов"));ДокументыСборщика = ?(Найти(ТекущееСоответствие.Шлюз,"Заказ") = 0,ТекущееСоответствие.Шлюз,"ЗаказНаСборку");Результат = Прокси.ПолучитьДокументСборки(ДокументыСборщика,"П6");Если Результат <> Неопределено Тогда Если Найти(ДокументыСборщика,"ЗаказНаСборку") > 0 ТогдаКоличествоЗагруженно = ВернутьЗаказыНаСборку(Результат,СтрокаДок,СписокДокументов,ТекущееСоответствие);ИначеЕсли Найти(ДокументыСборщика,"Перемещение") > 0 ТогдаКоличествоЗагруженно = ВернутьПеремещение(Результат,СтрокаДок,ТекущееСоответствие);ИначеСообщить("Данный документ не настроен для возврата в базу");Возврат;КонецЕсли; КонецЕсли;Сообщить("Загружено документов: "+Строка(КоличествоЗагруженно)); КонецПроцедуры </syntaxhighlight>Пример вызова XML
&НаСервере Процедура ВернутьДокументыИзСборщика2(ДокументыСборщика)Прокси = ПолучитьПрокси();Фабрика = Прокси.ФабрикаXDTO;СписокДокументов = Фабрика.Создать(Фабрика.Тип(ПространствоИмен,"СписокДокументов"));ДокументыСборщика = ?(Найти(ТекущееСоответствие.Шлюз,"Заказ") = 0,ТекущееСоответствие.Шлюз,"ЗаказНаСборку");Результат = Прокси.ПолучитьДокументСборки(ДокументыСборщика,"П6");Если Результат <> Неопределено Тогда Если Найти(ДокументыСборщика,"ЗаказНаСборку") > 0 ТогдаКоличествоЗагруженно = ВернутьЗаказыНаСборку(Результат,СтрокаДок,СписокДокументов,ТекущееСоответствие);ИначеЕсли Найти(ДокументыСборщика,"Перемещение") > 0 ТогдаКоличествоЗагруженно = ВернутьПеремещение(Результат,СтрокаДок,ТекущееСоответствие);ИначеСообщить("Данный документ не настроен для возврата в базу");Возврат;КонецЕсли; КонецЕсли;Сообщить("Загружено документов: "+Строка(КоличествоЗагруженно)); КонецПроцедуры </syntaxhighlight>Пример вызова XML
|
 
<syntaxhighlight lang="xml">
<syntaxhighlight lang="xml createTakeDocuments2.xml">
<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
Строка 1398: Строка 1377:


Пример ответа XML
Пример ответа XML
|
 
<syntaxhighlight lang="xml">
<syntaxhighlight lang="xml resposeCreateTakeDocuments2.xml">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 1546: Строка 1524:


Описание
Описание
|
 
'''Назначение:''' Сервис предназначен для получения активных мобильных устройств из АСП.Склад WMS.
'''Назначение:''' Сервис предназначен для получения активных мобильных устройств из АСП.Склад WMS.


Строка 1558: Строка 1535:


Пример вызова 1C
Пример вызова 1C
|
 
<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


&НаСервере Процедура СформироватьСписокМобУстройства() Прокси = ПолучитьПрокси(); Фабрика = Прокси.ФабрикаXDTO; МобУстройства = Прокси.ПолучитьМобильныеУстройства(); ЭлементыФормы.МобильныеУстройства.СписокВыбора.Очистить(); Для Каждого Стр Из МобУстройства.МобильноеУстройство Цикл ЭлементыФормы.МобильныеУстройства.СписокВыбора.Добавить(Стр.Наименование + " :"+ Стр.Код); КонецЦикла; КонецПроцедуры </syntaxhighlight>Пример вызова XML
&НаСервере Процедура СформироватьСписокМобУстройства() Прокси = ПолучитьПрокси(); Фабрика = Прокси.ФабрикаXDTO; МобУстройства = Прокси.ПолучитьМобильныеУстройства(); ЭлементыФормы.МобильныеУстройства.СписокВыбора.Очистить(); Для Каждого Стр Из МобУстройства.МобильноеУстройство Цикл ЭлементыФормы.МобильныеУстройства.СписокВыбора.Добавить(Стр.Наименование + " :"+ Стр.Код); КонецЦикла; КонецПроцедуры </syntaxhighlight>Пример вызова XML
|
 
<syntaxhighlight lang="xml">
<syntaxhighlight lang="xml createTakeDevices.xml">
<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
Строка 1579: Строка 1554:


Пример ответа XML
Пример ответа XML
|
 
<syntaxhighlight lang="xml">
<syntaxhighlight lang="xml resposeCreateTakeDevices.xml">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 1615: Строка 1589:


Описание
Описание
|
 


'''Назначение:''' Сервис предназначен для установки признака "Выгружен" в АСП.Склад WMS для успешно выгруженных оттуда документов.
'''Назначение:''' Сервис предназначен для установки признака "Выгружен" в АСП.Склад WMS для успешно выгруженных оттуда документов.
Строка 1628: Строка 1602:


Пример вызова 1C
Пример вызова 1C
|
 


<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>


&НаСервере Процедура УстановитьСтатусВыгружен() Прокси = ПолучитьПрокси(); Фабрика = Прокси.ФабрикаXDTO;СписокДокументов = Фабрика.Создать(Фабрика.Тип(ПространствоИмен(),"СписокДокументов"));Для Каждого Стр Из ТаблицаДок ЦиклЕсли НЕ Стр.Выбран ТогдаПродолжить;КонецЕсли; Док = СформироватьДокумент(Стр.Ссылка, Фабрика);Если Док <> Неопределено ТогдаСписокДокументов.МассивДокументов.Добавить(Док);КонецЕсли;КонецЦикла; Выгружено = Прокси.УстановитьСтатусВыгружен(СписокДокументов); Сообщить("Документов в статусе выгруженно: "+Строка(Выгружено)); КонецПроцедуры </syntaxhighlight>Пример вызова XML
&НаСервере Процедура УстановитьСтатусВыгружен() Прокси = ПолучитьПрокси(); Фабрика = Прокси.ФабрикаXDTO;СписокДокументов = Фабрика.Создать(Фабрика.Тип(ПространствоИмен(),"СписокДокументов"));Для Каждого Стр Из ТаблицаДок ЦиклЕсли НЕ Стр.Выбран ТогдаПродолжить;КонецЕсли; Док = СформироватьДокумент(Стр.Ссылка, Фабрика);Если Док <> Неопределено ТогдаСписокДокументов.МассивДокументов.Добавить(Док);КонецЕсли;КонецЦикла; Выгружено = Прокси.УстановитьСтатусВыгружен(СписокДокументов); Сообщить("Документов в статусе выгруженно: "+Строка(Выгружено)); КонецПроцедуры </syntaxhighlight>Пример вызова XML
|
 
<syntaxhighlight lang="xml">
<syntaxhighlight lang="xml createMakeTick.xml">
<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
<soap-env:Envelope xmlns:soap-env="http://schemas.xmlsoap.org/soap/envelope/">
Строка 1816: Строка 1789:


Пример ответа XML
Пример ответа XML
|


<syntaxhighlight lang="xml resposeCreateMakeTick.xml">
 
<syntaxhighlight lang="xml">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Body>
Строка 1834: Строка 1807:


Описание
Описание
|
 


'''Назначение:''' Сервис предназначен для получение настроек правил обработки выгрузки в АСП.Склад WMS.
'''Назначение:''' Сервис предназначен для получение настроек правил обработки выгрузки в АСП.Склад WMS.
Строка 1846: Строка 1819:


Пример вызова 1C
Пример вызова 1C
|
 


<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>
Строка 1860: Строка 1833:


Пример вызова 1C
Пример вызова 1C
|
 


<syntaxhighlight lang='1c'>
<syntaxhighlight lang='1c'>
Строка 1876: Строка 1849:
</syntaxhighlight>
</syntaxhighlight>
[[Category:сборка выгрузка]]
[[Category:сборка выгрузка]]
 
[[Тег::WMS]]
<vote type=1 />
<vote type=1 />
Источник — https://pub.aoasp.ru/Описание_сервисов_сборка