Имя: Пароль:
1C
1С v8
Розница 2.2 добавление товара по штрих коду
0 botman4
 
15.01.20
10:38
Добрый день.
При добавлении товара в документ "Реализация товаров" не правильно формируется цена и цена со скидкой.
Сама цена в колонке заполняется, но при печати накладной поле цены - пустое.

Подскажите как отловить действие добавления по Штрих коду?


&НаКлиенте
Процедура ПоискПоШтрихкоду(Команда)
    
    ОбработкаТабличнойЧастиТоварыКлиент.ВвестиШтрихкод(ЭтотОбъект);
    
КонецПроцедуры

// Процедура обработки ручного ввода штрихкода.
//
Процедура ВвестиШтрихкод(Объект) Экспорт
    
    Штрихкод = "";
    ТекстЗаголовка = НСтр("ru = 'Введите штрихкод'");
    ОписаниеОповещения = Новый ОписаниеОповещения("ОповещениеПоискаПоШтрихкоду", Объект);
    
    ПоказатьВводСтроки(ОписаниеОповещения, Штрихкод, ТекстЗаголовка);
    
КонецПроцедуры


куда дальше оно прыгает -  не могу отловить.
Хелпаните народ.
1 JeHer
 
15.01.20
10:47
ОповещениеПоискаПоШтрихкоду - сюда, может быть?
2 Kigo_Kigo
 
15.01.20
11:01
(0) Так запусти замер производительности и смотри куда он прыгает, раз отладчиком пройтись не можешь
3 botman4
 
15.01.20
11:19
(2) Спасибо.
4 botman4
 
15.01.20
11:57
Отловил.


Процедура ПересчитатьЦенуСУчетомСкидокВСтрокеТЧ(ТекущаяСтрока, СтруктураДействий, КэшированныеЗначения) Экспорт

            Если СуммаСкидкиЦены <> 0 Тогда
                ТекущаяСтрока.ЦенаСоСкидкой = Окр(ТекущаяСтрока.Цена - СуммаСкидкиЦены, 2);    
            ИначеЕсли ТекущаяСтрокаСкидка <> 0   Тогда
                ТекущаяСтрока.ЦенаСоСкидкой = ТекущаяСтрока.Цена - ТекущаяСтрокаСкидка;    
            Иначе
                //*User@, 2020-01-15 11:53:36
                //ТекущаяСтрока.ЦенаСоСкидкой = 0;
                // -------- заменено на:
                ТекущаяСтрока.ЦенаСоСкидкой = ТекущаяСтрока.Цена;
                //*User@, 2020-01-15 11:53:36
            КонецЕсли;