Акт о приеме материалов М-7 для Бухгалтерии 3.0

Типовая межотраслевая форма № М-7 Утверждена Постановлением Госкомстата России от 30.10.1997 № 71а

Изначально взято отсюда: //infostart.ru/public/82736/. Адаптировал под Бухгалтерию (для документа Поступление товаров и услуг).

Подключается как внешняя печатная форма. Проблема с альбомной ориентацией 3 листа решена выведением листов отдельно.

Тестировал под 3.0.49.20.

3 Comments

  1. user780057

    Здравствуйте,Никита! Я начинающий программист, не могу найти пример, как выводить на печать листы отдельно (в управляемых формах). На простых без проблем.

    Не поделитесь кодом? У меня также как у вас 3 страницы портретный режим, одна альбомный. Второй день бьюсь, Яндекс, гугл мало помог.

    Абонемента нет чтобы скачать вашу обработку, а стартмани теперь не купить.

    Reply
  2. nikita0832

    (1)Там надо в коллекцию печатных форм добавлять не один табличный документ, а несколько. Общая форма, предназначенная для печати сама выведет их отдельно. В обработке сделано так:

    УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, «М7», «Форма № М-7», ПечатьДокумента(СсылкаНаДок, ОбъектыПечати));
    ВторойДокумент = КоллекцияПечатныхФорм.Добавить();
    ЗаполнитьЗначенияСвойств(ВторойДокумент,КоллекцияПечатныхФорм[0]);
    ВторойДокумент.СинонимМакета = «Форма № М-7 2 лист»;
    ВторойДокумент.ТабличныйДокумент = Печать2Листа(СсылкаНаДок);
    ВторойДокумент.ИмяМакета = «М-7 2»;
    ВторойДокумент.ИмяВрег = «М-7 2»;
    ТретийДокумент = КоллекцияПечатныхФорм.Добавить();
    ЗаполнитьЗначенияСвойств(ТретийДокумент,КоллекцияПечатныхФорм[0]);
    ТретийДокумент.СинонимМакета = «Форма № М-7 3 лист»;
    ТретийДокумент.ТабличныйДокумент = Печать3Листа(СсылкаНаДок);
    ТретийДокумент.ИмяМакета = «М-7 3»;
    ТретийДокумент.ИмяВрег = «М-7 3»;
    ЧетвертыйДокумент = КоллекцияПечатныхФорм.Добавить();
    ЗаполнитьЗначенияСвойств(ЧетвертыйДокумент,КоллекцияПечатныхФорм[0]);
    ЧетвертыйДокумент.СинонимМакета = «Форма № М-7 4 лист»;
    ЧетвертыйДокумент.ТабличныйДокумент = Печать4Листа(СсылкаНаДок);
    ЧетвертыйДокумент.ИмяМакета = «М-7 4»;
    ЧетвертыйДокумент.ИмяВрег = «М-7 4»;

    Показать

    Reply
  3. Sashokk

    Огромное спасибо!!!!

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *