-- Шаблон создан мастером бланков
-- 04.01.2007 14:21:07
--
БланкСШаблоном "Наименование документа", Редактор РПО_ДОГОВОР_НАИМ;

Тип_ :Integer;

Func Код_OnVerify(FieldName: String; Iter: Integer; Value: String): Logical;
 if not ValidSign(Value): Раб.Бюджет.ПроверитьПризнак(Value); ^False; fi;
 if Length(Value)>6: Message("Длина кода не может превышать 6 символов",mtError); ^False; fi;
 Return True;
end;

Proc Код_OnExit(FieldName: String; Iter: Integer);
 Код=Up(Код);
end;

Func Выполнить(Sender:I):Record;
var Rec: Record;
 Тип_=Sender;
 Rec=OpenCardFile("РПО_ДОГОВОР_НАИМ",if(Тип_<0,"","Тип="+Str(Sender)));
 ^Rec;
end;

Proc OnRead;
 if CurrentState=crdusInserted: Тип=Тип_; fi;
end;

Proc btnСохр_OnClick(Sender: String);
 EditorApply;
 Close;
end;


Proc btnЗакрыть_OnClick(Sender: String);
 Close;
end;


Конец
