Вызов Анализ субконто из любого справочника

25.04.14

Задачи пользователя - Оборотно-сальдовая ведомость, Анализ счета

Вызвать из любого справочника Анализ субконто без изменений каждой формы очень просто.
Описание Алгоритма для 1С:Бухгалтерия предприятия 2.0.

У одного заказчика до перехода на 2.0 была возможность перехода практически из всех справочников в анализ субконто. И после обновления попросили эту возможность повторить.

Итак реализовано все очень просто. Надо добавить независимый регистр сведений с измерениями(ведущими) всех справочников, какие хочется видеть в анализа субконто. У меня их было немного(см. рис 1). 

Далее создать форму списка и копируем туда сл. код:

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

Процедура ПриОткрытии()
	Для Индекс = 0 По Отбор.Количество() - 1 Цикл
		ПолеОтбора = Отбор[Индекс];
		Элемент    = ПолеОтбора.Значение.Ссылка;
		Если ПустаяСтрока(Элемент)=Ложь Тогда
			ОткрытиеФормыАнализСубконто(Элемент);
			Прервать;
		КонецЕсли;
	КонецЦикла;
	ЭтаФорма.Закрыть();
КонецПроцедуры  // ПриОткрытии()

 

Вот и все. Во всех указаных в регистре справочниках в перейти появился пункт "Анализ субконто".

 

См. также

Богатый редактор картинок, хранимых в базе, с возможностью РИСОВАНИЯ. Редактор внешних файлов картинок. Объект, расширяющий возможности работы с картинками из встроенного языка (Три в одном) + Обработка «Стандартизация картинок»

Работа с интерфейсом Рабочее место Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Обработка предназначена для редактирования картинок в режиме «Предприятие», с возможностью РИСОВАТЬ на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Также обработка может быть использована из встроенного языка как объект для редактирования картинок. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Данная обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).

6000 руб.

16.01.2015    61800    43    59    

80

[Расширения] Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)

Работа с интерфейсом Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

5000 руб.

14.01.2016    54407    16    21    

42

Управление дашбордами

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020    16700    21    4    

35

Новогоднее оформление для 1С

Работа с интерфейсом Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)

Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.

27.12.2023    10743    750    elcoan    45    

106

Конструктор HTML, CSS и javascript

Инструментарий разработчика Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Подходит для создания web-страниц для замены управляемых форм 1С, красивых отчетов, интерфейса мобильного приложения на платформе 1С и для простых страниц веб-сайтов.

2 стартмани

10.04.2023    9625    151    acces969    31    

118

Модель состояния для MVC

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022    3669    kalyaka    2    

27

Табло очереди заказов на экран телевизора

WEB-интеграция Работа с интерфейсом Платформа 1С v8.3 1С:Розница 2 Платные (руб)

Связка из веб-приложения и расширения для 1С: Розница 2.3.

3600 руб.

29.04.2022    12085    1    5    

10
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. sstar90 29.04.14 11:18 Сейчас в теме
Не плохо бы еще чтобы при открытии формы "Анализ субконто" вставала "Организация" по умолчанию
2. makas 44 26.08.14 02:39 Сейчас в теме
А почему нельзя релизовать "Анализ субкнто" как ВПФ без доработки конфигурации? Или я что-то не понял :-\
3. bxz 417 26.08.14 10:56 Сейчас в теме
(2) Идея в том что бы не через "Печать" переходить, а через меню "Перейти"
Оставьте свое сообщение