Запросы 7.7

[undercover]

Есть  следующий код:

Код: (1C v8)

Процедура Сформировать()
    тз = создатьОбъект("ТаблицаЗначений");
        тз.НоваяКолонка("НомерДок");
        тз.НоваяКолонка("ДатаДок");
        тз.НоваяКолонка("Контрагент");
        тз.НоваяКолонка("Сумма");
        тз.НоваяКолонка("Итог");
        тз.НоваяКолонка("НеОпл");
        тз.НоваяКолонка("Админ");
        тз.НоваяКолонка("Сотрудник");
        тз.НоваяКолонка("Цех");
        тз.НоваяКолонка("Услуга");
        Если Долги = 1 Тогда
        Запрос = создатьОбъект("Запрос");
        ТекстЗапроса = "
        |Период С НачДата По КонДата;
        |ОбрабатыватьДокументы Проведенные;
        |Док = Документ.ЧекККМ.ТекущийДокумент;
        |Контрагент = Документ.ЧекККМ.Контрагент;
        |НомерДок = Документ.ЧекККМ.НомерДок;
        |ДатаДок = Документ.ЧекККМ.ДатаДок;
        |Сумма = Документ.ЧекККМ.Сумма;
        |НеОпл = Документ.ЧекККМ.НеОплачен;
        |Группировка НомерДок;
        |Условие (Контрагент в ВыбКонтрагенты);
        |";
    Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
                Возврат;
        КонецЕсли;

        Пока Запрос.Группировка(1)=1 Цикл
                Док = Запрос.Док;
            тз.НоваяСтрока();
                тз.ДатаДок = Запрос.ДатаДок;
                тз.НомерДок = Запрос.НомерДок;
                тз.Контрагент = Запрос.Контрагент;
                тз.НеОпл = Запрос.НеОпл;
            тз.Сумма = Запрос.Док.Итог("Сумма");
        КонецЦикла;

       
        Таб = создатьОбъект("Таблица");
        Таб.ИсходнаяТаблица("Долги");
        Таб.ВывестиСекцию("Шапка");
        тз.ВыбратьСтроки();
        НомПП = 0;
        Пока тз.ПолучитьСтроку()=1 Цикл
        НомПП = НомПП + 1;
                Если ТЗ.НеОпл = 1 Тогда
                Таб.ВывестиСекцию("Строка");
            Иначе
                Продолжить;
            КонецЕсли
    КонецЦикла;
        Таб.Опции(0);
        Таб.Показать();
Иначе //Выводим отчет по доходам
        ЗапросДоходы = создатьОбъект("Запрос");
        ТекстЗапроса = "
        |Период С НачДата По КонДата;
        |ОбрабатыватьДокументы Проведенные;
        |Док = Документ.ЧекККМ.ТекущийДокумент;
        |Контрагент = Документ.ЧекККМ.Контрагент;
        |НомерДок = Документ.ЧекККМ.НомерДок;
        |ДатаДок = Документ.ЧекККМ.ДатаДок;
        |Сумма = Документ.ЧекККМ.Сумма;
        |НеОпл = Документ.ЧекККМ.НеОплачен;
        |Услуга = Документ.ЧекККМ.Номенклатура;
        |Цех = Документ.ЧекККМ.Цех;
        |Сотрудник = Документ.ЧекККМ.Исполнитель;
        |Админ = Документ.ЧекККМ.Администратор;
        |Группировка НомерДок;
        //|Группировка Услуга;
        //|Группировка Сумма;
        //|Группировка Контрагент;
        |Условие (Контрагент в ВыбКонтрагенты);
        |Условие (Услуга в ВыбУслуга);
        |Условие (Цех в ВыбЦех);
        |Условие (Сотрудник в ВыбСотрудник);
        |Условие (Админ в ВыбАдмин);
        |";
    Если ЗапросДоходы.Выполнить(ТекстЗапроса)=0 Тогда
                Возврат;
        КонецЕсли;
   
        Пока ЗапросДоходы.Группировка(1)=1 Цикл
                Док = ЗапросДоходы.Док;
            тз.НоваяСтрока();
                тз.ДатаДок = ЗапросДоходы.ДатаДок;
                тз.НомерДок = ЗапросДоходы.НомерДок;
                тз.Контрагент = ЗапросДоходы.Контрагент;
                тз.НеОпл = ЗапросДоходы.НеОпл;
            тз.Сумма = ЗапросДоходы.Сумма;
                тз.Админ = ЗапросДоходы.Админ;
            тз.Цех = ЗапросДоходы.Цех;
                тз.Сотрудник = ЗапросДоходы.Сотрудник;
                тз.Услуга = ЗапросДоходы.Услуга;
            Если тз.НеОпл = 0 Тогда
                Итог = тз.Итог("Сумма");
            Иначе
                Продолжить;
                КонецЕсли;
        КонецЦикла;
   
        Таб1 = СоздатьОбъект("Таблица");
        Таб1.ИсходнаяТаблица("Доходы");
        Таб1.ВывестиСекцию("Шапка");
       
        тз.ВыбратьСтроки();
        НомПП = 0;
        Пока тз.ПолучитьСтроку()=1 Цикл

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

Задача - вывести в отчет все строки документа ЧекККМ

[RXL]

Задача кому?

[undercover]

Задача кому?

Мне, второй день голову ломаю....

[RXL]

undercover, как новичку поясняю: повелительное наклонение при общении с незнакомыми людьми неприлично, особенно если тебе что-то он них нужно. Это на будущее.

[undercover]

undercover, как новичку поясняю: повелительное наклонение при общении с незнакомыми людьми неприлично, особенно если тебе что-то он них нужно. Это на будущее.

Извиняюсь, просто не правильно сформулировал.

[Sla]

undercover, так сформулируй понятней...
Поверь, здесь есть люди, которые  могут и смогут подсказать, но включать свои экстрасенсорные способности включать не хотят.

[undercover]

undercover, так сформулируй понятней...
Поверь, здесь есть люди, которые  могут и смогут подсказать, но включать свои экстрасенсорные способности включать не хотят.

Запрос должен выбирать все строки из документов ЧекККМ за выбранный интервал времени. При выводе таблицы отображаются не все строки а только последняя строка из каждого документа.

[Radistka]

очень неудобно читать код, оберни его в теги [ code=e1cv8 ]  [ / code ] хотя бы..

а вообще я помню что было чтото вроде:

Код: (1C v8)

//Создание объекта типа Запрос
 Запрос = СоздатьОбъект("Запрос");
 ТекстЗапроса =
 "//{{ЗАПРОС(Сформировать)
 |Период с ВыбНачПериода по ВыбКонПериода;
 |ОбрабатыватьДокументы Проведенные;
 |ПоступлениеМатериалов = Документ.ПоступлениеМатериалов.ТекущийДокумент;
 |Группировка Документ;
 |Группировка СтрокаДокумента;
 |"//}}ЗАПРОС
 ;

[Kivals]

Radistka, +1

Только "Группировка НомерСтроки":

Код: (1C v8)

ТекстЗапроса =
 "//{{ЗАПРОС(Сформировать)
 |Период с ВыбНачПериода по ВыбКонПериода;
 |ОбрабатыватьДокументы Проведенные;
 |ТекущийДокумент = Документ.ПоступлениеМатериалов.ТекущийДокумент;
 |НомерСтроки = Документ.ПоступлениеМатериалов.НомерСтроки;
...
 |Группировка ТекущийДокумент;
 |Группировка НомерСтроки;
 |"//}}ЗАПРОС
 ;

[Radistka]

"Документ" и "СтрокаДокумента" - предопределённые группировки, так что тоже должны рабить.

[Kivals]

Radistka, возможно. Никогда не пользовался такой возможностью, предпочитаю указывать явно...