-- Шаблон создан мастером бланков
-- 16.05.2005 13:45:50
--
БланкСШаблоном "Список расходных расписаний";

КолКопий:I=[2];

Упр:I;

var пп[]:i=$;
НомДок[]:s;
НаимПБС[]:s;
UKey[]:Record;

var SelfCrd:S="РПО_РР_ИСХ";
var SelfBln:S="ДОКУМЕНТЫ.ЛБО.РР_ИСХ";
var SelfPrn:S="ДОКУМЕНТЫ.ЛБО.РР_ИСХ_ПЕЧАТЬ";

--
--Процедуры и функции -------------
Proc Очистить;
 ClearVariable(РБС.РАСПРЕД_СПИСОК_РР.Упр);
 ClearVariable(РБС.РАСПРЕД_СПИСОК_РР.НомДок);
 ClearVariable(РБС.РАСПРЕД_СПИСОК_РР.НаимПБС);
 ClearVariable(РБС.РАСПРЕД_СПИСОК_РР.UKey);
end;
--Процедуры и функции -------------			      
--
--
--Обработчики событий полей шаблона-----
Func onEnter(FieldName: String; Iter: Integer): logical;
var n:i;
 if not UKey[Iter]=nil:
    OpenBlank(SelfBln,True,UKey[Iter]);
 fi;
 ^False;
end;
--Обработчики событий полей шаблона-----
--
--Обработчики событий объектов шаблона-----
Proc btnПечать_OnClick(Sender: String);
var Iter,n:I;
 if not BlankExist(SelfPrn): Message("Печатная форма не найдена",mtError); Exit; fi;
 if КолКопий<1: КолКопий=2; fi;
 if EnqOkCancel("Будет распечатно "+Str(Упр)+" расходных расписаний по "+Str(КолКопий)+" копии, продолжить ?")=cmCancel: Exit; fi;
 for Iter=1..Упр do
  if isBlankOpen(SelfPrn): Close(SelfPrn); fi;
  for n=1..КолКопий do
   PrintCardBlank(SelfPrn,UKey[Iter]);
  od;
--  PutVariableR(SelfPrn+".inRec",UKey[Iter]);
--  PutVariableI(SelfPrn+".inКолКопий",КолКопий);
--  PutVariableL(SelfPrn+".inПечать",Sender="btnПечать");
--  OpenBlank(SelfPrn,True);
 od;
 Message("Печать завершена");
end;

Proc btnЗакрыть_OnClick(Sender: String);
 Close;
end;
--Обработчики событий объектов шаблона-----
--
--
--Обработчики событий шаблона -----
Proc OnOpen(Create: Logical);
var Iter:I;
 for Iter=1..Упр do
  if not Ukey[Iter]=nil:
     Try
      НомДок[Iter]=GetCardFieldS(SelfCrd,UKey[Iter],"НОМЕРДОК");
      НаимПБС[Iter]=GetCardFieldS(SelfCrd,UKey[Iter],"ПБС.ПолнИмя");
     Except
      UKey[Iter]=nil;
      НомДок[Iter]="???";
      НаимПБС[Iter]="???";
     end;
  fi;
 od;
end;
--Обработчики событий шаблона -----
--



Конец
