Иллюстрированный самоучитель по языку системы 1С:Предприятие

Пример исходного текста программного модуля

Перем ФлагПроводки; // Флаг проведения Документа

Перем ФлагИзменения; // Флаг изменения Документа

//————————————————————————————————————————————————

Функция КонтрольОстатка()

// Функция возвращает текущее значение остатка товара на складе

Ост = Регистр.ОстаткиТоваров.Остаток(Склад, Товар, "ОстатокТовара");

Возврат Ост;

КонецФункции

//————————————————————————————————————————————————

Процедура УстФлагИзм()

ФлагИзменения = 1;

КонецПроцедуры

//————————————————————————————————————————————————

Процедура ВводНового()

// предопределенная процедура, вызываемая при вводе нового документа

// установим дату Документа

ДатаДок = РабочаяДата();

// установим реквизиты Документа (по умолчанию)

ТипНакладной = Перечисление.ТипыНакладных.Перемещение;

Фирма = Константа.ДефФирма;

Склад = Константа.ДефСклад;

СкладПолучатель = Константа.ДефСклад;

КонецПроцедуры

//————————————————————————————————————————————————

Процедура ВыходноеСообщение()

// процедура, которую мы будем вызывать при нажатии кнопки "ОК"

Если (ФлагПроводки = 1) И (ФлагИзменения = 1) Тогда

Предупреждение("Проведенный Документ был изменен! При

| сохранении обязательно проведите Документ снова!");

КонецЕсли;

КонецПроцедуры

//————————————————————————————————————————————————

// При входе в Форму запомним промежуточные переменные

ФлагПроводки = Проведен();

ФлагИзменения = 0;