Имя: Пароль:
1C
1С v8
Почему не создается штрих-код
0 sidalexsandr
 
02.04.18
11:09
У меня УТ 10.3 Вот текст процедуры:
Функция ПечатьУниверсальногоПередаточногоДокумента(ДанныеДокумента, СчетФактураТребуется, СтруктураОтбораСчетаФактуры = Неопределено, ТабДокумент = Неопределено)
    
    ДатаДокумента = ДанныеДокумента.Дата;
    Если ДатаДокумента >= Дата(2017, 10, 1) Тогда
    
        мВерсияПостановления = 2;
        ИмяМакета    = "УниверсальныйПередаточныйДокумент981";        
    ИначеЕсли ДатаДокумента >= Дата(2017, 7, 1) Тогда
        мВерсияПостановления = 1;
        ИмяМакета    = "УниверсальныйПередаточныйДокумент";        
    Иначе
        мВерсияПостановления = 0;
        ИмяМакета    = "УниверсальныйПередаточныйДокумент";
    КонецЕсли;
    Макет = ЭтотОбъект.ПолучитьМакет(ИмяМакета);
    
    
    Если СтруктураОтбораСчетаФактуры = Неопределено Тогда
        СчетФактура = НайтиПодчиненныйСчетФактуру(ДанныеДокумента.ДокументСсылка, "СчетФактураВыданный");
    Иначе
        СчетФактура = НайтиПодчиненныйСчетФактуру(ДанныеДокумента.ДокументСсылка, "СчетФактураВыданный", СтруктураОтбораСчетаФактуры);
    КонецЕсли;
    
    Если ТабДокумент = Неопределено Тогда
        ТабДокумент = Новый ТабличныйДокумент;
        // Устанавливаем параметры печати и колонтитулы
        ТабДокумент.ОриентацияСтраницы     = ОриентацияСтраницы.Ландшафт;
        ТабДокумент.ПолеСверху             = 12;
        ТабДокумент.ПолеСлева              = 0;
        ТабДокумент.ПолеСнизу              = 0;
        ТабДокумент.ПолеСправа             = 0;
        ТабДокумент.АвтоМасштаб         = Истина;
        ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_УниверсальныйПередаточныйДокумент";
    КонецЕсли;
    
    
    ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
    ШтрихкодированиеПечатныхФорм.ВывестиШтрихкодВТабличныйДокумент(ТабДокумент, Макет, ОбластьМакета, ДанныеДокумента.Ссылка);//artfa.a@yandex.ru
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn