Обновление подвала в РТУ

[EritikWoW]

Бухгалтерия для украины 8.2
Помогите плз не обновляеться подвал при таком коде в РТУ

Скидка по контрагентам

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


Справочник.Контрагенты
новый реквезит «СкидкаПоКонтрагенту»
Тип – Строка       Длина – 4
ФормаЭлемента – Новое поле ввода «Скидка»
Процедура ПриОткрытии()
Если НЕ РольДоступна("Просмотр")
Тогда ЭлементыФормы.Скидка.РедактированиеТекста = ТолькоПросмотр=Истина
КонецЕсли;
Документы.РеализацияТоваровУслуг
Новый реквизит «Скидка»
Тип – Строка       Длина – 4
ТабличныеЧасти.Товары  реквезит «СуммаСкидки»
Тип – Число       Длина – 6 Точность - 2
ФормаДокумента – Новое поле ввода данные -«Скидка»
Процедура ПриОткрытии()

Скидка = Контрагент.СкидкаПоКонтрагенту;
Процедура ОбновлениеОтображения()
Тогда Скидка = Контрагент.СкидкаПоКонтрагенту;
Процедура КонтрагентПриИзменении(Элемент)
ЭлементыФормы.Товары.ТекущиеДанные.СуммаСкидки =(ЭлементыФормы.Товары.ТекущиеДанные.СуммаБезСкидки/100)*Скидка;

Процедура ТоварыПриНачалеРедактирования(Элемент, НоваяСтрока)

ЭлементыФормы.Товары.ТекущиеДанные.СуммаСкидки =(ЭлементыФормы.Товары.ТекущиеДанные.СуммаБезСкидки/100)*Скидка;

ЭлементыФормы.Товары.ТекущиеДанные.Сумма =(ЭлементыФормы.Товары.ТекущиеДанные.СуммаБезСкидки-ЭлементыФормы.Товары.ТекущиеДанные.СуммаСкидки);
Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

ЭлементыФормы.Товары.ТекущиеДанные.СуммаСкидки =(ЭлементыФормы.Товары.ТекущиеДанные.СуммаБезСкидки/100)*Скидка;
ЭлементыФормы.Товары.ТекущиеДанные.Сумма =(ЭлементыФормы.Товары.ТекущиеДанные.СуммаБезСкидки-ЭлементыФормы.Товары.ТекущиеДанные.СуммаСкидки);

Процедура ТоварыНоменклатураПриИзменении(Элемент)
ЭлементыФормы.Товары.ТекущаяСтрока.СуммаСкидки =(ЭлементыФормы.Товары.ТекущиеДанные.СуммаБезСкидки/100)*Скидка;

ЭлементыФормы.Товары.ТекущиеДанные.Сумма =(ЭлементыФормы.Товары.ТекущиеДанные.СуммаБезСкидки-ЭлементыФормы.Товары.ТекущиеДанные.СуммаСкидки);
Процедура ТоварыЦенаПриИзменении(Элемент)

Если ЭлементыФормы.Товары.ТекущиеДанные.Цена >=0
Тогда ЭлементыФормы.Товары.ТекущиеДанные.СуммаСкидки =(ЭлементыФормы.Товары.ТекущиеДанные.СуммаБезСкидки/100)*Скидка;
КонецЕсли;

Если ЭлементыФормы.Товары.ТекущиеДанные.Цена >=0
Тогда ЭлементыФормы.Товары.ТекущиеДанные.СуммаБезСкидки= (ЭлементыФормы.Товары.ТекущиеДанные.Количество * ЭлементыФормы.Товары.ТекущиеДанные.Цена)
КонецЕсли;


УБРАТЬ

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


Процедура ТоварыСкидкаПриИзменении(Элемент)

// Выполнить общие действия для всех документов при изменении Суммы.
ОбработкаТабличныхЧастей.ПриИзмененииСкидкиТабЧасти(ЭлементыФормы.Товары.ТекущиеДанные, ЭтотОбъект);
// Рассчитать реквизиты табличной части.
ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(ЭлементыФормы.Товары.ТекущиеДанные, ЭтотОбъект);
КонецПроцедуры
Процедура ТоварыСуммаСкидкиНачалоВыбора(Элемент, СтандартнаяОбработка)

ЭлементыФормы.Товары.ТекущиеДанные.СуммаСкидки = (ЭлементыФормы.Товары.СуммаБезскидки/100)*Скидка
КонецПроцедуры 


ПРИСВОЕНИЕ МЕНЕДЖЕРА КОНТРАГЕНТУ

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


Справочник.Контрагенты
новый реквезит «Менеджер»
Тип – СправочникСсылка.СотрудникиОрганизаций
ФормаЭлемента – Новое поле ввода «Менеджер»
Процедура ПриОткрытии()
Если НЕ РольДоступна("Просмотр")
Тогда ЭлементыФормы.Менеджер.ТолькоПросмотр = ИСТИНА
КонецЕсли;

Документы.РеализацияТоваровУслуг
Форма Документа
Новый реквизит «Менеджер»
Тип – Строка      Неограниченная длина

Процедура ПриОткрытии()

Менеджер = Контрагент.Менеджер;
Процедура ОбновлениеОтображения()

Менеджер = Контрагент.Менеджер;
Форма Списка
Новая Колонка «Менеджер»
Данные – Менеджер       Элемент Управления – Поле ввода
События ПриИзминении
Процедура ДокументСписокМенеджерПриИзменении(Элемент)
ЭлементыФормы.ДокументСписок.ОбновитьСтроки();
КонецПроцедуры
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
Менеджер = Метаданные.Документы.РеализацияТоваровУслуг.Реквизиты.Менеджер.ЗначениеЗаполнения;