Изменение цены и расчета стоимости при изменении вида цены и валюты

@Евген357 · Регистрация: 07.09.2021

Author24 — интернет-сервис помощи студентам

Здравствуйте! Помогите пжл решить такую задачу. Есть Обработка с табличной частью. В шапке Покупатель, Склад, Вид цены и валюта. В табличной части ОстаткиТоваров Номенклатура, Количество, Цена и Стоимость. Кнопка Заполнить, позволяющая заполнить табличную часть остатками товаров, кнопка Очистить, позволяющая очистить заполненную табличную часть. Можно сделать так, чтобы уже в заполненной табличной части при изменении пользователем Вида цены и/или Валюты менялось значение Цены и, соответственно, пересчитывалась Стоимость. Привожу код из модуля формы обработки

1C

&НаСервере
Функция ПолучитьВыборку ();
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |    ТоварыНаСкладахОстатки.Номенклатура КАК Номенклатура,
        |    ТоварыНаСкладахОстатки.КоличествоОстаток КАК Количество,
        |    ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних.Цена, 0) / ЕСТЬNULL(КурсыВалютСрезПоследних.Курс, 1) КАК Цена,
        |    ТоварыНаСкладахОстатки.КоличествоОстаток * ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних.Цена, 0) / ЕСТЬNULL(КурсыВалютСрезПоследних.Курс, 1) КАК Стоимость
        |ИЗ
        |    РегистрНакопления.ТоварыНаСкладах.Остатки(, Склад = &Склад) КАК ТоварыНаСкладахОстатки
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(, ВидЦены = &ВидЦены) КАК ЦеныНоменклатурыСрезПоследних
        |        ПО ТоварыНаСкладахОстатки.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КурсыВалют.СрезПоследних(, Валюта = &Валюта) КАК КурсыВалютСрезПоследних
        |        ПО (ИСТИНА)
        |ГДЕ
        |    ТоварыНаСкладахОстатки.КоличествоОстаток > 0";
    
    Запрос.УстановитьПараметр("Склад", Склад);
    Запрос.УстановитьПараметр("ВидЦены", ВидЦены);
    Запрос.УстановитьПараметр("Валюта", Валюта);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    Возврат ВыборкаДетальныеЗаписи;
КонецФункции
 
 
&НаСервере
Процедура ЗаполнитьНаСервере()
    ВыборкаДетальныеЗаписи=ПолучитьВыборку ();
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        НовСтр = Объект.ОстаткиТоваров.Добавить();
        ЗаполнитьЗначенияСвойств(НовСтр,ВыборкаДетальныеЗаписи);
    КонецЦикла;
КонецПроцедуры
 
 
&НаКлиенте
Процедура ОстаткиТоваровКоличествоЦенаПриИзменении(СтрокаОстаткиТоваров)
    СтрокаОстаткиТоваров = Элементы.ОстаткиТоваров.ТекущиеДанные;
    СтрокаОстаткиТоваров.Стоимость = СтрокаОстаткиТоваров.Количество*СтрокаОстаткиТоваров.Цена;
КонецПроцедуры

@Аватар · 25.09.2022, 09:31

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

@Евген357 · 26.09.2022, 08:40 **[ТС]**

Аватар, Это я понимаю. Вопрос в том какой код прописать в обработчике изменения цены и/или валюты. Единственное откуда можно взять это из функции ПолучитьВыборку (), но я не соображу как

@Евген357 · 27.09.2022, 05:20 **[ТС]**

Сделал вот так, все работает. Не знаю насколько это оптимально, но другого решения пока нет. У кого есть комментарии, пишите пожалуйста. Вот код, добавил новые функцию и процедуру к имеющимся:

1C

&НаСервере
Функция ПолучениеЦены (Номенклатура, ВидЦены, Валюта)
    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |    ЦеныНоменклатурыСрезПоследних.Цена / ЕСТЬNULL(КурсыВалютСрезПоследних.Курс, 1) КАК ЦенаПолучаемая
    |ИЗ
    |    РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
    |            ,
    |            ВидЦены = &ВидЦены
    |                И Номенклатура = &Номенклатура) КАК ЦеныНоменклатурыСрезПоследних
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КурсыВалют.СрезПоследних(, Валюта = &Валюта) КАК КурсыВалютСрезПоследних
    |        ПО (ИСТИНА)";
    
    Запрос.УстановитьПараметр("ВидЦены", ВидЦены);
    Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
    Запрос.УстановитьПараметр("Валюта", Валюта);
        
    РезультатЗапроса = Запрос.Выполнить();
    Если РезультатЗапроса.Пустой() Тогда
        Цена = 0;
    Иначе    
        ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            Цена=ВыборкаДетальныеЗаписи.ЦенаПолучаемая;
        КонецЦикла;
    КонецЕсли;
    Возврат Цена; 
КонецФункции 
 
&НаКлиенте
Процедура ВалютаВидЦеныПриИзменении(Элемент)
    Для каждого СтрокаОстаткиТоваров Из Объект.ОстаткиТоваров Цикл
        СтрокаОстаткиТоваров.Цена = ПолучениеЦены (СтрокаОстаткиТоваров.Номенклатура, ВидЦены, Валюта);
        СтрокаОстаткиТоваров.Стоимость = СтрокаОстаткиТоваров.Количество*СтрокаОстаткиТоваров.Цена;
    КонецЦикла; 
КонецПроцедуры

@Аватар · 27.09.2022, 08:42

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

@Yulunga · 27.09.2022, 09:29

Не по теме:

Сообщение от Аватар

можно же не делать запрос в цикле

это плюс адин

@Аватар 1929 / 1164 / 423 Регистрация: 31.05.2012 Сообщений: 4,115
	25.09.2022, 09:31	2
	добавь обработчик (-ки) изменения вида цены и/или валюты, в котором по одному тебе известному алгоритму поменяй цены, видимо из нужно взять откуду-то на основании вида и валюты. или придумать новые)) 0

@Евген357 3 / 3 / 0 Регистрация: 07.09.2021 Сообщений: 76
	26.09.2022, 08:40 [ТС]	3
	Аватар, Это я понимаю. Вопрос в том какой код прописать в обработчике изменения цены и/или валюты. Единственное откуда можно взять это из функции ПолучитьВыборку (), но я не соображу как 0

@Аватар 1929 / 1164 / 423 Регистрация: 31.05.2012 Сообщений: 4,115
	27.09.2022, 08:42	5
	можно же не делать запрос в цикле. например собрать все номенклатуры в список значений или временную табличку и одним запросом один раз получить все цены 0

@Yulunga
	27.09.2022, 09:29 Изменение цены и расчета стоимости при изменении вида цены и валюты #6
	Не по теме: Сообщение от Аватар можно же не делать запрос в цикле это плюс адин 0