-- ЗАО "Агентство "Русспромоценка", 10.01.2005г.
------------------------------------------------
БЛАНКСШАБЛОНОМ "Центр управления [УНФА] 162н";
рисунок1:объект;
------------------------------------------------------------------------------------------------
------------------------------- блок синхронизации STD_RPO -------------------------------------
--должен быть описан КАТАЛОГИ STD_RPO_NEW=C:\TB69P\Wrk\#control\2012_162н\разработка2012\Std_Rpo157Н_2012_000
--должен существовать файл REFRESH_TBB.bln в папке Бланки0
REFRESH_TBB_V:s=['']; -- запоминаем последний GUID
func ЕстьВозможностьОбновитьSTD_RPO:l;
 var V:s;
-- if Length(trim(PlanVar('STD_RPO_NEW')))<1:^false;fi; -- проверка описания пути к оригинальному STD_RPO
 if not BlankExist('REFRESH_TBB'):^false;fi; -- проверка существования бланка REFRESH_TBB
 v=trim(up(GetVariableS('REFRESH_TBB.V')));
 if V='':^false;fi;-- не нуждается в обновлении
 if trim(up(REFRESH_TBB_V))=V:^false;fi;-- не нуждается в обновлении, т.к. уже обновлено до текущей версии
 ^true;
end;

func Обновить_REFRESH_TBB:s;-- возвращает GUID который прописали в REFRESH_TBB.V ; переписывает бланк REFRESH_TBB
var nf:i;
var guid_v:s;
guid_v=GetGUID;
if not BlankExist('REFRESH_TBB'):^'';fi;
try
nf=TextFileCreate(BlankFileName('REFRESH_TBB'));
TextFileGotoEnd(nf);
TextFileWriteLn(nf, 'BLANK REFRESH_TBB = "Контроль синхронизации STD_RPO", MODAL, SIZE=48,8;');
TextFileWriteLn(nf, " Контрольное число      : <V__________________ @V:S='"+guid_v+"';      ");
TextFileWriteLn(nf, " Инициатор синхронизации: <U________ @U:S=' ';                         ");
TextFileWriteLn(nf, " Дата инициации         : <D________ @D:D=01.01.100;                   ");
TextFileWriteLn(nf, " Время инициации        : #T_____    @T=0.0;                           ");
TextFileWriteLn(nf, "END                                                                    ");
TextFileClose(nf);
except
guid_v='';
end;
^guid_v;
end;

Proc Обновить_STD_RPO;--
var ar:l;
  if ЕстьВозможностьОбновитьSTD_RPO:
     if EnqOkCancel('Требуется синхронизация с локальными бланками - продолжить?',mtConfirmation )=кмдВерно:
        ar=autorefresh;
        if ar:ToggleAutorefresh(false);fi;
        REFRESH_TBB_V=trim(up(GetVariableS('REFRESH_TBB.V')));
        if ar:ToggleAutorefresh(true);fi;
        Message('Локальные бланки синхронизированы!');
     fi;
  fi;
end;
------------------------------- блок синхронизации STD_RPO -------------------------------------
------------------------------------------------------------------------------------------------

var DateBuild:Date=13.04.2012; 2-- Дата сборки
var DateRev  :Date=13.04.2012; 2-- Дата0 2ревизии

var txtInfo:String='Учет нефинансовых активов [НФА] 162н'+chr(13)+
                   'Сборка  от '+DateToString(DateBuild)+chr(13)+
                   'Ревизия от '+DateToString(DateRev)+chr(13)+
                   'Версия '+Версия+chr(13);
var txtBank:String='';
var ver_bro_нфа     :String='18.05.2007';
var file_ver_bro_нфа:String='ver_bro_нфа.ver';

var txtRekv:String=chr(13)+
                   'ООО "ТБ.Бюджет"'+chr(13)+
                   '107076, г.Москва, ул.Матросская Тишина,'+chr(13)+
                   'д.23, корп.1, к67'+chr(13)+
                   'Тел: (499)268-29-91, (495)720-67-81,'+chr(13)+
                   '        ~~~~'+chr(13)+
                   'http://www.tb-b.ru'+chr(13)+
                   'E-mail: tb@sovintel.ru';
var ВерсияОКОФ:s;
var НеНапоминать:i;
 ВремяПоследнегоНачалаРаботыУНФА :i;
 ДатаПоследнегоНачалаРаботыУНФА :d;
 ПользовательПоследнегоНачалаРаботыУНФА:s;
 СхемаПоследнегоНачалаРаботыУНФА:s;

var ВремяНачалаРаботыУНФА:i;
--var ВремяПроверкиСправочниковУНФА:i;

var ДатаНачалаРаботыУНФА:d;
var ПользовательНачалаРаботыУНФА:s;
var СхемаНачалаРаботыУНФА:s;
var ПоследнийРазрешенныйСписокСчетов:s;
 Пользователь:s;
 Схема:s;
var Buf[]:s;
var BufBln[]:s;
var Buf1[]:s;
var Bufl[]:l;
var Buttn[]:s;
var Buttnhint[]:s;
Таймер1:o;
ButtonAct:Object;
Label1   :Object;
Bevel1   :Object; Bevel2   :Object;
Button01 :Object; Button12 :Object;
Button02 :Object; Button13 :Object;
Button03 :Object; Button14 :Object;
Button04 :Object; Button15 :Object;
Button05 :Object; Button16 :Object;
Button06 :Object; Button17 :Object;
Button07 :Object; Button18 :Object;
Button08 :Object; Button19 :Object;
Button09 :Object; Button20 :Object;
Button10 :Object; Button21 :Object;
Button11 :Object; Button22 :Object;
SysInfo  :Object; Button23 :Object;
Proc НастрКарт;
var FS,FT,Ver,ss,ss0:S;
var F,k:I;
var Flag:L;


 Flag=True;

 FT=trim(PlanVar("LocalData"));
 if substr(FT,length(FT),1)='\':FT=FT+"Картотеки\";
  | true:FT=FT+"\Картотеки\";
 fi;
 FT=trim(FT+file_ver_bro_нфа);
 if pos('//',FT)=1 or pos('\\',FT)=1:exit;fi; -- если путь к локальной папке Картотеки сетевой, то не обновляем!
 if ExistFile(FT):
    F=TextFileOpenRead(FT);
    Try
     Try
      if not TextFileEndOfFile(F): Flag=not (ver_bro_нфа=trim(TextFileReadln(F))); fi;
     Except
     end;
    Finally
     TextFileClose(F);
    end;
 fi;
 --
--КАТАЛОГИ STD_RPO=..\Std_Rpo25Н_2006
--КАТАЛОГИ STD_RPO=\\Servertb\Server\Std_Rpo25Н_2006
--КАТАЛОГИ Бух=.\2006_25н
--КАТАЛОГИ Общие=$STD_RPO\Общие
--КАТАЛОГИ LocalData=$WRK\RPO\Rep2006_НФА1

 if Flag:
    Try
--     FS=SubStr(FS,1,Pos(file_ver_bro_нфа,FS)-1);
     FT=SubStr(FT,1,Pos(file_ver_bro_нфа,FT)-1);
     ss=up(trim(PlanVar("НФА")));
     if Pos("..",ss)=1:-- пытаемся вычислить путь через ".."
        ss=Раб.НФА.B01.ПутьSTD_RPO+"\НФА";
--        k=КоличествоСлов(ss,'\');
--        ss =ВыделитьСлова(2,k-1,ss,'\');--  нашли $STD_RPO\Общие без "\" на концах
--        ss0=up(trim(PlanVar("Бух")));
--        k=КоличествоСлов(ss0,'\');
--        if pos('\\',ss0)=1:ss0='\\'+ВыделитьСлова(1,k-2,ss0,'\');-- нашли путь к $STD_RPO
--         | true:           ss0=     ВыделитьСлова(1,k-2,ss0,'\');-- нашли путь к $STD_RPO
--        fi;
--        ss=ss0+'\'+ss;
        if не ЕстьПапка(ss):
        trace(ss);
          Message("Укажите путь к папке с настройками картотек");
          if ChooseFolder(FS,"Папка с настройками картотек НФА")=cmCancel: Exit; fi;
          --if not ExistFile(FS+"bro.ver"): Message("Выбранная папка "+FS+" не содержит настройки картотек",mtError); Exit; fi;
         | true:FS=ss+'\Картотеки\';
        fi;
      | true:FS=ss+'\Картотеки\';
     fi;
     CopyFile(FS+"*.bro",FT);
     if ЕстьФайл(FT+'\'+file_ver_bro_нфа):УдалитьФайл(FT+'\'+file_ver_bro_нфа);fi;
     CreateFile(FT+'\'+file_ver_bro_нфа);
     Записать(FT+'\'+file_ver_bro_нфа,ver_bro_нфа);
--     CopyFile(FS+"*.ver",FT);
    Except
    end;
 fi;
end;
--var окоф_нет    []:s;
var окоф_да     []:s;
var АМОРТ_ГР_да []:s;
var КЧ_да       []:s;
--var окоф_имя_код[]:s;
--var окоф_имя    []:s;
var окоф_имя_09 []:s;

func обновить_окоф_2009:i;
var t,z,x,wa,nr,tm:i;
var ss:s;
var ll:l;
tm=time;
--ClearVariable(окоф_нет    );
ClearVariable(окоф_да     );
ClearVariable(АМОРТ_ГР_да );
ClearVariable(КЧ_да       );
--ClearVariable(окоф_имя_код);
--ClearVariable(окоф_имя    );
ClearVariable(окоф_имя_09 );
t=0;
t=t+1;окоф_да[t]='14.2912103';АМОРТ_ГР_да[t]='1';КЧ_да[t]='3';
окоф_имя_09[t]='Насосы конденсатные, питательные и песковые, грунтовые, шламовые';
t=t+1;окоф_да[t]='14.2912132';АМОРТ_ГР_да[t]='1';КЧ_да[t]='7';
окоф_имя_09[t]='Компрессоры передвижные';
t=t+1;окоф_да[t]='14.2912133';АМОРТ_ГР_да[t]='1';КЧ_да[t]='5';
окоф_имя_09[t]='Компрессоры специальные';
t=t+1;окоф_да[t]='14.2915325';АМОРТ_ГР_да[t]='1';КЧ_да[t]='3';
окоф_имя_09[t]='Конвейеры ленточные скребковые передвижные';
t=t+1;окоф_да[t]='14.2916050';АМОРТ_ГР_да[t]='1';КЧ_да[t]='0';
окоф_имя_09[t]='Устройства пневмоприводов (пневмомоторы, пневмоцилиндры, пневмораспределители, пневмоемкости, пневмоклапаны, пневмоаккумуляторы, пневмооборудование прочее)';
t=t+1;окоф_да[t]='14.2923530';АМОРТ_ГР_да[t]='1';КЧ_да[t]='6';
окоф_имя_09[t]='Валки стальные прокатные';
t=t+1;окоф_да[t]='14.2924235';АМОРТ_ГР_да[t]='1';КЧ_да[t]='3';
окоф_имя_09[t]='Крепь проходческая механизированная';
t=t+1;окоф_да[t]='14.2924304';АМОРТ_ГР_да[t]='1';КЧ_да[t]='6';
окоф_имя_09[t]='Установки бурильные (каретки буровые самоходные)';
t=t+1;окоф_да[t]='14.2924313';АМОРТ_ГР_да[t]='1';КЧ_да[t]='9';
окоф_имя_09[t]='Перфораторы пневматические колонковые';
t=t+1;окоф_да[t]='14.2924670';АМОРТ_ГР_да[t]='1';КЧ_да[t]='7';
окоф_имя_09[t]='Машины и оборудование для зарядки и забойки взрывных скважин';
t=t+1;окоф_да[t]='14.2928554';АМОРТ_ГР_да[t]='1';КЧ_да[t]='0';
окоф_имя_09[t]='Оборудование для подготовительных работ при ремонте и обслуживании эксплуатационных скважин';
t=t+1;окоф_да[t]='14.2947110';АМОРТ_ГР_да[t]='1';КЧ_да[t]='7';
окоф_имя_09[t]='Инструмент строительно-монтажный ручной';
t=t+1;окоф_да[t]='14.2947122';АМОРТ_ГР_да[t]='1';КЧ_да[t]='0';
окоф_имя_09[t]='Инструмент пневматический (машины ручные и переносные пневматические)';
t=t+1;окоф_да[t]='14.2947160';АМОРТ_ГР_да[t]='1';КЧ_да[t]='3';
окоф_имя_09[t]='Оборудование, инструмент и приспособления, средства крепления для производства и монтажа вентиляционных и санитарно - технических заготовок и изделий';
t=t+1;окоф_да[t]='14.2947179';АМОРТ_ГР_да[t]='1';КЧ_да[t]='4';
окоф_имя_09[t]='Механизмы, инструменты, приспособления разного назначения';
t=t+1;окоф_да[t]='14.3222000';АМОРТ_ГР_да[t]='1';КЧ_да[t]='4';
окоф_имя_09[t]='Средства кабельной связи и аппаратура проводной связи оконечная и промежуточная';
t=t+1;окоф_да[t]='14.3311010';АМОРТ_ГР_да[t]='1';КЧ_да[t]='5';
окоф_имя_09[t]='Инструменты медицинские';
t=t+1;окоф_да[t]='14.3315430';АМОРТ_ГР_да[t]='1';КЧ_да[t]='7';
окоф_имя_09[t]='Аппаратура и оборудование вспомогательное для исследований в скважинах';
t=t+1;окоф_да[t]='14.2912102';АМОРТ_ГР_да[t]='2';КЧ_да[t]='5';
окоф_имя_09[t]='Насосы артезианские и погружные';
t=t+1;окоф_да[t]='14.2915251';АМОРТ_ГР_да[t]='2';КЧ_да[t]='6';
окоф_имя_09[t]='Краны стреловые переносные грузоподъемностью от 0,5 до 1,0 т';
t=t+1;окоф_да[t]='14.2915254';АМОРТ_ГР_да[t]='2';КЧ_да[t]='0';
окоф_имя_09[t]='Подъемники грузопассажирские';
t=t+1;окоф_да[t]='14.2915323';АМОРТ_ГР_да[t]='2';КЧ_да[t]='7';
окоф_имя_09[t]='Конвейеры ленточные передвижные с прорезиненной лентой';
t=t+1;окоф_да[t]='14.2915407';АМОРТ_ГР_да[t]='2';КЧ_да[t]='1';
окоф_имя_09[t]='Питатели ленточные стационарные';
t=t+1;окоф_да[t]='14.2923180';АМОРТ_ГР_да[t]='2';КЧ_да[t]='7';
окоф_имя_09[t]='Питатели (без лабораторных)';
t=t+1;окоф_да[t]='14.2923186';АМОРТ_ГР_да[t]='2';КЧ_да[t]='6';
окоф_имя_09[t]='Устройства загрузочные';
t=t+1;окоф_да[t]='14.2923584';АМОРТ_ГР_да[t]='2';КЧ_да[t]='5';
окоф_имя_09[t]='Ковши закрытые и открытые';
t=t+1;окоф_да[t]='14.2924010';АМОРТ_ГР_да[t]='2';КЧ_да[t]='5';
окоф_имя_09[t]='Подъемники и конвейеры для шахт, горнопроходческие машины и оборудование';
t=t+1;окоф_да[t]='14.2924090';АМОРТ_ГР_да[t]='2';КЧ_да[t]='3';
окоф_имя_09[t]='Оборудование для горнодобывающих производств прочее';
t=t+1;окоф_да[t]='14.2928000';АМОРТ_ГР_да[t]='2';КЧ_да[t]='7';
окоф_имя_09[t]='Оборудование буровое нефтепромысловое и геолого - разведочное';
t=t+1;окоф_да[t]='12.0001110';АМОРТ_ГР_да[t]='3';КЧ_да[t]='4';
окоф_имя_09[t]='Трубопроводы технологические';
t=t+1;окоф_да[t]='14.2911102';АМОРТ_ГР_да[t]='3';КЧ_да[t]='0';
окоф_имя_09[t]='Дизели и дизель - генераторы с цилиндром диаметром свыше 120 до 160 мм включительно';
t=t+1;окоф_да[t]='14.2912000';АМОРТ_ГР_да[t]='3';КЧ_да[t]='2';
окоф_имя_09[t]='Насосы и оборудование компрессорное';
t=t+1;окоф_да[t]='14.2921584';АМОРТ_ГР_да[t]='3';КЧ_да[t]='4';
окоф_имя_09[t]='Теплогенераторы';
t=t+1;окоф_да[t]='14.2924280';АМОРТ_ГР_да[t]='3';КЧ_да[t]='9';
окоф_имя_09[t]='Оборудование породного комплекса, механизированные погрузочные пункты, маневровые устройства, оборудование угольных складов';
t=t+1;окоф_да[t]='14.2924284';АМОРТ_ГР_да[t]='3';КЧ_да[t]='1';
окоф_имя_09[t]='Оборудование угольных складов';
t=t+1;окоф_да[t]='14.2928302';АМОРТ_ГР_да[t]='3';КЧ_да[t]='5';
окоф_имя_09[t]='Установки отопительные паровые передвижные';
t=t+1;окоф_да[t]='14.2928520';АМОРТ_ГР_да[t]='3';КЧ_да[t]='6';
окоф_имя_09[t]='Оборудование наземное для освоения и ремонта скважин';
t=t+1;окоф_да[t]='14.2928526';АМОРТ_ГР_да[t]='3';КЧ_да[t]='5';
окоф_имя_09[t]='Установки и блоки насосные для освоения и ремонта скважин';
t=t+1;окоф_да[t]='14.2928530';АМОРТ_ГР_да[t]='3';КЧ_да[t]='3';
окоф_имя_09[t]='Оборудование для спуско - подъемных работ в эксплуатационных скважинах (кроме подъемного передвижного оборудования)';
t=t+1;окоф_да[t]='14.2928539';АМОРТ_ГР_да[t]='3';КЧ_да[t]='7';
окоф_имя_09[t]='Оборудование для спуско - подъемных работ прочее';
t=t+1;окоф_да[t]='14.2928600';АМОРТ_ГР_да[t]='3';КЧ_да[t]='8';
окоф_имя_09[t]='Оборудование для сбора, учета, первичной обработки и транспортировки нефти на промыслах';
t=t+1;окоф_да[t]='14.2928604';АМОРТ_ГР_да[t]='3';КЧ_да[t]='0';
окоф_имя_09[t]='Оборудование для транспортировки нефти и газа на промыслах';
t=t+1;окоф_да[t]='14.3221000';АМОРТ_ГР_да[t]='3';КЧ_да[t]='9';
окоф_имя_09[t]='Средства радиосвязи, радиовещания и телевидения; средства радиолокации и радионавигации';
t=t+1;окоф_да[t]='14.3222000';АМОРТ_ГР_да[t]='3';КЧ_да[t]='4';
окоф_имя_09[t]='Средства кабельной связи и аппаратура проводной связи оконечная и промежуточная';
t=t+1;окоф_да[t]='14.3313100';АМОРТ_ГР_да[t]='3';КЧ_да[t]='5';
окоф_имя_09[t]='Приборы для измерения и регулирования температуры';
t=t+1;окоф_да[t]='14.3313109';АМОРТ_ГР_да[t]='3';КЧ_да[t]='9';
окоф_имя_09[t]='Приборы для измерения и регулирования температуры прочие';
t=t+1;окоф_да[t]='14.3313112';АМОРТ_ГР_да[t]='3';КЧ_да[t]='9';
окоф_имя_09[t]='Манометры, вакуумметры, мановакуумметры, тягомеры, напоромеры, тягонапоромеры сильфонные и мембранные';
t=t+1;окоф_да[t]='14.3313113';АМОРТ_ГР_да[t]='3';КЧ_да[t]='7';
окоф_имя_09[t]='Манометры, вакуумметры, мановакуумметры поршневые';
t=t+1;окоф_да[t]='14.3313118';АМОРТ_ГР_да[t]='3';КЧ_да[t]='8';
окоф_имя_09[t]='Преобразователи измерительные давления, перепада давления и разрежения тензорезисторные, пьезорезисторные, пьезоэлектрические, емкостные';
t=t+1;окоф_да[t]='14.3313122';АМОРТ_ГР_да[t]='3';КЧ_да[t]='6';
окоф_имя_09[t]='Счетчики, дозаторы и расходомеры скоростные';
t=t+1;окоф_да[t]='14.3313131';АМОРТ_ГР_да[t]='3';КЧ_да[t]='5';
окоф_имя_09[t]='Уровнемеры и регуляторы уровня механические, контактно - механические и поплавковые';
t=t+1;окоф_да[t]='14.3313145';АМОРТ_ГР_да[t]='3';КЧ_да[t]='5';
окоф_имя_09[t]='Влагомеры газов, неводных жидкостей, твердых и сыпучих веществ';
t=t+1;окоф_да[t]='14.3313163';АМОРТ_ГР_да[t]='3';КЧ_да[t]='3';
окоф_имя_09[t]='Преобразователи';
t=t+1;окоф_да[t]='14.3313167';АМОРТ_ГР_да[t]='3';КЧ_да[t]='6';
окоф_имя_09[t]='Датчики - реле';
t=t+1;окоф_да[t]='14.3315384';АМОРТ_ГР_да[t]='3';КЧ_да[t]='1';
окоф_имя_09[t]='Аппаратура для электрического каротажа';
t=t+1;окоф_да[t]='14.3315385';АМОРТ_ГР_да[t]='3';КЧ_да[t]='8';
окоф_имя_09[t]='Аппаратура для радиоактивного каротажа';
t=t+1;окоф_да[t]='14.3315390';АМОРТ_ГР_да[t]='3';КЧ_да[t]='4';
окоф_имя_09[t]='Аппаратура для контроля технического состояния скважин и контроля разработки нефтяных и газовых месторождений';
t=t+1;окоф_да[t]='14.3315391';АМОРТ_ГР_да[t]='3';КЧ_да[t]='2';
окоф_имя_09[t]='Инклинометры';
t=t+1;окоф_да[t]='14.3315392';АМОРТ_ГР_да[t]='3';КЧ_да[t]='0';
окоф_имя_09[t]='Каверномеры и профилемеры';
t=t+1;окоф_да[t]='14.3315396';АМОРТ_ГР_да[t]='3';КЧ_да[t]='3';
окоф_имя_09[t]='Дебитомеры и влагомеры скважинные';
t=t+1;окоф_да[t]='14.3315567';АМОРТ_ГР_да[t]='3';КЧ_да[t]='2';
окоф_имя_09[t]='Аппаратура контроля работы глубинных насосов электропогружных';
t=t+1;окоф_да[t]='12.4521125';АМОРТ_ГР_да[t]='4';КЧ_да[t]='0';
окоф_имя_09[t]='Линия электропередачи воздушная';
t=t+1;окоф_да[t]='12.4521152';АМОРТ_ГР_да[t]='4';КЧ_да[t]='8';
окоф_имя_09[t]='Сооружения для поддержания пластового давления';
t=t+1;окоф_да[t]='12.4521162';АМОРТ_ГР_да[t]='4';КЧ_да[t]='5';
окоф_имя_09[t]='Скважина разведочная';
t=t+1;окоф_да[t]='12.4521173';АМОРТ_ГР_да[t]='4';КЧ_да[t]='0';
окоф_имя_09[t]='Сеть нефтегазосборная';
t=t+1;окоф_да[t]='12.4521191';АМОРТ_ГР_да[t]='4';КЧ_да[t]='9';
окоф_имя_09[t]='Газопровод';
t=t+1;окоф_да[t]='12.4521331';АМОРТ_ГР_да[t]='4';КЧ_да[t]='8';
окоф_имя_09[t]='Скважина газовая для разведочного бурения';
t=t+1;окоф_да[t]='12.4540000';АМОРТ_ГР_да[t]='4';КЧ_да[t]='2';
окоф_имя_09[t]='Ограды (заборы), кроме металлических';
t=t+1;окоф_да[t]='14.2716020';АМОРТ_ГР_да[t]='4';КЧ_да[t]='1';
окоф_имя_09[t]='Арматура для магистральных и промысловыхтрубопроводов';
t=t+1;окоф_да[t]='14.2914020';АМОРТ_ГР_да[t]='4';КЧ_да[t]='8';
окоф_имя_09[t]='Печи и горелки';
t=t+1;окоф_да[t]='14.2915040';АМОРТ_ГР_да[t]='4';КЧ_да[t]='8';
окоф_имя_09[t]='Конвейеры (ленточные, подвесные, ковшовые, вибрационные и прочие)';
t=t+1;окоф_да[t]='14.2915374';АМОРТ_ГР_да[t]='4';КЧ_да[t]='1';
окоф_имя_09[t]='Устройства пневмотранспортные';
t=t+1;окоф_да[t]='14.2919000';АМОРТ_ГР_да[t]='4';КЧ_да[t]='0';
окоф_имя_09[t]='Машины и оборудование общего назначенияпрочие';
t=t+1;окоф_да[t]='14.2923131';АМОРТ_ГР_да[t]='4';КЧ_да[t]='9';
окоф_имя_09[t]='Грохоты и сита';
t=t+1;окоф_да[t]='14.2924152';АМОРТ_ГР_да[t]='4';КЧ_да[t]='7';
окоф_имя_09[t]='Экскаваторы одноковшовые с ковшом емкостью 4 куб. м и свыше';
t=t+1;окоф_да[t]='14.2949030';АМОРТ_ГР_да[t]='4';КЧ_да[t]='6';
окоф_имя_09[t]='Линии технологические специализированные, установки и агрегаты для различных производств(оборудование длятрубопроводной промышленности,кабельнойпромышленности,местной промышленности,оборудование для монтажа и ремонта электростанций и электрических сетей';
t=t+1;окоф_да[t]='14.3221000';АМОРТ_ГР_да[t]='4';КЧ_да[t]='9';
окоф_имя_09[t]='Средства радиосвязи, радиовещания и телевидения; средства радиолокации и радионавигации';
t=t+1;окоф_да[t]='14.3222000';АМОРТ_ГР_да[t]='4';КЧ_да[t]='4';
окоф_имя_09[t]='Средства кабельной связи и аппаратура проводной связи оконечная и промежуточная';
t=t+1;окоф_да[t]='14.3315395';АМОРТ_ГР_да[t]='4';КЧ_да[t]='5';
окоф_имя_09[t]='Аппаратура для оценки качества цементации';
t=t+1;окоф_да[t]='15.3520340';АМОРТ_ГР_да[t]='4';КЧ_да[t]='4';
окоф_имя_09[t]='Вагоны - самосвалы (думпкары) широкой колеи';
t=t+1;окоф_да[t]='12.0001121';АМОРТ_ГР_да[t]='5';КЧ_да[t]='5';
окоф_имя_09[t]='Площадки производственные с покрытиями';
t=t+1;окоф_да[t]='12.4521021';АМОРТ_ГР_да[t]='5';КЧ_да[t]='1';
окоф_имя_09[t]='Сооружения нефтеперерабатывающей промышленности';
t=t+1;окоф_да[t]='12.4521249';АМОРТ_ГР_да[t]='5';КЧ_да[t]='4';
окоф_имя_09[t]='Комплекс установки производства битума';
t=t+1;окоф_да[t]='12.4521332';АМОРТ_ГР_да[t]='5';КЧ_да[t]='6';
окоф_имя_09[t]='Скважина газовая для эксплуатационного бурения';
t=t+1;окоф_да[t]='12.4521343';АМОРТ_ГР_да[t]='5';КЧ_да[t]='1';
окоф_имя_09[t]='Установка комплексной подготовки газа абсорбционная';
t=t+1;окоф_да[t]='12.4526372';АМОРТ_ГР_да[t]='5';КЧ_да[t]='2';
окоф_имя_09[t]='Дорога автомобильная с усовершенствованнымоблегченным или переходным типом дорожногопокрытия';
t=t+1;окоф_да[t]='12.4526521';АМОРТ_ГР_да[t]='5';КЧ_да[t]='0';
окоф_имя_09[t]='Парк из металлических вертикальныхцилиндрических резервуаров';
t=t+1;окоф_да[t]='14.2813181';АМОРТ_ГР_да[t]='5';КЧ_да[t]='7';
окоф_имя_09[t]='Подогреватели низкого давления';
t=t+1;окоф_да[t]='14.2813182';АМОРТ_ГР_да[t]='5';КЧ_да[t]='5';
окоф_имя_09[t]='Подогреватели высокого давления';
t=t+1;окоф_да[t]='14.2813204';АМОРТ_ГР_да[t]='5';КЧ_да[t]='9';
окоф_имя_09[t]='Конденсаторы';
t=t+1;окоф_да[t]='14.2912120';АМОРТ_ГР_да[t]='5';КЧ_да[t]='3';
окоф_имя_09[t]='Установки воздухоразделительные и редких газов';
t=t+1;окоф_да[t]='14.2912126';АМОРТ_ГР_да[t]='5';КЧ_да[t]='2';
окоф_имя_09[t]='Комплекты прочего оборудования воздухораспределительных установок иустановок редких газов';
t=t+1;окоф_да[t]='14.2914220';АМОРТ_ГР_да[t]='5';КЧ_да[t]='0';
окоф_имя_09[t]='Печи для химических производств с вращающимися барабанами';
t=t+1;окоф_да[t]='14.2914230';АМОРТ_ГР_да[t]='5';КЧ_да[t]='8';
окоф_имя_09[t]='Печи трубчатые';
t=t+1;окоф_да[t]='14.2914234';АМОРТ_ГР_да[t]='5';КЧ_да[t]='0';
окоф_имя_09[t]='Печи многокамерные';
t=t+1;окоф_да[t]='14.2919270';АМОРТ_ГР_да[t]='5';КЧ_да[t]='4';
окоф_имя_09[t]='Аппараты и установки выпарные';
t=t+1;окоф_да[t]='14.2919275';АМОРТ_ГР_да[t]='5';КЧ_да[t]='5';
окоф_имя_09[t]='Аппараты и установки выпарные емкостные';
t=t+1;окоф_да[t]='14.2922625';АМОРТ_ГР_да[t]='5';КЧ_да[t]='0';
окоф_имя_09[t]='Станки универсальные и комбинированные';
t=t+1;окоф_да[t]='14.2922629';АМОРТ_ГР_да[t]='5';КЧ_да[t]='3';
окоф_имя_09[t]='Станки деревообрабатывающие прочие';
t=t+1;окоф_да[t]='14.2928471';АМОРТ_ГР_да[t]='5';КЧ_да[t]='4';
окоф_имя_09[t]='Станки - качалки';
t=t+1;окоф_да[t]='14.3222000';АМОРТ_ГР_да[t]='5';КЧ_да[t]='4';
окоф_имя_09[t]='Средства кабельной связи и аппаратура проводной связи оконечная и промежуточная';
t=t+1;окоф_да[t]='12.2811284';АМОРТ_ГР_да[t]='6';КЧ_да[t]='3';
окоф_имя_09[t]='Трубы дымовые';
t=t+1;окоф_да[t]='12.2812101';АМОРТ_ГР_да[t]='6';КЧ_да[t]='3';
окоф_имя_09[t]='Баллоны стальные малолитражные';
t=t+1;окоф_да[t]='12.2812110';АМОРТ_ГР_да[t]='6';КЧ_да[t]='9';
окоф_имя_09[t]='Емкости для сжатого или сжиженного газа из металла прочие';
t=t+1;окоф_да[t]='12.4525351';АМОРТ_ГР_да[t]='6';КЧ_да[t]='4';
окоф_имя_09[t]='Скважина водозаборная';
t=t+1;окоф_да[t]='14.3221000';АМОРТ_ГР_да[t]='6';КЧ_да[t]='9';
окоф_имя_09[t]='Средства радиосвязи, радиовещания и телевидения; средства радиолокации и радионавигации';
t=t+1;окоф_да[t]='14.3222000';АМОРТ_ГР_да[t]='6';КЧ_да[t]='4';
окоф_имя_09[t]='Средства кабельной связи и аппаратура проводной связи оконечная и промежуточная';
t=t+1;окоф_да[t]='15.3520350';АМОРТ_ГР_да[t]='6';КЧ_да[t]='1';
окоф_имя_09[t]='Вагоны - самосвалы (думпкары) узкой колеи';
t=t+1;окоф_да[t]='14.3222000';АМОРТ_ГР_да[t]='7';КЧ_да[t]='4';
окоф_имя_09[t]='Средства кабельной связи и аппаратура проводной связи оконечная и промежуточная';
t=t+1;окоф_да[t]='15.3520160';АМОРТ_ГР_да[t]='7';КЧ_да[t]='6';
окоф_имя_09[t]='Электровозы рудничные';
t=t+1;окоф_да[t]='15.3520163';АМОРТ_ГР_да[t]='7';КЧ_да[t]='0';
окоф_имя_09[t]='Электровозы рудничные высокочастотные';
t=t+1;окоф_да[t]='12.0001121';АМОРТ_ГР_да[t]='8';КЧ_да[t]='5';
окоф_имя_09[t]='Площадки производственные с покрытиями';
t=t+1;окоф_да[t]='15.3520100';АМОРТ_ГР_да[t]='9';КЧ_да[t]='2';
окоф_имя_09[t]='Электровозы магистральные постоянного тока';
t=t+1;окоф_да[t]='15.3520143';АМОРТ_ГР_да[t]='9';КЧ_да[t]='6';
окоф_имя_09[t]='Электровозы маневровые переменно - постоянного тока';
t=t+1;окоф_да[t]='12.2812030';
t=t+1;окоф_да[t]='12.4521161';
t=t+1;окоф_да[t]='12.4521201';
t=t+1;окоф_да[t]='12.4521352';
t=t+1;окоф_да[t]='14.2911020';
t=t+1;окоф_да[t]='14.2912010';
t=t+1;окоф_да[t]='14.2912020';
t=t+1;окоф_да[t]='14.2919730';
t=t+1;окоф_да[t]='14.2919911';
t=t+1;окоф_да[t]='14.2923540';
t=t+1;окоф_да[t]='14.2924182';
t=t+1;окоф_да[t]='14.2924190';
t=t+1;окоф_да[t]='14.2924262';
t=t+1;окоф_да[t]='14.2924263';
t=t+1;окоф_да[t]='14.2924302';
t=t+1;окоф_да[t]='14.2928100';
t=t+1;окоф_да[t]='14.2929275';
t=t+1;окоф_да[t]='14.2947120';
t=t+1;окоф_да[t]='14.3149114';
t=t+1;окоф_да[t]='14.3221104';
t=t+1;окоф_да[t]='14.3221105';
t=t+1;окоф_да[t]='14.3221120';
t=t+1;окоф_да[t]='14.3222010';
t=t+1;окоф_да[t]='14.3222104';
t=t+1;окоф_да[t]='14.3222130';
t=t+1;окоф_да[t]='14.3222135';
t=t+1;окоф_да[t]='14.3222140';
t=t+1;окоф_да[t]='14.3222144';
t=t+1;окоф_да[t]='14.3222180';
t=t+1;окоф_да[t]='14.3222182';
t=t+1;окоф_да[t]='14.3222251';
t=t+1;окоф_да[t]='14.3222254';
t=t+1;окоф_да[t]='14.3222260';
t=t+1;окоф_да[t]='14.3222265';
t=t+1;окоф_да[t]='14.3222280';
t=t+1;окоф_да[t]='14.3222020';
t=t+1;окоф_да[t]='14.3222401';
t=t+1;окоф_да[t]='14.3222040';
t=t+1;окоф_да[t]='VER';
окоф_имя_09[t]='2009.01';
t=LengthOfArray(окоф_да);
x=0;
ОкноВыполненияПоказать(t,'Обновление ОКОФ до версии 2009г');
wa=OpenWorkArea('РПО_ОКОФ','','1=0');
try
beginchanging(wa,false);
for z=1..t do
  ОкноВыполненияПоложение(z);
   ll=false;
   setfilter(wa,'КОД_ОКОФ="'+окоф_да[z]+'"');
   nr=1;
   if records(wa)=0:-- добавим
      nr=insertrecord(wa);
      nr=putfields(wa,nr,'КОД_ОКОФ' ,окоф_да[z]);
      ll=true;
   fi;
   ------- синхронизация --------
   if окоф_да[z]='VER' and trim(getfields(wa,1,'ИМЯ_ОКОФ1' ))<>окоф_имя_09[z]:nr=putfields(wa,nr,'ИМЯ_ОКОФ1' ,окоф_имя_09[z]);ll=true;fi;
   if trim(getfields(wa,nr,'ИМЯ_ОКОФ1' ))='' and окоф_имя_09[z]<>'':nr=putfields(wa,nr,'ИМЯ_ОКОФ1' ,окоф_имя_09[z]);ll=true;fi;
   if trim(getfields(wa,nr,'КЧ'        ))='' and КЧ_да      [z]<>'':nr=putfields(wa,nr,'КЧ'        ,КЧ_да      [z]);ll=true;fi;
   if trim(getfields(wa,nr,'АМОРТ_ГР09'))='' and АМОРТ_ГР_да[z]<>'':nr=putfields(wa,nr,'АМОРТ_ГР09',АМОРТ_ГР_да[z]);ll=true;fi;
   if АМОРТ_ГР_да[z]='' and АМОРТ_ГР_да[z]<>'-':nr=putfields(wa,nr,'АМОРТ_ГР09','-');ll=true;fi;
   if ll:x=x+1;fi;
od;
ОкноВыполненияПоказать(1,'Сохранение изменений...');
ОкноВыполненияПоложение(1);
endchanging(wa);
CloseWorkArea(wa);
except
 cancelchanging(wa);
 CloseWorkArea(wa);
 x=-1;
end;
ОкноВыполненияЗакрыть;
^x;


end;
func ЗагрузкаСправочников(CardFileName:s;Спр:s;ПолеСпр:s;ЗагрузитьБезВопросов:l;ЗаменаЗначения:s):s;
 var CardName,cdf,stnf,ss,msg,field,newvalue,ss0:s;
 var nf,nftrue,p:i;
 msg='';

 if не ЗагрузитьБезВопросов:
   if 2=Вопрос('Подтверждение загрузки...','Требуется загрузка справочника '+CardFileName,'Загрузить;Пропустить',mtConfirmation):
      ^'Картотека '+CardFileName+' пропущена при загрузке по желанию пользователя';
   fi;
 fi;
 cdf=ПеремПБ('НФА')+'\cdf\';
 if Pos(".",cdf)=1:-- пытаемся вычислить путь через "."
    cdf=Раб.НФА.B01.ПутьSTD_RPO+"\НФА\cdf\";
 fi;
 CardName=SubStr(CardFileName,1,Length(CardFileName)-4);
 if not ExistFile(cdf+CardFileName):
    msg='Справочник '+CardName+' не загружен - отсутствует файл:'+cdf+CardFileName;
    ^msg;
 fi;
 if not ExistsCardFile(CardName):
    CardName=ВыделитьСлова(1,КоличествоСлов(CardName,'_')-1,CardName,'_');
 fi;
 КопироватьФайл(cdf+CardFileName,ПеремПБ('CACHE')+'\'+CardFileName);
 CardFileName=SubStr(CardFileName,1,Length(CardFileName)-4);
 if (Спр<>'' и ПолеСпр<>'') or ЗаменаЗначения<>'':
   field   =up(trim(ВыделитьСлово(1,ЗаменаЗначения,'=')));
   newvalue=ВыделитьСлово(2,ЗаменаЗначения,'=');
   nf    =ТекстФайлОткрытьНаЧтение(cdf+CardFileName+'.crd');
   nftrue=ТекстФайлСоздать(ПеремПБ('CACHE')+'\'+CardFileName+'.crd');
   ТекстФайлВКонец(nftrue);

   While ТекстФайлКонецФайла(nf) = Ложь do
    stnf=ТекстФайлПрочитатьСтроку(nf);
    ss=trim(stnf);
    if field<>'':
       if pos(field+'=',ss)=1:
          stnf=ВыделитьСлово(1,stnf,'=')+'='+newvalue;
       fi;
    fi;
    ТекстФайлЗаписатьСтроку(nftrue,stnf);
    if (Спр<>'' и ПолеСпр<>''):
       ss=trim(stnf);
       p=pos(ПолеСпр,ss);
       if p=1:-- нашли строку со значением поля для формирования признака
          ss=SubStr(ss,pos('=',ss)+1,Length(ss));-- нашли значение поля
          ss=Спр+'.'+ss; -- сформировали признак
          if Name_A(ss)<>' ': -- такой признак существует
            if CardName=КартотекаПризнака(ss): -- он описан в нашей картотеке
               ss=ЗаписьВстроку(ПризнакВЗапись(ss));
               ТекстФайлЗаписатьСтроку(nftrue,'UKEY='+SubStr(ss,2,Length(ss)-2));
            fi;
          fi;
       fi;
    fi;
   od;
   ТекстФайлЗакрыть(nftrue);
   ТекстФайлЗакрыть(nf);
   try
    ImportCard(ieCRD,CardName,ПеремПБ('CACHE')+'\'+CardFileName,Ложь,Ложь,Ложь,Ложь,дублЗаменить,Ложь,Ложь,Ложь);
  --  ImportCard(ieCRD,CardName,cdf+CardFileName,Ложь,Ложь,Ложь,Ложь,дублЗаменить,Истина,Ложь,Ложь);
--    message('Справочник '+CardName+' загружен');
   except
      msg='Справочник '+CardName+' не загружен - картотека:'+CardName+' уже редактируется';
   end;
-- p=time;while time-p<15 do od;
--   try
--     DeleteFile(ПеремПБ('CACHE')+'\'+CardFileName);
--     DeleteFile(ПеремПБ('CACHE')+'\'+CardName+'.crd');
--   except
--   end;
--   OpenEditor(ПеремПБ('CACHE')+'\'+CardName+'.crd');
   ^msg;
 fi;

 try
--  ImportCard(ieCRD,CardName,cdf+CardFileName,Ложь,Ложь,Ложь,Ложь,дублЗаменить,Ложь,Ложь,Ложь);
  ImportCard(ieCRD,CardName,cdf+CardFileName,Ложь,Ложь,Ложь,Ложь,дублЗаменить,Истина,Ложь,Ложь);
 except
  msg='Справочник '+CardName+' не загружен - картотека:'+CardName+' уже редактируется';
 end;
   ^msg;
end;
proc ОткрытьУправлениеУНФА_Документы(Заголовок:s;ИменаБланков:s;Модальность:l);
  if БланкОткрыт('УПРАВЛЕНИЕ.НФА.ДОКУМЕНТЫ'):Закрыть('УПРАВЛЕНИЕ.НФА.ДОКУМЕНТЫ');fi;
  УПРАВЛЕНИЕ.НФА.ДОКУМЕНТЫ.Заголовок=Заголовок;
  УПРАВЛЕНИЕ.НФА.ДОКУМЕНТЫ.ИменаБланков=ИменаБланков;
  OpenBlank('УПРАВЛЕНИЕ.НФА.ДОКУМЕНТЫ',Модальность);
end;
proc ВыборСтд_ПриНажатии(Кнопка:String);
  if Кнопка='Button01':OpenBlank('УПРАВЛЕНИЕ.НФА.СПРАВОЧНИКИ',false);
--    |Кнопка='Button08':ОткрытьУправлениеУНФА_Документы('УРА [УНФА]'         ,'НФА.ДОКУМЕНТЫ.АВТО.*'     ,false);
    |Кнопка='Button05':ОткрытьУправлениеУНФА_Документы('АКТЫ [УНФА]'        ,'НФА.ДОКУМЕНТЫ.АКТЫ.*'     ,false);
    |Кнопка='Button04':ОткрытьУправлениеУНФА_Документы('ВЕДОМОСТИ [УНФА]'   ,'НФА.ДОКУМЕНТЫ.ВЕДОМОСТИ.*',false);
    |Кнопка='Button06':ОткрытьУправлениеУНФА_Документы('КАРТОЧКИ [УНФА]'    ,'НФА.ДОКУМЕНТЫ.КАРТОЧКИ.*' ,false);
    |Кнопка='Button07':ОткрытьУправлениеУНФА_Документы('НАКЛАДНЫЕ [УНФА]'   ,'НФА.ДОКУМЕНТЫ.НАКЛАДНЫЕ.*',false);
    |Кнопка='Button02':ОткрытьУправлениеУНФА_Документы('ДВИЖЕНИЕ НФА [УНФА]','НФА.ЖУР.*'                ,false);
    |Кнопка='Button03':ОткрытьУправлениеУНФА_Документы('ОТЧЕТЫ [УНФА]'      ,'ОТЧЕТЫ.НФА.*'             ,false);
    |Кнопка='button03':OpenBlank('УПРАВЛЕНИЕ.НФА.ОТЧЕТЫ'     ,false);
    |Кнопка='Button08':ОткрытьУправлениеУНФА_Документы('ПЕРЕОЦЕНКА [УНФА]','НФА.ДОКУМЕНТЫ.ПЕРЕОЦЕНКА.*' ,false);
    |Кнопка='Button09':ОткрытьУправлениеУНФА_Документы('УЧЕТ ФЕДЕРАЛЬНОГО ИМУЩЕСТВА [УНФА]','НФА.УФИ.*' ,false);
    |Кнопка='Button10':beep;
    |Кнопка='Button11':ОткрытьУправлениеУНФА_Документы('СЕРВИС [УНФА]'      ,'НФА.СЕРВИС.*'             ,false);
    |Кнопка='Button12':
      if Name_B('НФА.ПРОД.ПРОД_БЛЮДА')<>' ':ОткрытьУправлениеУНФА_Документы('Учет продуктов[УНФА]','НФА.ПРОД.*'      ,false);
       | true:if Name_B(bufBln[12])<>' ':OpenBlank(bufBln[12]     ,false);fi;
      fi;
--         if Name_B('ОБЩПИТ')<>' ':OpenBlank('ОБЩПИТ'     ,false);
--          | true:
--            if Name_B('УЧВЕЩ')<>' ':OpenBlank('УЧВЕЩ'     ,false);
--             | true:
--                 if Name_B('CPS_УРА.ЦУП')<>' ':OpenBlank('CPS_УРА.ЦУП'     ,false);
--                 fi;
--            fi;
--         fi;
--      fi;
    |Кнопка='Button13': if Name_B(bufBln[13])<>' ':OpenBlank(bufBln[13]     ,false);fi;
    |Кнопка='Button14': if Name_B(bufBln[14])<>' ':OpenBlank(bufBln[14]     ,false);fi;

--         if Name_B('ОБЩПИТ')<>' ' and Name_B('УЧВЕЩ')<>' ':OpenBlank('УЧВЕЩ'     ,false);
--          | true:
--            if Name_B('УЧВЕЩ')<>' ':OpenBlank('УЧВЕЩ'     ,false);
--             | true:
--                 if Name_B('CPS_УРА.ЦУП')<>' ':OpenBlank('CPS_УРА.ЦУП'     ,false);
--                 fi;
--            fi;
--         fi;
--    |Кнопка='Button11':OpenBlank('УПРАВЛЕНИЕ.НФА.СЕРВИС'     ,false);
  fi;
end;
proc ПроверкаСтандартногоКомплекта;
--  if Not BlankExist('УПРАВЛЕНИЕ.НФА.СПРАВОЧНИКИ') :Button01.enabled=false; fi;
--  if Not BlankExist('УПРАВЛЕНИЕ.НФА.ОТЧЕТЫ'     ) :Button08.enabled=false; fi;
--  Button08.enabled=false;
--  if Not BlankExist('УПРАВЛЕНИЕ.НФА.ПРОЧИЕ'     ) :Button09.enabled=false; fi;
--  Button10.enabled=false;
--  if Not BlankExist(''                          ) :Button10.enabled=false; fi;
--  if Not BlankExist('УПРАВЛЕНИЕ.НФА.СЕРВИС'     ) :Button11.enabled=false; fi;
end;

func ВзятьНазваниеКнопки(Кнопка:String):String;
var res:String;
var ss:String;
var obj:Объект;
if НайтиОбъект('Button'+SubStr(Кнопка,7,2),obj):res=AsString(obj.Caption);
 | true:res='';
fi;
  ^res;
end;

proc Выбор_ПриНажатии(Кнопка:String); -- выбор прикладных систем
--var НадписьНаКнопке:String;
  OpenBlank(Buf[int(SubStr(Кнопка,7,2))],False);
--  НадписьНаКнопке=ВзятьНазваниеКнопки(Кнопка);
--  if НадписьНаКнопке='Учет нефинансовых активов...': OpenBlank('Управление.УНФА',False);
--   | НадписьНаКнопке='Свод-Клиент...'      : OpenBlank('Управление.СВОД_КЛИЕНТ',False);
--  fi;
end;

КолКнопок:Integer; -- Количество кнопок прикладных систем

proc ДобавитьКнопку(Надпись:String;Хинт:String;ИмяБланка:String;Активная:Logical);
var obj:Объект;
-- добавляет кнопку прикладной системы
  if BlankExist(ИмяБланка):
    КолКнопок=Колкнопок+1;
    if НайтиОбъект('Button'+Str(КолКнопок+11),obj):
       obj.Caption=Надпись; obj.Hint=Хинт;obj.Enabled=Активная;Buf[КолКнопок+11]=ИмяБланка;BufBln[КолКнопок+11]=ИмяБланка;
    fi;
  fi;
end;

Proc УбратьЛишниеКнопки;
 var ss:s;
 var obj:Объект;
 var j:i;
-- убирает кнопки прикладных систем с названием "..."
 for j=1..23 do
  if j<10:ss='0';|true:ss='';fi;
  if НайтиОбъект('Button'+ss+str(j),obj):
     if AsString(obj.Caption)='...': obj.Visible=false; fi;
  fi;
 od;
end;

proc ЗаполнениеПрикладныхСистем;
  var ll:l;
  var ss:s;
  КолКнопок=0;
--  if LicenseCheck(144)<>0:
--Нфа.прод.прод_блюда
ll = Name_B('ОБЩПИТ')<>' ' or Name_B('НФА.ПРОД.ПРОД_БЛЮДА')<>' ';
ss='ОБЩПИТ';
if Name_B('НФА.ПРОД.ПРОД_БЛЮДА')<>' ':ss='УПРАВЛЕНИЕ.УНФА';fi;
    ДобавитьКнопку('Учет продуктов питания...','Позволяет выбирать бланки прикладной системы "Учет продуктов питания "',ss,ll);
    ДобавитьКнопку('Учет вещевого имущества...','Позволяет выбирать бланки прикладной системы "Учет вещевого имущества "','УЧВЕЩ',Name_B('УЧВЕЩ')<>' ');
    ДобавитьКнопку('Учет работы автотранспорта...','Позволяет выбирать бланки прикладной системы "Учет работы автотранспорта"','CPS_УРА.ЦУП',Name_B('CPS_УРА.ЦУП')<>' ');
--    ДобавитьКнопку('Учет работы автотранспорта...','Позволяет выбирать бланки прикладной системы "Учет работы автотранспорта "','УПРАВЛЕНИЕ.УНФА',false);

--  fi;
  УбратьЛишниеКнопки;
  if КолКнопок=0:Bevel2.Visible=false;fi;
end;

func ЗагрузкаСпр(i:s;ЗагрузитьБезВопросов:l):s;
 if i='РПО_ВИДДОК':^ЗагрузкаСправочников('РПО_ВИДДОК.cdf'    ,'ВИДДОК','ПРИЗНАК',ЗагрузитьБезВопросов,'');
  | i='РПО_ДНФА'  :^ЗагрузкаСправочников('РПО_ДНФА.cdf'      ,'ДНФА','ДНФА',ЗагрузитьБезВопросов,'');
  | i='РПО_СТИЛЬ' :^ЗагрузкаСправочников('РПО_СТИЛЬ.cdf'     ,'','',ЗагрузитьБезВопросов,'');
  | i='РПО_ОКЕИ'  :^ЗагрузкаСправочников('РПО_ОКЕИ.cdf'      ,'','',ЗагрузитьБезВопросов,'');
  | i='РПО_ОКОФ'  :^ЗагрузкаСправочников('РПО_ОКОФ.cdf'      ,'','',ЗагрузитьБезВопросов,'');
--  | i=6 :ЗагрузкаСправочников('КЛАССИФИКНОРМА.cdf','','',ЗагрузитьБезВопросов,'');
--  | i=7 :ЗагрузкаСправочников('ОКОФ02.cdf'        ,'','',ЗагрузитьБезВопросов,'');
  | true:^'Неизвестная картотека!';
 fi;

-- if i=1 :^ЗагрузкаСправочников('РПО_ВИДДОК.cdf'    ,'ВИДДОК','ПРИЗНАК',ЗагрузитьБезВопросов,'');
--  | i=2 :^ЗагрузкаСправочников('РПО_ДНФА.cdf'      ,'ДНФА','ДНФА',ЗагрузитьБезВопросов,'');
--  | i=3 :^ЗагрузкаСправочников('РПО_СТИЛЬ.cdf'     ,'','',ЗагрузитьБезВопросов,'');
--  | i=4 :^ЗагрузкаСправочников('РПО_ОКЕИ.cdf'      ,'','',ЗагрузитьБезВопросов,'');
--  | i=5 :^ЗагрузкаСправочников('РПО_ОКОФ.cdf'      ,'','',ЗагрузитьБезВопросов,'');
----  | i=6 :ЗагрузкаСправочников('КЛАССИФИКНОРМА.cdf','','',ЗагрузитьБезВопросов,'');
----  | i=7 :ЗагрузкаСправочников('ОКОФ02.cdf'        ,'','',ЗагрузитьБезВопросов,'');
--  | true:^'Неизвестная картотека!';
-- fi;
end;

proc ОткрытиеИнформационнгоБланка;
 var wa,i,j,rs1,x,tm,z,t,y,p:i;
 var s,ss,ЗаменаЗначения,СписокСчетовНеОбновлять,РазрешенныйСписокСчетов,cdf,an,file,crd,filtr:s;
 var lngs:ls;
 var ll,есть_разрешение:l;
 РазрешенныйСписокСчетов=РАБ.НФА.INI_SETUP.ВзятьРазрешенныйСписокСчетов;
 СписокСчетовНеОбновлять=РАБ.НФА.INI_SETUP.ВзятьСписокСчетовНеОбновлять;
 if ПоследнийРазрешенныйСписокСчетов<>РазрешенныйСписокСчетов:
 ClearVariable(Buf);
-- ClearVariable(BufBln);
 ClearVariable(Buf1);
 ClearVariable(Bufl);
 lngs='';
      wa=openworkarea('РПО_ДНФА','','КОНВ<>1');
       rs1=records(wa);
      closeworkarea(wa);

 Buf[1]='РПО_СТИЛЬ'     ;
 Buf[2]='РПО_ОКЕИ'      ;
 Buf[3]='РПО_ОКОФ'      ;
-- Buf[4]='РПО_ДНФА'      ;
-- Buf[5]='РПО_ВИДДОК'    ;
-- Buf[6]='КЛАССИФИКНОРМА';
-- Buf[7]='ОКОФ02'        ;
 j=4;
 z=LengthOfArray(Buf);
 for i=1..z do
   s=Buf[i];
   wa=OpenWorkArea(s,'');
     if(records(wa)<1):
        j=j+1;
        Buf1[j]=str(i)+' '+Buf[i]+'--'+'загружать';
        Bufl[i]=true;
     fi;
   CloseWorkArea(wa);
 od;
 z=ПоискВмассиве(Buf,'РПО_ОКОФ');
 if z>0:
    if Bufl[z]:
      s=Buf[z];
      wa=OpenWorkArea(s,'','1=0');
      setfilter(wa,'КОД_ОКОФ="VER" and ИМЯ_ОКОФ1="2009.01"');
        if(records(wa)<1):
           setfilter(wa,'КОД_ОКОФ="VER" and ИМЯ_ОКОФ1="2007.04"');
           if(records(wa)<1):
              j=z+4;Buf1[j]=str(z)+' '+Buf[z]+'--'+'загружать';
            | true:
              try
                s=getfields(wa,1,'АМОРТ_ГР09');
                j=z+4;Buf1[j]=str(z)+' '+Buf[z]+'--'+'обновить (изменения 2009г)';
                s=Buf[z];
              except
                Message('ВНИМАНИЕ!^MДля обновления картотеки РПО_ОКОФ в связи с изменениями ОКОФ с 01.01.2009^Mтребуется обновление структуры картотеки РПО_ОКОФ^M(отсутствует поле АМОРТ_ГР09)',mtWarning);
              end;
           fi;
        fi;
      CloseWorkArea(wa);
    fi;
 fi;
 i=2;
 z=LengthOfArray(Buf);
 if j>4:
  Buf1[1]='Отмена--Отказ от загрузки';
  Buf1[2]='Загрузить.--условия загрузки...';
  Buf1[3]='Загрузить.все--Загрузить все справочники';
  Buf1[4]='Загрузить.выбранные--Загрузить только выбранные справочники';
  While i>4 or i=2 do
    i=ДеревоАльтернатив('Требуется загрузка справочников...',Buf1,-1,i,10,'.','Справочник','Загрузить',13,false);
    if i>4:s=SubStr(Buf1[i],pos('--',Buf1[i])+2,50);
           if s='не загружать':s='загружать';
            | s='загружать':s='не загружать';
            | s='обновить (изменения 2009г)':s='не обновлять (изменения 2009г)';
            | s='не обновлять (изменения 2009г)':s='обновить (изменения 2009г)';
            | true:s='не загружать';
           fi;
       Buf1[i]=SubStr(Buf1[i],1,pos('--',Buf1[i])+1)+s;
       Bufl[i-4]=not Bufl[i-4];
    fi;
  od;
  ss='';
  if i=3:
      for i=1..z do
        if not(rs1>0 and i=2):
          ОкноВыполненияПоказать(z,'Загрузка картотеки '+Buf[i]+'...');ОкноВыполненияПоложение(i-1);
          ss=trim(ЗагрузкаСпр(Buf[i],true));
          if ss<>'':lngs=lngs+ss+chr(13);fi;
        fi;
      od;
      ОкноВыполненияПоложение(i);ss=' ';
   | i=4:
      for i=5..z+4 do
        s=SubStr(Buf1[i],pos('--',Buf1[i])+2,50);
           if s='загружать':
--             if not(rs1>0 and int(SubStr(Buf1[i],1,2))=2):
              ОкноВыполненияПоказать(z,'Загрузка картотеки '+Buf[int(SubStr(Buf1[i],1,2))]+'...');ОкноВыполненияПоложение(i-5);
                ss=trim(ЗагрузкаСпр(Buf[i-4],true));
              if ss<>'':lngs=lngs+ss+chr(13);fi;
--             fi;
            | s='обновить (изменения 2009г)':tm=time;x=обновить_окоф_2009;
              if x<0:trace('Ошибка при обновлениее картотеки РПО_ОКОФ!');
--               | x=0:trace('Ошибка при обновлениее картотеки РПО_ОКОФ!');
               | x>=0:trace('В картотеке РПО_ОКОФ обновлено(добавлено) записей:'+str(x)+' время затрачено:'+РАБ.НФА.B01.TimeToString(time-tm));
              fi;
           fi;
      od;
      ОкноВыполненияПоложение(z);ss=' ';
  fi;
 fi;
 if ss=' ':
  ОкноВыполненияЗакрыть;
  message('Загрузка справочников завершена!^M'+lngs);
 fi;
-- РазрешенныйСписокСчетов=РАБ.НФА.INI_SETUP.ВзятьРазрешенныйСписокСчетов;
-- if ПоследнийРазрешенныйСписокСчетов<>РазрешенныйСписокСчетов:
   ЗаменаЗначения=trim(Раб.НФА.B01.ПолеПоПризнакуС('ДНФА.ВНПР.ХЭ','НЕДЕЙСТВСПР'));
   if ЗаменаЗначения<>'':ЗаменаЗначения='НЕДЕЙСТВСПР='+ЗаменаЗначения;fi;
   if not автообработка:refreshana;fi;
   ClearVariable(Buf);
   cdf=ПеремПБ('НФА')+'\cdf\АНАЛИТИКА\';
   if Pos(".",cdf)=1:-- пытаемся вычислить путь через "."
      cdf=Раб.НФА.B01.ПутьSTD_RPO+"\НФА\cdf\АНАЛИТИКА\";
   fi;
   if not Раб.НФА.B03.Загрузить_СтрМассив_ИзФайла('УПРАВЛЕНИЕ.УНФА.Buf','',1,cdf+'СПИСОК_АНАЛИТИКИ.txt'):
      exit;
   fi;
    z=LengthOfArray(Buf);
    for t=1..z do Buf[t]=trim(Buf[t]);od;
  --    ОкноВыполненияПоказать(z,'Загрузка справочника ...');ОкноВыполненияПоложение(1);
    for t=1..z do
  --  for t=1..12 do
      y=y+1;
      if y=5 or t=z:y=1;-- считали партию
         file=an;
         ll=false;

         if not ll:
           есть_разрешение=false;
           x=количествослов(ss,'|');
           for j=1..x do
             if pos(выделитьслово(j,ss,'|'),РазрешенныйСписокСчетов)>0:-- есть разрешение
                if pos(выделитьслово(j,ss,'|'),СписокСчетовНеОбновлять)<1:-- есть разрешение
                   есть_разрешение=true;
                   break;
                fi;
             fi;
           od;
           ll=not есть_разрешение;
         fi;

         if not ll:
            if Name_A(an)<>' ':
               ll=КартотекаПризнака(an, Ложь)=crd;
            fi;
         fi;
         if not ll: -- проверка на существование в картотеке
            wa=openworkarea(crd,'',filtr);
            ll=Records(wa)>0;
            CloseWorkArea(wa);
         fi;
         if not ll:
            ОкноВыполненияПоказать(z,'Загрузка справочника '+file+'...');ОкноВыполненияПоложение(t);
            Раб.НФА.B03.ЗагрузкаСправочников(cdf+file+'.CRD',false,false,true,if(crd='РПО_ДНФА',ЗаменаЗначения,''),false);
         fi;
         if y=1:an=Buf[t];fi;
  --       trace(file);
  --     exit;
       | true:
         if y=1:an=Buf[t];
          | y=2:p=pos('#',Buf[t]);crd=SubStr(Buf[t],1,p-1);filtr=trim(SubStr(Buf[t],p+1,255));
          | y=3:ss=Buf[t];
          | y=4:--if Name_A(an)<>' ':Select[t]=Name_A(an);fi;
         fi;
      fi;
    od;
   ПоследнийРазрешенныйСписокСчетов=РазрешенныйСписокСчетов;
--  if ВремяПроверкиСправочниковУНФА =0:ВремяПроверкиСправочниковУНФА=время;fi;
 fi;

  ОкноВыполненияЗакрыть;


-- GetCardFieldS  РПО_ДНФА ДНФА
-- if Name_A('ВИДДОК.НФА.ДОКУМЕНТЫ.ВЕДОМОСТИ.ОКУД_0504210')=' ':
--       ss=trim(ЗагрузкаСправочников('РПО_ВИДДОК_0504210.cdf'    ,'ВИДДОК','ПРИЗНАК',true,''));
--       if ss<>'':message(ss);fi;
-- fi;
-- if Name_A('ДНФА.РАСХ.НФА.401_Ф')=' ':
--       ss=trim(ЗагрузкаСправочников('РПО_ДНФА_401Ф.cdf'    ,'ВИДДОК','ПРИЗНАК',true,ЗаменаЗначения));
--       if ss<>'':message(ss);fi;
-- fi;
-- if Name_A('ВИДДОК.НФА.ЖУР.ВНУТР_ПЕРЕМЕЩЕН')=' ':
--       ss=trim(ЗагрузкаСправочников('РПО_ВИДДОК_ВНУТРПЕРЕМЕЩЕН.cdf'    ,'ВИДДОК','ПРИЗНАК',true,''));
--       if ss<>'':message(ss);fi;
-- fi;
-- if Name_A('ВИДДОК.НФА.ДОКУМЕНТЫ.НАКЛАДНЫЕ.РПО_НАКЛАДНАЯ_М15')=' ':
--       ss=trim(ЗагрузкаСправочников('РПО_ВИДДОК_М15.cdf'    ,'ВИДДОК','ПРИЗНАК',true,''));
--       if ss<>'':message(ss);fi;
-- fi;
-- if Name_A('ВИДДОК.НФА.ДОКУМЕНТЫ.ВЕДОМОСТИ.ОКУД_0504087')=' ':
--       ss=trim(ЗагрузкаСправочников('РПО_ВИДДОК_ИНВВЕД0504087.cdf'    ,'ВИДДОК','ПРИЗНАК',true,''));
--       if ss<>'':message(ss);fi;
-- fi;
-- if Name_A('ВИДДОК.НФА.ЖУР.РПО_НФА_СПРАВКА')=' ':
--       ss=trim(ЗагрузкаСправочников('РПО_ВИДДОК_НФАСПРАВКА.cdf'    ,'ВИДДОК','ПРИЗНАК',true,''));
--       if ss<>'':message(ss);fi;
-- fi;
-- if Name_A('ДНФА.ПРИХ.КВ.106_КВ')=' ' и Name_A('ДНФА.РАСХ.КВ.106_КВ')=' ':
--       ss=trim(ЗагрузкаСправочников('РПО_ДНФА_КВБАЛ.cdf'    ,'ВИДДОК','ПРИЗНАК',true,ЗаменаЗначения));
--       if ss<>'':message(ss);fi;
-- fi;

-- if Name_A('ДНФА.ВНПР.2_1_НФА')=' ':
--       ss=trim(ЗагрузкаСправочников('РПО_ДНФА_2В1.cdf'    ,'ВИДДОК','ПРИЗНАК',true,ЗаменаЗначения));
--       if ss<>'':message(ss);fi;
-- fi;
-- if Name_A('ДНФА.ПРИХ.НИ_106_У_НФА')=' ':
----       ss=trim(ЗагрузкаСправочников('РПО_ДНФА_НИ_106_У_НФА.cdf'    ,'ВИДДОК','ПРИЗНАК',true,ЗаменаЗначения));
----       if ss<>'':message(ss);fi;
-- fi;
end;

proc Инициализация;
var j,t:i;
var ss:s;
var obj:object;
--  OpenBlank('РАБ.ВСПОМ.ИНИЦИАЛИЗАЦИЯ',false);
 Buttn    [1]='Справочники...';
 Buttnhint[1]='Позволяет выбрать справочники стандартного'+chr(13)+'комплекта учета НФА(роста, размеры, НФА, основания...)';
 Buttn    [2]='Движение НФА...';
 Buttnhint[2]='Позволяет выбрать бланки по видам движения НФА'+chr(13)+'и журнал-картотеку по операциям с НФА';
 Buttn    [3]='Отчетность..';
 Buttnhint[3]='Отчетность'+chr(13)+'';
 Buttn    [4]='Ведомости...';
 Buttnhint[4]=''+chr(13)+'';
 Buttn    [5]='Акты....';
 Buttnhint[5]='Позволяет выбрать акты  (по приходу,'+chr(13)+'расходу, передаче, списанию НФА и т.д).';
 Buttn    [6]='Карточки...';
 Buttnhint[6]=''+chr(13)+'';
 Buttn    [7]='Накладные...';
 Buttnhint[7]=''+chr(13)+'';
 Buttn    [9]='...';
 Buttnhint[9]=''+chr(13)+'';
 Buttn    [8]='Переоценка НФА';
 Buttnhint[8]='Позволяет выбрать отчетные'+chr(13)+'документы по переоценке НФА';
 Buttn    [9]='Учет федерального имущества';
 Buttnhint[9]='Позволяет выбрать и выгрузить'+chr(13)+'карточки федерального имущества';
 Buttn    [10]='...';
 Buttnhint[10]=''+chr(13)+'';
 Buttn    [11]='Сервис...';
 Buttnhint[11]='Сервисные бланки (импорт справочников, конверторы...)'+chr(13)+'';

-- Buttn    [8]='Учет работы автотранспорта...';
-- Buttnhint[8]='Подсистема находится в разработке'+chr(13)+'';

  SysInfo.Hint=txtInfo;
 for j=1..11 do
  if j<10:ss='0';|true:ss='';fi;
  if НайтиОбъект('Button'+ss+str(j),obj):
     obj.Caption=Buttn[j];
     obj.Hint=Buttnhint[j];
  fi;
 od;

end;

Proc SysInfo_ПриНажатии(Кнопка: String);
var НовостиНФА,usr:s;
var ii:i;
var ss:LongString;
  usr=ИмяБазы('РПО_ДНФА');
  usr=ИмяПользователя(usr);
  Пользователь=usr;
  if Пользователь<>'':
     Label1.Caption='ЦЕНТР УПРАВЛЕНИЯ[УНФА] ('+Пользователь+')['+Схема+']';
  fi;
ss=txtBank+txtRekv;
НовостиНФА=PlanVar('НФА')+'\НовостиНФА.txt';
if Кнопка='SysInfo':
     Кнопка=txtInfo+if(usr<>'',chr(13)+'Пользователь:'+usr+'('+Схема+')','')+chr(13);
     Кнопка=Кнопка+'Время работы в УНФА:'+Раб.НФА.B01.TimeToString(Время-ВремяНачалаРаботыУНФА);
     ii=Вопрос('Информация о сборке УНФА',Кнопка,'Закрыть;Новости;Реквизиты;В гости',mtInformation);
     if 2=ii:ОткрытьРедактор(НовостиНФА);
      | 3=ii:message(ss);
      | 4=ii:ОткрБланк('РАБ.ВСПОМ.ПРОЕЗД_В_РПО',false);
     fi;
 | true:
  if LicenseCheck(144)=0:OpenBlank('РАБ.ВСПОМ.ЛИЦ144');
  fi;
fi;
end;

proc ПредМеню_ПриНажатии(Кнопка:String);
 OpenBlank('УПРАВЛЕНИЕ.ЦЕНТР_УПРАВЛЕНИЯ',false);Close;
end;

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

proc ПриОткрытии(Отк:Logical);
var ver,usr:s;
  usr=ИмяБазы('РПО_ДНФА');
--  Пользователь='ИмяПользователя';
--  Схема       ='ИмяСхемы';
  Пользователь=ИмяПользователя(usr);
  Схема       =ИмяСхемы(usr);
  if Пользователь<>'':
     Label1.Caption='ЦЕНТР УПРАВЛЕНИЯ[УНФА] ('+Пользователь+')['+Схема+']';
  fi;
  ver=Up(версия);
  if pos('ДЕМО',Up(версия))>0:ver='[Демо-версия]';ButtonAct.Visible=false;
   | true:ver='[не активирован]';
  fi;
  if LicenseCheck(144)=0:
     SysInfo.Caption='Информация о подсистеме Учет НФА '+ver;
   | true:SysInfo.Caption='Информация о подсистеме Учет НФА';ButtonAct.Visible=false;
  fi;
  ClearVariable(Buf);
  ПроверкаСтандартногоКомплекта;
end;
proc ПослеОткрытия(Отк:Logical);
 var ss:s;
 var obj:Объект;
 var j:i;
  НастрКарт;
  Инициализация;
  ЗаполнениеПрикладныхСистем;
  РАБ.НФА.INI_SETUP.set_current_ini;
-- убирает кнопки прикладных систем с названием "..."
 for j=1..12 do
  if j<10:ss='0';|true:ss='';fi;
  if НайтиОбъект('Button'+ss+str(j),obj):
     if AsString(obj.Hint)='':obj.Hint=AsString(obj.Caption);fi;
  fi;
 od;
 Обновить_STD_RPO;
    --message(ВзятьПутьКБланку_REFRESH_TBB);
  Таймер1.Активный=Истина;
end;
proc ПриИзменении;
end;


Проц НаТаймер(Отправитель: Строка);
 Таймер1.Активный=false;
 ОткрытиеИнформационнгоБланка;
 if ВремяНачалаРаботыУНФА       =0:
    ВремяНачалаРаботыУНФА       =Время;
    ДатаНачалаРаботыУНФА        =Сегодня;
    ПользовательНачалаРаботыУНФА=Пользователь;
    СхемаНачалаРаботыУНФА       =Схема;
    ВремяПоследнегоНачалаРаботыУНФА       =ВремяНачалаРаботыУНФА       ;
    ДатаПоследнегоНачалаРаботыУНФА        =ДатаНачалаРаботыУНФА        ;
    ПользовательПоследнегоНачалаРаботыУНФА=ПользовательНачалаРаботыУНФА;
    СхемаПоследнегоНачалаРаботыУНФА       =СхемаНачалаРаботыУНФА       ;
 fi;

 if СчетИспользован('ЗАБ.НФА.ОШИБКИ'):
    НеНапоминать=РАБ.НФА.B01.ВопросДаНетНеНапоминать('Обнаружены ошибки в движении НФА!^MПросмотреть отчет?^M^MСписок ошибок можно всегда просмотреть в^M[Отчетность]=>[Проверка НФА]',НеНапоминать);
    if НеНапоминать=1:
       Отчет('"'+PlanVar('НФА')+'\Отчеты\НФАОТЧ.lst"."ОШИБКИ"',01.01.76,01.01.20,'','');
    fi;
 fi;
end;


--proc УдалитьПустыеОстатки;
--var CardName:s;
--var Delrec:l;
--var НЗ,ii,wa,recswa,war:i;
--         CardName='РПО_ОСТ_НФА';
--         wa=OpenWorkArea(CardName,'');
--         recswa=Records(wa);
--         Попытка
--           НачатьИзменения(wa, Истина);
--           Попытка
--             for ii=1..recswa do
--               war=OpenArray(wa,ii,'ПОЗИЦИИ','');
--                 if Records(war)=0: Delrec=true;
--                  | true:           Delrec=false;
--                 fi;
--               CloseWorkArea(war);
--               if Delrec:УдалитьЗапись(wa,ii);fi;
--             od;
--           ЗакончитьИзменения(wa);
--           Исключение
--           ОтменитьИзменения(wa);
--           Возбудить;
--           Конец;
--         Окончание
--         Конец;
--         CloseWorkArea(wa);
--end;

--proc ыыыы(s:s);
--var ПутьРПО_НФА,ppp1,ppp,П,Cdf,Crd,CardName:s;
--var ЗагружатьНФА_ТМЦ:l;
--var ЗагружатьНФА_ОС:l;
--var ЗагружатьНФА_ОСТАТКИ:l;
--var ВыставитьПроводить:l;
--var НЗ,ii,wa,recswa:i;
--ЗагружатьНФА_ТМЦ    =false;
--ЗагружатьНФА_ОС     =false;
--ЗагружатьНФА_ОСТАТКИ=false;
--ВыставитьПроводить=false;
--      ПутьРПО_НФА='C:\TB69P\Вишневского\Службы\sys\ВыгрузкаДля70Н\';
--      ppp1=П;
--      for sign ppp='П.*' do
--        П=ppp;

--2        ---------- загрузка списка НФА1 ----------
--        if ЗагружатьНФА_ТМЦ:
--           Cdf=ПутьРПО_НФА+'\РПО_НФА_ТМЦ_'+П+'.Cdf';
--           Crd=ПутьРПО_НФА+'\РПО_НФА_ТМЦ_'+П+'.Crd';
--           if ЕстьФайл(Cdf) и ЕстьФайл(Crd):
--               trace('Загружается список НФА-ТМЦ по '+П);
--               CardName='РПО_НФА';
--               ImportCard(ieCRD,CardName,Cdf,Ложь,Ложь,Ложь,Ложь,дублЗаменить,Ложь,Ложь,Ложь);
--           fi;
--        fi;
--2        ---------- загрузка списка НФА2 ----------
--        if ЗагружатьНФА_ОС:
--           Cdf=ПутьРПО_НФА+'\РПО_НФА_ОС_'+П+'.Cdf';
--           Crd=ПутьРПО_НФА+'\РПО_НФА_ОС_'+П+'.Crd';
--           if ЕстьФайл(Cdf) и ЕстьФайл(Crd):
--               trace('Загружается список НФА-ОС по '+П);
--               CardName='РПО_НФА';
--               ImportCard(ieCRD,CardName,Cdf,Ложь,Ложь,Ложь,Ложь,дублЗаменить,Ложь,Ложь,Ложь);
--           fi;
--        fi;
--2        ---------- загрузка остатков НФА ----------

--        if ЗагружатьНФА_ОСТАТКИ:
--            Cdf=ПутьРПО_НФА+'\РПО_ОСТ_НФА_'+П+'.Cdf';
--            Crd=ПутьРПО_НФА+'\РПО_ОСТ_НФА_'+П+'.Crd';
--            if ЕстьФайл(Cdf) и ЕстьФайл(Crd):
--                trace('Загружаются данные по '+П);
--                CardName='РПО_ОСТ_НФА';
--                ImportCard(ieCRD,CardName,Cdf,Ложь,Ложь,Ложь,Ложь,дублЗаменить,Ложь,Ложь,Ложь);
--            fi;
--        fi;
--      od;
--      П=ppp1;
--      if ВыставитьПроводить:
--         wa=OpenWorkArea(CardName,'');
--         recswa=Records(wa);
--         Попытка
--           НачатьИзменения(wa, Истина);
--           Попытка
--             for ii=1..recswa do
--               НЗ=ЗаписатьПолеЛ(wa,ii,"ПРОВОДИТЬ",true);
--             od;
--           ЗакончитьИзменения(wa);
--           Исключение
--           ОтменитьИзменения(wa);
--           Возбудить;
--           Конец;
--         Окончание
--         Конец;
--         CloseWorkArea(wa);
--      fi;
--      УдалитьПустыеОстатки;

--end;

Проц Кнопка2_ПриНажатии(Отправитель: Строка);
 trace(Обновить_REFRESH_TBB);
end;


Проц Кнопка3_ПриНажатии(Отправитель: Строка);
  Обновить_STD_RPO;
end;

var jjj:i;
Таймер2:o;
var x0:i;
var y0:i;
var z0:i;

Проц Go;
var x,y,z:i;
var dx,dy,dz:n;
var x1,y1,z1,x2,y2,z2:i;
var j,k:i;
 Таймер2.Активный=false;
 k=400;
 x1=100;
 y1=100;
 x2=3700;
 y2=700;
 z1=10;
 z2=700;
 dx=(x2-x1)/k;
 dy=(y2-y1)/k;
 dz=(z2-z1)/k;
 j=jjj;
  x=int(x1+j*dx);
  y=int(y1+j*dy);
  z=int(z1+j*dz);

  if x<>x0 or y<>y0 or z<>z0:
    рисунок1.Left=x;
    рисунок1.Top=y;
    рисунок1.Width=z;
    рисунок1.Height=z;
  fi;
 jjj=jjj-1;
 x0=x;
 y0=y;
 z0=z;
 Таймер2.Активный=Истина;
end;


Проц НаТаймер2(Отправитель: Строка);
 Go;
 if jjj<1:
   Таймер2.Активный=false;
   рисунок1.Visible=false;
 fi;
end;

var КолНажатий:i;
Проц Label1_ПриНажатии(Отправитель: Строка);
var aa:i;
  КолНажатий=КолНажатий+1;
  if КолНажатий<13:exit;fi;
  КолНажатий=0;
  jjj=400;
  x0=0;
  y0=0;
  z0=0;
  рисунок1.Visible=true;
  рисунок1.BringToFront;
  Таймер2.Активный=Истина;
end;


КОНЕЦ