Заполнение таблицы циклом.

Ребята помогите проблему решить, ниже приведенный код, заполняет область детальных записей. Но отображает дату одним числом, допустим если это 06.07 а в таблице 6

Макет = ПолучитьМакет("Макет");
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("КонПериода", КонПериода);
    Запрос.УстановитьПараметр("НачПериода", НачПериода);
    Запрос.УстановитьПараметр("Организация", Организация);

    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
    ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
    ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
       ТабДок=ЭлементыФормы.ПолеТабличногоДокумента1;
    ТабДок.Очистить();
        ОбластьЗаголовок.Параметры.Организация=Организация;
    ОбластьЗаголовок.Параметры.Период=ПредставлениеПериода(НачалоДня(НачПериода),КонецДня(КонПериода),"ФП = Истина");

    ТабДок.Вывести(ОбластьЗаголовок);
    ТабДок.Вывести(ОбластьШапкаТаблицы);
    ТабДок.НачатьАвтогруппировкуСтрок();

    Запрос.Текст =
        "ВЫБРАТЬ
        |    ФактическиеГрафикиСпециалистов.Период КАК День,
        |    КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ФактическиеГрафикиСпециалистов.Специалист) КАК КвоСпециалистов,
        |    ПлановыеГрафикиСпециалистов.Количество КАК КоличествоМастеровВСмену,
        |    ПлановыеГрафикиСпециалистов.Количество КАК КоличествоМастеровМаникюра
        |ИЗ
        |    РегистрСведений.ФактическиеГрафикиСпециалистов КАК ФактическиеГрафикиСпециалистов
        |        ПОЛНОЕ СОЕДИНЕНИЕ РегистрСведений.ПлановыеГрафикиСпециалистов КАК ПлановыеГрафикиСпециалистов
        |        ПО ФактическиеГрафикиСпециалистов.Организация = ПлановыеГрафикиСпециалистов.Организация
        |            И ФактическиеГрафикиСпециалистов.Должность = ПлановыеГрафикиСпециалистов.Должность
        |ГДЕ
        |    ФактическиеГрафикиСпециалистов.Период <= &КонПериода
        |    И ФактическиеГрафикиСпециалистов.Период >= &НачПериода
        |    И ФактическиеГрафикиСпециалистов.Организация = &Организация
        |    И ФактическиеГрафикиСпециалистов.Должность = &Должность
        |    И ПлановыеГрафикиСпециалистов.Период <= &КонПериода
        |    И ПлановыеГрафикиСпециалистов.Период >= &НачПериода
        |
        |СГРУППИРОВАТЬ ПО
        |    ФактическиеГрафикиСпециалистов.Период,
        |    ПлановыеГрафикиСпециалистов.Количество,
        |    ПлановыеГрафикиСпециалистов.Количество
        |
        |УПОРЯДОЧИТЬ ПО
        |    День";
        Для j=1 По 2 Цикл
            ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
            Если j=1 Тогда
                Должность=Справочники.Должности.Парикмахер;
                Запрос.УстановитьПараметр("Должность", Должность);
            Иначе
                Должность=Справочники.Должности.МастерМаникюра;
                Запрос.УстановитьПараметр("Должность", Должность);
            КонецЕсли;

            Результат = Запрос.Выполнить();

            ВыборкаДетальныеЗаписи = Результат.Выбрать();
            ОбластьДетальныхЗаписей.Параметры.План="План"+Должность;
            Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
                Ном=ДеньНедели(ВыборкаДетальныеЗаписи.День);
                Если j=1 Тогда
                    ОбластьДетальныхЗаписей.Параметры["День"+Ном]=ВыборкаДетальныеЗаписи.КоличествоМастеровВСмену;
                Иначе
                    ОбластьДетальныхЗаписей.Параметры["День"+Ном]=ВыборкаДетальныеЗаписи.КоличествоМастеровМаникюра;
                КонецЕсли;
            КонецЦикла;
            ТабДок.Вывести(ОбластьДетальныхЗаписей);
            ВыборкаДетальныеЗаписи.Сбросить();

            ВерхОбъединения=ТабДок.ВысотаТаблицы;
            Область=ТабДок.Область("R"+ВерхОбъединения+"C2:R"+ВерхОбъединения+"C23");
            Область.Шрифт=Новый Шрифт(, , Истина, , , );
            ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
            ОбластьДетальныхЗаписей.Параметры.План="Факт по датам июль"+Должность +Символы.ПС+" (дата/количество мастеров)";
            Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
                Ном=ДеньНедели(ВыборкаДетальныеЗаписи.День);
                ОбластьДетальныхЗаписей.Параметры["День"+Ном] = День(ВыборкаДетальныеЗаписи.День);
                ОбластьДетальныхЗаписей.Параметры["Кол"+Ном] = ВыборкаДетальныеЗаписи.КвоСпециалистов;
                Область=ОбластьДетальныхЗаписей.Область("R1C"+(Ном+3)+":R1C"+(Ном+3));
                Если j=1 Тогда
                Если ВыборкаДетальныеЗаписи.КвоСпециалистов<>ВыборкаДетальныеЗаписи.КоличествоМастеровВСмену Тогда
                    Область.ЦветТекста=WebЦвета.Красный;
                Иначе
                    Область.ЦветТекста=WebЦвета.Черный;
                КонецЕсли;
                Иначе
                Если ВыборкаДетальныеЗаписи.КвоСпециалистов<>ВыборкаДетальныеЗаписи.КоличествоМастеровМаникюра Тогда
                    Область.ЦветТекста=WebЦвета.Красный;
                Иначе
                    Область.ЦветТекста=WebЦвета.Черный;
                КонецЕсли;
                КонецЕсли;
                Если Ном=7 Тогда
                    ТабДок.Вывести(ОбластьДетальныхЗаписей);
                    ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
                    ОбластьДетальныхЗаписей.Параметры.План="Факт по датам"+Должность;
                КонецЕсли;
            КонецЦикла;
            ТабДок.Вывести(ОбластьДетальныхЗаписей);
            НизОбъединения=ТабДок.ВысотаТаблицы;
            Область=ТабДок.Область("R"+(ВерхОбъединения+1)+"C2:R"+НизОбъединения+"C2");
            Область.Объединить();
            ТабДок.ЗакончитьАвтогруппировкуСтрок();
        КонецЦикла;
    ТабДок.Вывести(ОбластьПодвалТаблицы);
    ТабДок.Вывести(ОбластьПодвал);