Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Копирование Таблицы значений с отбором          
kostya77 Подменю пользователя
сообщение 23.10.23, 10:51
Сообщение #1

Завсегдатай
****
Группа: Пользователи
Сообщений: 169
Спасибо сказали: 5 раз
Рейтинг: 4

Добрый день. Есть документ в которого реквизитом табличной части есть Контрагент. Подскажте. как на печать вывести данные по каждому контрагенту оттельно, тоесть если три контрагента, то три печатных формы. Пробую делать через Таблицу значений, не получаеться скопировать в разные таблицы значений с отбором.

Может это можно сделать без Таблицы значений?

Сообщение отредактировал Vofka - 23.10.23, 10:44

denis84 Подменю пользователя
сообщение 23.10.23, 11:02
Сообщение #2

Оратор
Иконка группы
Группа: Местный
Сообщений: 462
Из: Украина
Спасибо сказали: 151 раз
Рейтинг: 152.8

kostya77 @ Сегодня, 11:51 * ,
выгрузите ТЧ в таблицу значений. Потом проверяйте, если сменился контрагент и выводите на печать

kostya77 Подменю пользователя
сообщение 23.10.23, 11:04
Сообщение #3

Завсегдатай
****
Группа: Пользователи
Сообщений: 169
Спасибо сказали: 5 раз
Рейтинг: 4

denis84 @ Сегодня, 12:02 * ,
Мне нужны еще итоги по Контрагенту

volodya1122 Подменю пользователя
сообщение 23.10.23, 11:52
Сообщение #4

Оратор
Иконка группы
Группа: Местный
Сообщений: 348
Из: Тернопіль
Спасибо сказали: 139 раз
Рейтинг: 141.7

kostya77 @ Сегодня, 11:04 * ,
Не нужно в разные таблицы выгружать. Достаточно в одну ТЗ выгрузить. Отсортировать ТЗ по контрагенту. Потом обходить и когда контагент изменился выводить подвал по первой печатной форме и создавать новую печатную форму (или новую страницу в той же печатной форме). После цикла по таблице значений не забыть вывести последний подвал. Нужные итоги для подвала также сумировать до момента измененения контрагента. И потом обнулять.
Или есть хороший метод "Свернуть" для таблицы значений. Но тогда небудет детализации по строкам табличной части.

Сообщение отредактировал volodya1122 - 23.10.23, 11:54

denis84 Подменю пользователя
сообщение 23.10.23, 12:22
Сообщение #5

Оратор
Иконка группы
Группа: Местный
Сообщений: 462
Из: Украина
Спасибо сказали: 151 раз
Рейтинг: 152.8

kostya77 @ Сегодня, 11:51 * ,
типа такого кода .
выгрузите ТЧ в таблицу значений, а потом:
    ТЗ.Свернуть("Контрагент,,","");   //указываете реквизиты, которые нужны на печати
    ТЗ.Сортировать("+1");
    
    Сч         = 0;    
    Итого     = 0;
    Состояние("Заполнение выходной таблицы...");
    
    Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
    Таб.ВывестиСекцию("Шапка");
    
    ТЗ.ВыбратьСтроки();
    ТекКонтрагент     = "Начало";
    СуммаКонтрагент = 0;    
    Пока ТЗ.ПолучитьСтроку() = 1 Цикл
        Сч=Сч+1;
        
        Контрагент          = ТЗ.Контрагент;
        ..........        
        //указываете реквизиты, которые нужны на печати
        
        СуммаВсего             = ТЗ.Контрагент.Итог("Сумма");

        Если ТекКонтрагент<>ТЗ.Контрагент Тогда
            Если СуммаКонтрагент<>0 Тогда
                Таб.ВывестиСекцию("ИтогоКлиент");
            КонецЕсли;
            ТекКонтрагент = ТЗ.Контрагент;
            СуммаКонтрагент = 0;
        КонецЕсли;

        Итого = Итого + СуммаВсего;
        Таб.ВывестиСекцию("Строка");
        
        СуммаКонтрагент = СуммаКонтрагент + СуммаВсего;
        ТекстВсего = "РАЗОМ ПО контрагенту: " + Контрагент;
    КонецЦикла;
    Таб.ВывестиСекцию("ИтогоКлиент");
    Таб.ВывестиСекцию("Подвал");
    
    Таб.ТолькоПросмотр(1);
        Таб.Показать("Моя таблица", "");


код примерный, может где то и есть ошибка, но идея такая

Сообщение отредактировал denis84 - 23.10.23, 12:24

Спасибо сказали: kostya77,

awp Подменю пользователя
сообщение 24.10.23, 17:34
Сообщение #6

Почти ветеран
Иконка группы
Группа: Местный
Сообщений: 522
Спасибо сказали: 70 раз
Рейтинг: 51.3

Запросом и обходом по групиировкам не?


Signature
Бухгалтер - это не профессия! Это диагноз!

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 01.11.24, 0:48
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!