Жизнь замечательных грибов
В данной версии БСП используемой в БУх, отправка письма производится так:
|
1 2 3 4 |
тело="Прювет"; ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", объект.email, "Абырвалг", тело,"HTML"); РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись(),ПараметрыПисьма); |
POST запрос к какому то ресурсу в 1С можно организовать например примерно так:
|
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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
&НаСервере Функция СтруктураВСтрокуJSON(Данные)экспорт ЗаписьJSON = Новый ЗаписьJSON(); ЗаписьJSON.УстановитьСтроку(); ЗаписатьJSON(ЗаписьJSON, Данные); ответ=ЗаписьJSON.Закрыть(); // заменим -999999999 на null раз уж 1С это не умеет ответ=стрЗаменить(ответ,"-999999999","null"); возврат ответ; КонецФункции &НаСервере Функция API_SendSMS(УРЛ,Логин,Пароль,Отправитель,Телефон,ТекстСмс,ВремяЖизни=360)экспорт Соединение=ПолучитьПараметрыСоединения(УРЛ,Логин,Пароль); answer=API_getSessionID(Соединение,Логин,Пароль); если answer.error=true тогда возврат answer;конецесли; ПОСТ_Структура=Новый Структура("sessionId,sourceAddress,data,destinationAddress,validity"); ПОСТ_Структура.sessionId=answer.result; //идсессии, ПОСТ_Структура.sourceAddress=Отправитель; //имяотправителя ПОСТ_Структура.destinationAddress=Телефон; //получатель(номер) ПОСТ_Структура.data=ТекстСмс; //текст сообщения ПОСТ_Структура.validity=ВремяЖизни; //время жизни в минутах Заголовки = Новый Соответствие; Заголовки["Content-Type"] = "application/json"; Заголовки.Вставить("Connection", "keep-alive"); Заголовки.Вставить("User-Agent","Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko)"); HTTPЗапрос = Новый HTTPЗапрос("/rest/Sms/Send",Заголовки); HTTPЗапрос.УстановитьТелоИзСтроки(СтруктураВСтрокуJSON(ПОСТ_Структура), КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать); Результат = Соединение.ВызватьHTTPМетод("POST",HTTPЗапрос); РезЗапроса=JSONВСтруктуру(Результат.ПолучитьТелоКакСтроку()); если ТипЗнч(РезЗапроса)=Тип("Строка") тогда answer.error=true; answer.result=РезЗапроса; возврат answer; конецесли; если ТипЗнч(РезЗапроса)=Тип("Структура") тогда answer.error=true; answer.result=РезЗапроса.Desc; возврат answer; конецесли; answer.error=false; answer.result=РезЗапроса[0]; возврат answer; КонецФункции |
Часто бывает ситуация, что необходимо во внешней обработке какие-то реквизиты позволять пользователю сохранять. Классический вариант — сохранять данные в пользовательских настройках, или придумывать иное место хранения. Но для этого нужны телодвижения со стороны программиста. С недавних пор (ну как с недавних, лет 5 уже 😉 ) , есть уже штатный способ, встроенный в платформу:
Автоматическое сохранение данных»В свойствах формы выбираем «Автоматическое сохранение данных» = использовать:
И далее проставляем в графе «Сохранение» галочки у тех реквизитов, которые необходимо сохранять:
|
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 |
Функция ГенерацияСлучайногоПароля(длн) ГСЧ = Новый ГенераторСлучайныхЧисел(ТекущаяУниверсальнаяДатаВМиллисекундах()); СлучайнаяСтрока = ""; Для Сч = 1 по длн Цикл Набор = ГСЧ.СлучайноеЧисло(1,7); Если Набор = 1 Тогда // это число СлучайныйСимвол = ГСЧ.СлучайноеЧисло(0,9); ИначеЕсли Набор = 2 Тогда // это Большая буква латиницы СлучайныйСимвол = Символ(ГСЧ.СлучайноеЧисло(65,90)); ИначеЕсли Набор >= 3 Тогда // это маленькая буква латиницы СлучайныйСимвол = Символ(ГСЧ.СлучайноеЧисло(97,122)); КонецЕсли; Если Набор >= 7 Тогда // это спецсимвол спецсимволы="!@#$&*()_-+[]^"; поз=ГСЧ.СлучайноеЧисло(0,стрдлина(спецсимволы)); СлучайныйСимвол =Сред(спецсимволы,поз,1); КонецЕсли; СлучайнаяСтрока = СлучайнаяСтрока + СлучайныйСимвол; КонецЦикла; Возврат(СлучайнаяСтрока); КонецФункции |
Подобная статья уже была где-то на сайте, но вот еще одна, но решил актуализировать.
Итак, задача: при нажатии кнопки «В Word», сформировать на сервере файл по шаблону, сохранить его на клиент и открыть любым зарегистрированным приложением. Работать должно кроссплатформенно Linux/Windows
Создадим docx файл вида:
Решение:
{v8 Область.Тушка}
какойто текст, текст, текст. Бла-бла-бла..
{v8 АрбитражныйСудНаименование}
{/v8 Область.Тушка}
Загрузим его в макет как бинарные данные.
Далее код кнопки:
|
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 |
&НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) ПоказатьОповещениеПользователя("Формирую документ", "", "Формируем документ. Это может занять некоторое время", БиблиотекаКартинок.БизнесПроцесс); Для Каждого ДокументСсылка Из ПараметрКоманды Цикл БинарныеДанные = СформироватьДокументНаСервере(ДокументСсылка); врмф = ПолучитьИмяВременногоФайла(".docx"); БинарныеДанные.Записать(врмф); Оповещение = Новый ОписаниеОповещения("ЗапускПриложения", ЭтотОбъект); НачатьЗапускПриложения(Оповещение, врмф, , Ложь); ПоказатьОповещениеПользователя("Документ сформирован", "", "Дождитесь открытия приложения для работы с документом", БиблиотекаКартинок.БизнесПроцесс); КонецЦикла; КонецПроцедуры &НаКлиенте Процедура ЗапускПриложения(КодВозврата, ДополнительныйПараметр) Экспорт КонецПроцедуры &НаСервере Функция СформироватьДокументНаСервере(ДокументСсылка); Возврат Документы.СК_КалькуляторИндексации.СгенерироватьДокумент(ДокументСсылка,"ЗаявлениеОбИндексации"); КонецФункции |
Код формирования файла на сервере:
|
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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
Процедура ДобавитьОписаниеОбласти(НаборОбластей, знач ИмяОбласти, знач ТипОбласти) Экспорт НоваяОбласть = Новый Структура; НоваяОбласть.Вставить("ИмяОбласти", ИмяОбласти); НоваяОбласть.Вставить("ТипОбласти", ТипОбласти); НаборОбластей.Вставить(ИмяОбласти, НоваяОбласть); КонецПроцедуры Функция ПолучениеОписанияОбластей() Экспорт ОписаниеОбластей = Новый Структура; ДобавитьОписаниеОбласти(ОписаниеОбластей, "Тушка", "Общая"); ДобавитьОписаниеОбласти(ОписаниеОбластей, "Подвал", "Общая"); ДобавитьОписаниеОбласти(ОписаниеОбластей, "ВерхнийКолонтитул", "ВерхнийКолонтитул"); ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийКолонтитул", "НижнийКолонтитул"); ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийТитульныйКолонтитул", "НижнийТитульныйКолонтитул"); Возврат ОписаниеОбластей; КонецФункции функция ПолучитьДанныеМакета(Знач ИмяМакета) ОписаниеОбластей = Новый Соответствие; ДвоичныеДанныеМакетов = Новый Соответствие; ТипыМакетов = Новый Соответствие; ДвоичныеДанныеМакетов.Вставить(ИмяМакета, ПолучитьМакет(ИмяМакета)); ОписаниеОбластей.Вставить(ИмяМакета, ПолучениеОписанияОбластей()); Макет = Новый Структура; Макет.Вставить("ОписаниеОбластей", ОписаниеОбластей); Макет.Вставить("ДвоичныеДанныеМакетов", ДвоичныеДанныеМакетов); Макет.Вставить("ТипыМакетов", ТипыМакетов); Макет.Вставить("ЛокальныйКаталогФайловПечати", Неопределено); Если НЕ Макет.Свойство("ТипыМакетов") Тогда Макет.Макеты.Вставить("ТипыМакетов", Новый Соответствие); КонецЕсли; Возврат Макет; Конецфункции Функция СгенерироватьДокумент(ДокументСсылка,ИмяМакета) Экспорт ДанныеОбъекта = Новый Структура; ДанныеОбъекта.Вставить("АрбитражныйСуд", "Самый гуманный суд в мире!"); ДанныеМакетов = ПолучитьДанныеМакета(ИмяМакета); ТипМакета = ДанныеМакетов.ТипыМакетов[ИмяМакета]; ДвоичныеДанныеМакета = ДанныеМакетов.ДвоичныеДанныеМакетов; Области = ДанныеМакетов.ОписаниеОбластей; Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакета[ИмяМакета],ТипМакета,ИмяМакета); Если Макет = Неопределено Тогда Возврат ""; КонецЕсли; ЗакрытьОкноПечатнойформы = Ложь; ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета,Макет); АдресХранилищаПечатнойФормы = ""; Если ПечатнаяФорма = Неопределено Тогда УправлениеПечатью.ОчиститьСсылки(Макет); Возврат ""; КонецЕсли; Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["Тушка"]); УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта); АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма); УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма, ЗакрытьОкноПечатнойФормы); УправлениеПечатью.ОчиститьСсылки(Макет); докбин = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(АдресХранилищаПечатнойФормы)); док = докбин.Получить(); Возврат док; КонецФункции |