Имя: Пароль:
1C
1С v8
Итог по колонке не числовой в таб. поле
0 lirt82
 
15.08.17
08:01
В документе есть Табличное поле "Табель" состоит из колонок НомерСтроки, Сотрудник тип Справочник.Сотрудники и 31 колонки "День" тип Справочник.Магазины, бухша заполняет строки Иванов 1 числа работал на Магазине "Центральный", и хочет видеть итог по колонке День, т.е. сколько заполнено магазинов в колонке День, так как тип значения в колонке День не число а справочник, поэтому галка ОтображатьИтогиВПодвале недоступна, но сам подвал у таб.поля отображается, как посчитать количество в колонке День и вывести итог в подвал этой колонки?
1 Имитация работы
 
15.08.17
08:02
Ручками. При открытии и при изменении.
2 1dvd
 
15.08.17
08:05
вроде, есть знаки препинания, но всё равно ничерта не понятно
3 lirt82
 
15.08.17
08:06
4 lirt82
 
15.08.17
08:06
кстати подскажите как в сообщение добавить снимок?
5 Рэйв
 
15.08.17
08:11
в ОбновлениеОтображения()

//--------
    СчДень1=0;
    СчДень2=0
    //...и т.д
    Для Каждого Стр из Табель Цикл
        Если ЗначениеЗаполнено(Стр.День1) Тогда
            СчДень1=СчДень1+1;    
        КонецЕсли;    
        Если ЗначениеЗаполнено(Стр.День2) Тогда
            СчДень2=СчДень2+1;    
        КонецЕсли;    
        //...и т.д
        
    КонецЦикла;    
    ЭлементыФормы.СправочникВыгрузка.Колонки.День1.ТекстПодвала=СчДень1;
    ЭлементыФормы.СправочникВыгрузка.Колонки.День2.ТекстПодвала=СчДень2;
    //...и т.д
6 Рэйв
 
15.08.17
08:12
ну и естессно надо включить подвал у таб поля.
7 Рэйв
 
15.08.17
08:13
*СправочникВыгрузка = Табель
копипастил:-)
8 Галахад
 
гуру
15.08.17
08:17
Колонки же, а не строки надо складывать.
9 lirt82
 
15.08.17
08:19
(8) точнее ячейки в колонке
10 Рэйв
 
15.08.17
08:20
(8)так и есть пробегает по строке и для каждой колонке ведет счетчик
11 Рэйв
 
15.08.17
08:21
(8)А "подвал" справа еще не придумали в 1С:-)
12 lirt82
 
15.08.17
08:22
(11) там все считает)
Процедура Проверить(Кнопка)
            
    Для каждого Стр Из Табель Цикл //получим количество отработанных дней
        ОтрДни = 0;    
        Для А = 1 по 31 Цикл
            Если Стр["Чис"+А] <> Справочники.Склады.ПустаяСсылка() Тогда
                ОтрДни = ОтрДни + 1;    
            КонецЕсли;    
        КонецЦикла;    
        Стр.ВсегоДней = ОтрДни;
Основная теорема систематики: Новые системы плодят новые проблемы.