1С 7.x : Как получить курсы валют с сайта НБУ http://www.bank.gov.ua/ за любую дату ? 6
Функция ПолучитьТаблицуКурсовНБУ(ДатаКурса, Ежедневно = 1) // если в качестве второго параметра указать число отличное от 1 - получем валюты, которые котируются на ежемесячной основе
Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчеCOM-подключение к базе 7.7 из .NET, .NET Core 2 Инсталяция: dotnet add package sabatex.V1C77 или добавить через NUGET пакет sabatex.V1C77. Добавить пространство имен: using sabatex.V1C77; пример использованя: ---C# static void Main(string args) { // создаем строку соединенCклонения по падежам 6 НаКлиенте
Процедура Команда1(Команда)
ФИО = " Иванов Иван Иванович" ;
Падеж = 2;
Пол = 1;
Результат = СклонениеФИО(ФИО, Падеж, пол);
Сообщить(Результат);
КонецПроцедуры
НаСервере
Функция СклонениеФИО(ФИО, Падеж, пол)
Результат = " " ;
Автоматическая установка ширины колонки табличного документа. 0 Процедура, которая " примерно" делает автоширину колонок (навроде, как если бы выделить все колонки и дважды щелкнуть мышкой по границе заголовка колонки). Привожу текст, работает неахти, но лучше чем ничего:
Процедура РасчетШириныКолонок(ТабличныйАлгоритм шифрования RC4 1 Для решения некоторых задач, иногда требуется имееть возможность шифровать и дешифровывать, какие-то данные. Но при этом нет возможности использовать стороние внешнии компоненты.
Предлагаем пример реализации алгоритма шифрования RC4 на встроенном язПосмотреть все результаты поиска похожих
Ввести число, ввод числа 1
КолВо = 1;
Если ВвестиЧисло(КолВо, "Введите количество", 10, 2) Tогда
// обработка введенного количество
КонецЕсли;
Если ВвестиЧисло(Ном, "Введите номер приказа", 5, 0, 10) = 1 Тогда
ВыбДок = СоздатьОбъект("Документ.Приказ");
ВыбДок.НайтиФункция преобразует переданную сумму, число в строку вида 0 ПарСумма - сумма, число
Функция глРубКоп(ПарСумма) Экспорт
Если Число(ПарСумма)=0 Тогда
Возврат "руб. коп."
КонецЕсли;
Возврат ""+Цел(ПарСумма)+" руб. "+Формат((ПарСумма-Цел(ПарСумма))* 100,"ЧЦ=2; ЧВН=")+" коп."
КонецФункции
//Пример обраФункция возвращает число, равное ближайшему целому "сверху" 0 Код одинаков для 7 и 8 версии
Функция ЦелМаксимальное(Сумма) Экспорт
Возврат ?(Цел(Сумма) = Сумма, Сумма, Цел(Сумма) + 1);
КонецФункции
Функция преобразует переданную сумму в строку вида 123 руб. 45 коп 0 //ПарСумма - сумма, число
//коп - Выводится всегда
Функция глРубКоп(ПарСумма) Экспорт
Если Число(ПарСумма)=0 Тогда
Возврат " руб. коп."
КонецЕсли;
Возврат " " +Цел(ПарСумма)+" руб. " +Формат((ПарСумма-Цел(ПарСумма))* 100," ЧЦ=2; ЧВН=" )Функция возведения числа в степень, в дробную степень 0 Для возведения числа в степень в 1С 8.х есть встроенная функция
pow(основание, степень);
Возвращает результат возведения основания в указанную степень.
* основание: число
* степень: число
//Возведем число 5 в степень 3
Результат = pow(5,3);
/Посмотреть все в категории Работа с Числами
Работа с Числами