Имя: Пароль:
1C
1C 7.7
v7: Помогите с отчетом по прибыли
0 ПрохожийПавел
 
26.10.15
15:26
Здравствуйте, скачал в интернете отчет по прибыли для ТиС, скажите пожалуйста, есть ли возможность добавить в него возможность формировать этот отчет по складу, то есть не всю прибыль, а по конкретному складу? И сколько денег стоит такой функционал?
Отчет тут http://rusfolder.com/44369158
1 HawkEye
 
26.10.15
15:29
(0) в него - вряд-ли, а так - любой каприз за ваши деньги...
2 Масянька
 
26.10.15
15:31
(0) Скриншот покажи - результата отчета.
3 ПрохожийПавел
 
26.10.15
17:05
(1) а сколько стоит с нуля сделать?
4 HawkEye
 
26.10.15
17:06
(3) от тарелки супа до стамульёнов... кто-же знает чего ты хочешь, покажи вон Масе скрин - она тебе сразу оценит ))
5 Рэйв
 
26.10.15
17:11
>> скачал в интернете отчет по прибыли для ТиС

Уже смешно.И помогать нет желания.
6 ПрохожийПавел
 
26.10.15
18:04
(5) я не специалист, скачал самый примитивный отчет, но его надо немного доработать.
7 ПрохожийПавел
 
26.10.15
18:29
помогите пожалуйста, я же не за спасибо прошу
8 Смотрящий
 
26.10.15
18:30
mdшник и отчет на почту, посмотрим
9 Злопчинский
 
27.10.15
02:13
(8) не надо мдшник. все тупо до безобразия
.
//*******************************************
Процедура Сформировать()
    
    Если (ПустоеЗначение(НачДата) = 1) или (ПустоеЗначение(КонДата) = 1) Тогда
        Предупреждение("Не выбран период!", 15);
        Возврат;
    КонецЕсли;
    
    

    
    
    Если глПроверкаДаты(НачДата,КонДата) <> 1 Тогда
        Возврат;
    КонецЕсли;
    
    
    Если ПустоеЗначение(ТипЦенЗакупочная) = 1 Тогда
        Предупреждение("Не выбран тип цен ""Закупочная""!", 15);
        Возврат;
    КонецЕсли;
    Если ПустоеЗначение(ТипЦенРозничная) = 1 Тогда
        Предупреждение("Не выбран тип цен ""Розничная""!", 15);
        Возврат;
    КонецЕсли;
    
    
    
    
    
    
    
    
    
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)
    |Период с НачДата по КонДата;
    |Номенклатура = Регистр.Продажи.Номенклатура;
    |Количество = Регистр.Продажи.Количество;
    |Функция КоличествоСумма = Сумма(Количество);
    |Группировка Номенклатура без групп;
    |"//}}ЗАПРОС
    ;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

    // Подготовка к заполнению выходных форм данными запроса
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
    
    // Заполнение полей "Заголовок"
    Таб.ВывестиСекцию("Заголовок");
    Состояние("Заполнение выходной таблицы...");
    Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
    
    
    ИтогСебестоимость = 0;
    ИтогВыручка = 0;
    ИтогПрибыль = 0;
    
    Пока Запрос.Группировка(1) = 1 Цикл
        
        тНоменклатура = Запрос.Номенклатура;
        
        ЦенаЗакупочная = 0;
        ЦенаРозничная = 0;
        
        ЦенаЦены = 0; ЕдЦены = ""; ВалЦены = "";
        Если глВернутьЦену(тНоменклатура, ТипЦенЗакупочная, КонДата, ЦенаЦены, ЕдЦены, ВалЦены) = 1 Тогда
            ЦенаЗакупочная = ЦенаЦены;    
        КонецЕсли;
        
        ЦенаЦены = 0; ЕдЦены = ""; ВалЦены = "";
        Если глВернутьЦену(тНоменклатура, ТипЦенРозничная, КонДата, ЦенаЦены, ЕдЦены, ВалЦены) = 1 Тогда
            ЦенаРозничная = ЦенаЦены;    
        КонецЕсли;
        
           Себестоимость = Запрос.КоличествоСумма * ЦенаЗакупочная;  
           Выручка = Запрос.КоличествоСумма * ЦенаРозничная;  
           
           Прибыль = Выручка - Себестоимость;

           
           
           
           
           Таб.ВывестиСекцию("Номенклатура");
        
           
           ИтогСебестоимость = ИтогСебестоимость + Себестоимость;
           ИтогВыручка = ИтогВыручка + Выручка;
        ИтогПрибыль = ИтогПрибыль + Прибыль;
        
    КонецЦикла;
    // Заполнение полей "Итого"
    Таб.ВывестиСекцию("Итого");
    // Вывод заполненной формы
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать", "");
10 Злопчинский
 
27.10.15
02:17
Из оборотного Регистр.Продажи вытаскивается номенклатура и колчество. Выручка и себестоимость рассчитываются из Розничной цены и цены закупа из справочника цен НА КОНЕЦ периода. Короче - шедевр. Однако когото устраивает, хотя к "прибыли" имеет весьма опосредствованное отношение. Судя по всему у топикстартерта в базе такой бардак, что цифры из стандарного отчета "Анализ продаж" (где себестоиость, выручка и профит) - вызывают легкий шок.
.
По складу - допилить можно.
11 Злопчинский
 
27.10.15
02:17
но неинтересно, нехай вон Смотрящий на кошках тренируется ;-)
12 Масянька
 
27.10.15
08:05
(10) А почему Продажи? Я доходы-убытки от продаж смотрю по ПартиямНаличие.