// соединение с параметрами по умолчанию

Соединение = Новый HTTPСоединение("www.mysite.ru");

 

// сервер использует порт 8080

Соединение = Новый HTTPСоединение("www.mysite.ru", 8080);

 

// сервер использует защищенное соединение (https),

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

ПроксиСервер = Новый интернетПрокси;

ПроксиСервер.Пользователь = имяПользователя;

ПроксиСервер.Пароль       = парольПользователя;

 

Соединение = Новый HTTPСоединение("www.mysite.ru",,,, ПроксиСервер, Истина);      

  // Укажем настройки прокси-сервера

    ПроксиСервер = Новый ИнтернетПрокси;

    ПроксиСервер.Пользователь = "userfile";

    ПроксиСервер.Пароль = "12345";

    ПроксиСервер.Установить("http", "10.1.1.23", "3185");



    СерверИсточник = "shop.com"; 

    Адрес = "/price.asp"; 

    ИмяВходящегоФайла = "c:\temp\input.html";

    // Укажем в HTTP соединении что у нас есть проксик  

    НТТР = Новый HTTPСоединение(СерверИсточник,,,, ПроксиСервер); 

    НТТР.Получить(Адрес, ИмяВходящегоФайла); 

    ВходящийФайл = Новый Файл(ИмяВходящегоФайла);    

 //Создаем Файл для отправки

ИмяФайлаHTML = КаталогВременныхФайлов() + “My1cV8bNdr”;

ФайлHTML = Новый ЗаписьТекста(ИмяФайлаHTML, КодировкаТекста.ANSI);

ФайлHTML.ЗаписатьСтроку(”–My1cV8bNdr”);

ФайлHTML.ЗаписатьСтроку(”content-disposition: form-data; name=”"userfile”"; filename=”"test.htm”"”);

ФайлHTML.ЗаписатьСтроку(”Content-Type: text/html”);

ФайлHTML.ЗаписатьСтроку(”");

ФайлHTML.ЗаписатьСтроку(”Дальше вставляем html код.”);

ФайлHTML.ЗаписатьСтроку(”–My1cV8bNdr–”);

ФайлHTML.Закрыть();





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

ПроксиСервер = Новый ИнтернетПрокси();

ПроксиСервер.Сервер(”адрес прокси”);

ПроксиСервер.Порт(”порт прокси”);

ПроксиСервер.Пользователь = “пользователь прокси”;

ПроксиСервер.Пароль = “пароль прокси”;





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

ЗаголовокHTTP = Новый Соответствие();

ЗаголовокHTTP.Вставить(”Content-Type”, “multipart/form-data; boundary=My1cV8bNdr”);





// Устанавливаем соединение и отпровляем запрос

HTTP = Новый HTTPСоединение(”сервер куда соединяемся”, , , , ПроксиСервер);

HTTP.ОтправитьДляОбработки(ИмяФайлаHTML, “/upload.php”, КаталогВременныхФайлов() + “result.htm”, ЗаголовокHTTP);

HTTP = Неопределено;   

 // Процедура формирования отчета

//

Процедура СформироватьОтчет(ТабличныйДокумент) Экспорт

	

	Если НЕ ЗначениеЗаполнено(УниверсальныйОтчет.ДатаКон) Тогда 

		УниверсальныйОтчет.ДатаКон = ТекущаяДата();

	КонецЕсли;

	

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

	УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаОтчета", КонецДня(УниверсальныйОтчет.ДатаКон));

	УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаНеделяНазад", УниверсальныйОтчет.ДатаКон-(86400*7));





	//УстановитьИнтервалыЗапроса();

	

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

	

	// ДОБАВЛЕННЫЙ КОД - чистит итоги в нужных ячейках

	Для а = 11 по ТабличныйДокумент.ВысотаТаблицы Цикл

		//Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; 

		текстЯчейка = ТабличныйДокумент.Область("R"+а+"C2").Текст; 

		Если Строка(ТабличныйДокумент.Область("R"+а+"C2").ЦветФона)="стиль: Фон кнопки" Тогда

			ТабличныйДокумент.Область("R"+а+"C7").Текст="";

			ТабличныйДокумент.Область("R"+а+"C11").Текст="";	

			ТабличныйДокумент.Область("R"+а+"C8").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C9").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C10").Текст=""; 			

		КонецЕсли;		

	КонецЦикла;

КонецПроцедуры // СформироватьОтчет()   

 &НаСервере

Процедура ЗаписатьСервер()

 

 пСеанс = ВнешниеИсточникиДанных.ВнешнийSQL.ПолучитьОбщиеПараметрыСоединения();

 

 Если НЕ пСеанс.СУБД = "MSSQLServer" Тогда

  Возврат;

 КонецЕсли;

 

 ЗапросSQL = ?(Объект.Ссылка.Пустая(), ПолучитьЗапросДобавления(), ПолучитьЗапросОбновления());

 

 Connection  = Новый COMОбъект("ADODB.Connection");

 Command  = Новый COMОбъект("ADODB.Command");

 RecordSet  = Новый COMОбъект("ADODB.RecordSet");

 

 //учетка и пароль уже в строке подключения

 //иначе их необходимо добавить в строку

 Попытка

  Connection.Open(СокрЛП(пСеанс.СтрокаСоединения));

  Command.ActiveConnection   = Connection;

  Command.CommandText = ЗапросSQL;

  RecordSet = Command.Execute();

 Исключение

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

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





КонецПроцедуры // ЗаписатьСервер()





&НаСервере

Функция ПолучитьЗапросОбновления()

 

 мДанные = Объект.Ссылка.Метаданные();

 СтрокаПоля = "";

 СтрокаДанные = "";

 

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

 

 Для Каждого мПоле Из мДанные.Поля Цикл

  Если Объект[мПоле.Имя] = ДанныеОбъект[мПоле.Имя] Тогда

   Продолжить;

  КонецЕсли;

  СтрокаДанные = СтрокаДанные + ?(ПустаяСтрока(СтрокаДанные), " SET ", ", ") + мПоле.Имя + "= '" + Объект[мПоле.Имя] + "'";

 КонецЦикла;

 

 //делаем UDPDATE по id, поскольку оно у нас ключевое

 ЗапросSQL = "UPDATE " + мДанные.ИмяВИсточникеДанных + СтрокаДанные + "WHERE (id = '" + ДанныеОбъект.id + "')";

 

 Возврат ЗапросSQL; 

 

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





&НаСервере

Функция ПолучитьЗапросДобавления()

 

 мДанные = Объект.Ссылка.Метаданные();

 СтрокаПоля = "";

 СтрокаДанные = "";

 

 Для Каждого мПоле Из мДанные.Поля Цикл

  СтрокаПоля = СтрокаПоля + ?(ПустаяСтрока(СтрокаПоля), " (", ", ") + мПоле.Имя;

  СтрокаДанные = СтрокаДанные + ?(ПустаяСтрока(СтрокаДанные), " VALUES (", ", ") + "'" + Объект[мПоле.Имя] + "'";

 КонецЦикла;

 

 СтрокаПоля = СтрокаПоля + ")";

 СтрокаДанные = СтрокаДанные + ")";

 ЗапросSQL = "INSERT INTO " + мДанные.ИмяВИсточникеДанных + СтрокаПоля + СтрокаДанные;

 

 Возврат ЗапросSQL; 

 

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





&НаКлиенте

Процедура ЗаписатьДанные(Команда)

 

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

 //делаем оповещение для списка, поскольку он автоматически не обновляется

 Оповестить("ОбновитьВнешнийИсточникДанных");

 

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

 &НаКлиенте

Процедура Добавить(Команда)





 ОткрытьФорму("ВнешнийИсточникДанных.ВнешнийSQL.Таблица.dbo_assortment.ФормаОбъекта");

 

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





&НаКлиенте

Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

 

 Если ИмяСобытия = "ОбновитьВнешнийИсточникДанных" Тогда

  Элементы.Список.Обновить();

 КонецЕсли;

 

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

 СформироватьОтчет(ЭлементыФормы.Результат, ДанныеРасшифровки);   

 Макет = ПолучитьОбщийМакет("МакетПодписи");

ОбластьВывести = Макет.ПолучитьОбласть("Подпись");

ЭлементыФормы.Результат.Вывести(ОбластьВывести);   

 Процедура ОбновитьОтчет() Экспорт

СостояниеМодифицированности = Модифицированность;

Если ПанельНастроекНарисована <> Истина Тогда

ОбновлениеОтображения();

КонецЕсли;

ТиповыеОтчеты.ЗагрузитьВРеквизитЗначенияНастроекПанелиПользователя(ЭтотОбъект, ЭтаФорма);

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

ЗначенияНастроек = ТиповыеОтчеты.ПолучитьЗначенияНастроекПанелиПользователяОбъекта(ОтчетОбъект);

Отказ = ложь;

ТиповыеОтчеты.ПроверитьЗначенияПараметров(ЗначенияНастроек, ПараметрыПанели, Отказ);

Если Отказ тогда

Возврат;

КонецЕсли;

РежимформированияОтчета = НЕ ЭтоОтработкаРасшифровки;

СформироватьОтчет(ЭлементыФормы.Результат, ДанныеРасшифровки);

//Мигачев - Вывод подписей

Макет = ПолучитьОбщийМакет("МакетПодписи");

ОбластьВывести = Макет.ПолучитьОбласть("Подпись");

// Если надо вывести параметр

//ОбластьВывести.Параметры.Подписант = Бухгалтер;

ЭлементыФормы.Результат.Вывести(ОбластьВывести);

//*//

УправлениеОтчетами.УстановитьКолонтитулыПоУмолчанию(ЭлементыФормы.Результат, Заголовок, Строка(ПараметрыСеанса.ТекущийПользователь));

Модифицированность = СостояниеМодифицированности;

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

 &НаСервере

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



 пОтчета = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Период");

 Если НЕ пОтчета = Неопределено Тогда

  пОтчета.Значение = КонецДня(Дата);

 КонецЕсли;

 ПредставлениеПериода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ПредставлениеПериода");

 Если НЕ ПредставлениеПериода = Неопределено Тогда

  ПредставлениеПериода.Значение = "Остатки по складам на " + Формат(Дата, "ДЛФ=Д");

 КонецЕсли;

 

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



&НаСервере

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



 УстановитьПараметрыКомпоновки();

 

 Результат.Очистить();



 СхемаКомпоновкиДанных = РеквизитФормыВЗначение("Отчет").СхемаКомпоновкиДанных;

 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Отчет.КомпоновщикНастроек.Настройки, ДанныеРасшифровки);



 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;

 ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);



 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(Результат);

 ПроцессорВывода.ОтображатьПроцентВывода = Истина;



 ПроцессорВывода.Вывести(ПроцессорКомпоновки); 



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



&НаКлиенте

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

 

 СформироватьНаСервере();

 

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



&НаКлиенте

Процедура ПриОткрытии(Отказ)

 

 Дата = ТекущаяДата();

 

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

 &НаСервере

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



 пОтчета = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Период");

 Если НЕ пОтчета = Неопределено Тогда

  пОтчета.Значение = Период;

 КонецЕсли;

 ПредставлениеПериода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ПредставлениеПериода");

 Если НЕ ПредставлениеПериода = Неопределено Тогда

  ПредставлениеПериода.Значение = "Заказы контрагентов за " + Формат(Период.ДатаНачала, "ДЛФ=Д") + " - " + Формат(Период.ДатаОкончания, "ДЛФ=Д");

 КонецЕсли;

 

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



&НаСервере

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



 УстановитьПараметрыКомпоновки();

 

 Результат.Очистить();



 СхемаКомпоновкиДанных = РеквизитФормыВЗначение("Отчет").СхемаКомпоновкиДанных;

 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Отчет.КомпоновщикНастроек.Настройки, ДанныеРасшифровки);



 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;

 ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);



 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(Результат);

 ПроцессорВывода.ОтображатьПроцентВывода = Истина;



 ПроцессорВывода.Вывести(ПроцессорКомпоновки); 

 

 //решил добавить колонтитулы 

 Результат.НижнийКолонтитул.Выводить = Истина; 

 Результат.НижнийКолонтитул.НачальнаяСтраница = 1;

 ШрифтКолонтитула=Новый Шрифт("Arial", 6);

    Результат.НижнийКолонтитул.Шрифт=ШрифтКолонтитула;

 Результат.НижнийКолонтитул.ТекстСлева  = "Тест СКД";



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



&НаКлиенте

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

 

 СформироватьНаСервере();

 

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





&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

 

 Период.ДатаНачала = НачалоМесяца(ТекущаяДата());

 Период.ДатаОкончания = ТекущаяДата();

 

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

 // 1-й вариант

//Как вывести картинку в табличный документ?



ТабДок = Новый ТабличныйДокумент; 

Макет = ОбработкаОбъект.ПолучитьМакет("Макет"); 

ОбластьКартинки = Макет.ПолучитьОбласть("ОбластьСКартинкой"); 

Картинка = Новый Картинка(ПутьККартинке); 



// Элемент управления "Логотип" входит в коллекцию картинок области. 

ОбластьКартинки.Рисунки.Логотип.Картинка = Картинка; 

ТабДок.Вывести(ОбластьКартинки); 



ТабДок.Показать(); 



// 2-й вариант

//Как вывести картинку в табличный документ без изменения макета?



Область = Макет.ПолучитьОбласть("Шапка"); 

Рисунок = Область.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка); 

Рисунок.Верх = 5; 

Рисунок.Высота = 10; 

Рисунок.Ширина = 10; 

Рисунок.Лево = 5; 

Рисунок.Картинка = Новый Картинка(ПутьККартинке); 

Рисунок.РазмерКартинки = РазмерКартинки.РеальныйРазмер; 



ТабДок.Вывести(Область); 



//3-й вариант

//ПечатьОрганизации , добавляем в макет картинку с именем Картинка1 в самую нижнюю

//область с именем ОбластьПечатьОрганизации

ОбластьПечатьОрганизации = Макет.ПолучитьОбласть("ПечатьОрганизации");

Картинка= Новый Картинка("C:\files\img\печатьОрганизации.gif") ;

ОбластьПечатьОрганизации.Рисунки.Картинка1.Картинка = картинка;

ТабДок.Вывести(ОбластьПечатьОрганизации);



// 4-й вариант динамически

ОбластьПечатьОрганизации = Макет.ПолучитьОбласть("ПечатьОрганизации");

КартинкаПечатьОрганизации = ОбластьПечатьОрганизации.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);

КартинкаПечатьОрганизации.Картинка = БиблиотекаКартинок.ОбщаяКартинка1;

КартинкаПечатьОрганизации.Верх = 0;

КартинкаПечатьОрганизации.Высота = 80;

КартинкаПечатьОрганизации.Ширина = 80;

КартинкаПечатьОрганизации.Лево = 50;

КартинкаПечатьОрганизации.ГраницаСверху = Ложь;

КартинкаПечатьОрганизации.ГраницаСлева = Ложь;

КартинкаПечатьОрганизации.ГраницаСправа = Ложь;

КартинкаПечатьОрганизации.ГраницаСнизу = Ложь;

КартинкаПечатьОрганизации.РазмерКартинки = РазмерКартинки.АвтоРазмер;

ТабДок.Вывести(ОбластьПечатьОрганизации);



//5-й вариант получение картинки из хранилища значений

// Выборка.Изображение - выборка из запроса, Изображение реквизит -хранил. значений  

Попытка

    Путь = КаталогВременныхФайлов()+ "\1С_Картинка_"+Формат(ТекущаяДата(),"ДФ=yyyyMMddЧЧммсс")+".bmp";

    КартинкаВПамяти = Выборка.Изображение.Получить();

    КартинкаВПамяти.Записать(Путь);

    ОбластьСостав.Рисунки.D1.Картинка = Новый Картинка(Путь);

Исключение

    ОбластьСостав.Рисунки.D1.Картинка = Новый Картинка;

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

   

 Перем Картинка, ТЗКаталога, ПутьКаталогаРисунков;

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

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

    Таб = СоздатьОбъект("Таблица");

    Таб.ИсходнаяТаблица("Сформировать");

    Картинка = СоздатьОбъект("Картинка");

    т=1;

    ТЗКаталога.ВыбратьСтроки();

    Пока ТЗКаталога.ПолучитьСтроку() = 1 Цикл

        Картинка.Загрузить(ТЗКаталога.Путь);

        Сформировать = т; 

        Таб.ВывестиСекцию("Заголовок");

        т = т+1;

    КонецЦикла;

    Таб.Опции(0,0,0,0);

    Таб.Показать("Сформировать","");

    ТЗКаталога = "";

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

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

Процедура карт(карт)     //Вызывается из объекта картинка на печатной форме

    карт.РежимРисования(3);

    карт.УстановитьКартинку(Картинка);

КонецПроцедуры      //карт(карт)     Вызывается из объекта картинка на печатной форме

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

Процедура СканироватьКаталог(Каталог)    

    Перем А;

    ФСО=СоздатьОбъект("ФС");

    Ф=ФСО.НайтиПервыйФайл(Каталог+"*");

    Пока Ф<>"" Цикл

        Если (Ф<>".")И(Ф<>"..") Тогда

            ФС.АтрибутыФайла(Каталог+Ф,,А);

            Если Сред(А,4,1)="1" Тогда 

                СканироватьКаталог(Каталог+Ф+"\");

            Иначе 

                Если (Прав(Ф,4)=".jpg") или (Прав(Ф,4)=".wmf") или (Прав(Ф,4)=".emf") или (Прав(Ф,4)=".ico") или (Прав(Ф,4)=".bmp") или (Прав(Ф,4)=".dib") или (Прав(Ф,4)=".rle") Тогда

                    ТЗКаталога.НоваяСтрока();

                    ТЗКаталога.Путь = Каталог+Ф;

                    ТЗКаталога.Файл = Ф;        //Для поиска файла по имени (исп в другой обработке)

                КонецЕсли;

            КонецЕсли;

        КонецЕсли;

        //Сообщить(Каталог+Ф);

        Ф=ФСО.НайтиСледующийФайл();

    КонецЦикла;

КонецПроцедуры  //СканироватьКаталог(Каталог)   

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

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

    Если ФС.ВыбратьКаталог(ПутьКаталогаРисунков,"Выберете папку с рисунками .jpg...",60) <> 1 Тогда

        Предупреждение("Рисунки не покажу!"); 

        Возврат;

    Иначе 

        ТЗКаталога = СоздатьОбъект("ТаблицаЗначений");

        ТЗКаталога.НоваяКолонка("Путь",,,,,,,);

        ТЗКаталога.НоваяКолонка("Файл",,,,,,,);

        СканироватьКаталог(ПутьКаталогаРисунков+"\");

    КонецЕсли;

    Сформировать1(); 

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

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



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

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

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



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

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

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

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

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



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

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

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

|ИЗ 

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

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

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



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



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

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



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

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

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

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



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



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

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

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

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



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

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

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



КонецЦикла; 



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

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

 //Пример 1:

Процедура ПостроитьДиаграмму(Диагр)

  КолСерий=0;

  //количество серий определяется по количеству элементов в справочнике Материалы   Спр=СоздатьОбъект("Справочник.Материалы");

  Спр.ВыбратьЭлементы();

  Пока Спр.ПолучитьЭлемент()=1 Цикл

    // группы элементов пропускаются

    Если Спр.ЭтоГруппа()=0 Тогда

      КолСерий=КолСерий+1;

    КонецЕсли;

  КонецЦикла;

  // установка количества серий и точек

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

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

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

  БИ=СоздатьОбъект("БухгалтерскиеИтоги");

  БИ.Рассчитать(ДатаОтчета, ДатаОтчета);

  номер=1;

  Спр.ВыбратьЭлементы();

  Пока Спр.ПолучитьЭлемент()=1 Цикл

    Если Спр.ЭтоГруппа()=0 Тогда

      Диагр.УстановитьИмяСерии(Номер, Спр.Наименование);

      Диагр.УстановитьЗначение(1,номер,БИ.СКД("10","К",,Спр.ТекущийЭлемент()));

      номер=номер+1;

    КонецЕсли;

  КонецЦикла;

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

 // Пример 2:

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

    // Блокируем обновление, пока обрабатываются данные

    Диаграмма1.Обновление(0);

    Диаграмма1.Заголовок = "Поступления от покупателей";

    Диаграмма1.УстановитьИмяСерии(1, "Рубли");

    Диаграмма1.АвтоУстановкаИменТочек(1);



    // Заполним диаграмму значениями

    БухИт = СоздатьОбъект("БухгалтерскиеИтоги");



    Бухит.ВыполнитьЗапрос(НачКвартала(РабочаяДата()),

    КонКвартала(РабочаяДата()),"60.1",,,1,"Неделя","С");



    БухИт.ВыбратьПериоды();

    А = 1;

    // дебетовые обороты по счету 60.1 покажут поступления

    // денег от покупателей

    Пока БухИт.ПолучитьПериод() = 1 Цикл



        Диаграмма1.УстановитьЗначение(А, 1, БухИт.ДО());

        А = А +1;



    КонецЦикла;



    // после наполнения данными перерисовываем

    Диаграмма1.Обновление(1);



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