注：１只能刪除自己建立的銷售訂單

２　自定義報表做做個開關

REPORT  zsdr003z.
TYPE-POOLS: slis.
*----------------------------------------------------------------------*
*  data Declarations
*----------------------------------------------------------------------*
TABLES: vbak.        " Sales Document: Header Data
*----------------------------------------------------------------------*
* table control Output Declarations
*----------------------------------------------------------------------*
TYPES: BEGIN OF tc_0100,
         sel(1),                      " Check box
         vbeln     LIKE vbak-vbeln,      " Sales Order Number
         erdat     LIKE vbak-erdat,      " Sales order creation date
         ernam     LIKE vbak-ernam,
         kunnr     LIKE likp-kunag,      " Sold-to Party
         name1     LIKE kna1-name1,      " Sold-to Company Name
         text(200),
       END OF tc_0100.
DATA: wa_tc_0100 TYPE tc_0100,
      it_tc_0100 TYPE tc_0100 OCCURS 0 WITH HEADER LINE.

DATA g_fieldcat TYPE slis_t_fieldcat_alv.

*----------------------------------------------------------------------*
* Selection Screen
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK params1 WITH FRAME TITLE TEXT-001.
PARAMETER:  s_vkorg LIKE vbak-vkorg DEFAULT '1000' OBLIGATORY MODIF ID s1.  " " Sales Org.
SELECT-OPTIONS:
            s_vtweg FOR vbak-vtweg  OBLIGATORY ,     " Distribution Channel
            s_spart FOR vbak-spart  ,    " Division
            s_auart FOR vbak-auart OBLIGATORY ,        " Order type
            s_erdat FOR vbak-erdat OBLIGATORY, " Sales order creation date
*            s_ERNAM FOR vbak-ERNAM OBLIGATORY , " Sales order creation date
            s_kunnr FOR vbak-kunnr ,        " Sold-to party
            s_vbeln FOR vbak-vbeln OBLIGATORY .        " Sales Order
PARAMETER  p_test AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK params1.
***********************************************************************
*INITIALIZATION.
***********************************************************************
INITIALIZATION.
*  s_auart-sign = 'I'.
*  s_auart-option = 'EQ'.
*  s_auart-low = 'ZC01'.
*  APPEND s_auart.
*  s_auart-low = 'ZC03'.
*  APPEND s_auart.
*  s_auart-low = 'ZC06'.
*  APPEND s_auart.
*  s_auart-low = 'ZC20'.
*  APPEND s_auart.
*  s_vtweg-sign   = 'I'.
*  s_vtweg-option = 'EQ'.
*  s_vtweg-low    = '10'.
*  APPEND s_vtweg.
*  s_vtweg-low    = '20'.
*  APPEND s_vtweg.
*  s_vtweg-low    = '30'.
*  APPEND s_vtweg.
*  s_vtweg-low    = '40'.
*  APPEND s_vtweg.
*----------------------------------------------------------------------*
* Selection Events Processing
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
  PERFORM screen_check.

AT SELECTION-SCREEN.
  CLEAR:   it_tc_0100, wa_tc_0100.
  REFRESH: it_tc_0100.

START-OF-SELECTION.
  PERFORM extract_data.

END-OF-SELECTION.

  DATA: lv_del(1) .
  SELECT SINGLE del INTO lv_del
    from zsdt007 .
  IF lv_del EQ 'X' .
    PERFORM change_sales_orders.
    PERFORM display_mes.
  ELSE .
    MESSAGE '暫不能批量刪除，請聯絡IT部 ZSDT007' TYPE 'W'.
   ENDIF .


*&---------------------------------------------------------------------*
*&      Form  SCREEN_CHECK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM screen_check.
  DATA: l_line TYPE i .
  DESCRIBE TABLE s_erdat LINES l_line.
  IF l_line EQ 0.
    s_erdat-sign   = 'I'.
    s_erdat-option = 'BT'.
    s_erdat-high   = sy-datum.
    s_erdat-low    = sy-datum.
    APPEND s_erdat.
  ENDIF.
  DESCRIBE TABLE s_vtweg LINES l_line.
  IF l_line EQ 0.
  ENDIF.
ENDFORM.                    "SCREEN_CHECK





*&---------------------------------------------------------------------*
*&      Form  extract_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM extract_data.
  DATA: lt_it1   LIKE it_tc_0100 OCCURS 0 WITH HEADER LINE,
        l_chk(1).                                          " for exclude incomplete SO

  SELECT a~vbeln a~erdat a~ernam a~kunnr  INTO CORRESPONDING FIELDS OF TABLE lt_it1
  FROM vbak AS a
  WHERE a~vbeln IN s_vbeln
    AND a~auart IN s_auart
    AND a~vkorg EQ s_vkorg
    AND a~vtweg IN s_vtweg
    AND a~spart IN s_spart
    AND a~erdat IN s_erdat
    AND a~ernam = sy-uname
    AND a~kunnr IN s_kunnr.

    LOOP AT lt_it1.
* get sold-to party company name
      PERFORM get_customer_company_name USING lt_it1-kunnr CHANGING lt_it1-name1.
      MODIFY lt_it1.
    ENDLOOP.
    it_tc_0100[] = lt_it1[].
ENDFORM.                    "extract_data
*&---------------------------------------------------------------------*
*&      Form  GET_CUSTOMER_COMPANY_NAME
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->F_KUNNR    text
*      -->F_NAME     text
*----------------------------------------------------------------------*
FORM get_customer_company_name USING f_kunnr CHANGING f_name.
  CLEAR f_name.
  SELECT SINGLE name1 INTO f_name
  FROM kna1
  WHERE kunnr = f_kunnr.
ENDFORM.                    "GET_CUSTOMER_COMPANY_NAME
*&---------------------------------------------------------------------*
*&      Form  change_sales_orders
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM change_sales_orders.
  DATA: lt_order_header_in  LIKE bapisdh1,
        lt_order_header_inx LIKE bapisdh1x,
        lt_return           LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
        lt_order_item_in    LIKE bapisditm OCCURS 0 WITH HEADER LINE,
        lt_order_item_inx   LIKE bapisditmx OCCURS 0 WITH HEADER LINE,
        cp_eind(1).

  SORT it_tc_0100 BY vbeln.
  DELETE ADJACENT DUPLICATES FROM it_tc_0100.

  LOOP AT it_tc_0100.
    CLEAR:   lt_order_header_inx,lt_order_item_in, lt_order_item_inx, lt_return,cp_eind.
    REFRESH: lt_order_item_in, lt_order_item_inx, lt_return.
    lt_order_header_inx-updateflag = 'D'.
    IF p_test NE 'X'.
      CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
        EXPORTING
          salesdocument    = it_tc_0100-vbeln
*         ORDER_HEADER_IN  = LT_ORDER_HEADER_IN
          order_header_inx = lt_order_header_inx
        TABLES
          return           = lt_return.
* 處理錯誤訊息:通過判斷訊息的型別，來判斷BAPI是否成功
      LOOP AT lt_return .
        IF lt_return-type EQ 'E' OR
            lt_return-type = 'A' OR
            lt_return = 'X'.
          cp_eind = 'X'.  "失敗
          it_tc_0100-text = lt_return-message.
        ENDIF.
      ENDLOOP.
      IF cp_eind NE 'X'.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            wait = 'X'.
      ELSE.
        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      ENDIF.
    ENDIF.
    IF  cp_eind NE 'X' AND sy-subrc = 0.
      IF p_test = 'X'.
        it_tc_0100-text = 'Test successfully.'.

      ELSE.
        it_tc_0100-text = 'Delete successfully.'.
      ENDIF.
    ELSE.
      CONCATENATE  it_tc_0100-text '---' 'Delete error.' INTO it_tc_0100-text.
    ENDIF.
    MODIFY it_tc_0100.
  ENDLOOP.
ENDFORM.                    "change_sales_orders


*&---------------------------------------------------------------------*
*&      Form  init_fieldedi
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_P_FIELDTAB  text
*----------------------------------------------------------------------*
FORM init_fieldedi USING p_p_fieldtab TYPE slis_t_fieldcat_alv.
  DATA: l_fieldcat TYPE slis_fieldcat_alv.
  REFRESH  p_p_fieldtab.
  CLEAR l_fieldcat.
  l_fieldcat-fieldname  = 'VBELN'.
  l_fieldcat-seltext_m = 'ORDER NUMBER'.
  l_fieldcat-outputlen = 10.
  APPEND l_fieldcat TO p_p_fieldtab.
  CLEAR l_fieldcat.
  l_fieldcat-fieldname  = 'ERDAT'.
  l_fieldcat-seltext_m = 'Create Date'.
  l_fieldcat-ref_fieldname = 'ERDAT'.
  l_fieldcat-ref_tabname = 'VBAK'.
  l_fieldcat-outputlen = 10.
  APPEND l_fieldcat TO p_p_fieldtab.
  CLEAR l_fieldcat.
  l_fieldcat-fieldname  = 'ERNAM'.
  l_fieldcat-seltext_m = 'Input Person'.
  l_fieldcat-ref_fieldname = 'ERDAT'.
  l_fieldcat-ref_tabname = 'VBAK'.
  l_fieldcat-outputlen = 10.
  APPEND l_fieldcat TO p_p_fieldtab.
  CLEAR l_fieldcat.
  l_fieldcat-fieldname  = 'KUNNR'.
  l_fieldcat-seltext_m = 'Sold Code'.
  l_fieldcat-ref_fieldname = 'KUNNR'.
  l_fieldcat-ref_tabname = 'VBAK'.
  l_fieldcat-outputlen = 10.
  APPEND l_fieldcat TO p_p_fieldtab.

  CLEAR l_fieldcat.
  l_fieldcat-fieldname  = 'NAME1'.
  l_fieldcat-seltext_m = 'Sold Name1'.
  l_fieldcat-outputlen = 35.
  APPEND l_fieldcat TO p_p_fieldtab.

  CLEAR l_fieldcat.
  l_fieldcat-fieldname  = 'TEXT'.
  l_fieldcat-seltext_m = 'Message'.
  l_fieldcat-outputlen = 120.
  APPEND l_fieldcat TO p_p_fieldtab.

ENDFORM.                               " INITIALIZE_FIELDEDI
*&---------------------------------------------------------------------*
*&      Form  display_mes
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM display_mes .
  PERFORM init_fieldedi USING g_fieldcat[].
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      it_fieldcat        = g_fieldcat[]
      i_save             = 'A'
      i_default          = 'A'
    TABLES
      t_outtab           = it_tc_0100.
ENDFORM.                    " display_mes