Оптимизация обработки проведения

Форум Программирование Общие вопросы программирования (Dev)

1С:Управление торговлей 10

1. Intercititude 01.04.20 12:49 Сейчас в теме

Есть такой кусок в обработке проведения документа "Заказ покупателя":

Для Каждого Стр ИЗ Товары Цикл
Результат = ОбщийМодуль.Проверка(Дата,номенклатура,контрагент)
Если Результат Тогда
Отказ = Истина
Конецесли
конеццикла

Нормально ли вообще перебирать позиции номенклатуры так в обработке проведения или можно как то лучше сделать ? Не нравится как выглядит.

По теме из базы знаний

Найденные решения

23. soft_wind 01.04.20 17:27 Сейчас в теме

(21) попробуйте такую процедуру, не идеал конечно,

//в модуле документа
Процедура ОбработкаПроведения(Отказ, Режим)
    ...
    ПроверкаЦен(Отказ);
    ...
КонецПроцедуры;

Процедура ПроверкаЦен(Отказ)

    Если Отказ Тогда Возврат; КонецЕсли;
    
    //Запрос - шаблон
    лкЗапрос = Новый Запрос;
    лкЗапрос.Текст = "
        |Выбрать
        |    Док.НомерСтроки,
        |    Представление(Док.Номенклатура) как Номенклатура,
        |    Док.Цена,
        |    РегЦен.Цена кк ЦенаРег
        |из
        |    Документ.ЗаказПокупателя.Товары Док
        |левое соединение
        |    РегиствеСведении.Рег.СрезПоследних(&Дата,ТипЦен = &ТипЦен) КАК РегЦен //пока сократил И Номенклатура в (&СписокНоменклатура) КАК РегЦен
        |        по Док.Номенклатура = РегЦен.Номенклатура
        |где
        |    Док.Ссылка = &Ссылка
        |и    Док.Цена <> ЕстьNull(РегЦен.Цена,0)//или какое другое условие
        |Упорядочить по
        |    Док.НомерСтроки
        |";
    лкЗапрос.УстановитьПараметр("Дата", Дата);
    лкЗапрос.УстановитьПараметр("ТипЦен", ТипЦен);
    лкЗапрос.УстановитьПараметр("Ссылка", Ссылка);
    
    лкРезультат = лкЗапрос.Выполнить();
    Если Не лкРезультат.Пустой() Тогда
        //есть расхождения цен
        Отказ = Истина;
        //очень полезно вывести эту информацию при испольждовании в групповых операциях
        Сообщить("Есть ошибки по ценам в документе: " + Ссылка); 
        лкВыборка = лкРезультат.Выбрать();
        Пока лкВыборка.Следующий() Цикл
            Сообщить("Строка: " + лкВыборка.НомерСтроки 
                    + " товар: " + лкВыборка.Номенклатура
                    + " цена док: " + лкВыборка.Цена
                    + " цена рег: " + лкВыборка.ЦенаРег
            );
            
        КонецЦикла; 
    КонецЕсли; 
    
КонецПроцедуры;

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. alex-l19041 8 01.04.20 12:55 Сейчас в теме

(1) а что в

ОбщийМодуль.Проверка(

5. Intercititude 01.04.20 13:04 Сейчас в теме

(2) Запрос,куда передаются дата,ном и контрагент.
В итоге оттуда берётся сумма и происходит проверка,которая возвращает истину или ложь
Думал перебирать циклом на Запрос.УстановитьПараметр("Номенклатура",Номенклатура) , но по-моему это ещё хуже :)

3. Torin 847 01.04.20 12:56 Сейчас в теме

(1)Какой то левый код.." не типовой" :)

4. Intercititude 01.04.20 13:02 Сейчас в теме

(3) Вот вот !) Я же его и добавил :)

20. soft_wind 01.04.20 14:24 Сейчас в теме

(4)

Вот вот !) Я же его и добавил :)

ни чего необычного, типичный гов-но код
вот это

Запрос.установитьПараметр("СписокНоменклатура",Товары.Выгрузить("Номенклатура"));

тоже,
так как в момент обработки проведения, документ уже записан в базу и достаточно передать его ссылку в запрос,
а не выгружать все товары из ТЧ и передавать из в виде параметра

потом предвижу ваш код дальше, когда вы захотите вывести сообщение по той строчке, в которой номенклатура не соответствует цене
Строка: ННН, товар: Стол - не соответствие цен. (ну или чего там)

21. Vladimir-R 171 01.04.20 14:30 Сейчас в теме

(20) напишите, как сделать правильно

23. soft_wind 01.04.20 17:27 Сейчас в теме

(21) попробуйте такую процедуру, не идеал конечно,

//в модуле документа
Процедура ОбработкаПроведения(Отказ, Режим)
    ...
    ПроверкаЦен(Отказ);
    ...
КонецПроцедуры;

Процедура ПроверкаЦен(Отказ)

    Если Отказ Тогда Возврат; КонецЕсли;
    
    //Запрос - шаблон
    лкЗапрос = Новый Запрос;
    лкЗапрос.Текст = "
        |Выбрать
        |    Док.НомерСтроки,
        |    Представление(Док.Номенклатура) как Номенклатура,
        |    Док.Цена,
        |    РегЦен.Цена кк ЦенаРег
        |из
        |    Документ.ЗаказПокупателя.Товары Док
        |левое соединение
        |    РегиствеСведении.Рег.СрезПоследних(&Дата,ТипЦен = &ТипЦен) КАК РегЦен //пока сократил И Номенклатура в (&СписокНоменклатура) КАК РегЦен
        |        по Док.Номенклатура = РегЦен.Номенклатура
        |где
        |    Док.Ссылка = &Ссылка
        |и    Док.Цена <> ЕстьNull(РегЦен.Цена,0)//или какое другое условие
        |Упорядочить по
        |    Док.НомерСтроки
        |";
    лкЗапрос.УстановитьПараметр("Дата", Дата);
    лкЗапрос.УстановитьПараметр("ТипЦен", ТипЦен);
    лкЗапрос.УстановитьПараметр("Ссылка", Ссылка);
    
    лкРезультат = лкЗапрос.Выполнить();
    Если Не лкРезультат.Пустой() Тогда
        //есть расхождения цен
        Отказ = Истина;
        //очень полезно вывести эту информацию при испольждовании в групповых операциях
        Сообщить("Есть ошибки по ценам в документе: " + Ссылка); 
        лкВыборка = лкРезультат.Выбрать();
        Пока лкВыборка.Следующий() Цикл
            Сообщить("Строка: " + лкВыборка.НомерСтроки 
                    + " товар: " + лкВыборка.Номенклатура
                    + " цена док: " + лкВыборка.Цена
                    + " цена рег: " + лкВыборка.ЦенаРег
            );
            
        КонецЦикла; 
    КонецЕсли; 
    
КонецПроцедуры;

Показать

26. Intercititude 01.04.20 21:50 Сейчас в теме

(23) Единственное данные не корректны.
Мне нужно Если Цена из ТЧ Товары < Цена из Регистра Тогда Не проводим!
В вашем случае не так.

27. soft_wind 03.04.20 12:45 Сейчас в теме

(26) э-э-э, а у вас что пальчик отсох, что бы подправить условие запроса?

вместо "<>" сделать "<"

там даже коммент есть: //или какое другое условие

7. Fox-trot 164 01.04.20 13:10 Сейчас в теме

по мне так достаточно только ссылку предавать

9. Intercititude 01.04.20 13:11 Сейчас в теме

(7) И как перебирать в запросе несколько позиции номенклатура после ?

18. Fox-trot 164 01.04.20 13:57 Сейчас в теме

пусть sql перебирает

6. Vladimir-R 171 01.04.20 13:05 Сейчас в теме

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

8. Intercititude 01.04.20 13:10 Сейчас в теме

(6)А как передать несколько позиции номенклатура поочередно в запрос ?
Лучше чем

Для Каждого СТр ИЗ Товары Цикл
Запрос.УстановпитьПараметр("Номенклатура",Стр):
конеццикла

не придумал.

10. alex-l19041 8 01.04.20 13:15 Сейчас в теме

(8) текст запроса?

11. Intercititude 01.04.20 13:21 Сейчас в теме

(10)Примерно такой

ВЫБРАТЬ
Рег.Цен
Рег.ТипЦен
Рег.номенклатура
ИЗ РегиствеСведении.Рег.СрезПоследних(&ДатаЦен,ТипЦен = &ТипЦен И Номенклатура = &Номенклатура)
КАК РегСрезПоследних

Запрос.установитьПараметр("ДатаЦен",Дата);
Запрос.установитьПараметр("ТипЦен ",ТипЦен );
Запрос.установитьПараметр("Номенклатура ",Номенклатура );

Показать

12. Vladimir-R 171 01.04.20 13:43 Сейчас в теме

ВЫБРАТЬ
Рег.Цен
Рег.ТипЦен
Рег.номенклатура
ИЗ РегиствеСведении.Рег.СрезПоследних(&ДатаЦен,ТипЦен = &ТипЦен И Номенклатура в (&СписокНоменклатура)
КАК РегСрезПоследних

Запрос.установитьПараметр("ДатаЦен",Дата);
Запрос.установитьПараметр("ТипЦен ",ТипЦен );
Запрос.установитьПараметр("СписокНоменклатура",Товары.Выгрузить("Номенклатура"));

Показать

13. Intercititude 01.04.20 13:46 Сейчас в теме

(12)И выходит после выгрузить в выборку и перебирать Для Каждого... каждую номенклатуру и уже там проверять ?

14. Vladimir-R 171 01.04.20 13:47 Сейчас в теме

(13)Смотря что надо проверять

15. Intercititude 01.04.20 13:51 Сейчас в теме

(14)Цену номенклатуры из регистра с ценой номенклатуры из объекта.

16. DADemishkevich 01.04.20 13:53 Сейчас в теме

(15) Соединить таблицу данных регистра с таблицей товары заказа по номенклатуре
выбрать те где цены не совпадают

17. Intercititude 01.04.20 13:57 Сейчас в теме

(16) Вы откуда знаете :)

19. DADemishkevich 01.04.20 14:12 Сейчас в теме

(17) Что знаю? ;)

22. Intercititude 01.04.20 17:10 Сейчас в теме

(12) Проблема возникла. Товары не Выгрузить,мол это Массив.
Так как это тип ДокументТабличнаяЧасть.ЗаказПокупателя.Товары
как быть ?

24. Intercititude 01.04.20 17:59 Сейчас в теме

(12)А Как сравнивать каждую позицию цены ?

Ну тоесть мне надо после запроса сравнить

Если Цена Номенклатуры из ТЧ Товары < Выборка Цена Тогда не ПРОВОДИМ.
Просто в обходе выборки Сделать Цена = Товары.ВЫгрузитьКОлонку("Цена")
И

Пока ВЫборка.Следующий() Цикл
 Цена = Товары.ВЫгрузитьКОлонку("Цена") 
]для каждого Стр Из Цена Цикл
   Если Цена < Выборка. Цена Тогда 
"НЕПРОВОДИМ"
конецЦикла

конеццикла

Показать

Как сделать корректнее ?!

25. sergathome 4 01.04.20 18:02 Сейчас в теме

с днём дурака ?

Оставьте свое сообщение

E-mail: