-- Шаблон создан мастером бланков
-- 10.01.2005 10:39:29
--
БланкСШаблоном "Стили оформления - редактор", Редактор РПО_СТИЛЬ;
РазработчикПоУмолчанию:s=['РПО'];

секция1:секция;
testvar:string='TESTVAR';
var Colors[]:i;
var CellMethods[]:i;
var CellFontStyles[]:i;
var ForSelect[]:s;
var Параметр_[]:s=РАБ.НФА.B01.NameCellMethod(МЕТОД_КЛЕТКА[$].ПАРАМЕТР);
var Значение_[]:s=if(МЕТОД_КЛЕТКА[$].ПАРАМЕТР=CellFontStyle:РАБ.НФА.B01.NameCellFontStyle(МЕТОД_КЛЕТКА[$].Значение)
		    |МЕТОД_КЛЕТКА[$].ПАРАМЕТР=CellFontSize:str(МЕТОД_КЛЕТКА[$].Значение)
		    |МЕТОД_КЛЕТКА[$].ПАРАМЕТР=CellFontColor:РАБ.НФА.B01.NameColor(МЕТОД_КЛЕТКА[$].Значение)
		    |МЕТОД_КЛЕТКА[$].ПАРАМЕТР=CellAlignment:
		      if(МЕТОД_КЛЕТКА[$].Значение=0:'Выровнять по левому краю'
			|МЕТОД_КЛЕТКА[$].Значение=1:'Выровнять по правому краю'
			|МЕТОД_КЛЕТКА[$].Значение=2:'Выровнять по центру')

		    |МЕТОД_КЛЕТКА[$].ПАРАМЕТР=CellBgColor:РАБ.НФА.B01.NameColor(МЕТОД_КЛЕТКА[$].Значение)
		    );

func ПриВходе(s:s;i:i):l;
 var k,j,n:i;
 if s='ПАРАМЕТР_':
    j=ДлинаМассива(CellMethods);
    for k=1..j do
     ForSelect[k]=РАБ.НФА.B01.NameCellMethod(CellMethods[k]);
    od;
    n=Alternate('Выбор метода для клетки',ForSelect,-1);
    if n>0:
      if МЕТОД_КЛЕТКА=0:InsertFrame(МЕТОД_КЛЕТКА,1);fi;
      МЕТОД_КЛЕТКА[i].ПАРАМЕТР=CellMethods[n];
    fi;
 fi;
^false;
end;

Proc ШаблонПриОткрытии(l:l);
 ClearVariable(Colors);
 Colors[01]=coBlack	 ;
 Colors[02]=coWhite	 ;
 Colors[03]=coMaroon	 ;
 Colors[04]=coRed	 ;
 Colors[05]=coTeal	 ;
 Colors[06]=coAqua	 ;
 Colors[07]=coNavy	 ;
 Colors[08]=coBlue	 ;
 Colors[09]=coLime	 ;
 Colors[10]=coGreen	 ;
 Colors[11]=coOlive	 ;
 Colors[12]=coYellow	 ;
 Colors[13]=coGray	 ;
 Colors[14]=coLtGray	 ;
 Colors[15]=coPurple	 ;
 Colors[16]=coFuchsia	 ;
 Colors[17]=coTransparent;
 ClearVariable(CellMethods);
 CellMethods[01]=CellFontStyle;
 CellMethods[02]=CellFontSize ;
 CellMethods[03]=CellFontColor;
 CellMethods[04]=CellAlignment;
 CellMethods[05]=CellBgColor  ;
 ClearVariable(CellFontStyles);
 CellFontStyles[01]=0;
 CellFontStyles[02]=1;
 CellFontStyles[03]=2;
 CellFontStyles[04]=3;
 CellFontStyles[05]=4;
 CellFontStyles[06]=5;
 CellFontStyles[07]=6;
 CellFontStyles[08]=7;
 CellFontStyles[09]=8;
 CellFontStyles[10]=9;
 CellFontStyles[11]=10;
 CellFontStyles[12]=11;
 CellFontStyles[13]=12;
 CellFontStyles[14]=13;
 CellFontStyles[15]=14;
 CellFontStyles[16]=15;
end;


Func ПриОбзоре(Sect: s; x:i;y:i;v:s):s;
var s:s;
var j,k,n,i:i;
s=AsString(Шаблон.Поле);
i=AsInteger(Шаблон.Кадр);
ClearVariable(ForSelect);
if s='Значение_':
   if МЕТОД_КЛЕТКА[i].ПАРАМЕТР=CellFontStyle:
      j=ДлинаМассива(CellFontStyles);
      for k=1..j do
       ForSelect[k]=РАБ.НФА.B01.NameCellFontStyle(CellFontStyles[k]);
      od;
      n=Alternate('Выбор '+Параметр_[i],ForSelect,-1);
      if n>0:
	МЕТОД_КЛЕТКА[i].Значение=CellFontStyles[n];
      fi;

    | МЕТОД_КЛЕТКА[i].ПАРАМЕТР=CellFontSize :^v;
    | МЕТОД_КЛЕТКА[i].ПАРАМЕТР=CellFontColor or МЕТОД_КЛЕТКА[i].ПАРАМЕТР=CellBgColor:
      j=ДлинаМассива(Colors);
      for k=1..j do
       ForSelect[k]=РАБ.НФА.B01.NameColor(Colors[k]);
      od;
      n=Alternate('Выбор '+Параметр_[i],ForSelect,-1);
      if n>0:
	МЕТОД_КЛЕТКА[i].Значение=Colors[n];
      fi;

    | МЕТОД_КЛЕТКА[i].ПАРАМЕТР=CellAlignment:
      ForSelect[1]='Выровнять по левому краю';
      ForSelect[2]='Выровнять по правому краю';
      ForSelect[3]='Выровнять по центру';
      n=Alternate('Выбор '+Параметр_[i],ForSelect,-1);
      if n>0:
	МЕТОД_КЛЕТКА[i].Значение=n-1;
      fi;
   fi;
fi;
Шаблон.СкрытьРедактор(false);
 ^v;
end;
Func ПриПроверкеС(s:s;i:i;v:s):l;
  if s='Значение_' and МЕТОД_КЛЕТКА[i].ПАРАМЕТР=CellFontSize:МЕТОД_КЛЕТКА[i].Значение=int(v);fi;
  ^true;
end;



2Proc0 2ШаблонПриЧтении0;
 var i:i;
 if Разработчик='':Разработчик=РазработчикПоУмолчанию;fi;
 секция1.Column(4,ColWidth,МЕТОД_СТОЛБЕЦ_COLWIDTH);
 for i=1..МЕТОД_КЛЕТКА do
  секция1.Cell(2,4,МЕТОД_КЛЕТКА[i].ПАРАМЕТР,МЕТОД_КЛЕТКА[i].Значение);
 od;
2end0;


Проц СоздатьУЧН(Отправитель: Строка);
var НФ,i,Длина_Строки:i;
var st,s:s;
Длина_Строки=5;
s=ПеремПБ('НФА')+'\Аналитика\УЧН.SIG';
НФ = ТекстФайлСоздать(s);
ТекстФайлЗаписатьСтроку(НФ,'Группа УЧН');
 for i=1..10000 do
  st=str(i);
  while length(st)<Длина_Строки do
   st='0'+st;
  end;
  ТекстФайлЗаписатьСтроку(НФ,st);
od;
ТекстФайлЗаписатьСтроку(НФ,'Конец');
ТекстФайлЗакрыть(НФ);

end;

Конец
