Пример исходного текста программного модуля
Перем ФлагПроводки; // Флаг проведения Документа
Перем ФлагИзменения; // Флаг изменения Документа
//————————————————————————————————————————————————
Функция КонтрольОстатка()
// Функция возвращает текущее значение остатка товара на складе
Ост = Регистр.ОстаткиТоваров.Остаток(Склад, Товар, "ОстатокТовара");
Возврат Ост;
КонецФункции
//————————————————————————————————————————————————
Процедура УстФлагИзм()
ФлагИзменения = 1;
КонецПроцедуры
//————————————————————————————————————————————————
Процедура ВводНового()
// предопределенная процедура, вызываемая при вводе нового документа
// установим дату Документа
ДатаДок = РабочаяДата();
// установим реквизиты Документа (по умолчанию)
ТипНакладной = Перечисление.ТипыНакладных.Перемещение;
Фирма = Константа.ДефФирма;
Склад = Константа.ДефСклад;
СкладПолучатель = Константа.ДефСклад;
КонецПроцедуры
//————————————————————————————————————————————————
Процедура ВыходноеСообщение()
// процедура, которую мы будем вызывать при нажатии кнопки "ОК"
Если (ФлагПроводки = 1) И (ФлагИзменения = 1) Тогда
Предупреждение("Проведенный Документ был изменен! При
| сохранении обязательно проведите Документ снова!");
КонецЕсли;
КонецПроцедуры
//————————————————————————————————————————————————
// При входе в Форму запомним промежуточные переменные
ФлагПроводки = Проведен();
ФлагИзменения = 0;
