БЛАНКСШАБЛОНОМ "Проверка НФА";
-- Разработка бланка: ТБ.БЮДЖЕТ
var SORT_MENU	:s='03';
var btnName_menu :String='Проверка НФА';

Proc ВыполнитьОтчет;
var путь_бро_НФА,s:s;
var ss,ss1,ss2:s;
путь_бро_НФА=PlanVar('НФА')+'\Картотеки\';
     s='"'+PlanVar('НФА')+'\Отчеты\НФАОТЧ.lst"."ОШИБКИ"';
     Отчет(s,01.01.76,01.01.20,'','');

--   | Кнопка='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;
--  fi;

end;

Proc TEMPLATE_ONOPEN(Create: Logical);
     ВыполнитьОтчет;
     Close;
end;


КОНЕЦ -- конец бланк
