БЛАНКСШАБЛОНОМ "ф.0503164 Сведения о исполнении бюджета";

-- Зона авто-идентификации отчета
Ф_ОКУД: STRING = '0503164';
Ф_ИНСТР_КОД: STRING = '191н';
Ф_РЕД_КОД: STRING = '138н';
Ф_ДЕЙСТВ_С: DATE = 01.01.2014;
Ф_ДЕЙСТВ_ПО: DATE = 1.1.100;
-- конец зоны авто-идентификации отчета

btnРасчет   :Object;
btnПечать   :Object;
btnЗакрыть  :Object;
btnОчистить :Object;
btnВыгрузка :Object;
btnФ0503127 :Object;
cb_Вывод700 :Object;

Buf[]    :String;
УЧР_НАИМ :String;
УЧР_ИНН  :String;
УЧР_SREC :Record;

ДХ_p1:N=[095];
ДХ_p2:N=[100];
РХ_p1:N=[095];
РХ_p2:N=[100];
ДФ_p1:N=[095];
ДФ_p2:N=[100];

var Точн:I=РАБ.ПАРАМ_ОТЧ.Точн;
var ЕдИзм:I=РАБ.ПАРАМ_ОТЧ.ЕдИзм;

var bln:S="ОТЧЕТЫ.БАЛАНС.191Н.0503127";

flgВывод700 :Logical;
var intФмтИОС = 0;

RГ3С010:N;
RГ4С010:N;
var RГ5С010:N=RГ4С010-RГ3С010;

М1:I;
SГ1С020М1[]:S;
SГ2С020М1[]:S; --=if($<100,"0","")+Str(10+$);
RГ3С020М1[]:N;
RГ4С020М1[]:N;
var RГ5С020М1[]:N=RГ4С020М1[$]-RГ3С020М1[$];
SГ6С020М1[]:S;

RГ3С200:N;
RГ4С200:N;
var RГ5С200:N=RГ4С200-RГ3С200;

М2:I;
SГ1С210М2[]:S;
SГ2С210М2[]:S; --=Str(200+$);
RГ3С210М2[]:N;
RГ4С210М2[]:N;
var RГ5С210М2[]:N=RГ4С210М2[$]-RГ3С210М2[$];
SГ6С210М2[]:S;

var RГ3С450:N=RГ3С010-RГ3С200;
var RГ4С450:N=RГ4С010-RГ4С200;

RГ3С500:N;
RГ4С500:N;
var RГ5С500:N=RГ4С500-RГ3С500;

RГ3С520:N;
RГ4С520:N;
var RГ5С520:N=RГ4С520-RГ3С520;

М3:I;
SГ1С530М3[]:S;
SГ2С530М3[]:S; --=Str(500+$);
RГ3С530М3[]:N;
RГ4С530М3[]:N;
var RГ5С530М3[]:N=RГ4С530М3[$]-RГ3С530М3[$];
SГ6С530М3[]:S;

RГ3С620:N;
RГ4С620:N;
RГ5С620:N=RГ4С620-RГ3С620;

М4:I;
SГ1С630М4[]:S;
SГ2С630М4[]:S; --=Str(500+$);
RГ3С630М4[]:N;
RГ4С630М4[]:N;
var RГ5С630М4[]:N=RГ4С630М4[$]-RГ3С630М4[$];
SГ6С630М4[]:S;

RГ1С710:S;
RГ1С720:S;
RГ3С700:N;
RГ4С700:N;
var RГ5С700:N=RГ4С700-RГ3С700;
RГ3С710:N;
RГ4С710:N;
var RГ5С710:N=RГ4С710-RГ3С710;
RГ3С720:N;
RГ4С720:N;
var RГ5С720:N=RГ4С720-RГ3С720;

var RГ66С020М1[]=RГ4С020М1[$]*100/RГ3С020М1[$];
var RГ66С210М2[]=RГ4С210М2[$]*100/RГ3С210М2[$];
var RГ66С530М3[]=RГ4С530М3[$]*100/RГ3С530М3[$];
var RГ66С630М4[]=RГ4С630М4[$]*100/RГ3С630М4[$];
var RГ66С010=RГ4С010*100/RГ3С010;
var RГ66С200=RГ4С200*100/RГ3С200;
var RГ66С500=RГ4С500*100/RГ3С500;
var RГ66С520=RГ4С520*100/RГ3С520;
var RГ66С620=RГ4С620*100/RГ3С620;
var RГ66С700=RГ4С700*100/RГ3С700;
var RГ66С710=RГ4С710*100/RГ3С710;
var RГ66С720=RГ4С720*100/RГ3С720;

var Key[]:S;

S1: Section;
S2: Section;
S3: Section;
S4: Section;
S5: Section;
S6: Section;
S7: Section;
S8: Section;
S9: Section;
--
--Процедуры и функции -------------
Proc ПрисвоитьТочность;
var Obj:Object;
var cf:S;
var s,c,r,cc,rr:i;
 cf=",##0."+if(Точн<1,"",RepStr("0",Точн))+";;-";
 for s=1..9 do
   if FindObject("S"+Str(S),Obj):
      cc=AsInteger(Obj.ColsCount);
      rr=AsInteger(Obj.RowsCount);
      for r=1..rr do
       for c=1..cc do
        if Match(AsString(Obj.Cell(r,c,CellContents,"")),"R*") and not c=6: Obj.Cell(r,c,CellFormat,cf); fi;
       od;
      od;
   fi;
 od;
end;

Proc Очистить;
 ClearVariable(Buf);
 ClearVariable(RГ3С010);
 ClearVariable(RГ4С010);
 ClearVariable(RГ5С010);
 ClearVariable(М1);
 ClearVariable(SГ1С020М1);
 ClearVariable(SГ2С020М1);
 ClearVariable(RГ3С020М1);
 ClearVariable(RГ4С020М1);
 ClearVariable(SГ6С020М1);
 ClearVariable(RГ3С200);
 ClearVariable(RГ4С200);
 ClearVariable(RГ5С200);
 ClearVariable(М2);
 ClearVariable(SГ1С210М2);
 ClearVariable(SГ2С210М2);
 ClearVariable(RГ3С210М2);
 ClearVariable(RГ4С210М2);
 ClearVariable(SГ6С210М2);
 ClearVariable(RГ3С500);
 ClearVariable(RГ4С500);
 ClearVariable(RГ5С500);
 ClearVariable(RГ3С520);
 ClearVariable(RГ4С520);
 ClearVariable(RГ5С520);
 ClearVariable(RГ3С620);
 ClearVariable(RГ4С620);
 ClearVariable(RГ5С620);
 ClearVariable(М3);
 ClearVariable(SГ1С530М3);
 ClearVariable(SГ2С530М3);
 ClearVariable(RГ3С530М3);
 ClearVariable(RГ4С530М3);
 ClearVariable(SГ6С530М3);
 ClearVariable(М4);
 ClearVariable(SГ1С630М4);
 ClearVariable(SГ2С630М4);
 ClearVariable(RГ3С630М4);
 ClearVariable(RГ4С630М4);
 ClearVariable(SГ6С630М4);
end;

Proc Расчет_ (sVal3:S; sVal4:S; sVal5:S; sValМ:S; sVal1М:S; sVal3М:S; sVal4М:S; sVal5М:S; tVal3:S; tVal4:S; tVal5:S; tValМ:S; tVal1М:S; tVal3М:S; tVal4М:S; p:i);
var nn,n,z:I;
var v1:S;
var v3,v4:N;
var ТипСч,Value:S;
 if sValМ="М1": ТипСч="КД";   Value="ЭЛ";
   |sValМ="М2": ТипСч="КР";   Value="ЦС";
   |sValМ="М3": ТипСч="КИФД"; Value="ПРГ";
   |sValМ="М4": ТипСч="КИФД"; Value="ПРГ";
 fi;
 nn=GetVariableI(bln+"."+sValМ);
 ShowProgress(nn*4,"Расчет...");
 ProgressPos(nn*p);
 PutVariableN(tVal3,GetVariableN(bln+"."+sVal3));
 PutVariableN(tVal4,GetVariableN(bln+"."+sVal4));
 PutVariableN(tVal5,GetVariableN(bln+"."+sVal5)*(-1));
 for n=1..nn do
  ProgressPos(nn*p+n);
  v1=GetVariableS(bln+"."+sVal1М+"["+Str(n)+"]");
  if not v1="":
     v1=GetVariableS(bln+"."+sVal1М+"["+Str(n)+"]");
     v1=Раб.Бюджет2005.ВзятьКодКБК(v1,ТипСч,Value,True);
     v1=v1+if(ТипСч="КР":".000.000"|ТипСч="КД":".0000.000"|ТипСч="КИФД":".000"|True:"");
     v3=GetVariableN(bln+"."+sVal3М+"["+Str(n)+"]");
     v4=GetVariableN(bln+"."+sVal4М+"["+Str(n)+"]");
     z=SearchInArray(Key,v1,True);
     if z=-1:
        z=InsertInArraySort(Key,v1);
        if tValМ="М1": InsertFrame(М1,z);
          |tValМ="М2": InsertFrame(М2,z);
          |tValМ="М3": InsertFrame(М3,z);
          |tValМ="М4": InsertFrame(М4,z);
        fi;
        PutVariableS(tVal1М+"["+Str(z)+"]",v1);
        PutVariableN(tVal3М+"["+Str(z)+"]",v3);
        PutVariableN(tVal4М+"["+Str(z)+"]",v4);
       else
        v3=v3+GetVariableN(tVal3М+"["+Str(z)+"]");
        v4=v4+GetVariableN(tVal4М+"["+Str(z)+"]");
        PutVariableN(tVal3М+"["+Str(z)+"]",v3);
        PutVariableN(tVal4М+"["+Str(z)+"]",v4);
     fi;
  fi;
 od;
 if ТипСч="КД":
    n=1;
    While n<=М1 do
     if not (Round(RГ66С020М1[n],1)<ДХ_p1 or Round(RГ66С020М1[n],1)>ДХ_p2):
        DeleteFrame(М1,n);
       else
        n=n+1;
     fi;
    od;
 fi;
 if ТипСч="КР":
    n=1;
    While n<=М2 do
     if not (Round(RГ66С210М2[n],1)<РХ_p1 or Round(RГ66С210М2[n],1)>РХ_p2):
        DeleteFrame(М2,n);
       else
        n=n+1;
     fi;
    od;
 fi;
 if ТипСч="КИФД":
    n=1;
    While n<=М3 do
     if not (Round(RГ66С530М3[n],1)<ДФ_p1 or Round(RГ66С530М3[n],1)>ДФ_p2):
        DeleteFrame(М3,n);
       else
        n=n+1;
     fi;
    od;
    n=1;
    While n<=М4 do
     if not (Round(RГ66С630М4[n],1)<ДФ_p1 or Round(RГ66С630М4[n],1)>ДФ_p2):
        DeleteFrame(М4,n);
       else
        n=n+1;
     fi;
    od;
 fi;
 ProgressPos(nn*p+1);
end;

Proc Расчет500строк;

 Try PutVariableN("RГ3С500", GetVariableN(bln+"."+"RГ4С500")); Except end;
 Try PutVariableN("RГ4С500", GetVariableN(bln+"."+"RГ8С500")); Except end;

end;

Proc Расчет700строк;

 Try PutVariableS("RГ1С710", GetVariableS(bln+"."+"SГ3С710")); Except end;
 Try PutVariableS("RГ1С720", GetVariableS(bln+"."+"SГ3С720")); Except end;

 Try PutVariableN("RГ3С700", GetVariableN(bln+"."+"RГ4С700")); Except end;
 Try PutVariableN("RГ3С710", GetVariableN(bln+"."+"RГ4С710")); Except end;
 Try PutVariableN("RГ3С720", GetVariableN(bln+"."+"RГ4С720")); Except end;

 Try PutVariableN("RГ4С700", GetVariableN(bln+"."+"RГ8С700")); Except end;
 Try PutVariableN("RГ4С710", GetVariableN(bln+"."+"RГ8С710")); Except end;
 Try PutVariableN("RГ4С720", GetVariableN(bln+"."+"RГ8С720")); Except end;

end;

Proc Расчет;
 Очистить;
 Try
  ClearVariable(Key);
  Расчет_("RГ4С010","RГ8С010","RГ9С010", "М1","SГ3С020М1","RГ4С020М1","RГ8С020М1","RГ9С020М1", "RГ3С010","RГ4С010","RГ5С010","М1","SГ1С020М1","RГ3С020М1","RГ4С020М1",0);
  ClearVariable(Key);
  Расчет_("RГ5С200","RГ9С200","RГ11С200","М2","SГ3С210М2","RГ5С210М2","RГ9С210М2","RГ11С210М2","RГ3С200","RГ4С200","RГ5С200","М2","SГ1С210М2","RГ3С210М2","RГ4С210М2",1);
  Расчет500строк;
  ClearVariable(Key);
  Расчет_("RГ4С520","RГ8С520","RГ9С520", "М3","SГ3С520М3","RГ4С520М3","RГ8С520М3","RГ9С520М3", "RГ3С520","RГ4С520","RГ5С520","М3","SГ1С530М3","RГ3С530М3","RГ4С530М3",2);
  ClearVariable(Key);
  Расчет_("RГ4С620","RГ8С620","RГ9С620", "М4","SГ3С620М4","RГ4С620М4","RГ8С620М4","RГ9С620М4", "RГ3С620","RГ4С620","RГ5С620","М4","SГ1С630М4","RГ3С630М4","RГ4С630М4",3);
  Расчет700строк;
 Finally
  CloseProgress;
 end;
 Message("Расчет завершен");
end;

Proc УбратьЛишниеСтроки;
var jj :Integer;
 jj=1;
 while jj<=М1 do
   if Trim(SГ1С020М1[jj])="" or (RГ3С020М1[jj]=0.00 and RГ4С020М1[jj]=0.00): Try DeleteFrame(М1, jj); Except end; else jj=jj+1; fi;
 od;
 jj=1;
 while jj<=М2 do
   if Trim(SГ1С210М2[jj])="" or (RГ3С210М2[jj]=0.00 and RГ4С210М2[jj]=0.00): Try DeleteFrame(М2, jj); Except end; else jj=jj+1; fi;
 od;
 jj=1;
 while jj<=М3 do
   if Trim(SГ1С530М3[jj])="" or (RГ3С530М3[jj]=0.00 and RГ4С530М3[jj]=0.00): Try DeleteFrame(М3, jj); Except end; else jj=jj+1; fi;
 od;
 jj=1;
 while jj<=М4 do
   if Trim(SГ1С630М4[jj])="" or (RГ3С630М4[jj]=0.00 and RГ4С630М4[jj]=0.00): Try DeleteFrame(М4, jj); Except end; else jj=jj+1; fi;
 od;
Template.Object="btnРасчет";
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 ЕстьДанныеДляВыгрузки :Logical;
 if Trim(SГ1С020М1[1])<>"" and (Abs(RГ3С020М1[1])+Abs(RГ4С020М1[1]))>0.00: ^True; fi;
 if Trim(SГ1С210М2[1])<>"" and (Abs(RГ3С210М2[1])+Abs(RГ4С210М2[1]))>0.00: ^True; fi;
 if Trim(SГ1С530М3[1])<>"" and (Abs(RГ3С530М3[1])+Abs(RГ4С530М3[1]))>0.00: ^True; fi;
 if Trim(SГ1С630М4[1])<>"" and (Abs(RГ3С630М4[1])+Abs(RГ4С630М4[1]))>0.00: ^True; fi;
 ^False;
end;

Func ЗаписатьСтрокуКодаРаздела(КБК:String) :String;
 if Match(КБК, "???.?.??.?????.??.????.???") or Match(КБК, "???.?.??.?????.??.????"):
 --КД+КОСГУ     123456789012345678901234567890
   ^(SubStr(КБК, 1, 3)+"|"+SubStr(КБК, 5, 1)+SubStr(КБК, 7, 2)+SubStr(КБК, 10, 5)+SubStr(КБК, 16, 2));
 |  Match(КБК, "???.????.???????.???.???") or Match(КБК, "???.????.???????.???"):
 --КР+КОСГУ     123456789012345678901234567890
   ^(SubStr(КБК, 1, 3)+"|"+SubStr(КБК, 5, 4)+"|"+SubStr(КБК, 10, 7));
 |  Match(КБК, "???.??.??.??.??.??.????.???") or  Match(КБК, "???.??.??.??.??.??.????"):
 --ДБ+КОСГУ     123456789012345678901234567890
   ^(SubStr(КБК, 1, 3)+"|"+SubStr(КБК, 5, 2)+SubStr(КБК, 8, 2)+SubStr(КБК, 11, 2)+SubStr(КБК, 14, 2)+SubStr(КБК, 17, 2)+SubStr(КБК, 20, 4));
 else ^"";
 fi;
end;

Func ЗаписатьСтрокуЦифрРаздела(SumГР4:Numeric; SumГР5:Numeric; SumГР6:Numeric; PerГР7:Numeric) :String;
 ^(if(SumГР4<>0.00, Str(SumГР4, 2), "0")+"|"+if(SumГР5<>0.00, Str(SumГР5, 2), "0")+"|"+if(SumГР6<>0.00, Str(SumГР6, 2), "0")+"|"+if(PerГР7<>0.00, Str(PerГР7, 2), "0"));
end;

Func ИзменениеОстатковСредств_КодПоФормату(кодИОС:String; numfmt:Integer) :String;
var Value :String;
 Value="";
 if numfmt=0: Value="000."+ExtractWords(2, 1, кодИОС, ".")+".00.00.00.00.0000.000";
 |  numfmt=1: Value="000."+ExtractWords(2, 2, кодИОС, ".")+   ".00.00.00.0000.000";
 |  numfmt=2: Value="000."+ExtractWords(2, 3, кодИОС, ".")+      ".00.00.0000.000";
 |  numfmt=3: Value="000."+ExtractWords(2, 4, кодИОС, ".")+         ".00.0000.000";
 |  numfmt=4: Value="000."+ExtractWords(2, 5, кодИОС, ".")+            ".0000.000";
 |  numfmt=5: Value="000."+ExtractWords(2, 6, кодИОС, ".")+                 ".000";
 fi;
 ^Value;
end;

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

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

 if ChooseFolder(Путь, "Выберите папку для сохранения файла выгрузки...")=cmOk:

    nameFile=Путь+"164"+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, "КОДФ=164");
      -- Записываем данные 1 раздела
      TextFileWriteLn(FS, "ТБ=01");
      Value="000|8500000000|010|"+ЗаписатьСтрокуЦифрРаздела(RГ3С010, RГ4С010, RГ5С010, RГ66С010)+"|"; -- строка итогов 1 раздела
      TextFileWriteLn(FS, Value);
      num=М1;
      if num>0:
        for ii=1 to num do
          Value=ЗаписатьСтрокуКодаРаздела(SГ1С020М1[ii])+"|010|"+ЗаписатьСтрокуЦифрРаздела(RГ3С020М1[ii], RГ4С020М1[ii], RГ5С020М1[ii], RГ66С020М1[ii])+"|";
          TextFileAppendLn(FS, Value);
          TextFileAppendLn(FS, Trim(SГ6С020М1[ii]));
          TextFileWriteLn(FS, "");
        od;
      fi;
      -- Записываем данные 2 раздела
      TextFileWriteLn(FS, "ТБ=02");
      Value="000|9600|0000000|200|"+ЗаписатьСтрокуЦифрРаздела(RГ3С200, RГ4С200, RГ5С200, RГ66С200)+"|"; -- строка итогов 2 раздела
      TextFileWriteLn(FS, Value);
      num=М2;
      if num>0:
        for ii=1 to num do
          Value=ЗаписатьСтрокуКодаРаздела(SГ1С210М2[ii])+"|200|"+ЗаписатьСтрокуЦифрРаздела(RГ3С210М2[ii], RГ4С210М2[ii], RГ5С210М2[ii], RГ66С210М2[ii])+"|";
          TextFileAppendLn(FS, Value);
          TextFileAppendLn(FS, Trim(SГ6С210М2[ii]));
          TextFileWriteLn(FS, "");
        od;
      fi;
      Value="000|7900|0000000|450|"+ЗаписатьСтрокуЦифрРаздела(RГ3С450, RГ4С450, RГ4С450-RГ3С450, Round(RГ4С450*100/RГ3С450, 2))+"|"; -- строка результат исполнения бюджета (дефицит/профицит) 2 раздела
      TextFileWriteLn(FS, Value);
      -- Записываем данные 3 раздела
      TextFileWriteLn(FS, "ТБ=03");
      Value="000|90000000000000|500|"+ЗаписатьСтрокуЦифрРаздела(RГ3С500, RГ4С500, RГ5С500, RГ66С500)+"|"; -- строка итогов 1 раздела
      TextFileWriteLn(FS, Value);
      num=М3;
      if num>0 and Trim(SГ1С530М3[1])<>"":
        Value="000|01000000000000|520|"+ЗаписатьСтрокуЦифрРаздела(RГ3С520, RГ4С520, RГ5С520, RГ66С520)+"|";
        TextFileWriteLn(FS, Value);
        for ii=1 to num do
          Value=ЗаписатьСтрокуКодаРаздела(SГ1С530М3[ii])+"|520|"+ЗаписатьСтрокуЦифрРаздела(RГ3С530М3[ii], RГ4С530М3[ii], RГ5С530М3[ii], RГ66С530М3[ii])+"|";
          TextFileAppendLn(FS, Value);
          TextFileAppendLn(FS, Trim(SГ6С530М3[ii]));
          TextFileWriteLn(FS, "");
        od;
      fi;
      num=М4;
      if num>0 and Trim(SГ1С630М4[1])<>"":
        Value="000|02000000000000|620|"+ЗаписатьСтрокуЦифрРаздела(RГ3С620, RГ4С620, RГ5С620, RГ66С620)+"|";
        TextFileWriteLn(FS, Value);
        for ii=1 to num do
          Value=ЗаписатьСтрокуКодаРаздела(SГ1С630М4[ii])+"|620|"+ЗаписатьСтрокуЦифрРаздела(RГ3С630М4[ii], RГ4С630М4[ii], RГ5С630М4[ii], RГ66С630М4[ii])+"|";
          TextFileAppendLn(FS, Value);
          TextFileAppendLn(FS, Trim(SГ6С630М4[ii]));
          TextFileWriteLn(FS, "");
        od;
      fi;
      if flgВывод700 and Abs(RГ5С700)>0.00:
        Value=ЗаписатьСтрокуКодаРаздела(ИзменениеОстатковСредств_КодПоФормату(RГ1С710, 0))+"|700|"+ЗаписатьСтрокуЦифрРаздела(RГ3С700, RГ4С700, RГ5С700, RГ66С700)+"|";
        TextFileWriteLn(FS, Value);
        Value=ЗаписатьСтрокуКодаРаздела(ИзменениеОстатковСредств_КодПоФормату(RГ1С710, 5))+"|710|"+ЗаписатьСтрокуЦифрРаздела(RГ3С710, RГ4С710, RГ5С710, RГ66С710)+"|";
        TextFileWriteLn(FS, Value);
        Value=ЗаписатьСтрокуКодаРаздела(ИзменениеОстатковСредств_КодПоФормату(RГ1С720, 5))+"|720|"+ЗаписатьСтрокуЦифрРаздела(RГ3С720, RГ4С720, RГ5С720, RГ66С720)+"|";
        TextFileWriteLn(FS, Value);
      fi;
      TextFileClose(FS);
      if ExistFile(nameFile): if EnqOkCancel("Открыть созданный файл выгрузки?", mtInformation)=cmOK: OpenEditor(nameFile); fi; fi;
    Except
      ЗакрытьФайлПоОшибке(FS, FlagCreate, nameFile);
      Raise;
    end;

 fi; -- ChooseFolder

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;

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

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

 rusExcel=False;
 localDS="";
 localTS="";
 NoError=True;
 maxIterCount=300;
 kol=0;
 if ChooseFolder(xlNameFolder, "Выберите папку для сохранения файла экспорта...")=cmOK:
   начало=Time;
   xlNameFile=xlNameFolder+"ExportExcel0503164_"+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 или старше
   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<0:
                   Try
                     Try xlsSheet=AsAutoObject(xlsSheets.Add); Finally ClearVariable(xlsSheet); end;
                   Except
                     ClearVariable(xlsSheet);
                     Raise;
                   end;
                 fi;
                 kol=kol+1;
                 xlsSheet=AsAutoObject(xlsBook.Worksheets[kol]);
                 Try
                   xlsSheet.Name = "0503164";
                   ShowProgress(23, "Формируем титул...");
                   offsetRow=0;
                   ProgressPos(1);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 01, 22.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 02, 04.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 03, 12.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 04, 12.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 05, 12.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 06, 08.0);
                   РАБ.EXCEL.УстановитьШиринуСтолбцаСимвол(xlsSheet, 07, 22.0);
                   ProgressPos(2);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 05, "Код формы по ОКУД");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 05, offsetRow, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight, 1, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, "0503164");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Courier New", 10, 0, True, False, False, 0, True);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 07, offsetRow, 07, True, True, True, True, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   ProgressPos(3);
                   offsetRow=offsetRow+2;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "СВЕДЕНИЯ О ИСПОЛНЕНИИ БЮДЖЕТА");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 02, offsetRow, 06);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 10, 0, True, True, False, 0, True);
                   ProgressPos(4);
                   РАБ.EXCEL.PrintSetup_ЧБ_Поля10(xlsApp, xlsSheet, True, 0, 0, 0, 0, True, False, True, 99);
                   РАБ.EXCEL.PrintSetup_Колонтитулы(xlsSheet, rusExcel, "");
                   --
                   offsetRow=offsetRow+2;
                   ProgressPos(5);
                   РАБ.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);
                   ProgressPos(6);
                   РАБ.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);
                   ProgressPos(7);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 03, "Утвержденные бюджетные назначения");
                   РАБ.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);
                   ProgressPos(8);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 04, "Исполнено, руб");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 04, offsetRow+1, 04);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(9);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 05, "Показатели исполнения");
                   РАБ.EXCEL.ОбъединитьЯчейкиДиапазона(xlsSheet, offsetRow, 05, offsetRow, 07);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(10);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 05, "не исполненно"+Chr(10)+"сумма, руб"+Chr(10)+"(гр.4 - гр.3)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 05, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(11);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 06, "процент исполнения, %");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 06, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(12);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow+1, 07, "причины отклонений от планового процента исполнения");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow+1, 07, РАБ.EXCEL.xlCenter,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 09, 0, True, False, False, 0, True);
                   ProgressPos(13);
                   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);
                   ProgressPos(14);
                   РАБ.EXCEL.НадстрочноеНачертаниеДиапазона(xlsSheet, offsetRow, 1, offsetRow, 7, True);
                   ProgressPos(15);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "1. Доходы, всего");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(16);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "010");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(17);
                   if  RГ3С010<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03,  RГ3С010, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(18);
                   if  RГ4С010<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04,  RГ4С010, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(19);
                   if  RГ5С010<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05,  RГ5С010, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(20);
                   if RГ66С010<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С010, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(21);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "из них");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(22);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-4, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-1, 1, offsetRow, 6, True,   True,  True,  False, False,  False,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   ProgressPos(23);
                   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
   len=М1;
   if NoError:
     if len>0:
       ShowProgress(len, "Формируем таблицу (часть 1)...");
       Try
         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["0503164"]);
                       Try
                         for ii=IterSave to len do
                           ProgressPos(ii);
                           offsetRow=offsetRow+1;
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, SГ1С020М1[ii]);
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "010");
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ3С020М1[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03,  RГ3С020М1[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ4С020М1[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04,  RГ4С020М1[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ5С020М1[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05,  RГ5С020М1[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ66С020М1[ii]<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С020М1[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter,  0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, SГ6С020М1[ii]);
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlLeft,    0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           --
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 6, 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;
                         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["0503164"]);
                 Try
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "010");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0, РАБ.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.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlLeft,   0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   --
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 6, True,  False,  True,  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(8, "Формируем таблицу (часть 2.1)...");
     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["0503164"]);
                 Try
                   ProgressPos(1);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "2. Расходы, всего");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(2);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "200");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(3);
                   if  RГ3С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03,  RГ3С200, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(4);
                   if  RГ4С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04,  RГ4С200, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(5);
                   if  RГ5С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05,  RГ5С200, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(6);
                   if RГ66С200<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С200, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(7);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "из них");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(8);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-1, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-1, 1, offsetRow, 6, True,   False,  True,  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;
     Finally
      CloseProgress;
     end;
   fi; --NoError
   len=М2;
   if NoError:
     if len>0:
       ShowProgress(len, "Формируем таблицу (часть 2.2)...");
       Try
         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["0503164"]);
                       Try
                         for ii=IterSave to len do
                           ProgressPos(ii);
                           offsetRow=offsetRow+1;
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, SГ1С210М2[ii]);
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "200");
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ3С210М2[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03,  RГ3С210М2[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ4С210М2[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04,  RГ4С210М2[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ5С210М2[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05,  RГ5С210М2[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ66С210М2[ii]<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С210М2[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter,  0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, SГ6С210М2[ii]);
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlLeft,    0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           --
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 6, 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;
                         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["0503164"]);
                 Try
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "200");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0, РАБ.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.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlLeft,   0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   --
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 6, True,  False,  True,  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(21, "Формируем таблицу (часть 3.1)...");
     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["0503164"]);
                 Try
                   ProgressPos(1);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "Результат исполнения бюджета (дефицит/профицит)");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(2);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "450");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(3);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 03, "X");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(4);
                   if  RГ4С450<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04, RГ4С450, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(5);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 05, "X");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(6);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 06, "X");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(7);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "3. Источники финансирования дефицитов бюджетов, всего");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(8);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "500");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(9);
                   if  RГ3С500<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03,  RГ3С500, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(10);
                   if  RГ4С500<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04,  RГ4С500, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(11);
                   if  RГ5С500<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05,  RГ5С500, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(12);
                   if RГ66С500<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С500, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(13);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "в том числе:");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,  1,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(14);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "источники внутреннего финансирования бюджета");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(15);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "520");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(16);
                   if  RГ3С520<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03,  RГ3С520, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(17);
                   if  RГ4С520<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04,  RГ4С520, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(18);
                   if  RГ5С520<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05,  RГ5С520, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(19);
                   if RГ66С520<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С520, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(20);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "из них");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(21);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-4, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-4, 1, offsetRow, 6, True,   False,  True,  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;
     Finally
      CloseProgress;
     end;
   fi; --NoError
   len=М3;
   if NoError:
     if len>0:
       ShowProgress(len, "Формируем таблицу (часть 3.2)...");
       Try
         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["0503164"]);
                       Try
                         for ii=IterSave to len do
                           ProgressPos(ii);
                           offsetRow=offsetRow+1;
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, SГ1С530М3[ii]);
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "520");
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ3С530М3[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03,  RГ3С530М3[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ4С530М3[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04,  RГ4С530М3[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ5С530М3[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05,  RГ5С530М3[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ66С530М3[ii]<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С530М3[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter,  0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, SГ6С530М3[ii]);
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlLeft,    0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           --
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 6, 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;
                         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["0503164"]);
                 Try
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "520");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0, РАБ.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.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlLeft,   0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   --
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 6, True,  False,  True,  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(8, "Формируем таблицу (часть 4.1)...");
     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["0503164"]);
                 Try
                   ProgressPos(1);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "источники внешнего финансирования дефицита бюджета");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(2);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "620");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(3);
                   if  RГ3С620<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03,  RГ3С620, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(4);
                   if  RГ4С620<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04,  RГ4С620, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(5);
                   if  RГ5С620<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05,  RГ5С620, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(6);
                   if RГ66С620<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С620, localDS, localTS); fi;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                   ProgressPos(7);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "из них");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,  2,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   ProgressPos(8);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-4, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow-4, 1, offsetRow, 6, True,   False,  True,  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;
     Finally
      CloseProgress;
     end;
   fi; --NoError
   len=М4;
   if NoError:
     if len>0:
       ShowProgress(len, "Формируем таблицу (часть 4.2)...");
       Try
         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["0503164"]);
                       Try
                         for ii=IterSave to len do
                           ProgressPos(ii);
                           offsetRow=offsetRow+1;
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, SГ1С630М4[ii]);
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "620");
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ3С630М4[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03,  RГ3С630М4[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ4С630М4[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04,  RГ4С630М4[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ5С630М4[ii]<>0.00:  РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05,  RГ5С630М4[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           if RГ66С630М4[ii]<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С630М4[ii], localDS, localTS); fi;
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter,  0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 07, SГ6С630М4[ii]);
                           РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlLeft,    0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                           --
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                           РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 6, 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;
                         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["0503164"]);
                 Try
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "620");
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0, РАБ.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.xlCenter, 0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 07, РАБ.EXCEL.xlLeft,   0, РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                   --
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 6, True,  False,  True,  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(23, "Заключительный этап... ");
     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["0503164"]);
                 Try
                   if flgВывод700:
                     ProgressPos(1);
                     offsetRow=offsetRow+1;
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet, offsetRow, 1, offsetRow, 6, True,  False,  True,  False, False,  False,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                     ProgressPos(2);
                     offsetRow=offsetRow+1;
                     РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "Изменение остатков средств");
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     ProgressPos(3);
                     РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "700");
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     ProgressPos(4);
                     if  RГ3С700<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 03,  RГ3С700, localDS, localTS); fi;
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 03, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                     ProgressPos(5);
                     if  RГ4С700<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 04,  RГ4С700, localDS, localTS); fi;
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 04, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                     ProgressPos(6);
                     if  RГ5С700<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 05,  RГ5С700, localDS, localTS); fi;
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 05, РАБ.EXCEL.xlRight,  0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                     ProgressPos(7);
                     if RГ66С700<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С700, localDS, localTS); fi;
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                     ProgressPos(8);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 1, offsetRow, 6, True,   False,  True,  False, False,  False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                     ProgressPos(9);
                     offsetRow=offsetRow+1;
                     РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "увеличение остатков средств");
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     ProgressPos(10);
                     РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "710");
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     ProgressPos(11);
                     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, True,  False, 0, True);
                     ProgressPos(12);
                     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, True,  False, 0, True);
                     ProgressPos(13);
                     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, True,  False, 0, True);
                     ProgressPos(14);
                     if RГ66С710<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С710, localDS, localTS); fi;
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                     ProgressPos(15);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 1, offsetRow, 6, True,   False,  True,  False, False,  False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                     ProgressPos(16);
                     offsetRow=offsetRow+1;
                     РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 01, "уменьшение остатков средств");
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 01, РАБ.EXCEL.xlLeft,   0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     ProgressPos(17);
                     РАБ.EXCEL.ЗаписатьЯчейкуТекст(xlsSheet, offsetRow, 02, "720");
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 02, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, False, False, 0, True);
                     ProgressPos(18);
                     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, True,  False, 0, True);
                     ProgressPos(19);
                     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, True,  False, 0, True);
                     ProgressPos(20);
                     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, True,  False, 0, True);
                     ProgressPos(21);
                     if RГ66С720<>0.00: РАБ.EXCEL.ЗаписатьЯчейкуЧисло(xlsSheet, offsetRow, 06, RГ66С720, localDS, localTS); fi;
                     РАБ.EXCEL.ФорматироватьЯчейку(xlsSheet, offsetRow, 06, РАБ.EXCEL.xlCenter, 0,  РАБ.EXCEL.xlCenter, True, "Arial", 08, 0, True, True,  False, 0, True);
                     ProgressPos(22);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 1, offsetRow, 7, False,  True,  False,  True,  True,   True,  False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                     РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 1, offsetRow, 6, True,   False,  True,  False, False,  False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlMedium);
                   fi;
                   ProgressPos(23);
                   offsetRow=offsetRow+1;
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 7, offsetRow, 7, False, True, False, False, False, False, False, False, РАБ.EXCEL.xlContinuous, РАБ.EXCEL.xlThin);
                   РАБ.EXCEL.УстановитьВсеГраницыДиапазонаИвнутри(xlsSheet,  offsetRow, 1, offsetRow, 6, 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;
     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 ВзятьРеквизиты(saveREC:Record; 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, "ИНН");
            УЧР_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, "ИНН");
        УЧР_SREC = REC;
     fi;
   Finally
     CloseWorkArea(RO);
   end;
 fi;
end;

--Процедуры и функции -------------
--
--
--Обработчики событий полей шаблона-----
Func УЧР_НАИМ_OnEnter(FieldName: String; Iter: Integer): logical;
 ВзятьРеквизиты(УЧР_SREC, False);
 ^False;
end;

Proc УЧР_НАИМ_OnExit(FieldName: String; Iter: Integer);
 if УЧР_НАИМ="": УЧР_ИНН=""; fi;
end;

Func РХ_p_OnVerify(FieldName: String; Iter: Integer; Value: N):L;
 if Value<0: Message("Значение должно быть больше 0",mtError); ^False; fi;
 Return True;
end;

Proc РХ_p_OnExit(FieldName: String; Iter: Integer);
 Очистить;
end;
--Обработчики событий полей шаблона-----
--
--Обработчики событий объектов шаблона-----
Proc btnРасчет_OnClick(Sender: String);
 if not BlankExist(bln): Message("Бланк "+bln+" не найден",mtError); Exit; fi;
 if РХ_p1>РХ_p2: Message("",mtError); fi;
 Расчет;
 ПрисвоитьТочность;
end;

Proc btnПечать_OnClick(Sender: String);
 Раб.Настр_Печать.Prn("","","ТББ.ОТЧЕТЫ.БАЛАНС.128Н.0503164.000.cfg","",1);
end;

Proc btnОчистить_OnClick(Sender: String);
 if EnqOkCancel("Форма будет очищена. Продолжить ?",mtWarning)=cmOk: Очистить; fi;
end;

Proc btnВыгрузка_OnClick(Sender: String);
 Экспорт_Формы;
end;

Proc btnФ0503127_OnClick(Sender: String);
 OpenBlank(bln,False);
end;

Proc btnЗакрыть_OnClick(Sender: String);
  Close;
end;
--Обработчики событий объектов шаблона-----
--
--
--Обработчики событий шаблона -----
Proc AfterOpen(Destroy: Logical);
 ПрисвоитьТочность;
 if УЧР_НАИМ="": ВзятьРеквизиты(УЧР_SREC, True); fi;
 flgВывод700=False;
end;

Proc OnOpen(Create: Logical);
 Раб.Настр_Печать.Cfg("","ТББ.ОТЧЕТЫ.БАЛАНС.128Н.0503164.000.cfg");
end;
--Обработчики событий шаблона -----
--

КОНЕЦ
