Листинг Документ.Заявка

//*********************************************************

//

//Проверка на прохождение ремонта и его статус

Процедура ПроверкаСН()

Если (СерийныйНомер.СтатусРемонта=Перечисление.СтатусыРемонта.НаТО) Тогда

Предупреждение("Оборуудование с серийным номером "+СерийныйНомер+"

|уже находиться на ТО!");

ИначеЕсли (СерийныйНомер.СтатусРемонта=Перечисление.СтатусыРемонта.НаРемонте) Тогда

Предупреждение("Оборуудование с серийным номером "+СерийныйНомер+"

|уже находиться в ремонте!");

КонецЕсли;

Если СерийныйНомер.СтатусОборудования<>Перечисление.СтатусыОборудования.Продано Тогда

Если Вопрос("Оборудование не продано. Оно находится на складе. Продолжить?",4)<>6 Тогда

СерийныйНомер=0;

Возврат;

КОнецЕсли;

КонецЕсли;

Клиент=СерийныйНомер.Клиент;

ОборудованиеСтр = СокрЛП(Строка(СерийныйНомер.ОборудованиеКр))+" "+СокрЛП(Строка(СерийныйНомер.Модель));

Артикул = Строка(СерийныйНомер.Артикул);

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

//************************************************************

//Проверка возможнности сохранения документа

Процедура ПоКнОк()

Если Проведен() = 0 Тогда

Если ПустоеЗначение(Клиент) = 1 Тогда

Предупреждение("Не выбран клиент!");

Возврат;

КонецЕсли;

Если ПустоеЗначение(СерийныйНомер) = 1 Тогда

Предупреждение("Не выбрано оборудование!");

Возврат;

КонецЕсли;

Если ПустоеЗначение(Причина) = 1 Тогда

Предупреждение("Не указана причина обращения!");

Возврат;

КонецЕсли;

//Запись и проведение документа

Записать();

Провести();

КонецЕсли;

Форма.Закрыть(0);

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

//************************************************************

//Ввод нового прихода

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

Автор=глАвтор;

ТипОбслуживания=1;

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

//************************************************************//

//Открытие бланка приема на техническое обслуживание

Процедура ПриОткрытии()

Если Проведен() = 1 Тогда

Форма.ТолькоПросмотр(1);

Иначе

Форма.ТолькоПросмотр(0);

КонецЕсли;

ПриЗаписиПерепроводить(0);

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

//***************************************************************

//Печать талона

Процедура ПоКнТалон()

//Вывод на печать

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Таблица1");

Таб.ВывестиСекцию("Секция_2");

Таб.Опции(0,0,0,0);

Таб.ТолькоПросмотр(1);

Таб.Показать("Талон на техническое обслуживание","");

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