01.12.2025

8.x

Текст = ""; Подсказка = "Введите текст напоминания"; Если ВвестиСтроку(Текст,Подсказка, 0, истина) Тогда // запомнить текст напоминания...
ДокументСписок.Отбор.Сбросить(); ДокументСписок.Отбор.статус.ВидСравнения=ВидСравнения.Содержит; ДокументСписок.Отбор.Статус.Значение="Принята"; ДокументСписок.Отбор.Статус.установить();
&НаКлиенте Процедура ПоКнопкеНовыйКонтрагент(Команда) // Вставить содержимое обработчика. Перем НовыйКонтрагент; НовыйКонтрагент = Новый Структура("Наименование, ПолноеНаименование, ИНН"); НовыйКонтрагент.Наименование =...
Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | Номенклатура.Ссылка |ИЗ | Справочник.Номенклатура КАК Номенклатура |ГДЕ | Номенклатура.ПометкаУдаления = ИСТИНА |";...
НаборЗаписей = РегистрыСведений.ВашРегистр.СоздатьНаборЗаписей(); НаборЗаписей.Записать(); Создаем переменную НаборЗаписей как набор записей регистра сведений. Поскольку мы не прочитали данные...
Процедура ФормДиаграммы() Траб=Новый ТаблицаЗначений; Траб.Очистить(); Траб.Колонки.Добавить("ххх"); Траб.Колонки.Добавить("Норм"); Траб.Колонки.Добавить("Факт"); НовСтр=Траб.Добавить(); НовСтр.ххх="а1"; НовСтр.Норм=5; НовСтр.Факт=10; НовСтр=Траб.Добавить(); НовСтр.ххх="а2"; НовСтр.Норм=2; НовСтр.Факт=15; НовСтр=Траб.Добавить();...
Для Каждого метпер Из Метаданные.Перечисления.СостоянияРаботникаОрганизации.ЗначенияПеречисления Цикл МенюКнопки = ЭлементыФормы.ОсновныеДействияФормы.Кнопки.ПодменюНеявки.Кнопки; НоваяКнопка = МенюКнопки.Вставить(инд, метпер.Имя, ТипКнопкиКоманднойПанели.Действие, метпер, Новый Действие("Пометка"));...
Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта)); Сумма = ВалютнаяСумма * Запись.Курс /...
Процедура СозданиеИндексногоФайла(ЛокФайл,Кодировка,ЛокМассивИндексов) Экспорт ЛокБаза = Новый XBase(ЛокФайл); ЛокБаза.Первая(); ЛокБаза.Кодировка = Кодировка; // индекс CODE + TRIM(NAME) Для...