Главбух - форум бухгалтеров, бухгалтерский форум про налоговый учет ОСНО, УСНО, ЕНВД, форум 1С. |
![]() |
#1 |
статус: новичок в бухгалтерии
Регистрация: 24.12.2013
Сообщений: 1
Спасибо: 0
|
![]()
помогите сделать Диаграмма потоков данных, я в этих диаграммах дуб дубом
![]() Код:
Перем СохраненнаяНастройка Экспорт; // Текущий вариант отчета Перем ТаблицаВариантовОтчета Экспорт; // Таблица вариантов доступных текущему пользователю #Если Клиент ИЛИ ВнешнееСоединение Тогда Функция СформироватьОтчет(Результат = Неопределено, ДанныеРасшифровки = Неопределено, ВыводВФормуОтчета = Истина) Экспорт ЗначениеПанелипользователя = ТиповыеОтчеты.ПолучитьЗначенияНастроекПанелиПользователяОбъекта(ЭтотОбъект); НастрокаПоУмолчанию = КомпоновщикНастроек.ПолучитьНастройки(); ТиповыеОтчеты.ПолучитьПримененуюНастройку(ЭтотОбъект); ТиповыеОтчеты.СформироватьТиповойОтчет(ЭтотОбъект, Результат, ДанныеРасшифровки, ВыводВФормуОтчета); КомпоновщикНастроек.ЗагрузитьНастройки(НастрокаПоУмолчанию); КонецФункции Процедура СохранитьНастройку() Экспорт СтруктураНастроек = ТиповыеОтчеты.ПолучитьСтруктуруПараметровТиповогоОтчета(ЭтотОбъект); СохранениеНастроек.СохранитьНастройкуОбъекта(СохраненнаяНастройка, СтруктураНастроек); КонецПроцедуры Процедура ПрименитьНастройку() Экспорт Схема = ТиповыеОтчеты.ПолучитьСхемуКомпоновкиОбъекта(ЭтотОбъект); // Считываение структуры настроек отчета Если Не СохраненнаяНастройка.Пустая() Тогда СтруктураНастроек = СохраненнаяНастройка.ХранилищеНастроек.Получить(); Если Не СтруктураНастроек = Неопределено Тогда КомпоновщикНастроек.ЗагрузитьНастройки(СтруктураНастроек.НастройкиКомпоновщика); ЗаполнитьЗначенияСвойств(ЭтотОбъект, СтруктураНастроек); Иначе КомпоновщикНастроек.ЗагрузитьНастройки(Схема.НастройкиПоУмолчанию); КонецЕсли; Иначе КомпоновщикНастроек.ЗагрузитьНастройки(Схема.НастройкиПоУмолчанию); КонецЕсли; КонецПроцедуры //Процедура ПередВыводомЭлементРезультата(МакетКомпоновки, ПроцессорКомпоновки, ЭлементРезультата) Экспорт //КонецПроцедуры //Процедура ПередВыводомОтчета(МакетКомпоновки, ПроцессорКомпоновки) Экспорт //КонецПроцедуры //Процедура ПриВыводеЗаголовкаОтчета(ОбластьЗаголовок) Экспорт //КонецПроцедуры Функция ПолучитьПараметрыИсполненияОтчета() Экспорт СтруктураНатроек = Новый Структура(); //СтруктураНатроек.Вставить("ИспользоватьСобытияПриФормированииОтчета", истина); //СтруктураНатроек.Вставить("ПриВыводеЗаголовкаОтчета", истина); //СтруктураНатроек.Вставить("ПослеВыводаПанелиПользователя", истина); //СтруктураНатроек.Вставить("ПослеВыводаПериода", истина); //СтруктураНатроек.Вставить("ПослеВыводаПараметра", истина); //СтруктураНатроек.Вставить("ПослеВыводаГруппировки", истина); //СтруктураНатроек.Вставить("ПослеВыводаОтбора", истина); //СтруктураНатроек.Вставить("ДействияПанелиИзменениеФлажкаДопНастроек", истина); //СтруктураНатроек.Вставить("ПриПолучениеНастроекПользователя", истина); Возврат СтруктураНатроек; КонецФункции #КонецЕсли #Если Клиент Тогда // Настройка отчета при отработки расшифровки Процедура Настроить(Отбор) Экспорт // Настройка отбора Для каждого ЭлементОтбора Из Отбор Цикл Если ТипЗнч(ЭлементОтбора) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда ПолеОтбора = ЭлементОтбора.ЛевоеЗначение; Иначе ПолеОтбора = Новый ПолеКомпоновкиДанных(ЭлементОтбора.Поле); КонецЕсли; Если КомпоновщикНастроек.Настройки.ДоступныеПоляОтбора.НайтиПоле(ПолеОтбора) = Неопределено Тогда Продолжить; КонецЕсли; НовыйЭлементОтбора = КомпоновщикНастроек.Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); Если ТипЗнч(ЭлементОтбора) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда ЗаполнитьЗначенияСвойств(НовыйЭлементОтбора, ЭлементОтбора); Иначе НовыйЭлементОтбора.Использование = Истина; НовыйЭлементОтбора.ЛевоеЗначение = ПолеОтбора; Если ЭлементОтбора.Иерархия Тогда Если ТипЗнч(ЭлементОтбора.Значение) = Тип("СписокЗначений") Тогда НовыйЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии; Иначе НовыйЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии; КонецЕсли; Иначе Если ТипЗнч(ЭлементОтбора.Значение) = Тип("СписокЗначений") Тогда НовыйЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке; Иначе НовыйЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; КонецЕсли; КонецЕсли; НовыйЭлементОтбора.ПравоеЗначение = ЭлементОтбора.Значение; КонецЕсли; КонецЦикла; ТиповыеОтчеты.УдалитьДублиОтбора(КомпоновщикНастроек); КонецПроцедуры #КонецЕсли Процедура ДоработатьКомпоновщикПередВыводом() Экспорт КонецПроцедуры Если СохраненнаяНастройка = Неопределено Тогда СохраненнаяНастройка = Справочники.СохраненныеНастройки.ПустаяСсылка(); КонецЕсли; |
![]() |
![]() |
|
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Пожалуйста помогите решить задачу! | Юлия17 | Помощь студентам | 1 | 23.02.2013 21:53 |
Лизинг. Помогите разобраться. | Olga_L | Делимся опытом | 2 | 23.09.2011 16:38 |
Помогите составить проводки | UmkaLilu | Специальные режимы налогообложения (УСНО, ЕНВД) | 10 | 26.07.2011 20:12 |
Помогите рассчитать компенсацию при увольнении при вахтовом методе работы!? | chop-legion | Отпуск, компенсации | 6 | 03.02.2011 14:12 |
ПОМОГИТЕ!!! составить проводки и найти недостающие суммы, плиз | nastj-83 | Помощь студентам | 16 | 23.04.2010 18:39 |