Состояние("Формирование диаграммы продаж");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|	ПродажиОбороты.Номенклатура.НоменклатурнаяГруппа КАК НоменклатураНоменклатурнаяГруппа,

|	КОЛИЧЕСТВО(ПродажиОбороты.КоличествоОборот) КАК КоличествоОборот,

|	СУММА(0) КАК Проц

|ИЗ

|	РегистрНакопления.Продажи.Обороты(

|			&ND,

|			&KD,

|			Запись,

|			Организация = &Org

|				И ДоговорКонтрагента.Менеджер В ИЕРАРХИИ (&Mened)) КАК ПродажиОбороты

|

|СГРУППИРОВАТЬ ПО

|	ПродажиОбороты.Номенклатура.НоменклатурнаяГруппа

|

|УПОРЯДОЧИТЬ ПО

|	НоменклатураНоменклатурнаяГруппа

|АВТОУПОРЯДОЧИВАНИЕ";





Запрос.УстановитьПараметр("KD",КонПериодаР);

Запрос.УстановитьПараметр("Mened", МенеджерОПР);

Запрос.УстановитьПараметр("ND", НачПериодаР);

Запрос.УстановитьПараметр("Org", ДляОрганизацииОР);

Результат = Запрос.Выполнить();

Выборка = Результат.Выгрузить();

итог = Выборка.Итог("КоличествоОборот");

Для каждого СтрокаТЗ Из Выборка Цикл

	СтрокаТЗ.Проц = Окр(СтрокаТЗ.КоличествоОборот*100/итог,2);

КонецЦикла;





ДиаграммаВП = ЭлементыФормы.ДиаграммаОР;

Для Каждого СтрТраб из Выборка Цикл

	Серия=ДиаграммаВП.Серии.Добавить(?(ЗначениеЗаполнено(СтрТраб.Получить(0).Наименование), СтрТраб.Получить(0).Наименование+" - "+Строка(СтрТраб.Получить(2))+"%","Без группы"));

	Попытка

		ДиаграммаВП.УстановитьЗначение(1,Серия,?(СтрТраб.Получить(2)=Неопределено,0,СтрТраб.Получить(2)));

	Исключение

		// такого не должно быть, но на всякий случай		

	КонецПопытки;	

КонецЦикла;     

 ГУИДССЫЛКИ	= СсылкаНаОбъект.УникальныйИдентификатор();

// или

НоменклатураСсылка = Справочники.Номенклатура.НайтиПоКоду("00013");

Если НЕ НоменклатураСсылка.Пустая() Тогда

   Сообщить("GUID = " + НоменклатураСсылка.УникальныйИдентификатор());

КонецЕсли; 

   

  Запрос = Новый Запрос;

       Запрос.Текст = "ВЫБРАТЬ

                        |    Номенклатура.НаименованиеПолное,

                        |    Номенклатура.ЕдиницаИзмерения,

                        |    Номенклатура.СтавкаНДС,

                        |    Номенклатура.НоменклатурнаяГруппа,

                        |    Номенклатура.СчетУчетаЗапасов,

                        |    Номенклатура.СчетУчетаЗатрат,

                        |    Номенклатура.Ссылка, 

                        |    Номенклатура.ЭтоГруппа

                        | ИЗ

                        |    Справочник.Номенклатура КАК Номенклатура"; 

       РезультатЗапроса = Запрос.Выполнить();

       СпрОбъект = РезультатЗапроса.Выбрать();    

       Пока СпрОбъект.Следующий()  Цикл

          СтрокаУИ = Объект.XMLСтрока(СпрОбъект.Ссылка);

          GUID = Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(СокрЛП(СтрокаУИ)));          

        КонецЦикла;

   

 Инфо = СоздатьОбъект("AddIn.V7SysInfo");

ГлобальноУникальныйИдентификатор = Инфо.СоздатьGUID();

 Функция СоздатьGUID()

    TypeLib = CreateObject("Scriptlet.TypeLib");

    NewGUID = TypeLib.Guid();

    TypeLib = "";

    Возврат NewGUID;

КонецФункции    



//******************************************* 

Процедура Сформировать()

    g=СоздатьGUID();

    Сообщить("Создан GUID: "+g);

КонецПроцедуры

 Если Док_Источник.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода) = 1 Тогда

    Пока Док_Источник.ПолучитьДокумент() = 1 Цикл

Объект = БазаОле.ЗначениеВстрокуВнутр(Док_Источник.ТекущийДокумент());

ИдентификаторДокумента = СокрЛП(ПолучитьИД(Объект));



//   Для примера Объект возвращает {"O","0","0","3114","0","0","    258156CB "}, 

//   а ПолучитьИД(объект) = 258156CB

КонецЦикла;