RE: Как реализовать WEB-сервис для поиска даты оплаты счета в 1С?

[Odin — Одинэсник]

Привет, Rusil!

Для реализации WEB-сервиса в 1С:Предприятие, который будет осуществлять поиск даты оплаты счета по наименованию контрагента и номеру счета, можно использовать HTTP-сервисы. Ниже приведен пример, как это можно сделать.

### Шаги по реализации:

1. **Создание HTTP-сервиса**:
— В конфигураторе создайте новый HTTP-сервис. Для этого перейдите в раздел «HTTP-сервисы» и создайте новый объект.

2. **Определение метода**:
— В методе сервиса определите параметры, которые будут передаваться в запросе: наименование контрагента и номер счета.

3. **Поиск данных**:
— Внутри метода реализуйте логику поиска по документам «Счет на оплату» или «Заказ покупателя». Используйте параметры, переданные в запросе, для фильтрации данных.

4. **Формирование ответа**:
— Сформируйте ответ в формате JSON, который будет содержать дату оплаты, если она найдена.

### Пример кода:

1С (Код)

1C &НаКлиенте Процедура ОбработатьЗапрос(Запрос, Ответ) // Получаем параметры из запроса НаименованиеКонтрагента = Запрос.Параметры.НаименованиеКонтрагента; НомерСчета = Запрос.Параметры.НомерСчета; // Поиск счета по контрагенту и номеру Счета = Документы.СчетНаОплату.Выбрать(); Найден = Ложь; ДатаОплаты = Неопределено; Пока Счета.Следующий() Цикл Если Счета.Контрагент.Наименование = НаименованиеКонтрагента И Счета.Номер = НомерСчета Тогда ДатаОплаты = Счета.ДатаОплаты; // Предполагается, что есть реквизит ДатаОплаты Найден = Истина; break; КонецЕсли; КонецЦикла; // Формируем ответ Если Найден Тогда Ответ.ЗаписатьJSON(Новый Структура("ДатаОплаты", ДатаОплаты)); Иначе Ответ.ЗаписатьJSON(Новый Структура("Ошибка", "Счет не найден")); КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

1C &НаКлиенте Процедура ОбработатьЗапрос(Запрос, Ответ)     // Получаем параметры из запроса     НаименованиеКонтрагента = Запрос.Параметры.НаименованиеКонтрагента;     НомерСчета = Запрос.Параметры.НомерСчета;       // Поиск счета по контрагенту и номеру     Счета = Документы.СчетНаОплату.Выбрать();     Найден = Ложь;     ДатаОплаты = Неопределено;       Пока Счета.Следующий() Цикл         Если Счета.Контрагент.Наименование = НаименованиеКонтрагента И Счета.Номер = НомерСчета Тогда             ДатаОплаты = Счета.ДатаОплаты; // Предполагается, что есть реквизит ДатаОплаты             Найден = Истина;             break;         КонецЕсли;     КонецЦикла;       // Формируем ответ     Если Найден Тогда         Ответ.ЗаписатьJSON(Новый Структура("ДатаОплаты", ДатаОплаты));     Иначе         Ответ.ЗаписатьJSON(Новый Структура("Ошибка", "Счет не найден"));     КонецЕсли; КонецПроцедуры

### Настройка доступа:
— Убедитесь, что у вашего HTTP-сервиса есть необходимые права доступа, чтобы он мог выполнять запросы к документам.

### Тестирование:
— После реализации протестируйте ваш сервис, отправив HTTP-запрос с параметрами наименование контрагента и номер счета.

### Примечание:
— Убедитесь, что в вашей конфигурации есть необходимые реквизиты и документы, которые вы используете в коде.

Таким образом, вы сможете создать WEB-сервис для поиска даты оплаты счета по наименованию контрагента и номеру счета.

Если у вас есть дополнительные вопросы или нужна помощь с конкретными аспектами реализации, дайте знать!