-- Шаблон создан мастером бланков
-- 05.01.2005 16:42:29
--
БланкСШаблоном "Подготовка к работе";

Proc ДобавлениеВал (vCrd:S; vВал:S);
var OWA,n,nr:I;
 if not canUpdate(vCrd): Exit; fi;
 OWA=OpenWorkArea(vCrd,"","Валюта=''");
 Try
  nr=Records(OWA);
  BeginChanging(OWA,True);
  Try
   for n=1..nr do
    n=PutFieldS(OWA,n,"Валюта",vВал);
   od;
   EndChanging(OWA);
  Except
   CancelChanging(OWA);
  end;
 Finally
  CloseWorkArea(OWA);
 end;
end;

Proc ПроверитьВерсиюОКДП;
var OWA,n,nr,Flag1:i;
var Flag2,Flag3:l;
 if not canUpdate("РПО_ОКДП") or not isVisible("РПО_ОКДП") or not isVisible("РПО_СТАТУС") or not CanUpdate("РПО_ПРИЗНАК_ОКДП") or not CanInsert("РПО_ПРИЗНАК_ОКДП") or not isVisible("РПО_ПРИЗНАК_ОКДП"): Exit; fi;
 if Раб.Семафор.Статус("РПО_ОКДП",0)=0 and Раб.Семафор.Статус("РПО_БЮДЖ_КЛАСС",0)=0:
    OWA=OpenWorkArea("РПО_ОКДП","");
    Try
     if Records(OWA)=0: Exit; fi;
     SetFilter(OWA,"not ГР=''");
     Flag2=Records(OWA)=0;
     SetFilter(OWA,"not ГР273=''");
     Flag3=Records(OWA)=0;
    Except
     CloseWorkArea(OWA);
    end;
    OWA=OpenWorkArea("РПО_СТАТУС","","ID='РПО_ОКДП'");
    Try
     if not Records(OWA)=0:
        Flag1=GetFieldI(OWA,1,"VAL_I");
     fi;
    Finally
     CloseWorkArea(OWA);
    end;
    if Flag2 or Flag1<4:
       Message("Необходимо выполнить синхронизацию справочника ОКДП (в ред. прик. МЭР РФ 01.12.2010 г. N 601)");
       ExecuteProc("Раб.Вспом.Импорт_Справ.СинхронОКДП",601);
    fi;
    if Flag3 or Flag1<5:
       Message("Необходимо выполнить синхронизацию справочника ОКДП (в ред. прик. МЭР РФ 07.06.2011 г. N 273)");
       ExecuteProc("Раб.Вспом.Импорт_Справ.СинхронОКДП",273);
    fi;
 fi;
end;


Proc OnOpen(Create: Logical);
 --ДобавлениеВал("РПО_ИЗВЕЩЕНИЯ_ВХ",BaseCurrency);
 --ДобавлениеВал("РПО_ИЗВЕЩЕНИЯ_ИСХ",BaseCurrency);
 ДобавлениеВал("РПО_НАЧДОХ",BaseCurrency);
 ДобавлениеВал("РПО_БУХСПРАВКА",BaseCurrency);
 ДобавлениеВал("РПО_ВЕДПОДОТЧЕТ",BaseCurrency);
 ExecuteProc("РАБ.ВСПОМ.СПРАВ_БИК.СинхронСправочник");
 РАБ.ВСПОМ.ИМПОРТ_НАСТРКАРТ.НастрКарт("bro.ver",PlanVar("Общие")+"\Картотеки\",PlanVar("LocalData")+"\Картотеки\",False); --Стандартные настройки
 РАБ.ВСПОМ.ИМПОРТ_НАСТРКАРТ.НастрКарт("bro_.ver",PlanVar("Бух")+"\Картотеки_\",PlanVar("LocalData")+"\Картотеки\",False); --Пользовательские настройки
 Раб.Вспом.Импорт_Справ.OpenBln=True;
 OpenBlank("Раб.Вспом.Импорт_Справ",True);
 ПроверитьВерсиюОКДП;
 Close;
end;

Proc btnЗакрыть_OnClick(Sender: String);
 Close;
end;


Конец
