Подскажите как правильно составить цикл. Переношу данные по табелю сотрудников. В табеле 31 реквизит времени. Как правильно написать цикл чтобы к каждому реквизиту подставлялось +1 пока не дойдет до 31.

Переменная Часы

Для Время = Дата1 по Дата31 Цикл
Документ.Дата1 = Часы;
КонецЦикла;

Для Индекс = 1 по 31 цикл
Документ ["Дата" + Индекс] = Часы;
КонецЦикла;

для к = 1 по 31
Документ.ТЧ["Дата" + к]

Для сч=1 по 31 цикл
        текКод = сокрЛП( ПолучитьАтрибут("ЧасыКод_"+Формат(сч,"Ч(0)2.0")) );
        Если (текКод="Я") или (текКод="ЯВ")   или (текКод="8од")тогда
            Дней = Дней+1;
            Часов=Часов+ПолучитьАтрибут("ЧасыОсн_"+Формат(сч,"Ч(0)2.0"));    
            ЧасовВеч=ЧасовВеч+ПолучитьАтрибут("ЧасыВеч_"+Формат(сч,"Ч(0)2.0"));
            ЧасовНоч =ЧасовНоч+ПолучитьАтрибут("ЧасыНоч_"+Формат(сч,"Ч(0)2.0"));  
            
            Если СписПразд.НайтиЗначение(сч) <> 0 Тогда
                ЧасовПраздники= ЧасовПраздники+ ПолучитьАтрибут("ЧасыОсн_"+Формат(сч,"Ч(0)2.0"));
            КонецЕсли;        
            
        иначеЕсли ПустаяСтрока(текКод)=1 тогда
            ;
        иначеЕсли (текКод<>"В")и(текКод<>"Я")и(текКод<>"-")и(текКод<>"8од") тогда
            НеявокДни = НеявокДни+1;  
            
            Если  текКод="Б" Тогда
              ЧасовБольн=ЧасовБольн+ПолучитьАтрибут("ЧасыОсн_"+Формат(сч,"Ч(0)2.0"));
            КонецЕсли;
            
        КонецЕсли;
    КонецЦикла;