БланкСШаблоном "ОТЧЕТНОСТЬ [УНФА]";
Button01 :Object;Label01 :Object;doc01:s='ОТЧЕТЫ.НФА.ОБОРОТЫ' ;Lab01:s=Name_B(doc01);
Button02 :Object;Label02 :Object;doc02:s='ОТЧЕТЫ.НФА.КАРТОЧКА';Lab02:s=Name_B(doc02);
Button03 :Object;Label03 :Object;doc03:s='ОТЧЕТЫ.НФА.КАРТОЧКА';Lab03:s='Проверка НФА';
Button04 :Object;Label04 :Object;doc04:s='ОТЧЕТЫ.НФА.КАРТОЧКА';Lab04:s='Список инв номеров';
Button05 :Object;Label05 :Object;doc05:s='ИНФО.НФА.ОТЧЕТЫ_СТРОКИ';Lab05:s='Картотека настроек отчетов';
Button06 :Object;Label06 :Object;doc06:s='ОТЧЕТЫ.НФА.ВЕДОСТ_НФА' ;Lab06:s='Ведомость остатков  НФА (с иерархической группировкой)';
Button07 :Object;Label07 :Object;doc07:s='ОТЧЕТЫ.НФА.ВЕДОСТ_ОС'  ;Lab07:s='Ведомость остатков  ОС  (с иерархической группировкой)';
Button08 :Object;Label08 :Object;doc08:s='ОТЧЕТЫ.НФА.ОБОРОТКАНФА';Lab08:s='Оборотная ведомость НФА (с иерархической группировкой)';
Button09 :Object;Label09 :Object;doc09:s='ОТЧЕТЫ.НФА.ПОИСК_ИМЕНИ';Lab09:s='Поиск остатков НФА по наименованию или части наименования';

Proc ПриОткрытии(Откр:Logical);
  Button01.Caption='Обороты НФА'             ; if AsString(Button01.Hint)='':Button01.Hint=Lab01; fi;
  Button02.Caption='Карточка НФА'            ; if AsString(Button02.Hint)='':Button02.Hint=Lab02; fi;
  Button03.Caption='Проверка НФА'            ; if AsString(Button03.Hint)='':Button03.Hint=Lab03; fi;
  Button04.Caption='Список инв номеров'      ; if AsString(Button04.Hint)='':Button04.Hint=Lab04; fi;
  Button05.Caption='Настройки отчетов'       ; if AsString(Button05.Hint)='':Button05.Hint=Lab05; fi;
  Button06.Caption='Ведомость остатков НФА'  ; if AsString(Button06.Hint)='':Button06.Hint=Lab06; fi;
  Button07.Caption='Ведомость остатков ОС'   ; if AsString(Button07.Hint)='':Button07.Hint=Lab07; fi;
  Button08.Caption='Оборотная ведомость НФА' ; if AsString(Button08.Hint)='':Button08.Hint=Lab08; fi;
  Button09.Caption='Поиск НФА'               ; if AsString(Button09.Hint)='':Button09.Hint=Lab09; fi;

  if Not BlankExist(doc01):Button01.Enabled=false;fi;
  if Not BlankExist(doc02):Button02.Enabled=false;fi;
  if Not BlankExist(doc06):Button06.Enabled=false;fi;
  if Not BlankExist(doc07):Button07.Enabled=false;fi;
  if Not BlankExist(doc08):Button08.Enabled=false;fi;
--  if Not BlankExist(doc05):Button05.Enabled=false;Label05.Enabled=false;fi;
  Label01.Caption=Lab01;
  Label02.Caption=Lab02;
  Label03.Caption=Lab03;
  Label04.Caption=Lab04;
  Label05.Caption=Lab05;
  Label06.Caption=Lab06;
  Label07.Caption=Lab07;
  Label08.Caption=Lab08;
  Label09.Caption=Lab09;

end;


Proc Выбор_ПриНажатии(Кнопка:String);
var путь_бро_НФА,s:s;
var ss,ss1,ss2:s;
путь_бро_НФА=PlanVar('НФА')+'\Картотеки\';
  if Кнопка='Button01':OpenBlank(doc01,false);
   | Кнопка='Button02':OpenBlank(doc02,false);
--   | Кнопка='Button05':ОткрытьКартотеку OpenBlank(doc05,false);
   | Кнопка='Button03':
     s='"'+PlanVar('НФА')+'\Отчеты\НФАОТЧ.lst"."ОШИБКИ"';
     Отчет(s,01.01.76,01.01.20,'','');
   | Кнопка='Button04':
     s='"'+PlanVar('НФА')+'\Отчеты\НФАОТЧ.lst"."Список_учн"';
     Отчет(s,01.01.76,01.01.20,'','');
   | Кнопка='Button05':
     ss='ВИДДОК.'+doc05;
     if Name_A(ss)<>' ':
        ss1=РАБ.НФА.B01.2ПолеПоПризнакуС0(ss,'КартУсл');
        ss2=РАБ.НФА.B01.2ПолеПоПризнакуС0(ss,'КАРТБРО');
        ss2=РАБ.НФА.B01.ВзятьBROизКартотеки(ss2);
        ss =РАБ.НФА.B01.2ПолеПоПризнакуС0(ss,'КартИмя');
        if ss<>'':
          if ss2<>'': ОткрытьКартотеку(ss2,'--'+ss1);
           | ss1<>'':ОткрытьКартотеку(ss,'--'+ss1);
           | true:ОткрытьКартотеку(ss);
          fi;
        fi;
      | true:OpenBlank(doc05,false);
     fi;
   | Кнопка='Button06': OpenBlank(doc06, False);
   | Кнопка='Button07': OpenBlank(doc07, False);
   | Кнопка='Button08': OpenBlank(doc08, False);
   | Кнопка='Button09': OpenBlank(doc09, False);
  fi;

end;

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

Конец
