БЛАНКСШАБЛОНОМ "ф.0503160 Пояснительная записка ";

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

2--Общие переменные-----
var ДН:D=РАБ.ПАРАМ_ОТЧ.ДН;
var ДК:D=РАБ.ПАРАМ_ОТЧ.ДК;

Учреждение:S;
ОКПО:S;
ППП:S;
ОКТМО:S;

НаимБюдж:S;

ФИОРук:S;
ФИОБух:S;

var УслВал:S=РАБ.ПАРАМ_ОТЧ.УслВал;
var Вал :S=РАБ.ПАРАМ_ОТЧ.Вал;
var Вал_:S=Вал;
var Показатель:S=РАБ.ПАРАМ_ОТЧ.Показатель;

ЕдИзм:I=РАБ.ПАРАМ_ОТЧ.ЕдИзм;
var ЕдИзм_:S=if(ЕдИзм=1,Показатель,if(ЕдИзм=1000,"Тыс. "+Показатель,Str(ЕдИзм)+" "+Показатель));
var ОКЕИ:S=РАБ.ПАРАМ_ОТЧ.ОКЕИ;

var Точн:I=РАБ.ПАРАМ_ОТЧ.Точн;

var ОбщУслАн:S=РАБ.ПАРАМ_ОТЧ.ОбщУслАн;
var ОбщУслКД:S=РАБ.ПАРАМ_ОТЧ.ОбщУслКД;
var ОбщУслКР:S=РАБ.ПАРАМ_ОТЧ.ОбщУслКР;
var ОбщУслКИФД:S=РАБ.ПАРАМ_ОТЧ.ОбщУслКИФД;
var ОбщУслБС:S=РАБ.ПАРАМ_ОТЧ.ОбщУслБС;
var ОбщУслВБС:S=РАБ.ПАРАМ_ОТЧ.ОбщУслВБС;


М1:i; S1:Section;
М2:i; S2:Section;
М3:i; S3:Section;
М4:i; S4:Section;
М5:i; S5:Section;
М6:i; S6:Section;
М7:i; S7:Section;
М8:i; S8:Section;

SГ1С1М1[]:String;
SГ1С2М2[]:String; SГ2С2М2[]:String; SГ3С2М2[]:String;
SГ1С3М3[]:String; SГ2С3М3[]:String; SГ3С3М3[]:String; DГ4С3М3[]:Date;   SГ5С3М3[]:String;
SГ1С4М4[]:String; SГ2С4М4[]:String; SГ3С4М4[]:String;
SГ1С5М5[]:String; SГ2С5М5[]:String; SГ3С5М5[]:String; SГ4С5М5[]:String;
SГ1С6М6[]:String; SГ2С6М6[]:String; SГ3С6М6[]:String; SГ4С6М6[]:String;
SГ1С7М7[]:String; DГ2С7М7[]:Date;   SГ3С7М7[]:String; DГ4С7М7[]:Date;   SГ5С7М7[]:String; RГ6С7М7[]:Numeric; SГ7С7М7[]:String;
DГ1С8М8[]:Date;   SГ2С8М8[]:String; SГ3С8М8[]:String; SГ4С8М8[]:String; SГ5С8М8[]:String;

VAR ПриложениеИмя[]:String;
VAR ПриложениеБланк[]:String;

var Buf[]:S;
Proc Очистить;
 ClearVariable(SГ1С1М1);
 ClearVariable(SГ1С2М2);
 ClearVariable(SГ1С3М3);
 ClearVariable(SГ1С4М4);
 ClearVariable(SГ1С5М5);
 ClearVariable(SГ1С6М6);
 ClearVariable(SГ1С7М7);
 ClearVariable(DГ1С8М8);
 ClearVariable(SГ2С2М2);
 ClearVariable(SГ2С3М3);
 ClearVariable(SГ2С4М4);
 ClearVariable(SГ2С5М5);
 ClearVariable(SГ2С6М6);
 ClearVariable(DГ2С7М7);
 ClearVariable(SГ2С8М8);
 ClearVariable(SГ3С2М2);
 ClearVariable(SГ3С3М3);
 ClearVariable(SГ3С4М4);
 ClearVariable(SГ3С5М5);
 ClearVariable(SГ3С6М6);
 ClearVariable(SГ3С7М7);
 ClearVariable(SГ3С8М8);
 ClearVariable(DГ4С3М3);
 ClearVariable(RГ6С7М7);
 ClearVariable(SГ4С5М5);
 ClearVariable(SГ4С6М6);
 ClearVariable(DГ4С7М7);
 ClearVariable(SГ4С8М8);
 ClearVariable(SГ5С3М3);
 ClearVariable(SГ7С7М7);
 ClearVariable(SГ5С7М7);
 ClearVariable(SГ5С8М8);
 ClearVariable(М1);
 ClearVariable(М2);
 ClearVariable(М3);
 ClearVariable(М4);
 ClearVariable(М5);
 ClearVariable(М6);
 ClearVariable(М7);
 ClearVariable(М8);
 ClearVariable(ПриложениеИмя);
 ClearVariable(ПриложениеБланк);
end;

ОбщУслСч:S;

ОтчGUID:S;
2--Процедуры и функции-----
Proc ЗаполнитьРекв(Rec: Record);
 if Rec=nil: Rec=Раб.Бюджет2005.НашРекв; fi;
 Учреждение=GetCardFieldS('Контрагент',Rec,"ПолнИмя");
 ОКПО=GetCardFieldS('Контрагент',Rec,"ОКПО");
 ОКТМО=GetCardFieldS('Контрагент',Rec,"ОКТМО");
 ППП=GetCardFieldS('Контрагент',Rec,"РПО_ППП");
 ФИОРук=GetCardFieldS('Контрагент',Rec,"ФИОРук");
 ФИОБух=GetCardFieldS('Контрагент',Rec,"ФИОБух");
end;
2--Обработчики событий полей шаблона-----
Func ПарамОтч_onEnter(FieldName: String; Iter: Integer): logical;
var Flag:L;
 if FieldName="ОбщУслБС": FieldName="БС_";
   |FieldName="ОбщУслВБС": FieldName="ВБС_";
 fi;
 Flag=РАБ.ПАРАМ_ОТЧ.Взять(FieldName,0);
 ОКПО=ОКПО; --Вызываем обновление перменных бланка!!!!
 Return False;
end;

Proc ОбщУсл_onExit(FieldName: String; Iter: Integer);
var Flag:L;
 Flag=РАБ.ПАРАМ_ОТЧ.Взять(FieldName,0);
 ОКПО=ОКПО; --Вызываем обновление перменных бланка!!!!
end;

Func Учреждение_OnEnter(FieldName: String; Iter: Integer): logical;
var Rec:Record;
 Rec=OpenCardFile('Контрагент','Наше');
 if rec=nil: ^False; fi;
 ЗаполнитьРекв(Rec);
^False;
end;

Func ФИО_OnLookup(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var Rec:Record;
var tmp,FieldName:S;
 Template.HideEditor(False);
 FieldName=AsString(Template.Field);
 Rec=OpenCardFile("Сотрудники");
 if Rec=NIL: ^Cur; fi;
 tmp=GetCardFieldS("Сотрудники",Rec,"ФАМИЛИЯ")+" "+GetCardFieldS("Сотрудники",Rec,"ИНИЦИАЛЫ");
 if FieldName="ФИОРук": ФИОРук=tmp;
   |FieldName="ФИОБух": ФИОБух=tmp;
 fi;
 Return Cur ;
end;

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;
   | ТекСекц='S2':
    Знак=AsString(S2.Cell(1,Col,CellText,''));
    if Знак='+': InsertFrame(М2,AsInteger(Template.Frame)+1);
     | Знак='-': DeleteFrame(М2,AsInteger(Template.Frame));
    fi;
   | ТекСекц='S3':
    Знак=AsString(S3.Cell(1,Col,CellText,''));
    if Знак='+': InsertFrame(М3,AsInteger(Template.Frame)+1);
     | Знак='-': DeleteFrame(М3,AsInteger(Template.Frame));
    fi;
   | ТекСекц='S4':
    Знак=AsString(S4.Cell(1,Col,CellText,''));
    if Знак='+': InsertFrame(М4,AsInteger(Template.Frame)+1);
     | Знак='-': DeleteFrame(М4,AsInteger(Template.Frame));
    fi;
   | ТекСекц='S5':
    Знак=AsString(S5.Cell(1,Col,CellText,''));
    if Знак='+': InsertFrame(М5,AsInteger(Template.Frame)+1);
     | Знак='-': DeleteFrame(М5,AsInteger(Template.Frame));
    fi;
   | ТекСекц='S6':
    Знак=AsString(S6.Cell(1,Col,CellText,''));
    if Знак='+': InsertFrame(М6,AsInteger(Template.Frame)+1);
     | Знак='-': DeleteFrame(М6,AsInteger(Template.Frame));
    fi;
   | ТекСекц='S7':
    Знак=AsString(S7.Cell(1,Col,CellText,''));
    if Знак='+': InsertFrame(М7,AsInteger(Template.Frame)+1);
     | Знак='-': DeleteFrame(М7,AsInteger(Template.Frame));
    fi;
   | ТекСекц='S8':
    Знак=AsString(S8.Cell(1,Col,CellText,''));
    if Знак='+': InsertFrame(М8,AsInteger(Template.Frame)+1);
     | Знак='-': DeleteFrame(М8,AsInteger(Template.Frame));
    fi;
  fi;
end;
2--Обработчики объектов шаблона-----
Proc btnЗакрыть_OnClick(Sender: String);
  Close;
end;

Proc кнОбразецТабл1_OnClick(Sender: String);
--  While М2>0 do DeleteFrame(М2,М2); od;
--  InsertFrame(М2,М2+1);
--  Г1С2М2[М2]='Основные средства (принятие к учету)';
--  Г2С2М2[М2]='По первоначальной стоимости в сумме фактических вложений на приобретение, сооружение объекта';
--  Г3С2М2[М2]='Дата принятия к учету';
--  InsertFrame(М2,М2+1);
--  Г1С2М2[М2]='Начисление амортизации';
--  Г2С2М2[М2]='По линейному методу';
--  Г3С2М2[М2]='Последний день месяца';
--  InsertFrame(М2,М2+1);
--  Г1С2М2[М2]='Материальные запасы (принятие к учету)';
--  Г2С2М2[М2]='По фактической стоимости';
--  Г3С2М2[М2]='Дата оприходования';
--  InsertFrame(М2,М2+1);
--  Г1С2М2[М2]='Материальные запасы (списание, отпуск)';
--  Г2С2М2[М2]='По средней фактической стоимости';
--  Г3С2М2[М2]='Дата списания';
--  InsertFrame(М2,М2+1);
--  Г1С2М2[М2]='Капитальные вложения в основные средства';
--  Г2С2М2[М2]='По фактическим затратам';
--  Г3С2М2[М2]='Дата возникновения затрат';
--  InsertFrame(М2,М2+1);
--  Г1С2М2[М2]='Поступления в бюджет по администримуемым платежам';
--  Г2С2М2[М2]='По кассовому поступлению';
--  Г3С2М2[М2]='Дата поступления на единый казначейский счет';
--  InsertFrame(М2,М2+1);
--  Г1С2М2[М2]='Расходы';
--  Г2С2М2[М2]='По методу начисления';
--  Г3С2М2[М2]='Дата возникновения';
--  InsertFrame(М2,М2+1);
--  Г1С2М2[М2]='Результат финансовой деятельности';
--  Г2С2М2[М2]='По методу начисления';
--  Г3С2М2[М2]='Дата возникновения';
end;


Proc кнПриложение_OnClick(Sender: String);
  var i:integer;
  var a:integer;

  ClearVariable(ПриложениеИмя); 
  ClearVariable(ПриложениеБланк);
  ПриложениеИмя[01]='Сведения о количестве подведомственных учреждений и направлении их деятельности';
  ПриложениеИмя[02]='Сведения о результатах деятельности';
  ПриложениеИмя[03]='Сведения об изменениях бюджетной росписи главного распорядителя средств бюджета';
  ПриложениеИмя[04]='Сведения о кассовом исполнении  бюджета';
  ПриложениеИмя[05]='Сведения об эффективности бюджетных расходов (ф.0503165)';
  ПриложениеИмя[06]='Сведения об исполнении целевых программ';
  ПриложениеИмя[07]='Сведения о целевых иностранных кредитах';
  ПриложениеИмя[08]='Сведения о движении нефинансовых активов (ф.0503168)';
  ПриложениеИмя[09]='Сведения по дебиторской и кредиторской задолженности (ф.0503169)';
  ПриложениеИмя[10]='Сведения о финансовых вложениях учреждения';
  ПриложениеИмя[11]='Сведения о государственном (муниципальном) долге';
  ПриложениеИмя[12]='Сведения об изменении остатков валюты баланса';
  ПриложениеИмя[13]='Сведения о финансовом результате деятельности учреждения  (ф.0503174)';
  ПриложениеИмя[14]='Сведения по поступлениям и выбытиям средств бюджета';
  ПриложениеИмя[15]='Сведения о недостачах и хищениях денежных средств и материальных ценностей в бюджетных учреждениях (ф.0503176)';
  ПриложениеИмя[16]='Сведения об использовании информационных технологий в деятельности бюджетного учреждения (ф.0503177)';

  ПриложениеБланк[01]='ОТЧЕТЫ.БАЛАНС._СВЕДКОЛПОДВУЧР_0503161';
  ПриложениеБланк[02]='ОТЧЕТЫ.БАЛАНС._СВЕДРЕЗДЕЯТ_0503162';
  ПриложениеБланк[03]='ОТЧЕТЫ.БАЛАНС._СВЕДИЗМБЮДЖРОСПГЛРАСПСРБЮДЖ_0503163';
  ПриложениеБланк[04]='ОТЧЕТЫ.БАЛАНС._СВЕДКАСИСПБЮДЖ_0503164';
  ПриложениеБланк[05]='ОТЧЕТЫ.БАЛАНС.Ф_0503165';
  ПриложениеБланк[06]='ОТЧЕТЫ.БАЛАНС._СВЕДИСПЦЕЛПРОГ_0503166';
  ПриложениеБланк[07]='ОТЧЕТЫ.БАЛАНС._СВЕДЦЕЛИНОКРЕД_0503167';
  ПриложениеБланк[08]='ОТЧЕТЫ.БАЛАНС.Ф_0503168';
  ПриложениеБланк[09]='ОТЧЕТЫ.БАЛАНС.Ф_0503169';
  ПриложениеБланк[10]='ОТЧЕТЫ.БАЛАНС._СВЕДФИНВЛОЖУЧР_0503171';
  ПриложениеБланк[11]='ОТЧЕТЫ.БАЛАНС._СВЕДГОСДОЛГ_0503172';
  ПриложениеБланк[12]='ОТЧЕТЫ.БАЛАНС._СВЕДИЗМОСТВАЛБАЛ_0503173';
  ПриложениеБланк[13]='ОТЧЕТЫ.БАЛАНС.Ф_0503174';
  ПриложениеБланк[14]='ОТЧЕТЫ.БАЛАНС._СВЕДПОСТВЫБРЕДБЮДЖ_0503175';
  ПриложениеБланк[15]='ОТЧЕТЫ.БАЛАНС.Ф_0503176';
  ПриложениеБланк[16]='ОТЧЕТЫ.БАЛАНС.Ф_0503177';



  a=Alternate('Приложение',ПриложениеИмя);
  if a>0: OpenBlank(ПриложениеБланк[a],false); fi;
end;


2--Обработчики событий шаблона-----
Proc OnOpen(Create: Logical);
 Раб.Настр_Печать.Cfg("","ТББ.ОТЧЕТЫ.БАЛАНС.128Н.0503161.000.cfg");
 if Учреждение="": ЗаполнитьРекв(nil); fi;
end;
Proc btnПечать_OnClick(Sender: String);
 Раб.Настр_Печать.Prn("","","ТББ.ОТЧЕТЫ.БАЛАНС.128Н.0503161.000.cfg","",1);
end;

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


КОНЕЦ