Доброго дня! В документе "Заказ Клиента" в 1с 8 (Управление торговлей)
Необходимо получить цену по виду "Закупочная"
помогите написать запрос получения цены
Для чего это нужно?...
дело в том что клиент (заказчик) хочет что бы в документе рассчитывалась сумма прибыли как по строкам так и по документу
для этого мне необходимо получить цену закупки (себестоимость товара)
помогите я в запросов почти не знаю.

Как то не логично получается:
>> дело в том что клиент (заказчик) хочет
>> помогите я в запросов почти не знаю.

Если не знаешь, зачем клиенты?

так тебе не цена нужна, а себестоимость

(0) Тебе бы не запросы, а мат часть сначало покурить. а вообще открой отчёт валовая прибыль и смотри как собирается

+ к (3) а ещё УТ 11.1 научилась считать маржу прям в заказах, посмотри как там сделано

ты лучше сделай обработку ТЧ заполнения цены продажи от себестоимости

(5) это где так мощно ценовую политику ведут?

это ж заказ, по какой себестоимости он пойдет в реализацию неизвестно, так что прибыль в любом случае будет приблизительная.

Хорошо вот я запрос нарисовал подскажите в чем ошибка? просто он не работает (не выбирает значений(( )

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ЦеныНоменклатурыСрезПоследних.Цена
        |ИЗ
        |    РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
        |ГДЕ
        |    ЦеныНоменклатурыСрезПоследних.Период = &Дат
        |    И ЦеныНоменклатурыСрезПоследних.Валюта.Ссылка = &Валюта
        |    И ЦеныНоменклатурыСрезПоследних.Номенклатура.Ссылка = &Тов
        |    И ЦеныНоменклатурыСрезПоследних.ВидЦены.Ссылка = &Вид
        |    И ЦеныНоменклатурыСрезПоследних.Характеристика.Ссылка = &Характ";

    Запрос.УстановитьПараметр("Валюта", Валюта.Ссылка);
    Запрос.УстановитьПараметр("Вид", Вид.Ссылка);
    Запрос.УстановитьПараметр("Дат", Дат);
    Запрос.УстановитьПараметр("Тов", Тов.Ссылка);
    Запрос.УстановитьПараметр("Характ", Характ.Ссылка);

    Результат = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = Результат.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        ЦенаЗак = ВыборкаДетальныеЗаписи.цена;
    КонецЦикла;

+(7) я делаю так как попросили им так нужно а не мне )

(8) ошибка в запросе... И вообще, позовите специалиста!!!

(10) вас попросили помочь! я сам себе специалист!

+(10) то что ошибка в запросе это и без того понятно где?

(12)    |    РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
        |ГДЕ
        |    ЦеныНоменклатурыСрезПоследних.Период = &Дат

вот здесь, тут надо как минимум:
РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Дат) КАК ЦеныНоменклатурыСрезПоследних
, а из ГДЕ убирать

+(13) ты запрос в цикле по ТЧ этот гоняешь?

(13) спасибо буду пробовать!

(14) нет в функции подбора товара

(13) там все надо в параметры ВТ пихать.

(17) Это да, но не работает именно из-за даты

(10) Скачай консоль запросов. Посмотри лекции от Чистова по запросам.

(10) -> (11)

(8) А зачем везде .Ссылка пихать?

(21) а что без ссылка будет работать?

(22) Ну если ты передаешь туда ссылки, то будет... Ты же не объекты передаешь?

(22) ты не поверишь...

Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ЦеныНоменклатурыСрезПоследних.Цена
        |ИЗ
        |    РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Дат) КАК ЦеныНоменклатурыСрезПоследних
        //|ГДЕ
        //|    ЦеныНоменклатурыСрезПоследних.Период = &Дат
        //|    И ЦеныНоменклатурыСрезПоследних.Валюта.Ссылка = &Валюта
        |    И ЦеныНоменклатурыСрезПоследних.Номенклатура = &Тов
        |    И ЦеныНоменклатурыСрезПоследних.ВидЦены = &Вид
        |    И ЦеныНоменклатурыСрезПоследних.Характеристика = &Характ";

    //Запрос.УстановитьПараметр("Валюта", Валюта.Ссылка);
    Запрос.УстановитьПараметр("Вид", Вид);
    Запрос.УстановитьПараметр("Дат", Дат);
    Запрос.УстановитьПараметр("Тов", Тов);
    Запрос.УстановитьПараметр("Характ", Характ);

    Результат = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = Результат.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        ЦенаЗак = ВыборкаДетальныеЗаписи.цена;
    КонецЦикла;

ошибку выдает ((

{Документ.ЗаказКлиента.Форма.ФормаДокумента.Форма(1174)}: Ошибка при вызове метода контекста (Выполнить)
    Результат = Запрос.Выполнить();
по причине:
{(5, 2)}: Синтаксическая ошибка "И"
<<?>>И ЦеныНоменклатурыСрезПоследних.Номенклатура = &Тов

расскоментируй ГДЕ и убери первое И

(25) Жестоко...
Перед ГДЕ комментарий убери, и здесь "И ЦеныНоменклатурыСрезПоследних.Номенклатура = &Тов"  И убери

уже сделал (((( в (13) не правильно понял ))))))

ОФФ: Опять лисапеды...

все запрос работает (но меня (7) заинтриговал) почему я получу не ту себестоимость (цену закупки?) (они ее называют себестоимостью )))

+(30) я же получаю по виду и на дату что не так может быть?

?

(31) Уже писали - открой отчет Валовая прибыль, там есть Себестоимость - смотри как получается.

Писатель

(33) там себестоимость вообще пустая (

(35) а ничего, что ее еще посчитать нужно?

)

(36) необязательно. Если у него закупочная цена близка к себестоимости, то вполне себе можно посчитать приблизительную прибыль, как стоимость в продажных ценах минус стоимость в закупочных. При этом чем ближе закупочная цена к себестоимости, тем точней будет результат. Можно вообще замутить отдельный тип цен - себестоимость и закинуть в него нужные цифры и соответственно использовать его вместо закупочных цен при расчете прибыли, но все равно это будет приблизительная прибыль.

(38) у них закупочния = себестоимость )

(39) Будь готов к вопросам, типа "Где деньги, Зин?". Когда по их подсчетам они миллионеры, а в реале еле-еле концы с концами сводят. Как в анекдоте про вируальную реальность.

(40) дело в том что у них уже есть программа 1с 7 в ней реализовано именно так подсчет прибыли вот я и делаю так как там у них реализовано если есть предложения предлагайте ситуация такая менеджер должен всегда видеть в документе прибыль и процент рентабельности как данное реализовать?
постоянно создавать документы (распределение расходов на себестоимость товаров и Расчет себестоимости?)

вот вырезка кода получения прибыли и расчета процента рентабельности из 1с 7 (их конфиги)

//_____________________________________________________________________________
Функция ИтоговаяСтрока()
    ИтСтр = "Итого по заявке на сумму: " + СокрЛ(Формат(Итог("СуммаН"),"Ч20 ,")) +"  Рентабельность: " + СокрЛ(Формат(Итог("СуммаПрибыли"),"Ч20 ,"))+    " Процент рентабельности: " + СокрЛ(Формат(?(Итог("Продажная")=0,0,(Итог("СуммаПрибыли")/Итог("Продажная")*100)),"Ч10.5"));
    Возврат ИтСтр;
КонецФункции //СтрокаИтого
//_________________________



Процедура  Пересчет()
    Если (Форма.ТекущаяКолонка() = "КоличествоТовара") или (Форма.ТекущаяКолонка() = "Уценка") Тогда
        КоличествоТовараЯщ=КоличествоТовара/НаименованиеТовара.КолвоВТаре;
        СуммаН = Окр(КоличествоТовара*ЦенаТовара,0,1);
        Если епта=1 Тогда
            СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
        Иначе
            СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость)-Уценка*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
        КонецЕсли;
        Если СуммаН<>0 Тогда
            ПроцентНац=СуммаПрибыли/(СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100))*100;
        КонецЕсли;
        Продажная=СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100);
        Рента=Окр((Итог("СуммаПрибыли")/Итог("Продажная")*100),2);
    ИначеЕсли (Форма.ТекущаяКолонка() = "КоличествоТовараЯщ") Тогда
        КоличествоТовара=КоличествоТовараЯщ*НаименованиеТовара.КолвоВТаре;
        СуммаН = Окр(КоличествоТовара*ЦенаТовара,0,1);
        Если епта=1 Тогда
            СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
        Иначе
            СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость)-Уценка*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
        КонецЕсли;
        Если СуммаН<>0 Тогда
            ПроцентНац=СуммаПрибыли/(СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100))*100;
        КонецЕсли;
        Продажная=СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100);
        Рента=Окр((Итог("СуммаПрибыли")/Итог("Продажная")*100),2);
    ИначеЕсли (Форма.ТекущаяКолонка() = "Скидка") Тогда
        Если (Скидка<>0) и (Наценка<>0) Тогда
            Наценка=0;
        КонецЕсли;
        ЦенаТовара=Окр(НаименованиеТовара.Цена-НаименованиеТовара.Цена*Скидка/100+НаименованиеТовара.Цена*Наценка/100);
        СуммаН = Окр(КоличествоТовара*ЦенаТовара,0,1);
        Если епта=1 Тогда
            СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
        Иначе
            СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость)-Уценка*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
        КонецЕсли;
        Если СуммаН<>0 Тогда
            ПроцентНац=СуммаПрибыли/(СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100))*100;
        КонецЕсли;
        Продажная=СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100);
        Рента=Окр((Итог("СуммаПрибыли")/Итог("Продажная")*100),2);
        РентаПер=Окр(СуммаПрибыли/Продажная*100,2);
        Если ПустоеЗначение(НаименованиеТовара.ГруппаНаценок)=0 Тогда
            Если РентаПер<НаименованиеТовара.ГруппаНаценок.Наценка Тогда
                Предупреждение("Данная цена<минимальной рентабельности по товару:"+НаименованиеТовара.ГруппаНаценок.Наценка);
                ЦенаТовара=Окр(НаименованиеТовара.Цена);
                Скидка=0;
                СуммаН = Окр(КоличествоТовара*ЦенаТовара,0,1);
                Если епта=1 Тогда
                    СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
                Иначе
                    СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость)-Уценка*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
                КонецЕсли;
                Если СуммаН<>0 Тогда
                    ПроцентНац=СуммаПрибыли/(СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100))*100;
                КонецЕсли;
                Продажная=СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100);
                Рента=Окр((Итог("СуммаПрибыли")/Итог("Продажная")*100),2);
            КонецЕсли;
        Иначе
            Если ЦенаТовара<НаименованиеТовара.Себестоимость Тогда
                Предупреждение("Данная цена<себестоимости по товару:"+НаименованиеТовара.Себестоимость);
                ЦенаТовара=Окр(НаименованиеТовара.Цена);
                Скидка=0;
                СуммаН = Окр(КоличествоТовара*ЦенаТовара,0,1);
                Если епта=1 Тогда
                    СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
                Иначе
                    СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость)-Уценка*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
                КонецЕсли;
                Если СуммаН<>0 Тогда
                    ПроцентНац=СуммаПрибыли/(СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100))*100;
                КонецЕсли;
                Продажная=СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100);
                Рента=Окр((Итог("СуммаПрибыли")/Итог("Продажная")*100),2);
            КонецЕсли;
        КонецЕсли;
    ИначеЕсли (Форма.ТекущаяКолонка() = "Наценка") Тогда
        Если (Скидка<>0) и (Наценка<>0) Тогда
            Скидка=0;
        КонецЕсли;    
        ЦенаТовара=Окр(НаименованиеТовара.Цена-НаименованиеТовара.Цена*Скидка/100+НаименованиеТовара.Цена*Наценка/100);
        Если НаименованиеТовара.Предел<>0 Тогда
            ПерНаценка=Окр((ЦенаТовара-?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость))/?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость)*100,2);
            Если НаименованиеТовара.Предел<ПерНаценка Тогда
                Сообщить("Предельная наценка по товару: "+НаименованиеТовара.Предел);
                Наценка=НаименованиеТовара.Предел-Окр((НаименованиеТовара.Цена-?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость))/?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость)*100,2);
            КонецЕсли;
        КонецЕсли;
        
        ЦенаТовара=Окр(НаименованиеТовара.Цена-НаименованиеТовара.Цена*Скидка/100+НаименованиеТовара.Цена*Наценка/100);
        СуммаН = Окр(КоличествоТовара*ЦенаТовара,0,1);
        Если епта=1 Тогда
            СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
        Иначе
            СуммаПрибыли=СуммаН-КоличествоТовара*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость)-Уценка*?(НаименованиеТовара.ЦенаИзготовителя1<>0,НаименованиеТовара.ЦенаИзготовителя1,НаименованиеТовара.Себестоимость);  
        КонецЕсли;
        Если СуммаН<>0 Тогда
            ПроцентНац=СуммаПрибыли/(СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100))*100;
        КонецЕсли;
        Продажная=СуммаН*(1+НаименованиеТовара.СтавкаНДС.Ставка/100);
        Рента=Окр((Итог("СуммаПрибыли")/Итог("Продажная")*100),2);
    КонецЕсли;  
КонецПроцедуры

Епта это типа статус документа (принято или нет) дело в том что они в нем формируют так же дополнительный товар на отгрузку и если принято ответственном лицом тогда епта = 1 если не принято тогда епта = 0 ))))))

Если у тебя уж УТ 11 и речь идет о документе ЗаказКлиента открой для себя контекстный отчет Оценка рентабельности продажи

(44) но для него все равно нужен проведенный документ Расчет себестоимости

(44) у меня УТ 3.0.15.4

(46) не слышал про такое ни разу...

Для РБ

Управление торговлей для Беларуси, редакция 3.0

отчета такого нет(

(48) ну если это переделка УТ 11, то в документе Заказ клиента, по идее должен быть отчет, о котором я говорил. Хотя и не факт конечно

(50) печально

в документе тоже нет (

это наверное да это переделка но она типовая покупалась у фирмы 1с ))))))

(54) ну передай пламенный привет фирме 1С. В УТ 11 есть отчет, который показывает, то что ты там пытаешься сделать

есть только отчет анализ цен и все )

(55) можешь слить его отдельной обработкой?

или же весь документ?

УФ или обычные?

УФ

[email protected]

нашел отчет называется валовая прибыль по заказам
ну хоро да это бы подошло но  как тогда работать?

(62) исходя из методических рекомендаций фирмы 1С?

распишите схемму формирования документов какие документы нужно делать и как часто что бы получать верные цифры в данный отчет

(64) обратись с таким вопросом в фирму 1С. Тут тебя ни кто, особенно бесплатно, учить работать в типовых конфигурациях 1С не будет

) ну и за то спасибо!