Отправка счёта 1С

Как выставить счёт в 1С

Часто необходимо предоставить клиенту возможность удалённо оплатить заказ, причём не сразу, а тогда, когда будет удобно. В таких случаях, обычно, пользуются выставлением счетов для оплаты. Выставленный счёт высылается клиенту по электронной почте, клиент открывает письмо и переходит по ссылке для оплаты в любое удобное время. Иногда полезно ограничить допустимый срок оплаты, например, при резервировании товара. В случае использования нашего решения такая возможность выставления счетов по электронной почте присутствует изначально, в личном кабинете. Однако при использовании 1С было бы неплохо автоматизировать процесс, особенно при большом количестве заказов. Это выполнимо с использованием нашего JSON API.

При выставлении счёта возможно указать следующие параметры:

Тип	Параметр	Назначение	Обязательный
1.	Параметр:pay_amount	Назначение:Сумма заказа к оплате	Обязательный:Да
2.	Параметр:clientid	Назначение:Идентификатор клиента	Обязательный:Нет
3.	Параметр:orderid	Назначение:Номер заказа	Обязательный:Нет
4.	Параметр:service_name	Назначение:Наименование услуги	Обязательный:Нет
5.	Параметр:client_email	Назначение:E-mail адрес клиента	Обязательный:Да
6.	Параметр:client_phone	Назначение:Телефон клиента	Обязательный:Нет
7.	Параметр:expiry	Назначение:Срок действия счёта в формате YYYY-MM-DD (не включительно)	Обязательный:Нет
8.	Параметр:token	Назначение:Токен безопасности	Обязательный:Да
Таблица 1. Параметры запроса «Подготовка счёта»

Для автоматического выставления счёта через API необходимо сформировать и отправить два запроса к серверу системы с необходимым набором данных из этого списка. Первый — непосредственно для формирования счёта, а второй — для его отправки клиенту.

Рассмотрим алгоритм работы более подробно:

Получить актуальный токен для доступа к JSON API.
Подготовить набор данных для формирования запроса
Сформировать запрос для предварительного просмотра с корректными заголовками
Выполнить запрос для предварительного просмотра и проверить корректность ответа
Сформировать запрос для отправки счёта с корректными заголовками
Выполнить запрос для отправки счёта и проверить корректность ответа

Пример кода для 1С

Ниже рассмотрим пример реализации данного алгоритма для 1С:

Функция ВыгрузитьЗаказыPayKeeper(МассивЗаказов)

	СоединениеHTTP = Новый HTTPСоединение("_____.server.paykeeper.ru", , "Пользователь_ЛК", "Пароль", , , Новый ЗащищенноеСоединениеOpenSSL);

	Заголовки = Новый Соответствие;

	Токен = ПолучитьТокенPayKeeper(СоединениеHTTP, Заголовки);

	Возврат ОтправитьДанныеPayKeeper(СоединениеHTTP, Заголовки, Токен, МассивЗаказов);

КонецФункции

Функция ПолучитьТокенPayKeeper(СоединениеHTTP, Заголовки)

	ЗапросHTTP = Новый HTTPЗапрос("/info/settings/token/", Заголовки);

	ОтветHTTP = СоединениеHTTP.Получить(ЗапросHTTP);

	ЧтениеJSON = Новый ЧтениеJSON;
	ЧтениеJSON.УстановитьСтроку(ОтветHTTP.ПолучитьТелоКакСтроку());

	Попытка
		ОбъектJSON = ПрочитатьJSON(ЧтениеJSON);
	Исключение
		Сообщить("Ошибка при получении токена безопасности");
		Возврат "";
	КонецПопытки;

	Токен = "";
	Если ОбъектJSON.Свойство("token", Токен) Тогда
		Возврат Токен;
	Иначе
		Сообщить(ОбъектJSON.msg);
		Возврат "";
	КонецЕсли;

КонецФункции

Функция ОтправитьДанныеPayKeeper(СоединениеHTTP, Заголовки, Токен, ДанныеДляОтправки)

	ЗапросHTTP = Новый HTTPЗапрос("/change/invoice/preview/", Заголовки);
	ЗапросHTTP.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");

	Для Каждого ДанныеДляОтправкиСтрока Из ДанныеДляОтправки Цикл

		ТелоЗапроса = "token=" + Токен +
		"&clientid=" + ДанныеДляОтправкиСтрока.clientid +
		"&orderid=" + ДанныеДляОтправкиСтрока.orderid +
		"&service_name=" + ДанныеДляОтправкиСтрока.service_name +
		"&client_email=" + ДанныеДляОтправкиСтрока.client_email +
		"&client_phone=" + ДанныеДляОтправкиСтрока.client_phone +
		"&expiry=" + Формат(ДанныеДляОтправкиСтрока.expiry, "ДФ=гггг-ММ-дд") +
		"&pay_amount=" + ДанныеДляОтправкиСтрока.pay_amount;

		ЗапросHTTP.УстановитьТелоИзСтроки(ТелоЗапроса);

		ОтветHTTP = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTP);

		ЧтениеJSON = Новый ЧтениеJSON;
		ЧтениеJSON.УстановитьСтроку(ОтветHTTP.ПолучитьТелоКакСтроку());

		Попытка
			ОтветОбъект = ПрочитатьJSON(ЧтениеJSON);
		Исключение
			Сообщить("Ошибка при выставлении счёта");
			Продолжить;
		КонецПопытки;

		РезультатЗапроса = "";
		Если ОтветОбъект.Свойство("result", РезультатЗапроса) Тогда
			Если РезультатЗапроса = "fail" Тогда
				Сообщить(ОтветОбъект.msg);
				Продолжить;
			КонецЕсли;
		КонецЕсли;

		ЗапросHTTPОтправить = Новый HTTPЗапрос("/change/invoice/send/", Заголовки);

		ТелоЗапросаОтправить = "token=" + Токен +
		"&id=" + ОтветОбъект.invoice_id;

		ЗапросHTTPОтправить.УстановитьТелоИзСтроки(ТелоЗапросаОтправить);

		ОтветHTTPОтправить = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTPОтправить);

		ЧтениеJSON.УстановитьСтроку(ОтветHTTPОтправить.ПолучитьТелоКакСтроку());

		Попытка
			ОтветОбъект = ПрочитатьJSON(ЧтениеJSON);
		Исключение
			Сообщить("Ошибка при отправке счёта");
			Продолжить;
		КонецПопытки;

		Если ОтветОбъект.Свойство("result", РезультатЗапроса) Тогда
			Если РезультатЗапроса = "fail" Тогда
				Сообщить(ОтветОбъект.msg);
				Продолжить;
			КонецЕсли;
		КонецЕсли;

	КонецЦикла;
	
КонецФункции

ТестовыеДанные = Новый Массив;
ТестовыеДанные.Добавить(Новый Структура("clientid, orderid, service_name, client_email, client_phone, expiry, pay_amount", "Иванов Иван Иванович", "123-1", "Тестовая услуга", "test@yourdomain.com", "+79876543210", "20191020200103", "100.03"));
ТестовыеДанные.Добавить(Новый Структура("clientid, orderid, service_name, client_email, client_phone, expiry, pay_amount", "Петров Пётр Петрович", "123-2", "Тестовый товар", "example@yourdomain.com", "+79876543210", "20191031101158", "10.50"));
ВыгрузитьЗаказыPayKeeper(ТестовыеДанные);

100

101

102

103

104

105

106

107

108

109

Функция ВыгрузитьЗаказыPayKeeper(МассивЗаказов)

СоединениеHTTP = Новый HTTPСоединение("_____.server.paykeeper.ru", , "Пользователь_ЛК", "Пароль", , , Новый ЗащищенноеСоединениеOpenSSL);

Заголовки = Новый Соответствие;

Токен = ПолучитьТокенPayKeeper(СоединениеHTTP, Заголовки);

Возврат ОтправитьДанныеPayKeeper(СоединениеHTTP, Заголовки, Токен, МассивЗаказов);

КонецФункции

Функция ПолучитьТокенPayKeeper(СоединениеHTTP, Заголовки)

ЗапросHTTP = Новый HTTPЗапрос("/info/settings/token/", Заголовки);

ОтветHTTP = СоединениеHTTP.Получить(ЗапросHTTP);

ЧтениеJSON = Новый ЧтениеJSON;

ЧтениеJSON.УстановитьСтроку(ОтветHTTP.ПолучитьТелоКакСтроку());

Попытка

ОбъектJSON = ПрочитатьJSON(ЧтениеJSON);

Исключение

Сообщить("Ошибка при получении токена безопасности");

Возврат "";

КонецПопытки;

Токен = "";

Если ОбъектJSON.Свойство("token", Токен) Тогда

Возврат Токен;

Иначе

Сообщить(ОбъектJSON.msg);

Возврат "";

КонецЕсли;

КонецФункции

Функция ОтправитьДанныеPayKeeper(СоединениеHTTP, Заголовки, Токен, ДанныеДляОтправки)

ЗапросHTTP = Новый HTTPЗапрос("/change/invoice/preview/", Заголовки);

ЗапросHTTP.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");

Для Каждого ДанныеДляОтправкиСтрока Из ДанныеДляОтправки Цикл

ТелоЗапроса = "token=" + Токен +

"&clientid=" + ДанныеДляОтправкиСтрока.clientid +

"&orderid=" + ДанныеДляОтправкиСтрока.orderid +

"&service_name=" + ДанныеДляОтправкиСтрока.service_name +

"&client_email=" + ДанныеДляОтправкиСтрока.client_email +

"&client_phone=" + ДанныеДляОтправкиСтрока.client_phone +

"&expiry=" + Формат(ДанныеДляОтправкиСтрока.expiry, "ДФ=гггг-ММ-дд") +

"&pay_amount=" + ДанныеДляОтправкиСтрока.pay_amount;

ЗапросHTTP.УстановитьТелоИзСтроки(ТелоЗапроса);

ОтветHTTP = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTP);

ЧтениеJSON = Новый ЧтениеJSON;

ЧтениеJSON.УстановитьСтроку(ОтветHTTP.ПолучитьТелоКакСтроку());

Попытка

ОтветОбъект = ПрочитатьJSON(ЧтениеJSON);

Исключение

Сообщить("Ошибка при выставлении счёта");

Продолжить;

КонецПопытки;

РезультатЗапроса = "";

Если ОтветОбъект.Свойство("result", РезультатЗапроса) Тогда

Если РезультатЗапроса = "fail" Тогда

Сообщить(ОтветОбъект.msg);

Продолжить;

КонецЕсли;

ЗапросHTTPОтправить = Новый HTTPЗапрос("/change/invoice/send/", Заголовки);

ТелоЗапросаОтправить = "token=" + Токен +

"&id=" + ОтветОбъект.invoice_id;

ЗапросHTTPОтправить.УстановитьТелоИзСтроки(ТелоЗапросаОтправить);

ОтветHTTPОтправить = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTPОтправить);

ЧтениеJSON.УстановитьСтроку(ОтветHTTPОтправить.ПолучитьТелоКакСтроку());

Попытка

ОтветОбъект = ПрочитатьJSON(ЧтениеJSON);

Исключение

Сообщить("Ошибка при отправке счёта");

Продолжить;

КонецПопытки;

Если ОтветОбъект.Свойство("result", РезультатЗапроса) Тогда

Если РезультатЗапроса = "fail" Тогда

Сообщить(ОтветОбъект.msg);

Продолжить;

КонецЕсли;

КонецЦикла;

КонецФункции

ТестовыеДанные = Новый Массив;

ТестовыеДанные.Добавить(Новый Структура("clientid, orderid, service_name, client_email, client_phone, expiry, pay_amount", "Иванов Иван Иванович", "123-1", "Тестовая услуга", "test@yourdomain.com", "+79876543210", "20191020200103", "100.03"));

ТестовыеДанные.Добавить(Новый Структура("clientid, orderid, service_name, client_email, client_phone, expiry, pay_amount", "Петров Пётр Петрович", "123-2", "Тестовый товар", "example@yourdomain.com", "+79876543210", "20191031101158", "10.50"));

ВыгрузитьЗаказыPayKeeper(ТестовыеДанные);

В функцию ВыгрузитьЗаказыPayKeeper() передаётся подготовленный массив с заказами, по которым будут отправлены счета.

В этой функции устанавливается соединение с сервером PayKeeper, с использованием логина и пароля любого пользователя личного кабинета, и получается токен для работы с личным кабинетом по JSON API:

Функция ВыгрузитьЗаказыPayKeeper(МассивЗаказов)

	СоединениеHTTP = Новый HTTPСоединение("_____.server.paykeeper.ru", , "Пользователь_ЛК", "Пароль", , , Новый ЗащищенноеСоединениеOpenSSL);

	Заголовки = Новый Соответствие;

	Токен = ПолучитьТокенPayKeeper(СоединениеHTTP, Заголовки);

Функция ВыгрузитьЗаказыPayKeeper(МассивЗаказов)

Заголовки = Новый Соответствие;

Токен = ПолучитьТокенPayKeeper(СоединениеHTTP, Заголовки);

Затем созданное соединение используется для отправки счетов:

	Возврат ОтправитьДанныеPayKeeper(СоединениеHTTP, Заголовки, Токен, МассивЗаказов);

1	Возврат ОтправитьДанныеPayKeeper(СоединениеHTTP, Заголовки, Токен, МассивЗаказов);

В функции отправки ОтправитьДанныеPayKeeper(); для каждого элемента в массиве заказов формируется и отправляется POST-запрос с необходимыми данными для метода 3.4 JSON API. Обратите внимание на заголовок Content-Type для данных запросов. Он обязательно должен быть application/x-www-form-urlencoded, иначе система сообщит об ошибке.

	ЗапросHTTP = Новый HTTPЗапрос("/change/invoice/preview/", Заголовки);
	ЗапросHTTP.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");

	Для Каждого ДанныеДляОтправкиСтрока Из ДанныеДляОтправки Цикл

		ТелоЗапроса = "token=" + Токен +
		"&clientid=" + ДанныеДляОтправкиСтрока.clientid +
		"&orderid=" + ДанныеДляОтправкиСтрока.orderid +
		"&service_name=" + ДанныеДляОтправкиСтрока.service_name +
		"&client_email=" + ДанныеДляОтправкиСтрока.client_email +
		"&client_phone=" + ДанныеДляОтправкиСтрока.client_phone +
		"&expiry=" + Формат(ДанныеДляОтправкиСтрока.expiry, "ДФ=гггг-ММ-дд") +
		"&pay_amount=" + ДанныеДляОтправкиСтрока.pay_amount;

		ЗапросHTTP.УстановитьТелоИзСтроки(ТелоЗапроса);

		ОтветHTTP = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTP);

		ЧтениеJSON = Новый ЧтениеJSON;
		ЧтениеJSON.УстановитьСтроку(ОтветHTTP.ПолучитьТелоКакСтроку());

		Попытка
			ОтветОбъект = ПрочитатьJSON(ЧтениеJSON);
		Исключение
			Сообщить("Ошибка при выставлении счёта");
			Продолжить;
		КонецПопытки;

		РезультатЗапроса = "";
		Если ОтветОбъект.Свойство("result", РезультатЗапроса) Тогда
			Если РезультатЗапроса = "fail" Тогда
				Сообщить(ОтветОбъект.msg);
				Продолжить;
			КонецЕсли;
		КонецЕсли;

ЗапросHTTP = Новый HTTPЗапрос("/change/invoice/preview/", Заголовки);

ЗапросHTTP.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");

Для Каждого ДанныеДляОтправкиСтрока Из ДанныеДляОтправки Цикл

ТелоЗапроса = "token=" + Токен +

"&clientid=" + ДанныеДляОтправкиСтрока.clientid +

"&orderid=" + ДанныеДляОтправкиСтрока.orderid +

"&service_name=" + ДанныеДляОтправкиСтрока.service_name +

"&client_email=" + ДанныеДляОтправкиСтрока.client_email +

"&client_phone=" + ДанныеДляОтправкиСтрока.client_phone +

"&expiry=" + Формат(ДанныеДляОтправкиСтрока.expiry, "ДФ=гггг-ММ-дд") +

"&pay_amount=" + ДанныеДляОтправкиСтрока.pay_amount;

ЗапросHTTP.УстановитьТелоИзСтроки(ТелоЗапроса);

ОтветHTTP = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTP);

ЧтениеJSON = Новый ЧтениеJSON;

ЧтениеJSON.УстановитьСтроку(ОтветHTTP.ПолучитьТелоКакСтроку());

Попытка

ОтветОбъект = ПрочитатьJSON(ЧтениеJSON);

Исключение

Сообщить("Ошибка при выставлении счёта");

Продолжить;

КонецПопытки;

РезультатЗапроса = "";

Если ОтветОбъект.Свойство("result", РезультатЗапроса) Тогда

Если РезультатЗапроса = "fail" Тогда

Сообщить(ОтветОбъект.msg);

Продолжить;

КонецЕсли;

Важно! Для конфигураций 1С, работающих в режиме совместимости, строка формирования запроса должна быть:

ЗапросHTTP.УстановитьТелоИзСтроки(ТелоЗапроса, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);

1	ЗапросHTTP.УстановитьТелоИзСтроки(ТелоЗапроса, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);

В случае успешного завершения данного запроса сразу выполняется запрос 3.5 JSON API для отправки счёта клиенту:

		ЗапросHTTPОтправить = Новый HTTPЗапрос("/change/invoice/send/", Заголовки);

		ТелоЗапросаОтправить = "token=" + Токен +
		"&id=" + ОтветОбъект.invoice_id;

		ЗапросHTTPОтправить.УстановитьТелоИзСтроки(ТелоЗапросаОтправить);

		ОтветHTTPОтправить = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTPОтправить);

		ЧтениеJSON.УстановитьСтроку(ОтветHTTPОтправить.ПолучитьТелоКакСтроку());

		Попытка
			ОтветОбъект = ПрочитатьJSON(ЧтениеJSON);
		Исключение
			Сообщить("Ошибка при отправке счёта");
			Продолжить;
		КонецПопытки;

		Если ОтветОбъект.Свойство("result", РезультатЗапроса) Тогда
			Если РезультатЗапроса = "fail" Тогда
				Сообщить(ОтветОбъект.msg);
				Продолжить;
			КонецЕсли;
		КонецЕсли;

ЗапросHTTPОтправить = Новый HTTPЗапрос("/change/invoice/send/", Заголовки);

ТелоЗапросаОтправить = "token=" + Токен +

"&id=" + ОтветОбъект.invoice_id;

ЗапросHTTPОтправить.УстановитьТелоИзСтроки(ТелоЗапросаОтправить);

ОтветHTTPОтправить = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTPОтправить);

ЧтениеJSON.УстановитьСтроку(ОтветHTTPОтправить.ПолучитьТелоКакСтроку());

Попытка

ОтветОбъект = ПрочитатьJSON(ЧтениеJSON);

Исключение

Сообщить("Ошибка при отправке счёта");

Продолжить;

КонецПопытки;

Если ОтветОбъект.Свойство("result", РезультатЗапроса) Тогда

Если РезультатЗапроса = "fail" Тогда

Сообщить(ОтветОбъект.msg);

Продолжить;

КонецЕсли;

В случае, если вы планируете самостоятельно формировать письмо со счётом клиенту, а не отправлять его средствами PayKeeper, можно исключить эту последнюю секцию кода, осуществляющую запрос 3.5 и использовать параметр invoice_url из ответа по запросу 3.4 для отправки ссылки на оплату клиенту.

Этот код является примером реализации автоматической отправки счетов из 1С с использованием JSON API, однако вполне может использоваться в реальном решении по интеграции с нашей системой.

Оставьте заявку

Менеджер перезвонит вам и расскажет про детали подключения

Контактное лицо

Контактный телефон

Мы сможем качественнее обработать вашу заявку, если вы укажете несколько дополнительных деталей.

Электронная почта

Адрес сайта

Соглашаюсь с обработкой персональных данных