БЛАНКСШАБЛОНОМ "Баланс по поступлениям и выбытиям бюджетных средств";
-- Разработка бланка: ТБ.БЮДЖЕТ
-- Первый релиз: 15.04.2011

-- Настройки по умолчанию

-- Объекты
btnClose:Object; btnРасчет:Object; btnExport:Object; btnОчистить:Object; cb_Настройки:Object;

СекцНстрОтч1 :Object;
СекцНстрОтч2 :Object;
СекцШапкаОтч :Object;
СекцСтБаланс :Object;
СекцСпрБалЗГ :Object;
СекцСпрБалТБ :Object;
СекцСпрБалПЛ :Object;
СекцПодписи1 :Object;
СекцПодписи2 :Object;
СекцПодписи3 :Object;
СекцПодписи4 :Object;

Позиции      :Integer;

-- Переменные и константы
var РШФ :String="";
var ARW :String="+";
var DRW :String="-";
var C3R :String="Рассчитать справку";
var ACC19        :String="ЗАБ.19";
var Фокус        :String="";
var dНачало      :Date=1.1.1900;
var Flag_onEnter :Logical;
var flgНастройки :Logical;
flgClear         :String;   -- контроль очистки бланков

flgИскл_ЗГ       :Logical=[True];
flgИскл_ЗГ_      :Logical=flgИскл_ЗГ;
flgОтмт_КО       :Logical=[False];
flgДлинаФО       :Logical=[False];
rep3БД           :String;
rep3ПД           :String;

ОтчАНАCur        :String;
var ОтчАНАOld    :String;

ДАТАОТЧ  :Date;
ДАТАЗГЛ  :String="";
ДАТАИСП  :Date;
oldDate  :Date;
УЧР_SREC :Record;
УЧР_НПОЛ :String;
УЧР_НКОР :String;
УЧР_НАИМ :String;
УЧР_ОКПО :String;
УЧР_ИНН  :String;
ГЛВ_БК   :String;
БДЖ_НАИМ :String;
ОКАТО    :String;
ИСПREC   :Record;
ИСПФИО   :String;
ИСПДОЛ   :String;
РукФИО   :String;
БухФИО   :String;

RГ3С181      :Numeric;
RГ3С182      :Numeric;
RГ3С183      :Numeric;
var RГ3С180  :Numeric=RГ3С181+RГ3С182+RГ3С183;
RГ3С191      :Numeric;
RГ3С192      :Numeric;
RГ3С193      :Numeric;
var RГ3С190  :Numeric=RГ3С191+RГ3С192+RГ3С193;
RГ3С201      :Numeric;
RГ3С202      :Numeric;
RГ3С203      :Numeric;
var RГ3С200  :Numeric=RГ3С201+RГ3С202+RГ3С203;
RГ3С205      :Numeric;
RГ3С206      :Numeric;
var RГ3С410  :Numeric=RГ3С180+RГ3С190+RГ3С200+RГ3С205+RГ3С206;

RГ4С181      :Numeric;
RГ4С182      :Numeric;
RГ4С183      :Numeric;
var RГ4С180  :Numeric=RГ4С181+RГ4С182+RГ4С183;
RГ4С191      :Numeric;
RГ4С192      :Numeric;
RГ4С193      :Numeric;
var RГ4С190  :Numeric=RГ4С191+RГ4С192+RГ4С193;
RГ4С201      :Numeric;
RГ4С202      :Numeric;
RГ4С203      :Numeric;
var RГ4С200  :Numeric=RГ4С201+RГ4С202+RГ4С203;
RГ4С205      :Numeric;
RГ4С206      :Numeric;
var RГ4С410  :Numeric=RГ4С180+RГ4С190+RГ4С200+RГ4С205+RГ4С206;

RГ5С181      :Numeric;
RГ5С182      :Numeric;
RГ5С183      :Numeric;
var RГ5С180  :Numeric=RГ5С181+RГ5С182+RГ5С183;
RГ5С191      :Numeric;
RГ5С192      :Numeric;
RГ5С193      :Numeric;
var RГ5С190  :Numeric=RГ5С191+RГ5С192+RГ5С193;
RГ5С201      :Numeric;
RГ5С202      :Numeric;
RГ5С203      :Numeric;
var RГ5С200  :Numeric=RГ5С201+RГ5С202+RГ5С203;
RГ5С205      :Numeric;
RГ5С206      :Numeric;
var RГ5С410  :Numeric=RГ5С180+RГ5С190+RГ5С200+RГ5С205+RГ5С206;

RГ7С181      :Numeric;
RГ7С182      :Numeric;
RГ7С183      :Numeric;
var RГ7С180  :Numeric=RГ7С181+RГ7С182+RГ7С183;
RГ7С191      :Numeric;
RГ7С192      :Numeric;
RГ7С193      :Numeric;
var RГ7С190  :Numeric=RГ7С191+RГ7С192+RГ7С193;
RГ7С201      :Numeric;
RГ7С202      :Numeric;
RГ7С203      :Numeric;
var RГ7С200  :Numeric=RГ7С201+RГ7С202+RГ7С203;
RГ7С205      :Numeric;
RГ7С206      :Numeric;
var RГ7С410  :Numeric=RГ7С180+RГ7С190+RГ7С200+RГ7С205+RГ7С206;

RГ8С181      :Numeric;
RГ8С182      :Numeric;
RГ8С183      :Numeric;
var RГ8С180  :Numeric=RГ8С181+RГ8С182+RГ8С183;
RГ8С191      :Numeric;
RГ8С192      :Numeric;
RГ8С193      :Numeric;
var RГ8С190  :Numeric=RГ8С191+RГ8С192+RГ8С193;
RГ8С201      :Numeric;
RГ8С202      :Numeric;
RГ8С203      :Numeric;
var RГ8С200  :Numeric=RГ8С201+RГ8С202+RГ8С203;
RГ8С205      :Numeric;
RГ8С206      :Numeric;
var RГ8С410  :Numeric=RГ8С180+RГ8С190+RГ8С200+RГ8С205+RГ8С206;

RГ9С181      :Numeric;
RГ9С182      :Numeric;
RГ9С183      :Numeric;
var RГ9С180  :Numeric=RГ9С181+RГ9С182+RГ9С183;
RГ9С191      :Numeric;
RГ9С192      :Numeric;
RГ9С193      :Numeric;
var RГ9С190  :Numeric=RГ9С191+RГ9С192+RГ9С193;
RГ9С201      :Numeric;
RГ9С202      :Numeric;
RГ9С203      :Numeric;
var RГ9С200  :Numeric=RГ9С201+RГ9С202+RГ9С203;
RГ9С205      :Numeric;
RГ9С206      :Numeric;
var RГ9С410  :Numeric=RГ9С180+RГ9С190+RГ9С200+RГ9С205+RГ9С206;

var RГ6С180  :Numeric=RГ3С180+RГ4С180+RГ5С180;     var RГ0С180  :Numeric=RГ7С180+RГ8С180+RГ9С180;
var RГ6С181  :Numeric=RГ3С181+RГ4С181+RГ5С181;     var RГ0С181  :Numeric=RГ7С181+RГ8С181+RГ9С181;
var RГ6С182  :Numeric=RГ3С182+RГ4С182+RГ5С182;     var RГ0С182  :Numeric=RГ7С182+RГ8С182+RГ9С182;
var RГ6С183  :Numeric=RГ3С183+RГ4С183+RГ5С183;     var RГ0С183  :Numeric=RГ7С183+RГ8С183+RГ9С183;
var RГ6С190  :Numeric=RГ3С190+RГ4С190+RГ5С190;     var RГ0С190  :Numeric=RГ7С190+RГ8С190+RГ9С190;
var RГ6С191  :Numeric=RГ3С191+RГ4С191+RГ5С191;     var RГ0С191  :Numeric=RГ7С191+RГ8С191+RГ9С191;
var RГ6С192  :Numeric=RГ3С192+RГ4С192+RГ5С192;     var RГ0С192  :Numeric=RГ7С192+RГ8С192+RГ9С192;
var RГ6С193  :Numeric=RГ3С193+RГ4С193+RГ5С193;     var RГ0С193  :Numeric=RГ7С193+RГ8С193+RГ9С193;
var RГ6С200  :Numeric=RГ3С200+RГ4С200+RГ5С200;     var RГ0С200  :Numeric=RГ7С200+RГ8С200+RГ9С200;
var RГ6С201  :Numeric=RГ3С201+RГ4С201+RГ5С201;     var RГ0С201  :Numeric=RГ7С201+RГ8С201+RГ9С201;
var RГ6С202  :Numeric=RГ3С202+RГ4С202+RГ5С202;     var RГ0С202  :Numeric=RГ7С202+RГ8С202+RГ9С202;
var RГ6С203  :Numeric=RГ3С203+RГ4С203+RГ5С203;     var RГ0С203  :Numeric=RГ7С203+RГ8С203+RГ9С203;
var RГ6С205  :Numeric=RГ3С205+RГ4С205+RГ5С205;     var RГ0С205  :Numeric=RГ7С205+RГ8С205+RГ9С205;
var RГ6С206  :Numeric=RГ3С206+RГ4С206+RГ5С206;     var RГ0С206  :Numeric=RГ7С206+RГ8С206+RГ9С206;
var RГ6С410  :Numeric=RГ3С410+RГ4С410+RГ5С410;     var RГ0С410  :Numeric=RГ7С410+RГ8С410+RГ9С410;

RГ3С540      :Numeric;
RГ3С550      :Numeric;
var RГ3С560  :Numeric=RГ3С540+RГ3С550;
RГ3С711      :Numeric;
RГ3С712      :Numeric;
RГ3С713      :Numeric;
RГ3С714      :Numeric;
var RГ3С710  :Numeric=RГ3С711+RГ3С712+RГ3С713+RГ3С714;
RГ3С721      :Numeric;
RГ3С722      :Numeric;
RГ3С723      :Numeric;
RГ3С724      :Numeric;
var RГ3С720  :Numeric=RГ3С721+RГ3С722+RГ3С723+RГ3С724;
RГ3С800      :Numeric;
var RГ3С690  :Numeric=RГ3С710+RГ3С720+RГ3С800;
var RГ3С900  :Numeric=RГ3С560+RГ3С690;

RГ4С540      :Numeric;
RГ4С550      :Numeric;
var RГ4С560  :Numeric=RГ4С540+RГ4С550;
RГ4С711      :Numeric;
RГ4С712      :Numeric;
RГ4С713      :Numeric;
RГ4С714      :Numeric;
var RГ4С710  :Numeric=RГ4С711+RГ4С712+RГ4С713+RГ4С714;
RГ4С721      :Numeric;
RГ4С722      :Numeric;
RГ4С723      :Numeric;
RГ4С724      :Numeric;
var RГ4С720  :Numeric=RГ4С721+RГ4С722+RГ4С723+RГ4С724;
RГ4С800      :Numeric;
var RГ4С690  :Numeric=RГ4С710+RГ4С720+RГ4С800;
var RГ4С900  :Numeric=RГ4С560+RГ4С690;

RГ5С540      :Numeric;
RГ5С550      :Numeric;
var RГ5С560  :Numeric=RГ5С540+RГ5С550;
RГ5С711      :Numeric;
RГ5С712      :Numeric;
RГ5С713      :Numeric;
RГ5С714      :Numeric;
var RГ5С710  :Numeric=RГ5С711+RГ5С712+RГ5С713+RГ5С714;
RГ5С721      :Numeric;
RГ5С722      :Numeric;
RГ5С723      :Numeric;
RГ5С724      :Numeric;
var RГ5С720  :Numeric=RГ5С721+RГ5С722+RГ5С723+RГ5С724;
RГ5С800      :Numeric;
var RГ5С690  :Numeric=RГ5С710+RГ5С720+RГ5С800;
var RГ5С900  :Numeric=RГ5С560+RГ5С690;

RГ7С540      :Numeric;
RГ7С550      :Numeric;
var RГ7С560  :Numeric=RГ7С540+RГ7С550;
RГ7С711      :Numeric;
RГ7С712      :Numeric;
RГ7С713      :Numeric;
RГ7С714      :Numeric;
var RГ7С710  :Numeric=RГ7С711+RГ7С712+RГ7С713+RГ7С714;
RГ7С721      :Numeric;
RГ7С722      :Numeric;
RГ7С723      :Numeric;
RГ7С724      :Numeric;
var RГ7С720  :Numeric=RГ7С721+RГ7С722+RГ7С723+RГ7С724;
RГ7С800      :Numeric;
var RГ7С690  :Numeric=RГ7С710+RГ7С720+RГ7С800;
var RГ7С900  :Numeric=RГ7С560+RГ7С690;

RГ8С540      :Numeric;
RГ8С550      :Numeric;
var RГ8С560  :Numeric=RГ8С540+RГ8С550;
RГ8С711      :Numeric;
RГ8С712      :Numeric;
RГ8С713      :Numeric;
RГ8С714      :Numeric;
var RГ8С710  :Numeric=RГ8С711+RГ8С712+RГ8С713+RГ8С714;
RГ8С721      :Numeric;
RГ8С722      :Numeric;
RГ8С723      :Numeric;
RГ8С724      :Numeric;
var RГ8С720  :Numeric=RГ8С721+RГ8С722+RГ8С723+RГ8С724;
RГ8С800      :Numeric;
var RГ8С690  :Numeric=RГ8С710+RГ8С720+RГ8С800;
var RГ8С900  :Numeric=RГ8С560+RГ8С690;

RГ9С540      :Numeric;
RГ9С550      :Numeric;
var RГ9С560  :Numeric=RГ9С540+RГ9С550;
RГ9С711      :Numeric;
RГ9С712      :Numeric;
RГ9С713      :Numeric;
RГ9С714      :Numeric;
var RГ9С710  :Numeric=RГ9С711+RГ9С712+RГ9С713+RГ9С714;
RГ9С721      :Numeric;
RГ9С722      :Numeric;
RГ9С723      :Numeric;
RГ9С724      :Numeric;
var RГ9С720  :Numeric=RГ9С721+RГ9С722+RГ9С723+RГ9С724;
RГ9С800      :Numeric;
var RГ9С690  :Numeric=RГ9С710+RГ9С720+RГ9С800;
var RГ9С900  :Numeric=RГ9С560+RГ9С690;

var RГ6С540  :Numeric=RГ3С540+RГ4С540+RГ5С540;      var RГ0С540  :Numeric=RГ7С540+RГ8С540+RГ9С540;
var RГ6С550  :Numeric=RГ3С550+RГ4С550+RГ5С550;      var RГ0С550  :Numeric=RГ7С550+RГ8С550+RГ9С550;
var RГ6С560  :Numeric=RГ3С560+RГ4С560+RГ5С560;      var RГ0С560  :Numeric=RГ7С560+RГ8С560+RГ9С560;
var RГ6С690  :Numeric=RГ3С690+RГ4С690+RГ5С690;      var RГ0С690  :Numeric=RГ7С690+RГ8С690+RГ9С690;
var RГ6С710  :Numeric=RГ3С710+RГ4С710+RГ5С710;      var RГ0С710  :Numeric=RГ7С710+RГ8С710+RГ9С710;
var RГ6С711  :Numeric=RГ3С711+RГ4С711+RГ5С711;      var RГ0С711  :Numeric=RГ7С711+RГ8С711+RГ9С711;
var RГ6С712  :Numeric=RГ3С712+RГ4С712+RГ5С712;      var RГ0С712  :Numeric=RГ7С712+RГ8С712+RГ9С712;
var RГ6С713  :Numeric=RГ3С713+RГ4С713+RГ5С713;      var RГ0С713  :Numeric=RГ7С713+RГ8С713+RГ9С713;
var RГ6С714  :Numeric=RГ3С714+RГ4С714+RГ5С714;      var RГ0С714  :Numeric=RГ7С714+RГ8С714+RГ9С714;
var RГ6С720  :Numeric=RГ3С720+RГ4С720+RГ5С720;      var RГ0С720  :Numeric=RГ7С720+RГ8С720+RГ9С720;
var RГ6С721  :Numeric=RГ3С721+RГ4С721+RГ5С721;      var RГ0С721  :Numeric=RГ7С721+RГ8С721+RГ9С721;
var RГ6С722  :Numeric=RГ3С722+RГ4С722+RГ5С722;      var RГ0С722  :Numeric=RГ7С722+RГ8С722+RГ9С722;
var RГ6С723  :Numeric=RГ3С723+RГ4С723+RГ5С723;      var RГ0С723  :Numeric=RГ7С723+RГ8С723+RГ9С723;
var RГ6С724  :Numeric=RГ3С724+RГ4С724+RГ5С724;      var RГ0С724  :Numeric=RГ7С724+RГ8С724+RГ9С724;
var RГ6С800  :Numeric=RГ3С800+RГ4С800+RГ5С800;      var RГ0С800  :Numeric=RГ7С800+RГ8С800+RГ9С800;
var RГ6С900  :Numeric=RГ3С900+RГ4С900+RГ5С900;      var RГ0С900  :Numeric=RГ7С900+RГ8С900+RГ9С900;

SГ1С19X[]     :String;
SГ2С19X[]     :String;
SГ4С19X[]     :Numeric;
SГ5С19X[]     :Numeric;
SГ7С19X[]     :Numeric;
SГ8С19X[]     :Numeric;

var SГ6С19X[] :Numeric=SГ4С19X[$]+SГ5С19X[$];
var SГ9С19X[] :Numeric=SГ7С19X[$]+SГ8С19X[$];
var SГ4С190   :Numeric=SumOfArray(SГ4С19X, Позиции);
var SГ5С190   :Numeric=SumOfArray(SГ5С19X, Позиции);
var SГ7С190   :Numeric=SumOfArray(SГ7С19X, Позиции);
var SГ8С190   :Numeric=SumOfArray(SГ8С19X, Позиции);
var SГ6С190   :Numeric=SГ4С190+SГ5С190;
var SГ9С190   :Numeric=SГ7С190+SГ8С190;

var УслВал     :String  = РАБ.ПАРАМ_ОТЧ.УслВал;
var Вал        :String  = РАБ.ПАРАМ_ОТЧ.Вал;
var Вал_       :String  = Вал;
var Показатель :String  = РАБ.ПАРАМ_ОТЧ.Показатель;
var ЕдИзм      :Integer = РАБ.ПАРАМ_ОТЧ.ЕдИзм;
var ЕдИзм_     :String  = if(ЕдИзм=1, Показатель, if(ЕдИзм=1000, "Тыс. "+Показатель, Str(ЕдИзм)+" "+Показатель));
var ОКЕИ       :String  = РАБ.ПАРАМ_ОТЧ.ОКЕИ;
var Точн       :Integer = РАБ.ПАРАМ_ОТЧ.Точн;
var ОбщУслКД   :String  = РАБ.ПАРАМ_ОТЧ.ОбщУслКД;
var ОбщУслКР   :String  = РАБ.ПАРАМ_ОТЧ.ОбщУслКР;
var ОбщУслКИФД :String  = РАБ.ПАРАМ_ОТЧ.ОбщУслКИФД;
var ОбщУслБС   :String  = РАБ.ПАРАМ_ОТЧ.ОбщУслБС;
var ОбщУслВБС  :String  = РАБ.ПАРАМ_ОТЧ.ОбщУслВБС;
var ОбщУслСВР  :String  = РАБ.ПАРАМ_ОТЧ.ОбщУслСВР;
ОтчGUID        :String;

var УпрДисБН :Logical = not Round(RГ3С410, Точн)=Round(RГ3С900, Точн);
var ТктДисБН :String  = "Дисбаланс по бюджетной деятельности ("+Str(RГ3С410-RГ3С900, Точн)+") на начало периода";
var УпрДисБК :Logical = not Round(RГ7С410, Точн)=Round(RГ7С900, Точн);
var ТктДисБК :String  = "Дисбаланс по бюджетной деятельности ("+Str(RГ7С410-RГ7С900, Точн)+") на конец периода";

var УпрДисДН :Logical = not Round(RГ4С410, Точн)=Round(RГ4С900, Точн);
var ТктДисДН :String  = "Дисбаланс по приносящей доход деятельности ("+Str(RГ4С410-RГ4С900, Точн)+") на начало периода";
var УпрДисДК :Logical = not Round(RГ8С410, Точн)=Round(RГ8С900, Точн);
var ТктДисДК :String  = "Дисбаланс по приносящей доход деятельности ("+Str(RГ8С410-RГ8С900, Точн)+") на конец периода";

var УпрДисВН :Logical = not Round(RГ5С410, Точн)=Round(RГ5С900, Точн);
var ТктДисВН :String  = "Дисбаланс по средствам во временном распоряжении ("+Str(RГ5С410-RГ5С900, Точн)+") на начало периода";
var УпрДисВК :Logical = not Round(RГ9С410, Точн)=Round(RГ9С900, Точн);
var ТктДисВК :String  = "Дисбаланс по средствам во временном распоряжении ("+Str(RГ9С410-RГ9С900, Точн)+") на конец периода";

var BAL_STR[] :String;
var BAL_ACC[] :String;
var BAL_SGN[] :Integer;
var BAL_ITG[] :Logical;

var Buf[] :String;
var Txt[] :String;

var S3_КОНТР[] :String;
var S3_БД_НГ[] :Numeric;
var S3_ПД_НГ[] :Numeric;
var S3_БД_КП[] :Numeric;
var S3_ПД_КП[] :Numeric;

2-- Общие процедуры и функции

Proc ПрисвоитьТочность;
var ri, ci, rc :Integer;
var MskFmt :String;
var Obj: Object;
 MskFmt=",##0."+if(Точн<1,"",RepStr("0",Точн))+";;-";
 if FindObject("СекцСтБаланс", Obj):
   rc=AsInteger(Obj.RowsCount);
   if rc>0:
     for ci=7 to 22 do
       for ri=1 to rc do
         if Match(AsString(Obj.Cell(ri, ci, CellContents, "")), "R*"): 
           Obj.Cell(ri, ci, CellFormat, MskFmt);
         fi;
       od;
     od;
   fi;
 fi;
end;

Proc Очистить;
 ClearVariable(Buf);
 ClearVariable(Txt);
 --
 ClearVariable(S3_КОНТР);
 ClearVariable(S3_БД_НГ);
 ClearVariable(S3_ПД_НГ);
 ClearVariable(S3_БД_КП);
 ClearVariable(S3_ПД_КП);
end;

Proc ОчиститьПараметрыСчетов;
 ClearVariable(BAL_STR);
 ClearVariable(BAL_ACC);
 ClearVariable(BAL_SGN);
 ClearVariable(BAL_ITG);
end;

Proc Инициализация_Условий_Баланса;
var Iter :Integer;
 ОчиститьПараметрыСчетов;
 Iter=0;
 -- настройка для счетов 162н
 Iter=Iter+1; BAL_STR[Iter]="180"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.202.1?.???)";
 Iter=Iter+1; BAL_STR[Iter]="181"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.11.???)";
 Iter=Iter+1; BAL_STR[Iter]="182"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.12.???)";
 Iter=Iter+1; BAL_STR[Iter]="183"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.13.???)";
 Iter=Iter+1; BAL_STR[Iter]="190"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.202.2?.???)";
 Iter=Iter+1; BAL_STR[Iter]="191"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.21.???)";
 Iter=Iter+1; BAL_STR[Iter]="192"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.22.???)";
 Iter=Iter+1; BAL_STR[Iter]="193"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.23.???)";
 Iter=Iter+1; BAL_STR[Iter]="200"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.202.3?.???)";
 Iter=Iter+1; BAL_STR[Iter]="201"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.31.???)";
 Iter=Iter+1; BAL_STR[Iter]="202"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.32.???)";
 Iter=Iter+1; BAL_STR[Iter]="203"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.33.???)";
 Iter=Iter+1; BAL_STR[Iter]="205"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.211.??.???)";
 Iter=Iter+1; BAL_STR[Iter]="206"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.212.??.???)";
 Iter=Iter+1; BAL_STR[Iter]="410"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.202.??.???|*.?.211.??.???|*.?.212.??.???)";
 Iter=Iter+1; BAL_STR[Iter]="540"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.308.??.???)";
 Iter=Iter+1; BAL_STR[Iter]="550"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.309.??.???)";
 Iter=Iter+1; BAL_STR[Iter]="560"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.308.??.???|*.?.309.??.???)";
 Iter=Iter+1; BAL_STR[Iter]="690"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.402.??.???)";
 Iter=Iter+1; BAL_STR[Iter]="710"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.402.10.???)";
 Iter=Iter+1; BAL_STR[Iter]="711"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.10.1??)";
 Iter=Iter+1; BAL_STR[Iter]="712"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.10.4??)";
 Iter=Iter+1; BAL_STR[Iter]="713"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.10.6??)";
 Iter=Iter+1; BAL_STR[Iter]="714"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.10.7??)";
 Iter=Iter+1; BAL_STR[Iter]="720"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.402.20.???)";
 Iter=Iter+1; BAL_STR[Iter]="721"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.20.2??)";
 Iter=Iter+1; BAL_STR[Iter]="722"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.20.3??)";
 Iter=Iter+1; BAL_STR[Iter]="723"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.20.5??)";
 Iter=Iter+1; BAL_STR[Iter]="724"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.20.8??)";
 Iter=Iter+1; BAL_STR[Iter]="800"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.30.???)";
 Iter=Iter+1; BAL_STR[Iter]="900"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.308.??.???|*.?.309.??.???|*.?.402.??.???)";

 -- настройка для счетов 148н
-- Iter=Iter+1; BAL_STR[Iter]="180"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.202.01.???)";
-- Iter=Iter+1; BAL_STR[Iter]="181"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.01.???)";
-- Iter=Iter+1; BAL_STR[Iter]="190"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.202.02.???)";
-- Iter=Iter+1; BAL_STR[Iter]="192"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.02.???)";
-- Iter=Iter+1; BAL_STR[Iter]="200"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.202.03.???)";
-- Iter=Iter+1; BAL_STR[Iter]="203"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.202.03.???)";
-- Iter=Iter+1; BAL_STR[Iter]="205"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.211.??.???)";
-- Iter=Iter+1; BAL_STR[Iter]="206"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.212.??.???)";
-- Iter=Iter+1; BAL_STR[Iter]="410"; BAL_SGN[Iter]= 1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.202.??.???|*.?.211.??.???|*.?.212.??.???)";
-- Iter=Iter+1; BAL_STR[Iter]="540"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.308.??.???)";
-- Iter=Iter+1; BAL_STR[Iter]="550"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.309.??.???)";
-- Iter=Iter+1; BAL_STR[Iter]="560"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.308.??.???|*.?.309.??.???)";
-- Iter=Iter+1; BAL_STR[Iter]="690"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.402.??.???)";
-- Iter=Iter+1; BAL_STR[Iter]="710"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.402.01.1??|*.?.402.01.4??|*.?.402.01.6??|*.?.402.01.7??)";
-- Iter=Iter+1; BAL_STR[Iter]="711"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.01.1??)";
-- Iter=Iter+1; BAL_STR[Iter]="712"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.01.4??)";
-- Iter=Iter+1; BAL_STR[Iter]="713"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.01.6??)";
-- Iter=Iter+1; BAL_STR[Iter]="714"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.01.7??)";
-- Iter=Iter+1; BAL_STR[Iter]="720"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.402.01.2??|*.?.402.01.3??|*.?.402.01.5??|*.?.402.01.8??)";
-- Iter=Iter+1; BAL_STR[Iter]="721"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.01.2??)";
-- Iter=Iter+1; BAL_STR[Iter]="722"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.01.3??)";
-- Iter=Iter+1; BAL_STR[Iter]="723"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.01.5??)";
-- Iter=Iter+1; BAL_STR[Iter]="724"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.01.8??)";
-- Iter=Iter+1; BAL_STR[Iter]="800"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=False; BAL_ACC[Iter]="(*.?.402.03.???)";
-- Iter=Iter+1; BAL_STR[Iter]="900"; BAL_SGN[Iter]=-1; BAL_ITG[Iter]=True;  BAL_ACC[Iter]="(*.?.308.??.???|*.?.309.??.???|*.?.402.??.???)";

end;

Proc ОчиститьЦифрыБаланса;
var ii, num :Integer;
 if not LengthOfArray(BAL_STR)>0: Инициализация_Условий_Баланса; fi;
 num=LengthOfArray(BAL_STR);
 if num>0:
   for ii=1 to num do
     Try PutVariableN("RГ3С"+BAL_STR[ii], 0.00); Except end;
     Try PutVariableN("RГ4С"+BAL_STR[ii], 0.00); Except end;
     Try PutVariableN("RГ5С"+BAL_STR[ii], 0.00); Except end;
     Try PutVariableN("RГ7С"+BAL_STR[ii], 0.00); Except end;
     Try PutVariableN("RГ8С"+BAL_STR[ii], 0.00); Except end;
     Try PutVariableN("RГ9С"+BAL_STR[ii], 0.00); Except end;
   od;
 fi;
end;

Proc ОчисткаСправки;
 ClearVariable(SГ1С19X);
 ClearVariable(SГ2С19X);
 ClearVariable(SГ4С19X);
 ClearVariable(SГ5С19X);
 ClearVariable(SГ7С19X);
 ClearVariable(SГ8С19X);
 ClearVariable(SГ6С19X);
 ClearVariable(SГ9С19X);
 ClearVariable(Позиции);
end;

Proc ОчисткаДанныхОтчета;
 ОчиститьЦифрыБаланса;
 ОчиститьПараметрыСчетов;
 ОчисткаСправки;
end;

Func ВыборДаты(srcDate:Date) :Date;
var dd :Date;
 if srcDate>1.1.100: dd=Calendar(srcDate); else dd=Calendar(ToDay); fi;
 if not(dd<=1.1.100): ^dd; else ^srcDate; fi;
end;

Func GetDate :Date;  -- считываем в заданном поле дату
var FieldName :String;
 FieldName=AsString(Template.Field);
 if FieldName="ДАТАОТЧ": ^ДАТАОТЧ;
 |  FieldName="ДАТАЗГЛ": ^ДАТАОТЧ;
 |  FieldName="ДАТАИСП": ^ДАТАИСП;
 fi;
end;

Proc SetDate(Value:Date); -- устанавливаем в заданном поле дату; Value - значение даты, которое необходимо присвоить
var FieldName :String;
 FieldName=AsString(Template.Field);
 if FieldName="ДАТАОТЧ": ДАТАОТЧ=Value;
 |  FieldName="ДАТАЗГЛ": ДАТАОТЧ=Value;
 |  FieldName="ДАТАИСП": ДАТАИСП=Value;
 fi;
end;

Func Объединить(Value1:String; Value2:String; Separator:String) :String;
var Ret :String;
 if Value1<>"" and Value2<>"": Ret=Value1+Separator+Value2;
 |  Value1= "" and Value2<>"": Ret=Value2;
 |  Value1<>"" and Value2="" : Ret=Value1;
 |  True: Ret="";
 fi;
 ^Ret;
end;

Proc ВзятьРеквизиты(saveREC:Record; ПолноеНАИМ:Logical; Auto:Logical);
var RO, num :Integer;
var REC :Record;
 if Auto:
   if Trim(УЧР_НАИМ)="":
     RO=OpenWorkArea("КОНТРАГЕНТ", "", "НАШЕ");
     Try
       num=Records(RO);
       if num<1: REC=NIL;
       |  num=1: REC=GetRecordKey(RO, 1);
       |  num>1: REC=GetRecordKey(RO, 1);
                 SetFilter(RO, "НАШЕ and РПО_УМОЛЧАНИЕ");
                 if Records(RO)>0: REC=GetRecordKey(RO, 1); fi;
       fi;
       if REC=NIL and saveREC<>NIL: REC=saveREC; fi;
       if REC<>NIL:
         SetFilter(RO, "UKey="+RecordToString(REC));
         if Records(RO)=1:
            УЧР_НПОЛ = GetFieldS(RO, 1, "ПОЛНИМЯ");
            УЧР_НКОР = GetFieldS(RO, 1, "КОРИМЯ");
            if ПолноеНАИМ: УЧР_НАИМ=УЧР_НПОЛ; else УЧР_НАИМ=УЧР_НКОР; fi;
            УЧР_ОКПО = GetFieldS(RO, 1, "ОКПО");
            УЧР_ИНН  = GetFieldS(RO, 1, "ИНН");
            ОКАТО    = GetFieldS(RO, 1, "ОКАТО");
            ГЛВ_БК   = GetFieldS(RO, 1, "РПО_ППП");
            РукФИО   = GetFieldS(RO, 1, "ФИОРУК");
            БухФИО   = GetFieldS(RO, 1, "ФИОБУХ");
            УЧР_SREC = REC;
         fi;
       fi;
     Finally
       CloseWorkArea(RO);
     end;
   fi;
 else
   REC=OpenCardFile("КОНТРАГЕНТ", "НАШЕ", saveREC, crdRecordOnly);
   if REC=NIL: Exit; fi;
   RO=OpenWorkArea("КОНТРАГЕНТ", "", "UKey="+RecordToString(REC));
   Try
     if Records(RO)=1:
        УЧР_НПОЛ = GetFieldS(RO, 1, "ПОЛНИМЯ");
        УЧР_НКОР = GetFieldS(RO, 1, "КОРИМЯ");
        if ПолноеНАИМ: УЧР_НАИМ=УЧР_НПОЛ; else УЧР_НАИМ=УЧР_НКОР; fi;
        УЧР_ОКПО = GetFieldS(RO, 1, "ОКПО");
        УЧР_ИНН  = GetFieldS(RO, 1, "ИНН");
        ОКАТО    = GetFieldS(RO, 1, "ОКАТО");
        ГЛВ_БК   = GetFieldS(RO, 1, "РПО_ППП");
        РукФИО   = GetFieldS(RO, 1, "ФИОРУК");
        БухФИО   = GetFieldS(RO, 1, "ФИОБУХ");
        УЧР_SREC = REC;
     fi;
   Finally
     CloseWorkArea(RO);
   end;
 fi;
end;

Proc НачальнаяСтрочка;
var nn :Integer;
 if Позиции<1: Try nn=InsertFrame(Позиции, 1); Except end; fi;
end;

Proc ДобавитьСтрочку(Iter:Integer);
var nn :Integer;
 Try nn=InsertFrame(Позиции, Iter+1); Except end;
 Template.Frame=Iter;
end;

Proc Удалить_Строчку(Iter:Integer);
 if EnqOkCancel("Вы уверены что хотите удалить данную строчку?", mtConfirmation)=cmOk:
   Try DeleteFrame(Позиции, Iter); if Позиции>0: Iter=if(Iter>1, Iter-1, 1); Template.Frame=Iter; else НачальнаяСтрочка; fi; Except end;
 fi;
end;

Proc УбратьЛишниеСтроки;
var jj :Integer;
 jj=1;
 while jj<=Позиции do
   if Trim(SГ2С19X[jj])="" or not ((Abs(SГ6С19X[jj])+Abs(SГ9С19X[jj]))>0.00):
     Try DeleteFrame(Позиции, jj); Except end;
   else
     jj=jj+1;
   fi;
 od;
 Template.Field="Фокус";
end;

Proc ValidateОтчетSection;
 НачальнаяСтрочка;
 Hint("");
end;

Proc ОчисткаОтчета;
 Очистить;
 ОчисткаДанныхОтчета;
 ValidateОтчетSection;
end;

Proc Инициализация;
 ОтчАНАOld=отчАНАCur;
 ValidateОтчетSection;
 НачальнаяСтрочка;
 ПрисвоитьТочность;
 flgНастройки = False;
end;

Func Template_OnClear :Logical;
 if Trim(flgClear)="":
   Message("Ошибка!^MВероятно была произведена 'очистка полей'.^MБудет произведена инициализация значений по умолчанию.^MПосле этого бланк будет готов к работе!", mtError);
   ОчисткаОтчета;
   Инициализация;
   flgClear=GetGuid;
   Message("Бланк проинициализирован!", mtInformation);
   Template.Field="Фокус";
   ^True;
 fi;
 ^False;
end;

Func ПроверкаНастроечныхСчетов :Logical;
 if ОбщУслБС="":  Message("Выберите условие отбора^Mдля бюджетной деятельности",        mtError); Template.Field="ОбщУслБС";  ^False; fi;
 if ОбщУслВБС="": Message("Выберите условие отбора^Mдля приносящей доход деятельности", mtError); Template.Field="ОбщУслВБС"; ^False; fi;
 if ОбщУслСВР="": Message("Выберите условие отбора^Mсредств во временном распоряжении", mtError); Template.Field="ОбщУслСВР"; ^False; fi;
 ^True;
end;

Proc ПроверкаДисбаланс;
var MsgS :String;
var MsgL :LongString;
 MsgS="Дисбаланс !";
 if not Round(RГ3С410, Точн) = Round(RГ3С900, Точн): MsgS=Объединить(MsgS, "По бюджетной деятельности ("              +Str(RГ3С410-RГ3С900, Точн)+ ") на начало периода", Chr(13)); fi;
 if not Round(RГ7С410, Точн) = Round(RГ7С900, Точн): MsgS=Объединить(MsgS, "По бюджетной деятельности ("              +Str(RГ7С410-RГ7С900, Точн)+ ") на конец периода",  Chr(13)); fi;
 if not Round(RГ4С410, Точн) = Round(RГ4С900, Точн): MsgS=Объединить(MsgS, "По приносящей доход деятельности ("       +Str(RГ4С410-RГ4С900, Точн)+ ") на начало периода", Chr(13)); fi;
 if not Round(RГ8С410, Точн) = Round(RГ8С900, Точн): MsgS=Объединить(MsgS, "По приносящей доход деятельности ("       +Str(RГ8С410-RГ8С900, Точн)+ ") на конец периода",  Chr(13)); fi;
 if not Round(RГ5С410, Точн) = Round(RГ5С900, Точн): MsgS=Объединить(MsgS, "По средствам во временном распоряжении (" +Str(RГ5С410-RГ5С900, Точн)+ ") на начало периода", Chr(13)); fi;
 if not Round(RГ9С410, Точн) = Round(RГ9С900, Точн): MsgS=Объединить(MsgS, "По средствам во временном распоряжении (" +Str(RГ9С410-RГ9С900, Точн)+ ") на конец периода",  Chr(13)); fi;
 if not MsgS="Дисбаланс !":
    --MsgL=MsgS+Chr(13)+Chr(13)+"Возможная причина дисбаланса отсутствие заключительных проводок по счетам 210.02, 304.05, 401.01, 401.02";
    Message(MsgL, mtWarning);
 fi;
end;

Func MySaldo(Iter:Integer; Графа:Integer; ДОТЧ:Date; vОбщСчт:String; vОбщАна:String): Numeric;
var УслСч, УслАн :String;
var SUM :Numeric;
 if Графа=3 or Графа=7: УслСч=BAL_ACC[Iter]+"&"+ОбщУслБС;
 |  Графа=4 or Графа=8: УслСч=BAL_ACC[Iter]+"&"+ОбщУслВБС;
 |  Графа=5 or Графа=9: УслСч=BAL_ACC[Iter]+"&"+ОбщУслСВР;
 |  Графа=6 or Графа=0: УслСч=BAL_ACC[Iter];
 | True: Trace("Ошибка! Недопустимый номер графы "+Str(Графа)+" строка="+BAL_STR[Iter]); ^0.00;
 fi;
 УслСч=Объединить(УслСч, vОбщСчт, "&");
 УслСч=Объединить(УслСч, УслВал,  "'");
 УслАн=vОбщАна;
 SUM=Round(Saldo(УслСч+"{"+УслАн+"}", ДОТЧ, Показатель)/ЕдИзм, Точн)*BAL_SGN[Iter];
 ^SUM;
end;

Proc РасчетБаланса;
var ОбщАна, ОбщСчт, ОбщУслКД_, ОбщУслКР_, ОбщУслИФ_ :String;
var ДНГ, ДКП :Date;
var Режим :Logical;
var ii, num :Integer;
 ClearTrace(True);
 Refresh(False);
 Режим=AutoRefresh;
 ToggleAutoRefresh(False);
 ShowProgress(0, "Подготовка данных...");
 Try
   Инициализация_Условий_Баланса;
   num=LengthOfArray(BAL_STR);
   if num>0:
     ОбщСчт="";
     РАБ.БЮДЖЕТ2005.РежимМаски="?";
     if not ОбщУслКД="":   ОбщУслКД_ = РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКД,   "КД",   "КБК", False)+"."+РАБ.БЮДЖЕТ2005.МаскаСч6+"."+РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКД,   "КД",   "КОСГУ", False); else ОбщУслКД_ =""; fi;
     if not ОбщУслКР="":   ОбщУслКР_ = РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКР,   "ФКР",  "КБК", False)+"."+РАБ.БЮДЖЕТ2005.МаскаСч6+"."+РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКР,   "ФКР",  "КОСГУ", False); else ОбщУслКР_ =""; fi;
     if not ОбщУслКИФД="": ОбщУслИФ_ = РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКИФД, "КИФД", "КБК", False)+"."+РАБ.БЮДЖЕТ2005.МаскаСч6+"."+РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКИФД, "КИФД", "КОСГУ", False); else ОбщУслИФ_ =""; fi;
     ОбщСчт=Объединить(ОбщСчт, ОбщУслКД_, "|");
     ОбщСчт=Объединить(ОбщСчт, ОбщУслКР_, "|");
     ОбщСчт=Объединить(ОбщСчт, ОбщУслИФ_, "|");
     if not ОбщСчт="": ОбщСчт="("+ОбщСчт+")"; fi;
     --
     ОбщАна="";
     if ОтчАНАCur<>"" : ОбщАна="("+ОтчАНАCur+")"; fi;
     if flgИскл_ЗГ    : if ОбщАна<>"": ОбщАна=ОбщАна+"&(~ЗГ)"; else ОбщАна="(~ЗГ)"; fi; fi;
     --
     ДКП=ДАТАОТЧ;
     ДНГ=Dat(1, 1, if(Day(ДКП)=1 and Mon(ДКП)=1, Year(ДКП)-1, Year(ДКП)));
     --
     ShowProgress(num, "Расчет данных...");
     for ii=1 to num do
       ProgressPos(ii);
       if not BAL_ITG[ii]:
         Try PutVariableN("RГ3С"+BAL_STR[ii], MySaldo(ii, 3, ДНГ, ОбщСчт, ОбщАна)); Except end;
         Try PutVariableN("RГ4С"+BAL_STR[ii], MySaldo(ii, 4, ДНГ, ОбщСчт, ОбщАна)); Except end;
         Try PutVariableN("RГ5С"+BAL_STR[ii], MySaldo(ii, 5, ДНГ, ОбщСчт, ОбщАна)); Except end;
         Try PutVariableN("RГ7С"+BAL_STR[ii], MySaldo(ii, 7, ДКП, ОбщСчт, ОбщАна)); Except end;
         Try PutVariableN("RГ8С"+BAL_STR[ii], MySaldo(ii, 8, ДКП, ОбщСчт, ОбщАна)); Except end;
         Try PutVariableN("RГ9С"+BAL_STR[ii], MySaldo(ii, 9, ДКП, ОбщСчт, ОбщАна)); Except end;
       fi;
     od;
   fi;
 Finally
   CloseProgress;
   ToggleAutoRefresh(Режим);
 end;
 ОтчGUID=РАБ.ПАРАМ_ОТЧ.ОтчGUID;
 Message("Расчет баланса завершен");
 ПроверкаДисбаланс;
end;

Proc Расчет(Перерасчет:Logical);
var Msg :String;
 if Перерасчет: Msg="Параметры отчета изменились."+Chr(13); else Msg=""; fi;
 if EnqOkCancel(Msg+"Данные набранные 'вручную' будут утеряны.^MПродолжить?", mtWarning)=cmOk:
   if ДАТАОТЧ=1.1.100: Message('Не задана дата отчета!',    mtWarning); Template.Field="ДАТАОТЧ"; Exit; fi;
   if ДАТАОТЧ<dНачало: Message('Некорректная дата отчета!', mtWarning); Template.Field="ДАТАОТЧ"; Exit; fi;
   if not ПроверкаНастроечныхСчетов: Exit; fi;
   if УЧР_НАИМ="": ВзятьРеквизиты(УЧР_SREC, flgДлинаФО, True); fi;
   Очистить;
   ОчисткаДанныхОтчета;
   РасчетБаланса;
   НачальнаяСтрочка;
 fi;
end;

Func ОтменитьИзмененияУсловийОтчета :Logical;
var SUM :Numeric;
var FF :Logical;
var qq :Integer;
 FF=False;
 SUM=Abs(RГ6С410)+Abs(RГ6С900)+Abs(RГ0С410)+Abs(RГ0С900);
 if SUM>0.00:
   qq=EnqOkCancel("Условия отбора данных для отчета изменились!^MОчистить отчет?", mtConfirmation);
   if qq=cmOk: ОчисткаОтчета;
   |  qq=cmCancel: FF=True;
   fi;
--   qq=Enquiry("Выберите действие...", "Условия отбора данных для отчета изменились!", "Отмена;Очистить отчет;Перерасчитать", mtConfirmation);
--   if qq=1: FF=True;
--   |  qq=2: ОчисткаОтчета;
--   else ОчисткаОтчета; Расчет(True);
--   fi;
 fi;
 ^FF;
end;

Func РасшифрСтр_onLookup(Sect:String; Row:Integer; Col:Integer; Cur:String): String;
var codStrRep, УслСчтДет, ОбщСчт, ОбщАна, ОбщУслКД_, ОбщУслКР_, ОбщУслИФ_ :String;
var Iter :Integer;
 Template.HideEditor(False);
 if not LengthOfArray(BAL_STR)>0: Инициализация_Условий_Баланса; fi;
 Try codStrRep=AsString(СекцСтБаланс.Cell(Row, Col-1, CellText,'')); Except codStrRep=""; end;
 Iter=SearchInArray(BAL_STR, codStrRep, True, 1);
 if Trim(codStrRep)="" or not Iter>0: ^Cur; fi;
 --
 ОбщСчт="";
 РАБ.БЮДЖЕТ2005.РежимМаски="?";
 if not ОбщУслКД="":   ОбщУслКД_ = РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКД,   "КД",   "КБК", False)+"."+РАБ.БЮДЖЕТ2005.МаскаСч6+"."+РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКД,   "КД",   "КОСГУ", False); else ОбщУслКД_ =""; fi;
 if not ОбщУслКР="":   ОбщУслКР_ = РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКР,   "ФКР",  "КБК", False)+"."+РАБ.БЮДЖЕТ2005.МаскаСч6+"."+РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКР,   "ФКР",  "КОСГУ", False); else ОбщУслКР_ =""; fi;
 if not ОбщУслКИФД="": ОбщУслИФ_ = РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКИФД, "КИФД", "КБК", False)+"."+РАБ.БЮДЖЕТ2005.МаскаСч6+"."+РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКИФД, "КИФД", "КОСГУ", False); else ОбщУслИФ_ =""; fi;
 ОбщСчт=Объединить(ОбщСчт, ОбщУслКД_, "|");
 ОбщСчт=Объединить(ОбщСчт, ОбщУслКР_, "|");
 ОбщСчт=Объединить(ОбщСчт, ОбщУслИФ_, "|");
 if not ОбщСчт="": ОбщСчт="("+ОбщСчт+")"; fi;
 --
 ОбщАна="";
 if ОтчАНАCur<>"" : ОбщАна="("+ОтчАНАCur+")"; fi;
 if flgИскл_ЗГ    : if ОбщАна<>"": ОбщАна=ОбщАна+"&(~ЗГ)"; else ОбщАна="(~ЗГ)"; fi; fi;
 --
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.ВерсияБал="191Н_0503140";
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.СтрокаБал=codStrRep;
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.УслАн=ОбщАна;
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.СтрМинус=(BAL_SGN[Iter]=-1);
 --
 УслСчтДет=BAL_ACC[Iter]+"&"+ОбщУслБС;
 УслСчтДет=Объединить(УслСчтДет, ОбщСчт, "&");
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.УслСчБС=УслСчтДет;
 --
 УслСчтДет=BAL_ACC[Iter]+"&"+ОбщУслВБС;
 УслСчтДет=Объединить(УслСчтДет, ОбщСчт, "&");
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.УслСчВБС=УслСчтДет;
 --
 УслСчтДет=BAL_ACC[Iter]+"&"+ОбщУслСВР;
 УслСчтДет=Объединить(УслСчтДет, ОбщСчт, "&");
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.УслСчСВР=УслСчтДет;
 --
-- OpenBlank('РАБ.ВСПОМ.Ф0503130_ДЕТАЛ', False);
 OpenBlank('РАБ.ВСПОМ.Ф0503130_ДЕТАЛ', True);
 ^Cur;
end;

Func Расшифр_onLookup(Sect:String; Row:Integer; Col:Integer; Cur:String): String;
var nameField, ОбщУслКД_, ОбщУслКР_, ОбщУслИФ_, codStrRep, codGrpRep, ОбщСчт, ОбщАна, RepPath :String;
var ДНО, ДКО :Date;
var Iter :Integer;
 Template.HideEditor(False);
 nameField=AsString(Template.Field);
 codStrRep=SubStr(nameField, 5, 3);
 codGrpRep=SubStr(nameField, 3, 1);
 if not LengthOfArray(BAL_STR)>0: Инициализация_Условий_Баланса; fi;
 Iter=SearchInArray(BAL_STR, codStrRep, True, 1);
 if Iter=-1: Message("Детализация для строки "+codStrRep+" не найдена", mtError); ^Cur; fi;
 --
 ОбщСчт="";
 РАБ.БЮДЖЕТ2005.РежимМаски="?";
 if not ОбщУслКД="":   ОбщУслКД_ = РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКД,   "КД",   "КБК", False)+"."+РАБ.БЮДЖЕТ2005.МаскаСч6+"."+РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКД,   "КД",   "КОСГУ", False); else ОбщУслКД_ =""; fi;
 if not ОбщУслКР="":   ОбщУслКР_ = РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКР,   "ФКР",  "КБК", False)+"."+РАБ.БЮДЖЕТ2005.МаскаСч6+"."+РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКР,   "ФКР",  "КОСГУ", False); else ОбщУслКР_ =""; fi;
 if not ОбщУслКИФД="": ОбщУслИФ_ = РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКИФД, "КИФД", "КБК", False)+"."+РАБ.БЮДЖЕТ2005.МаскаСч6+"."+РАБ.БЮДЖЕТ2005.ВзятьКодКБК(ОбщУслКИФД, "КИФД", "КОСГУ", False); else ОбщУслИФ_ =""; fi;
 ОбщСчт=Объединить(ОбщСчт, ОбщУслКД_, "|");
 ОбщСчт=Объединить(ОбщСчт, ОбщУслКР_, "|");
 ОбщСчт=Объединить(ОбщСчт, ОбщУслИФ_, "|");
 if not ОбщСчт="": ОбщСчт="("+ОбщСчт+")"; fi;
 ОбщСчт=Объединить(BAL_ACC[Iter], ОбщСчт, "&");
 --
 ОбщАна="";
 if ОтчАНАCur<>"" : ОбщАна="("+ОтчАНАCur+")"; fi;
 if flgИскл_ЗГ    : if ОбщАна<>"": ОбщАна=ОбщАна+"&(~ЗГ)"; else ОбщАна="(~ЗГ)"; fi; fi;
 --
 if codGrpRep="3" or codGrpRep="7": ОбщСчт=Объединить(ОбщСчт, ОбщУслБС,  "&");
 |  codGrpRep="4" or codGrpRep="8": ОбщСчт=Объединить(ОбщСчт, ОбщУслВБС, "&");
 |  codGrpRep="5" or codGrpRep="9": ОбщСчт=Объединить(ОбщСчт, ОбщУслСВР, "&");
 else                               ОбщСчт=Объединить(ОбщСчт, "(*.?.???.??.???)", "&");
 fi;
 if codGrpRep="3" or codGrpRep="4" or codGrpRep="5" or codGrpRep="6": 
   ДНО=1.1.100;
   ДКО=Dat(1, 1, if(Day(ДАТАОТЧ)=1 and Mon(ДАТАОТЧ)=1, Year(ДАТАОТЧ)-1, Year(ДАТАОТЧ)));
 else
   ДНО=Dat(1, 1, if(Day(ДАТАОТЧ)=1 and Mon(ДАТАОТЧ)=1, Year(ДАТАОТЧ)-1, Year(ДАТАОТЧ)));
   ДКО=ДАТАОТЧ;
 fi;
 RepPath="";
 RepPath='"'+PlanVar("Общие")+'\Отчеты\Ф0503130.lst"."Расшифр';
 if УслВал="EUR": RepPath=RepPath+' ('+УслВал+')"';
 |  УслВал="USD": RepPath=RepPath+' ('+УслВал+')"';
 |  УслВал="РУБ": RepPath=RepPath+' ('+УслВал+')"';
 else             RepPath=RepPath+'"';
 fi;
 --
 if RepPath<>"":
   Try
     Report(RepPath, ДНО, ДКО, ОбщСчт, ОбщАна);
   Except
     Message("Ошибка создания детализированного отчета!", mtError);
     ^Cur;
   end;
 fi;
 ^Cur;
end;

Proc ФлагиНастроекОтчета(refField:String);
var SaveValue, oldFLG, newFLG :Logical;
var FieldFLG :String;
 SaveValue=False;
 if Template_OnClear: Exit; fi;
 FieldFLG=SubStr(refField, 1, Length(refField)-1);
 --
 oldFLG = GetVariableL(FieldFLG);
 newFLG = not oldFLG;
 --
 if not ОтменитьИзмененияУсловийОтчета: SaveValue=True; fi;
 if SaveValue:
   PutVariableL(FieldFLG, newFLG);
   ValidateОтчетSection;
 fi;
end;

Func ТолькоЦифры(sourceValue:String) :Logical;
var num, ii, intChars :Integer;
var OK :Logical;
 OK=True;
 num=Length(sourceValue);
 if num>0:
   for ii=1 to num do
     intChars=Ascii(SubStr(sourceValue, ii, 1));
     if intChars>=48 and intChars<=57: OK=True; else OK=False; fi;
     if not OK: Break; fi;
   od;
 fi;
 ^OK;
end;

Func НастройкаСправки :Logical;
 if not Match(rep3БД, "ВД.*"): ^False; fi;
 if not Match(rep3ПД, "ВД.*"): ^False; fi;
 if Match(rep3БД, rep3ПД): ^False; fi;
 if Match(rep3ПД, rep3БД): ^False; fi;
 ^True;
end;

Proc РассчитатьСправку3Раздела(rfDataRep:Date);
var Путь :String;
var ii, jj, ln1, ln2, num :Integer;
var rfDataBeg :Date;
var Отч1 :Report;
var SUM :Numeric;
 if EnqOkCancel("Данные набранные 'вручную' будут утеряны.^MПродолжить?", mtWarning)=cmOk:
   if rfDataRep=1.1.100: Message('Не задана дата отчета!',    mtWarning); Template.Field="ДАТАОТЧ"; Exit; fi;
   if rfDataRep<dНачало: Message('Некорректная дата отчета!', mtWarning); Template.Field="ДАТАОТЧ"; Exit; fi;
   if not ПроверкаНастроечныхСчетов: Exit; fi;
   if УЧР_НАИМ="": ВзятьРеквизиты(УЧР_SREC, flgДлинаФО, True); fi;
   Очистить;
   ОчисткаСправки;
   --
   Путь=PlanVar("Общие")+"\Отчеты\Отч_набор_001.lst";
   if not ExistFile(Путь): Message('Не найден файл вспомогательных отчетов!', mtError); Template.Object="btnРасчет"; Exit; fi;
   rfDataBeg=Dat(1, 1, if(Day(rfDataRep)=1 and Mon(rfDataRep)=1, Year(rfDataRep)-1, Year(rfDataRep)));
   --
   ii=0;
   ShowProgress(0, "Выборка данных 1...");
   Отч1=RepOpen(Путь+"|По_признакам_БАЛиЗАБ", ACC19+"!", "", rfDataBeg, rfDataRep, "", "К");
   Try
     RepReset(Отч1);
     ShowProgress(RepRowsCount(Отч1), "Выборка данных 1...");
     while RepNext(Отч1) do ii=ii+1; ProgressPos(ii); AddInArray(Buf, True, False, RepIdent(Отч1)); end;
   Finally
     Отч1=RepClose(Отч1);
     CloseProgress;
   end;
   ln1=LengthOfArray(Buf);
   if not ln1>0: Message("Нет данных по контрагентам^Mна забалансовом счете 19", mtError); Exit; fi;
   ii=0;
   if not НастройкаСправки: Message("Некорректная настройка^Mпо видам деятельности^Mна забалансовом счете 19", mtError); Template.Object="cb_Настройки"; Exit; fi;
   ShowProgress(0, "Выборка данных 2...");
   Отч1=RepOpen(Путь+"|По_признакам_БАЛиЗАБ", ACC19+"!", "", rfDataBeg, rfDataRep, "", "ВД");
   Try
     RepReset(Отч1);
     ShowProgress(RepRowsCount(Отч1), "Выборка данных 2...");
     while RepNext(Отч1) do ii=ii+1; ProgressPos(ii); AddInArray(Txt, True, False, RepIdent(Отч1)); end;
   Finally
     Отч1=RepClose(Отч1);
     CloseProgress;
   end;
   ln2=LengthOfArray(Txt);
   if not ln2>0: Message("Нет данных по видам деятельности^Mна забалансовом счете 19", mtError); Exit; fi;
   --
   ShowProgress(ln1, "Подсчет остатков...");
   Try
     for ii=1 to ln1 do
       ProgressPos(ii);
       for jj=1 to ln2 do
         num=InsertInArraySort(S3_КОНТР, Buf[ii]);
         if Match(Txt[jj], rep3БД):
           SUM=Round(Saldo(ACC19+"{"+Buf[ii]+"&"+Txt[jj]+"}", rfDataBeg, Показатель)/ЕдИзм, Точн);
           S3_БД_НГ[num]=S3_БД_НГ[num]+SUM;
           SUM=Round(Saldo(ACC19+"{"+Buf[ii]+"&"+Txt[jj]+"}", rfDataRep, Показатель)/ЕдИзм, Точн);
           S3_БД_КП[num]=S3_БД_КП[num]+SUM;
         |  Match(Txt[jj], rep3ПД):
           SUM=Round(Saldo(ACC19+"{"+Buf[ii]+"&"+Txt[jj]+"}", rfDataBeg, Показатель)/ЕдИзм, Точн);
           S3_ПД_НГ[num]=S3_ПД_НГ[num]+SUM;
           SUM=Round(Saldo(ACC19+"{"+Buf[ii]+"&"+Txt[jj]+"}", rfDataRep, Показатель)/ЕдИзм, Точн);
           S3_ПД_КП[num]=S3_ПД_КП[num]+SUM;
         fi;
       od;
     od;
     num=LengthOfArray(S3_КОНТР);
     if num>0:
       ShowProgress(num, "Заполнение таблицы...");
       jj=0;
       for ii=1 to num do
         ProgressPos(ii);
         SUM=Abs(S3_БД_НГ[ii])+Abs(S3_БД_КП[ii])+Abs(S3_ПД_НГ[ii])+Abs(S3_ПД_КП[ii]);
         if SUM>0.00:
           jj=jj+1;
           SГ2С19X[jj]=Trim(Name_A(S3_КОНТР[ii]))+" - ["+S3_КОНТР[ii]+"]";
           SГ4С19X[jj]=S3_БД_НГ[ii];
           SГ5С19X[jj]=S3_ПД_НГ[ii];
           SГ7С19X[jj]=S3_БД_КП[ii];
           SГ8С19X[jj]=S3_ПД_КП[ii];
         fi;
       od;
       if jj>0: СекцСпрБалТБ.FrameCount=jj; fi;
     fi;
   Finally
     CloseProgress;
   end;
   НачальнаяСтрочка;
 fi;
end;

Func ВыборВД(PrevValue:String) :String;
var ResValue :String;
 ResValue=AnaElection("ВД.*", False, True, PrevValue);
 if ResValue="": ^PrevValue; fi;
 ^ResValue;
end;

2-- События клеток
Func ПарамОтч_onEnter(FieldName:String; Iter:Integer): Logical;
var Flag :Logical;
 Flag=РАБ.ПАРАМ_ОТЧ.Взять(FieldName+"_", 0);
 УЧР_ОКПО=УЧР_ОКПО; --Вызываем обновление перменных бланка!!!!
 if Flag or not ОтчGUID=РАБ.ПАРАМ_ОТЧ.ОтчGUID: 
   if Trim(РАБ.ПАРАМ_ОТЧ.ОбщУслАн)<>"": ОтчАНАCur=РАБ.ПАРАМ_ОТЧ.ОбщУслАн; fi;
   ДАТАОТЧ=РАБ.ПАРАМ_ОТЧ.ДК;
   ПрисвоитьТочность; 
   Расчет(True);
 fi;
 ^False;
end;

Func Field_onEnter(Field:String; Iter:Integer): Logical; -- на входе в клетку
 if Template_OnClear: ^False; fi;
 Flag_onEnter=False;
 if Field="ДАТАОТЧ"        : oldDate=ДАТАОТЧ;
 |  Field="ОтчАНАCur"      : ОтчАНАOld=ОтчАНАCur; Flag_onEnter=True; ^True;
 |  Field="flgИскл_ЗГ_"    : ФлагиНастроекОтчета(Field);  ^False;
 |  Field="flgОтмт_КО"     : flgОтмт_КО = not flgОтмт_КО; ^False;
 |  Field="flgДлинаФО"     : flgДлинаФО = not flgДлинаФО; if flgДлинаФО: УЧР_НАИМ=УЧР_НПОЛ; else УЧР_НАИМ=УЧР_НКОР; fi; ^False;
 |  Field="ARW"            : ДобавитьСтрочку(Iter); ^False;
 |  Field="DRW"            : Удалить_Строчку(Iter); ^False;
 |  Field="C3R"            : РассчитатьСправку3Раздела(ДАТАОТЧ); ^False;
 |  Field="rep3БД"         : rep3БД=ВыборВД(rep3БД); ^False;
 |  Field="rep3ПД"         : rep3ПД=ВыборВД(rep3ПД); ^False;
 fi;
 ^True;
end;

Proc Field_onExit(Field:String; Iter:Integer); -- на выходе из клетки
 if Template_OnClear: Exit; fi;
 if Field="ДАТАОТЧ"   : if ДАТАОТЧ<>oldDate: if ОтменитьИзмененияУсловийОтчета: ДАТАОТЧ=oldDate; fi; fi;
 |  Field="ОтчАНАCur" : if     Flag_onEnter and ОтчАНАCur<>ОтчАНАOld: if ОтменитьИзмененияУсловийОтчета: ОтчАНАCur=ОтчАНАOld; fi; fi;
                        if not Flag_onEnter and ОтчАНАCur="":         if ОтменитьИзмененияУсловийОтчета: ОтчАНАCur=ОтчАНАOld; fi; fi;
 |  Field="ИСПФИО"    : if ИСПФИО="": ИСПДОЛ=""; ИСПREC=NIL; fi;
 fi;
 ValidateОтчетSection;
 Flag_onEnter=False;
end;

Func Оператор :String;
var nn :Integer;
 ClearVariable(Buf);
 Buf[1]="И";
 Buf[2]="ИЛИ";
 Buf[3]="И ИСКЛЮЧИТЬ";
 nn=Alternate("Выбор оператора",Buf, 20, 1, 12);
 if nn=1: ^"&";
 |  nn=2: ^"|";
 |  nn=3: ^"&~";
 fi;
 ^"";
end;

Func ИщемПризнакЗГ(srcValue:String) :Logical;
var pp :Integer;
var char1, char2 :String;
var Нашли, flg1, flg2 :Logical;
 Нашли=False;
 pp=Pos("ЗГ", Up(srcValue));
 if pp>0:
   if pp=1:                  char1=""; else char1=SubStr(srcValue, pp-1, 1); fi;
   if pp=Length(srcValue)-1: char2=""; else char2=SubStr(srcValue, pp+2, 1); fi;
   flg1=False; flg2=False;
   if char1 ="" and char2<>"":
     flg1=True;
     if char2="&" or char2="|" or char2="~" or char2="(" or char2=")" or char2="*" or char2="?" or char2="!": flg2=True; fi;
     if flg1 and flg2: Нашли=True; fi;
   |  char1<>"" and char2 ="":
     if char1="&" or char1="|" or char1="~" or char1="(" or char1=")" or char1="*" or char1="?" or char1="!": flg1=True; fi;
     flg2=True;
     if flg1 and flg2: Нашли=True; fi;
   |  char1<>"" and char2<>"":
     if char1="&" or char1="|" or char1="~" or char1="(" or char1=")" or char1="*" or char1="?" or char1="!": flg1=True; fi;
     if char2="&" or char2="|" or char2="~" or char2="(" or char2=")" or char2="*" or char2="?" or char2="!": flg2=True; fi;
     if flg1 and flg2: Нашли=True; fi;
   |  char1 ="" and char2 ="":
     Нашли=True;
   fi;
 fi;
 ^Нашли;
end;

Func ДопАналитика_OnLookup(Sect:String; Row:Integer; Col:Integer; Cur:String): String;
var StoreANA, Value :String;
 Template.HideEditor(False);
 if Template_OnClear: ^Cur; fi;
 RefreshAna;
 StoreANA=ОтчАНАCur;
 Value=Up(AnaElection("*&~ЗГ", False, False, StoreANA));
 if Value="": ^Cur; fi;
 if ОтчАНАCur="":
   ОтчАНАCur=Value;
 else
   if Pos(Value, Up(ОтчАНАCur))=0:
     ОтчАНАCur=Объединить(ОтчАНАCur, Value, Оператор);
     if Length(ОтчАНАCur)>247: --255-8{()&(~ЗГ)}=247
       Message("Строка доп. аналитики не может быть больше 247 символов.^MВыбор отменен!", mtWarning);
       ОтчАНАCur=StoreANA;
       ОтчАНАOld=ОтчАНАCur;
       ^Cur;
     fi;
   fi;
 fi;
 if ОтчАНАCur<>StoreANA: if ОтменитьИзмененияУсловийОтчета: ОтчАНАCur=StoreANA; fi; ValidateОтчетSection; fi;
 ОтчАНАOld=ОтчАНАCur;
 ^Cur;
end;

Func ОтчАНА_Field_OnValidateS(Field:String; Iter:Integer; Value:String) :Logical;
var Res :Numeric;
 if Field="ОтчАНАCur":
   if Length(Value)>247: Message("Строка доп. аналитики не может быть больше 247 символов!", mtWarning); ^False; fi;
   Try Res=Saldo("{"+Value+"}", 1.1.100); Except Raise; ^False; end;
   if ИщемПризнакЗГ(Value): Message("В строке доп. аналитике нельзя импользовать служебный признак 'ЗГ'!", mtWarning); ^False; fi;
 fi;
 ^True;
end;

Func Дата_onLookup(Sect:String; Row:Integer; Col:Integer; Cur:String) :String;
var dd, ddSave : Date;
 Template.HideEditor(False);
 if Template_OnClear: ^Cur; fi;
 ddSave=GetDate;
 dd=ВыборДаты(ddSave);
 if dd<>ddSave and not Sect="СекцПодписи3":
   if ОтменитьИзмененияУсловийОтчета: dd=ddSave; fi;
   ValidateОтчетSection;
 fi;
 SetDate(dd);
 ^"";
end;

Func ОтчМесяц_onLookup(Sect:String; Row:Integer; Col:Integer; Cur:String) :String;
var dd, ddSave : Date;
var Work, isEdit :Logical;
var ii, num, xx, mm, yy :Integer;
 Template.HideEditor(False);
 if Template_OnClear: ^Cur; fi;
 ddSave=GetDate;
 if ddSave<1.1.1900: ddSave=ToDay; isEdit=False; else isEdit=True; fi;
 yy=Year(ddSave);
 mm=Mon(ddSave);
 ClearVariable(Txt);
 for ii=1 to 7 do Txt[ii]=Str(yy+ii-5); od;
 xx=SearchInArray(Txt, Str(yy), True, 1);
 if xx<1: xx=1; fi;
 Work=False;
 while not Work do
   if not isEdit:
     num=0;
     num=Alternate("Выберите год отчета", Txt, -1, xx, 12);
     if num=0           : Break;
     |  num>0 and num<8 : yy=Int(Txt[num]); xx=num;
     fi;
   fi;
   ClearVariable(Buf);
   Buf[1]="... к выбору года ...";
   for ii=1 to 12 do Buf[ii+1]=Месяц(ii)+" "+Str(yy); od;
   num=0;
   num=Alternate("Выберите месяц отчета", Buf, -1, mm+1, 12);
   if num=0            : Break;
   |  num=1            : isEdit=False;
   |  num>1 and num<14 : mm=num-1; Work=True;
   fi;
 end;
 if Work: dd=Dat(01, mm, yy); else dd=ddSave; fi;
 if dd<>ddSave:
   if ОтменитьИзмененияУсловийОтчета: dd=ddSave; fi;
   ValidateОтчетSection;
 fi;
 SetDate(dd);
 ^"";
end;

Func ОтчМесяц_OnType(Sect:String; Row:Integer; Col:Integer; Code:Integer; Cur:String): String;
 Template.HideEditor(False);
 ^"";
end;

Func Сотрудники_onLookup(Sect:String; Row:Integer; Col:Integer; Cur:String): String;
var FieldName, СТРФИО, tmp1, tmp2 :String;
var REC :Record;
 Template.HideEditor(False);
 if not AutoRefresh: RefreshAna; fi;
 FieldName=asString(Template.Field);
 REC=OpenCardFile("СОТРУДНИКИ", "", ИСПREC, crdRecordOnly);
 if REC=NIL: ^Cur; fi;
 tmp1=GetCardFieldS("СОТРУДНИКИ", REC, "ИНИЦИАЛЫ");
 tmp2=GetCardFieldS("СОТРУДНИКИ", REC, "ФАМИЛИЯ");
 СТРФИО=if(tmp2="", GetCardFieldS("СОТРУДНИКИ", REC, "ФИОТ"), tmp2+" "+if(tmp1<>"..", tmp1, ""));
 if FieldName="РукФИО": РукФИО=СТРФИО;
 |  FieldName="БухФИО": БухФИО=СТРФИО;
 fi;
 ^"";
end;

Func Учреждение_onLookup(Sect:String; Row:Integer; Col:Integer; Cur:String) :String;
 Template.HideEditor(False);
 if Template_OnClear: ^Cur; fi;
 ВзятьРеквизиты(УЧР_SREC, flgДлинаФО, False);
 ^"";
end;

Func Контрагент_onLookup(Sect:String; Row:Integer; Col:Integer; Cur:String) :String;
var ANA :String;
 Template.HideEditor(False);
 ANA=Trim(AnaElection("К.*", False, False, SГ1С19X[Row]));
 if ANA<>"": SГ1С19X[Row]=ANA; SГ2С19X[Row]=Trim(Name_A(ANA))+" - ["+ANA+"]"; fi;
 ^"";
end;

Func БДЖ_НАИМ_onLookup(Sect:String; Row:Integer; Col:Integer; Cur:String) :String;
var num :Integer;
 Template.HideEditor(False);
 ClearVariable(Buf);
 Buf[1]="Федеральный бюджет";
 Buf[2]="бюджет субъекта Российской Федерации";
 Buf[3]="местный бюджет";
 Buf[4]="бюджет Пенсионного фонда Российской Федерации";
 Buf[5]="бюджет Фонда обязательного медицинского страхования Российской Федерации";
 Buf[6]="бюджет Фонда социального страхования Российской Федерации";
 Buf[7]="бюджет территориального государственного внебюджетного фонда";
 num=Alternate("Выберите бюджет", Buf, -1, SearchInArray(Buf, БДЖ_НАИМ, False, 1), 12);
 if num=0: ^Cur; fi;
 БДЖ_НАИМ=Buf[num];
 ^Cur;
end;

Func ЕстьДанныеДляВыгрузки :Logical;
 if (Abs(RГ6С410)+Abs(RГ0С410))>0.00: ^True; fi;
 if (Abs(RГ6С900)+Abs(RГ0С900))>0.00: ^True; fi;
 ^False;
end;

Func КлючИНН(ИНН:String) :Logical;
var П :Integer;
 П=31*Int(SubStr(ИНН,1,1))+
   29*Int(SubStr(ИНН,2,1))+
   23*Int(SubStr(ИНН,3,1))+
   19*Int(SubStr(ИНН,4,1))+
   17*Int(SubStr(ИНН,5,1))+
   13*Int(SubStr(ИНН,6,1))+
    7*Int(SubStr(ИНН,7,1))+
    5*Int(SubStr(ИНН,8,1))+
    3*Int(SubStr(ИНН,9,1));
 П=11-Int(П-11*Trunc(П/11));
 П=if(П>9:0,П);
 ^П=Int(SubStr(ИНН,10,1));
end;

Proc ЗакрытьФайлПоОшибке(numberFile:Integer; FlagCreate:Logical; RESnameFile:String);
 if FlagCreate:
   TextFileClose(numberFile);
   Message("Ошибка записи в файл '"+RESnameFile+"'!", mtError);
 else
   Message("Ошибка создания файла '"+RESnameFile+"'!", mtError);
 fi;
end;

Func ЗаписатьСтрокуРаздела(Iter:Integer) :String;
var RES :String;
var SUM :Numeric;
 RES="";
 if Iter>0:
   RES=BAL_STR[Iter]+"|";
   SUM=GetVariableN("RГ3С"+BAL_STR[Iter]); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("RГ4С"+BAL_STR[Iter]); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("RГ5С"+BAL_STR[Iter]); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("RГ6С"+BAL_STR[Iter]); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("RГ7С"+BAL_STR[Iter]); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("RГ8С"+BAL_STR[Iter]); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("RГ9С"+BAL_STR[Iter]); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("RГ0С"+BAL_STR[Iter]); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0");
 fi;
 ^RES;
end;

Func ЗаписатьСтрокуСправки(Iter:Integer) :String;
var RES :String;
var SUM :Numeric;
 RES="";
 if Iter>0:
   RES="19|19"+Str(Iter)+"|";
   SUM=GetVariableN("SГ4С19X["+Str(Iter)+"]"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("SГ5С19X["+Str(Iter)+"]"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("SГ6С19X["+Str(Iter)+"]"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("SГ7С19X["+Str(Iter)+"]"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("SГ8С19X["+Str(Iter)+"]"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("SГ9С19X["+Str(Iter)+"]"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0");
 else
   RES="19|190|";
   SUM=GetVariableN("SГ4С190"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("SГ5С190"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("SГ6С190"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("SГ7С190"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("SГ8С190"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0")+"|";
   SUM=GetVariableN("SГ9С190"); RES=RES+if(SUM<>0.00, Str(SUM, 2), "0");
 fi;
 ^RES;
end;

Proc Экспорт_TXT_ДФ; -- выгрузка в формат департамента финансов г.Москвы
var Путь, nameFile, Value :String;
var FS, num, ii :Integer;
var FlagCreate :Logical;

 УбратьЛишниеСтроки;
 if Year(ДАТАОТЧ)<2000: Message("Дата отчета должна быть позже 2000 года.", mtWarning); Template.Field="ДАТАОТЧ"; Exit; fi;
 if Day(ДАТАОТЧ)<>1: Message("Для выгрузки в файл требуется отчет расчитанный на '1' число.", mtWarning); Template.Field="ДАТАОТЧ"; Exit; fi;
 if УЧР_ИНН="" or not КлючИНН(УЧР_ИНН): Message("Некорректный ИНН.^MПроверьте реквизиты", mtError); Template.Field="УЧР_НАИМ"; Exit; fi;
 if not ЕстьДанныеДляВыгрузки: Message("Нет данных для выгрузки.^MПредварительно сделайте расчет формы.", mtWarning); Template.Object="btnРасчет"; Exit; fi;
 --
 if ChooseFolder(Путь, "Выберите папку для сохранения файла выгрузки...")=cmOk:

    Инициализация_Условий_Баланса;
    nameFile=Путь+"140"+Format("%.2d", Mon(AddMon(ДАТАОТЧ, -1)))+Format("%.2d", Year(AddMon(ДАТАОТЧ, -1))-2000)+"m1.txt";
    Try
      Try if ExistFile(nameFile): DeleteFile(nameFile); fi; Except end;
      FlagCreate=False;
      FS=TextFileCreate(nameFile);
      FlagCreate=True;
      -- Записываем заголовок
      TextFileWriteLn(FS, "ИНН="+УЧР_ИНН);
      TextFileWriteLn(FS, "ДАТА="+DateToString(ДАТАОТЧ));
      TextFileWriteLn(FS, "КОДФ=140");
      -- Записываем данные 1 раздела
      TextFileWriteLn(FS, "ТБ=01");
      num=LengthOfArray(BAL_STR);
      if num>0:
        for ii=1 to num do
          Value=ЗаписатьСтрокуРаздела(ii);
          if Value<>"": TextFileWriteLn(FS, Value); fi;
        od;
      fi;
      -- Записываем данные 2 раздела
      num=LengthOfArray(SГ2С19X);
      if (Abs(SГ6С190)+Abs(SГ9С190))>0.00 and num>0:
        TextFileWriteLn(FS, "ТБ=02");
        Value=ЗаписатьСтрокуСправки(0);
        if Value<>"": TextFileWriteLn(FS, Value); fi;
        for ii=1 to num do
          Value=ЗаписатьСтрокуСправки(ii);
          if Value<>"": TextFileWriteLn(FS, Value); fi;
        od;
      fi;
      TextFileClose(FS);
      if ExistFile(nameFile): if EnqOkCancel("Открыть созданный файл выгрузки?", mtInformation)=cmOK: OpenEditor(nameFile); fi; fi;
    Except
      ЗакрытьФайлПоОшибке(FS, FlagCreate, nameFile);
      Raise;
    end;

 fi;

end;

Func TimeToHMSstring_adv(valTime:Integer; valSep:String) :String;
var ihh, imm, icc :Integer;
var shh, smm, scc :String;
 shh=''; smm=''; scc='';
 ihh=Int(Trunc(valTime/3600));
 imm=Int(Trunc((valTime-ihh*3600)/60));
 icc=valTime-ihh*3600-imm*60;
 shh=Format("%.2d", ihh);
 smm=Format("%.2d", imm);
 scc=Format("%.2d", icc);
 ^(shh+valSep+smm+valSep+scc);
end;

Func Цвет(r:Integer; g:Integer; b:Integer) :Integer; -- цвет по стандарту ТБ 6.9
 ^(256*256*b+256*g+r);
end;

Proc Экспорт_Excel;
var xlsApp, xlsBooks, xlsBook, xlsSheets, xlsSheet, xlsRng :AutoObject;
var localTS, localDS, xlNameFile, xlNameFolder, ExcelVersion, Value :String;
var NoError, rusExcel, ExportWork :Logical;
var начало, maxIterCount, kol, max_kol, offsetRow, len, ii, Iter, IterCount, IterSave :Integer;

 УбратьЛишниеСтроки;
 if not ЕстьДанныеДляВыгрузки: Message("Нет данных для выгрузки.^MПредварительно сделайте расчет формы.", mtWarning); Template.Object="btnРасчет"; Exit; fi;

 NoError=True;
 maxIterCount=300;
 kol=0;
 if ChooseFolder(xlNameFolder, "Выберите папку для сохранения файла экспорта...")=cmOK:
   начало=Time;
   xlNameFile=xlNameFolder+"ExportExcel0503140_"+Format("%.4d", Year(ToDay))+Format("%.2d", Mon(ToDay))+Format("%.2d", Day(ToDay))+"_"+TimeToHMSstring_adv(Time, "")+".xls";
   if ExistFile(xlNameFile): DeleteFile(xlNameFile); fi;
   if ExistFile(xlNameFile+"x"): DeleteFile(xlNameFile+"x"); fi; -- для версий Офиса 2007 или старше
   -- 1 ЛИСТ
   if NoError:
     xlsApp=CreateAutoObject('Excel.Application');
     Try
       ExcelVersion=asString(xlsApp.Version);
       if Int(ExcelVersion)>=12 or ExcelVersion="12.0": xlNameFile=xlNameFile+"x"; fi;
       ShowProgress(0, "Подготовка...");
       Try
         xlsApp.EnableEvents=False;   -- отключить события
         xlsApp.AutomationSecurity=3; -- отключить макросы
         --
         rusExcel=РАБ.EXCEL.РусскийExcel(xlsApp);
         localDS=asString(xlsApp.International[РАБ.EXCEL.xlDecimalSeparator]);
         localTS=asString(xlsApp.International[РАБ.EXCEL.xlThousandsSeparator]);
         --
         xlsBooks=AsAutoObject(xlsApp.Workbooks); -- получить объект Workbooks
         Try
           xlsBook=AsAutoObject(xlsBooks.Add); -- добавить книгу
           Try
             Try
               xlsSheets=AsAutoObject(xlsBook.Sheets);
               Try
                 max_kol=asInteger(xlsSheets.Count);
                 if max_kol<3:
                   len=3-max_kol;
                   Try
                     for ii=1 to len do Try xlsSheet=AsAutoObject(xlsSheets.Add); Finally ClearVariable(xlsSheet); end; od;
                   Except
                     ClearVariable(xlsSheet);
                     Raise;
                   end;
                 fi;
                 kol=kol+1;
                 xlsSheet=AsAutoObject(xlsBook.Worksheets[kol]);
                 Try
                   xlsSheet.Name = "0503140 "+Chr(151)+" стр 1";
                   ShowProgress(11, "Формируем титул...");
                   offsetRow=0;
                   ProgressPos(1);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 01, 42.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 02, 04.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 03, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 04, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 05, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 06, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 07, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 08, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 09, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 10, 11.0);
                   ProgressPos(2);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "БАЛАНС ПО ПОСТУПЛЕНИЯМ И ВЫБЫТИЯМ БЮДЖЕТНЫХ СРЕДСТВ");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 01, offsetRow, 08);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 11, 0, True, True, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 09, "КОДЫ");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   ProgressPos(3);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, "Форма по ОКУД");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 07, offsetRow, 08);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  1, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 09, "0503140");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Courier New", 10, 0, True, False, False, 0, True);
                   ProgressPos(4);
                   offsetRow=offsetRow+1;
                   Value="на "+Format("%.2d", Day(ДАТАОТЧ))+" "+Месяца(Mon(ДАТАОТЧ))+" "+Format("%.4d", Year(ДАТАОТЧ))+" г.";
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, Value);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, True, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 08, "Дата");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  1, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 09, DateToString(ДАТАОТЧ));
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(5);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 08, "по ОКПО");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  1, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 09, УЧР_ОКПО);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(6);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "Наименование финансового органа");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, УЧР_НАИМ);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow, 07);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, True, False, 0, True);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 02, offsetRow, 07, False, False, False, True, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 08, "Глава по БК");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight, 1, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 09, ГЛВ_БК);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(7);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "Наименование бюджета");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, БДЖ_НАИМ);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow, 07);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlLeft,  0, РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, True, False, 0, True);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 02, offsetRow, 07, False, False, False, True, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 08, "по ОКАТО");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight, 1, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 09, ОКАТО);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(8);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "Периодичность:");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "месячная");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow, 07);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(9);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "Единица измерения:");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "РУБ.");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow, 07);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 09, "383");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(10);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-7, 09, offsetRow, 10, True,  True,  True,  True, True,  True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-6, 09, offsetRow, 10, True,  True,  True,  True, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   ProgressPos(11);
                   РАБ.EXCEL.PrintSetup_ЧБ_Поля10(xlsApp, xlsSheet, False, 0, 0, 0, 0, True, False, True, 100);
                   --
                   ShowProgress(20, "Формируем таблицу 1 раздела...");
                   ProgressPos(01);
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "А К Т И В");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 01, offsetRow+1, 01);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "Код"+Chr(10)+"строки");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow+1, 02);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 03, "На начало года");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 03, "бюджетная"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 04, "приносящая"+Chr(10)+"доход"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 05, "средства"+Chr(10)+"во временном"+Chr(10)+"распоряжении");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 05, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 06, "ИТОГО");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 06, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   07, "На конец отчетного периода");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 07, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 07, "бюджетная"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 08, "приносящая"+Chr(10)+"доход"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 08, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 09, "средства"+Chr(10)+"во временном"+Chr(10)+"распоряжении");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 09, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 10, "ИТОГО");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 10, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(02);
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "1");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "2");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 03, "3");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 04, "4");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 05, "5");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 06, "6");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, "7");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 08, "8");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 09, "9");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 10, "10");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 1, offsetRow, 10, True);
                   ProgressPos(03);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "I. ФИНАНСОВЫЕ АКТИВЫ");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, True, False, 0, True);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(04);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "Средства на счетах бюджета в органе Федерального казначейства (020210000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 01, "в том числе:");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, True,  0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "180");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow+1, 02);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С180<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С180, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow+1, 03);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ4С180<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С180, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 04, offsetRow+1, 04);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ5С180<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С180, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 05, offsetRow+1, 05);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ6С180<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С180, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 06, offsetRow+1, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С180<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С180, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 07, offsetRow+1, 07);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ8С180<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С180, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 08, offsetRow+1, 08);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ9С180<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С180, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow+1, 09);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ0С180<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С180, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 10, offsetRow+1, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(05);
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "средства на счетах бюджета в рублях в органе Федерального казначейства (020211000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "181");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С181<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С181, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С181<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С181, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С181<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С181, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С181<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С181, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С181<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С181, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С181<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С181, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С181<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С181, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С181<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С181, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(06);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "средства на счетах бюджета в органе Федерального казначейства в пути (020212000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "182");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С182<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С182, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С182<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С182, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С182<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С182, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С182<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С182, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С182<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С182, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С182<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С182, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С182<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С182, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С182<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С182, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(07);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "средства на счетах бюджета в иностранной валюте в органах Федерального казначейства (020213000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "183");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С183<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С183, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С183<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С183, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С183<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С183, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С183<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С183, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С183<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С183, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С183<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С183, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С183<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С183, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С183<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С183, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(08);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "Средства на счетах бюджета в кредитной организации (020220000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 01, "в том числе:");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, True,  0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "190");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow+1, 02);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow+1, 03);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ4С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 04, offsetRow+1, 04);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ5С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 05, offsetRow+1, 05);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ6С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 06, offsetRow+1, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 07, offsetRow+1, 07);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ8С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 08, offsetRow+1, 08);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ9С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow+1, 09);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ0С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 10, offsetRow+1, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(09);
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "средства на счетах бюджета в рублях в кредитной организации (020221000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "191");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С191<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С191, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С191<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С191, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С191<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С191, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С191<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С191, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С191<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С191, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С191<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С191, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С191<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С191, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С191<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С191, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(10);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "средства на счетах бюджета в кредитной организации в пути (020222000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "192");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С192<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С192, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С192<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С192, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С192<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С192, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С192<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С192, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С192<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С192, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С192<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С192, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С192<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С192, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С192<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С192, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(11);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "средства на счетах бюджета в иностранной валюте в кредитной организации (020223000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "193");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С193<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С193, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С193<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С193, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С193<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С193, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С193<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С193, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С193<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С193, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С193<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С193, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С193<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С193, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С193<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С193, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(12);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "Средства бюджета на депозитных счетах (020230000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 01, "в том числе:");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, True,  0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "200");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow+1, 02);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С200, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow+1, 03);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ4С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С200, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 04, offsetRow+1, 04);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ5С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С200, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 05, offsetRow+1, 05);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ6С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С200, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 06, offsetRow+1, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С200, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 07, offsetRow+1, 07);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ8С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С200, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 08, offsetRow+1, 08);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ9С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С200, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow+1, 09);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ0С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С200, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 10, offsetRow+1, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(13);
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "средства бюджета на депозитных счетах в рублях (020231000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "201");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С201<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С201, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С201<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С201, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С201<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С201, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С201<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С201, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С201<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С201, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С201<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С201, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С201<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С201, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С201<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С201, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(14);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "средства бюджета на депозитных счетах в пути (020232000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "202");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С202<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С202, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С202<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С202, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С202<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С202, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С202<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С202, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С202<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С202, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С202<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С202, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С202<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С202, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С202<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С202, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(15);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "средства бюджета на депозитных счетах в иностранной валюте (020233000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "203");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С203<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С203, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С203<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С203, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С203<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С203, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С203<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С203, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С203<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С203, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С203<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С203, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С203<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С203, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С203<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С203, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(16);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "Внутренние расчеты по поступлениям (021100000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "205");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С205<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С205, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С205<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С205, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С205<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С205, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С205<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С205, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С205<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С205, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С205<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С205, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С205<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С205, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С205<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С205, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(17);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "Внутренние расчеты по выбытиям (021200000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "206");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С206<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С206, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С206<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С206, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С206<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С206, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С206<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С206, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С206<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С206, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С206<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С206, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С206<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С206, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С206<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С206, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(18);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "БАЛАНС"+Chr(10)+"(стр. 180 + стр. 190 + стр. 200 + стр. 205 + стр. 206)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, True, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "410");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С410<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С410, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ4С410<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С410, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ5С410<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С410, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ6С410<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С410, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ7С410<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С410, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ8С410<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С410, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ9С410<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С410, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ0С410<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С410, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   ProgressPos(19);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-21, 1, offsetRow, 10, False,  True,  False,  True,  True ,  True ,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-18, 3, offsetRow, 10, True ,  True,  True ,  True,  False,  False,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow   , 1, offsetRow, 10, False,  True,  False,  False, False,  False,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   РАБ.EXCEL.СброситьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow-17, 1, offsetRow-13, 1, False, False, False, False, False, True, False, False);
                   РАБ.EXCEL.СброситьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow-12, 1, offsetRow-08, 1, False, False, False, False, False, True, False, False);
                   РАБ.EXCEL.СброситьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow-07, 1, offsetRow-03, 1, False, False, False, False, False, True, False, False);
                   ProgressPos(20);
                   xlsRng=AsAutoObject(xlsSheet.Rows["1:"+Str(offsetRow)]);
                   Try xlsRng.AutoFit; Finally ClearVariable(xlsRng); end;
                   --
                   NoError=True;
                 Finally
                   ClearVariable(xlsSheet);
                 end;
               Finally
                 ClearVariable(xlsSheets);
               end;
             Except
               NoError=False;
               xlsBook.Close(False); -- закрыть книгу без сохранения
             end;
           Finally
             xlsBook.Close(True, xlNameFile);
             ClearVariable(xlsBook); -- освободить объект книги
           end;
         Finally
           ClearVariable(xlsBooks); -- освободить объект книг
         end;
       Finally
         ClearVariable(xlsApp); -- освободить объект Excel
         CloseProgress;
       end;
     Except
       NoError=False;
       ClearVariable(xlsRng);
       ClearVariable(xlsSheet);
       ClearVariable(xlsSheets);
       ClearVariable(xlsBook);
       ClearVariable(xlsBooks);
       ClearVariable(xlsApp);
     end;
   fi; --NoError
   -- 2 ЛИСТ
   if NoError:
     ShowProgress(26, "Формируем таблицу 2 раздела...");
     xlsApp=CreateAutoObject('Excel.Application');
     Try
       Try
         ProgressPos(01);
         xlsApp.EnableEvents=False;   -- отключить события
         xlsApp.AutomationSecurity=3; -- отключить макросы
         xlsBooks=AsAutoObject(xlsApp.Workbooks); -- получить объект Workbooks
         Try
           xlsBook=AsAutoObject(xlsBooks.Open(xlNameFile));
           Try
             Try
               xlsSheets=AsAutoObject(xlsBook.Sheets);
               Try
                 kol=kol+1;
                 xlsSheet=AsAutoObject(xlsBook.Worksheets[kol]);
                 Try
                   xlsSheet.Name = "0503140 "+Chr(151)+" стр 2";
                   offsetRow=0;
                   ProgressPos(02);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 01, 42.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 02, 04.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 03, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 04, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 05, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 06, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 07, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 08, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 09, 11.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 10, 11.0);
                   ProgressPos(03);
                   РАБ.EXCEL.PrintSetup_ЧБ_Поля10(xlsApp, xlsSheet, False, 0, 0, 0, 0, True, False, True, 100);
                   ProgressPos(04);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "Форма 0503140 с. 2");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 01, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlRight, 0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, 0, True);
                   РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 1, offsetRow, 10, True);
                   ProgressPos(05);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "П А С С И В");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 01, offsetRow+1, 01);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "Код"+Chr(10)+"строки");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow+1, 02);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 03, "На начало года");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 03, "бюджетная"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 04, "приносящая"+Chr(10)+"доход"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 05, "средства"+Chr(10)+"во временном"+Chr(10)+"распоряжении");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 05, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 06, "ИТОГО");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 06, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   07, "На конец отчетного периода");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 07, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 07, "бюджетная"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 08, "приносящая"+Chr(10)+"доход"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 08, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 09, "средства"+Chr(10)+"во временном"+Chr(10)+"распоряжении");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 09, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 10, "ИТОГО");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 10, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(06);
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "1");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "2");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 03, "3");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 04, "4");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 05, "5");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 06, "6");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, "7");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 08, "8");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 09, "9");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 10, "10");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 1, offsetRow, 10, True);
                   ProgressPos(07);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "II. ОБЯЗАТЕЛЬСТВА");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, True, False, 0, True);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(08);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "Внутренние расчеты по поступлениям (030800000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "540");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С540<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С540, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С540<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С540, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С540<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С540, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С540<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С540, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С540<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С540, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С540<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С540, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С540<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С540, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С540<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С540, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(09);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "Внутренние расчеты по выбытиям (030900000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "550");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С550<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С550, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С550<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С550, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С550<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С550, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С550<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С550, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С550<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С550, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С550<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С550, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С550<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С550, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С550<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С550, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(10);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "Итого по разделу II (стр. 540 + стр. 550)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, True, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "560");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С560<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С560, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(204,255,204), False);
                   if RГ4С560<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С560, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(204,255,204), False);
                   if RГ5С560<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С560, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(204,255,204), False);
                   if RГ6С560<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С560, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(204,255,204), False);
                   if RГ7С560<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С560, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(204,255,204), False);
                   if RГ8С560<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С560, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(204,255,204), False);
                   if RГ9С560<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С560, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(204,255,204), False);
                   if RГ0С560<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С560, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(204,255,204), False);
                   ProgressPos(11);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "III. ФИНАНСОВЫЙ РЕЗУЛЬТАТ");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, True, False, 0, True);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(12);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "Результат по кассовым операциям бюджета (040200000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 01, "из них:");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, True,  0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "690");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow+1, 02);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С690<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С690, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow+1, 03);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ4С690<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С690, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 04, offsetRow+1, 04);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ5С690<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С690, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 05, offsetRow+1, 05);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ6С690<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С690, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 06, offsetRow+1, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С690<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С690, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 07, offsetRow+1, 07);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ8С690<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С690, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 08, offsetRow+1, 08);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ9С690<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С690, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow+1, 09);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ0С690<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С690, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 10, offsetRow+1, 10);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(13);
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "результат по кассовому исполнению бюджета по поступлениям в бюджет (040210000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "710");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С710<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С710, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ4С710<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С710, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ5С710<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С710, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ6С710<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С710, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С710<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С710, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ8С710<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С710, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ9С710<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С710, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ0С710<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С710, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(14);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "поступления в бюджет по доходам (040210100)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "711");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С711<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С711, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С711<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С711, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С711<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С711, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С711<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С711, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С711<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С711, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С711<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С711, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С711<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С711, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С711<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С711, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(15);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "поступления в бюджет от реализации нефинансовых активов (040210400)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "712");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С712<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С712, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С712<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С712, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С712<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С712, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С712<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С712, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С712<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С712, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С712<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С712, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С712<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С712, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С712<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С712, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(16);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "поступления в бюджет от реализации финансовых активов (040210600)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "713");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С713<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С713, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С713<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С713, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С713<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С713, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С713<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С713, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С713<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С713, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С713<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С713, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С713<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С713, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С713<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С713, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(17);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "поступления в бюджет от заимствований (040210700)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "714");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С714<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С714, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С714<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С714, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С714<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С714, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С714<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С714, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С714<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С714, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С714<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С714, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С714<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С714, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С714<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С714, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(18);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "результат по кассовому исполнению бюджета по выбытиям из бюджета (040220000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "720");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С720<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С720, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ4С720<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С720, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ5С720<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С720, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ6С720<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С720, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С720<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С720, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ8С720<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С720, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ9С720<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С720, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ0С720<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С720, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(19);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "выбытия средств бюджета по расходам (040220200)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "721");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С721<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С721, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С721<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С721, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С721<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С721, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С721<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С721, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С721<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С721, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С721<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С721, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С721<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С721, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С721<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С721, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(20);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "выбытия средств бюджета по поступлению нефинансовых активов (040220300)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "722");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С722<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С722, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С722<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С722, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С722<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С722, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С722<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С722, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С722<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С722, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С722<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С722, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С722<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С722, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С722<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С722, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(21);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "выбытия средств бюджета по приобретению финансовых активов (040220500)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "723");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С723<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С723, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С723<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С723, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С723<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С723, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С723<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С723, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С723<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С723, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С723<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С723, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С723<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С723, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С723<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С723, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(22);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "выбытия средств бюджета по погашению долговых обязательств (040220800)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "724");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С724<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С724, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С724<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С724, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С724<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С724, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С724<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С724, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С724<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С724, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С724<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С724, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С724<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С724, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С724<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С724, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(23);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "Результат прошлых отчетных периодов по кассовому исполнению бюджета (040230000)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "800");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С800<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С800, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ4С800<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С800, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ5С800<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С800, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ6С800<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С800, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   if RГ7С800<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С800, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ8С800<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С800, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ9С800<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С800, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   if RГ0С800<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С800, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   ProgressPos(24);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "БАЛАНС"+Chr(10)+"(стр. 560 + стр. 690)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlLeft,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, True, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "900");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if RГ3С900<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03, RГ3С900, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ4С900<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С900, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ5С900<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, RГ5С900, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ6С900<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ6С900, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ7С900<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, RГ7С900, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ8С900<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, RГ8С900, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ9С900<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, RГ9С900, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if RГ0С900<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 10, RГ0С900, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 10, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   ProgressPos(25);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-21, 1, offsetRow,    10, False,  True,  False,  True,  True ,  True ,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-19, 3, offsetRow,    10, True ,  True,  True ,  True,  False,  False,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-15, 1, offsetRow-15, 10, False,  True,  False,  True,  False,  False,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow   , 1, offsetRow,    10, False,  True,  False,  False, False,  False,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   РАБ.EXCEL.СброситьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow-13, 1, offsetRow-1, 1, False, False, False, False, False, True, False, False);
                   ProgressPos(26);
                   xlsRng=AsAutoObject(xlsSheet.Rows["1:"+Str(offsetRow)]);
                   Try xlsRng.AutoFit; Finally ClearVariable(xlsRng); end;
                   --
                   NoError=True;
                 Finally
                   ClearVariable(xlsSheet);
                 end;
               Finally
                 ClearVariable(xlsSheets);
               end;
             Except
               NoError=False;
               xlsBook.Close(False); -- закрыть книгу без сохранения
             end;
           Finally
             xlsBook.Save;
             xlsBook.Close(False); -- закрыть книгу без сохранения
             ClearVariable(xlsBook); -- освободить объект книги
           end;
         Finally
           ClearVariable(xlsBooks); -- освободить объект книг
         end;
       Finally
         ClearVariable(xlsApp); -- освободить объект Excel
         CloseProgress;
       end;
     Except
       NoError=False;
       ClearVariable(xlsRng);
       ClearVariable(xlsSheet);
       ClearVariable(xlsSheets);
       ClearVariable(xlsBook);
       ClearVariable(xlsBooks);
       ClearVariable(xlsApp);
     end;
   fi; --NoError
   -- 3 ЛИСТ
   if NoError:
     ShowProgress(11, "Формируем таблицу 3 раздела [1]...");
     xlsApp=CreateAutoObject('Excel.Application');
     Try
       Try
         ProgressPos(01);
         xlsApp.EnableEvents=False;   -- отключить события
         xlsApp.AutomationSecurity=3; -- отключить макросы
         xlsBooks=AsAutoObject(xlsApp.Workbooks); -- получить объект Workbooks
         Try
           xlsBook=AsAutoObject(xlsBooks.Open(xlNameFile));
           Try
             Try
               xlsSheets=AsAutoObject(xlsBook.Sheets);
               Try
                 kol=kol+1;
                 xlsSheet=AsAutoObject(xlsBook.Worksheets[kol]);
                 Try
                   xlsSheet.Name = "0503140 "+Chr(151)+" стр 3";
                   offsetRow=0;
                   ProgressPos(02);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 01, 13.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 02, 45.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 03, 04.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 04, 12.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 05, 12.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 06, 12.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 07, 12.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 08, 12.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 09, 12.0);
                   ProgressPos(03);
                   РАБ.EXCEL.PrintSetup_ЧБ_Поля10(xlsApp, xlsSheet, False, 0, 0, 0, 0, True, False, True, 100);
                   ProgressPos(04);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "Форма 0503140 с. 3");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 01, offsetRow, 09);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlRight, 0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, 0, True);
                   РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 01, offsetRow, 09, True);
                   ProgressPos(05);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "СПРАВКА");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 01, offsetRow, 09);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 11, 0, True, True, False, 0, True);
                   ProgressPos(06);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "о наличии имущества и обязательств на забалансовых счетах");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 01, offsetRow, 09);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 11, 0, True, True, False, 0, True);
                   ProgressPos(07);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "Номер"+Chr(10)+"забалансового"+Chr(10)+"счета");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 01, offsetRow+1, 01);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "Наименование"+Chr(10)+"забалансового счета,"+Chr(10)+"показателя");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow+1, 02);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 03, "Код"+Chr(10)+"строки");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow+1, 03);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 04, "На начало года");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 04, offsetRow, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 04, "бюджетная"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 05, "приносящая"+Chr(10)+"доход"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 05, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 06, "ИТОГО");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 06, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   07, "На конец отчетного периода");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 07, offsetRow, 09);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 07, "бюджетная"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 08, "приносящая"+Chr(10)+"доход"+Chr(10)+"деятельность");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 08, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 09, "ИТОГО");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 09, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(08);
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "1");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "2");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 03, "3");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 04, "4");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 05, "5");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 06, "6");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, "7");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 08, "8");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 09, "9");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 1, offsetRow, 9, True);
                   ProgressPos(09);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   01, "19");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 01, offsetRow+1, 01);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   01, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 11, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   02, "Невыясненные поступления бюджета прошлых лет");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   02, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 02, "в том числе:");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 02, РАБ.EXCEL.xlCenter,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow,   03, "190");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 03, offsetRow+1, 03);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow,   03, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 07, 0, True, False, False, 0, True);
                   if SГ4С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, SГ4С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 04, offsetRow+1, 04);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if SГ5С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05, SГ5С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 05, offsetRow+1, 05);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if SГ6С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, SГ6С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 06, offsetRow+1, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if SГ7С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 07, SГ7С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 07, offsetRow+1, 07);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if SГ8С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 08, SГ8С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 08, offsetRow+1, 08);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   if SГ9С190<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 09, SГ9С190, localDS, localTS); fi;
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 09, offsetRow+1, 09);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True, False, Цвет(0,255,0), False);
                   ProgressPos(10);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow-3, 1, offsetRow+1, 9, False,  True,  False,  True,  True ,  True ,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow  , 1, offsetRow+1, 1, True ,  True,  True ,  False, False,  False,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow  , 3, offsetRow+1, 9, True ,  True,  True ,  False, False,  False,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   РАБ.EXCEL.СброситьВсеГраницыДиапазонаИвнутри(  xlsSheet, offsetRow  , 1, offsetRow+1, 1, False, False, False, True , False, False, False, False);
                   РАБ.EXCEL.СброситьВсеГраницыДиапазонаИвнутри(  xlsSheet, offsetRow  , 2, offsetRow+1, 2, False, False, False, False, False, True,  False, False);
                   ProgressPos(11);
                   xlsRng=AsAutoObject(xlsSheet.Rows["1:"+Str(offsetRow)]);
                   Try xlsRng.AutoFit; Finally ClearVariable(xlsRng); end;
                   --
                   NoError=True;
                 Finally
                   ClearVariable(xlsSheet);
                 end;
               Finally
                 ClearVariable(xlsSheets);
               end;
             Except
               NoError=False;
               xlsBook.Close(False); -- закрыть книгу без сохранения
             end;
           Finally
             xlsBook.Save;
             xlsBook.Close(False); -- закрыть книгу без сохранения
             ClearVariable(xlsBook); -- освободить объект книги
           end;
         Finally
           ClearVariable(xlsBooks); -- освободить объект книг
         end;
       Finally
         ClearVariable(xlsApp); -- освободить объект Excel
         CloseProgress;
       end;
     Except
       NoError=False;
       ClearVariable(xlsRng);
       ClearVariable(xlsSheet);
       ClearVariable(xlsSheets);
       ClearVariable(xlsBook);
       ClearVariable(xlsBooks);
       ClearVariable(xlsApp);
     end;
   fi; --NoError
   len=LengthOfArray(SГ2С19X);
   if NoError:
     if len>0:
       ShowProgress(len, "Формируем таблицу 3 раздела [2]...");
       Try
         offsetRow=offsetRow+1;
         Iter=0;
         IterCount=0;
         IterSave=1;
         ExportWork=True;
         while ExportWork do
           if NoError:
             xlsApp=CreateAutoObject('Excel.Application');
             Try
               Try
                 xlsApp.EnableEvents=False;   -- отключить события
                 xlsApp.AutomationSecurity=3; -- отключить макросы
                 xlsBooks=AsAutoObject(xlsApp.Workbooks); -- получить объект Workbooks
                 Try
                   xlsBook=AsAutoObject(xlsBooks.Open(xlNameFile));
                   Try
                     Try
                       xlsSheet=AsAutoObject(xlsBook.Worksheets["0503140 "+Chr(151)+" стр 3"]);
                       Try
                         for ii=IterSave to len do
                           ProgressPos(ii);
                           offsetRow=offsetRow+1;
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, SГ2С19X[ii]);
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if SГ4С19X[ii]<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow,  4, SГ4С19X[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if SГ5С19X[ii]<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow,  5, SГ5С19X[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if SГ6С19X[ii]<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow,  6, SГ6С19X[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                           if SГ7С19X[ii]<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow,  7, SГ7С19X[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if SГ8С19X[ii]<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow,  8, SГ8С19X[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if SГ9С19X[ii]<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow,  9, SГ9С19X[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                           --
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 2, offsetRow, 9, True,  True,  True,  True,  True,  True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 1, offsetRow, 1, True,  False, True , False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 3, offsetRow, 9, True,  False, True , False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                           --
                           IterCount=IterCount+1;
                           if IterCount>=maxIterCount: IterSave=IterSave+IterCount; IterCount=0; Break; fi;
                         od;
                         РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow+1, 1, offsetRow+1, 1, False, True, False, False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                         РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow+1, 3, offsetRow+1, 9, False, True, False, False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                         NoError=True;
                       Finally
                         ClearVariable(xlsSheet);
                       end;
                     Except
                       NoError=False;
                       ExportWork=False;
                       xlsBook.Close(False); -- закрыть книгу без сохранения
                     end;
                   Finally
                     xlsBook.Save;
                     xlsBook.Close(False); -- закрыть книгу без сохранения
                     ClearVariable(xlsBook); -- освободить объект книги
                   end;
                 Finally
                   ClearVariable(xlsBooks); -- освободить объект книг
                 end;
               Finally
                 ClearVariable(xlsApp); -- освободить объект Excel
               end;
             Except
               NoError=False;
               ExportWork=False;
               ClearVariable(xlsRng);
               ClearVariable(xlsSheet);
               ClearVariable(xlsSheets);
               ClearVariable(xlsBook);
               ClearVariable(xlsBooks);
               ClearVariable(xlsApp);
             end;
             if ii>=len: ExportWork=False; fi;
           else
             ExportWork=False;
           fi;
         end; -- while
       Finally
        CloseProgress;
       end;
     else -- если данных нет рисуем пустую строчку
       xlsApp=CreateAutoObject('Excel.Application');
       Try
         Try
           xlsApp.EnableEvents=False;   -- отключить события
           xlsApp.AutomationSecurity=3; -- отключить макросы
           xlsBooks=AsAutoObject(xlsApp.Workbooks); -- получить объект Workbooks
           Try
             xlsBook=AsAutoObject(xlsBooks.Open(xlNameFile));
             Try
               Try
                 xlsSheet=AsAutoObject(xlsBook.Worksheets["0503140 "+Chr(151)+" стр 3"]);
                 Try
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 09, РАБ.EXCEL.xlRight, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, Цвет(204,255,204), False);
                   --
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 2, offsetRow, 9, True,  True,  True,  True,  True,  True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 1, offsetRow, 1, True,  False, True , False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 3, offsetRow, 9, True,  False, True , False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   --
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow+1, 1, offsetRow+1, 1, False, True, False, False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow+1, 3, offsetRow+1, 9, False, True, False, False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   NoError=True;
                 Finally
                   ClearVariable(xlsSheet);
                 end;
               Except
                 NoError=False;
                 ExportWork=False;
                 xlsBook.Close(False); -- закрыть книгу без сохранения
               end;
             Finally
               xlsBook.Save;
               xlsBook.Close(False); -- закрыть книгу без сохранения
               ClearVariable(xlsBook); -- освободить объект книги
             end;
           Finally
             ClearVariable(xlsBooks); -- освободить объект книг
           end;
         Finally
           ClearVariable(xlsApp); -- освободить объект Excel
         end;
       Except
         NoError=False;
         ExportWork=False;
         ClearVariable(xlsRng);
         ClearVariable(xlsSheet);
         ClearVariable(xlsSheets);
         ClearVariable(xlsBook);
         ClearVariable(xlsBooks);
         ClearVariable(xlsApp);
       end;
     fi; -- len>0:
   fi; --NoError
   if NoError:
     ShowProgress(len, "Заключительный этап... ");
     Try
       xlsApp=CreateAutoObject('Excel.Application');
       Try
         Try
           xlsApp.EnableEvents=False;   -- отключить события
           xlsApp.AutomationSecurity=3; -- отключить макросы
           xlsBooks=AsAutoObject(xlsApp.Workbooks); -- получить объект Workbooks
           Try
             xlsBook=AsAutoObject(xlsBooks.Open(xlNameFile));
             Try
               Try
                 xlsSheet=AsAutoObject(xlsBook.Worksheets["0503140 "+Chr(151)+" стр 3"]);
                 Try
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "Руководитель");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlRight, 1,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 4, offsetRow, 5);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, РукФИО);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 7, offsetRow, 9);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 4, offsetRow, 5, False, False, False, True, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 7, offsetRow, 9, False, False, False, True, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 04, "(подпись)");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 4, offsetRow, 5);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, "(расшифровка подписи)");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 7, offsetRow, 9);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 4, offsetRow, 5, True);
                   РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 7, offsetRow, 9, True);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "Главный бухгалтер");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlRight, 1,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 4, offsetRow, 5);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, БухФИО);
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 7, offsetRow, 9);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 4, offsetRow, 5, False, False, False, True, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 7, offsetRow, 9, False, False, False, True, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 04, "(подпись)");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 4, offsetRow, 5);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, "(расшифровка подписи)");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 7, offsetRow, 9);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 4, offsetRow, 5, True);
                   РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 7, offsetRow, 9, True);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуДатуКавычки(xlsSheet, offsetRow, 07, rusExcel, ДАТАИСП, if(ДАТАИСП>1.1.1800, False, True));
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 7, offsetRow, 9);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 7, offsetRow, 9, False, False, False, True, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   if flgОтмт_КО:
                     offsetRow=offsetRow+3;
                     РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "Отметка ответственного исполнителя органа, осуществляющего кассовое обслуживание исполнения бюджета");
                     РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 2, offsetRow, 9);
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlRight,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     offsetRow=offsetRow+2;
                     РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 04, "(должность)");
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 4, offsetRow, 4, True);
                     РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 06, "(подпись)");
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 6, offsetRow, 6, True);
                     РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 08, "(Ф.И.О. исполнителя)");
                     РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 8, offsetRow, 9);
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 8, offsetRow, 9, True);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 4, offsetRow, 4, False, True, False, False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 6, offsetRow, 6, False, True, False, False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 8, offsetRow, 9, False, True, False, False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                     offsetRow=offsetRow+1;
                     РАБ.EXCEL.ЗаписатьЯчейкуДатуКавычки(xlsSheet, offsetRow, 08, rusExcel, 1.1.100, True);
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 08, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 8, offsetRow, 9);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 8, offsetRow, 9, False, False, False, True, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   fi;
                   --
                   NoError=True;
                 Finally
                   ClearVariable(xlsSheet);
                 end;
               Except
                 NoError=False;
                 ExportWork=False;
                 xlsBook.Close(False); -- закрыть книгу без сохранения
               end;
             Finally
               xlsBook.Save;
               xlsBook.Close(False); -- закрыть книгу без сохранения
               ClearVariable(xlsBook); -- освободить объект книги
             end;
           Finally
             ClearVariable(xlsBooks); -- освободить объект книг
           end;
         Finally
           ClearVariable(xlsApp); -- освободить объект Excel
         end;
       Except
         NoError=False;
         ExportWork=False;
         ClearVariable(xlsRng);
         ClearVariable(xlsSheet);
         ClearVariable(xlsSheets);
         ClearVariable(xlsBook);
         ClearVariable(xlsBooks);
         ClearVariable(xlsApp);
       end;
     Finally
      CloseProgress;
     end;
   fi; --NoError
   --
   НачальнаяСтрочка;
   if NoError:
     len=EnqOkCancel("Экспорт завершен!^MВремя работы - "+TimeToHMSstring_adv(Time-начало, ":")+Chr(13)+"Открыть файл экспорта?", mtInformation);
     if len=cmOK:
       xlsApp=CreateAutoObject('Excel.Application');
       Try
         Try
           xlsApp.EnableEvents=False;   -- отключить события
           xlsApp.AutomationSecurity=3; -- отключить макросы
           xlsBooks=AsAutoObject(xlsApp.Workbooks); -- получить объект Workbooks
           Try
             xlsBook=AsAutoObject(xlsBooks.Open(xlNameFile));
             Try
               xlsApp.Visible=True;  -- сделать видимым Excel
             Finally
               ClearVariable(xlsBook); -- освободить объект книги
             end;
           Finally
             ClearVariable(xlsBooks); -- освободить объект книг
           end;
         Finally
           ClearVariable(xlsApp);
         end;
       Except
         ClearVariable(xlsApp);
       end;
     fi;
   fi;
 fi; -- ChooseFolder
end;

Proc Экспорт_Формы;
var num :Integer;
 ClearVariable(Buf);
 Buf[1]="Выгрузка в файл (формат ДФ г.Москвы)";
 Buf[2]="Выгрузка в Excel";
 num=Alternate("Выберите тип выгрузки...", Buf, -1, 1, 12);
 if num=1: Экспорт_TXT_ДФ;
 |  num=2: Экспорт_Excel;
 else Exit;
 fi;
end;

Proc btnOnClick(Sender:String); -- объекты при нажатии
 if Sender="btnClose"    : Close;
 |  Sender="btnРасчет"   : Расчет(False);
 |  Sender="btnExport"   : Экспорт_Формы;
 |  Sender="btnОчистить" : ОчисткаОтчета;
 fi;
end;

Func ГЛВ_БК_Field_OnValidate(Field:String; Iter:Integer; Value:String) :Logical;
 if Field="ГЛВ_БК":
   if not ТолькоЦифры(Value): Message("Поле 'Глава по БК' должно содержать только цифры!", mtWarning); ^False; fi;
   if Value<>"": if Length(Value)<>3: Message("Длина поля 'Глава по БК' – три знака!", mtWarning); ^False; fi; fi;
 fi;
 ^True;
end;

Proc cb_Настройки_OnChange(Sender:String);
 if not flgНастройки:
   if not ПроверкаНастроечныхСчетов:
     flgНастройки=True;
     cb_Настройки.State=True;
   fi;
 fi;
   btnРасчет.Enabled = not flgНастройки;
   btnExport.Enabled = not flgНастройки;
 btnОчистить.Enabled = not flgНастройки;
end;

2-- События шаблона
Proc Template_OnOpen(Create:Logical); -- при открытии шаблона
 РАБ.НАСТР_ПЕЧАТЬ.Cfg(PlanVar("Общие")+"\Настройки\", "ТББ_STD_Album10_000.cfg");
end;

Proc Template_AfterOpen(Create:Logical); -- после открытия шаблона
 Очистить;
 ОчиститьПараметрыСчетов;
 Инициализация;
 if УЧР_НАИМ="": ВзятьРеквизиты(УЧР_SREC, flgДлинаФО, True); fi;
 flgClear=GetGuid;
 Template.Field="Фокус";
end;

Proc Template_OnClose(Destroy:Logical); -- при закрытии шаблона
 Очистить;
 ОчиститьПараметрыСчетов;
 flgClear="";
end;

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