Как создать поле итоги для имеющейся колонки таблицы?

[randycouture]

Здравствуйте!

Я с 1с на Вы, поэтому обращаюсь к Вам в решении, по моему, легкой задачи. Нужно написать сумму значений колонки "Объем" в ячейку внизу таблицы. 3.jpg
Это то, что я начиркал сам, но в результате в Предприятии ничего нет. В модуле не смог разобраться, куда что писать.

Буду благодарен, за любую подсказку или решение!

[chudyr]

Задайте переменную перед печатью табличной части и заполняете ее
Перем СуммаОб;
СуммаОб=0;

Далее при печати табличной части
Пока ПолучитьСтроку()=1 цикл
ВывестиСтроку.....
СуммаОб=СуммаОб+<кол-во объема в тек.строчке>
КонецЦикла
Далее в строке итогов выводите "СуммаОБ" в нужном формате

[randycouture]

Я не понял
Простите за наглость, но не могли бы вы вписать этот маленький кусочек кода в мой модуль?1.txt
Спасибо

[chudyr]

Процедура Печать(СразуНаПринтер = 0,КолЭкз = 1)

//*****************************************
// вот сюда вставляем и определяем числовую переменную
Перем СуммаОБ;
СуммаОБ=0;
//*****************************************
//проверим полномочия печати непроведенных документов
Если Проведен() = 0 Тогда
Если глПривилегииПользователя(" РазрешитьПечатьНепроведен ныхДокументов") = 0 Тогда
Предупреждение("Недостаточ но полномочий для печати непроведенного документа!", 60);
Возврат;
КонецЕсли;
КонецЕсли;

Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Табли� �а");
Таб.ВывестиСекцию("Шапка|Об щая");
Если ПустоеЗначение(Скидка) = 0 Тогда
Таб.ПрисоединитьСекцию("Ша� �ка|Скидка");
КонецЕсли;

ИтогоБезСкидки = 0;

ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Таб.ВывестиСекцию("Строка|О бщая");
Если ПустоеЗначение(Скидка) = 0 Тогда
Таб.ПрисоединитьСекцию("Ст� �ока|Скидка");
КонецЕсли;
//*****************************************
// вот сюда вставляете
СуммаОБ=СуммаОБ+<идентифик� �тор реквизита, который описывает объем>
//************************************************** *****
ИтогоБезСкидки = ИтогоБезСкидки+Количество* Цена;
КонецЦикла;

Таб.ВывестиСекцию("Итоги|Об щая");
// ********************************
// В Секции "Итоги" у Вас должна быть ячейка , реквизит которой определен как выражение "СуммаОБ"
//************************************************** *****
Если ПустоеЗначение(Скидка) = 0 Тогда
Таб.ПрисоединитьСекцию("Ит� �ги|Скидка");
КонецЕсли;