gifts2017

М-11 Универсальная печатная форма с дополнительными параметрами

Опубликовал Тарас Лохтин (Одинец) в раздел Печать - Универсальные печатные формы

Решил объединить популярные печатные формы М-11 в одну обработку и вот что получилось:
1. для Документов "ТребованиеНакладная", "ОтчетПроизводстваЗаСмену", "ПередачаМатериаловВЭксплуатацию", "ОтчетПроизводстваЗаСмену"
2. Указать доп.параметры печатной формы: Имя "МАКЕТ", Значение (тип "СТРОКА") может принимать следующие:
    - "М11"                - выводится на печать "М-11 ТребованиеНакладная"
    - "ТребованиеНакладная" - выводится на печать "ТребованиеНакладная"
    - "АктСписания"         - выводится на печать "Печать_АктаСписания"
    - без параметров выводится  "М-11 ТребованиеНакладная"
3. в зависимости от доп.параметров выводится на печать "М11", "ТребованиеНакладная", "АктСписания"

Внешняя печатная форма "М-11" для типовой БУХГАЛТЕРИИ, ред.2.0  для Документов "ТребованиеНакладная", "ОтчетПроизводстваЗаСмену", "ПередачаМатериаловВЭксплуатацию", "ОтчетПроизводстваЗаСмену"выводится на печать "М11", "ТребованиеНакладная", "АктСписания", в зависимости от доп.параметров (имя "МАКЕТ", Значение - тпи "СТРОКА").

Вот с доп.пареметрами сложноватько - надо указать, что Макет и далее:

    - "М11" - выводится на печать "М-11 ТребованиеНакладная"

   - "ТребованиеНакладная" - выводится на печать "ТребованиеНакладная"

   - "АктСписания" - выводится на печать "Печать_АктаСписания"

   - без параметров выводится "М-11 ТребованиеНакладная"

Для НЕКУРЯЩИХ пользователей привожу код функции ПЕЧАТЬ():

Функция Печать() Экспорт

Если ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ТребованиеНакладная") Тогда
Если ДополнительныеПараметры.Макет = "М11" Тогда
ТабДокумент = ПечатьМ11_ТребованиеНакладная();
ИначеЕсли ДополнительныеПараметры.Макет = "ТребованиеНакладная" Тогда
ТабДокумент = Печать_ТребованиеНакладная();
ИначеЕсли ДополнительныеПараметры.Макет = "АктСписания" Тогда
ТабДокумент = Печать_АктаСписания(СсылкаНаОбъект);
Иначе
ТабДокумент = ПечатьМ11_ТребованиеНакладная();
Конецесли;
ИначеЕсли ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ОтчетПроизводстваЗаСмену") Тогда
Если ДополнительныеПараметры.Макет = "М11" Тогда
ТабДокумент = ПечатьМ11_ОтчетПроизводстваЗаСмену();
ИначеЕсли ДополнительныеПараметры.Макет = "АктСписания" Тогда
ТабДокумент = Печать_АктаСписания(СсылкаНаОбъект);
Иначе
ТабДокумент = ПечатьМ11_ОтчетПроизводстваЗаСмену();
КонецЕсли;
ИначеЕсли ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ПередачаМатериаловВЭксплуатацию") Тогда
ТабДокумент = ПечатьМ11_ПередачаМатериаловВЭксплуатацию();
Иначе
Возврат Неопределено;
Конецесли;
Возврат ТабДокумент;

КонецФункции

Кто подскажет как это автоматизировать - тому спасибо и бантик на макушку! :)

Скачать файлы

Наименование Файл Версия Размер
PrnFormM11.ZIP 28
.ZIP 74,16Kb
07.06.13
28
.ZIP 74,16Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Aleksandr Filonov (AleksSF) 11.12.13 12:06
Чего-то не вкурил.
Это что, запрос на разработку?
На публикацию никак не тянет. На готовое решение тем более.
2. Тарас Лохтин (Одинец) 11.12.13 20:22
(1) AleksSF, МИНЗРАВ ПРЕДУПРЕЖДАЕТ: КУРЕНИЕ ВРЕДНО,


Для тех кто НЕ вкурил объясняю - это внешняя печатная форма М-11 для Бухгалтерии ред.2.0
В кратном описании объяснено для чего печатная форма, Для продвинутых пользователей в подробном описании выложен код, чтоб было понятно какие параметры указывать для ПРАВИЛЬНОГО вывода НУЖНОЙ печатной формы.

ЭТО НЕ ПУБЛИКАЦИЯ!
ЭТО НЕ ГОТОВОЕ РЕШЕНИЕ!
ЭТО - ПЕЧАТНАЯ ФОРМА С ПАРАМЕТРАМИ!
3. Хворонов Игорь (IgorQ) 26.02.14 12:46
А к реализации товаров и услуг можно присоединить?