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

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);

		

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

	

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



См. также

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

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

6000 руб.

27.02.2017    808229    5125    9727    

2922

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

Автоматизация учета ЕГАИС в 1С для оптовой торговли, производства и импорта. Получение и отправка ТТН, отправка акта о постановке на баланс и акта о списании. Получение остатков. Загрузка и сопоставление номенклатуры и контрагентов. Оправка в ЕГАИС отчетов о производстве и импорте.

828 руб.

15.12.2015    171946    854    368    

404

ККМ Кассовые операции Розничная торговля Системный администратор Программист Платформа 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 или интернет. Поддержка маркировки и разрешительного режима. Поддержка пробития чеков с новыми ставками НДС 5% и НДС 7%.

5880 руб.

25.05.2015    340029    2040    3112    

1056

SALE! 10%

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

Можно проверить до покупки, оставьте заявку! Воспользовались более 268 компаний! Перенос данных из УТ 10.3 в УТ 11 | из УТ 10.3 в КА 2 | из УТ 10.3 в ERP. Предлагаем качественное и проверенное временем решение для перехода с УТ 10.3. Можно перенести начальные остатки, нормативно-справочную информацию и все возможные документы. При выгрузке можно установить отбор по периоду, организациям и складам. При выходе новых релизов конфигураций 1C оперативно выпускаем обновление переноса данных.

55778 50200 руб.

24.04.2015    196454    156    244    

286

Управление взаимоотношениями с клиентами (CRM) Оптовая торговля Розничная торговля Пользователь Платформа 1С v8.3 Оперативный учет Управляемые формы 1С:Управление торговлей 10 1С:Розница 2 Россия Управленческий учет Платные (руб)

Подсистема призвана упростить и автоматизировать процесс расчета и начисления бонусов покупателей. Бонусная система работает с конфигурациями 1С:УТ 10.3, 1С:Розница. Механизм реализован в начале 2013г. и работает до сих пор с постоянными совершенствованиями.

30000 руб.

02.11.2015    113301    102    88    

186

SALE! 20%

Загрузка и выгрузка в Excel Оптовая торговля Печатные формы Бухгалтер Пользователь Платформа 1С v8.3 Управляемые формы Платформа 1C v8.2 1C:Бухгалтерия 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление холдингом 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная обработка для загрузки документов из Excel в 1С. Забудьте о ручном вводе: загружайте документы из Excel в 1С за секунды! Не требует указания параметров (номера колонок, номер первой строки таблицы и т.д.) и предварительной настройки. Просто выбираете файл Excel, документ 1С и нажимаете кнопку "Загрузить". Обработка сама находит таблицу в файле Excel, необходимые для загрузки данные в ней (номенклатура, количество, НДС, цена, сумма) и загружает ее в 1С.

6000 5100 руб.

09.11.2016    239651    1095    906    

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