-- Шаблон создан мастером бланков
-- 26.09.2005 10:42:44
--
БланкСШаблоном "Детализация ф. 0503121";

var Упр:I;

var ДН:D;
var ДК:D;
var УслВал:S;
var Показатель:S;
var Точн:I;
var ЕдИзм:S;
var НаимПок:S;
var НаимПок_:S="Наименование показателя: "+НаимПок;

var пп[]:i=$;
var УслСч[]:S;
var УслАн[]:S;
var Сум[]:N;
var Сум_[]:N=Сум[$];
var ИтогСум:N=SumOfArray(Сум,Упр);


Proc Очистить;
 ClearVariable(РАБ.ВСПОМ.Ф0503121_ДЕТАЛ.Упр);
 ClearVariable(РАБ.ВСПОМ.Ф0503121_ДЕТАЛ.УслСч);
 ClearVariable(РАБ.ВСПОМ.Ф0503121_ДЕТАЛ.УслАн);
 ClearVariable(РАБ.ВСПОМ.Ф0503121_ДЕТАЛ.Сум);
end;

Proc btnЗакрыть_OnClick(Sender: String);
 Close;
end;

Proc OnOpen(Create: Logical);
var n:i;
 for n=1..Упр do
  Сум[n]=Turn(УслСч[n]+if(УслВал="","","'"+УслВал)+"{"+УслАн[n]+"}",ДН,ДК,Показатель);
 od;
end;

Func Сум_OnLookup(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var Iter:I;
var NameRep:S;
 Template.HideEditor(False);
 Iter=AsInteger(Template.Frame);
 if not УслВал="":
    if	УслВал=BaseCurrency: NameRep='"001"'; else NameRep='"003"'; fi;
    Report('"'+PlanVar("Std_Rpo")+'\Общие\Отчеты\Служебные отчеты.lst".'+NameRep,ДН,ДК,УслСч[Iter]+"'"+УслВал,УслАн[Iter]);
   else
    Report('"'+PlanVar("Std_Rpo")+'\Общие\Отчеты\Служебные отчеты.lst"."001"',ДН,ДК,УслСч[Iter],УслАн[Iter]);
 fi;
 Return Cur;
end;


Конец
