v7: Учёт оплаты по дням

|ДокументОплата = Документ.ГрафикОплаты.ТекущийДокумент;
|%ВЫБОРДНЕЙ%
|Место = Документ.ГрафикОплаты.Место;

ВыборДней = ""; Для ы=1 по 31 Цикл ВыборДней = ВыборДней+"д"+ы+";" КонецЦикла;
ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"%ВЫБОРДНЕЙ%",ВыборДней);

"как дети, чесслово"

(26) тьфу, блин, надеюсь принцип понял
ВыборДней = ""; Для ы=1 по 31 Цикл ВыборДней = ВыборДней+"д"+ы+"= Документ.ГрфикОплаты.д"+ы+";" КонецЦикла;
ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"%ВЫБОРДНЕЙ%",ВыборДней);

Функция ПроверитьДоговор(Договор)
    ДолгиЗа = "";
    Оплата = СоздатьОбъект("Документ.ГрафикОплаты");
    Оплата.ВыбратьДокументы(НачМесяца(Договор.СрокС),КонМесяца(Договор.СрокПо));
    Пока Оплата.ПолучитьДокумент() = 1 Цикл//по документам Оплата


        Оплата_ПериодПо = КонМесяца(Оплата.Период);
        Если Оплата.Сектор <> Договор.Место.Родитель Тогда Продолжить; КонецЕсли;
        Если Договор.СрокС > Оплата_ПериодПо Тогда Продолжить; КонецЕсли;
        Если Договор.СрокПо < Оплата.Период Тогда Продолжить; КонецЕсли;

        Оплата.ВыбратьСтроки();
        Пока Оплата.ПолучитьСтроку() = 1 Цикл// Тогда Продолжить; КонецЕсли;

            Если Оплата.Место <> Договор.Место Тогда Продолжить; КонецЕсли;

            //проверить дни

            НачальноеЧисло = ДатаЧисло(?(Оплата.Период<Договор.СрокС, Договор.СрокС, Оплата.Период));
            КонечноеЧисло  = ДатаЧисло(?(Оплата_ПериодПо>Договор.СрокПо, Договор.СрокПо, Оплата_ПериодПо));
            //Сообщить(Строка(НачальноеЧисло)+"-"+Строка(КонечноеЧисло));


            Для День = НачальноеЧисло По КонечноеЧисло Цикл//по столбцам

                Пометка = Оплата.ПолучитьАтрибут("Д"+строка(День));
                Если Пометка <> "Н" Тогда Продолжить; КонецЕсли;
                ДолгиЗа = ДолгиЗа + Формат(Оплата.Период,"ДММММГГГГ")+" ";
                Прервать;//дальше пометки не нужны

            КонецЦикла;// по дням


            Прервать;// другие места не нужны

        КонецЦикла;// по строкам Оплаты 

    КонецЦикла;// по документам Оплата


    Возврат(ДолгиЗа)
КонецФункции

"отдельно вытянуть строку , в которой в колонках стоит "Н" не получится"
- читать как "отдельно вытянуть колонки, в которых стоит "Н"

В запросе будет такой текст (код с циклом выше)
Н = "Н";
...
|д1 = Документ.ГрафикОплаты.д1;
|д2 = Документ.ГрафикОплаты.д2;
..
|д31 = Документ.ГрафикОплаты.д31;
|Условие((д1=Н)ИЛИ(Д2=Н)...ИЛИ(Д31=Н));

1) регистры, бухитоги и  расчеты в твоём случае вряд ли нужны
2) строки НачальноеЧисло=ДатаЧисло(?(Оплата.Период<Договор.СрокС, Договор.СрокС, Оплата.Период)); и КонечноеЧисло =ДатаЧисло(?(Оплата_ПериодПо>Договор.СрокПо, Договор.СрокПо, Оплата_ПериодПо)); должны стоять перед ВыбратьСтроки() - чуть быстрее будет;

ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
ПервыйНеоплаченныйДень=0;
Для День = 1 По 31 Цикл
Если Оплата.ПолучитьАтрибут("Д"+День) Тогда
ПервыйНеоплаченныйДень=День 
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;

5) Вместо совета (4) - Создай в договоре периодический реквизит "ДоговорНеОплачен" - с запретом изменять руками, только документом, "Число 1.0". При проведении документа пиши туда через УстановитьРеквизитСправочника 1 если есть ПервыйНеоплаченныйДень. Тогда для анализа договора тебе будет достаточно 
П=СоздатьОбъект("Периодический")//если  будешь делать цикл по договорам - эту строку надо вынести из цикла, бо создание объекта "Периодический" - процесс относительно долгий

П.ИСпользоватьОбъект(Договор,"ДоговорНеОплачен");
ДолгиЗа="";
П.ВыбратьЗначения();
Пока П.ПолучитьЗначение()=1 Цикл
 ДолгиЗа=ДолгиЗа+Формат(П.ТекущийДокумент().Оплата.Период,"ДММММГГГГ")+" ";
КонецЦикла;


Или просто в списке договоров по F5 пользователь увидит список неоплаченных графиков