//W1C - Отображение статуса наличия документов

	Для Каждого Строка Из ОформленияСтрок Цикл

		Если Строка.ДанныеСтроки.Ссылка.ТипОригинал  = 0 Тогда

			Строка.Ячейки.СтатусДокумента.УстановитьТекст("Нет");

			Строка.Ячейки.СтатусДокумента.ЦветФона = Новый Цвет(255, 87, 87);

		ИначеЕсли Строка.ДанныеСтроки.Ссылка.ТипОригинал  = 1 Тогда

			Строка.Ячейки.СтатусДокумента.УстановитьТекст("Скан");

			Строка.Ячейки.СтатусДокумента.ЦветФона = Новый Цвет(255, 255, 153);

		ИначеЕсли Строка.ДанныеСтроки.Ссылка.ТипОригинал  = 2 Тогда

			Строка.Ячейки.СтатусДокумента.УстановитьТекст("Оригинал");

			Строка.Ячейки.СтатусДокумента.ЦветФона = Новый Цвет(155, 255, 155);

		КонецЕсли;

	КонецЦикла; 

	//*//   

 Процедура Нарисовать (Кнопка)

// Подготовить текст запроса для выборки данных из

// регистра сведений Курсы валют

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

SQL.Текст = "ВЫБРАТЬ

|КурсыВалют.Валюта,

|КурсыВалют.Курс,

|ДЕНЬГОДА(КурсыВалют.Период) КАК Точки

|ИЗ

|РегистрСведений.КурсыВалют КАК КурсыВалют

|ГДЕ

|КурсыВалют.Период МЕЖДУ &НачПериода И &КонПериода

|И КурсыВалют.Валюта.Наименование <> &исключитьРуб

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

|КурсыВалют.Период";



// Установить период выборки данных

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

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

// Исключить курсы валюты рубли



SQL.УстановитьПараметр("исключитьРуб","Руб.");   

 // Получить доступ к диаграмме, как элементу экранной формы

курсы = ЭлементыФормы.ГрафикКурсов;



// Подготовить элемент к формированию графика

// Сброить данные серий и точек

// Очистить старые значения графика

курсы.Очистить();

курсы.КоличествоСерий = 0;

курсы.КоличествоТочек = 0;

// Отключить обновление диаграммы на время вывода данных.

курсы.Обновление = Ложь;

// Задать заголовок диаграммы

курсы.ОбластьЗаголовка.Текст = "Анализатор курсов валют";



// Сформировать соответствие номеров серий и наименований валют

// Ключ - название валюты,

// Значение - номер серии

серии = Новый Структура;

серии.Вставить("БВЛ",0);

серии.Вставить("USD",1);

серии.Вставить("EUR",2);

серии.Вставить("GBP",3);



// Добавить в диаграмму серии графиков

Для каждого график из серии Цикл

серия = курсы.Серии.Добавить(Строка(график.Ключ));

серия.Маркер = ТипМаркераДиаграммы.Нет;

КонецЦикла;    

 

// Выполнить запрос и начать выборку

Query = SQL.Выполнить().Выбрать();



сменаТочки = 0;

Пока Query.Следующий() Цикл

// Добавляем новую точку после заполнения всех серий

Если сменаТочки <> Query.Точки Тогда

курсы.Точки.Добавить(Query.Точки);

сменаТочки = Query.Точки;

КонецЕсли;



Попытка

// Установка значения графика в точке и серии

курсы.УстановитьЗначение(

Курсы.Точки.Количество()-1,

серии[Строка(Query.Валюта)], Query.Курс);

Исключение

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

КонецЦикла;   

 // Заполнение расчетных значений для точек и серий

график = 0;

Пока график < Курсы.Точки.Количество() Цикл

// Создание графика бивалютной корзины

Корзина = (курсы.ПолучитьЗначение(график,серии["USD"]).Значение*0.55 +

курсы.ПолучитьЗначение(график,серии["EUR"]).Значение*0.45);

курсы.УстановитьЗначение(график,серии["БВЛ"], Корзина);

график = график + 1;

КонецЦикла;



// Обновить диаграмму в экранной форме.

курсы.Обновление = Истина;

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

 Процедура PNG(Кнопка)

// Получить картинку диаграммы

График = ЭлементыФормы.ГрафикКурсов.ПолучитьКартинку( 500, 300, ФорматКартинки.PNG );

// Записать картинку из 1С в PNG

График.Записать( "C:\TEMP\Диаграмма.png" );

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

 Схема = ЭлементыФормы.ГеоСхема; 

Схема.Обновление = Ложь; // Запретить обновление схемы. 



// Отобразить слои Регионы и Города. 

Схема.Слои.Регионы.Видимость = Истина; 

СлойГорода = Схема.Слои.Города; 

СлойГорода.Видимость = Истина; 



// Добавить новую серию для отображения данных источника. 

СерияИнформация = Схема.Слои.Города.Серии.Добавить("Информация"); 

СерияИнформация.Значение = "Информация"; 



// Сформировать таблицу значений источника данных. 

ИсточникДанныхГеоСхемы.Колонки.Добавить("ЗначениеГорода"); 

ИсточникДанныхГеоСхемы.Колонки.Добавить("СерияИнформация", Новый ОписаниеТипов("Строка")); 



// Добавить "справочную" колонку в истоник данных 

// (нужна только для "наглядности" работы с источником). 

ИсточникДанныхГеоСхемы.Колонки.Добавить("НазваниеГорода"); 



// Заполнить в первой строке источника данных значение серии, 

// для которой будут выводиться данные. 

ИсточникДанныхГеоСхемы.Добавить().СерияИнформация = "Информация"; 



// Задать тип источника данных 

Схема.Слои.Города.ТипОрганизацииИсточникаДанных = ТипОрганизацииИсточникаДанныхГеографическойСхемы.НаПересечении; 



// Задать тип отображения значений серии источника данных. 

СлойГорода.Серии.Информация.ТипОтображения = ТипОтображенияСерииСлояГеографическойСхемы.Текст; 



// Заполнить источник данных значениями всех объектов. 

Для Каждого Город Из СлойГорода.Объекты Цикл 

    Город.Видимость = Истина; 

    СтрокаИсточникаДанных = ИсточникДанныхГеоСхемы.Добавить(); 

    СтрокаИсточникаДанных.ЗначениеГорода = Город.Значение; 

    СтрокаИсточникаДанных.НазваниеГорода = СлойГорода.ПолучитьЗначение(Город, СлойГорода.Серии.Название).Значение; 

КонецЦикла; 

ЭлементыФормы.ИсточникДанныхГеоСхемы.СоздатьКолонки(); 

Схема.Обновление = Истина; // Обновить поле географической схемы. 



// Назначить источник данных. 

СлойГорода.ИсточникДанных = ИсточникДанныхГеоСхемы; 

   

 ДГ = ЭлементыФормы.ДГ; 



// Установить заголовок диаграммы. 

ДГ.ОбластьЗаголовка.Текст = "График дежурств"; 



// Интервал будем определять самостоятельно. 

ДГ.АвтоОпределениеПолногоИнтервала = Ложь; 



// Установить интервал. 

ДГ.УстановитьПолныйИнтервал(НачалоМесяца(ТекущаяДата()), КонецМесяца(ТекущаяДата())); 



// В диаграмме будет две точки - сотрудники Петров и Сидоров... 

ТочкаП = ДГ.УстановитьТочку("Петров"); 

ТочкаС = ДГ.УстановитьТочку("Сидоров"); 



// и две серии - дежурство на вахте и дежурство в центральном офисе. 

СерияНаВахте = ДГ.УстановитьСерию("На вахте"); 

СерияВЦентре = ДГ.УстановитьСерию("В центральном офисе"); 



// Задать цвета серий, отличные от цвета по умолчанию. 

СерияНаВахте.Цвет = WebЦвета.Синий; 

СерияВЦентре.Цвет = WebЦвета.СветлоЖелтый; 

ПервыйДень = НачалоМесяца(ТекущаяДата()); 



// Получить значение диаграммы - дежурство Петрова на вахте. 

Значение = ДГ.ПолучитьЗначение(ТочкаП, СерияНаВахте); 



// В значении определить новый интервал. 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает на вахте"; 



// Определить границы интервала. 

Интервал.Начало = ПервыйДень; 

Интервал.Конец = ПервыйДень + 10 * 24 * 60 * 60; 



// Получить значение диаграммы - дежурство Петрова в центральном офисе. 

Значение = ДГ.ПолучитьЗначение(ТочкаП, СерияВЦентре); 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает в центральном офисе"; 

Интервал.Начало = ПервыйДень + 14 * 24 * 60 * 60; 

Интервал.Конец = ПервыйДень + 24 * 24 * 60 * 60; 



// Получить значение диаграммы - дежурство Сидорова на вахте. 

Значение = ДГ.ПолучитьЗначение(ТочкаС, СерияНаВахте); 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает на вахте"; 

Интервал.Начало = ПервыйДень + 5 * 24 * 60 * 60; 

Интервал.Конец = ПервыйДень + 15 * 24 * 60 * 60; 



// Получить значение диаграммы - дежурство Сидорова в центральном офисе. 

Значение = ДГ.ПолучитьЗначение(ТочкаС, СерияВЦентре); 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает в центральном офисе"; 

Интервал.Начало = ПервыйДень + 21 * 24 * 60 * 60; 

Интервал.Конец = ПервыйДень + 25 * 24 * 60 * 60;