← Каталог
Первая программа на 1С — Написание кода первой программы
Фрагмент из «Первая программа на 1С»: Написание кода первой программы.
Процедура КнопкаВыводаНажатие(Кнопка)
Текст = ВводСтроки("Введите ваше приветствие", , "Текст");
Если Не ПустаяСтрока(Текст) Тогда
Реквизит.ТекстПриветствия = Текст;
Записать();
Сообщить("Документ сохранен. Сообщение: " + Текст);
КонецЕсли;
КонецПроцедуры Процедура КнопкаВыводаНажатие(Кнопка)
Текст = ВводСтроки("Введите ваше приветствие", , "Текст");
Если Не ПустаяСтрока(Текст) Тогда
Реквизит.ТекстПриветствия = Текст;
Записать();
Сообщить("Документ сохранен. Сообщение: " + Текст);
КонецЕсли;
КонецПроцедуры