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

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



> Вывод на печать несколько колонок в одной          
avel1976 Подменю пользователя
сообщение 19.08.15, 9:05
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 27
Из: Україна, Миргород
Спасибо сказали: 3 раз
Рейтинг: 0

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

Vofka Подменю пользователя
сообщение 19.08.15, 9:08
Сообщение #2

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4519 раз
Рейтинг: 3641.2

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

avel1976 Подменю пользователя
сообщение 19.08.15, 9:33
Сообщение #3

Общительный
**
Группа: Пользователи
Сообщений: 27
Из: Україна, Миргород
Спасибо сказали: 3 раз
Рейтинг: 0

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


sava1 Подменю пользователя
сообщение 19.08.15, 9:38
Сообщение #4

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

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

, после всего заполнения перед выводом области пишем свое:
Область.Параметры.Товар = ""+табЧасть.Номенклатура+" - "+Ответственный......+ДатаДокумента

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

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

Общительный
**
Группа: Пользователи
Сообщений: 27
Из: Україна, Миргород
Спасибо сказали: 3 раз
Рейтинг: 0

Цитата(sava1 @ 19.08.15, 10:38) *
Открываем процедуру вывода на печать, ищем где заполняются параметры
типа
Область.Параметры.Товар = .....

, после всего заполнения перед выводом области пишем свое:
Область.Параметры.Товар = ""+табЧасть.Номенклатура+" - "+Ответственный......+ДатаДокумента


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

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

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


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


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

Vofka Подменю пользователя
сообщение 19.08.15, 13:00
Сообщение #6

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4519 раз
Рейтинг: 3641.2

А так:

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


?

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

avel1976 Подменю пользователя
сообщение 19.08.15, 13:05
Сообщение #7

Общительный
**
Группа: Пользователи
Сообщений: 27
Из: Україна, Миргород
Спасибо сказали: 3 раз
Рейтинг: 0

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

sava1 Подменю пользователя
сообщение 19.08.15, 13:08
Сообщение #8

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

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

Petre Подменю пользователя
сообщение 19.08.15, 13:13
Сообщение #9

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2905
Из: Київ, Україна
Спасибо сказали: 1147 раз
Рейтинг: 1228.9

Цитата(avel1976 @ 19.08.15, 13:58) *
Не получается вывести. Компилируется без ошибок и форму выводит, но поля ФИО нет. Что-то я делаю не так не пойму.

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

Цитата(sava1 @ 19.08.15, 14:08) *
Параметры присваиваются до вывода результата.

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


Signature
Допрацьовую:
- "Бухгалтерія для України 2.1";
- "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".

sava1 Подменю пользователя
сообщение 19.08.15, 13:18
Сообщение #10

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

Цитата(Petre @ 19.08.15, 14:13) *
Там другая область.

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

avel1976 Подменю пользователя
сообщение 19.08.15, 13:21
Сообщение #11

Общительный
**
Группа: Пользователи
Сообщений: 27
Из: Україна, Миргород
Спасибо сказали: 3 раз
Рейтинг: 0

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

Цитата(sava1 @ 19.08.15, 14:18) *
Пардон - прощелкал.
Так и хочеться написать - Весь код в студию. Но представляю сколько его там - и молчу.


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

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

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

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

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

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

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

    КонецЦикла;

sava1 Подменю пользователя
сообщение 19.08.15, 13:23
Сообщение #12

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

Цитата(avel1976 @ 19.08.15, 14:21) *
ОбластьДанных.Параметры.Товар = СокрЛП(ВыборкаСтрокТовары.Товар);

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

avel1976 Подменю пользователя
сообщение 19.08.15, 13:25
Сообщение #13

Общительный
**
Группа: Пользователи
Сообщений: 27
Из: Україна, Миргород
Спасибо сказали: 3 раз
Рейтинг: 0

Цитата(sava1 @ 19.08.15, 14:23) *
замените на 
ОбластьДанных.Параметры.Товар = "Это моя строка";


Не изменило.

sava1 Подменю пользователя
сообщение 19.08.15, 13:26
Сообщение #14

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

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

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

avel1976 Подменю пользователя
сообщение 19.08.15, 13:30
Сообщение #15

Общительный
**
Группа: Пользователи
Сообщений: 27
Из: Україна, Миргород
Спасибо сказали: 3 раз
Рейтинг: 0

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

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

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

 

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

 

RSS Текстовая версия Сейчас: 19.04.24, 14:29
Форум IP.Board © 2024  IPS, Inc.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!