Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Вывести данные на печать
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
gigaline
Доброго времени суток.
Будьте добры, ну никак не могу добиться вывода на печатную форму выделенные данные, что на снимке


необходимо зарегистрироваться для просмотра ссылки

// Выводим шапку накладной
    СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Шапка.Дата,,,КодЯзыкаПечать );
    СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Шапка.Дата,,,КодЯзыкаПечать);
    // отключаем условие (оригинал "Счет"
    Если Тип = "Счету" Тогда
        ОбластьМакета                               = Макет.ПолучитьОбласть("ЗаголовокСчета");
        ОбластьМакета.Параметры.НазваниеОрганизации = СведенияОПоставщике.ПолноеНаименование;
        ОбластьМакета.Параметры.ЕДРПОУОрганизации    = УправлениеКонтактнойИнформацией.ПолучитьКодОрганизации(СведенияОПоставщике);
                 
        Если ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда
            Банк            = СтруктурнаяЕдиница.Банк;
            МФО                 = Банк.Код;
            НомерСчета         = СтруктурнаяЕдиница.НомерСчета;
            //
            БанкПок            = СтруктурнаяЕдиница.Банк;
            МФОПок             = Банк.Код;
            НомерСчПок      = СтруктурнаяЕдиница.НомерСчета;
            //
        Иначе
            // покажем банковские реквизиты основного счета организации
            Банк            = СведенияОПоставщике.Банк;
            МФО                 = СведенияОПоставщике.МФО;
            НомерСчета         = СведенияОПоставщике.НомерСчета;
            //
            БанкПокупателя  = СведенияОПокупателе.Банк;
            МФОПокупателя     = СведенияОПокупателе.МФО;
            НомерСчетаПокупателя = СведенияОПокупателе.НомерСчета;
            //
        КонецЕсли;
        
        ОбластьМакета.Параметры.БанкОрганизации                    = Банк;
        ОбластьМакета.Параметры.МФОБанкаОрганизации                = МФО;
        ОбластьМакета.Параметры.НомерРасчетногоСчетаОрганизации = НомерСчета;
        
        
        Если  НЕ Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером  
            И НЕ Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда
            ТабДокумент.Вывести(ОбластьМакета);
        КонецЕсли;
        
    КонецЕсли;
    
    ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
    Если Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером  Тогда
        ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Список товаров на комиссию';uk='Список товарів на комісію'",КодЯзыкаПечать),КодЯзыкаПечать);
    Иначе    
        ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Счет на оплату';uk='Рахунок на оплату'",КодЯзыкаПечать),КодЯзыкаПечать);
    КонецЕсли;

    ТабДокумент.Вывести(ОбластьМакета);
    ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
    ОбластьМакета.Параметры.Заполнить(Шапка);
    ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,",,КодЯзыкаПечать);    
    Если Тип = "Счет" Тогда
        ОбластьМакета.Параметры.РеквизитыПоставщика      =  НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчета + НСтр("ru=', Банк ';uk=', Банк '",КодЯзыкаПечать) + Банк + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФО + Символы.ПС +
                                                    ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать);
    КонецЕсли;
    
    ТабДокумент.Вывести(ОбластьМакета);
    ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
    ОбластьМакета.Параметры.Заполнить(Шапка);
    ОбластьМакета.Параметры.ПредставлениеПокупателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ПолноеНаименование,",,КодЯзыкаПечать);
                                                                                              
    ОбластьМакета.Параметры.РеквизитыПокупателя            = НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать)   + НомерСчПок + НСтр("ru=',Банк ';uk=',  Банк '",КодЯзыкаПечать) + БанкПок + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФОПок + Символы.ПС +
                                                    ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать);
    //ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе,"Телефоны,",,КодЯзыкаПечать);
    ТабДокумент.Вывести(ОбластьМакета);



осталось совсем чуть чуть и не могу додуматься как поступить в данной ситуации
logist
Это
Цитата(gigaline @ 15.05.14, 21:24) необходимо зарегистрироваться для просмотра ссылки
ОбластьМакета.Параметры.БанкОрганизации                    = Банк;
        ОбластьМакета.Параметры.МФОБанкаОрганизации                = МФО;
        ОбластьМакета.Параметры.НомерРасчетногоСчетаОрганизации = НомерСчета;

заменить на это:
ОбластьМакета.Параметры.ИмяПараметраСтрокиСДанными = "р/с "+ОбластьМакета.Параметры.НомерРасчетногоСчетаОрганизации+", в "+ОбластьМакета.Параметры.БанкОрганизации+", МФО "+ОбластьМакета.Параметры.МФОБанкаОрганизации;

Соответственно в макете сделайте одну ячейку для этого, а не три.
gigaline
сделал немного по другому (выделено увеличенным шрифтом но в итоге мне еще нужно убрать "Зразок заповнення платіжного доручення" это область макета "ЗаголовокСчета" как скрыть данную область?

// Выводим шапку накладной
    СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Шапка.Дата,,,КодЯзыкаПечать );
    СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Шапка.Дата,,,КодЯзыкаПечать);

    Если Тип = "Счет" Тогда
        ОбластьМакета                               = Макет.ПолучитьОбласть("ЗаголовокСчета");
        ОбластьМакета.Параметры.НазваниеОрганизации = СведенияОПоставщике.ПолноеНаименование;
        ОбластьМакета.Параметры.ЕДРПОУОрганизации    = УправлениеКонтактнойИнформацией.ПолучитьКодОрганизации(СведенияОПоставщике);
        Если [size="4"]Не [/size]ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда
            Банк            = СтруктурнаяЕдиница.Банк;
            МФО                 = Банк.Код;
            НомерСчета         = СтруктурнаяЕдиница.НомерСчета;
        Иначе
            // покажем банковские реквизиты основного счета организации
            Банк            = СведенияОПоставщике.Банк;
            МФО                 = СведенияОПоставщике.МФО;
            НомерСчета         = СведенияОПоставщике.НомерСчета;
            //
            [size="4"]БанкПокупателя  = СведенияОПокупателе.Банк;
            МФОПокупателя     = СведенияОПокупателе.МФО;
            НомерСчетаПокупателя = СведенияОПокупателе.НомерСчета;[/size]
            //
        КонецЕсли;
        
        ОбластьМакета.Параметры.БанкОрганизации                    = Банк;
        ОбластьМакета.Параметры.МФОБанкаОрганизации                = МФО;
        ОбластьМакета.Параметры.НомерРасчетногоСчетаОрганизации = НомерСчета;
                
        Если  НЕ Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером  
            И НЕ Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда
            ТабДокумент.Вывести(ОбластьМакета);
        КонецЕсли;
        
    КонецЕсли;
    
    ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
    Если Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером  Тогда
        ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Список товаров на комиссию';uk='Список товарів на комісію'",КодЯзыкаПечать),КодЯзыкаПечать);
    Иначе    
        ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Счет на оплату';uk='Рахунок на оплату'",КодЯзыкаПечать),КодЯзыкаПечать);
    КонецЕсли;

    ТабДокумент.Вывести(ОбластьМакета);
    ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
    ОбластьМакета.Параметры.Заполнить(Шапка);
    ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,",,КодЯзыкаПечать);    
    Если Тип = "Счет" Тогда
        ОбластьМакета.Параметры.РеквизитыПоставщика      =  НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчета + НСтр("ru=', Банк ';uk=', Банк '",КодЯзыкаПечать) + Банк + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФО + Символы.ПС +
                                                    ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать);
    КонецЕсли;
    
    ТабДокумент.Вывести(ОбластьМакета);
    ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
    ОбластьМакета.Параметры.Заполнить(Шапка);
    ОбластьМакета.Параметры.ПредставлениеПокупателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ПолноеНаименование,",,КодЯзыкаПечать);
     Если Тип = "Счет" Тогда                                                                                          
    ОбластьМакета.Параметры.РеквизитыПокупателя            = НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать)   + НомерСчетаПокупателя + НСтр("ru=',Банк ';uk=',  Банк '",КодЯзыкаПечать) + БанкПокупателя + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФОПокупателя + Символы.ПС +
                                                    ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать);
    //ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе,"Телефоны,",,КодЯзыкаПечать);
    КонецЕсли;
    ТабДокумент.Вывести(ОбластьМакета);
logist
Цитата(gigaline @ 16.05.14, 9:48) необходимо зарегистрироваться для просмотра ссылки
это область макета "ЗаголовокСчета" как скрыть данную область?

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

  //  ТабДокумент.Вывести(ОбластьМакета);

gigaline
в итоге решил взяв за основу документ Счет на оплету поставщику
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.