Прошу прощения Администраторов. В неправильном оформлении темы. Суть такова: В коде ошибки и нерациональное описание кода. По возможности описать логичный код. P/S Глаз за мылился,2 сутки без сна.

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
    Если Контрагент <> Справочники.Контрагенты.ПустаяСсылка() Тогда
        ЦенаСУчетомСкидки=0;
        Если ОбъемЗакупки.Количество() > 0 Тогда
            СуммаЗакупки = ОбъемЗакупки[0].Сумма;
            Если СуммаЗакупки >= 20000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(2, 20000);
            ИначеЕсли СуммаЗакупки >= 10000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(1, 10000);
            ИначеЕсли СуммаЗакупки >= 5000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(2, 5000);
            ИначеЕсли СуммаЗакупки >= 3000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(3, 3000);    
            ИначеЕсли СуммаЗакупки >= 1000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(1, 1000);
            Иначе
                РазмерСкидки = ПолучитьРазмерСкидкиПоРС(Контрагент);
                ЦенаСУчетомСкидки = РазмерСкидки*СуммаЗакупки;
            КонецЕсли;
        КонецЕсли;    
        
        Если ЦенаСУчетомСкидки > 0 Тогда
            НачислитьСкидку(ЦенаСУчетомСкидки);
            Сообщить("У клиента с учетом скидки цена " + ЦенаСУчетомСкидки + " руб.");
        КонецЕсли;
    Иначе
        Сообщить("Перед записью выберите контрагента.");
    КонецЕсли;    
КонецПроцедуры

&НаСервере
Процедура НачислитьСкидку(РазмерСкидки)
    Для Каждого СтрокаТЧ Из Товары
        СтрокаДок.Цена = РазмерСкидки;
    КонецЦикла;
КонецПроцедуры


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

&НаСервереБезКонтекста
Функция ПолучитьРазмерСкидкиПоКоэффициенту(Вариант,СуммаЗакупки)
      Если Вариант=1 Тогда
              Коэффициент = 1;
     ИначеЕсли Вариант=2 Тогда
              Коэффициент = 0.9;
      КонецЕсли;  
Возврат Коэффициент*СуммаЗакупки;
КонецФункции

А, ну вот, сразу стало понятнее

(0) вот это можно и на клиенте сделать:
&НаСервере
Процедура НачислитьСкидку(РазмерСкидки)
    Для Каждого СтрокаТЧ Из Товары
        СтрокаДок.Цена = РазмерСкидки;
    КонецЦикла;
КонецПроцедуры

+(2) вот это тоже
&НаСервереБезКонтекста
Функция ПолучитьРазмерСкидкиПоКоэффициенту(Вариант,СуммаЗакупки)
      Если Вариант=1 Тогда
              Коэффициент = 1;
     ИначеЕсли Вариант=2 Тогда
              Коэффициент = 0.9;
      КонецЕсли;  
Возврат Коэффициент*СуммаЗакупки;
КонецФункции

А в чем прикол если сумма закупки меньше 1000 брать с какого-то регистра?

ПолучитьРазмерСкидкиПоКоэффициенту(3, 3000) - Где 3 вариант?

(0)

ПолучитьРазмерСкидкиПоКоэффициенту(3, 3000);

У вас в функции
ПолучитьРазмерСкидкиПоКоэффициенту(Вариант,СуммаЗакупки)

не описан вариант = 3

"ПолучитьРазмерСкидкиПоКоэффициенту(Вариант,СуммаЗакупки)" и Возврат Коэффициент*СуммаЗакупки; - это не сумма скидки, это сумма с учетом скидки. иль там какая то особенная суммаЗакупки передается? ну и в конструкции "Если ИначеЕсли" должно быть еще "Иначе". а то вдруг прилетит вариант не равный ни 1, ни 2

Вставил код как есть, возможно что-то упущено в коде. Поэтому прошу Вас описать полный код. Чтобы лечь спать на 5 минут раньше) Ну и к карме + 100500

(7) так он уже прилетает.
ИначеЕсли СуммаЗакупки >= 3000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(3, 3000);

(8) А, это не ты еще писал. Ну ловкач.

(8) "Поэтому прошу Вас описать полный код" - а вот это уже наглость, вряд ли кто-то за вас тут весь код перепишет лаконично, максимум дадут советы, как это сделать.

>Запрос.УстановитьПараметр("ДатаКон", НачалоМесяца(ТекущаяДата()));

Периодичность РС какая?

В нашей работе сиди и разбирайся в чужом коде. ТЫЖ программист, ну почини чайник.

(9) а. точно) ну тогда лол

Прошу рассматривать это не как наглость, а как просьба о помощи. Если ваше время стоит денег могу оплатить (сил моих нету уже)

(13) ПолучитьРазмерСкидкиПоРС(Контрагент);  переписать , на ПолучитьРазмерСкидки(Контрагент,СуммаЗакупки)
Вот это сжечь:

Если СуммаЗакупки >= 20000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(2, 20000);
            ИначеЕсли СуммаЗакупки >= 10000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(1, 10000);
            ИначеЕсли СуммаЗакупки >= 5000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(2, 5000);
            ИначеЕсли СуммаЗакупки >= 3000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(3, 3000);    
            ИначеЕсли СуммаЗакупки >= 1000 Тогда ЦенаСУчетомСкидки = ПолучитьРазмерСкидкиПоКоэффициенту(1, 1000);

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

(18) там сроки горят

в этой же таблице попробовать учесть коэффициент

(19) это не займет много времени, пока ТС писал дважды эту ветку, уже бы создал регистр и переписал этот блок. Значит не так сроки горят.

(21) ты думаешь с такой квалификацией это не займет много времени?

+(22) не в обиду (0)

Вангую ТСу дали тестовое задание, вот и пыхтит теперь на собеседовании)

(24) ))))
как посадить самолет, срочно!

(22) если займет, то ничего страшного, лучше сделать чуть дольше и правильно, чем потом по каждому чиху демонически обновлять конфу меняя коэффициенты и прочие условия скидок)

Вы ошибаетесь, параллельно сижу над интеграцией 1С и сайта на Tilda(интеграция через XML), чтобы чеки фискальные обратно приходили.

(27) Лучше скажи как ты туда сумел устроиться?

(28) Скорее работает бесплатно

Открою другую ветку и напишу об этом книгу в 2-х томах)

(28) Скиллбокс сейчас пачками выпускает. Но есть нюанс.

(30) а потом сиквел, приквел...

Так у меня еще есть задачи. У кого руки свободные, поделюсь )) Работаю за еду )))

Ребят, честно. Прошу помочь с кодом. Мне приятно с вами пообщаться, но цитата: Сон для слабаков не для меня. ))

(34) хоть бы анекдот рассказал смешной или еще какую байку.
а то на эту хрень что ты придумал... ну не ведется народ, все уже все это видели .

Вам неугодить товарисчи. На пивко готов закинуть на счёт

(2) Добавьте 99тыс строк и проверьте как быстро на клиенте отработает

(36) тут все за ЗОЖ, кому оно надо ваше пиво...

(34) Так уж и быть...
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)

Если НеобходимоРассчитатьСкидки тогда

СтукрутаПараметров = ПолучитьСтуктуруПараметровУстановкиСкидок(ЗаказКлиента)
УстановитьСкидки(СтукрутаПараметров)

КонецЕсли

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

примерно так должен выглядеть ваш код)

(34) Сударь, приветствую! Ну пару советов вам уже дали выше, ИМХО - что не работает то?
1) Вот тут, как написали выше, должен быть прописан для Вариант = 3 Коэффициент, какой должен быть коэффициент - без вашего ответа только к телепату ходить
Функция ПолучитьРазмерСкидкиПоКоэффициенту(Вариант,СуммаЗакупки)
      Если Вариант=1 Тогда
              Коэффициент = 1;
     ИначеЕсли Вариант=2 Тогда
              Коэффициент = 0.9;
      КонецЕсли;  
Возврат Коэффициент*СуммаЗакупки;
КонецФункции

2)Потом пишете следующую ошибку и на ней смотрим. Про нерациональный код потом уже, как поспите, поговорим..

(37) все что можно сделать на клиенте - нужно делать на клиенте. 99тыс строк - неверно спроектированое хранение данных.

(42) Расчет себестоимости в ЕРП тоже можно на клиенте сделать. А надо ли?

(43) тут явно табличная часть документа, про много строк нигде не написано.

Kassern - тебе переводить ? )

(45) мне не надо, купите лучше турку и сварите себе забористого кофейка. Вам это сейчас нужнее.

(42) И безусловных вызовов сервера не будет? Что за бред пишете.

(47) о чем вы? про какие конкретно безусловные вызовы вы пишите? Я пишу что в обычных ситуациях с точки зрения производительности чем меньше дергаешь сервер, тем лучше, особенно если высоконагруженная система. Если у вас 99тыс. строк - понятно что тут вопрос как лучше делать, но это лишь частный случай

Главная ошибка она сидите между стулом и клавиатурой. Иди в управдомы, тут уже ничего не исправить.

(0) все это хрень, скидки обычно рассчитываются при вводе данных в форму (судя по "НаКлиенте" мы имеем дело с формой). В форме сделать реквизит для хранения коэф скидки для выбранного контрагента, при вводе данных в табчасть все пересчитывать с учетом ЗАРАНЕЕ полученного после выбора контрагента коэф скидок
А считать это перед записью - только серверные вызовы плодить. Один вызов - это вы получаете коэф скидок, второй - пишете цены со скидкой в ТЧ, третий - данные из формы для записи отправляются на сервер и все это внутри транзакции записи документа. Такие вещи могут работать без тормозов только если в базе работают не более 1-5 юзеров

(0)   "ВЫБРАТЬ ПЕРВЫЕ 1
        |    КоэффициентыКлиентовСрезПоследних
в срезе нет смысла выбирать первые 1

(51) есть, если срез запросом - возвращает все записи с периодом меньше указанного в параметре. А если срез вызван в коде РегистрыСведений.МойРегистр.СрезПоследних(ПараметрыОтбора) - тут да, одна запись

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

(0) всё удалить и писать заново. получится красиво и лаконично.

(0) так же для варианта 3 нет коэф следовательно функция вернет ошибку так как коэф не известная переменная
&НаСервереБезКонтекста
Функция ПолучитьРазмерСкидкиПоКоэффициенту(Вариант,СуммаЗакупки)
      Если Вариант=1 Тогда
              Коэффициент = 1;
     ИначеЕсли Вариант=2 Тогда
              Коэффициент = 0.9;
      КонецЕсли;  
Возврат Коэффициент*СуммаЗакупки;
КонецФункции

(0) ну и самая главная ошибка конечно тут, для расчета цены с учетом скидки ты берешь только сумму из первой строки, получаешь цену с учетом скидки именно для этой первой строки, а потом в процедуре применить скидки, устанавливаешь цену со скидкой для каждой строки из тч документа.
СуммаЗакупки = ОбъемЗакупки[0].Сумма;

(0) тут тоже СтрокаДок будет ошибка так как не известная переменная
&НаСервере
Процедура НачислитьСкидку(РазмерСкидки)
    Для Каждого СтрокаТЧ Из Товары
        СтрокаДок.Цена = РазмерСкидки;
    КонецЦикла;
КонецПроцедуры

В общем задание на внимательность

(53) если явно не указывать порядок в запросе - оно как-то все равно отсортирует
"так как установлен отбор по измерению, и там будет 1 запись" - если по измерению с разными периодами несколько записей позже даты, указанной в параметре - их все и вернет

(59) "если по измерению с разными периодами несколько записей позже даты, указанной в параметре - их все и вернет" срез последних возвращает все на указанную дату, все что после тебе никогда не верне.
https://imgur.com/a/CPNjwM3 вот пример, напиши сам запрос такой в цены номенклатуры например, если отбор только по 1 измерению выведет срез всех записей на дату с отбором по этому 1 измерению, если добавить в отбор второе измерение тип цен то запись будет 1.

(60) а если сюда добавить выбрать первые 1 то выберет только 1 запись от 17.02.2015

(59) вот ваше " оно как-то все равно отсортирует" и выберет нафиг не нужные данные

(2) можно, но не нужно. Обход ТЧ на клиенте означает, что вся ТЧ будет вытянута на клиент. Штатно отображается только порция данных ТЧ

А вообще, за такой код нужно по рукам хлестать. Бизнес-логика документа оказалась запрятана в форме документа. Понадобится программно работать с документом, и настанет упс! Полетят копипасты кода...

(60) в самописной базе одного из клиентов измерение НОМЕНКЛАТУРА единственное, левое соединение списка номенклатур со срезом последних из списка цен возвращает вообще все записи позже даты параметра. Отбор по второму измерению некуда добавить, измерение одно

(65) ну так правильно, если ты к таблице номенклатуры присоединил слева срез у тебя будет вся таблица номенклатуры и срез, и там где будет связь будет номенклатура из твоего РС, все остальные будут null.
сделай срез с отбором и к нему присоедини номенклатуру получишь 1 запись. Зачем спорить, я тебе на примере среза цен номенклатуры показал. Возможно в твоем случае у клиента стояла задача чтобы посмотреть какие записи есть в рс а каких нет, тогда это правильно слева присоединять твой рс к табл номенклатуры.

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

(59) неправда.

(67) не понял в чем вопрос. Если сделать срез последних по регистру, где несколько измерений, но отбор сделать не по всем измерениям, то вполне может быть несколько строк в выборке. Если же делать отбор по всем измерениям, то срез всегда вернет максимум 1 запись.

(66) 1С-овский срез последних - не совсем срез последних. Или срез не совсем последних ))) Там у него внутри дефект

(70) нет там никакого дефекта, все логично отрабатывает.

простой пример
дата  номенклатура   ВидЦены          Цена
2020     морковь    закупочная        200р
2020     морковь    продажная         250р
2021     морковь    закупочная        220р

Срез последних с отбором по номенклатуре вернет 2 записи и не важно какие поля в ВЫБРАТЬ указаны.
2020     морковь    продажная         250р
2021     морковь    закупочная        220р

(72) А должен вернуть одну, ПОСЛЕДНЮЮ

2021     морковь    закупочная        220р

И делается это элементарно. Путем правильного формирования GROUP BY

(73) ничего он вам не должен. в документации написано - по набору измерений и точка.

(73) Вас случаем геня не кусал? Он вроде тему по этому поводу создавал

(74) Еще как должен. В документации написано так, что можно понимать как угодно. И многие понимают, исходя из разумного представления о значении слова "ПОСЛЕДНИЙ"

(76) там даже написано срез ПОСЛЕДНИХ, а не последний)) Что как бы намекает о срезе по набору измерений, а не тупо последняя строчка

(76) смысл об этом опять спорить? как сделано так и сделано. менять это не будут.
Соответственно баг превращается в фичу

(77) Но каждый из этих последних должен быть ПОСЛЕДНИМ, а не абы каким

(76) (77) (78) вы почто фантазируете?
там черным по белому:
Срез последних записей регистра возвращает по одной, наиболее поздней по времени, для каждого значения измерения (или комбинации значений измерений) записи регистра сведений. Срез первых, наоборот, возвращает наиболее ранние записи регистра для каждого значения измерения.

https://its.1c.ru/db/pubqlang/content/84/hdoc

(79) вот он и есть последний. для своей комбинации измерений.

(79) так и есть, каждая запись является последними данными для набора измерений. А обе записи являются срезом ПОСЛЕДНИХ для регистра по данной номенклатуре.

(80) Проще же побухтеть на форуме доказывая как должно быть, а не читать доку

(83) достаточно одной цитаты с доки, чтобы прервать тролле-срач длиною в сутки.

(80) Что такое комбинация по-вашему?

(80) там пропущено слово всех
Для каждой комбинации ВСЕХ измерений

(86) Слово ВСЕХ все равно не поправило бы до конца.
Вот есть множество. В нашем случае "Номенклатура, Вид цены". Полный список всех КОМБИНАЦИЙ этого множества:

Номенклатура, Вид цены
Номенклатура
Вид цены

Всякий нормальный человек именно так это и понимает, прочитав слово КОМБИНАЦИЯ

А самое главное - не было никакого смысла реализовывать так, как оно сейчас реализовано