服务确定撤销/删除/关闭 (ml81n)

FUNCTION zrfc_mm006.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(CALLNO) TYPE  ZCALLNO
*"     VALUE(SHEET_NO) LIKE  ESSR-LBLNI OPTIONAL
*"     VALUE(BLDAT) LIKE  ESSR-BLDAT DEFAULT SY-DATUM
*"     VALUE(BUDAT) LIKE  ESSR-BUDAT DEFAULT SY-DATUM
*"     VALUE(OPERATE) TYPE  CHAR1
*"     VALUE(EBELN) LIKE  BAPIESSRC-PO_NUMBER OPTIONAL
*"     VALUE(EBELP) LIKE  BAPIESSRC-PO_ITEM OPTIONAL
*"  EXPORTING
*"     VALUE(E_SHEET_NO) LIKE  ESSR-LBLNI
*"     VALUE(FLAG) LIKE  BAPIRET2-TYPE
*"     VALUE(MESSAGE) LIKE  BAPIRET2-MESSAGE
*"----------------------------------------------------------------------
*备注:删除服务确定表单，必须先撤销 .

DATA:   lv_row         LIKE essr-lblni,
        lv_message     LIKE bapiret2-message.
DATA    lv_datano      TYPE zdatano.
DATA    lv_mode        TYPE char1 VALUE \'N\'.
DATA    ls_sheetheader TYPE bapiessrc.

*******数据检查
IF operate = \'R\' OR operate = \'D\'.
    IF sheet_no IS INITIAL.
      flag = \'E\'.
      message = \'请输入确定表单号\'.
      RETURN.
    ENDIF.
ELSEIF operate = \'F\'.
    IF ebeln IS INITIAL OR ebelp IS INITIAL .
      flag = \'E\'.
      message = \'请输入采购订单和项目\'.
      RETURN.
    ENDIF.
ENDIF.

******撤销服务确定表单
IF operate = \'R\'.

PERFORM bdc_dynpro      USING \'SAPLMLSR\' \'0400\'.
PERFORM bdc_field       USING \'BDC_OKCODE\'
                              \'=SELP\'.
PERFORM bdc_field       USING \'BDC_CURSOR\'
                              \'RM11P-NEW_ROW\'.
PERFORM bdc_field       USING \'RM11P-NEW_ROW\'
                              lv_row.
PERFORM bdc_dynpro      USING \'SAPLMLSR\' \'0340\'.
PERFORM bdc_field       USING \'BDC_CURSOR\'
                              \'RM11R-LBLNI\'.
PERFORM bdc_field       USING \'BDC_OKCODE\'
                              \'=ENTE\'.
PERFORM bdc_field       USING \'RM11R-LBLNI\'
                              sheet_no.
PERFORM bdc_dynpro      USING \'SAPLMLSR\' \'0400\'.
PERFORM bdc_field       USING \'BDC_OKCODE\'
                              \'=AKCH\'.
PERFORM bdc_field       USING \'BDC_CURSOR\'
                              \'RM11P-NEW_ROW\'.
PERFORM bdc_field       USING \'RM11P-NEW_ROW\'
                              lv_row.
PERFORM bdc_dynpro      USING \'SAPLMLSR\' \'0400\'.
PERFORM bdc_field       USING \'BDC_OKCODE\'
                              \'=ACCR\'.
PERFORM bdc_field       USING \'BDC_CURSOR\'
                              \'RM11P-NEW_ROW\'.
PERFORM bdc_field       USING \'RM11P-NEW_ROW\'
                              lv_row.
PERFORM bdc_dynpro      USING \'SAPLMLSR\' \'0400\'.
PERFORM bdc_field       USING \'BDC_OKCODE\'
                              \'=SAVE\'.
PERFORM bdc_field       USING \'BDC_CURSOR\'
                              \'RM11P-NEW_ROW\'.
PERFORM bdc_field       USING \'RM11P-NEW_ROW\'
                              lv_row.
PERFORM bdc_dynpro      USING \'SAPLSPO1\' \'0300\'.
PERFORM bdc_field       USING \'BDC_OKCODE\'
                              \'=YES\'.
PERFORM bdc_dynpro      USING \'SAPLMLSR\' \'0110\'.
PERFORM bdc_field       USING \'BDC_CURSOR\'
                              \'IMKPF-BUDAT\'.
PERFORM bdc_field       USING \'BDC_OKCODE\'
                              \'=ENTE\'.
PERFORM bdc_field       USING \'IMKPF-BLDAT\'
                              bldat.
PERFORM bdc_field       USING \'IMKPF-BUDAT\'
                              budat.
REFRESH messtab.

CALL TRANSACTION \'ML81N\' USING bdcdata
                 MODE   lv_mode
                 UPDATE \'L\'
                 MESSAGES INTO messtab.

CLEAR gt_return.
CALL FUNCTION \'CONVERT_BDCMSGCOLL_TO_BAPIRET2\'
 TABLES
   imt_bdcmsgcoll       = messtab
   ext_return           = gt_return.

******删除已撤销的服务确定表单
ELSEIF operate = \'D\'.
   CLEAR: gt_return.
   CALL FUNCTION \'BAPI_ENTRYSHEET_DELETE\'
     EXPORTING
       entrysheet       = sheet_no
     TABLES
       return           = gt_return.

******关闭服务采购订单
ELSEIF operate = \'F\'.
ls_sheetheader-po_number = ebeln.          "采购订单
ls_sheetheader-po_item   = ebelp.          "采购订单行项目
ls_sheetheader-doc_date  = bldat.          "凭证日期
ls_sheetheader-post_date = budat.          "过账日期
ls_sheetheader-fin_entry = \'F\'.            "标识：关闭
CLEAR gt_return.
CALL FUNCTION \'BAPI_ENTRYSHEET_CREATE\'
  EXPORTING
    entrysheetheader                  = ls_sheetheader
 IMPORTING
    entrysheet                        = e_sheet_no
  TABLES
    return                            = gt_return.
ENDIF.

******返回消息处理
  CLEAR:gs_return, message, lv_message.
  READ TABLE gt_return INTO gs_return WITH KEY type = \'E\'.
  IF sy-subrc NE 0.
    flag =  \'S\'.
    IF  operate = \'R\'.
        CONCATENATE \'服务确认表单：\' sheet_no \' 撤销成功\' INTO message.
        ELSEIF operate = \'D\'.
        CONCATENATE \'表单确认表单：\' sheet_no \' 删除成功\' INTO message.
    ENDIF.

  ELSE.
    LOOP AT gt_return INTO gs_return WHERE type CA \'AEX\'.
        MESSAGE ID     gs_return-id
                TYPE   gs_return-type
                NUMBER gs_return-number
                WITH   gs_return-message_v1 gs_return-message_v2
                       gs_return-message_v3 gs_return-message_v4
                       INTO lv_message.
        CONCATENATE message lv_message INTO message SEPARATED BY \'｜\'.
    ENDLOOP.
    SHIFT message LEFT DELETING LEADING  \'｜\'.
    flag = \'E\'.

  ENDIF.

    CLEAR:gt_log,gs_log.
    lv_datano     = lv_datano + 1.
    gs_log-datano = lv_datano.
    gs_log-name   = \'ZRFC_MM006\'.
    gs_log-cdate  = sy-datum.
    GET TIME.
    gs_log-ctime  = sy-uzeit.
    gs_log-callno = callno.
    gs_log-flag   = flag.
    gs_log-log    = message.
    CONCATENATE sheet_no  bldat  budat  operate ebeln ebelp e_sheet_no
    INTO gs_log-content.
    CONDENSE gs_log-content NO-GAPS.
    gs_log-length = STRLEN( gs_log-content ).
    APPEND gs_log TO gt_log.

   IF gt_log IS NOT INITIAL.
     INSERT zrfc_mm01in_log FROM TABLE gt_log.
     IF sy-subrc = 0.
       COMMIT WORK.
     ENDIF.
   ENDIF.

ENDFUNCTION.