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

Хранилище

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

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



> Внешняя печатная форма , Цены номенклатуры          
gorik77 Подменю пользователя
сообщение 27.02.12, 15:22
Сообщение #1

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

Создал внешнюю печатную форму, все выводит нормально


Функция ПечатьПоступлениеТоваров()
//взята из документа поступление товаров и услуг    
КонецФункции // ПечатьПоступлениеТоваров()

Функция Печать() Экспорт
    ТабДокумент = ПечатьПоступлениеТоваров();

    Возврат ТабДокумент;


    
КонецФункции




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

Цикл в котором хочу добавить ТипЦенНоменклатуры:
Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл 


        ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТовары);
        ОбластьМакета.Параметры.Товар                 = СокрЛП(ВыборкаСтрокТовары.Товар);
        товар                                         = ОбластьМакета.Параметры.Товар;
        ОбластьМакета.Параметры.ЦенаЗакупки           = СсылкаНаОбъект.товар.ТипыЦенНоменклатуры.ОсновнаяЦенаЗакупки;

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

        Сумма          = Сумма       + ВыборкаСтрокТовары.Сумма;
        СуммаНДС       = СуммаНДС    + ВыборкаСтрокТовары.СуммаНДС;

    КонецЦикла;


поравьте если думаю в не правильном направлении.
Потому что ничего не получается ((


Signature
1С:Предприятие 8.2 (8.2.14.540) конфигурация:(1.2.6.5)

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

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

Что это за жесть?

Попробуйте как-то так:

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


        ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТовары);
        ОбластьМакета.Параметры.Товар                 = СокрЛП(ВыборкаСтрокТовары.Товар);
        товар                                         = ОбластьМакета.Параметры.Товар; // это шо за фигня?
        ОбластьМакета.Параметры.ЦенаЗакупки           = ВыборкаСтрокТовары.Товар.ТипыЦенНоменклатуры.ОсновнаяЦенаЗакупки;

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

        Сумма          = Сумма       + ВыборкаСтрокТовары.Сумма;
        СуммаНДС       = СуммаНДС    + ВыборкаСтрокТовары.СуммаНДС;

    КонецЦикла;

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


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

 

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