сформированную » Поиск

Результаты по ключевому слову: сформированную

Отправка SMS через SMS.ru

Один из самый простых сервисов для работы с смс.

Регистрируемся на сайта sms.ru
Добавляем отправителя, проходим все проверки и разрешения (очень просто и быстро)
Получаем API ключ и начинаем кодить в 1С.

Сама отправка смс, через http, выглядит вот так

https://sms.ru/sms/send?api_id=ВАШ_АПИ_КЛЮЧ&to=Номер1,Номер2&msg=hello+world&json=1 [/pre]

Для примера , у меня будет цикл по запросу, который отправляет заранее заданный текст из справочника, клиентам.

В нем у нас есть 2 объекта.

1) HTTP соединения

2) HTTP Запрос

В запрос кидаем сформированную строку, в которой есть

1) API ключ - записан в константы

2) Текст, из справочника (с заменой)

3) номер телефона из заказа (у кого откуда )

4) конец строки JSON= 1 , означает получение ответа от сайта , о успешной или не успешной отправке смс с кодами авторизации/отправки в формате JSON (Разбор JSON отдельная тема)

В запросе, указываем адрес который идет после sms.ru, начиная со слэша!

В соединении, если httpS , не указываем изначально , какой это протокол, указать порт и создать объект защищенного соединения.

В остальном, все как в коде, в любом виде =)

Код 1C v 8.х

 



Соединение = Новый HTTPСоединение("sms.ru",443,,,,,Новый ЗащищенноеСоединениеOpenSSL);

Запрос 	   = Новый HTTPЗапрос;

			 

Пока ВыборкаДляСмс.Следующий() Цикл

			

	ВремФайл 			 = ПолучитьИмяВременногоФайла("txt");

	текст				 = СтрЗаменить(Справочники.МДО_ТекстыСМС.НайтиПоКоду("000000001").Текст,"*номер*",ВыборкаДляСмс.НомерЗаказа);

	запрос.АдресРесурса = "/sms/send?api_id="+Константы.SMSru_ApiКлюч.Получить()+"&to="+СтрЗаменить(ВыборкаДляСмс.ТелефонИзЗаказа," ","")+"&from="+Константы.SMSru_Отправитель.Получить()+"&msg="+текст+"&json=1";

			 

	Соединение.ВызватьHTTPМетод("GET",Запрос,ВремФайл);

	ИзменитьСтатусСМС(ВремФайл,ВыборкаДляСмс.Заказ);

			 

КонецЦикла;

Категория: COM-объекты, WMI, WSH

Как вывести список на печать с учетом установленных отборов? Категория: Список Справочника, Документов, Регистров

Объектная модель схемы запроса

Периодически во встроенном языке возникает необходимость изменения текста запроса в зависимости от разных алгоритмических условий. Раньше подобная задача решалась путём непосредственного формирования нужного текста запроса в виде строки. А это не всегда удобно и зачастую очень громоздко.

Теперь во встроенном языке мы реализовали объектную модель схемы запроса. Вы можете создать пустую схему запроса конструктором и загрузить в неё имеющийся текст запроса. После этого отдельные элементы текста запроса будут доступны вам как свойства объектной модели.

На рисунке ниже стрелки показывают, в каких объектах встроенного языка будут доступны те или иные элементы простого запроса, загруженного в схему:

Редактирование текста запроса с помощью объектной модели позволяет вам проще и понятнее модифицировать имеющиеся запросы. Или даже создавать их во встроенном языке «с нуля». А затем просто получать готовый текст запроса из схемы методом ПолучитьТекстЗапроса().

Пример использования Схемы запроса

Код 1C v 8.3

 //Создание схемы запроса

СхемаЗапроса = Новый СхемаЗапроса;

ЗапросВыбораИзИБ = СхемаЗапроса.ПакетЗапросов[0];

//Установка свойств запроса

ЗапросВыбораИзИБ.ТаблицаДляПомещения = "ТаблицаОбороты";

ЗапросВыбораИзИБ.ВыбиратьРазрешенные = Истина;

//Добавляем операторы выбора первого запроса пакета

ОператорВыбораЗакупок = ЗапросВыбораИзИБ.Операторы[0];

ИсточникНоменклатура = ОператорВыбораЗакупок.Источники.Добавить("Справочник.Номенклатура","Товары");

//Добавляем запрос выбора из регистра закупок

ИсточникЗакупки = ОператорВыбораЗакупок.Источники.Добавить("РегистрНакопления.Закупки.Обороты","Закупки");

ИсточникЗакупки.Источник.Параметры[0].Выражение = Новый ВыражениеСхемыЗапроса("&Начало") ;

ИсточникЗакупки.Источник.Параметры[1].Выражение = Новый ВыражениеСхемыЗапроса("&Окончание") ;

ИсточникЗакупки.Источник.Параметры[2].Выражение = Новый ВыражениеСхемыЗапроса("Месяц") ;

//Меняем тип соединения

ИсточникЗакупки.Соединения[0].ТипСоединения = ТипСоединенияСхемыЗапроса.ПравоеВнешнее;

//Указываем выбираемые поля

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("Товары.Ссылка");

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("Закупки.Период");

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("ЕСТЬNULL(Закупки.СуммаОборот, 0)");

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("0");

//Указываем спевдонимы для выбранных полей

ЗапросВыбораИзИБ.Колонки[0].Псевдоним = "Номенклатура";

ЗапросВыбораИзИБ.Колонки[1].Псевдоним = "Период";

ЗапросВыбораИзИБ.Колонки[2].Псевдоним = "СуммаЗакупок";

ЗапросВыбораИзИБ.Колонки[3].Псевдоним = "СуммаПродаж";

//Добавляем отбор

ОператорВыбораЗакупок.Отбор.Добавить("НЕ Товары.ЭтоГруппа");





///////////////////////

//Выбираем данные о продажах

ОператорВыбораПродаж = ЗапросВыбораИзИБ.Операторы.Добавить();

ИсточникНоменклатура = ОператорВыбораПродаж.Источники.Добавить("Справочник.Номенклатура","Товары");

ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("Товары.Ссылка");

//Добавляем источник РН и устанавливаем параметры

ИсточникПродажи =ОператорВыбораПродаж.Источники.Добавить("РегистрНакопления.Продажи.Обороты","Продажи");

ИсточникПродажи.Источник.Параметры[0].Выражение = Новый ВыражениеСхемыЗапроса("&Начало") ;

ИсточникПродажи.Источник.Параметры[1].Выражение = Новый ВыражениеСхемыЗапроса("&Окончание") ;

ИсточникПродажи.Источник.Параметры[2].Выражение = Новый ВыражениеСхемыЗапроса("Месяц") ;

ИсточникПродажи.Соединения[0].ТипСоединения = ТипСоединенияСхемыЗапроса.ПравоеВнешнее;

//Указываем отбираемые поля и устанавливаем для числовых полей соответствие с полями первого запроса

ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("Продажи.Период");

ВыражениеЗакупки = ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("0");

ВыражениеПродажи = ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("ЕСТЬNULL(Продажи.СуммаОборот, 0)");

ЗапросВыбораИзИБ.Колонки[2].Поля.Установить(1,ВыражениеЗакупки);

ЗапросВыбораИзИБ.Колонки[3].Поля.Установить(1,ВыражениеПродажи);

//Добавляем отбор

ОператорВыбораПродаж.Отбор.Добавить("НЕ Товары.ЭтоГруппа");

//Индексируем данные

ЗапросВыбораИзИБ.Индекс.Добавить(ЗапросВыбораИзИБ.Колонки[0]);

ЗапросВыбораИзИБ.Индекс.Добавить(ЗапросВыбораИзИБ.Колонки[1]);

//Устанавливаем параметры выбора данных

ОператорВыбораПродаж.ВыбиратьРазличные = Истина;

ОператорВыбораПродаж.КоличествоПолучаемыхЗаписей = 100;





////////////////

//Второй пакет запроса

ЗапросВыбораИзВТ = СхемаЗапроса.ПакетЗапросов.Добавить();

ОператорВыбрать = ЗапросВыбораИзВТ.Операторы[0];

//Устанавливаем сформированную в прошлом запросе временную таблицу как источник

Источник = ОператорВыбрать.Источники.Добавить("ТаблицаОбороты","ТаблицаОбороты");

ОператорВыбрать.ВыбираемыеПоля.Добавить("ТаблицаОбороты.Номенклатура");

ОператорВыбрать.ВыбираемыеПоля.Добавить("ТаблицаОбороты.Период");

ОператорВыбрать.ВыбираемыеПоля.Добавить("СУММА(ТаблицаОбороты.СуммаЗакупок)");

ОператорВыбрать.ВыбираемыеПоля.Добавить("СУММА(ТаблицаОбороты.СуммаПродаж)");

//Условие отбора

ОператорВыбрать.Отбор.Добавить("СУММА(ТаблицаОбороты.СуммаЗакупок) > 0");

//Устанавливаем псевдонимы колонок

ЗапросВыбораИзВТ.Колонки[0].Псевдоним = "Номенклатура";

ЗапросВыбораИзВТ.Колонки[1].Псевдоним = "Период";

ЗапросВыбораИзВТ.Колонки[2].Псевдоним = "СуммаЗакупок";

ЗапросВыбораИзВТ.Колонки[3].Псевдоним = "СуммаПродаж";

//Порядок сортировки данных

ЗапросВыбораИзВТ.Порядок.Добавить(ЗапросВыбораИзВТ.Операторы[0].Источники[0].Источник.ДоступныеПоля[0].Поля[6]);

ЗапросВыбораИзВТ.Порядок.Добавить(ЗапросВыбораИзВТ.Колонки[1]);

//Итоги запроса

ИтогНоменклатура = ЗапросВыбораИзВТ.КонтрольныеТочкиИтогов.Добавить(ЗапросВыбораИзВТ.Колонки[0]);

ИтогНоменклатура.ТипКонтрольнойТочки = ТипКонтрольнойТочкиСхемыЗапроса.ТолькоИерархия; 

ЗапросВыбораИзВТ.ОбщиеИтоги =Истина;

ЗапросВыбораИзВТ.ВыраженияИтогов.Добавить(ЗапросВыбораИзВТ.Колонки[2]);

ЗапросВыбораИзВТ.ВыраженияИтогов.Добавить(ЗапросВыбораИзВТ.Колонки[3]);

////////////////

//Последний запрос пакета - удаление временной таблицы

ЗапросУничтоженияВТ = СхемаЗапроса.ПакетЗапросов.Добавить(Тип("ЗапросУничтоженияТаблицыСхемыЗапроса"));

ЗапросУничтоженияВТ.ИмяТаблицы = "ТаблицаОбороты";







// ДАЛЕЕ ЕСЛИнам необходимо этот запрос модифицировать дальше в зависимости от настроек.

// Рассмотрим несколько примеров модификация нашего пакета из 3х запросов:

// Пример 1. Допустим, у нас есть переменные "Организация" и "Склад". И в случае, если они заполнены, нам необходимо добавить в отбор данных условия на эти переменные.

Если ЗначениеЗаполнено(Организация) Тогда

ОператорВыбораЗакупок.Отбор.Добавить("Закупки.Организация = &Организация");

ОператорВыбораПродаж.Отбор.Добавить("Продажи.Организация = &Организация");

КонецЕсли; 

Если ЗначениеЗаполнено(Склад) Тогда

ОператорВыбораЗакупок.Отбор.Добавить("Закупки.Склад = &Склад");

ОператорВыбораПродаж.Отбор.Добавить("Продажи.Склад = &Склад");

КонецЕсли;



// Пример 2. Нам нужно отобрать товары, для которых последняя цена выше 1000руб. Т.е. необходимо 

// 1. Добавить в текст запроса выбор во временную таблицу из регистра цен номенклатуры, по которой цены выше 1000руб.

// 2. Добавить при выборе данных условия по этой временной таблице в оба запроса выбора данных (закупки и продажи).

// Как вклиниваться в текстовый запрос для выполнения этих действий, вы пожете представить самостоятельно.

// Программно мы просто добавляем строки кода:



//Добавляем временную таблицу

ЗапросИзРегистраЦен = СхемаЗапроса.ПакетЗапросов.Добавить();

//Настраиваем временную таблицу

ЗапросИзРегистраЦен.ТаблицаДляПомещения = "ВТ_ЦеныНоменклатуры";

ОператорВыбрать = ЗапросИзРегистраЦен.Операторы[0];

Источник = ОператорВыбрать.Источники.Добавить("РегистрСведений.ЦеныНоменклатуры.СрезПоследних","ЦеныНоменклатурыСрезПоследних");

ОператорВыбрать.ВыбираемыеПоля.Добавить("ЦеныНоменклатурыСрезПоследних.Номенклатура");

ОператорВыбрать.Отбор.Добавить("ЦеныНоменклатурыСрезПоследних.Цена > &Цена");

//Сдвигаем новую табличку перед запросами выбора данных

СхемаЗапроса.ПакетЗапросов.Сдвинуть(СхемаЗапроса.ПакетЗапросов.Индекс(ЗапросИзРегистраЦен),0);

//Добавляем условия в исходные запросы

ОператорВыбораЗакупок.Отбор.Добавить("Закупки.Номенклатура В (ВЫБРАТЬ ВТ_ЦеныНоменклатуры.Номенклатура ИЗ ВТ_ЦеныНоменклатуры КАК ВТ_ЦеныНоменклатуры)");

ОператорВыбораПродаж.Отбор.Добавить("Продажи.Номенклатура В (ВЫБРАТЬ ВТ_ЦеныНоменклатуры.Номенклатура ИЗ ВТ_ЦеныНоменклатуры КАК ВТ_ЦеныНоменклатуры)");





// Еще один небольшой пример использования схемы запроса. Формирование запроса, выполняющего поиск задвоенных значений предопределенных данных. 

// Без обращения к метаданным формирует один общий запрос ко всем справочникам, планам счетов, ПВХ, ПВР вцелом по конфигурации. 

СхемаЗапроса = Новый СхемаЗапроса;

КоллекцияОператоры = СхемаЗапроса.ПакетЗапросов[0].Операторы;

Для каждого ГруппаТаблиц Из СхемаЗапроса.ПакетЗапросов[0].ДоступныеТаблицы Цикл

    Если ГруппаТаблиц.Представление = "Справочники"

        ИЛИ ГруппаТаблиц.Представление = "ПланыСчетов"

        ИЛИ ГруппаТаблиц.Представление = "ПланыВидовРасчета"

        ИЛИ ГруппаТаблиц.Представление = "ПланыВидовХарактеристик" Тогда

        Для каждого Таблица Из ГруппаТаблиц.Состав Цикл

            Для каждого ПолеТаблицы Из Таблица.Поля Цикл

                Если ПолеТаблицы.Имя = "ИмяПредопределенныхДанных" Тогда

                    НовыйОператор = КоллекцияОператоры.Добавить();

                    НовыйИсточник = НовыйОператор.Источники.Добавить(Таблица,"СправочникИмя");

                    НовыйОператор.ВыбираемыеПоля.Добавить(""""+Таблица.Имя+"""");

                    НовыйОператор.ВыбираемыеПоля.Добавить("КОЛИЧЕСТВО(РАЗЛИЧНЫЕ СправочникИмя.ИмяПредопределенныхДанных)" );

                    НовыйОператор.Группировка.Добавить("СправочникИмя.ИмяПредопределенныхДанных");

                    НовыйОператор.Отбор.Добавить("СправочникИмя.Предопределенный");

                    НовыйОператор.Отбор.Добавить("КОЛИЧЕСТВО(РАЗЛИЧНЫЕ СправочникИмя.Ссылка) > 1");

                    Продолжить;

                КонецЕсли; 

            КонецЦикла; 

        КонецЦикла; 

    КонецЕсли; 

КонецЦикла;

Категория: Запросы