批量生成销售订单、退货订单

生成一般销售订单和退货订单所要使用的BAPI不同，

一般销售订单： BAPI_SALESORDER_CREATEFROMDAT2

退货订单： BAPI_CUSTOMERRETURN_CREATE

二者的参数基本一样。

 

以下为例：

  " tables for bapi
DATA: gt_order_header_in   LIKE bapisdhd1.
DATA: gt_order_header_inx  LIKE bapisdhd1x.
DATA: gt_return            LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: gt_message           LIKE TABLE OF bapiret2 WITH HEADER LINE.
DATA: gt_order_items_in    LIKE bapisditm OCCURS 0 WITH HEADER LINE.
DATA: gt_order_items_inx   LIKE bapisditmx OCCURS 0 WITH HEADER LINE.
DATA: gv_salesdocument     LIKE bapivbeln-vbeln.
DATA: gt_order_partners    LIKE bapiparnr OCCURS 0 WITH HEADER LINE.
DATA: gt_schedules_in      LIKE bapischdl  OCCURS 0 WITH HEADER LINE.
DATA: gt_schedules_inx     LIKE bapischdlx OCCURS 0 WITH HEADER LINE.
DATA: gt_order_conditions_in LIKE  bapicond OCCURS 0 WITH HEADER LINE.
DATA: gt_order_conditions_inx  LIKE  bapicondx OCCURS 0 WITH HEADER LINE.
DATA: gt_order_text LIKE  bapisdtext OCCURS 0 WITH HEADER LINE.
DATA: gv_number            TYPE vbap-posnr.


" internal tables
TYPES: BEGIN OF ty_sales_order,
  numbr  TYPE i,          " 序号
  auart  TYPE vbak-auart, " 订单类型
  vkorg  TYPE vbak-vkorg, " 销售组织
  vtweg  TYPE vbak-vtweg, " 分销渠道
  spart  TYPE vbak-spart, " 产品组
  vkbur  TYPE vbak-vkbur, " 销售办公室
  vkgrp  TYPE vbak-vkgrp, " 销售组
  kunag  TYPE vbak-kunnr, " 售达方
  kunwe  TYPE vbak-kunnr, " 送达方
  kunre  TYPE vbak-kunnr, " 收票方
  kunrg  TYPE vbak-kunnr, " 付款方
  matnr  TYPE vbap-matnr, " 物料编码
  kwmeng TYPE vbap-kwmeng," 订单数量
  zieme  TYPE vbap-zieme, " 订单单位
  werks  TYPE vbap-werks, " 生产工厂
  lgort  TYPE vbap-lgort, " 仓库
  kschl  TYPE komv-kschl, " 条件类型
  cond_value TYPE bapicond-cond_value, " 金额
  bstkd  TYPE vbkd-bstkd, "客户采购订单编号
  charg  TYPE vbap-charg, "批次
  route  TYPE vbap-route, "路线
  END OF ty_sales_order.

TYPES:BEGIN OF ty_result,
  numbr  TYPE i,          " 序号
  vbeln  TYPE vbak-vbeln,
  message TYPE bapiret2-message,
  bstkd  TYPE vbkd-bstkd, "客户采购订单编号
  END OF ty_result.

DATA: gs_result          TYPE ty_result.
DATA: gt_result          TYPE TABLE OF ty_result.
DATA: gs_sales_order     TYPE ty_sales_order.
DATA: gt_sales_order     TYPE TABLE OF ty_sales_order.
DATA: gv_error_exit_flag TYPE flag. " whether error exit

DATA: BEGIN OF gt_excel_result OCCURS 0,
        text TYPE string,
      END OF gt_excel_result.

DATA: gt_fcat   TYPE lvc_t_fcat.
FIELD-SYMBOLS:
       TYPE lvc_s_fcat.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
PARAMETERS p_file TYPE  ibipparms-path OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
PARAMETERS p_th AS CHECKBOX. "是否为退货订单

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file .

  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = '*.xls'
      def_path         = 'C:\'
      mask             = ',*.xls.'
      mode             = 'O'
      title            = 'Choose Input file'(002)
    IMPORTING
      filename         = p_file
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.

START-OF-SELECTION.
  " upload excel
  PERFORM process_logic.

*&---------------------------------------------------------------------*
*&      Form  UPLOAD_EXCEL
*&---------------------------------------------------------------------*
*       upload excel
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM process_logic .
  DATA: l_row TYPE i,
        l_text TYPE string.
  " local parameters
  DATA: lt_file TYPE STANDARD TABLE OF alsmex_tabline.
  DATA: ls_file TYPE alsmex_tabline.
  FIELD-SYMBOLS: TYPE ty_sales_order.

  " upload excel with sales order information
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = p_file
      i_begin_col             = 1
      i_begin_row             = 2
      i_end_col               = 37
      i_end_row               = 60000
    TABLES
      intern                  = lt_file
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
  IF sy-subrc <> 0.
    MESSAGE text-t01 TYPE 'E'.
  ELSE.

    " translate data
    LOOP AT lt_file INTO ls_file.
      l_row = ls_file-row + 1.
      CASE ls_file-col.
        WHEN '0001'. "序号
          gs_sales_order-numbr = ls_file-value.
        WHEN '0002'. " 订单类型
          gs_sales_order-auart = ls_file-value.
        WHEN '0003'. " 销售组织
          gs_sales_order-vkorg = ls_file-value.
        WHEN '0004'. " 分销渠道
          gs_sales_order-vtweg = ls_file-value.
        WHEN '0005'. " 产品组
          gs_sales_order-spart = ls_file-value.
        WHEN '0006'. " 销售办公室
          gs_sales_order-vkbur = ls_file-value.
        WHEN '0007'. " 销售组
          gs_sales_order-vkgrp = ls_file-value.
        WHEN '0008'. " 售达方
          gs_sales_order-kunag = ls_file-value.
          CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
            EXPORTING
              input  = gs_sales_order-kunag
            IMPORTING
              output = gs_sales_order-kunag.
        WHEN '0009'. " 送达方
          gs_sales_order-kunwe =   ls_file-value.
          CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
            EXPORTING
              input  = gs_sales_order-kunwe
            IMPORTING
              output = gs_sales_order-kunwe.
        WHEN '0010'. " 收票方
          gs_sales_order-kunre =   ls_file-value.
          CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
            EXPORTING
              input  = gs_sales_order-kunre
            IMPORTING
              output = gs_sales_order-kunre.
        WHEN '0011'. " 付款方
          gs_sales_order-kunrg =   ls_file-value.
          CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
            EXPORTING
              input  = gs_sales_order-kunrg
            IMPORTING
              output = gs_sales_order-kunrg.
        WHEN '0012'. " 物料编码
          gs_sales_order-matnr = ls_file-value.
          " conversion
          IF gs_sales_order-matnr IS NOT INITIAL.
            CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
              EXPORTING
                input  = gs_sales_order-matnr
              IMPORTING
                output = gs_sales_order-matnr.
          ENDIF.
        WHEN '0013'. " 订单数量
          gs_sales_order-kwmeng = ls_file-value.
        WHEN '0014'. " 订单单位
          gs_sales_order-zieme = ls_file-value.
          CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
            EXPORTING
              input    = gs_sales_order-zieme
*             LANGUAGE = SY-LANGU
            IMPORTING
              output   = gs_sales_order-zieme.
        WHEN '0015'. " 工厂
          gs_sales_order-werks = ls_file-value.
        WHEN '0016'. " 仓库
          gs_sales_order-lgort = ls_file-value.
        WHEN '0017'."  条件类型
          gs_sales_order-kschl = ls_file-value.
        WHEN '0018'."  价格
          gs_sales_order-cond_value = ls_file-value.
        WHEN '0019'."采购订单编号
          gs_sales_order-bstkd = ls_file-value.
        WHEN '0020'."批次
          gs_sales_order-charg = ls_file-value.
        WHEN '0021'."路线
          gs_sales_order-route = ls_file-value.
        WHEN OTHERS.
      ENDCASE.

      AT END OF row.
        IF gs_sales_order-numbr = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“序号”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.

        IF gs_sales_order-auart = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“订单类型”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.

        IF gs_sales_order-vkorg = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“销售组织”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.

        IF gs_sales_order-vtweg = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“分销渠道”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.

        IF gs_sales_order-spart = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“产品组”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.

        IF gs_sales_order-vkbur = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“销售办公室”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.

        IF gs_sales_order-matnr = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“物料编码”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.

        IF gs_sales_order-kwmeng = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“订单数量”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.

        IF gs_sales_order-zieme = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“订单单位”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.

        IF gs_sales_order-werks = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“工厂”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.

        IF gs_sales_order-lgort = ''.
          l_text = l_row.
          CONCATENATE '第' l_text '行“库存地”不能为空。' INTO l_text.
          gt_excel_result-text = l_text.
          APPEND gt_excel_result.
        ENDIF.
        APPEND gs_sales_order TO gt_sales_order.
        CLEAR gs_sales_order.
      ENDAT.
    ENDLOOP.

    IF gt_excel_result[] IS NOT INITIAL.
      LOOP AT gt_excel_result.
        WRITE:/ gt_excel_result-text.
      ENDLOOP.
    ELSE.

      SORT  gt_sales_order BY numbr
                              auart " 订单类型
                              vkorg " 销售组织
                              vtweg " 分销渠道
                              spart " 产品组
                              vkbur " 销售办公室
                              vkgrp " 销售组
                              kunag " 售达方
                              kunwe " 送达方
                              kunre " 收票方
                              kunrg. " 付款方

      " build records and calling bapi
      LOOP AT gt_sales_order ASSIGNING .
        gv_number = gv_number + 10.

        " build records
        PERFORM build_records_4_bapi USING .

        " one order with serval items
        AT END OF numbr.

          " build header
          PERFORM build_header_4_bapi USING .

          " call bapi to upload sales order
          PERFORM upload_sales_order_with_bapi  USING .

          CLEAR gv_number.
        ENDAT.

      ENDLOOP.

      " if no error exist , raise report
      IF gv_error_exit_flag IS INITIAL AND gt_result IS NOT INITIAL.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            wait = 'X'.
        PERFORM frm_show_detail.
      ELSEIF gv_error_exit_flag IS NOT INITIAL.
        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
        PERFORM frm_pop_showmessage USING 'E'.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.                    " UPLOAD_EXCEL
*&---------------------------------------------------------------------*
*&      Form  BUILD_RECORDS_4_BAPI
*&---------------------------------------------------------------------*
*       build records for calling bapi
*----------------------------------------------------------------------*
*      -->P_GS_SALES_ORDER  text
*----------------------------------------------------------------------*
FORM build_records_4_bapi  USING    ps_sales_order TYPE ty_sales_order.

  " item data
  CLEAR gt_order_items_in.
  gt_order_items_in-itm_number   = gv_number.
  gt_order_items_in-material     = ps_sales_order-matnr.
  gt_order_items_in-plant        = ps_sales_order-werks.
  gt_order_items_in-store_loc    = ps_sales_order-lgort.
  gt_order_items_in-target_qty   = ps_sales_order-kwmeng.
  gt_order_items_in-target_qu    = ps_sales_order-zieme.
  gt_order_items_in-sales_unit   = ps_sales_order-zieme.
  gt_order_items_in-batch        = ps_sales_order-charg.
  gt_order_items_in-route        = ps_sales_order-route.
  APPEND gt_order_items_in.

  CLEAR gt_order_items_inx.
  gt_order_items_inx-updateflag   = '1'.
  gt_order_items_inx-material     = abap_true.
  gt_order_items_inx-plant        = abap_true.
  gt_order_items_inx-store_loc    = abap_true.
  gt_order_items_inx-target_qty   = abap_true.
  gt_order_items_inx-target_qu    = abap_true.
  gt_order_items_inx-sales_unit   = abap_true.
  gt_order_items_inx-batch        = abap_true.
  gt_order_items_inx-route        = abap_true.
  APPEND gt_order_items_inx.

  " fill schedules
  CLEAR gt_schedules_in.
  gt_schedules_in-itm_number      = gv_number.
  gt_schedules_in-req_qty         = ps_sales_order-kwmeng.
  APPEND gt_schedules_in.

  CLEAR gt_schedules_inx.
  gt_schedules_inx-updateflag      = 'X'.
  gt_schedules_inx-itm_number      = abap_true.
  gt_schedules_inx-req_qty         = abap_true.
  APPEND gt_schedules_inx.

  CLEAR gt_order_conditions_in.
  CLEAR gt_order_conditions_inx.
  IF ps_sales_order-kschl <> ''.

    gt_order_conditions_in-itm_number = gv_number.
    gt_order_conditions_in-cond_type  = ps_sales_order-kschl.  "定价条件
    gt_order_conditions_in-cond_value = ps_sales_order-cond_value.  "价格
    gt_order_conditions_in-currency   = 'CNY'.  "币别
    APPEND gt_order_conditions_in.

    gt_order_conditions_inx-updateflag      = 'X'.
    gt_order_conditions_inx-cond_type  = abap_true.  "定价条件
    gt_order_conditions_inx-cond_value = abap_true.  "价格
    gt_order_conditions_inx-currency   = abap_true.  "币别
    APPEND gt_order_conditions_inx.
  ENDIF.
ENDFORM.                    " BUILD_RECORDS_4_BAPI
*&---------------------------------------------------------------------*
*&      Form  UPLOAD_SALES_ORDER_WITH_BAPI
*&---------------------------------------------------------------------*
*       calling bapi
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM upload_sales_order_with_bapi USING ps_sales_order TYPE ty_sales_order .

  " clear
  CLEAR: gt_return,
         gt_return[],
         gv_salesdocument.
  IF p_th IS INITIAL.
    CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
      EXPORTING
        order_header_in      = gt_order_header_in
        order_header_inx     = gt_order_header_inx
      IMPORTING
        salesdocument        = gv_salesdocument
      TABLES
        return               = gt_return
        order_items_in       = gt_order_items_in
        order_items_inx      = gt_order_items_inx
        order_partners       = gt_order_partners
        order_schedules_in   = gt_schedules_in
        order_schedules_inx  = gt_schedules_inx
        order_conditions_in  = gt_order_conditions_in
        order_conditions_inx = gt_order_conditions_inx.
  ELSE.
    CALL FUNCTION 'BAPI_CUSTOMERRETURN_CREATE'
      EXPORTING
        RETURN_HEADER_IN      = gt_order_header_in
        RETURN_HEADER_INX     = gt_order_header_inx
      IMPORTING
        SALESDOCUMENT        = gv_salesdocument
      TABLES
        return               = gt_return
        RETURN_ITEMS_IN       = gt_order_items_in
        RETURN_ITEMS_INX      = gt_order_items_inx
        RETURN_PARTNERS       = gt_order_partners
        RETURN_SCHEDULES_IN   = gt_schedules_in
        RETURN_SCHEDULES_INX  = gt_schedules_inx
        RETURN_CONDITIONS_IN  = gt_order_conditions_in.
  ENDIF.
  READ TABLE gt_return WITH KEY type = 'E'.
  IF sy-subrc = 0.
    LOOP AT gt_return WHERE  type = 'E'.
      gt_message = gt_return.
      gt_message-message_v4 = ps_sales_order-numbr.
      APPEND gt_message.
    ENDLOOP.
    gv_error_exit_flag = abap_true.
  ELSE.
    IF gv_salesdocument IS NOT INITIAL.
      CLEAR gs_result.
      gs_result-numbr = ps_sales_order-numbr.
      gs_result-vbeln = gv_salesdocument.
      gs_result-bstkd = ps_sales_order-bstkd.
      CONCATENATE '销售订单' gs_result-vbeln '创建成功' INTO gs_result-message.
      APPEND gs_result TO gt_result.
    ENDIF.
  ENDIF.
  " refresh
  PERFORM refresh.
ENDFORM.                    " UPLOAD_SALES_ORDER_WITH_BAPI
*&---------------------------------------------------------------------*
*&      Form  BUILD_HEADER_4_BAPI
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_GS_SALES_ORDER  text
*----------------------------------------------------------------------*
FORM build_header_4_bapi  USING    ps_sales_order TYPE ty_sales_order.
  " build header data
  CLEAR gt_order_header_in.
  gt_order_header_in-doc_type   = ps_sales_order-auart.
  gt_order_header_in-sales_org  = ps_sales_order-vkorg.
  gt_order_header_in-distr_chan = ps_sales_order-vtweg.
  gt_order_header_in-division   = ps_sales_order-spart.
  gt_order_header_in-sales_off  = ps_sales_order-vkbur.
  gt_order_header_in-sales_grp  = ps_sales_order-vkgrp.
  IF ps_sales_order-bstkd IS NOT INITIAL.
    gt_order_header_in-purch_no_c  = ps_sales_order-bstkd.
    gt_order_header_inx-purch_no_c = abap_true.
    gt_order_header_in-purch_no_s  = ps_sales_order-bstkd.
    gt_order_header_inx-purch_no_s = abap_true.
  ENDIF.

  CLEAR gt_order_header_inx.
  gt_order_header_inx-doc_type   = abap_true.
  gt_order_header_inx-sales_org  = abap_true.
  gt_order_header_inx-distr_chan = abap_true.
  gt_order_header_inx-division   = abap_true.
  gt_order_header_inx-sales_off  = abap_true.
  gt_order_header_inx-sales_grp  = abap_true.
  gt_order_header_inx-updateflag = '1'.
  IF ps_sales_order-bstkd IS NOT INITIAL.
    gt_order_header_inx-purch_no_c = abap_true.
    gt_order_header_inx-purch_no_s = abap_true.
  ENDIF.

  " partner function
  CLEAR gt_order_partners.
  gt_order_partners-partn_role   = 'AG'.
  gt_order_partners-partn_numb   = ps_sales_order-kunag.
  APPEND gt_order_partners.

  CLEAR gt_order_partners.
  gt_order_partners-partn_role   = 'WE'.
  gt_order_partners-partn_numb   = ps_sales_order-kunwe.
  APPEND gt_order_partners.

  CLEAR gt_order_partners.
  gt_order_partners-partn_role   = 'RE'.
  gt_order_partners-partn_numb   = ps_sales_order-kunre.
  APPEND gt_order_partners.

  CLEAR gt_order_partners.
  gt_order_partners-partn_role   = 'RG'.
  gt_order_partners-partn_numb   = ps_sales_order-kunrg.
  APPEND gt_order_partners.

ENDFORM.                    " BUILD_HEADER_4_BAPI
*&---------------------------------------------------------------------*
*&      Form  REFRESH
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM refresh .
  CLEAR:
        gt_order_header_in,
        gt_order_header_inx,
        gv_salesdocument,
        gt_return,
        gt_return[],
        gt_order_items_in,
        gt_order_items_in[],
        gt_order_items_inx,
        gt_order_items_inx[],
        gt_order_partners,
        gt_order_partners[],
        gt_schedules_in,
        gt_schedules_in[],
        gt_schedules_inx,
        gt_schedules_inx[],
        gt_order_conditions_in,
        gt_order_conditions_in[],
        gt_order_conditions_inx,
        gt_order_conditions_inx[].
ENDFORM.                    " REFRESH
*&---------------------------------------------------------------------*
*&      Form  FRM_SHOW_DETAIL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_show_detail .


  APPEND INITIAL LINE TO gt_fcat ASSIGNING .
  -fieldname = 'NUMBR'.
  -coltext   = '序号'.

  APPEND INITIAL LINE TO gt_fcat ASSIGNING .
  -fieldname = 'VBELN'.
  -coltext   = '订单号'.

  APPEND INITIAL LINE TO gt_fcat ASSIGNING .
  -fieldname = 'MESSAGE'.
  -coltext   = '消息'.
  APPEND INITIAL LINE TO gt_fcat ASSIGNING .
  -fieldname = 'BSTKD'.
  -coltext   = '采购订单号'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
  it_fieldcat_lvc                   = gt_fcat
  TABLES
    t_outtab                          = gt_result
          .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.
ENDFORM.                    " FRM_SHOW_DETAIL
*&---------------------------------------------------------------------*
*&      Form  FRM_POP_SHOWMESSAGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0899   text
*----------------------------------------------------------------------*
FORM frm_pop_showmessage  USING    p_type TYPE bapi_mtype.
  CALL FUNCTION 'MESSAGES_INITIALIZE'.  "20140213 Chung 消息处理
  LOOP AT gt_message
    WHERE type = p_type.
    CONDENSE gt_message-message_v4.
    CALL FUNCTION 'MESSAGE_STORE'
      EXPORTING
        arbgb                   = gt_message-id
        exception_if_not_active = ' '
        msgty                   = gt_message-type
        msgv1                   = gt_message-message_v1
        msgv2                   = gt_message-message_v2
        msgv3                   = gt_message-message_v3
*       msgv4                   = gt_message-message_v4
        txtnr                   = gt_message-number
        zeile                   = gt_message-message_v4
      EXCEPTIONS
        message_type_not_valid  = 1
        not_active              = 2
        OTHERS                  = 3.
  ENDLOOP.
  CALL FUNCTION 'MESSAGES_SHOW'
    EXCEPTIONS
      inconsistent_range = 1
      no_messages        = 2
      OTHERS             = 3.

ENDFORM.                    " FRM_POP_SHOWMESSAGE