Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
11 фев 2026, 03:05

Как изменить название кнопок в РежимДиалогаВопрос

Автор Shardane, Вчера в 09:30

0 Пользователей и 1 гость просматривают эту тему.

Shardane

Доброе утро/день/вечер. Подскажите пожалуйста как вместо кнопок Да/Нет сделать наименование Записать и продолжить / Отмена?


&НаСервере
Процедура СоздатьАбонементыНаСервере()
Для Каждого СтрокаТЧ из Объект.Абонементы Цикл
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.ДнейЗаморозки КАК ДнейЗаморозки,
| Номенклатура.СрокДействияАбонемента КАК СрокДействияАбонемента
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", СтрокаТЧ.Номенклатура);
Результат = Запрос.Выполнить().Выбрать();

Пока Результат.Следующий() Цикл

НоваяЗапись = Справочники.Абонементы.СоздатьЭлемент();
НоваяЗапись.Наименование = СтрШаблон("%1 (%2)", Объект.Контрагент, СтрокаТЧ.Номенклатура);
НоваяЗапись.Владелец = Объект.Контрагент;
НоваяЗапись.Номенклатура = СтрокаТЧ.Номенклатура;
НоваяЗапись.Менеджер = Объект.Сотрудник;
НоваяЗапись.ДатаПродажи = Объект.Дата;
НоваяЗапись.ДокументПродажи = Объект.Ссылка;
Если СтрокаТЧ.Активировать Тогда
НоваяЗапись.ДатаАктивации = Объект.Дата;
НоваяЗапись.ДатаОкончания = ДобавитьМесяц(Объект.Дата, Результат.СрокДействияАбонемента);
КонецЕсли;
НоваяЗапись.СрокДействия = СтрокаТЧ.КоличествоМесяцев;                                                                                                                  
НоваяЗапись.ДнейЗаморозки = Результат.ДнейЗаморозки;
НоваяЗапись.ОстатокДнейЗаморозки = Результат.ДнейЗаморозки;
Попытка
НоваяЗапись.Записать();
СтрокаТЧ.Абонемент = НоваяЗапись.Ссылка;
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура СоздатьАбонементы(Команда)
Если Модифицированность Тогда
ТекстВопроса = "Для выполнения команды ""Создать абонементы"" данные будут записаны?";
Оповещение = Новый ОписаниеОповещения("ПослеОтветаНаВопрос", ЭтаФорма);
ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет,,,"Внимание!");
Иначе
СоздатьАбонементыНаСервере();
КонецЕсли;
КонецПроцедуры 

&НаКлиенте
Процедура ПослеОтветаНаВопрос(Результат) Экспорт
Если Результат = КодВозвратаДиалога.Да Тогда
Объект.Записать();
СоздатьАбонементыНаСервере();
КонецЕсли;
КонецПроцедуры

sali

Здесь КодВозвратаДиалога есть несколько вариантов , которые отображаются на форме . возможно есть то-то вроде заголовка, но вряд-ли

nvj84

В синтакс-помощнике вроде бы как и не особо сложно описано.
&НаКлиенте
Процедура ДиалогиОГлавном(Команда)
    Оповещение = Новый ОписаниеОповещения("ДиалогиОГлавномЗавершение", ЭтотОбъект);
    Кнопки = Новый СписокЗначений;
    Кнопки.Добавить("КнопкаЗаписать","Записать");
    Кнопки.Добавить("КнопкаПродолжить","Продолжить");
    Кнопки.Добавить(КодВозвратаДиалога.Отмена);
    ПоказатьВопрос(Оповещение, "Текст вопроса", Кнопки,,,"Внимание");
КонецПроцедуры

&НаКлиенте
Процедура ДиалогиОГлавномЗавершение(РезультатВопроса, ДополнительныеПараметры) Экспорт
    Если РезультатВопроса = КодВозвратаДиалога.Отмена Тогда
        Сообщить("Отмена");
    ИначеЕсли РезультатВопроса = "КнопкаЗаписать" Тогда
        Сообщить("Записать");
    ИначеЕсли РезультатВопроса = "КнопкаПродолжить" Тогда
        Сообщить("Продолжить");
    КонецЕсли;
КонецПроцедуры

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск