-- Шаблон создан мастером бланков
-- 15.02.2008 9:51:07
--
БланкСШаблоном "Печать сметы доходов и расходов", Редактор РПО_СМЕТА_ДОХОД_РАСХОД;
var ColBase:I=3;
var БК_Д[]:S=ПОЗИЦИИ_Д[$].БК+'.'+ПОЗИЦИИ_Д[$].КОСГУ;
var БК_Р[]:S=ПОЗИЦИИ_Р[$].БК+'.'+ПОЗИЦИИ_Р[$].КОСГУ;
var ГОД_СТР:S='от приносящей доход деятельности на '+ГОД_СМЕТЫ+' г.';
var ДАТА_П:Д=if(IsChanging,ДАТА_ИЗМ,ДАТА_СМЕТЫ);
var n[]:I=$;
--var Квартал:L;
var ПБС_:string=ПБС.КорИмя;

Смета_1: Секция;
Изменение_1: Секция;
Изменение_2: Секция;
Доход_строки:Секция;
Доход_шапка:Секция;
Расход_строки:Секция;
Расход_шапка:Секция;
Доход_итог:Секция;
Расход_итог:Секция;


Proc Цифрошапка;
var i,n:I;
var vis:L;
n=1;
for i= 1 to 13 do
 vis=AsLogical(Доход_шапка.Column(i,ColVisible,''));
 if vis then Доход_шапка.Cell(4,i,CellContents,Str(n));
    Расход_шапка.Cell(4,i,CellContents,Str(n));
   n=n+1;
   fi;
od;
end;

Proc Видимость;
var i,o,t,d:I;
var obj:Object;
var namobj:S;
--  Изм.Visible= IsChanging;
Смета_1.Visible= not IsChanging;
Изменение_1.Visible= IsChanging;
Изменение_2.Visible= IsChanging;

--  for o=-3 to 3 do
--    if o>0 then namobj='Доход_'; else namobj='Расход_'; fi;
--    if ABS(o)=1 then namobj=namobj+'шапка';
--      |ABS(o)=2 then namobj=namobj+'строки';
--      |ABS(o)=3 then namobj=namobj+'итог';
--      fi;
--    if  FindObject(namobj,obj):
--      if (IsChanging AND Квартал) then t=10;d=2;i=2; else t=4;d=-2;i=12; fi;
--      while i<>t do
--        i=i+d;
--        Obj.Column(ColBase+i,ColVisible, (IsChanging AND Квартал) );
--        od;
--      if Квартал then t=9;d=2;i=1; else t=3;d=-2;i=11; fi;
--      while i<>t do
--        i=i+d;
--        Obj.Column(ColBase+i,ColVisible, Квартал);
--        od;
--      Obj.Column(ColBase+2,ColVisible,(IsChanging AND (not Квартал)));
--      if IsChanging then Obj.Column(ColBase-1,ColWidth,550); else  Obj.Column(ColBase-1,ColWidth,780); fi;
--      Obj.Column(ColBase+1,ColVisible,(not Квартал));
--      fi;
--    od;
  Цифрошапка;
end;
-- обработчики бланка

Proc AfterOpen;
 РАБ.НАСТР_ПЕЧАТЬ.Cfg("","ТББ.ДОКУМЕНТЫ.ЛБО.СМЕТА_ДОХОД_РАСХОД_ПЕЧАТЬ.000.cfg"); -- настройка печати
Видимость;
end;


Proc Button4_OnClick(Sender: String);
var ask:I;
if (CurrentState = 0) then Close;
  else
  ask=EnqYesNoCancel("Данные изменены, сохранить?");
  if ask=cmYes: EditorApply; Close;
    |ask=cmNo:  EditorCancel; Close;
    |ask=cmCancel: Exit;
    fi;
  fi;
end;

Proc Print_OnClick(Sender: String);
 РАБ.НАСТР_ПЕЧАТЬ.Prn("","","ТББ.ДОКУМЕНТЫ.ЛБО.СМЕТА_ДОХОД_РАСХОД_ПЕЧАТЬ.000.cfg","",1);
end;


Конец
