Жизнь замечательных грибов
Разработки на платформе 1С
Нехитрая задача, и решение простое, «в лоб»:
|
1 2 3 4 5 6 7 8 9 10 |
&НаСервере Функция НайтиПеречислениеПоИмени(перечисление,перечисление_строка) для каждого стр из перечисление цикл если строка(стр)=перечисление_строка тогда возврат стр; конецесли; конеццикла; возврат перечисление.ПустаяСсылка(); КонецФункции |
Задача: вывести число прописью, число должно быть целым
Решение:
|
1 |
ЧислоПрописью(ПроцентВознаграждения,"НП=Ложь",",,,,,,,,0") |
Ну и бонусом, перечислю наиболее распространенные варианты использования.
Вывод рублей и копеек:
|
1 |
ЧислоПрописью(итвсегосндс,"Л=ru_RU; ДП=Ложь","рубль, рубля, рублей, м, копейка, копейки, копеек, ж" ); |
Вывод процентов:
|
1 |
ЧислоПрописью(ПроцентВознаграждения,"НП=Истина","процент,процента,процентов,,,,,,0") |
В данной версии БСП используемой в БУх, отправка письма производится так:
|
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 уже 😉 ) , есть уже штатный способ, встроенный в платформу:
Автоматическое сохранение данных»В свойствах формы выбираем «Автоматическое сохранение данных» = использовать:
И далее проставляем в графе «Сохранение» галочки у тех реквизитов, которые необходимо сохранять:
