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

По теме из базы знаний
- Печатная форма Т-8 для документа "Увольнение". Конфигурации ЗКГУ 3.0, ЗУП 3.0, КА 2.0, ERP 2.0
- Печатная форма Т-1 для документа "Прием на работу". Конфигурации ЗКГУ 3.0, ЗУП 3.0, КА 2.0, ERP 2.0
- Внешние печатные формы для 1С:БП 2.0 / 3.0
- Печатная форма Cчет с QR кодом и УПД с QR кодом для УТ 10.3, УПП 1.3. УТ 11.5 и 11.4, КА 2.5, ERP 2.5, Бухгалтерия 3, Розница 3, УНФ 3 + отключение печати QR
- Печатные формы Счет-фактура (+корректировочный) в редакции 1096 для УТ 10.3
Найденные решения
(5)
Должно быть как-то так, а не просто вставить ваш код куда-то посередине существующего:
Должно быть как-то так, а не просто вставить ваш код куда-то посередине существующего:
Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "РасходныйОрдерИЗаданиеНаОтбор") Тогда
////////// код для РасходныйОрдерИЗаданиеНаОтбор
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
КоллекцияПечатныхФорм,
"РасходныйОрдерИЗаданиеНаОтбор",
НСтр("ru = 'Расходный ордер и задание на отбор'"),
ТабДок);
КонецЕсли;
Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "РасходныйОрдерИЗаданиеНаОтборСокрВариант") Тогда
////////// Код для РасходныйОрдерИЗаданиеНаОтборСокрВариант
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
КоллекцияПечатныхФорм,
"РасходныйОрдерИЗаданиеНаОтборСокрВариант",
НСтр("ru = 'Расходный ордер и задание на отбор (Сокр. вариант)'"),
ТабДок);
КонецЕсли;
//мой код
Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "Маркетплейсы") Тогда
// Здесь новый код для Маркетплейсы
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
КоллекцияПечатныхФорм,
"Маркетплейсы",
НСтр("ru = 'Маркетплейсы'"),
ТабДок);
КонецЕсли;
// конец кода
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(5)
Должно быть как-то так, а не просто вставить ваш код куда-то посередине существующего:
Должно быть как-то так, а не просто вставить ваш код куда-то посередине существующего:
Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "РасходныйОрдерИЗаданиеНаОтбор") Тогда
////////// код для РасходныйОрдерИЗаданиеНаОтбор
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
КоллекцияПечатныхФорм,
"РасходныйОрдерИЗаданиеНаОтбор",
НСтр("ru = 'Расходный ордер и задание на отбор'"),
ТабДок);
КонецЕсли;
Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "РасходныйОрдерИЗаданиеНаОтборСокрВариант") Тогда
////////// Код для РасходныйОрдерИЗаданиеНаОтборСокрВариант
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
КоллекцияПечатныхФорм,
"РасходныйОрдерИЗаданиеНаОтборСокрВариант",
НСтр("ru = 'Расходный ордер и задание на отбор (Сокр. вариант)'"),
ТабДок);
КонецЕсли;
//мой код
Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "Маркетплейсы") Тогда
// Здесь новый код для Маркетплейсы
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
КоллекцияПечатныхФорм,
"Маркетплейсы",
НСтр("ru = 'Маркетплейсы'"),
ТабДок);
КонецЕсли;
// конец кода
Показать
(5)
значит администратор - ненастоящий!!!
как это не банально, в сторону изучения программирования!
что бы что-то программировать - это, сначала, надо научиться делать!
(и рассмотреть пример (6) если разберетесь, то все у вас заработает.
да , он не в курсе в чем дело)
значит администратор - ненастоящий!!!
куда копать?
как это не банально, в сторону изучения программирования!
что бы что-то программировать - это, сначала, надо научиться делать!
(и рассмотреть пример (6) если разберетесь, то все у вас заработает.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот