Не пересчитывается сумма в документе "Акт выполненных работ"

[Yurdmis]

Здравствуйте! Надеюсь кто-нибудь сможет помочь, или направить в нужную сторону...

1С 8.3, УТ 11. Нужно что-бы автоматически, программно, создавался документ - Акт выполненных работ.
Сделал, создаётся. Но возникает проблемка - сумма справа внизу при таком способе создания документа почему-то не пересчитывается.

При этом стоит только поменять что-то в документе опять вручную, как сразу же всё пересчитывается нормально. Уже голову сломал, не могу понять где что искать

Заранее спасибо!

[LexaK]

там где создаете документ вставьте примерно такие строки, (посмотрите в своем конфигураторе)

   СуммаДокумента = ЦенообразованиеКлиентСервер.ПолучитьСуммуДокумента(Услуги, ЦенаВключаетНДС);
   ЗаполнитьСуммуВзаиморасчетов();
   Ценообразование.РассчитатьСуммыВзаиморасчетовВТабличнойЧасти(ЭтотОбъект, "Услуги");

Добавлено: 02 июн 2015, 17:44

я имел ввиду можно и самому расчитать и заполнить реквизиты документа, такие как
СуммаДокумента,
СуммаВзаиморасчетов,
и другие нужные

Услуги.Итог...

при изменении формы отрабатывает эта функция

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


Процедура РассчитатьИтоговыеПоказателиАктовВыполненныхРабот(Форма)

СуммаВсего = Форма.Объект.Услуги.Итог("Сумма");
Форма.СуммаАвтоСкидки   = Форма.Объект.Услуги.Итог("СуммаАвтоматическойСкидки");
Форма.СуммаРучнойСкидки = Форма.Объект.Услуги.Итог("СуммаРучнойСкидки");
Форма.СуммаСкидки       = Форма.СуммаАвтоСкидки + Форма.СуммаРучнойСкидки;

Если СуммаВсего > 0 Тогда

Форма.ПроцентАвтоСкидки   = Форма.СуммаАвтоСкидки * 100 / (СуммаВсего + Форма.СуммаСкидки);
Форма.ПроцентРучнойСкидки = Форма.СуммаРучнойСкидки * 100 / (СуммаВсего + Форма.СуммаСкидки);
Форма.ПроцентСкидки       = Форма.ПроцентАвтоСкидки + Форма.ПроцентРучнойСкидки;

ИначеЕсли Форма.СуммаСкидки > 0 Тогда

Форма.ПроцентАвтоСкидки   = Форма.СуммаАвтоСкидки * 100 / Форма.СуммаСкидки;
Форма.ПроцентРучнойСкидки = Форма.СуммаРучнойСкидки * 100 / Форма.СуммаСкидки;
Форма.ПроцентСкидки       = Форма.ПроцентАвтоСкидки + Форма.ПроцентРучнойСкидки;

Иначе

Форма.ПроцентАвтоСкидки   = 0;
Форма.ПроцентРучнойСкидки = 0;
Форма.ПроцентСкидки       = 0;

КонецЕсли;

Форма.СуммаВсего = Форма.Объект.Услуги.Итог("СуммаСНДС");

Если Форма.Объект.НалогообложениеНДС = ПредопределенноеЗначение("Перечисление.ТипыНалогообложенияНДС.ПродажаНеОблагаетсяНДС") Тогда
Форма.Элементы.ГруппаСтраницыНДС.ТекущаяСтраница   = Форма.Элементы.СтраницаБезНДС;
Форма.Элементы.ГруппаСтраницыВсего.ТекущаяСтраница = Форма.Элементы.СтраницаВсегоБезНДС;
Иначе
Форма.Элементы.ГруппаСтраницыНДС.ТекущаяСтраница   = Форма.Элементы.СтраницаСНДС;
Форма.Элементы.ГруппаСтраницыВсего.ТекущаяСтраница = Форма.Элементы.СтраницаВсегоСНДС;
КонецЕсли;

КонецПроцедуры // РассчитатьИтоговыеПоказателиАктовВыполненныхРабот()


[Yurdmis]

Спасибо за ответ!
Но, к сожалению, не помогло.
Сделал как вы написали, но ничего так и не изменилось...

[Golickoff]

Открой форму в конфигураторе, посмотри как называется реквизит с суммой. После этого открой модуль формы и поищи этот реквизит в нём. Скорее всего, он будет в какой-нибудь процедуре типа ПриИзменении, или ПередЗаписью. Если нашёл -- перепиши код расчёта суммы в процедуру формирования этого документа. Если не нашёл, тогда ищи в модуле документа, а не формы.

[Yurdmis]

Открой форму в конфигураторе, посмотри как называется реквизит с суммой. После этого открой модуль формы и поищи этот реквизит в нём. Скорее всего, он будет в какой-нибудь процедуре типа ПриИзменении, или ПередЗаписью. Если нашёл -- перепиши код расчёта суммы в процедуру формирования этого документа. Если не нашёл, тогда ищи в модуле документа, а не формы.

Это понятно. Проблема как раз и заключается в том, что ничего подходящего найти не получается, в том числе и там.

Добавлено: 04 июн 2015, 05:52

Разобрался, всем спасибо