помогите сделать Диаграмма потоков данных, я в этих диаграммах дуб дубом
![Upset](images/smiles_new/upset.gif)
по коду 1С 8.2версии. :
Код:
Перем СохраненнаяНастройка Экспорт; // Текущий вариант отчета
Перем ТаблицаВариантовОтчета Экспорт; // Таблица вариантов доступных текущему пользователю
#Если Клиент ИЛИ ВнешнееСоединение Тогда
Функция СформироватьОтчет(Результат = Неопределено, ДанныеРасшифровки = Неопределено, ВыводВФормуОтчета = Истина) Экспорт
ЗначениеПанелипользователя = ТиповыеОтчеты.ПолучитьЗначенияНастроекПанелиПользователяОбъекта(ЭтотОбъект);
НастрокаПоУмолчанию = КомпоновщикНастроек.ПолучитьНастройки();
ТиповыеОтчеты.ПолучитьПримененуюНастройку(ЭтотОбъект);
ТиповыеОтчеты.СформироватьТиповойОтчет(ЭтотОбъект, Результат, ДанныеРасшифровки, ВыводВФормуОтчета);
КомпоновщикНастроек.ЗагрузитьНастройки(НастрокаПоУмолчанию);
КонецФункции
Процедура СохранитьНастройку() Экспорт
СтруктураНастроек = ТиповыеОтчеты.ПолучитьСтруктуруПараметровТиповогоОтчета(ЭтотОбъект);
СохранениеНастроек.СохранитьНастройкуОбъекта(СохраненнаяНастройка, СтруктураНастроек);
КонецПроцедуры
Процедура ПрименитьНастройку() Экспорт
Схема = ТиповыеОтчеты.ПолучитьСхемуКомпоновкиОбъекта(ЭтотОбъект);
// Считываение структуры настроек отчета
Если Не СохраненнаяНастройка.Пустая() Тогда
СтруктураНастроек = СохраненнаяНастройка.ХранилищеНастроек.Получить();
Если Не СтруктураНастроек = Неопределено Тогда
КомпоновщикНастроек.ЗагрузитьНастройки(СтруктураНастроек.НастройкиКомпоновщика);
ЗаполнитьЗначенияСвойств(ЭтотОбъект, СтруктураНастроек);
Иначе
КомпоновщикНастроек.ЗагрузитьНастройки(Схема.НастройкиПоУмолчанию);
КонецЕсли;
Иначе
КомпоновщикНастроек.ЗагрузитьНастройки(Схема.НастройкиПоУмолчанию);
КонецЕсли;
КонецПроцедуры
//Процедура ПередВыводомЭлементРезультата(МакетКомпоновки, ПроцессорКомпоновки, ЭлементРезультата) Экспорт
//КонецПроцедуры
//Процедура ПередВыводомОтчета(МакетКомпоновки, ПроцессорКомпоновки) Экспорт
//КонецПроцедуры
//Процедура ПриВыводеЗаголовкаОтчета(ОбластьЗаголовок) Экспорт
//КонецПроцедуры
Функция ПолучитьПараметрыИсполненияОтчета() Экспорт
СтруктураНатроек = Новый Структура();
//СтруктураНатроек.Вставить("ИспользоватьСобытияПриФормированииОтчета", истина);
//СтруктураНатроек.Вставить("ПриВыводеЗаголовкаОтчета", истина);
//СтруктураНатроек.Вставить("ПослеВыводаПанелиПользователя", истина);
//СтруктураНатроек.Вставить("ПослеВыводаПериода", истина);
//СтруктураНатроек.Вставить("ПослеВыводаПараметра", истина);
//СтруктураНатроек.Вставить("ПослеВыводаГруппировки", истина);
//СтруктураНатроек.Вставить("ПослеВыводаОтбора", истина);
//СтруктураНатроек.Вставить("ДействияПанелиИзменениеФлажкаДопНастроек", истина);
//СтруктураНатроек.Вставить("ПриПолучениеНастроекПользователя", истина);
Возврат СтруктураНатроек;
КонецФункции
#КонецЕсли
#Если Клиент Тогда
// Настройка отчета при отработки расшифровки
Процедура Настроить(Отбор) Экспорт
// Настройка отбора
Для каждого ЭлементОтбора Из Отбор Цикл
Если ТипЗнч(ЭлементОтбора) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда
ПолеОтбора = ЭлементОтбора.ЛевоеЗначение;
Иначе
ПолеОтбора = Новый ПолеКомпоновкиДанных(ЭлементОтбора.Поле);
КонецЕсли;
Если КомпоновщикНастроек.Настройки.ДоступныеПоляОтбора.НайтиПоле(ПолеОтбора) = Неопределено Тогда
Продолжить;
КонецЕсли;
НовыйЭлементОтбора = КомпоновщикНастроек.Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
Если ТипЗнч(ЭлементОтбора) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда
ЗаполнитьЗначенияСвойств(НовыйЭлементОтбора, ЭлементОтбора);
Иначе
НовыйЭлементОтбора.Использование = Истина;
НовыйЭлементОтбора.ЛевоеЗначение = ПолеОтбора;
Если ЭлементОтбора.Иерархия Тогда
Если ТипЗнч(ЭлементОтбора.Значение) = Тип("СписокЗначений") Тогда
НовыйЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии;
Иначе
НовыйЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии;
КонецЕсли;
Иначе
Если ТипЗнч(ЭлементОтбора.Значение) = Тип("СписокЗначений") Тогда
НовыйЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
Иначе
НовыйЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
КонецЕсли;
КонецЕсли;
НовыйЭлементОтбора.ПравоеЗначение = ЭлементОтбора.Значение;
КонецЕсли;
КонецЦикла;
ТиповыеОтчеты.УдалитьДублиОтбора(КомпоновщикНастроек);
КонецПроцедуры
#КонецЕсли
Процедура ДоработатьКомпоновщикПередВыводом() Экспорт
КонецПроцедуры
Если СохраненнаяНастройка = Неопределено Тогда
СохраненнаяНастройка = Справочники.СохраненныеНастройки.ПустаяСсылка();
КонецЕсли;