Need to default a PO number in MIRO

Question

Hello,
I've created a proram to call transaction MIRO. It defaults the company code based on the company code of the PO entered. See the code below:
  data: gt_fields type standard table of sval with header line,
        g_returncode,
        g_ebeln type ebeln,
        g_bukrs type bukrs.
start-of-selection.
  clear gt_fields. refresh gt_fields.
  gt_fields-tabname   = 'EKKO'.
  gt_fields-fieldname = 'EBELN'.
  append gt_fields.
  call function 'POPUP_GET_VALUES_DB_CHECKED'
    exporting
      CHECK_EXISTENCE       = 'X'
      popup_title           = 'Enter a purchase order'
    IMPORTING
      RETURNCODE            = g_returncode
    tables
      fields                = gt_fields
    EXCEPTIONS
      ERROR_IN_FIELDS       = 1
      OTHERS                = 2.
  if sy-subrc = 0.
    read table gt_fields index 1.
    if gt_fields-value ne space.
      g_ebeln = gt_fields-value.
      clear g_bukrs.
      select single bukrs
      into g_bukrs
      from ekko
      where ebeln = g_ebeln.
      set parameter id 'BUK' field space.
      set parameter id 'BUK' field g_bukrs.
      set parameter id 'BES' field g_ebeln.
      call transaction 'MIRO'.
    endif.
  else.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
This works fine, but I also require to pass the PO number entered into MIRO. I tried to do this using the line:
set parameter id 'BES' field g_ebeln.
This didn't work. I've also looked high and low for user exits/badi's taht would allow me to pass a PO number. I found quite a few e.g.
MRM_TRANSACT_DEFAULT
MRM_HEADER_DEFAULT
EXIT_SAPLMR1M_002
EXIT_SAPLMR1M_003
EXIT_SAPLMRMP_010
None of these allowed me to pass a PO number.
Any ideas?

Answer 1

Hi,
  I dont think there is any other option than to convince the user to input the purchase order number in MIGO & MIRO transactions,
Rgds,