18.10.2026

8.2 УП

8.2 УП

Перем Значение; // В эту переменную запишем значение из реестра RegProv=ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ); // Читаем значение ключа...
Функция КоличествоПрописью(Количество) Экспорт ЦелаяЧасть = Цел(Количество); ДробнаяЧасть = Окр(Количество - ЦелаяЧасть, 3); Если ДробнаяЧасть = Окр(ДробнаяЧасть,0) Тогда...
Функция ПолучитьСписокОткрытыхОкон() Экспорт ВключатьФормыЭлементов = ЭтаФорма.ВладелецФормы.ЭлементыФормы.ВключатьФормыЭлементов.Значение; // Определим перебором, сколько у нас объектов в системе КолвоОбъектов =...
При отображении форм 1С:Предприятия 8 используется системный шрифт стандартного размера. Изменить размер шрифта можно указанием нужного масштаба...
СправочникСписок.Отбор.Сбросить(); СправочникСписок.Отбор.статус.ВидСравнения=ВидСравнения.Содержит; СправочникСписок.Отбор.Статус.Значение="Принята"; СправочникСписок.Отбор.Статус.Установить(); Для 1С 8.2: Есть несколько способов для того, чтобы открыть форму списка с...
&НаКлиенте Процедура УдалитьДокумент(Команда) // Вставить содержимое обработчика. УдалитьДокументНаСервере(0); КонецПроцедуры &НаСервере Процедура УдалитьДокументНаСервере(ПометкаУдаления) // Вставить содержимое обработчика. Перем...
RegProv=ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ); // Создадим ключ, установив значение в текущую дату RegProv.CreateKey("2147483649","Software\1C\1Cv8\Report"); // создание раздела // установка...
СтруктураОтборов = Новый Структура; СтруктураПараметровОтбора = Новый Структура; Для Каждого ЭлементОтбора из ЖурналДокументовСписок.Отбор Цикл Если ЭлементОтбора.Использование Тогда...
&НаКлиенте Процедура ПоКнопкеНовыйКонтрагент(Команда) // Вставить содержимое обработчика. Перем НовыйКонтрагент; НовыйКонтрагент = Новый Структура("Наименование, ПолноеНаименование, ИНН"); НовыйКонтрагент.Наименование =...
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); ДиалогОткрытияФайла.Выбрать(); Файл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла); Текст = "Файл: " + Файл.Имя; Текст =...