Имя: Пароль:
1C
1C 7.7
v7: Сформировать отчет отдельно, по каждому агенту
0 pavilion
 
25.05.15
14:34
Отчет формирует выбранных агентов общим списком, необходимо разделить их, так, что бы по каждому агенту формировалась новая таблица.
Процедура ОтдельноПоТА (Табл)
    Таб=СоздатьОбъект("Таблица");
    
    Табл.Сортировать("Агент1,Порядок,Наименование");
    Табл.ВыбратьСтроки();    Агент="!"; к=1;
    Пока Табл.ПолучитьСтроку() = 1 Цикл
        Если Агент<>Табл.Агент1 Тогда
            Если к=1 Тогда
                к=0;
            Иначе
                Таб.Показать("Клиенты по дням посещений", "");    
            КонецЕсли;
            //Таб=СоздатьОбъект("Таблица");
            Таб.ИсходнаяТаблица("Таблица");
            Торг=Табл.Агент1;
            Таб.ВывестиСекцию("Торговый");
            Агент=Табл.Агент1;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

и из процедуры Сформировать() обращаюсь к процедуре выше:

Если поТА = 1 Тогда
        Если МФВыбТА.РазмерСписка()>0 Тогда
            ОтдельноПоТА(Табл);    
        КонецЕсли;
КонецЕсли;
1 vladko
 
25.05.15
14:42
(0) смотря какой ты хочешь иметь результат.
пользуйся Таб.НоваяСтраница() при смене агента и только в конце таб.показать(), тогда каждый агент будет с нового листа печати и всё это будет упихано в одну таблицу.
2 pavilion
 
25.05.15
14:44
https://cloud.mail.ru/public/BE1J/uXqRaS9pV
сам отчет, может понятнее будет
3 pavilion
 
25.05.15
14:49
(1) в фильтре выбрано несколько агентов, что бы при смене агента, выводилось новая печатная форма, в данный момент, все выдается общим списком
4 НЕА123
 
25.05.15
15:03
.....
            Иначе
                Таб.Показать("Клиенты по дням посещений", "");    
    Таб=СоздатьОбъект("Таблица");
......