БЛАНКСШАБЛОНОМ "ф.0503161 Сведения о количестве подведомственных учреждений";

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

2--Общие переменные-----

М1:I;S1:Section;

SГ1С100М1[]:String;
IГ3С100М1[]:Integer;
IГ4С100М1[]:Integer;
IГ5С100М1[]:Integer;
IГ7С100М1[]:Integer;
IГ8С100М1[]:Integer;
IГ10С100М1[]:Integer;
IГ11С100М1[]:Integer;
IГ12С100М1[]:Integer;
IГ14С100М1[]:Integer;
IГ15С100М1[]:Integer;
SГ16С100М1[]:String;

var IГ6С100М1[]:I=IГ3С100М1[$]+IГ4С100М1[$]+IГ5С100М1[$];
var IГ2С100М1[]:I=IГ6С100М1[$]+IГ7С100М1[$]+IГ8С100М1[$];
var IГ13С100М1[]:I=IГ10С100М1[$]+IГ11С100М1[$]+IГ12С100М1[$];
var IГ9С100М1[]:I=IГ13С100М1[$]+IГ14С100М1[$]+IГ15С100М1[$];

IГ3С200:I=SumOfArray(IГ3С100М1);
IГ4С200:I=SumOfArray(IГ4С100М1);
IГ5С200:I=SumOfArray(IГ5С100М1);
IГ7С200:I=SumOfArray(IГ7С100М1);
IГ8С200:I=SumOfArray(IГ8С100М1);

IГ6С200:I=IГ3С200+IГ4С200+IГ5С200;
IГ2С200:I=IГ6С200+IГ7С200+IГ8С200;

IГ10С200:I=SumOfArray(IГ10С100М1);
IГ11С200:I=SumOfArray(IГ11С100М1);
IГ12С200:I=SumOfArray(IГ12С100М1);
IГ14С200:I=SumOfArray(IГ14С100М1);
IГ15С200:I=SumOfArray(IГ15С100М1);

IГ13С200:I=IГ10С200+IГ11С200+IГ12С200;
IГ9С200:I=IГ13С200+IГ14С200+IГ15С200;


Proc Очистить;
 ClearVariable(SГ1С100М1);
 ClearVariable(IГ3С100М1);
 ClearVariable(IГ4С100М1);
 ClearVariable(IГ5С100М1);
 ClearVariable(IГ7С100М1);
 ClearVariable(IГ8С100М1);
 ClearVariable(IГ10С100М1);
 ClearVariable(IГ11С100М1);
 ClearVariable(IГ12С100М1);
 ClearVariable(IГ14С100М1);
 ClearVariable(IГ15С100М1);
 ClearVariable(SГ16С100М1);
 ClearVariable(М1);
end;

2--Обработчики событий полей шаблона-----

Proc OnClick(Row:Integer; Col:Integer; DblClick:Logical);
  var ТекСекц:string;
  var Знак:string;
  ТекСекц=AsString(Template.Name);
  if ТекСекц='S1':
    Знак=AsString(S1.Cell(1,Col,CellText,''));
    if Знак='+': InsertFrame(М1,AsInteger(Template.Frame)+1);
     | Знак='-': DeleteFrame(М1,AsInteger(Template.Frame));
    fi;
  fi;
end;


2--Обработчики объектов шаблона-----



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

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


Proc btnЗакрыть_OnClick(Sender: String);
  Close;
end;
--Обработчики событий объектов шаблона-----
--
--
--Обработчики событий шаблона -----
--Proc AfterOpen(Destroy: Logical);
-- ПрисвоитьТочность;
--end;


Proc OnOpen(Create: Logical);
 Раб.Настр_Печать.Cfg("","ТББ.ОТЧЕТЫ.БАЛАНС.128Н.0503161.000.cfg");
end;




КОНЕЦ
