Код IT
← Каталог

Первая программа на 1С — Написание кода первой программы

Фрагмент из «Первая программа на 1С»: Написание кода первой программы.

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