Расчетные листки для ЗУП с выводом в текст

Была поставлена задачка : реализовать возможность прямой печати расчетных листков из ЗУП в текстовом виде на матричном принтере с минимальными изменениями в типовом отчете.
Может кому еще пригодится.

В типовой отчет «Расчетные листки организаций» был добавлен текстовой макет и кнопка с 3-мя вариантами печати:

1. Показать на экране;

2. Отправить на печать (LPT1);

3. Показать на экране и отправить на печать (LPT1).

Логика работы такова — стандартно формируется расчетный листок (т.е. можно применять любые отборы, настройки, предусмотренные в отчете) и после этого, по нажатию на кнопку «Вывести в текст», программа обрабатывает уже сформированную табличную форму и пререводит ее в текст, в соответствии с шаблоном.

Если открыть модуль (он не закрыт на пароль), то специалисту будет понятно.

12 Comments

  1. Русский

    Еще кто-то печатает расчетные листки на матричном принтере? 😮

    Reply
  2. tatushka

    Хорошо бы еще печатать в 2 колонки — вообще бы цены не было бы.

    Reply
  3. KrakoZyabl

    (1) Есть скоростные матричные принтеры (например EPSON 8000), которые печатают на перфорированной бумаге, специально для больших обьемов информации, видимо задача была вывести на него. Держи плюс 😉

    Reply
  4. васисубатор

    старые совковые предприятия просят практически все

    Reply
  5. EvGam

    (3) да именно для 8000-го EPSON и был заказ.

    (2) на экран выводит в одну колонку, а на печать (и при варианте «Показать на экране и отправить на печать (LPT1)») выводит в 2-е колонки

    Reply
  6. krot123

    Мы печатали раньше, щас попробую это обработку может снова начнем 😀

    Reply
  7. tatushka

    Подскажите, пожалуйста, как сделать, чтобы в шапке печаталась сумма «К выплате:…», очень-очень нужно!

    Reply
  8. tatushka

    Автор, ответьте, пожалуйста! 😥

    Reply
  9. EvGam

    (7), (8)

    1. В макете «МакетРасчетки» добавте параметр в квадратных скобках, например Квыплате

    2. в процедуре (модуль формы) ВывестиВтекстНажатие(Элемент) в цикле перебора расчеток внутри условия ЦиклПеребораСтрок=5 определяем переменную:

    Квыплате = ТекстСтроки;

    Reply
  10. Myti

    Жжесть….но + 😀

    Reply
  11. Шерстинка

    А нельзя ли сделать проверку на количество листков на листе?

    А то несколько строк от листка остаются на одном листе,

    а остальное переходит на другой лист.

    Reply
  12. EASports

    Спасибо, пригодилось

    Reply

Leave a Comment

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