7.7 Отчет по неактивным клиентам

Доброго дня, нужна помощь. Необходимо создать отчет в 7.7 (самописная) по неактивным клиентам(которые не обслуживались в салоне более 13 месяцев). Как лучше это сделать?

Я хотел, сформировать данные по клиентам из документов Заказ-наряд за весь период в Запрос , затем данные по клиентам за последние 13 месяцев сформировать в другой Запрос. Выгрузить Запросы в Таблицы Значений, затем сравнить ТабЗнач1 и ТабначЗ2 по значению Клиент, и вывести тех клиентов, которых нет в ТабЗнач2. Не получается, на этапе выгрузки запроса в Таблицу Значений.

Как выгрузить запрос, в Таблицу Значений:

Код:

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

пробую через

Код:

Запрос.Выгрузить(ТЗ1,1);

не получается

А так?
Результат = Запрос.Выполнить();
ТЗ1 = Результат.Выгрузить();

PS Ой! Это для 8-ки. Совсем голова к вечеру не соображает.

--- Объединение сообщений, 2 фев 2017 ---

А таблица объявлена у Вас?
Типа ТЗ1 = СоздатьОбъект("ТаблицаЗначений");

И просто циклом по группировкам есть данные?

Запрос проверил данные выводятся: (http://pixs.ru/showimage/TZ1Klienti_7914148_25013347.jpg)
Мой код до следующего Запроса.

Код:

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

Ещё смотрю отладчиком чему равно ТЗ1 - пусто

я ожидал увидеть, данные из запроса.

У меня файловая 7.7
Сделал:
Запрос.Выгрузить(ТЗ1);
Вот, что в отладчике
http://pixs.ru/showimage/TZ1Klienti_5947077_25013645.jpg
Запрос данные выводит: http://pixs.ru/showimage/TZ1Klienti_7914148_25013347.jpg

Количество строк = 20307
Ну там есть дубли. В общем я так понял, что
ТЗ1 = СоздатьОбъект("ТаблицаЗначений");
Запрос.Выгрузить(ТЗ1);
- работает.
Теперь мне бы понять, как сравнить две Таблицы Значений и вывести клиентов, которых нет в ТЗ2 (здесь клиенты за последние 13 месяцев).

У меня есть две Таблицы значений ТЗ1 и ТЗ2, в которые выгрузил данные с отчетов. В ТЗ1 - все клиенты, по которым были движения, в ТЗ2 - клиенты, по которым были движения за последние 13 месяцев.
Не могу сообразить, как программно: взять строку из ТЗ1 проверить есть ли такая в ТЗ2, если да - то удалить строку.

Используйте НайтиЗначение(<Знач>,<Строка>,<Колонка>)
В цикле по первой таблице ищите такие же значения во второй и удаляйте ненужное.

Подскажите, в НайтиЗначение <Знач> - что указывать?

Знач - Значение для поиска, я не могу сообразить, если у меня каждый раз новое значение, мне нужно указать, то значение, которое есть в первой и нужно найти во второй таблице.
Вот мой код:

Код:

номстр = 0;
    ТЗ1.ВыбратьСтроки();
    Пока ТЗ1.ПолучитьСтроку()=1 Цикл
        ~начало:
        Если ТЗ2.НайтиЗначение(<Что здесь указать?> номстр, "Клиент") = 1 Тогда
            ТЗ1.УдалитьСтроку();
                Если ТЗ1.НомерСтроки<>0 Тогда
                Перейти ~начало;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

Подскажите, по какой причине может выводится пустые строки в результате, то есть куча пустых строк, но при это если проверить оператором ТЗ.ВыбратьСтроку(); То на экране вижу таблицу с заполненными Клиент и Наряд Заказ, и так для обеих ТЗ:


Финальный результат, множество пустых строк:

Думаю, что проблема в моей таблице, в которую я вывожу результаты:

Подскажите, пожалуйста, что может быть?

Код:

Процедура Сформировать()
    Перем Запрос1, ТекстЗапроса, ТЗ1, Запрос2, ТЗ2, ДатаПосещения;
  
    ДатаПосещения  = ДобавитьМесяц(ТекущаяДата(),(-1)*(1*12+1));
    //Создание объекта типа Запрос

    Запрос1 = СоздатьОбъект("Запрос");

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