Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
14 дек 2024, 00:46

Универсальный передаточный документ

Автор Alex56, 23 июн 2014, 09:54

0 Пользователей и 1 гость просматривают эту тему.

Alex56

Здравствуйте, не печатается тара в УПД только товар.
Может кто знает в новых релизах эта функция добавлена?
Не могу найти этот макет


Процедура Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь) Экспорт

   Если ЭтоНовый() Тогда
      Предупреждение(НСтр("ru = 'Документ можно распечатать только после его записи'"));
      Возврат;
   ИначеЕсли Не УправлениеДопПравамиПользователей.РазрешитьПечатьНепроведенныхДокументов(Проведен) Тогда
      Предупреждение(НСтр("ru = Недостаточно полномочий для печати непроведенного документа!'"));
      Возврат;
   КонецЕсли;

   Если Не РаботаСДиалогами.ПроверитьМодифицированность(ЭтотОбъект) Тогда
      Возврат;
   КонецЕсли;

   // Получить экземпляр документа на печать
   Если ИмяМакета = "ОС14упр" тогда

      // Унифицированная форма М-4 (Акт о приеме оборудования) по данным упручета
      ТабДокумент = ПечатьОС14();

   ИначеЕсли ИмяМакета = "ОС14бух" тогда
      
      // Унифицированная форма М-4 (Акт о приеме оборудования) по данным бухучета
      ТабДокумент = ПечатьОС14(Ложь);

   ИначеЕсли ИмяМакета = "СправкаРасчетВал" тогда

      // Справка-расчет формирования рублевой суммы документа в валюте
      БухгалтерскийУчетРасчетовСКонтрагентами.НапечататьСправкуРасчетРублеваяСуммаДокументаВВалюте(Ссылка);
      Возврат;
   ИначеЕсли ИмяМакета = "Бланк" Тогда

      ТабДокумент = ПечатьБланк(НаПринтер);
   ИначеЕсли ИмяМакета = "Ценники" Тогда
      ТабДокумент = ПечатьЦенников();
   ИначеЕсли ИмяМакета = "Этикетки" Тогда
      ПечататьЭтикетки();
      Возврат;
   ИначеЕсли ИмяМакета = "СерийныеНомера" Тогда
   
      ТабДокумент = УчетСерийныхНомеров.ПечатьСерийныхНомеров(Ссылка, "Товары");
   
   ИначеЕсли ТипЗнч(ИмяМакета) = Тип("ДвоичныеДанные") Тогда

      ТабДокумент = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Ссылка, ИмяМакета);

      Если ТабДокумент = Неопределено Тогда
         Возврат;
      КонецЕсли;
   Иначе
      //Формы Накладная, ТОРГ4, М4, ТОРГ12 печатаются из модуля менеджера
      ПараметрКоманды = Новый Массив;
      ПараметрКоманды.Добавить(Ссылка);
      
      Если НаПринтер Тогда
         УправлениеПечатьюКлиент.ВыполнитьКомандуПечатиНаПринтер("Документ.ПоступлениеТоваровУслуг", ИмяМакета,
                              ПараметрКоманды, Неопределено);
      Иначе
         УправлениеПечатьюКлиент.ВыполнитьКомандуПечати("Документ.ПоступлениеТоваровУслуг", ИмяМакета,
                              ПараметрКоманды, Неопределено, Неопределено);
      КонецЕсли;
      Возврат;
   КонецЕсли;

   УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, Строка(ВидОперации)), Ссылка);



Подскажите где он?
Нужно постоянно трудиться.

Alex56

Комплексная автоматизация, редакция 1.1 (1.1.46.2)
Добавлено: 23 июн 2014, 10:29


Оказывается в модуле менеджера эта функция.
Нужно постоянно трудиться.

Dethmontt

В конфе есть супер кнопка - Глобальный поиск
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск