'___________ Наличие  периодики___________________________________________ 
' АРМ КК, вывод из списка, запрос по году, или год_название, или год_сигла
' последние исправления: 16.06.2009 Рыжова Ю.С. ЧелГУ
' модификация: 07.07.2010 Негуляев Е. А. <Evgeny.Negulyaev@usu.ru>
'=========================================================================
define function main()
{
	doc.newfile()
	var s = doc.oleobject()
	s = s.propertyget(activesheet)

	var massglob=newmass(0)
	var massname=newmass(0)
	var masssigl=newmass(0)
	var name
	var sigla
	var basecell=1
'===формирование шапки===
	doc.out("№ п/п","A"+tostr(basecell))
	doc.out("Наименование периодических изданий","B"+tostr(basecell))
	doc.out("Место хранения","C"+tostr(basecell))
	doc.out("Номера изданий","D"+tostr(basecell))	
	doc.drawborder("A"+tostr(basecell))
	doc.drawborder("B"+tostr(basecell))
	doc.drawborder("C"+tostr(basecell))
	doc.drawborder("D"+tostr(basecell))
        
 	var cols = s.exec(function, columns)
 	var col = cols.exec(propertyget, item, 1)
 	col.exec(propertyset, columnwidth, 5.5)

 	col = cols.exec(propertyget, item, 2)
 	col.exec(propertyset, columnwidth, 36)

 	col = cols.exec(propertyget, item, 3)
 	col.exec(propertyset, columnwidth, 11.5)

 	col = cols.exec(propertyget, item, 4)
 	col.exec(propertyset, columnwidth, 30)

	var rangetext = "A" + Tostr(baseCell)+":D"+tostr(basecell)
	var range = s.exec(propertyget, range, rangetext)
	range.exec(propertyset, wraptext, 1)
	range.exec(propertyset, HorizontalAlignment, -4108)
	range.exec(propertyset, VerticalAlignment, -4108)

'===главная часть - массив===
	basecell=2
	var startcell=basecell
	'формат массива = название$сигла%номер

var massgod=newmass(0)

	for(var i = 0; i <sizeof(source); i=i+1)
	{
		if(indexof(massgod,source[i].value(210,0,$d))==-1)
		{
			doc.out(tostr(source[i].value(210,0,$d)),"G"+tostr(i+1))
			add(massgod,source[i].value(210,0,$d))
		}
		for(var j=0;j<source[i].count(999);j=j+1)
		{
			name=source[i].value(461,0,200,0,$a($h?". "$h)($i?". "$i))
			sigla=source[i].value(999,j,$b)
			add(massglob,name+"$"+sigla+"%"+source[i].value(200,0,$a))
			add(massname,name)
			add(masssigl,sigla)
		}
	}
'СОРТИРОВКА 
    	sort(massglob,massname[%row%],masssigl[%row%])

'ЗАПОМИНАНИЕ ПЕРВОГО ЭЛЕМЕНТА ОТСОРТИРОВАННОГОО МАССИВА
	name=substring(massglob[0],symbol,1,pos(massglob[0],"$")-1)
	sigla=substring(massglob[0],symbol,pos(massglob[0],"$")+1,pos(massglob[0],"%")-pos(massglob[0],"$")-1)
	var nomer=newmass(0)
	add(nomer,substring(massglob[0],symbol,pos(massglob[0],"%")+1,-1))

'ПЕРЕБОР ОСТАВШЕГОСЯ МАССИВА
var n=0
var m=0
var nomerstr
for(var i=1;i<sizeof(massglob);i=i+1)
{
	if(name!=substring(massglob[i],symbol,1,pos(massglob[i],"$")-1))
	{
	
		n=n+1
		doc.out(tostr(n),"A"+tostr(basecell))
		range = s.exec(propertyget, range,"A"+ToStr(baseCell)+":A"+ToStr(baseCell+m))
		range.exec(Procedure, merge)
		doc.drawborder("A"+tostr(basecell)+":A"+tostr(basecell+m))
		doc.out(name,"B"+tostr(basecell))
		range = s.exec(propertyget, range,"B"+ToStr(baseCell)+":B"+ToStr(baseCell+m))
		range.exec(Procedure, merge)
		doc.drawborder("B"+tostr(basecell)+":B"+tostr(basecell+m))
		doc.out(sigla,"C"+tostr(basecell+m))
		doc.drawborder("C"+tostr(basecell+m))
'вывод номеров журналов
		nomerstr=""
		sort(nomer,nomer[%row%])
		nomerstr=nomer[0]
		for(var j=1;j<sizeof(nomer);j=j+1)
		{
			nomerstr=nomerstr+"; "+nomer[j]
		}
		doc.out(nomerstr,"D"+tostr(basecell+m))
		doc.drawborder("D"+tostr(basecell+m))
'=======================
		name=substring(massglob[i],symbol,1,pos(massglob[i],"$")-1)
		sigla=substring(massglob[i],symbol,pos(massglob[i],"$")+1,pos(massglob[i],"%")-pos(massglob[i],"$")-1)

		nomer=newmass(0)
		add(nomer,substring(massglob[i],symbol,pos(massglob[i],"%")+1,-1))

		basecell=basecell+m+1
		m=0
		continue
	}

	if(sigla!=substring(massglob[i],symbol,pos(massglob[i],"$")+1,pos(massglob[i],"%")-pos(massglob[i],"$")-1))
	{
		doc.out(sigla,"C"+tostr(basecell+m))
		doc.drawborder("C"+tostr(basecell+m))
'вывод номеров журналов
		nomerstr=""
		sort(nomer,nomer[%row%])
		nomerstr=nomer[0]
		for(var j=1;j<sizeof(nomer);j=j+1)
		{
			nomerstr=nomerstr+", "+nomer[j]
		}
		doc.out(nomerstr,"D"+tostr(basecell+m))
		doc.drawborder("D"+tostr(basecell+m))
'=======================
		sigla=substring(massglob[i],symbol,pos(massglob[i],"$")+1,pos(massglob[i],"%")-pos(massglob[i],"$")-1)
		nomer=newmass(0)
		add(nomer,substring(massglob[i],symbol,pos(massglob[i],"%")+1,-1))
		m=m+1
		continue
	}
	add(nomer,substring(massglob[i],symbol,pos(massglob[i],"%")+1,-1))
}
                n=n+1
		doc.out(tostr(n),"A"+tostr(basecell))
		range = s.exec(propertyget, range,"A"+ToStr(baseCell)+":A"+ToStr(baseCell+m))
		range.exec(Procedure, merge)
		doc.drawborder("A"+tostr(basecell)+":A"+tostr(basecell+m))
		doc.out(name,"B"+tostr(basecell))
		range = s.exec(propertyget, range,"B"+ToStr(baseCell)+":B"+ToStr(baseCell+m))
		range.exec(Procedure, merge)
		doc.drawborder("B"+tostr(basecell)+":B"+tostr(basecell+m))
		doc.out(sigla,"C"+tostr(basecell+m))
		doc.drawborder("C"+tostr(basecell+m))
'вывод номеров журналов
		nomerstr=""
		sort(nomer,nomer[%row%])
		nomerstr=nomer[0]
		for(var j=1;j<sizeof(nomer);j=j+1)
		{
			nomerstr=nomerstr+", "+nomer[j]
		}
		doc.out(nomerstr,"D"+tostr(basecell+m))
		doc.drawborder("D"+tostr(basecell+m))

	rangetext = "A" + Tostr(startcell)+":D"+tostr(basecell+m)
	range = s.exec(propertyget, range, rangetext)
	range.exec(propertyset, wraptext, 1)
	range.exec(propertyset, HorizontalAlignment, -4108)
	range.exec(propertyset, VerticalAlignment, -4108)

'	var rows = s.exec(function, rows)
'	var row = rows.exec(propertyget, item, 2)
'	row.exec(propertyset, rowheight, 55)
}