Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Вывод на печать несколько колонок в одной

Помощь - Поиск - Пользователи - Календарь

Полная версия этой страницы: Вывод на печать несколько колонок в одной

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики

avel1976

19.08.15, 9:05

Здравствуйте уважаемые форумчане. Возник такой вопрос, есть счет на оплату покупателя в программе вводятся данные в разные колонки (номенклатура,дата, фамилия и т.д.), так вот, помогите пожалуйста как можно в печатной форме вывести данные из колонок дата, фамилия в колонку номенклатура. Платформа 1С Предприятие 8,2. Спасибо.

Vofka

19.08.15, 9:08

avel1976, при такой постановке вопроса вам никто не ответит. Чтобы получить ответ, задайте более конкретный вопрос, что вы делаете и что не получается. Либо, если вы вообще не знаете как это делается - тогда можно обратиться за платной помощью необходимо зарегистрироваться для просмотра ссылки.

avel1976

19.08.15, 9:33

В форме я добавил колонки, в модуле сделал выборку новых колонок при формировании на печать. В макете каждая колонка соответствует колонке в форме. Как сделать так чтобы (расскажу по рисунку) в колонке "Путевки"
где стоит значение <Товар>, добавить колонку из формы, ну например, <Дата>. Я разделял строку в макете и добавлял значения, но результат не тот, много пробелов между данными.

sava1

19.08.15, 9:38

Открываем процедуру вывода на печать, ищем где заполняются параметры
типа

Область.Параметры.Товар = .....

, после всего заполнения перед выводом области пишем свое:

Область.Параметры.Товар = ""+табЧасть.Номенклатура+" - "+Ответственный......+ДатаДокумента

avel1976

19.08.15, 12:58

Цитата(sava1 @ 19.08.15, 10:38) необходимо зарегистрироваться для просмотра ссылки

Открываем процедуру вывода на печать, ищем где заполняются параметры
типа

Область.Параметры.Товар = .....

, после всего заполнения перед выводом области пишем свое:

Область.Параметры.Товар = ""+табЧасть.Номенклатура+" - "+Ответственный......+ДатаДокумента

ОбластьНомера = Макет.ПолучитьОбласть("Строка|НомерСтроки");
    ОбластьКодов  = Макет.ПолучитьОбласть("Строка|КолонкаКодов");
    ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные");
    ОбластьСкидки = Макет.ПолучитьОбласть("Строка|Скидка");
    ОбластьСуммы  = Макет.ПолучитьОбласть("Строка|Сумма");
    ОбластьТовар  = Макет.ПолучитьОбласть("Строка|Товар");

    Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл 

        Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда
            Сообщить(НСтр("ru='В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.';uk='В одному з рядків не заповнене значення номенклатури - рядок під час друку буде пропущений.'"), СтатусСообщения.Важное);
            Продолжить;
        КонецЕсли;


        ОбластьНомера.Параметры.НомерСтроки = ЗапросТовары.Индекс(ВыборкаСтрокТовары) + 1;
        ТабДокумент.Вывести(ОбластьНомера);
        ОбластьТовар.Параметры.Товар = "" + ЗапросТовары.Колонки.Номенклатура +" - "+ ЗапросТовары.Колонки.ФИО;

Не получается вывести. Компилируется без ошибок и форму выводит, но поля ФИО нет. Что-то я делаю не так не пойму.

Vofka

19.08.15, 13:00

А так:

ОбластьТовар.Параметры.Товар = "" + ВыборкаСтрокТовары .Номенклатура +" - "+ ВыборкаСтрокТовары .ФИО;

avel1976

19.08.15, 13:05

Тоже самое не выводит.

sava1

19.08.15, 13:08

Параметры присваиваются до вывода результата.

Petre

19.08.15, 13:13

Цитата(avel1976 @ 19.08.15, 13:58) необходимо зарегистрироваться для просмотра ссылки

Запрос корректировали?

Цитата(sava1 @ 19.08.15, 14:08) необходимо зарегистрироваться для просмотра ссылки

Параметры присваиваются до вывода результата.

Там другая область.

sava1

19.08.15, 13:18

Цитата(Petre @ 19.08.15, 14:13) необходимо зарегистрироваться для просмотра ссылки

Там другая область.

Пардон - прощелкал.
Так и хочеться написать - Весь код в студию. Но представляю сколько его там - и молчу.

avel1976

19.08.15, 13:21

Коректировал запрос и поднял строку перед вывести. Ничего не добавилось.

Цитата(sava1 @ 19.08.15, 14:18) необходимо зарегистрироваться для просмотра ссылки

Пардон - прощелкал.
Так и хочеться написать - Весь код в студию. Но представляю сколько его там - и молчу.

//ТабДокумент.Вывести(ОбластьМакета);
    
    ОбластьКолонкаТовар = Макет.Область("Товар");
    Если Не ВыводитьКоды Тогда
        ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки + 
                                            Макет.Область("КолонкаКодов").ШиринаКолонки;
    КонецЕсли;
    Если НЕ ЕстьСкидки Тогда
        ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки + 
                                            Макет.Область("СуммаБезСкидки").ШиринаКолонки +
                                            Макет.Область("СуммаСкидки").ШиринаКолонки;
    КонецЕсли;
    
    СуммаБезСкидки    = 0;
    СуммаСкидки     = 0;
    Сумма            = 0;
    СуммаНДС         = 0;
    
    ОбластьНомера = Макет.ПолучитьОбласть("Строка|НомерСтроки");
    ОбластьКодов  = Макет.ПолучитьОбласть("Строка|КолонкаКодов");
    ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные");
    ОбластьСкидки = Макет.ПолучитьОбласть("Строка|Скидка");
    ОбластьСуммы  = Макет.ПолучитьОбласть("Строка|Сумма");
    ОбластьТовар  = Макет.ПолучитьОбласть("Строка|Товар");

    Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл 

        Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда
            Сообщить(НСтр("ru='В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.';uk='В одному з рядків не заповнене значення номенклатури - рядок під час друку буде пропущений.'"), СтатусСообщения.Важное);
            Продолжить;
        КонецЕсли;

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

        ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокТовары);
        ОбластьДанных.Параметры.Товар = СокрЛП(ВыборкаСтрокТовары.Товар);
        ТабДокумент.Присоединить(ОбластьДанных);

        Если ЕстьСкидки Тогда
            ОбластьСкидки.Параметры.Заполнить(ВыборкаСтрокТовары);
            ТабДокумент.Присоединить(ОбластьСкидки);
        КонецЕсли;

        ОбластьСуммы.Параметры.Заполнить(ВыборкаСтрокТовары);
        ТабДокумент.Присоединить(ОбластьСуммы);
        
        СуммаБезСкидки = СуммаБезСкидки + ВыборкаСтрокТовары.СуммаБезСкидки;
        СуммаСкидки    = СуммаСкидки    + ВыборкаСтрокТовары.СуммаСкидки;
        Сумма          = Сумма           + ВыборкаСтрокТовары.Сумма;
        СуммаНДС       = СуммаНДС        + ВыборкаСтрокТовары.СуммаНДС;

    КонецЦикла;

sava1

19.08.15, 13:23

Цитата(avel1976 @ 19.08.15, 14:21) необходимо зарегистрироваться для просмотра ссылки

ОбластьДанных.Параметры.Товар = СокрЛП(ВыборкаСтрокТовары.Товар);

замените на

ОбластьДанных.Параметры.Товар = "Это моя строка";

avel1976

19.08.15, 13:25

Цитата(sava1 @ 19.08.15, 14:23) необходимо зарегистрироваться для просмотра ссылки

замените на

ОбластьДанных.Параметры.Товар = "Это моя строка";

Не изменило.

sava1

19.08.15, 13:26

Не изменило чего? Так-же выводится Товар?

avel1976

19.08.15, 13:30

ПАРДОН, ребятки..... Поменял. Сечас вставлю там запрос.

Чудненько. Все получилось. ОГРОМНОЕ СПАСИБО.

Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.