БланкСШаблоном "ПРОЧИЕ";

Button1 :Object;
Button2 :Object;
Button3 :Object;
Button4 :Object;
Button5 :Object;
Button6 :Object;
Button7 :Object;
Button8 :Object;

Proc ПриОткрытии(Откр:Logical);
  if Not BlankExist('ДОКУМЕНТЫ.ПРОЧИЕ.БУХСПРАВКА') :Button6.Enabled=false;fi;
end;

Proc Выбор_ПриНажатии(Кнопка:String);
var filter:string;
  if Кнопка='Button1':OpenCardFile('АВАНСОТ',"");
    |Кнопка='Button2':OpenCardFile('Ком_Удостоверения',"");
    |Кнопка='Button3':OpenCardFile('Доверенности');
    |Кнопка='Button4':OpenCardFile('Накладная');
    |Кнопка='Button5':OpenCardFile('Счет');
    |Кнопка='Button6':OpenBlank('ДОКУМЕНТЫ.ПРОЧИЕ.БУХСПРАВКА',false);
  fi;
end;

Proc кнЗакрыть_ПриНажатии(Кнопка:String);
  close;
end;

Конец