Имя: Пароль:
1C
1С v8
Внеш печат форма (Акт + с фактура на 1 листе) управляемые
,
0 lirt82
 
09.03.16
06:52
В целях экономии бумаги в компании, сказали сделать внешнюю печатную форму чтоб акт работ и счет фактура были на одном листе. Сделал в обработке 2 макета, пока выводится только встроенный в конфу макет с/фактуры.
1) не получается подцепить макет из обработки
2) незнаю как вывести на 1 лист 2 макета.
1 lirt82
 
09.03.16
07:04
полный код обработки не могу на мисту скинуть, ругается:)
2 Провинциальный 1сник
 
09.03.16
07:04
http://devtrainingforum.v8.1c.ru/forum/thread.jsp?id=620422
ЗЫ УПД чем не устраивает?
3 lirt82
 
09.03.16
07:08
(2) что такое УПД?
4 mexanik_96
 
09.03.16
07:09
(3) точно, что такое УПД?
5 Провинциальный 1сник
 
09.03.16
07:13
6 lirt82
 
09.03.16
07:15
(5) нужна внешняя печатная форма как хотят бухи:) на одном листе
7 Провинциальный 1сник
 
09.03.16
07:22
(6) Ну так сделайте, в чем проблема?
8 lirt82
 
09.03.16
07:43
(7) незнаю как вывести на 1 лист 2 макета.
9 LaDarkVampire
 
09.03.16
07:50
Функция ПечатьАктаОбОказанииУслуг(СведенияАктаОбОказанииУслуг, ОбъектыПечати, СтруктураПараметровПечати) Экспорт

    ТабличныйДокумент = Новый ТабличныйДокумент;
    ТабличныйДокумент.АвтоМасштаб            = Истина;
    ТабличныйДокумент.ОриентацияСтраницы    = ОриентацияСтраницы.Портрет;
    ТабличныйДокумент.ИмяПараметровПечати    = "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Акт_СФ";
    
    
    //Макет = ЭтотОбъект.ПолучитьМакет("ПФ_MXL_Акт");
    
    ПервыйДокумент = Истина;
    
    Для Каждого СведенияОДокументе ИЗ СведенияАктаОбОказанииУслуг Цикл
        
        ----
        
        Если НЕ ПервыйДокумент Тогда
            ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
        КонецЕсли;
        
        ПервыйДокумент = Ложь;
        
        // Запомним номер строки, с которой начали выводить текущий документ.
        НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;
        
        -----
        
        ТабличныйДокумент.Вывести(ОбластьМакета);
        
        ТД_СФ = ПечатьСФ(СведенияОДокументе.СФ);
        
        ТД_СФ1 = Новый ТабличныйДокумент;                
        ОблР = Макет.ПолучитьОбласть("Разделитель");
        
        ТД_СФ1.Вывести(ОблР);
        ТД_СФ1.Вывести(ТД_СФ);
        
        Если НЕ ТабличныйДокумент.ПроверитьВывод(ТД_СФ1) Тогда
            
            ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
            ТабличныйДокумент.Вывести(ТД_СФ);
            
        Иначе    
            
            ТабличныйДокумент.Вывести(ТД_СФ1);
            
        КонецЕсли;
        
        // В табличном документе зададим имя области, в которую был
        // выведен объект. Нужно для возможности печати покомплектно.
        УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент,
            НомерСтрокиНачало, ОбъектыПечати, СведенияОДокументе.Документ);

    КонецЦикла;
    
    Возврат ТабличныйДокумент;

КонецФункции
10 lirt82
 
09.03.16
07:58
(9) если вышлю вам на мыло обработку можите исправить? не за спасибо естественно.
11 LaDarkVampire
 
09.03.16
09:19
(10) времени нет на данный момент, могу свою полную Вам прислать (печать акта и СФ) и там уже посмотрите
12 lirt82
 
09.03.16
09:53
(11) кидайте в ящик [email protected]
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн