Установить цену произвольная при изменении цены.

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

1С:Управление торговлей 11 Платформа 1С v8.3

1. seregapplk 11.08.21 12:08 Сейчас в теме

Думаю интересно не только одному мне. Необходимо сделать чтобы при редактировании цены в реализации товаров - типы цен устанавливались значение произвольная.
Как это сделать в конфигураторе?
в форме, колонка цена при изменении?

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

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

9. seregapplk 12.08.21 14:48 Сейчас в теме

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

Элементы.Цена.ТолькоПросмотр = ЗначениеЗаполнено(ВидЦены);
  //Элементы.Цена.ПропускатьПриВводе = ЗначениеЗаполнено(ВидЦены);

И создать

&НаКлиенте
Процедура ЦенаПриИзменении(Элемент)
  

  ВидЦены = Неопределено;
  
КонецПроцедуры

В форме по поле ввода "цена"

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

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

Свернуть все

2. soft_wind 11.08.21 12:38 Сейчас в теме

так вроде ситуация от обратного

если у вас задан ВидЦены, то колонку Цены менять не можете
для того что бы изменить Цену, необходимо в ВидеЦены выбрать Произвольная, после этого дает менять Цену

а вот теперь вопрос: А нафига менять устоявшийся регламент изменения Цены?

3. seregapplk 11.08.21 12:41 Сейчас в теме

есть клиенты которым хозяин хочет дать скидку
либо иногда цена "договорная" ))

4. FatPanzer 11.08.21 12:49 Сейчас в теме

Чем не устраивает ручная скидка?

5. seregapplk 11.08.21 12:49 Сейчас в теме

да, запрет в процедуре,
как же сделать?

Процедура ТоварыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
    
    Если Поле = Элементы.ТоварыПроцентАвтоматическойСкидки
        Или Поле = Элементы.ТоварыСуммаАвтоматическойСкидки Тогда
        
        СтандартнаяОбработка = Ложь;
        ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
        
        Если Не Объект.РеализацияПоЗаказам ИЛИ РеализацияСверхЗаказа И ТекущиеДанные.КодСтроки = 0 Тогда
            
            Если Не Объект.СкидкиРассчитаны Тогда
                Результат = Вопрос(НСтр("ru='Скидки (наценки) не рассчитаны, рассчитать?';uk='Знижки (націнки) не розраховані, розрахувати?'"), РежимДиалогаВопрос.ДаНет);
                Если Результат = КодВозвратаДиалога.Нет Тогда
                    Возврат;
                Иначе
                    
                    СтруктураПараметры = Новый Структура;
                    СтруктураПараметры.Вставить("ПрименятьКОбъекту",                Истина);
                    СтруктураПараметры.Вставить("ТолькоПредварительныйРасчет",      Ложь);
                    СтруктураПараметры.Вставить("ВосстанавливатьУправляемыеСкидки", Истина);
                    СтруктураПараметры.Вставить("УправляемыеСкидки", УправляемыеСкидки);
                    СтруктураПараметры.Вставить("РеализацияСверхЗаказа", РеализацияСверхЗаказа И Объект.РеализацияПоЗаказам);
                    
                    СтруктураСообщений = РассчитатьСкидкиНаценкиНаСервере(СтруктураПараметры);
                    Если СтруктураСообщений.Сообщения.Количество() > 0 И СтруктураСообщений.АвтоматическиОткрывать Тогда
                        ОткрытьФорму("ОбщаяФорма.СообщенияСкидокНаценок", СтруктураСообщений, ЭтаФорма, УникальныйИдентификатор);
                    КонецЕсли;
                    
                КонецЕсли;
            КонецЕсли;
            
            Если НЕ ЗначениеЗаполнено(АдресПримененныхСкидокВоВременномХранилище) Тогда
                РассчитатьСкидкиБезПримененияКОбъекту();
            КонецЕсли;
            
            ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
            СкидкиНаценкиКлиент.ОткрытьФормуПримененныеСкидки(ТекущиеДанные, Объект, ЭтаФорма);
            
        КонецЕсли;
                
    ИначеЕсли Поле = Элементы.ТоварыЗаказКлиента Тогда
        
        Если ЗначениеЗаполнено(Элементы.Товары.ТекущиеДанные.ЗаказКлиента) Тогда
            ОткрытьЗначение(Элементы.Товары.ТекущиеДанные.ЗаказКлиента);
        ИначеЕсли ЗначениеЗаполнено(Объект.ЗаказКлиента) Тогда
            ОткрытьЗначение(Объект.ЗаказКлиента);
        КонецЕсли;
        
    ИначеЕсли Поле = Элементы.ТоварыЦена Тогда
        
        ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
        Если ПравоНаЧтениеВидаЦены Тогда
            Если ЗначениеЗаполнено(ТекущиеДанные.ВидЦены) И НЕ Объект.Согласован Тогда
                ОчиститьСообщения();
                ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
                    НСтр("ru='Для редактирования цены выберите вид цены ""<произвольная>""';uk='Для редагування ціни виберіть вид ціни ""<довільна>""'"),
                    Объект.Ссылка,
                    ОбщегоНазначенияКлиентСервер.ПутьКТабличнойЧасти("Объект.Товары", ТекущиеДанные.НомерСтроки, "ВидЦены"),);
            КонецЕсли;
        КонецЕсли;
        
    ИначеЕсли НаборыКлиент.БлокируемыйЭлемент(Поле) Тогда
        
        ТекущаяСтрока = Объект.Товары.НайтиПоИдентификатору(ВыбраннаяСтрока);
        Если ЗначениеЗаполнено(ТекущаяСтрока.НоменклатураНабора) И ТекущаяСтрока.КодСтроки = 0 Тогда
            
            ПараметрОповещения = Новый Структура;
            ПараметрОповещения.Вставить("НоменклатураНабора",   ТекущаяСтрока.НоменклатураНабора);
            ПараметрОповещения.Вставить("ХарактеристикаНабора", ТекущаяСтрока.ХарактеристикаНабора);
            ПараметрОповещения.Вставить("ФормаВладелец",        УникальныйИдентификатор);
            ПараметрОповещения.Вставить("СверхЗаказа",          Истина);
            
            Оповестить("РедактироватьНабор", ПараметрОповещения, ЭтаФорма);
            
        КонецЕсли;
        
    ИначеЕсли Поле = Элементы.ТоварыНоменклатураНабора Тогда
        
        ОткрытьЗначение(Элементы.Товары.ТекущиеДанные.НоменклатураНабора);
        
    КонецЕсли;
    
КонецПроцедуры

Показать

6. seregapplk 11.08.21 15:26 Сейчас в теме

проблема в плагине скорее всего, ищу варианты

7. seregapplk 11.08.21 15:39 Сейчас в теме

работает в форме

ИначеЕсли Поле = Элементы.ТоварыЦена Тогда
        
        ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
        //  +++++++++++
         Элементы.Товары.ТекущиеДанные.ВидЦены = Неопределено;  
        //----------- 
        Если ПравоНаЧтениеВидаЦены Тогда
            Если ЗначениеЗаполнено(ТекущиеДанные.ВидЦены) И НЕ Объект.Согласован Тогда
                ОчиститьСообщения();
                ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
                    НСтр("ru='Для редактирования цены выберите вид цены ""<произвольная>""';uk='Для редагування ціни виберіть вид ціни ""<довільна>""'"),
                    Объект.Ссылка,
                    ОбщегоНазначенияКлиентСервер.ПутьКТабличнойЧасти("Объект.Товары", ТекущиеДанные.НомерСтроки, "ВидЦены"),);
                        
            КонецЕсли;
        КонецЕсли;
           
    ИначеЕсли НаборыКлиент.БлокируемыйЭлемент(Поле) Тогда
        
        ТекущаяСтрока = Объект.Товары.НайтиПоИдентификатору(ВыбраннаяСтрока);                                            
        Если ЗначениеЗаполнено(ТекущаяСтрока.НоменклатураНабора) И ТекущаяСтрока.КодСтроки = 0 Тогда
            
            ПараметрОповещения = Новый Структура;
            ПараметрОповещения.Вставить("НоменклатураНабора",   ТекущаяСтрока.НоменклатураНабора);
            ПараметрОповещения.Вставить("ХарактеристикаНабора", ТекущаяСтрока.ХарактеристикаНабора);
            ПараметрОповещения.Вставить("ФормаВладелец",        УникальныйИдентификатор);
            ПараметрОповещения.Вставить("СверхЗаказа",          Истина);
            
            Оповестить("РедактироватьНабор", ПараметрОповещения, ЭтаФорма);
            
        КонецЕсли;
        
    ИначеЕсли Поле = Элементы.ТоварыНоменклатураНабора Тогда
        
        ОткрытьЗначение(Элементы.Товары.ТекущиеДанные.НоменклатураНабора);
        
    КонецЕсли;
    
КонецПроцедуры

Показать

как сделать так в подборе?

8. seregapplk 11.08.21 15:57 Сейчас в теме

чтото глюкнуло, перед этим пост не в тему

9. seregapplk 12.08.21 14:48 Сейчас в теме

Элементы.Цена.ТолькоПросмотр = ЗначениеЗаполнено(ВидЦены);
  //Элементы.Цена.ПропускатьПриВводе = ЗначениеЗаполнено(ВидЦены);

И создать

&НаКлиенте
Процедура ЦенаПриИзменении(Элемент)
  

  ВидЦены = Неопределено;
  
КонецПроцедуры

В форме по поле ввода "цена"

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

E-mail: