CONVERT_BDCMSGCOLL_TO_BAPIRET2 - BDC消息转BAPIRET2消息

FORM bdc_transaction USING tcode ctumode.
  DATA: _ret TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.

  REFRESH messtab.
  CALL TRANSACTION tcode USING bdcdata
        MODE   ctumode"A:调试 N:不显示 E:错误时调试
        UPDATE 'A'"A:异步 B:同步 L:本地更新
        MESSAGES INTO messtab.

  LOOP AT messtab WHERE msgtyp = 'S'.
    IF  messtab-msgv1 = '内向交货' OR messtab-msgv3 = '已保存'  .
      gs_do_header-vbeln = messtab-msgv2.
      EXIT.
    ENDIF.
  ENDLOOP.

  CALL FUNCTION 'CONVERT_BDCMSGCOLL_TO_BAPIRET2'
    TABLES
      imt_bdcmsgcoll = messtab
      ext_return     = _ret.

* PERFORM deal_bapi_ret TABLES _ret USING 1 CHANGING g_err_flag.

  REFRESH bdcdata.

ENDFORM.

你可能感兴趣的:(CONVERT_BDCMSGCOLL_TO_BAPIRET2 - BDC消息转BAPIRET2消息)