Очистка регистра сведения

Менеджер = РегистрыСведений.ЛогированиеДействий.СоздатьНаборЗаписей();<br />
Менеджер.Прочитать();<br />
Менеджер.Очистить();<br />
Менеджер.Записать();

Записать текстовый файл

Текст = Новый ЗаписьТекста(«ФайлЗаписи.txt», КодировкаТекста.ANSI);<br />
Текст.ЗаписатьСтроку(«Добро в этот прекрасный мир!»);<br />
Текст.ЗаписатьСтроку(«Спасибо за наше капиталистическое настоящее!»);<br />
Текст.Закрыть();

Читаем текстовый файла построчно

Текст = Новый ЧтениеТекста(«Имя секретного файла с данными», КодировкаТекста.UTF8);<br />
Стр = Текст.ПрочитатьСтроку();<br />
Пока Стр = Неопределено Цикл // строки читаются до символа перевода строки<br />
Сообщить(Стр);<br />
Стр = Текст.ПрочитатьСтроку();<br />
КонецЦикла;

Раскрасить табличную часть УФ

ЭтаФорма.УсловноеОформление.Элементы.Очистить();<br />
ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить();<br />
ОформляемоеПоле = ЭлементУсловногоОформления.Поля.Элементы.Добавить();<br />
ОформляемоеПоле.Поле = Новый ПолеКомпоновкиДанных(«Товары»);<br />
ЭлементОтбора = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип(«ЭлементОтбораКомпоновкиДанных»));<br />
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(«Объект.Товары.НеПорезан»);<br />
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;<br />
ЭлементОтбора.ПравоеЗначение = Истина;<br />
ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра(«ЦветТекста», WebЦвета.Красный);

Раскрасить ТабличнуюЧасть в ОФ

Процедура …ПриПолученииДанных(Элемент, ОформленияСтрок)<br />
Для каждого ОформлениеСтроки из ОформленияСтрок Цикл<br />
Если ОформлениеСтроки.ДанныеСтроки.Ссылка.Оплачено Тогда<br />
ЦветФона=Новый Цвет(176,196,222);<br />
Иначе<br />
ЦветФона=Новый Цвет(255, 255, 255 );<br />
КонецЕсли;<br />
ОформлениеСтроки.ЦветФона=ЦветФона;<br />
КонецЦикла;<br />
КонецПроцедуры

Выбрать из списка несколько элементов ОФ

&НаКлиенте<br />
Процедура ВыбратьЧеловека(Команда)<br />
Люди = Новый СписокЗначений;<br />
Люди.Добавить(«Я»);<br />
Люди.Добавить(«Ты»);<br />
Люди.Добавить(«Он»);</p>
<p>ВыбранноеЗначение = Люди.ОтметитьЭлементы(«Выберите человека»);</p>
<p>Для каждого Человек Из Люди Цикл<br />
Если Человек.Пометка Тогда<br />
Сообщить(Человек);<br />
КонецЕсли;<br />
КонецЦикла;<br />
КонецПроцедуры

Выбрать из списка несколько элементов УФ

&НаКлиенте<br />
Процедура ВыбратьЗнакЗодиака(Команда)<br />
Личности = Новый СписокЗначений;<br />
Личности.Добавить(«Он»);<br />
Личности.Добавить(«Она»);<br />
Личности.Добавить(«Свободная неопределившиеся личность»);</p>
<p>ОповещениеПослеВыбора = Новый ОписаниеОповещения(«СообщитьРезультат», ЭтотОбъект);<br />
Личности.ПоказатьОтметкуЭлементов(ОповещениеПослеВыбора, «Выберите свободу»);<br />
КонецПроцедуры</p>
<p>&НаКлиенте<br />
Процедура СообщитьРезультат(Элементы, Параметры) Экспорт<br />
Если Элементы <> Неопределено Тогда<br />
Для Каждого Личность Из Элементы Цикл<br />
Если Личность.Пометка Тогда<br />
Сообщить(Личность.Значение);<br />
КонецЕсли;<br />
КонецЦикла;<br />
КонецЕсли;<br />
КонецПроцедуры

Выбрать из списка ОФ

Список = Новый СписокЗначений;<br />
Список.Добавить(«Доставка»);<br />
Список.Добавить(«Разгрузка»);<br />
Список.Добавить(«Картинка»,,,БиблиотекаКартинок.Картинка1);<br />
Вид = ВыбратьИзСписка(Список, Элементы.Поле1);

Выбрать из списка УФ

&НаКлиенте<br />
Процедура ЗагрузитьИзСписка(Команда)<br />
Список = Новый СписокЗначений;<br />
Список.Добавить(«Agender»);<br />
Список.Добавить(«Androgyne»);<br />
Список.Добавить(«Androgynous»);<br />
Список.Добавить(«Bigender»);<br />
Список.Добавить(«Cis»);<br />
Список.Добавить(«Cis Female»);<br />
Список.Добавить(«Cis Male»);<br />
Список.Добавить(«Cis Woman»);<br />
Список.Добавить(«Cis Men»);<br />
Список.Добавить(«Cisgender»);<br />
Список.Добавить(«Other»);<br />
Список.Добавить(«Neither»);<br />
Список.Добавить(«Neutrois»);<br />
Список.Добавить(«Non-binary…»);</p>
<p>Оп = Новый ОписаниеОповещения(«ПослеВыбораЗагрузитьИзСписка», ЭтотОбъект);<br />
ПоказатьВыборИзСписка(оп, Список, Элементы.кнпЗагрузитьИзСписка);<br />
КонецПроцедуры</p>
<p>&НаКлиенте<br />
Процедура ПослеВыбораЗагрузитьИзСписка(ВыбранныйЭлемент,Доп) Экспорт<br />
Если ВыбранныйЭлемент <> Неопределено Тогда<br />
Вид = ВыбранныйЭлемент.Значение;<br />
Если ЗначениеЗаполнено(Вид) Тогда<br />
ЗагрузитьИзСпискаНаСервере(Вид);<br />
Элементы.ТаблицаТестов.Обновить();<br />
КонецЕсли;<br />
КонецЕсли;<br />
КонецПроцедуры</p>
<p>&НаСервере<br />
Процедура ЗагрузитьИзСпискаНаСервере(Вид)<br />
ОбъектСервера = РеквизитФормыВЗначение(«Объект»);<br />
//работаем с сервера<br />
КонецПроцедуры

Запись файла на клиенте УФ

&НаКлиенте<br />
Процедура СохранитьФайл(Команда)<br />
Режим = РежимДиалогаВыбораФайла.Сохранение;<br />
ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим);<br />
Фильтр = «Текст(*.txt)|*.txt»;<br />
ДиалогСохраненияФайла.Фильтр = Фильтр;<br />
ДиалогСохраненияФайла.МножественныйВыбор = Ложь;<br />
ДиалогСохраненияФайла.Заголовок = «Выберите файл для сохранения»;<br />
ДиалогСохраненияФайла.Показать(Новый ОписаниеОповещения(«СохранитьФайлЗавершение», ЭтаФорма, Новый Структура(«ДиалогСохраненияФайла», ДиалогСохраненияФайла)));<br />
КонецПроцедуры</p>
<p>&НаКлиенте<br />
Процедура СохранитьФайлЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт<br />
ДиалогСохраненияФайла = ДополнительныеПараметры.ДиалогСохраненияФайла;<br />
Если (ВыбранныеФайлы <> Неопределено) Тогда</p>
<p>//работаем с массивом ВыбранныеФайлы</p>
<p>//или протаскиваем через Доп параметры<br />
ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла;</p>
<p>КонецЕсли;<br />
КонецПроцедуры<br />