批量删除销售订单

忘是亡心i 2022-04-13 05:29 219阅读 0赞

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

注：１只能删除自己建立的销售订单

２　自定义报表做做个开关

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

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220413/33cb859a00c141a883faadec2c6751d2.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20220413/d7825d7d5f6c4c4aaac9831ccd1c85ad.png