аКЮМЙяьЮАКНМНЛ "пЮЯОНПЪДХРЕКХ АЧДФЕРМШУ ЯПЕДЯРБ";

Button1 :Object;
Button2 :Object;
Button3 :Object;
Button4 :Object;
Button5 :Object;
Button6 :Object;
Button7 :Object;
Button8 :Object;
Button9 :Object;
Button10 :Object;
Button11 :Object;
Button12 :Object;
Button13 :Object;
Button14 :Object;
Button15 :Object;

Proc OnOpen(Create: Logical);
 Button1.Enabled=ExistsCardFile("пон_пп_бу");
 Button2.Enabled=BlankExist("пая.пюяопед_юяяхцм_кан");
 Button3.Enabled=ExistsCardFile("пон_пп_хяу");
 Button4.Enabled=BlankExist("пая.нрверш.пюяопед_кан_оая2");
 Button5.Enabled=BlankExist("пая.нрверш.кан_пая2009");
 Button6.Enabled=BlankExist("пая.нрверш.кан_оая2009");
 Button7.Enabled=BlankExist("днйслемрш.кан.фсп_хяу_пп2009");
 Button8.Enabled=BlankExist("нрверш.пецхярпш.йюпрнвйю_свер_кан");
 Button9.Enabled=BlankExist("пая.нрверш.дбхф_кан_пая");
 Button10.Enabled=BlankExist("пая.нрверш.дбхф_кан_оая");
 Button11.Enabled=BlankExist("днйслемрш.кан.фсп_хяу_пп_оевюрэ2009");
 Button12.Enabled=BlankExist("днйслемрш.кан.пп_бшцпсгйю_FK_TXAP100701");
 Button13.Enabled=BlankExist("днйслемрш.кан.пп_бшцпсгйю_FK_TXAP140101");
 Button14.Enabled=BlankExist("пая.нрверш.пюяопед_кан_оая");
 Button15.Enabled=BlankExist("днйслемрш.кан.фсп_хяу_пп2009");
end;

Proc Button_OnClick(Sender: String);
  if Sender="Button1" : ExecuteProc("дНЙСЛЕМРШ.кан.пп_бУ.бШГБЮРЭйЮПР",nil,"--пая_оая",True);
    |Sender="Button2" : OpenBlank("пая.пюяопед_юяяхцм_кан",False);
    |Sender="Button3" : ExecuteProc("дНЙСЛЕМРШ.кан.пп_хЯУ.бШГБЮРЭйЮПР",nil,"--яНГДЮМ=2",2,0);
    |Sender="Button4" : OpenBlank("пая.нрверш.пюяопед_кан_оая2",False);
    |Sender="Button5" : OpenBlank("пая.нрверш.кан_пая2009",False);
    |Sender="Button6" : OpenBlank("пая.нрверш.кан_оая2009",False);
    |Sender="Button7" : PutVariableI("днйслемрш.кан.фсп_хяу_пп2009.рХОдНЙ",0); PutVariableI("днйслемрш.кан.фсп_хяу_пп2009.рХОдНЙ2",0); OpenBlank("днйслемрш.кан.фсп_хяу_пп2009",False);
    |Sender="Button8" : PutVariableL("нрверш.пецхярпш.йюпрнвйю_свер_кан.пая_оая",True); OpenBlank("нрверш.пецхярпш.йюпрнвйю_свер_кан",False);
    |Sender="Button9" : OpenBlank("пая.нрверш.дбхф_кан_пая",False);
    |Sender="Button10": OpenBlank("пая.нрверш.дбхф_кан_оая",False);
    |Sender="Button11": OpenBlank("днйслемрш.кан.фсп_хяу_пп_оевюрэ2009",False);
    |Sender="Button12": OpenBlank("днйслемрш.кан.пп_бшцпсгйю_FK_TXAP100701",False);
    |Sender="Button13": OpenBlank("днйслемрш.кан.пп_бшцпсгйю_FK_TXAP140101",False);
    |Sender="Button14": OpenBlank("пая.нрверш.пюяопед_кан_оая",False);
    |Sender="Button15": PutVariableI("днйслемрш.кан.фсп_хяу_пп2009.рХОдНЙ",1); PutVariableI("днйслемрш.кан.фсп_хяу_пп2009.рХОдНЙ2",0); OpenBlank("днйслемрш.кан.фсп_хяу_пп2009",False);
  fi;
end;

Proc ЙМгЮЙПШРЭ_оПХмЮФЮРХХ(йМНОЙЮ:String);
  close;
end;


йНМЕЖ
