Печать формуляра

Морской

Есть формуляр (заказы), прогр-ма печати к нему (тип М) - вых формы настроены,
все печатается. Проблема такая: возможно ли используя эту прогр-му - печатать
формуляр вручную по номеру док-та, т.е. что вызвать из нее?

EHOT

что значит вручную ? карандашом на бумаге ? ... сейчас печатаются все документы, а тебе надо по одному ? программу править то можешь ? че аще ? кто здесь ?

зы: а вызывать из неё надо формуляр )

Морской

Пока не сталкивался с формулярами. Надо сделать исполняемую программу печати формуляра(тр-ия) - хотел узнать возможно ли используя эту инклуду это сделать.

JeKa

Да все можно. Я так понимаю в настройках печати формуляра должна быть указана программа, подпрограмма FORM и сам формуляр. Вот в своей программе и вызываешь эту подпрограмму и передаешь ей ключ, который и содержит номер документа. Все...

Морской

Подпрограмма
form entry_neu using ent_retco ent_screen.
Программа копия SAPFM06P. А вот что именно передать не пойму...

OlegDm

Морской написал(а):

Подпрограмма
form entry_neu using ent_retco ent_screen.
Программа копия SAPFM06P. А вот что именно передать не пойму...

Посмотри тр.ME9F (отчет RM06ENDR_ALV) - думаю должен тебе помочь, там как раз осуществляется вывод заказа по созданному вых.документу.

JeKa

ent_retco код возврата, ent_screen = 'X' в большинстве случаев.
Ключ nast-objky. Наиболее просто его слепить вот так:

Code:

 nast-spras = sy-langu.
 nast-objky(10) = mblnr.
 nast-objky+10(4) = mjahr.

OlegDm

JeKa написал:

ent_retco код возврата, ent_screen = 'X' в большинстве случаев.
Ключ nast-objky. Наиболее просто его слепить вот так:

Code:

 nast-spras = sy-langu.
 nast-objky(10) = mblnr.
 nast-objky+10(4) = mjahr.

SAPFM06P - программа печати документов закупок, поэтому для заказа (стандарт), например, будет:

Code:

NAST-KAPPL = 'EF'
NAST-OBJKY = <Номер заказа на поставку>   
NAST-KSCHL = 'NEU'

и т.д.

Морской

INCLUDE Z83M_SAPFM06P.
DATA: ENT_RETCO LIKE SY-SUBRC,
ENT_SCREEN.
START-OF-SELECTION.
ENT_SCREEN = 'X'.
NAST-KAPPL = 'EF'.
NAST-OBJKY = '4700000391'.
NAST-KSCHL = '83TP'.
NAST-NACHA = '1'.
NAST-ANZAL = '1'.
NAST-VSZTP = '4'.
NAST-DIMME = 'X'.
PERFORM ENTRY_NEU USING ENT_RETCO ENT_SCREEN.

Z83M_SAPFM06P моя программа печати
83TP вид вых документа
Все работатет, но формуляр выходит не тот, может еще чего надо указать?

Удав

Необходимо заполнить структуру TNAPR, в частности поле tnapr-fonam (см.исходник)

Code:

form entry_neu using ent_retco ent_screen.

  data: l_druvo like t166k-druvo,
        l_nast  like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.

 ...
  check ent_retco eq 0.
  call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params  = arc_params
*{ Вот здесь
            ix_fonam       = tnapr-fonam          "HW 214570
*}
       importing
            ex_retco       = ent_retco.
endform.

Морской

Спасибо за совет. В 4,0 нет ф-ии 'ME_PRINT_PO'
Добавил строку
tnapr-fonam = 'Имя_формуляра'.
в свой код - схавал.

Морской

Проблема такая - при вызове моей транзакции печать идет сразу, но я вызываю в user-exit через
SET PARAMETER ID 'XX' FIELD EBELN.
SET PARAMETER ID 'XXX' FIELD PADEST.
CALL TRANSACTION 'моя_транз' AND SKIP FIRST SCREEN.
и печатается в спул. Что сделать, чтобы сразу был вывод?

EHOT

Морской написал(а):

Проблема такая - при вызове моей транзакции печать идет сразу, но я вызываю в user-exit через
SET PARAMETER ID 'XX' FIELD EBELN.
SET PARAMETER ID 'XXX' FIELD PADEST.
CALL TRANSACTION 'моя_транз' AND SKIP FIRST SCREEN.
и печатается в спул. Что сделать, чтобы сразу был вывод?

однако надо с помощью GET_PRINT_PARAMETERS ставить галку "Немедленного вывода"

Морской

Вместо call transaction вставил batchinput - заработало.

Правила форума

Печать формуляра

Кто сейчас на конференции