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



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

    Диаграмма.КоличествоСерий = 0; 

    Диаграмма.КоличествоТочек = 0; 





    // Количество серий будет ограничиваться (не все значения будут показываться). 

    Диаграмма.МаксимумСерий = МаксимумСерий.Ограничено; 

    Диаграмма.МаксимумСерийКоличество = 7; 

    Диаграмма.ВидПодписей = ВидПодписейКДиаграмме.Процент; 

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





    Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ 

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

    |	СУММА(ПродажиКомпанииОбороты.КоличествоОборот) КАК КоличествоОборот 

    |ИЗ 

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

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

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





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





    // Запретить обновление диаграммы на время вывода данных. 

    Диаграмма.Обновление = Ложь; 





    // Установить единственную точку. 

    Диаграмма.КоличествоТочек = 1; 

    Диаграмма.Точки[0].Текст = "Количество"; 

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





    Пока Выборка.Следующий() Цикл 





        // Количество серий, если бы не ограничивали зависело бы от результата запроса. 

        КоличествоСерий = Диаграмма.Серии.Количество(); 

        Диаграмма.КоличествоСерий = КоличествоСерий + 1; 

        Диаграмма.Серии[КоличествоСерий].Текст = Выборка.Номенклатура; 





        // Установить значение "на пересечении" точки и серии. 

        // Первый параметр - 0 , так как в диаграмме только одна точка. 

        Диаграмма.УстановитьЗначение(0, КоличествоСерий, Выборка.КоличествоОборот); 





    КонецЦикла; 





    // Обновить диаграмму. 

    Диаграмма.Обновление = Истина;   

   

 Процедура путьКФайлуЗагрузкиНачалоВыбора(Элемент, СтандартнаяОбработка)

	Режим = РежимДиалогаВыбораФайла.Открытие;

	ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

	ДиалогОткрытияФайла.ПолноеИмяФайла = "";

	Фильтр = "Comma separated file (*.csv)|*.csv";

	ДиалогОткрытияФайла.Фильтр = Фильтр;

	ДиалогОткрытияФайла.МножественныйВыбор = Ложь;

	ДиалогОткрытияФайла.Заголовок = "Выберите файл";

	

	Если ДиалогОткрытияФайла.Выбрать() Тогда

		путьКФайлуЗагрузки = ДиалогОткрытияФайла.ПолноеИмяФайла;

	КонецЕсли;

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

 Процедура КоманднаяПанель1Заполнить(Кнопка)

	Если табЗагрузки.Количество() > 0 И Вопрос("Таблица будет очищена. Вы уверены?",РежимДиалогаВопрос.ДаНет) 

		= КодВозвратаДиалога.Нет Тогда

		Возврат;	

	КонецЕсли;

	ЗаполнитьТаблицу();

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

Процедура ЗаполнитьТаблицу()

	текст = Новый ТекстовыйДокумент;

	Попытка

		//обязательно устанавливаем кодировку, в которой наш файл

		текст.Прочитать(путьКФайлуЗагрузки,КодировкаТекста.UTF8);

	Исключение

		Сообщить("Не удалось прочитать файл: " 

			+ ОписаниеОшибки(),СтатусСообщения.ОченьВажное);

		Возврат;

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

	табЗагрузки.Очистить();//очищаем таблицу

	табЗагрузки.Колонки.Очистить();//удаляем колонки, так как их состав мог измениться

	квоСтрок = текст.КоличествоСтрок();

	Если Не квоСтрок > 0 Тогда

		Сообщить("Файл пустой",СтатусСообщения.Внимание);

		Возврат;	

	КонецЕсли;

	//получаем первую строку с форматом файла

	стрТекста = текст.ПолучитьСтроку(1);

	//преобразуем строку в массив при помощи функции общего модуля, которая есть в типовых

	//ниже я дам её код, на случай, если нет

	масЗначСтр = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(стрТекста,разделительПолей);

	//добавляем две служебные колонки

	//для возможности отказаться от загрузки определенной строки

	табЗагрузки.Колонки.Добавить("не_загружать",Новый ОписаниеТипов("Булево"),"Не загружать");

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

	табЗагрузки.Колонки.Добавить("номер_строки",Новый ОписаниеТипов("Число",

		Новый КвалификаторыЧисла(10,0,ДопустимыйЗнак.Неотрицательный)),"Номер строки");

	//формируем колонки нашей таблицы	

	Для каждого зн Из масЗначСтр Цикл

		//убираем лишний символОграничения

		значение = СтрЗаменить(зн,символОграничения,""); 

		кол = табЗагрузки.Колонки.Добавить(значение,Новый ОписаниеТипов("Строка"));

	КонецЦикла;

	

	//создаём колонки в табличном поле

	ЭлементыФормы.табЗагрузки.СоздатьКолонки();

	

	//начиная со второй строки читаем строки файла, раскладывая их в массив

	Для номСтр = 2 По квоСтрок Цикл

		стрТекста = текст.ПолучитьСтроку(номСтр);

		масЗначСтр = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(стрТекста,разделительПолей);

		//добавляем новую строку в таблицу

		новСтр = табЗагрузки.Добавить();

		новСтр.номер_строки = номСтр;

		//начиная с третьей колонки производим установку значений в колонки

		номЗнач = 2;

		Для каждого зн Из масЗначСтр Цикл

			новСтр[номЗнач] = СтрЗаменить(зн,символОграничения,"");

			номЗнач = номЗнач + 1;

		КонецЦикла;

    КонецЦикла;

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

 Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",") Экспорт

	МассивСтрок = Новый Массив();

	Если Разделитель = " " Тогда

		Стр = СокрЛП(Стр);

		Пока Истина Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				МассивСтрок.Добавить(Стр);

				Возврат МассивСтрок;

			КонецЕсли;

			МассивСтрок.Добавить(Лев(Стр,Поз-1));

			Стр = СокрЛ(Сред(Стр,Поз));

		КонецЦикла;

	Иначе

		ДлинаРазделителя = СтрДлина(Разделитель);

		Пока Истина Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				МассивСтрок.Добавить(Стр);

				Возврат МассивСтрок;

			КонецЕсли;

			МассивСтрок.Добавить(Лев(Стр,Поз-1));

			Стр = Сред(Стр,Поз+ДлинаРазделителя);

		КонецЦикла;

	КонецЕсли;

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

 Процедура КоманднаяПанель1Загрузить(Кнопка)

	Если Вопрос("Вы уверены, что хотите загрузить файл?", РежимДиалогаВопрос.ДаНет) 

		= КодВозвратаДиалога.Нет Тогда

	    Возврат;	

	КонецЕсли;

	ВсегоСтрок = табЗагрузки.Количество();

	номСтр = 1;

	Для каждого стрТЗ Из табЗагрузки Цикл

		Состояние("Обработано: " + Окр(номСтр * 100 / ВсегоСтрок) + "%");

		номСтр = номСтр + 1;

		ОбработкаПрерыванияПользователя();

		//если пользователь установил не_загружать = Истина, пропускаем 

		Если стрТЗ.не_загружать Тогда

			Продолжить;		

		КонецЕсли;

		объект1С = вернутьТовар(стрТЗ);

		Если объект1С = Неопределено Тогда

			Возврат;			

		КонецЕсли;

		Если Не ЗаписатьЭлементСпр(объект1С) Тогда

			Сообщить("Загрузка прервана!",СтатусСообщения.ОченьВажное);

			Возврат;				

		КонецЕсли;	

		//помечаем запись, как загруженную

		стрТЗ.не_загружать = Истина;

	КонецЦикла;

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

 Функция вернутьТовар(стрТабФайла)

	Артикул = стрТабФайла.product_sku;

	Если Не ЗначениеЗаполнено(Артикул) Тогда

		Сообщить("В строке " + стрТабФайла.номер_строки + " не заполнен product_sku",

		СтатусСообщения.ОченьВажное);

		Возврат Неопределено;		

	КонецЕсли;

	Запрос = Новый Запрос("ВЫБРАТЬ

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

	|ИЗ

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

	|ГДЕ

	|	Номенклатура.Артикул = &Артикул");

	

	Запрос.УстановитьПараметр("Артикул",Артикул);

	

	Выборка = Запрос.Выполнить().Выбрать();

	Если Выборка.Следующий() Тогда

		Возврат Выборка.Ссылка.ПолучитьОбъект();			

	Иначе

		ЭтоНовый = Истина;

		объект1С = Справочники.Номенклатура.СоздатьЭлемент();

		объект1С.Артикул = Артикул;

		объект1С.Наименование = стрТабФайла.product_name;

		объект1С.Родитель = вернутьРодителяТовара(стрТабФайла.category_path);

		Возврат объект1С;

	КонецЕсли;

КонецФункции // вернутьТовар()

Функция ЗаписатьЭлементСпр(Спр)

	Попытка

		Спр.Записать();

	Исключение

		Сообщить("При записи элемента справочника " + Спр + " возникла ошибка: " + ОписаниеОшибки(),СтатусСообщения.ОченьВажное);

		Возврат Ложь;

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

	Возврат Истина;

КонецФункции // ЗаписатьЭлементСпр()   

 Функция вернутьРодителяТовара(стрКатегории)

	//главный родитель - заполненная в обработке папка

	Родитель = ПапкаЗагрузкиВыгрузкиТоваров;

	//строку категории раскладываем в массив используя разделитель /

	масРодителей = РазложитьСтрокуВМассивПодстрок(стрКатегории,"/");

	Для каждого Род Из масРодителей Цикл

		//если папку не находим, создаём и назначаем в качестве родителя 

		//следующей и т. д. В случае проблем выдаём прекращаем загрузку

		РодСс = Справочники.Номенклатура.НайтиПоНаименованию(Род,Истина);

		Если РодСс.Пустая() Тогда

			НовРод = Справочники.Номенклатура.СоздатьГруппу();

			НовРод.Наименование = Род;

			НовРод.Родитель = Родитель;

			Если Не ЗаписатьЭлементСпр(НовРод) Тогда

				Возврат Неопределено; 			

			КонецЕсли;

			Родитель = НовРод.Ссылка;

		Иначе

			Родитель = РодСс;

		КонецЕсли;		

	КонецЦикла;

	Возврат Родитель;

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

 //стрТаблицаЕдиницИзмерения - таблица в строке с колонками.

//GUIDЕдиницы

//Базовая - булево

//Коэффициент

//ЕдиницаИзмерения - код классификатора Единиц измерения.

//Утверждено - булево

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

//ТаблицаГабаритов С колонками

//ВидУпаковки (строковое значение)

//Длина

//ширина

//высота

//объем

//ОбъемныйВес

//Вес

//ФормаОснования

//ВесБрутто

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



//стрСтруктураРеквизитов - структура с праметрами

//Наименование

//код

//ПометкаУдаления

//ВидТовара - идентификатор перечисления

//GUIDПроизводителя - GUID производителя

//СтавкаНДС - число ставка

//Жив - булево

Функция СинхронизироватьТовар(GUIDтовара, GUIDродителя, этоГруппа, Уровень, стрСтруктураРеквизитов, стрТаблицаЕдиницИзмерения,стрТаблицаТНВЭД)

	Попытка

		СтруктураРеквизитов = ЗначениеИзСтрокиВнутр(стрСтруктураРеквизитов);

		ТоварСсылка = Справочники.Товары.НайтиПоРеквизиту("GUIDтовара",СокрЛП(GUIDтовара));

		Если СокрЛП(GUIDродителя)<>"" тогда

			ТоварРодитель = Справочники.Товары.НайтиПоРеквизиту("GUIDтовара",СокрЛП(GUIDродителя));

		иначе

			ТоварРодитель = Справочники.Товары.ПустаяСсылка();

		КонецЕсли;

		

		Если ТоварРодитель.Пустая() и Уровень<>"0" тогда

			Если СтруктураРеквизитов.ПометкаУдаления тогда

				Возврат "ОК";

			КонецЕсли;

			возврат "0 Не найден родитель товара";

		КонецЕсли;

		Если СокрЛП(GUIDтовара) = "" тогда

			возврат "0 Не верный ГУИД товара";

		КонецЕсли;

		//заполним реквизиты

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

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

		КонецЕсли;

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

			

			Если этоГруппа="1" тогда 

				ТоварОбъект = Справочники.Товары.СоздатьГруппу();

			иначе

				ТоварОбъект = Справочники.Товары.СоздатьЭлемент();

			КонецЕсли;

			ТоварОбъект.GUIDтовара = GUIDтовара;

		иначе

			ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

			ТоварОбъект.GUIDтовара = GUIDтовара;

		КонецЕсли;

		ТоварОбъект.Родитель = ТоварРодитель;

		

		ТоварОбъект.Наименование = СтруктураРеквизитов.Наименование;

		

		ТоварОбъект.Код = СтруктураРеквизитов.Код;

		.....................

		Если этоГруппа="1" тогда 

		иначе

			Если СтруктураРеквизитов.менеджер <> "" тогда

				......................

			КонецЕсли;

			//

			Если ТоварОбъект.Производитель.Пустая() тогда

				Если СтруктураРеквизитов.Производитель<>"" тогда

					ТекПроизводитель = справочники.Производители.НайтиПоНаименованию(СтруктураРеквизитов.Производитель);

					Если ТекПроизводитель.Пустая() тогда

						НовПроизводитель = Справочники.Производители.СоздатьЭлемент();

					иначе

						НовПроизводитель = ТекПроизводитель.ПолучитьОбъект();

					КонецЕсли;

					НовПроизводитель.GUID = СтруктураРеквизитов.GUIDПроизводителя;

					НовПроизводитель.Наименование = СтруктураРеквизитов.Производитель;

					НовПроизводитель.Записать();

					ТоварОбъект.Производитель = НовПроизводитель.ссылка;

				КонецЕсли;

			КонецЕсли;

			ТоварОбъект.СтавкаНДС = Справочники.СтавкиНДС.НайтиПоНаименованию(СтруктураРеквизитов.СтавкаНДС,Истина);

			

		КонецЕсли;

		

		ТоварОбъект.Записать();

		ТоварОбъект.УстановитьПометкуУдаления(СтруктураРеквизитов.ПометкаУдаления,Ложь);

		ТоварСсылка = ТоварОбъект.Ссылка;

		ТоварОбъект = Null;

		

		//Синхронизируем Единицы измерения

		ТаблицаЕдиниц = ЗначениеИзСтрокиВнутр(стрТаблицаЕдиницИзмерения);

		Для каждого строка из ТаблицаЕдиниц цикл

			ЕдиницаСсылка = Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("GUIDЕдиницы",строка.GUIDЕдиницы);

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

				ЕдиницаОбъект = ЕдиницаСсылка.ПолучитьОбъект();

				ЕдиницаОбъект.УстановитьПометкуУдаления(строка.ПометкаУдаления,Ложь);

			иначе

				Если строка.ПометкаУдаления тогда

					продолжить; 

				КонецЕсли;

				ЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();

				ЕдиницаОбъект.GUIDЕдиницы = строка.GUIDЕдиницы;

			КонецЕсли;

			

			ЕдиницаОбъект.Код = строка.Код; 

			ЕдиницаОбъект.Наименование = строка.Наименование; 

			....................

			

			ЕдиницаОбъект.Габариты.Очистить();

			ТаблицаГабаритов = ЗначениеИзСтрокиВнутр(строка.ТаблицаГабаритов);

			Для каждого строкаГабаритов из ТаблицаГабаритов цикл

				НовСтрока = ЕдиницаОбъект.Габариты.Добавить();

				............................

				НовСтрока.Примечание = строкаГабаритов.Примечание;

			КонецЦикла;

			ЕдиницаОбъект.Записать();

			Если строка.Базовая тогда

				ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

				ТоварОбъект.БазоваяЕдиницаИзмерения = ЕдиницаОбъект.Ссылка;

				ТоварОбъект.Записать();

			КонецЕсли;

		КонецЦикла;

		

		ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

		ТоварОбъект.ВремяСинхронизации = ТекущаяДата();

		ТоварОбъект.Синхронизирован = истина;

		ТоварОбъект.Записать();

	исключение

		//в случае возникновение ошибки вывод результата облегчит поиск причины.

		Возврат ОписаниеОшибки();

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

	//Если все прошло успешно сообщим методу вызвашему веб сервис об успешном выполнении.

	Возврат "ОК";

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

 Процедура ПередЗаписью(Отказ)

	#Если не ВнешнееСоединение тогда                          

		//На случай двустороннего обмена данными, необходимо ограничить возможность вызова процедур синхронизации при записи спарвника из режима внешнего соединения.

		Если передавать = истина тогда

			Синхронизирован = Ложь; 

		КонецЕсли;

	#КонецЕсли

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



Процедура ПриЗаписи(Отказ)

	#Если не ВнешнееСоединение тогда

		Если Константы.СинхронизироватьБазы.Получить() и передавать тогда

			Синхронизация();

		КонецЕсли;

	#КонецЕсли

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



Функция Синхронизация()

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

	Если ссылка.Уровень()>0 тогда

		GUIDродителя = СокрЛП(ссылка.Родитель.УникальныйИдентификатор());

		Уровень = ссылка.Уровень()

	иначе

		GUIDродителя = "";

		Уровень = "0";

	КонецЕсли;

	Если ЭтоГруппа тогда

		СтрэтоГруппа = "1";

	иначе

		СтрэтоГруппа = "0";

	КонецЕсли;

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

	//заполним структуру параметров которые мы бы хотели передать в базу приемник.

	

	СтруктураРеквизитов.Вставить("Наименование",Наименование);

	СтруктураРеквизитов.Вставить("код",код);

	....................

	Если не ЭтоГруппа тогда

		Если ОсновнойПоставщик.Пустая() тогда

			......................

		иначе

			.....................

		КонецЕсли;

		

	КонецЕсли;

	

	стрСтруктураРеквизитов = ЗначениеВСтрокуВнутр(СтруктураРеквизитов);

	

	ТаблицаЕдиницИзмерения = Новый ТаблицаЗначений;

	//GUIDЕдиницы

	//Базовая - булево

	//Коэффициент

	//ЕдиницаИзмерения - код классификатора Единиц измерения.

	//Утверждено - булево

	//ТаблицаГабаритов

	

	ТаблицаЕдиницИзмерения.Колонки.Добавить("Наименование");

	ТаблицаЕдиницИзмерения.Колонки.Добавить("Код");

	....................................

	Выборка = Справочники.ЕдиницыИзмерения.Выбрать(,ссылка);

	Пока Выборка.Следующий() цикл

		НовСтрока = ТаблицаЕдиницИзмерения.Добавить();

		НовСтрока.Наименование = Выборка.Наименование;

		НовСтрока.Код = Выборка.Код;

		..........................

		ТаблицаГабаритов = Новый ТаблицаЗначений;

		Для каждого колонка из Выборка.Габариты.Выгрузить().Колонки цикл

			ТаблицаГабаритов.Колонки.Добавить(колонка.Имя);

		КонецЦикла;

		Для каждого строка из Выборка.Габариты цикл

			НовСтрока1 = ТаблицаГабаритов.Добавить();

			Для каждого колонка из ТаблицаГабаритов.Колонки цикл

				НовСтрока1[колонка.Имя] = строка[колонка.Имя];

			КонецЦикла;

		КонецЦикла;

		

		НовСтрока.ТаблицаГабаритов = ЗначениеВСтрокуВнутр(ТаблицаГабаритов);

	КонецЦикла; 

	// т.к. наш вебсервис принимает в себя только строковые параметры, преобразуем наши таблицы в строки.

	стрТаблицаЕдиницИзмерения = ЗначениеВСтрокуВнутр(ТаблицаЕдиницИзмерения);

	

	есть = Ложь;

	колПопыток = 0;

	Пока не Есть и колПопытокцикл

		Попытка

			Определение = Новый WSОпределения(Константы.WebАдресМаркетинга.Получить()+"wssinhron.1cws"+"?wsdl",ПараметрыСеанса.Пользователь.Код,ПараметрыСеанса.Пользователь.ПарольЗакупок);

			Прокси = Новый WSПрокси(Определение, "www.market-sinhron.gor", "Синхронизация", "СинхронизацияSoap");

			Прокси.Пароль = ПараметрыСеанса.Пользователь.ПарольЗакупок;

			Прокси.Пользователь = ПараметрыСеанса.Пользователь.Код;

			Результат = Прокси.СинхронизироватьТовар(GUIDтовара, GUIDродителя, СтрЭтоГруппа, Уровень, стрСтруктураРеквизитов, стрТаблицаЕдиницИзмерения, стрТаблицаТНВЭД);

			Определение = Null;

			Прокси = Null;

			есть = Истина;

		исключение

			колПопыток = колПопыток+1;

			Определение = Null;

			Прокси = Null;

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

	КонецЦикла;

	Если колПопыток=100 тогда

		#Если Клиент тогда

			сообщить(ОписаниеОшибки());

			Предупреждение("Ошибка синхронизации. отсутствует подключение.");

		#КонецЕсли

	КонецЕсли;

	передавать = ложь;

	сообщить(Результат);

	Если Лев(Результат,2)="ОК" тогда

		Синхронизирован = Истина;

		ВремяСинхронизации = ТекущаяДата();

		Записать();

	КонецЕсли;

	

	Если СокрЛП(Результат)="0 Не найден родитель товара" тогда

		#Если Клиент тогда

			Сообщить("вызов синхронизации родителя");

		#КонецЕсли

		ОбъектРодитель = родитель.ПолучитьОбъект();

		ОбъектРодитель.Записать();

		Записать();

	КонецЕсли;

	

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

 передавать = истина;

Синхронизация();   

 Если ТипЗнч(Расшифровка) = Тип("СписокЗначений") Тогда

        Если Расшифровка.Количество() = 1 Тогда

            ВыбранноеЗначение = Расшифровка[0];

        Иначе

            ВыбранноеЗначение = Расшифровка.ВыбратьЭлемент("Выберите расшифровку",Расшифровка[0]);

        КонецЕсли;

        Если ВыбранноеЗначение <> Неопределено Тогда

            ВыбраннаяРасшифровка = ВыбранноеЗначение.Значение;

        Иначе

            СтандартнаяОбработка = Ложь;

            Возврат;

        КонецЕсли;

    ИначеЕсли ТипЗнч(Расшифровка) = Тип("Структура")

        ИЛИ ТипЗнч(Расшифровка) = Тип("Соответствие") Тогда

        

        ВыбраннаяРасшифровка = Расшифровка;

    КонецЕсли;

    

    Если ТипЗнч(ВыбраннаяРасшифровка) = Тип("Структура") 

        ИЛИ ТипЗнч(ВыбраннаяРасшифровка) = Тип("Соответствие") Тогда

        

        ОбщаяРасшифровка = Элемент.Область(1,1).Расшифровка;

        

        Если ТипЗнч(ОбщаяРасшифровка) = Тип("Структура") 

            ИЛИ ТипЗнч(ОбщаяРасшифровка) = Тип("Соответствие") Тогда

            

            Для Каждого Элемент Из ОбщаяРасшифровка Цикл

                ВыбраннаяРасшифровка.Вставить(Элемент.Ключ, Элемент.Значение);

            КонецЦикла;

            

        КонецЕсли;

        

        СтандартнаяОбработка = Ложь;

        

        Отчет = Отчеты[ВыбраннаяРасшифровка["ИмяОбъекта"]].Создать();

        Настройки = Отчет.КомпоновщикНастроек.ПолучитьНастройки();

        Отчет.РежимРасшифровки = Истина;

        ФормаОтчета = Отчет.ПолучитьФорму(, , Новый УникальныйИдентификатор());

        Отчет.НачалоПериода = ДатаНач;

        Отчет.КонецПериода  = ДатаКон;

        Отчет.Организация   = ПостроительОтчета.Отбор.Организация.Значение;

        Отчет.Счет = ПланыСчетов.Хозрасчетный.Материалы;

        Отчет.Настроить();                    

        Если ВыбраннаяРасшифровка["Отбор"] <> Неопределено Тогда

            Для Каждого СтрокаОтбора Из ВыбраннаяРасшифровка["Отбор"] Цикл

                Если ТипЗнч(СтрокаОтбора.Значение) <> Тип("Соответствие") Тогда

                    ТиповыеОтчеты.ДобавитьОтбор(Отчет.КомпоновщикНастроек, СтрокаОтбора.Ключ, СтрокаОтбора.Значение);

                Иначе                              

                    Для Каждого Элемент Из СтрокаОтбора.Значение Цикл

                        ТиповыеОтчеты.ДобавитьОтбор(Отчет.КомпоновщикНастроек,Элемент.Ключ,Элемент.Значение);

                    КонецЦикла;                              

                КонецЕсли;                           

            КонецЦикла;

        КонецЕсли;          

        

        ФормаОтчета.Открыть();

        ФормаОтчета.ОбновитьОтчет();   

 ПолучитьНавигационнуюСсылку()   

 ПолучитьНавигационнуюСсылку(<Объект>, <ИмяРеквизита>, <Индекс>)   

 // Адрес объекта

Адрес1 = ПолучитьНавигационнуюСсылку(Объект.Ссылка);



// Адрес реквизита объекта

Адрес2 = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "Реквизит1");



// Адрес реквизита табличной части объекта

Адрес3 = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ТабличнаяЧасть1.Реквизит1", 10);



// ПолучитьНавигационнуюСсылку на форму обработки

сс=ПОлучитьНавигационнуюСсылку(Обработки.Обработка1.ПолучитьФорму("Форма1"));

// "e1cib/app/Обработка.Обработка1"   

 СсылкаНаКартинку = ПоместитьВоВременноеХранилище(Константы.Логотип.Получить().Получить(),УникальныйИдентификатор);   

  &НаКлиенте

Процедура СписокПриАктивизацииСтроки(Элемент)     

     СотрудникСсылка = Элементы.Список.ТекущиеДанные.Ссылка; //в форме списка должен быть такой элемент - Ссылка     

     Показатькартинку(СотрудникСсылка);

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



&НаСервере

Процедура ПоказатьКартинку (СотрудникСсылка)

     АдресКартинки = ПолучитьНавигационнуюСсылку(СотрудникСсылка.Фото, "Хранилище");

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

 Процедура ПриЧтенииНаСервере(ТекущийОбъект)

КлючЗаписиРег = РегистрыСведений.ХранилищеКартинок.СоздатьКлючЗаписи(Новый Структура("Ном", ТекущийОбъект.ссылка));

Если Не КлючЗаписиРег.Пустой() Тогда

   СсылкаНаКартинку = ПолучитьНавигационнуюСсылку(КлючЗаписиРег, "Картинка");

КонецЕсли;

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

 ВЫБРАТЬ

 ТоварыНаСкладахОстатки.Номенклатура,

 ТоварыНаСкладахОстатки.КоличествоОстаток

ИЗ

 РегистрНакопления.ТоварыНаСкладах.Остатки КАК ТоварыНаСкладахОстатки

ГДЕ

 ТоварыНаСкладахОстатки.Склад = &Склад   

 ВЫБРАТЬ

 ТоварыНаСкладахОстатки.Номенклатура,

 ТоварыНаСкладахОстатки.КоличествоОстаток

ИЗ

 РегистрНакопления.ТоварыНаСкладах.Остатки(, Склад = &Склад) КАК ТоварыНаСкладахОстатки   

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

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

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

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" );

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

 Процедура ОпределитьСписокРецензентовПередСозданиемЗадач(ТочкаМаршрутаБизнесПроцесса, ФормируемыеЗадачи, СтандартнаяОбработка)



    НоваяЗадача = Задачи.Задача.СоздатьЗадачу();

    НоваяЗадача.БизнесПроцесс = ЭтотОбъект.Ссылка;

    НоваяЗадача.ТочкаМаршрута = БизнесПроцессы.Согласование.ТочкиМаршрута.ОпределитьСписокРецензентов;

    НоваяЗадача.Дата = ТекущаяДата();

    НоваяЗадача.Наименование = БизнесПроцессы.Согласование.ТочкиМаршрута.ОпределитьСписокРецензентов.Наименован

ие;

    НоваяЗадача.Сотрудник = ПараметрыСеанса.ТекущийИсполнитель;



    ФормируемыеЗадачи.Добавить(НоваяЗадача);

    СтандартнаяОбработка = Ложь;



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

 Процедура НаСогласованиеПриСозданииЗадач(ТочкаМаршрутаБизнесПроцесса, ФормируемыеЗадачи, Отказ)



    Для Каждого Элемент Из Рецензии Цикл



        НоваяЗадача = Задачи.Задача.СоздатьЗадачу();

        НоваяЗадача.БизнесПроцесс = ЭтотОбъект.Ссылка;

        НоваяЗадача.ТочкаМаршрута = БизнесПроцессы.Согласование.ТочкиМаршрута.НаСогласование;

        НоваяЗадача.Дата = ТекущаяДата();

        НоваяЗадача.Наименование = БизнесПроцессы.Согласование.ТочкиМаршрута.НаСогласование.Наименование;



        НоваяЗадача.Сотрудник = Элемент.Рецензент;

        НоваяЗадача.РольИсполнителя = Элемент.РольИсполнителя;

        НоваяЗадача.Подразделение = Элемент.Подразделение;



        ФормируемыеЗадачи.Добавить(НоваяЗадача);

        НоваяЗадача.Записать();

        Элемент.Задача = НоваяЗадача.Ссылка;



    КонецЦикла;



    Записать();



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

 Функция ПолучитьВажныеРеквизиты(ВидКонтрагента)



МассивРеквизитов = Новый Массив;



Если ВидКонтрагента = Перечисления.ВидыКонтрагентов.Поставщик Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ИНН");

МассивРеквизитов.Добавить("ТипЦен");

МассивРеквизитов.Добавить("ЛимитКледита");



ИначеЕсли ВидКонтрагента = Перечисления.ВидыКонтрагентов.Покупатель Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ФактАдрес");

МассивРеквизитов.Добавить("ПроцентБонусов");



ИначеЕсли ВидКонтрагента = Перечисления.ВидыКонтрагентов.Банк Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ИНН");

МассивРеквизитов.Добавить("БИК");



ИначеЕсли ВидКонтрагента = Перечисления.ВидыКонтрагентов.Налоговая Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ИНН");

МассивРеквизитов.Добавить("КодИФНС");



КонецЕсли;



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

   

 «ОбработкаПолученияДанныхВыбора»   

 Справочники.Номенклатура.Печать(ТабДок, Ссылка)   

 СправочникОбъект.Наименование = "Новое наименование";   

 Если ИмяРеквизита="Наименование" тогда

СправочникОбъект.Наименование = ЗначениеРеквизита;

ИначеЕсли ИмяРеквизита="Код" тогда

СправочникОбъект.Код = ЗначениеРеквизита;

ИначеЕсли

.....

КонецЕсли;   

 СправочникОбъект[ИмяРеквизита] = ЗначениеРеквизита;   

 Функция ЧислоURL(Стр) 

	Возврат СтрЗаменить(Строка(Стр),".",",");

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

 Функция МуДата(Стр)  //дата в формате MySQL (ГГГГ-ММ-ДД)

	Возврат "" + ДатаГод(Стр) + "-" +ДатаМесяц(Стр) + "-" + ДатаЧисло(Стр);	

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

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

 	ПЕРЕМ СтрокаДляПриёма;

	ЗагрузитьВнешнююКомпоненту("v7plus.dll");

	HTTP=СоздатьОбъект("addin.v7httpreader");

	адрес="http://www.google.ru";

	HTTP. ПолучитьКакСтроку (адрес, СтрокаДляПриёма);

	сообщить (СтрокаДляПриёма);

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

 Функция Сформировать()

   	ПЕРЕМ СтрокаДляПриёма;

	ЗагрузитьВнешнююКомпоненту("v7plus.dll");

	HTTP=СоздатьОбъект("addin.v7httpreader");

	адрес="http://localhost/test.php?text="+текст;

	HTTP. ПолучитьКакСтроку(адрес, СтрокаДляПриёма);

	Сообщить(СтрокаДляПриёма);

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

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

   	ПЕРЕМ СтрокаДляПриёма;

	ЗагрузитьВнешнююКомпоненту("v7plus.dll");

	HTTP=СоздатьОбъект("addin.v7httpreader");

	адрес=адрес="http://localhost/test.php?text="+Стр;

	HTTP. ПолучитьКакСтроку(адрес, СтрокаДляПриёма);

	возврат(СтрокаДляПриёма);

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