-- Шаблон создан мастером бланков
-- 29.06.2004 9:54:02
--
БланкСШаблоном "Поставки", Редактор РПО_ПОСТАВКА;
2-- Объекты
2-- Управляющие секциями переменные
2-- Переменные и массивы шаблона
Л0_:s=РАБ.НФА.B00.ch_s_галка;
Л1_:s=if(Л1,Л0_,'');
Л2_:s=if(Л2,Л0_,'');
Л3_:s=if(Л3,Л0_,'');
Д1s:s=DateToString(Д1);
Д2s:s=DateToString(Д2);
ПризнакН:s=с1+if(Л1,'_'+с2,'')+if(Л2,'_ОТ'+SubStr(Д1s,1,2)+SubStr(Д1s,4,2)+SubStr(Д1s,7,4),'')
			      +if(Л3,'_ДО'+SubStr(Д2s,1,2)+SubStr(Д2s,4,2)+SubStr(Д2s,7,4),'');
КомментН:s='№'+с1+if(Л1,' серия:'+с2,'')
+if(Л2,' от '+DateToString(Д1),'')
+if(Л3,' до '+DateToString(Д2),'');
--Д1Н:s=Name_A('ММДД.'+SubStr(DateToString(Д1),4,3)+SubStr(DateToString(Д1),1,2))+' '+Name_A('ГГ.'+str(год(Д1)));
2-- Процедуры и функции
proc ClsArray;
--ClearVariable(st	 );
end;
proc РасчетПризнак_Коммент;
 var s,s1:s;
 if Признак<>ПризнакН:Признак=ПризнакН;fi;
 if Коммент<>КомментН:Коммент=КомментН;fi;
 s1=DateToString(Д2);
 s='ММДД.'+SubStr(s1,4,3)+SubStr(s1,1,2);
 if ММДД<>s:ММДД=s;fi;
 s='ГГ.'+str(год(Д2));
 if ГГ<>s:ГГ=s;fi;

end;
2-- _Обработчики событий полей, объектов и шаблона

2-- _Обработчики полей
func ПриВходе(s:s;i:i):l;
var ss:s;
var ii:i;
 if s='с1':^true;
  | s='с2':^true;
  | s='д1':^true;
  | s='д2':^true;
  | s='Л1_':Л1=not Л1;^false;
  | s='Л2_':Л2=not Л2;^false;
  | s='Л3_':Л3=not Л3;^false;
  | true:^true;
 fi;
^false;
end;

func ПриПроверкеД(s:s;i:i;v:d):l;
 if s='д2':ММДД='ММДД.'+SubStr(DateToString(v),4,3)+SubStr(DateToString(v),1,2);
	   ГГ  ='ГГ.'+str(год(v));
  | true:^true;
 fi;
 ^true;
end;
func ПриПроверкеЧ(s:s;i:i;v:n):l;
-- if s="ЦЕНАН" :Позиции[i].цена=v;
--  | s="КОЛИЧН":
-- fi;
 ^true;
end;
func ПриПроверкеС(s:s;i:i;v:s):l;
 var ss:s;
 var p:i;
-- if s='Л1_':Л1=not Л1;^false;
--  | s='НОМЕРБУМН':НОМЕРБУМ=v;
-- fi;
 ^true;
end;

2-- _Обработчики объектов
proc ПриНажатии(s:s);
var ii:i;
-- if s='КнВыборАналитики': openblank("РАБ.НФА.B010",false);
--  | true:exit;
-- fi;
end;
proc ПриИзменении(s:s);
var ii:i;
-- if s='КнВыборАналитики': openblank("РАБ.НФА.B010",false);
--  | true:exit;
-- fi;
end;

2-- _Обработчики шаблона
proc ШаблонПриСчитывании;
var s :STRING;
var i :i;
РасчетПризнак_Коммент;
ClsArray;
end;

proc ШаблонПриОткрытии(Create:l);
end;
func ШаблонПриПроверке:l;
 РасчетПризнак_Коммент;
 ^true;
end;
proc ШаблонПриОтмене;
end;
proc ШаблонПриЗакрытии(ob:l);
 ClsArray;
end;



Конец
