-- Шаблон создан мастером бланков
-- 07.11.2007 10:43:24
--
БланкСШаблоном "График";

Chart1: Object;

var Загл:s;

ВидГрафика:I;
f3D:L;

var Key[]:S;
var SerialName[]:S;
var ValueY[]:N;
var TextX[]:S;

var SerialName_[]:S;

var BufColor[]:I;

--
--Процедуры и функции -------------
Proc Очистить;
 ClearVariable(Раб.Вспом.График.Key);
 ClearVariable(Раб.Вспом.График.SerialName);
 ClearVariable(Раб.Вспом.График.ValueY);
 ClearVariable(Раб.Вспом.График.TextX);
end;

Proc Добавить (vSerialName:s; vValueY:N; vTextX:S);
var z:i;
 z=SearchInArray(Раб.Вспом.График.Key,vSerialName+" "+vTextX,False);
 if z=-1:
    z=LengthOfArray(Раб.Вспом.График.Key)+1;
    InsertInArray(Раб.Вспом.График.Key,z,vSerialName+" "+vTextX);
    InsertInArray(Раб.Вспом.График.SerialName,z,vSerialName);
    InsertInArray(Раб.Вспом.График.ValueY,z,vValueY);
    InsertInArray(Раб.Вспом.График.TextX,z,vTextX);
 fi;
end;

Proc Построить;
 OpenBlank("РАБ.ВСПОМ.ГРАФИК",True);
end;

Proc ПостроитьГрафик;
var n,sn,nn,z:i;
 Chart1.Clear;
 ClearVariable(SerialName_);
 nn=LengthOfArray(Key);
 for n=1..nn do
  AddInArray(SerialName_,False,False,SerialName[n]);
 od;
 sn=LengthOfArray(SerialName_);
 for n=1..Min(sn,15) do
  Chart1.AddSeries(ВидГрафика,SerialName_[n]);
 od;
 for n=1..nn do
  z=SearchInArray(SerialName_,SerialName[n],False);
  if z<=15:
     Chart1.AddValue(z,ValueY[n],TextX[n],BufColor[z]);
  fi;
 od;
 Chart1.Legend=True;
 Chart1.3D=f3D;
end;
--Процедуры и функции -------------			      
--
--
--Обработчики событий полей шаблона-----

--Обработчики событий полей шаблона-----
--
--Обработчики событий объектов шаблона-----
Proc cb3D_OnChange(Sender: String);
 Chart1.3D=f3D;
end;

Proc combВидГрафика_OnChange(Sender: String);
 ПостроитьГрафик;
end;

Proc btnПечать_OnClick(Sender: String);
 Try
  Chart1.Top=0;
  Раб.Настр_Печать.Prn("","Настройки\","РПО.Раб.вспом.график.000.cfg","",1);
 Finally
  Chart1.Top=260;
 end;
end;
--Обработчики событий объектов шаблона-----
--
--
--Обработчики событий шаблона -----
Proc AfterOpen(Destroy: Logical);
 Раб.Настр_Печать.Cfg("Настройки\","РПО.Раб.вспом.график.000.cfg");
 ClearVariable(BufColor);
 BufColor[1] =coMaroon;
 BufColor[2] =coGreen;
 BufColor[3] =coOlive;
 BufColor[4] =coNavy;
 BufColor[5] =coPurple;
 BufColor[6] =coTeal;
 BufColor[7] =coGray;
 BufColor[8] =coRed;
 BufColor[9]=coLime;
 BufColor[10]=coYellow;
 BufColor[11]=coBlue;
 BufColor[12]=coFuchsia;
 BufColor[13]=coAqua;
 BufColor[14]=coLtGray;
 BufColor[15]=coBlack;
 ПостроитьГрафик;
end;
--Обработчики событий шаблона -----
--

Конец
