(6) В модуле Web-сервиса пишешь точно так же как в обычном модуле. Единственное я имена функций на английском пишу, на всякий случай, ибо клиенты на Java. Что-то типа такого:
Функция getStocks(direction)
Если direction = "SND" Тогда
Направление = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("wms_СкладОтправитель");
ИначеЕсли direction = "RCV" Тогда
Направление = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("wms_СкладПолучатель");
Иначе
Возврат "";
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Склады.Код,
| Склады.Наименование КАК Наименование,
| Склады.Ссылка
|ИЗ
| Справочник.Склады КАК Склады
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Склады.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| Склады.ПометкаУдаления = ЛОЖЬ
| И ЗначенияСвойствОбъектов.Свойство = &Свойство
| И ЗначенияСвойствОбъектов.Значение = ИСТИНА
|
|УПОРЯДОЧИТЬ ПО
| Наименование";
Запрос.УстановитьПараметр("Свойство", Направление);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Склад = ФабрикаXDTO.Создать(СкладТип);
Склад.id = Выборка.Код;
Склад.name = Выборка.Наименование;
Склад.controlFIFO = _kb_WMS.ПолучитьСвойствоОбъекта(Выборка.Ссылка, "КонтрольФИФО");
МассивСклады.Stock.Добавить(Склад);
КонецЦикла;
//Возврат direction;
Возврат МассивСклады;
КонецФункции
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший