change SO sales organization and price procedure

最新推荐文章于 2025-08-30 14:48:48 发布

原创最新推荐文章于 2025-08-30 14:48:48 发布 · 788 阅读

0 ·

CC 4.0 BY-SA版权

SAP_ABAPER 专栏收录该内容

6 篇文章

订阅专栏

REPORT  ZSD01                               .
TABLES: VBAP.

SELECT-OPTIONS:S_VBELN FOR VBAP-VBELN.
PARAMETERS: P_VKORG LIKE VBAK-VKORG DEFAULT '3000',
         P_VTWEG LIKE VBAK-VTWEG DEFAULT '01',
         P_BUKRS LIKE VBAK-BUKRS_VF DEFAULT '3000',
         P_KALSM LIKE VBAK-KALSM DEFAULT 'ZASAT1',
         P_BATCH LIKE VBAK-KALSM_CH,
         P_TEST AS CHECKBOX DEFAULT 'X'.

START-OF-SELECTION.
  PERFORM SUB_GET_DATA.
*&---------------------------------------------------------------------*
*&    Form  SUB_GET_DATA
*&---------------------------------------------------------------------*
*    text
*----------------------------------------------------------------------*
*  -->  p1       text
*  <--  p2       text
*----------------------------------------------------------------------*
FORM SUB_GET_DATA .
  DATA: LT_VBAK LIKE TABLE OF VBAK WITH HEADER LINE.
  SELECT * INTO TABLE LT_VBAK
   FROM VBAK
   WHERE VBELN IN S_VBELN.
  LOOP AT LT_VBAK.
IF P_VKORG IS NOT INITIAL.
   LT_VBAK-VKORG = P_VKORG.
ENDIF.
IF P_BUKRS IS NOT INITIAL.
   LT_VBAK-BUKRS_VF = P_BUKRS.
ENDIF.
IF P_KALSM IS NOT INITIAL.
   LT_VBAK-KALSM = P_KALSM.
ENDIF.
IF P_BATCH IS NOT INITIAL.
   LT_VBAK-KALSM_CH = P_BATCH.
ENDIF.
IF P_VTWEG IS NOT INITIAL.
   LT_VBAK-VTWEG = P_VTWEG.
ENDIF.
UPDATE VBAK FROM LT_VBAK.
  ENDLOOP.

  IF SY-SUBRC = 0 AND P_TEST IS INITIAL.
COMMIT WORK.
IF SY-SUBRC = 0.
   MESSAGE I001(00) WITH 'UPDATE SUCCESSFULLY'.
ENDIF.
  ENDIF.

ENDFORM.                   " SUB_GET_DATA