Поиск положительных чисел

[bossko 844]

Есть документ с табличной частью которая является месяцем, как найти все положительные числа и сложить их в общее

[LexaK]

в конфигураторе, в конструкторе формы, сделайте команду Пересчитать()
мышкой вытащите ее на форму
назначьте ей обработчик

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


&НаКлиенте
Процедура Пересчитать(Команда)
Для каждого лкСтр Из Объект.ВашаТЧ Цикл
лкСтр.СуммаПлюс = 0; //колонки с итогам, Задать свои имена колонок
лкСтр.СуммаМинус = 0;
Для День=1 По 31 Цикл
Попытка
лкЗначение = лкСтр["КолонкаДень" + День];//задать свое имя короно по дням! вместо КолонкаДень
Исключение
Продолжить
КонецПопытки;
Если лкЗначение > 0 Тогда
лкСтр.СуммаПлюс = лкСтр.СуммаПлюс + лкЗначение;
Иначе
лкСтр.СуммаМинус = лкСтр.СуммаМинус + лкЗначение;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедуры

возможны другие варианты