Hi YOGENDRA PANDEY,
Thanks for the reply.
For now my code is as follows after execution :
******************* (For now PO number is hardcoded)
TABLES: nast, "Messages
*nast, "Messages
tnapr, "Programs & Forms
itcpo, "Communicationarea for Spool
arc_params, "Archive parameters
toa_dara, "Archive parameters
addr_key. "Adressnumber for ADDRESS
TYPE-POOLS MEEIN .
TYPES:
*- Tabelle der Aenderungsbescheibungen -
*
BEGIN OF meein_XAEND.
include structure cdshw.
types: EBELP LIKE EKPO-EBELP,
ZEKKN LIKE EKKN-ZEKKN,
ETENR LIKE EKET-ETENR,
CTXNR LIKE T166C-CTXNR,
ROUNR LIKE T166C-ROUNR,
INSERT,
FLAG_ADRNR,
END OF meein_XAEND,
*- Tabelle der Textänderungen -
*
BEGIN OF meein_XAETX,
EBELP LIKE EKPO-EBELP,
TEXTART LIKE CDSHW-TEXTART,
CHNGIND LIKE CDSHW-CHNGIND,
END OF meein_XAETX.
types: meein_xaend_itab type meein_xaend occurs 0.
* TYPES: BEGIN OF meein_purchase_doc_print,
* xekko LIKE ekko,
* xpekko LIKE pekko,
* xekpa LIKE msgpa OCCURS 0,
* xekpo LIKE ekpo OCCURS 0,
* xpekpo LIKE pekpo OCCURS 0,
* xeket LIKE eket OCCURS 0,
* xekkn LIKE ekkn OCCURS 0,
* xekek LIKE ekek OCCURS 0,
* xekeh LIKE ekeh OCCURS 0,
* xaend TYPE meein_xaend OCCURS 0,
* xtkomv TYPE komv OCCURS 0,
* xaetx TYPE meein_xaetx OCCURS 0,
* END OF meein_purchase_doc_print.
DATA: l_druvo LIKE t166k-druvo,
l_nast LIKE nast,
l_from_memory,
l_doc TYPE MEEIN_PURCHASE_DOC_PRINT,
p_nast TYPE nast,
ent_retco TYPE sysubrc,
ent_screen TYPE char1.
p_nast-mandt = sy-mandt.
p_nast-kappl = 'EF'.
p_nast-objky = '4500012164'.
p_nast-kschl = 'NEU'.
p_nast-spras = 'E'.
IF p_nast-aende EQ space.
l_druvo = '1'.
ELSE.
l_druvo = '2'.
ENDIF.
nast = p_nast.
*TYPEs-group : MEEIN.
CALL FUNCTION 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druvo
cx_from_memory = l_from_memory.
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.
*****************
after this execution m gettin the dialog box of choosing OP device and other options, so ma qn is how to remove it first...by passing LP01 as OP device......
And now where you want me to write the code u specified now ???
Bluesky
