Menu
Кусочки полезного кода 1С
//Получим и сохраним Общую картинку из библиотеку картинок конфигурации<br /> ИмяКартинки = Метаданные.ОбщиеКартинки.OutlookExpress;<br /> ВыбраннаяКартинка = БиблиотекаКартинок[ИмяКартинки.Имя];<br /> // Сохраним полученную картинку в c:temp<br /> ВыбраннаяКартинка.Записать(«c:temp»+ИмяКартинки.Имя+».»+Строка(ВыбраннаяКартинка.Формат()));<br /> //А теперь сохраним картинку в другом формате PNG<br /> КартинкаPNG = ВыбраннаяКартинка.Преобразовать(ФорматКартинки.PNG);<br /> КартинкаPNG.Записать(«c:\\temp»+ИмяКартинки.Имя+».»+Строка(КартинкаPNG.Формат()));
<br /> ЭтаФорма.УсловноеОформление.Элементы.Очистить();<br /> ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить();<br /> ОформляемоеПоле = ЭлементУсловногоОформления.Поля.Элементы.Добавить();<br /> ОформляемоеПоле.Поле = Новый ПолеКомпоновкиДанных(«Товары»);<br /> ЭлементОтбора = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип(«ЭлементОтбораКомпоновкиДанных»));<br /> ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(«Объект.Товары.НеПорезан»);<br /> ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;<br /> ЭлементОтбора.ПравоеЗначение = Истина;<br /> ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра(«ЦветТекста», WebЦвета.Красный);<br />
Процедура …ПриПолученииДанных(Элемент, ОформленияСтрок)<br /> Для каждого ОформлениеСтроки из ОформленияСтрок Цикл<br /> Если ОформлениеСтроки.ДанныеСтроки…Ссылка.Оплачено Тогда<br /> ЦветФона=Новый Цвет(176,196,222);<br /> Иначе<br /> ЦветФона=Новый Цвет(255, 255, 255 );<br /> КонецЕсли;<br /> ОформлениеСтроки.ЦветФона=ЦветФона;<br /> КонецЦикла;<br /> КонецПроцедуры
Структура = Новый Структура;<br /> Структура.Вставить(«Фамилия», «Иванов»);<br /> Массив = Новый Массив;<br /> Массив.Добавить(Дата(2015,1,30));<br /> Массив.Добавить(123.45);<br /> Структура.Вставить(«Данные», Массив);</p> <p>ЗаписьJSON = Новый ЗаписьJSON;<br /> ЗаписьJSON.УстановитьСтроку();<br /> ЗаписатьJSON(ЗаписьJSON, Структура);<br /> СтрокаJSON = ЗаписьJSON.Закрыть();
ЧтениеJSON = Новый ЧтениеJSON();<br /> ЧтениеJSON.УстановитьСтроку(СтрокаJSON);<br /> ОтветВСтруктуре1С = ПрочитатьJSON(ЧтениеJSON);<br /> ЧтениеJSON.Закрыть();
Набор = РегистрыНакопления.ТвойРегистр.СоздатьНаборЗаписей();<br /> Набор.Отбор.Регистратор.Установить(ТвойРегистратор);<br /> Набор.Прочитать();
КурсыВалют = РегистрыСведений.КурсыВалют;<br /> НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();<br /> Доллар = Справочники.Валюты.НайтиПоНаименованию(«USD»);<br /> НаборКурсов.Отбор.Валюта.Установить(Доллар);<br /> НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));<br /> НаборКурсов.Прочитать();<br /> Если НаборКурсов.Количество() = 0 Тогда<br /> НовыйКурс = НаборКурсов.Добавить();<br /> НовыйКурс.Валюта = Доллар;<br /> НовыйКурс.Период = ТекущаяДата();<br /> ИначеЕсли НаборКурсов.Количество() = 1 Тогда<br /> НовыйКурс = НаборКурсов[0];<br /> Иначе<br /> Предупреждение(НСтр(«ru = ‘Курс валюты задается один раз в день.’;»<br /> + » en = ‘Rate is set once a day.'»), 60);<br /> Возврат;<br /> КонецЕсли;