Автоматический расчет суммы, на форме документа

[Dmitrius]

Добрый день.
Знаю, что такая тема уже была, и из той темы я адаптировал код под свои нужды, но почему-то не работает
Задача - чтоб ЦенаПродажная менялась при изменении ПроцентаНаценки или ЦеныЗакупочной

Код Выделить Развернуть


&НаКлиенте
Процедура РасчетЦеныПродажной()
   Объект.ЦенаПродажная = (Объект.ЦенаЗакупочная * Объект.ПроцентНаценки) / 100;
КонецПроцедуры

&НаКлиенте
Процедура ЦенаЗакупочнаяПриИзменении(Элемент)
    РасчетЦеныПродажной();
КонецПроцедуры

&НаКлиенте
Процедура ПроцентНаценкиПриИзменении(Элемент)
    РасчетЦеныПродажной();
КонецПроцедуры


Пишет следующее...

{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(3,4)}: Переменная не определена (Объект)
   <<?>>Объект.ЦенаПродажная = (Объект.ЦенаЗакупочная * Объект.ПроцентНаценки) / 100;
{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(3,28)}: Переменная не определена (Объект)
   Объект.ЦенаПродажная = (<<?>>Объект.ЦенаЗакупочная * Объект.ПроцентНаценки) / 100;
{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(3,52)}: Переменная не определена (Объект)
   Объект.ЦенаПродажная = (Объект.ЦенаЗакупочная * <<?>>Объект.ПроцентНаценки) / 100;

Первый раз на форуме, извините если что-то неправильно оформил...

[cast]

Вместо Объект напиши элемент

[Dmitrius]

Вместо Объект напиши элемент

Пишет те же ошибки, но уже про Элемент

[cast]

&НаКлиенте
Процедура РасчетЦеныПродажной()
    Стр = Элементы.(ИмяТабличнойЧасти).ТекущиеДанные;
  Стр.ЦенаПродажная = (Стр.ЦенаЗакупочная * Стр.ПроцентНаценки) / 100;
КонецПроцедуры

Сделай так

[Dmitrius]

&НаКлиенте
Процедура РасчетЦеныПродажной()
    Стр = Элементы.(ИмяТабличнойЧасти).ТекущиеДанные;
  Стр.ЦенаПродажная = (Стр.ЦенаЗакупочная * Стр.ПроцентНаценки) / 100;
КонецПроцедуры

Сделай так

Табличная часть не используется.
Это простое окошко где надо вводить закупочную цену с % наценки и автоматически получать продажную цену
ЦенаПродажная сделал только для чтения и убрал возможность редактирования из формы

[cast]

Ну незнай проверь всё. Твой код работает.

[Dmitrius]

Ну незнай проверь всё. Твой код работает.

Ок, спасибо.
А можешь описать как правильно привязать этот код к полю? Может в этом я ошибся...

Добавлено: 31 окт 2016, 01:38

Не выдаются ошибки только в таком коде...

Код Выделить Развернуть


&НаКлиенте
Процедура РасчетЦеныПродажной(Форма)
   Форма.ЦенаПродажная = (Форма.ЦенаЗакупочная * Форма.ПроцентНаценки) / 100;
КонецПроцедуры

&НаКлиенте
Процедура ЦенаЗакупочнаяПриИзменении(Элемент)
    Элемент.РасчетЦеныПродажной();
КонецПроцедуры

&НаКлиенте
Процедура ПроцентНаценкиПриИзменении(Элемент)
    Элемент.РасчетЦеныПродажной();
КонецПроцедуры


Но при изменении % наценки или закупочной цены - цена продажная остаётся 0

[cast]

Открываешь форму документа. Своиства ЦенаЗакупочная приИзмененинии аналогично процентНаценки. И вставляешь свой код.

[Dmitrius]

Открываешь форму документа. Своиства ЦенаЗакупочная приИзмененинии аналогично процентНаценки. И вставляешь свой код.

Спасибо)) Но всё заработало только со следующим кодом... И дело было даже не в ошибке формулы.

Код Выделить Развернуть


&НаКлиенте
Процедура РассчитатьЦенуПродажную()
   ЦенаПродажная = ЦенаЗакупочная * (1 + ПроцентНаценки / 100);
КонецПроцедуры

&НаКлиенте
Процедура ЦенаЗакупочнаяПриИзменении(Элемент)
    РассчитатьЦенуПродажную();
КонецПроцедуры

&НаКлиенте
Процедура ПроцентНаценкиПриИзменении(Элемент)
    РассчитатьЦенуПродажную();
КонецПроцедуры


[cska-fanat-kz]

ЦенаПродажная = ЦенаЗакупочная * (1 + ПроцентНаценки / 100);

если у вас все реквизиты - реквизиты формы, то сработает, а если это реквизиты объекта, а тем более реквизиты ТЧ - НЕ сработает.