Я с 1с на Вы, поэтому обращаюсь к Вам в решении, по моему, легкой задачи. Нужно написать сумму значений колонки "Объем" в ячейку внизу таблицы. 1214
Это то, что я начиркал сам, но в результате в Предприятии ничего нет. В модуле не смог разобраться, куда что писать.
Буду благодарен, за любую подсказку или решение!
chudyr
04.02.2014, 11:24
Задайте переменную перед печатью табличной части и заполняете ее
Перем СуммаОб;
СуммаОб=0;
Далее при печати табличной части
Пока ПолучитьСтроку()=1 цикл
ВывестиСтроку.....
СуммаОб=СуммаОб+<кол-во объема в тек.строчке>
КонецЦикла
Далее в строке итогов выводите "СуммаОБ" в нужном формате
randycouture
05.02.2014, 08:40
Я не понял
Простите за наглость, но не могли бы вы вписать этот маленький кусочек кода в мой модуль?1216
Спасибо
chudyr
06.02.2014, 14:28
Процедура Печать(СразуНаПринтер = 0,КолЭкз = 1)
//*****************************************
// вот сюда вставляем и определяем числовую переменную
Перем СуммаОБ;
СуммаОБ=0;
//*****************************************
//проверим полномочия печати непроведенных документов
Если Проведен() = 0 Тогда
Если глПривилегииПользователя("РазрешитьПечатьНепроведен ныхДокументов") = 0 Тогда
Предупреждение("Недостаточно полномочий для печати непроведенного документа!", 60);
Возврат;
КонецЕсли;
КонецЕсли;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка|Общая");
Если ПустоеЗначение(Скидка) = 0 Тогда
Таб.ПрисоединитьСекцию("Шапка|Скидка");
КонецЕсли;
ИтогоБезСкидки = 0;
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Таб.ВывестиСекцию("Строка|Общая");
Если ПустоеЗначение(Скидка) = 0 Тогда
Таб.ПрисоединитьСекцию("Строка|Скидка");
КонецЕсли;
//*****************************************
// вот сюда вставляете
СуммаОБ=СуммаОБ+<идентификатор реквизита, который описывает объем>
//************************************************** *****
ИтогоБезСкидки = ИтогоБезСкидки+Количество* Цена;
КонецЦикла;
Таб.ВывестиСекцию("Итоги|Общая");
// ********************************
// В Секции "Итоги" у Вас должна быть ячейка , реквизит которой определен как выражение "СуммаОБ"
//************************************************** *****
Если ПустоеЗначение(Скидка) = 0 Тогда
Таб.ПрисоединитьСекцию("Итоги|Скидка");
КонецЕсли;