设为首页收藏本站

SAP Best Business Solution

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 512|回复: 0

change SO sales organization and price procedure

[复制链接]

23

主题

23

帖子

192

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
192
发表于 2018-3-9 11:49:35 | 显示全部楼层 |阅读模式
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

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则



QQ|Archiver|手机版|小黑屋|www.sapbbs.com    

GMT+8, 2018-4-23 11:34 , Processed in 0.437533 second(s), 30 queries .

声明:本站严禁任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论!

本站内容由网友原创或转载,如果侵犯了您的合法权益,请及时联系处理!© admin@sapbbs.com

快速回复 返回顶部 返回列表