跳转到MIGO

FORM FRM_MIGO_DIALOG USING LV_MBLNR TYPE MBLNR
                           LV_MJAHR TYPE MJAHR
                           LV_ZEILE TYPE MBLPO.

  DATA: LV_ACTION            TYPE  GOACTION,
        LV_REFDOC            TYPE  REFDOC,
        LV_NOTREE            TYPE  CHAR1,
        LV_NO_AUTH_CHECK     TYPE  CHAR1,
        LV_SKIP_FIRST_SCREEN TYPE  CHAR1,
        LV_DEADEND           TYPE  CHAR1,
        LV_OKCODE            TYPE  OKCODE,
        LV_LEAVE_AFTER_POST  TYPE  CHAR1,
        LV_NEW_ROLLAREA      TYPE  CHAR1,
        LV_SYTCODE           TYPE  SYTCODE,
        LV_EBELN             TYPE  EBELN,
        LV_EBELP             TYPE  EBELP,
        LV_TRANSPORT         TYPE  TKNUM,
        LV_ORDER_NUMBER      TYPE  AUFNR,
        LV_ORDER_ITEM        TYPE  CO_POSNR,
        LV_TRANSPORT_MEANS   TYPE  TRATY,
        LV_TRANSPORTIDENT    TYPE  TRAID,
        LV_INBOUND_DELIV     TYPE  VBELN_VL,
        LV_OUTBOUND_DELIV    TYPE  VBELN,
        LV_RESERVATION_NUMB  TYPE  RSNUM,
        LV_RESERVATION_ITEM  TYPE  RSPOS,
        LW_EXT               TYPE  EXT_MIGO_DIALOG,
        LV_MOVE_TYPE         TYPE  BWART,
        LV_SPEC_STOCK        TYPE  SOBKZ,
        LV_PSTNG_DATE        TYPE  BUDAT,
        LV_DOC_DATE          TYPE  BLDAT,
        LV_REF_DOC_NO        TYPE  XBLNR,
        LV_HEADER_TXT        TYPE  BKTXT.

  SET PARAMETER ID 'MBN' FIELD LV_MBLNR.
  SET PARAMETER ID 'MJA' FIELD LV_MJAHR.
  SET PARAMETER ID 'POS' FIELD LV_ZEILE.

  LV_ACTION                  = 'A04'.
  LV_REFDOC                  = 'R02'.
  LV_NOTREE                  = 'X'.
  LV_SKIP_FIRST_SCREEN       = 'X'.
  LV_DEADEND                 = 'X'.
  LV_OKCODE                  = 'OK_GO'.
  LV_NEW_ROLLAREA            = 'X'.

  CALL FUNCTION 'MIGO_DIALOG'
    EXPORTING
      I_ACTION            = LV_ACTION
      I_REFDOC            = LV_REFDOC
      I_NOTREE            = LV_NOTREE
      I_NO_AUTH_CHECK     = LV_NO_AUTH_CHECK
      I_SKIP_FIRST_SCREEN = LV_SKIP_FIRST_SCREEN
      I_DEADEND           = LV_DEADEND
      I_OKCODE            = LV_OKCODE
      I_LEAVE_AFTER_POST  = LV_LEAVE_AFTER_POST
      I_NEW_ROLLAREA      = LV_NEW_ROLLAREA
      I_SYTCODE           = LV_SYTCODE
      I_EBELN             = LV_EBELN
      I_EBELP             = LV_EBELP
      I_MBLNR             = LV_MBLNR
      I_MJAHR             = LV_MJAHR
      I_ZEILE             = LV_ZEILE
      I_TRANSPORT         = LV_TRANSPORT
      I_ORDER_NUMBER      = LV_ORDER_NUMBER
      I_ORDER_ITEM        = LV_ORDER_ITEM
      I_TRANSPORT_MEANS   = LV_TRANSPORT_MEANS
      I_TRANSPORTIDENT    = LV_TRANSPORTIDENT
      I_INBOUND_DELIV     = LV_INBOUND_DELIV
      I_OUTBOUND_DELIV    = LV_OUTBOUND_DELIV
      I_RESERVATION_NUMB  = LV_RESERVATION_NUMB
      I_RESERVATION_ITEM  = LV_RESERVATION_ITEM
      EXT                 = LW_EXT
      I_MOVE_TYPE         = LV_MOVE_TYPE
      I_SPEC_STOCK        = LV_SPEC_STOCK
      I_PSTNG_DATE        = LV_PSTNG_DATE
      I_DOC_DATE          = LV_DOC_DATE
      I_REF_DOC_NO        = LV_REF_DOC_NO
      I_HEADER_TXT        = LV_HEADER_TXT
    EXCEPTIONS
      ILLEGAL_COMBINATION = 1
      OTHERS              = 2.

ENDFORM.