БланкСШаблоном "ф.0503162 Сведения о результатах деятельности";

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

М1:I;S1:Section;

SГ1С1М1[] :String;
SГ2С1М1[] :String;
SГ3С1М1[] :String;
RГ4С1М1[] :Numeric; RГ4С2 :Numeric=SumOfArray(RГ4С1М1,М1);
RГ5С1М1[] :Numeric; RГ5С2 :Numeric=SumOfArray(RГ5С1М1,М1);
RГ6С1М1[] :Numeric; RГ6С2 :Numeric=SumOfArray(RГ6С1М1,М1);
RГ7С1М1[] :Numeric; RГ7С2 :Numeric=SumOfArray(RГ7С1М1,М1);

Proc Очистить;
 ClearVariable(SГ1С1М1);
 ClearVariable(SГ2С1М1);
 ClearVariable(SГ3С1М1);
 ClearVariable(RГ4С1М1);
 ClearVariable(RГ5С1М1);
 ClearVariable(RГ6С1М1);
 ClearVariable(RГ7С1М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Н.0503162.000.cfg","",1);
end;

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


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

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



КОНЕЦ
