Валовая прибыль из документа "Реализация товаров и услуг" для оценки эффективности продажи

06.08.14

Учетные задачи - Оптовая торговля

Чтобы не формировать несколько отчетов, выставляя фильтры по организации/складам/номенклатуре/документу-регистратору и не сводить потом всю эту информацию воедино, пытаясь оценить эффективность и рентабельность продаж по конкретному документу реализации, предлагаю встроить в документ вызов типового отчета по валовой прибыли с уже настроенными фильтрами. Доработка разрабатывалась для УПП 1.3, но может быть встроена и в УТ 10.3.  Может, кому пригодится.
Собственно, из формы документа предлагается вызывать типовой отчет по валовой прибыли с установленным фильтром на регистр по регистратору.

Предполагается, что кнопку для вызова прилагаемой процедуры сумеете встроить сами :)



// Обработчик события "Действие" кнопки "ВаловаяПрибыльПоДокументу"

// командной панели формы. Вызывает одноименный отчет .

//

Процедура ДействияФормыВаловаяПрибыльПоДокументу(Кнопка)

	

	Попытка

		ИмяОтчета = "ВаловаяПрибыль"; 	

		

		ОтчетОбъект = Отчеты[ИмяОтчета].Создать();

		

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

		Попытка

			ФормаОтчета.СпособОтображенияОкна = ВариантСпособаОтображенияОкна.Максимизированное;

		Исключение		

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

		ФормаОтчета.УниверсальныйОтчет.ВариантОформления = СтандартноеОформление.Камень;

		

		ОтчетОбъект.УстановитьНачальныеНастройки();

		ОтчетОбъект.УниверсальныйОтчет.мВосстанавливатьНастройкиПриОткрытии = Ложь;

		

		ФормаОтчета.УниверсальныйОтчет.ДатаНач = Дата;

		ФормаОтчета.УниверсальныйОтчет.ДатаКон = Дата;

		ФормаОтчета.УниверсальныйОтчет.ОтрицательноеКрасным    = Истина;

		ФормаОтчета.УниверсальныйОтчет.ВыводитьДетальныеЗаписи = Ложь;

		ФормаОтчета.УниверсальныйОтчет.ВыводитьОбщиеИтоги      = Истина;

		

		//Если СтандартныеНастройки Тогда   

		//	ОтчетОбъект.УниверсальныйОтчет.мВосстанавливатьНастройкиПриОткрытии = Истина;

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

		//	ФормаОтчета.УниверсальныйОтчет.ДатаНач = НачалоДня(НачалоПериода);

		//	ФормаОтчета.УниверсальныйОтчет.ДатаКон = КонецДня(КонецПериода);

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

		//	Возврат;

		//КонецЕсли;

		

	Исключение

		Предупреждение("Отчет не обнаружен. Возможно у Вас его нет или он не включен в состав программы.");

		Возврат;

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

	

	//Если ИмяОтчета = "ВаловаяПрибыль" тогда

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

		

		Отборы = ФормаОтчета.ЭтотОбъект.УниверсальныйОтчет.ПостроительОтчета.Отбор;

		Сч = 0;

		Пока Сч < Отборы.Количество() Цикл

			Отборы[Сч].Использование = Ложь;

			Сч = Сч+1;

		КонецЦикла;

		

		ПостроительОтчета = ФормаОтчета.УниверсальныйОтчет.ПостроительОтчета;

		УниверсальныйОтчет = ФормаОтчета.УниверсальныйОтчет;

		

		ПостроительОтчета.ВыбранныеПоля.Очистить();

		ПостроительОтчета.Порядок.Очистить();                                                                

		ПостроительОтчета.ИзмеренияСтроки.Очистить();

		ПостроительОтчета.ИзмеренияКолонки.Очистить();	

		

		

		// Добавление показателей

		// Необходимо вызывать для каждого добавляемого показателя.

		ВалютаУпр = глЗначениеПеременной("ВалютаУправленческогоУчета");

		// УниверсальныйОтчет.ДобавитьПоказатель(<ИмяПоказателя>, <ПредставлениеПоказателя>, <ВключенПоУмолчанию>, <Формат>, <ИмяГруппы>, <ПредставлениеГруппы>);

		УниверсальныйОтчет.ДобавитьПоказатель("Количество", "Ед. хранения", Ложь, "ЧЦ=15; ЧДЦ=3", "Количество", "Количество");

		УниверсальныйОтчет.ДобавитьПоказатель("КоличествоБазовыхЕдиниц", "Базовых ед.", Истина, "ЧЦ=15; ЧДЦ=3", "Количество", "Количество");

		УниверсальныйОтчет.ДобавитьПоказатель("КоличествоЕдиницОтчетов", "Ед. отчетов", Истина, "ЧЦ=15; ЧДЦ=3", "Количество", "Количество");

		

		УниверсальныйОтчет.ДобавитьПоказатель("СтоимостьБезНДС", "Без НДС", Ложь, "ЧЦ=15; ЧДЦ=2", "СтоимостьПродажи", "Стоимость продажи (" + ВалютаУпр + ")");

		УниверсальныйОтчет.ДобавитьПоказатель("НДС", "НДС", Ложь, "ЧЦ=15; ЧДЦ=2", "СтоимостьПродажи");

		УниверсальныйОтчет.ДобавитьПоказатель("Стоимость", "С НДС", Истина, "ЧЦ=15; ЧДЦ=2", "СтоимостьПродажи");

		

		УниверсальныйОтчет.ДобавитьПоказатель("Себестоимость", "Себестоимость  (" + ВалютаУпр + ")", Ложь, "ЧЦ=15; ЧДЦ=2");

		

		УниверсальныйОтчет.ДобавитьПоказатель("ВаловаяПрибыль", "Валовая прибыль (" + ВалютаУпр + ")", Истина, "ЧЦ=15; ЧДЦ=2");

		

		УниверсальныйОтчет.ДобавитьПоказатель("Эффективность", "Эффективность, %", Истина, "ЧЦ=15; ЧДЦ=2");

		УниверсальныйОтчет.ДобавитьПоказатель("Рентабельность", "Рентабельность, %", Ложь, "ЧЦ=15; ЧДЦ=2");


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

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

		// УниверсальныйОтчет.ДобавитьИзмерениеСтроки(<ПутьКДанным>);

		УниверсальныйОтчет.ДобавитьИзмерениеСтроки("Регистратор");

		УниверсальныйОтчет.ДобавитьИзмерениеСтроки("ЗаказПокупателя");

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

			

		

		

		Если ПостроительОтчета.Отбор.Найти("Регистратор")=неопределено тогда

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

		КонецЕсли;

		ПостроительОтчета.Отбор.Регистратор.Использование = Истина;

		ПостроительОтчета.Отбор.Регистратор.ВидСравнения  = ВидСравнения.Равно;

		ПостроительОтчета.Отбор.Регистратор.Значение      = ЭтотОбъект.Ссылка;

		

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

		//ФормаОтчета.ЭлементыФормы.ПолеТабличногоДокументаРезультат.ПоказатьУровеньГруппировокСтрок(0);

		

	//КонецЕсли;

	

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



См. также

SALE! 15%

Автоматический заказ поставщику в 1С: загрузка прайсов и анализ цен поставщиков для УТ 10.3, УТ 11, КА2, УНФ, УПП, ERP, Розница 2

Бюджетирование и планирование Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Анализ продаж Платформа 1С v7.7 Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Беларусь Украина Россия Казахстан Управленческий учет Платные (руб)

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

33529 28500 руб.

21.04.2017    89861    105    39    

188

ККТ-ОНЛАЙН 54-ФЗ: Обработка для работы онлайн касс АТОЛ, ШТРИХ, VIKI PRINT и т.д. МАРКИРОВКА + ЭКВАЙРИНГ + БЕСПЛАТНЫЙ ДЕМО

ККМ Кассовые операции Розничная торговля Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия 1.6 1С:Бухгалтерия автономного учреждения 1С:CRM ПРОФ, КОРП Россия Платные (руб)

Универсальная обработка для обслуживания любых фискальных регистраторов (ККТ), в том числе Веб сервер АТОЛ. Работает в соответствии с 54-ФЗ. (ФФД 1.0, ФФД 1.05, ФФД 1.1). Подключайте любую онлайн кассу к практически любой конфигурации. Нет необходимости обновлять 1С. Можно бесплатно скачать и протестировать. Может работать одновременно с несколькими онлайн-кассами, либо одной с разных рабочих мест. (через RDP, TCP\IP или веб-сервер) Позволяет разделить один чек сразу на несколько ККТ или на несколько систем налогообложения. Можно настроить собственный шаблонов чека. Можно использовать эквайринг там, где он не поддерживается. Работает на LINUX и Windows ЭМУЛЯТОР + ЭКВАЙРИНГ + МАРКИРОВКА + ПОДДЕРЖКА ФФД 1.2

4800 руб.

27.02.2017    761718    4659    9495    

2780

ЕГАИС++. Опт, производство, импорт

Оптовая торговля Розничная торговля Обмен с ГосИС Платформа 1С v8.3 1С:Управление торговлей 10 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Бухгалтерский учет Управленческий учет Акцизы Платные (руб)

Полнофункциональное расширение (ранее известное как Модуль 1С-ЕГАИС) для взаимодействия типовых конфигураций 1С и ЕГАИС, предоставляющее максимум возможностей по работе с УТМ. Получение и отправка ТТН, отправка акта о постановке на баланс и акта о списании. Получение остатков. Загрузка и сопоставление номенклатуры и контрагентов. Оправка в ЕГАИС отчетов о производстве и импорте.

8970 руб.

15.12.2015    165792    673    361    

385

Загрузка номенклатуры из Excel в УТ11, КА 2, ERP 2, Розница 2. Дополнительные реквизиты и сведения, характеристики, картинки, цены, остатки

Загрузка и выгрузка в Excel Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Прайсы Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Управленческий учет Платные (руб)

Загрузка из файлов xls, xlsx, ods, csv, mxl в УТ11, КА 2, ERP 2, Розница 2. Задействованы все возможности конфигурации - заполнение реквизитов номенклатуры, дополнительных реквизитов и сведений, характеристики, доп.реквизиты и сведения характеристик. Дополнительные обработки для расширения возможностей.

10560 руб.

29.10.2014    209819    620    524    

438

54-ФЗ. Очередь печати для ККМ. Обработки для подключения онлайн-касс к 1С 8 (поддержка Маркировки) + Эмулятор + ФФД 1.2

ККМ Кассовые операции Розничная торговля Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия автономного учреждения Россия Платные (руб)

Обработка осуществляет обслуживание ККТ АТОЛ, Штрих и Меркурий для конфигураций "УТ 10.3", "КА 1.1", "УПП 1.3", "Розница 1.0", "БП 2.0" и других отраслевых решений, построенных на основе указанных выше конфигурациях. Поддерживает возможность параллельно пробития чеков на одной ККМ несколькими пользователями. Поддерживает Веб-сервер Атол. Соответствует требованиям 54-ФЗ. Поддерживает ФФД 1.0, 1.05, 1.1 и 1.2. Разделяет чеки по нескольким СНО. Поддерживает механизмы подключения ККТ по TCP/IP, для работы через RDP или интернет. Поддержка маркировки.

5400 руб.

25.05.2015    315974    1839    3007    

990

Печать кассовых чеков на одну ККМ с нескольких рабочих мест для 1С:УТ11.х, КА2.х, Розница 2.х, УНФ, ERP 2.х, БП 3, БГУ2

ККМ Кассовые операции Розничная торговля Обмен с ГосИС Бухгалтерский учет Оперативный учет Управляемые формы 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Расширение конфигурации для УТ 11.4, 11.5, КА 2.4, 2.5, Розница 3.0, 2.3 и 2.2, УНФ 1.6, УНФ 3x, ERP 2.4, 2.5, БП 3, БГУ2 (Управляемые формы) позволяет выполнять печать кассовых чеков на одну ККМ 54-ФЗ с нескольких рабочих мест. НИКАКИХ НАСТРОЕК В РАЗРАБОТКЕ - ПОДКЛЮЧИЛ И ПЕЧАТАЙ. Если у вас несколько отделов и одна ККМ - печатайте на одной ККМ! Если у вас две ККМ и одна поломалась - печатайте на одной ККМ, пока ремонтируете другую!

4000 руб.

27.08.2018    115583    973    562    

826
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Merlin12042009 13.08.14 12:25 Сейчас в теме
Браво! Вы оказываете неоценимую помощь начинающим программистам, причем бесплатно.
Оставьте свое сообщение