SAP 对销售价格新增的处理

最新推荐文章于 2023-06-25 17:23:51 发布
最新推荐文章于 2023-06-25 17:23:51 发布
阅读量635 收藏
点赞数
分类专栏： SAP ABAP SD 文章标签： 其他 经验分享
gavin-gxh
本文链接：https://blog.csdn.net/xiaofei2008gxh/article/details/123174057
版权
ABAP 同时被 3 个专栏收录
210 篇文章 16 订阅
订阅专栏
SAP
91 篇文章 10 订阅
订阅专栏
SD
45 篇文章 3 订阅
订阅专栏

销售价格新增

同一价格类型的账户有如下情形

如果只是调用SAP 新增价格的方法

不去考虑上述几种情形，将会因为价格冲突而报错

​​​​​​SAP VK13 提示 内部错误:T IVAKE F IVAKE_INSERT I MV130F0I_GAVIN-CSDN博客

插入新价格之前先对上述集中场景进行处理

处理function 如下：

FUNCTION ZRFC_SD_KNA_PART_PRICE_M.
*"----------------------------------------------------------------------
*"*"局部接口：
*"  IMPORTING
*"     VALUE(PDATBI) TYPE  SY-DATUM DEFAULT SY-DATUM
*"     VALUE(KUNNR) TYPE  KUNNR OPTIONAL
*"     VALUE(MATNR) TYPE  MATNR OPTIONAL
*"     VALUE(WAERK) TYPE  WAERK OPTIONAL
*"     VALUE(PDATAB) TYPE  SY-DATUM DEFAULT SY-DATUM
*"     VALUE(COND_TYPE) TYPE  CHAR4 DEFAULT 'ZPR1'
*"     VALUE(TABLE_NO) TYPE  NUMC3 DEFAULT '920'
*"     VALUE(APPLICATIO) TYPE  CHAR1 DEFAULT 'V'
*"     VALUE(COND_USAGE) TYPE  CHAR1 DEFAULT 'A'
*"     VALUE(OPERATION) TYPE  CHAR3 DEFAULT '004'
*"  EXPORTING
*"     VALUE(EV_STATUS) TYPE  ZE_STATUS
*"     VALUE(EV_MESSAGE) TYPE  MSGTXT
*"----------------------------------------------------------------------
  DATA:LA920 LIKE A920 OCCURS 0 WITH HEADER LINE,
          LVALUE TYPE KONP-KBETR,
       WA920 TYPE A920,
          LT_BAPICONDCT  TYPE  BAPICONDCT OCCURS 0  ,  "
          WA_BAPICONDCT  TYPE  BAPICONDCT ,
          LT_BAPICONDHD  TYPE  BAPICONDHD OCCURS 0  ,  "
          WA_BAPICONDHD  TYPE  BAPICONDHD ,
          LT_BAPICONDIT  TYPE  BAPICONDIT OCCURS 0  ,
          WA_BAPICONDIT  TYPE  BAPICONDIT ,
          LT_BAPICONDQS  TYPE  BAPICONDQS OCCURS 0  ,
          WA_BAPICONDQS  TYPE  BAPICONDQS ,
          LT_BAPICONDVS  TYPE  BAPICONDVS OCCURS 0  ,
          WA_BAPICONDVS  TYPE  BAPICONDVS .
  FIELD-SYMBOLS: <FS1> TYPE BAPICONDCT,
                 <FS2> TYPE BAPICONDHD,
                 <FS3> TYPE BAPICONDIT.
  DATA: LT_BAPIRET2 LIKE STANDARD TABLE OF BAPIRET2 WITH HEADER LINE .
  DATA: LT_BAPIKNUMHS TYPE BAPIKNUMHS  OCCURS  0 .
  DATA: LT_MEM_INITIAL TYPE  CND_MEM_INITIAL OCCURS 0 .
  DATA: H_VARKEY(255),
        H_COND_UNIT TYPE MEINS .
  DATA:LKUNNR LIKE KNA1-KUNNR,
        LPDATE LIKE SY-DATUM,
        LMATNR LIKE MARA-MATNR.
  DATA:L_KEY   LIKE BAPICONDCT-VARKEY.

  "1待增加区域 被全包含的即  DATAB  < PDATAB <  PDATBI < DATBI   先删后加
  "2待增加区域 全包含的即 PDATAB  <=  DATAB   <  DATBI <= PDATBI  删除
  "3前面冲突    即 PDATAB  < DATAB  < PDATBI < DATBI   先删后加
  "4尾部冲突    即  DATAB  < PDATAB < DATBI < PDATBI   先删后加

  CLEAR LA920[].

  "$. REGION  1被包含的
  SELECT  * INTO TABLE LA920
  FROM  A920
  WHERE A920~DATBI >= PDATBI AND DATAB <= PDATAB  AND
  MATNR  = MATNR AND KUNNR  = KUNNR AND WAERK  = WAERK AND KSCHL = COND_TYPE AND KAPPL = APPLICATIO.

  LOOP AT LA920[] INTO  WA920.
    CLEAR LT_BAPICONDCT[].CLEAR LT_BAPICONDHD[].CLEAR LT_BAPICONDIT[].
    DATA:LWA920 LIKE WA920.

    SELECT SINGLE KBETR INTO LVALUE
    FROM KONP
    WHERE KONP~KNUMH  = WA920-KNUMH.

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = WA920-KUNNR
      IMPORTING
        OUTPUT = LKUNNR.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = WA920-MATNR
      IMPORTING
        OUTPUT = LMATNR.
    CONCATENATE LKUNNR  LMATNR WAERK INTO H_VARKEY.

    SELECT  SINGLE MEINS FROM MARA
    INTO H_COND_UNIT  WHERE MATNR = LMATNR.

    MOVE WA920 TO LWA920.
    "$. Region 先删除掉
    WA_BAPICONDCT-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDCT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDCT-COND_USAGE = COND_USAGE."'A'.      "条件表用途 ‘A' 定价
    WA_BAPICONDCT-COND_TYPE = COND_TYPE."I_KSCHL.    "定价条件
    WA_BAPICONDCT-OPERATION = '003'."'009'.     "消息功能 ： 003 DEL ; 004 MODIFY ;005 REPLACE 009 INITIAL
*    WA_BAPICONDCT-OPERATION = '004'.         "更改
    WA_BAPICONDCT-VARKEY = H_VARKEY.
    WA_BAPICONDCT-VALID_TO = WA920-DATBI.
    WA_BAPICONDCT-VALID_FROM = WA920-DATAB.
    WA_BAPICONDCT-COND_NO = WA920-KNUMH.   "创建
    APPEND WA_BAPICONDCT TO LT_BAPICONDCT.

    WA_BAPICONDHD-OPERATION = '003'."'009'.
*WA_BAPICONDHD-OPERATION = '004'.
    WA_BAPICONDHD-COND_NO = WA920-KNUMH.
*WA_BAPICONDHD-COND_NO = '0003224015'.
    WA_BAPICONDHD-CREATED_BY = SY-UNAME.
    WA_BAPICONDHD-CREAT_DATE = SY-DATUM.
    WA_BAPICONDHD-COND_USAGE = COND_USAGE."'A'.
    WA_BAPICONDHD-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDHD-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDHD-COND_TYPE = COND_TYPE."I_KSCHL.    "
    WA_BAPICONDHD-VARKEY = H_VARKEY.
    WA_BAPICONDHD-VALID_FROM = WA920-DATAB.
    WA_BAPICONDHD-VALID_TO = WA920-DATBI.

    APPEND WA_BAPICONDHD TO  LT_BAPICONDHD .

    WA_BAPICONDIT-OPERATION = '003'."'009'.
    WA_BAPICONDIT-COND_NO = WA920-KNUMH. "'$000000001'.
    WA_BAPICONDIT-COND_COUNT = '01'.     "条件序列号
    WA_BAPICONDIT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDIT-COND_TYPE =  COND_TYPE."I_KSCHL.    "
    WA_BAPICONDIT-SCALETYPE = 'A'.       "STFKZ STAFFELSOORT
    WA_BAPICONDIT-SCALEBASIN = ''.      "KZBZG TEKEN:REKENEENHEID "  WA_BAPICONDIT-SCALEBASIN = 'C'. 存在数量等级
    WA_BAPICONDIT-SCALE_QTY = '0'.       "KSTBM CONDITIESTAFFELBASIS HOEVEELHEID
    WA_BAPICONDIT-COND_P_UNT = '1'.      "KPEIN PRIJSEENHEID
    WA_BAPICONDIT-COND_UNIT = H_COND_UNIT.      "KMEIN CONDITIE-HOEVEELHEIDSEENHEID
    WA_BAPICONDIT-CALCTYPCON = 'C'.      "KRECH CONDITIE-REKENREGEL
    WA_BAPICONDIT-COND_VALUE = LVALUE.
    WA_BAPICONDIT-CONDCURR = WAERK.

    APPEND  WA_BAPICONDIT  TO LT_BAPICONDIT.

    CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
      EXPORTING
*       PI_INITIALMODE       = ' '
*       PI_BLOCKNUMBER       =
        PI_PHYSICAL_DELETION = 'X'
      TABLES
        TI_BAPICONDCT        = LT_BAPICONDCT
        TI_BAPICONDHD        = LT_BAPICONDHD
        TI_BAPICONDIT        = LT_BAPICONDIT
        TI_BAPICONDQS        = LT_BAPICONDQS
        TI_BAPICONDVS        = LT_BAPICONDVS
        TO_BAPIRET2          = LT_BAPIRET2
        TO_BAPIKNUMHS        = LT_BAPIKNUMHS
        TO_MEM_INITIAL       = LT_MEM_INITIAL
      EXCEPTIONS
        UPDATE_ERROR         = 1
        OTHERS               = 2.
    "$. Endregion 先删除掉
*      加回两头的
    if WA920-DATAB < PDATAB.
      "创建
      CLEAR LT_BAPICONDCT[].CLEAR LT_BAPICONDHD[].CLEAR LT_BAPICONDIT[].
      MOVE WA920 TO LWA920.
      LWA920-DATBI = PDATAB - 1.
      WA_BAPICONDCT-TABLE_NO = TABLE_NO."'941'.
      WA_BAPICONDCT-APPLICATIO = APPLICATIO."'V'.
      WA_BAPICONDCT-COND_USAGE = COND_USAGE."'A'.      "条件表用途 ‘A' 定价
      WA_BAPICONDCT-COND_TYPE = COND_TYPE."I_KSCHL.    "定价条件
      WA_BAPICONDCT-OPERATION = '009'."'009'.     "消息功能 ： 003 DEL ; 004 MODIFY ;005 REPLACE 009 INITIAL
*    WA_BAPICONDCT-OPERATION = '004'.         "更改
      WA_BAPICONDCT-VARKEY = H_VARKEY.
      WA_BAPICONDCT-VALID_TO = LWA920-DATBI.
      WA_BAPICONDCT-VALID_FROM = LWA920-DATAB.

      WA_BAPICONDCT-COND_NO = '$000000001'.   "创建

      APPEND WA_BAPICONDCT TO LT_BAPICONDCT.

      WA_BAPICONDHD-OPERATION = '009'."'009'.
*WA_BAPICONDHD-OPERATION = '004'.
      WA_BAPICONDHD-COND_NO = '$000000001'.
*WA_BAPICONDHD-COND_NO = '0003224015'.
      WA_BAPICONDHD-CREATED_BY = SY-UNAME.
      WA_BAPICONDHD-CREAT_DATE = SY-DATUM.
      WA_BAPICONDHD-COND_USAGE = COND_USAGE."'A'.
      WA_BAPICONDHD-TABLE_NO = TABLE_NO."'941'.
      WA_BAPICONDHD-APPLICATIO = APPLICATIO."'V'.
      WA_BAPICONDHD-COND_TYPE = COND_TYPE."I_KSCHL.    "
      WA_BAPICONDHD-VARKEY = H_VARKEY.
      WA_BAPICONDHD-VALID_FROM = LWA920-DATAB.
      WA_BAPICONDHD-VALID_TO = LWA920-DATBI.

      APPEND WA_BAPICONDHD TO  LT_BAPICONDHD .

      WA_BAPICONDIT-OPERATION = '009'."'009'.
      WA_BAPICONDIT-COND_NO = '$000000001'.
      WA_BAPICONDIT-COND_COUNT = '01'.     "条件序列号
      WA_BAPICONDIT-APPLICATIO = APPLICATIO."'V'.
      WA_BAPICONDIT-COND_TYPE =  COND_TYPE."I_KSCHL.    "
      WA_BAPICONDIT-SCALETYPE = 'A'.       "STFKZ STAFFELSOORT
      WA_BAPICONDIT-SCALEBASIN = ''.      "KZBZG TEKEN:REKENEENHEID "  WA_BAPICONDIT-SCALEBASIN = 'C'. 存在数量等级
      WA_BAPICONDIT-SCALE_QTY = '0'.       "KSTBM CONDITIESTAFFELBASIS HOEVEELHEID
      WA_BAPICONDIT-COND_P_UNT = '1'.      "KPEIN PRIJSEENHEID
      WA_BAPICONDIT-COND_UNIT = H_COND_UNIT.      "KMEIN CONDITIE-HOEVEELHEIDSEENHEID
      WA_BAPICONDIT-CALCTYPCON = 'C'.      "KRECH CONDITIE-REKENREGEL
      WA_BAPICONDIT-COND_VALUE = LVALUE.
      WA_BAPICONDIT-CONDCURR = WAERK.

      APPEND  WA_BAPICONDIT  TO LT_BAPICONDIT.

      CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
        EXPORTING
*         PI_INITIALMODE       = ' '
*         PI_BLOCKNUMBER       =
          PI_PHYSICAL_DELETION = 'X'
        TABLES
          TI_BAPICONDCT        = LT_BAPICONDCT
          TI_BAPICONDHD        = LT_BAPICONDHD
          TI_BAPICONDIT        = LT_BAPICONDIT
          TI_BAPICONDQS        = LT_BAPICONDQS
          TI_BAPICONDVS        = LT_BAPICONDVS
          TO_BAPIRET2          = LT_BAPIRET2
          TO_BAPIKNUMHS        = LT_BAPIKNUMHS
          TO_MEM_INITIAL       = LT_MEM_INITIAL
        EXCEPTIONS
          UPDATE_ERROR         = 1
          OTHERS               = 2.
    endif.

    IF WA920-DATBI > PDATBI.
      "创建
      CLEAR LT_BAPICONDCT[].CLEAR LT_BAPICONDHD[].CLEAR LT_BAPICONDIT[].
      MOVE WA920 TO LWA920.
      LWA920-DATAB = PDATBI + 1.
      WA_BAPICONDCT-TABLE_NO = TABLE_NO."'941'.
      WA_BAPICONDCT-APPLICATIO = APPLICATIO."'V'.
      WA_BAPICONDCT-COND_USAGE = COND_USAGE."'A'.      "条件表用途 ‘A' 定价
      WA_BAPICONDCT-COND_TYPE = COND_TYPE."I_KSCHL.    "定价条件
      WA_BAPICONDCT-OPERATION = '009'."'009'.     "消息功能 ： 003 DEL ; 004 MODIFY ;005 REPLACE 009 INITIAL
*    WA_BAPICONDCT-OPERATION = '004'.         "更改
      WA_BAPICONDCT-VARKEY = H_VARKEY.
      WA_BAPICONDCT-VALID_TO = LWA920-DATBI.
      WA_BAPICONDCT-VALID_FROM = LWA920-DATAB.

      WA_BAPICONDCT-COND_NO = '$000000001'.   "创建

      APPEND WA_BAPICONDCT TO LT_BAPICONDCT.

      WA_BAPICONDHD-OPERATION = '009'."'009'.
*WA_BAPICONDHD-OPERATION = '004'.
      WA_BAPICONDHD-COND_NO = '$000000001'.
*WA_BAPICONDHD-COND_NO = '0003224015'.
      WA_BAPICONDHD-CREATED_BY = SY-UNAME.
      WA_BAPICONDHD-CREAT_DATE = SY-DATUM.
      WA_BAPICONDHD-COND_USAGE = COND_USAGE."'A'.
      WA_BAPICONDHD-TABLE_NO = TABLE_NO."'941'.
      WA_BAPICONDHD-APPLICATIO = APPLICATIO."'V'.
      WA_BAPICONDHD-COND_TYPE = COND_TYPE."I_KSCHL.    "
      WA_BAPICONDHD-VARKEY = H_VARKEY.
      WA_BAPICONDHD-VALID_FROM = LWA920-DATAB.
      WA_BAPICONDHD-VALID_TO = LWA920-DATBI.

      APPEND WA_BAPICONDHD TO  LT_BAPICONDHD .

      WA_BAPICONDIT-OPERATION = '009'."'009'.
      WA_BAPICONDIT-COND_NO = '$000000001'.
      WA_BAPICONDIT-COND_COUNT = '01'.     "条件序列号
      WA_BAPICONDIT-APPLICATIO = APPLICATIO."'V'.
      WA_BAPICONDIT-COND_TYPE =  COND_TYPE."I_KSCHL.    "
      WA_BAPICONDIT-SCALETYPE = 'A'.       "STFKZ STAFFELSOORT
      WA_BAPICONDIT-SCALEBASIN = ''.      "KZBZG TEKEN:REKENEENHEID "  WA_BAPICONDIT-SCALEBASIN = 'C'. 存在数量等级
      WA_BAPICONDIT-SCALE_QTY = '0'.       "KSTBM CONDITIESTAFFELBASIS HOEVEELHEID
      WA_BAPICONDIT-COND_P_UNT = '1'.      "KPEIN PRIJSEENHEID
      WA_BAPICONDIT-COND_UNIT = H_COND_UNIT.      "KMEIN CONDITIE-HOEVEELHEIDSEENHEID
      WA_BAPICONDIT-CALCTYPCON = 'C'.      "KRECH CONDITIE-REKENREGEL
      WA_BAPICONDIT-COND_VALUE = LVALUE.
      WA_BAPICONDIT-CONDCURR = WAERK.

      APPEND  WA_BAPICONDIT  TO LT_BAPICONDIT.

      CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
        EXPORTING
*         PI_INITIALMODE       = ' '
*         PI_BLOCKNUMBER       =
          PI_PHYSICAL_DELETION = 'X'
        TABLES
          TI_BAPICONDCT        = LT_BAPICONDCT
          TI_BAPICONDHD        = LT_BAPICONDHD
          TI_BAPICONDIT        = LT_BAPICONDIT
          TI_BAPICONDQS        = LT_BAPICONDQS
          TI_BAPICONDVS        = LT_BAPICONDVS
          TO_BAPIRET2          = LT_BAPIRET2
          TO_BAPIKNUMHS        = LT_BAPIKNUMHS
          TO_MEM_INITIAL       = LT_MEM_INITIAL
        EXCEPTIONS
          UPDATE_ERROR         = 1
          OTHERS               = 2.

    ENDIF.
  ENDLOOP.

  "$. ENDREGION 被包含的

  CLEAR LA920[].

  "$. REGION 2全包含 PDATAB  <=  DATAB   <  DATBI <= PDATBI  删除
  SELECT  * INTO TABLE LA920
  FROM  A920
  WHERE ( ( A920~DATBI < PDATBI AND DATAB > PDATAB ) or ( A920~DATBI < PDATBI AND DATAB = PDATAB )
    or ( A920~DATBI = PDATBI AND DATAB = PDATAB ) or ( A920~DATBI = PDATBI AND DATAB > PDATAB ) ) AND
  MATNR  = MATNR AND KUNNR  = KUNNR AND WAERK  = WAERK AND KSCHL = COND_TYPE AND KAPPL = APPLICATIO.

  LOOP AT LA920[] INTO  WA920.
    CLEAR LT_BAPICONDCT[].CLEAR LT_BAPICONDHD[].CLEAR LT_BAPICONDIT[].
    OPERATION = '003'.
    SELECT SINGLE KBETR INTO LVALUE
    FROM KONP
    WHERE KONP~KNUMH  = WA920-KNUMH.

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = WA920-KUNNR
      IMPORTING
        OUTPUT = LKUNNR.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = WA920-MATNR
      IMPORTING
        OUTPUT = LMATNR.
    CONCATENATE LKUNNR  LMATNR WAERK INTO H_VARKEY.

    SELECT  SINGLE MEINS FROM MARA
    INTO H_COND_UNIT  WHERE MATNR = LMATNR.

    WA_BAPICONDCT-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDCT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDCT-COND_USAGE = COND_USAGE."'A'.      "条件表用途 ‘A' 定价
    WA_BAPICONDCT-COND_TYPE = COND_TYPE."I_KSCHL.    "定价条件
    WA_BAPICONDCT-OPERATION = OPERATION."'009'.     "消息功能 ： 003 DEL ; 004 MODIFY ;005 REPLACE 009 INITIAL
*    WA_BAPICONDCT-OPERATION = '004'.         "更改
    WA_BAPICONDCT-VARKEY = H_VARKEY.
    WA_BAPICONDCT-VALID_TO = WA920-DATBI.
    WA_BAPICONDCT-VALID_FROM = WA920-DATAB.
    WA_BAPICONDCT-COND_NO = WA920-KNUMH.   "创建
    APPEND WA_BAPICONDCT TO LT_BAPICONDCT.

    WA_BAPICONDHD-OPERATION = OPERATION."'009'.
*WA_BAPICONDHD-OPERATION = '004'.
    WA_BAPICONDHD-COND_NO = WA920-KNUMH.
*WA_BAPICONDHD-COND_NO = '0003224015'.
    WA_BAPICONDHD-CREATED_BY = SY-UNAME.
    WA_BAPICONDHD-CREAT_DATE = SY-DATUM.
    WA_BAPICONDHD-COND_USAGE = COND_USAGE."'A'.
    WA_BAPICONDHD-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDHD-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDHD-COND_TYPE = COND_TYPE."I_KSCHL.    "
    WA_BAPICONDHD-VARKEY = H_VARKEY.
    WA_BAPICONDHD-VALID_FROM = WA920-DATAB.
    WA_BAPICONDHD-VALID_TO = WA920-DATBI.

    APPEND WA_BAPICONDHD TO  LT_BAPICONDHD .

    WA_BAPICONDIT-OPERATION = OPERATION."'009'.
    WA_BAPICONDIT-COND_NO = WA920-KNUMH. "'$000000001'.
    WA_BAPICONDIT-COND_COUNT = '01'.     "条件序列号
    WA_BAPICONDIT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDIT-COND_TYPE =  COND_TYPE."I_KSCHL.    "
    WA_BAPICONDIT-SCALETYPE = 'A'.       "STFKZ STAFFELSOORT
    WA_BAPICONDIT-SCALEBASIN = ''.      "KZBZG TEKEN:REKENEENHEID "  WA_BAPICONDIT-SCALEBASIN = 'C'. 存在数量等级
    WA_BAPICONDIT-SCALE_QTY = '0'.       "KSTBM CONDITIESTAFFELBASIS HOEVEELHEID
    WA_BAPICONDIT-COND_P_UNT = '1'.      "KPEIN PRIJSEENHEID
    WA_BAPICONDIT-COND_UNIT = H_COND_UNIT.      "KMEIN CONDITIE-HOEVEELHEIDSEENHEID
    WA_BAPICONDIT-CALCTYPCON = 'C'.      "KRECH CONDITIE-REKENREGEL
    WA_BAPICONDIT-COND_VALUE = LVALUE.
    WA_BAPICONDIT-CONDCURR = WAERK.

    APPEND  WA_BAPICONDIT  TO LT_BAPICONDIT.

    CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
      EXPORTING
*       PI_INITIALMODE       = ' '
*       PI_BLOCKNUMBER       =
        PI_PHYSICAL_DELETION = 'X'
      TABLES
        TI_BAPICONDCT        = LT_BAPICONDCT
        TI_BAPICONDHD        = LT_BAPICONDHD
        TI_BAPICONDIT        = LT_BAPICONDIT
        TI_BAPICONDQS        = LT_BAPICONDQS
        TI_BAPICONDVS        = LT_BAPICONDVS
        TO_BAPIRET2          = LT_BAPIRET2
        TO_BAPIKNUMHS        = LT_BAPIKNUMHS
        TO_MEM_INITIAL       = LT_MEM_INITIAL
      EXCEPTIONS
        UPDATE_ERROR         = 1
        OTHERS               = 2.
  ENDLOOP.
  "$. ENDREGION 全包含

  CLEAR LA920[].

  "$. REGION 3部分冲突  即  PDATAB  < DATAB  < PDATBI < DATBI  先删除再加回来
  SELECT  * INTO TABLE LA920
  FROM  A920
  WHERE A920~DATBI => PDATBI AND DATAB > PDATAB AND DATAB < PDATBI AND
  MATNR  = MATNR AND KUNNR  = KUNNR AND WAERK  = WAERK AND KSCHL = COND_TYPE AND KAPPL = APPLICATIO.

  LOOP AT LA920[] INTO  WA920.
    CLEAR LT_BAPICONDCT[].CLEAR LT_BAPICONDHD[].CLEAR LT_BAPICONDIT[].
    OPERATION = '003'.
    SELECT SINGLE KBETR INTO LVALUE
    FROM KONP
    WHERE KONP~KNUMH  = WA920-KNUMH.

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = WA920-KUNNR
      IMPORTING
        OUTPUT = LKUNNR.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = WA920-MATNR
      IMPORTING
        OUTPUT = LMATNR.
    CONCATENATE LKUNNR  LMATNR WAERK INTO H_VARKEY.

    SELECT  SINGLE MEINS FROM MARA
    INTO H_COND_UNIT  WHERE MATNR = LMATNR.

    "$. Region 删除
    WA_BAPICONDCT-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDCT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDCT-COND_USAGE = COND_USAGE."'A'.      "条件表用途 ‘A' 定价
    WA_BAPICONDCT-COND_TYPE = COND_TYPE."I_KSCHL.    "定价条件
*    WA_BAPICONDCT-OPERATION = '004'."'009'.     "消息功能 ： 003 DEL ; 004 MODIFY ;005 REPLACE 009 INITIAL
*    WA_BAPICONDCT-OPERATION = '004'.         "更改
    WA_BAPICONDCT-VARKEY = H_VARKEY.
    WA_BAPICONDCT-VALID_TO = WA920-DATBI.
    WA_BAPICONDCT-VALID_FROM = LPDATE.
    WA_BAPICONDCT-COND_NO = WA920-KNUMH.   "创建

    APPEND WA_BAPICONDCT TO LT_BAPICONDCT.

    WA_BAPICONDHD-OPERATION = OPERATION."'009'.
*WA_BAPICONDHD-OPERATION = '004'.
    WA_BAPICONDHD-COND_NO = WA920-KNUMH.
*WA_BAPICONDHD-COND_NO = '0003224015'.
    WA_BAPICONDHD-CREATED_BY = SY-UNAME.
    WA_BAPICONDHD-CREAT_DATE = SY-DATUM.
    WA_BAPICONDHD-COND_USAGE = COND_USAGE."'A'.
    WA_BAPICONDHD-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDHD-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDHD-COND_TYPE = COND_TYPE."I_KSCHL.    "
    WA_BAPICONDHD-VARKEY = H_VARKEY.
      WA_BAPICONDHD-VALID_FROM = WA920-DATAB.
      WA_BAPICONDHD-VALID_TO = WA920-DATBI.
    APPEND WA_BAPICONDHD TO  LT_BAPICONDHD .

    WA_BAPICONDIT-OPERATION = OPERATION."'009'.
    WA_BAPICONDIT-COND_NO = WA920-KNUMH. "'$000000001'.
    WA_BAPICONDIT-COND_COUNT = '01'.     "条件序列号
    WA_BAPICONDIT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDIT-COND_TYPE =  COND_TYPE."I_KSCHL.    "
    WA_BAPICONDIT-SCALETYPE = 'A'.       "STFKZ STAFFELSOORT
    WA_BAPICONDIT-SCALEBASIN = ''.      "KZBZG TEKEN:REKENEENHEID "  WA_BAPICONDIT-SCALEBASIN = 'C'. 存在数量等级
    WA_BAPICONDIT-SCALE_QTY = '0'.       "KSTBM CONDITIESTAFFELBASIS HOEVEELHEID
    WA_BAPICONDIT-COND_P_UNT = '1'.      "KPEIN PRIJSEENHEID
    WA_BAPICONDIT-COND_UNIT = H_COND_UNIT.      "KMEIN CONDITIE-HOEVEELHEIDSEENHEID
    WA_BAPICONDIT-CALCTYPCON = 'C'.      "KRECH CONDITIE-REKENREGEL
    WA_BAPICONDIT-COND_VALUE = LVALUE.
    WA_BAPICONDIT-CONDCURR = WAERK.

    APPEND  WA_BAPICONDIT  TO LT_BAPICONDIT.

    CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
      EXPORTING
*       PI_INITIALMODE       = ' '
*       PI_BLOCKNUMBER       =
        PI_PHYSICAL_DELETION = 'X'
      TABLES
        TI_BAPICONDCT        = LT_BAPICONDCT
        TI_BAPICONDHD        = LT_BAPICONDHD
        TI_BAPICONDIT        = LT_BAPICONDIT
        TI_BAPICONDQS        = LT_BAPICONDQS
        TI_BAPICONDVS        = LT_BAPICONDVS
        TO_BAPIRET2          = LT_BAPIRET2
        TO_BAPIKNUMHS        = LT_BAPIKNUMHS
        TO_MEM_INITIAL       = LT_MEM_INITIAL
      EXCEPTIONS
        UPDATE_ERROR         = 1
        OTHERS               = 2.
     "$. Endregion 删除

    CLEAR LT_BAPICONDCT[].
    CLEAR LT_BAPICONDHD[].CLEAR LT_BAPICONDIT[].
    LPDATE = PDATBI + 1.
    OPERATION  = '009'.

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      INPUT  = WA920-KUNNR
    IMPORTING
      OUTPUT = LKUNNR.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      INPUT  = WA920-MATNR
    IMPORTING
      OUTPUT = LMATNR.
    CONCATENATE LKUNNR  LMATNR WAERK INTO H_VARKEY.

    WA_BAPICONDCT-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDCT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDCT-COND_USAGE = COND_USAGE."'A'.      "条件表用途 ‘A' 定价
    WA_BAPICONDCT-COND_TYPE = COND_TYPE."I_KSCHL.    "定价条件
    WA_BAPICONDCT-OPERATION = OPERATION."'009'.     "消息功能 ： 003 DEL ; 004 MODIFY ;005 REPLACE 009 INITIAL
*    WA_BAPICONDCT-OPERATION = '004'.         "更改
    WA_BAPICONDCT-VARKEY = H_VARKEY.
    WA_BAPICONDCT-VALID_TO = WA920-DATBI.
    WA_BAPICONDCT-VALID_FROM = LPDATE.
    WA_BAPICONDCT-COND_NO = '$000000001'.   "创建

    APPEND WA_BAPICONDCT TO LT_BAPICONDCT.

    WA_BAPICONDHD-OPERATION = OPERATION."'009'.
*WA_BAPICONDHD-OPERATION = '004'.
    WA_BAPICONDHD-COND_NO = '$000000001'.
*WA_BAPICONDHD-COND_NO = '0003224015'.
    WA_BAPICONDHD-CREATED_BY = SY-UNAME.
    WA_BAPICONDHD-CREAT_DATE = SY-DATUM.
    WA_BAPICONDHD-COND_USAGE = COND_USAGE."'A'.
    WA_BAPICONDHD-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDHD-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDHD-COND_TYPE = COND_TYPE."I_KSCHL.    "
    WA_BAPICONDHD-VARKEY = H_VARKEY.
    WA_BAPICONDHD-VALID_TO = WA920-DATBI.
    WA_BAPICONDHD-VALID_FROM = LPDATE.

    APPEND WA_BAPICONDHD TO  LT_BAPICONDHD .

    WA_BAPICONDIT-OPERATION = OPERATION."'009'.
    WA_BAPICONDIT-COND_NO = '$000000001'.
    WA_BAPICONDIT-COND_COUNT = '01'.     "条件序列号
    WA_BAPICONDIT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDIT-COND_TYPE =  COND_TYPE."I_KSCHL.    "
    WA_BAPICONDIT-SCALETYPE = 'A'.       "STFKZ STAFFELSOORT
    WA_BAPICONDIT-SCALEBASIN = ''.      "KZBZG TEKEN:REKENEENHEID "  WA_BAPICONDIT-SCALEBASIN = 'C'. 存在数量等级
    WA_BAPICONDIT-SCALE_QTY = '0'.       "KSTBM CONDITIESTAFFELBASIS HOEVEELHEID
    WA_BAPICONDIT-COND_P_UNT = '1'.      "KPEIN PRIJSEENHEID
    WA_BAPICONDIT-COND_UNIT = H_COND_UNIT.      "KMEIN CONDITIE-HOEVEELHEIDSEENHEID
    WA_BAPICONDIT-CALCTYPCON = 'C'.      "KRECH CONDITIE-REKENREGEL
    WA_BAPICONDIT-COND_VALUE = LVALUE.
    WA_BAPICONDIT-CONDCURR = WAERK.

    APPEND  WA_BAPICONDIT  TO LT_BAPICONDIT.

    CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
    EXPORTING
*       PI_INITIALMODE       = ' '
*       PI_BLOCKNUMBER       =
      PI_PHYSICAL_DELETION = 'X'
    TABLES
      TI_BAPICONDCT        = LT_BAPICONDCT
      TI_BAPICONDHD        = LT_BAPICONDHD
      TI_BAPICONDIT        = LT_BAPICONDIT
      TI_BAPICONDQS        = LT_BAPICONDQS
      TI_BAPICONDVS        = LT_BAPICONDVS
      TO_BAPIRET2          = LT_BAPIRET2
      TO_BAPIKNUMHS        = LT_BAPIKNUMHS
      TO_MEM_INITIAL       = LT_MEM_INITIAL
    EXCEPTIONS
      UPDATE_ERROR         = 1
      OTHERS               = 2.
  ENDLOOP.

  "$. ENDREGION 尾部冲突

  CLEAR LA920[].

  "$. REGION  4部分冲突  即  DATAB  < PDATAB < DATBI < PDATBI   先删除再加回来
  SELECT  * INTO TABLE LA920
  FROM  A920
  WHERE A920~DATBI < PDATBI AND DATAB < PDATAB AND  A920~DATBI > PDATAB AND
  MATNR  = MATNR AND KUNNR  = KUNNR AND WAERK  = WAERK AND KSCHL = COND_TYPE AND KAPPL = APPLICATIO.

  LOOP AT LA920[] INTO  WA920.
    CLEAR LT_BAPICONDCT[].CLEAR LT_BAPICONDHD[].CLEAR LT_BAPICONDIT[].
    SELECT SINGLE KBETR INTO LVALUE
    FROM KONP
    WHERE KONP~KNUMH  = WA920-KNUMH.

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = WA920-KUNNR
      IMPORTING
        OUTPUT = LKUNNR.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = WA920-MATNR
      IMPORTING
        OUTPUT = LMATNR.
    CONCATENATE LKUNNR  LMATNR WAERK INTO H_VARKEY.

    SELECT  SINGLE MEINS FROM MARA
    INTO H_COND_UNIT  WHERE MATNR = LMATNR.

    MOVE WA920 TO LWA920.
    "$. Region 先删除掉
    WA_BAPICONDCT-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDCT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDCT-COND_USAGE = COND_USAGE."'A'.      "条件表用途 ‘A' 定价
    WA_BAPICONDCT-COND_TYPE = COND_TYPE."I_KSCHL.    "定价条件
    WA_BAPICONDCT-OPERATION = '003'."'009'.     "消息功能 ： 003 DEL ; 004 MODIFY ;005 REPLACE 009 INITIAL
*    WA_BAPICONDCT-OPERATION = '004'.         "更改
    WA_BAPICONDCT-VARKEY = H_VARKEY.
    WA_BAPICONDCT-VALID_TO = WA920-DATBI.
    WA_BAPICONDCT-VALID_FROM = WA920-DATAB.
    WA_BAPICONDCT-COND_NO = WA920-KNUMH.   "创建
    APPEND WA_BAPICONDCT TO LT_BAPICONDCT.

    WA_BAPICONDHD-OPERATION = '003'."'009'.
*WA_BAPICONDHD-OPERATION = '004'.
    WA_BAPICONDHD-COND_NO = WA920-KNUMH.
*WA_BAPICONDHD-COND_NO = '0003224015'.
    WA_BAPICONDHD-CREATED_BY = SY-UNAME.
    WA_BAPICONDHD-CREAT_DATE = SY-DATUM.
    WA_BAPICONDHD-COND_USAGE = COND_USAGE."'A'.
    WA_BAPICONDHD-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDHD-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDHD-COND_TYPE = COND_TYPE."I_KSCHL.    "
    WA_BAPICONDHD-VARKEY = H_VARKEY.
    WA_BAPICONDHD-VALID_FROM = WA920-DATAB.
    WA_BAPICONDHD-VALID_TO = WA920-DATBI.

    APPEND WA_BAPICONDHD TO  LT_BAPICONDHD .

    WA_BAPICONDIT-OPERATION = '003'."'009'.
    WA_BAPICONDIT-COND_NO = WA920-KNUMH. "'$000000001'.
    WA_BAPICONDIT-COND_COUNT = '01'.     "条件序列号
    WA_BAPICONDIT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDIT-COND_TYPE =  COND_TYPE."I_KSCHL.    "
    WA_BAPICONDIT-SCALETYPE = 'A'.       "STFKZ STAFFELSOORT
    WA_BAPICONDIT-SCALEBASIN = ''.      "KZBZG TEKEN:REKENEENHEID "  WA_BAPICONDIT-SCALEBASIN = 'C'. 存在数量等级
    WA_BAPICONDIT-SCALE_QTY = '0'.       "KSTBM CONDITIESTAFFELBASIS HOEVEELHEID
    WA_BAPICONDIT-COND_P_UNT = '1'.      "KPEIN PRIJSEENHEID
    WA_BAPICONDIT-COND_UNIT = H_COND_UNIT.      "KMEIN CONDITIE-HOEVEELHEIDSEENHEID
    WA_BAPICONDIT-CALCTYPCON = 'C'.      "KRECH CONDITIE-REKENREGEL
    WA_BAPICONDIT-COND_VALUE = LVALUE.
    WA_BAPICONDIT-CONDCURR = WAERK.

    APPEND  WA_BAPICONDIT  TO LT_BAPICONDIT.

    CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
      EXPORTING
*       PI_INITIALMODE       = ' '
*       PI_BLOCKNUMBER       =
        PI_PHYSICAL_DELETION = 'X'
      TABLES
        TI_BAPICONDCT        = LT_BAPICONDCT
        TI_BAPICONDHD        = LT_BAPICONDHD
        TI_BAPICONDIT        = LT_BAPICONDIT
        TI_BAPICONDQS        = LT_BAPICONDQS
        TI_BAPICONDVS        = LT_BAPICONDVS
        TO_BAPIRET2          = LT_BAPIRET2
        TO_BAPIKNUMHS        = LT_BAPIKNUMHS
        TO_MEM_INITIAL       = LT_MEM_INITIAL
      EXCEPTIONS
        UPDATE_ERROR         = 1
        OTHERS               = 2.
    "$. ENDREGION 尾部冲突
     CLEAR LT_BAPICONDCT[].
    CLEAR LT_BAPICONDHD[].CLEAR LT_BAPICONDIT[].
    LPDATE = PDATAB - 1.
    OPERATION  = '009'.

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = WA920-KUNNR
      IMPORTING
        OUTPUT = LKUNNR.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = WA920-MATNR
      IMPORTING
        OUTPUT = LMATNR.
    CONCATENATE LKUNNR  LMATNR WAERK INTO H_VARKEY.

    SELECT  SINGLE MEINS FROM MARA
    INTO H_COND_UNIT  WHERE MATNR = LMATNR.

    WA_BAPICONDCT-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDCT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDCT-COND_USAGE = COND_USAGE."'A'.      "条件表用途 ‘A' 定价
    WA_BAPICONDCT-COND_TYPE = COND_TYPE."I_KSCHL.    "定价条件
    WA_BAPICONDCT-OPERATION = OPERATION."'009'.     "消息功能 ： 003 DEL ; 004 MODIFY ;005 REPLACE 009 INITIAL
*    WA_BAPICONDCT-OPERATION = '004'.         "更改
    WA_BAPICONDCT-VARKEY = H_VARKEY.
      WA_BAPICONDCT-VALID_TO = LPDATE.
      WA_BAPICONDCT-VALID_FROM = WA920-DATAB.
    WA_BAPICONDCT-COND_NO = '$000000001'.   "创建

    APPEND WA_BAPICONDCT TO LT_BAPICONDCT.

    WA_BAPICONDHD-OPERATION = OPERATION."'009'.
*WA_BAPICONDHD-OPERATION = '004'.
    WA_BAPICONDHD-COND_NO = '$000000001'.
*WA_BAPICONDHD-COND_NO = '0003224015'.
    WA_BAPICONDHD-CREATED_BY = SY-UNAME.
    WA_BAPICONDHD-CREAT_DATE = SY-DATUM.
    WA_BAPICONDHD-COND_USAGE = COND_USAGE."'A'.
    WA_BAPICONDHD-TABLE_NO = TABLE_NO."'941'.
    WA_BAPICONDHD-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDHD-COND_TYPE = COND_TYPE."I_KSCHL.    "
    WA_BAPICONDHD-VARKEY = H_VARKEY.

      WA_BAPICONDHD-VALID_TO = LPDATE.
      WA_BAPICONDHD-VALID_FROM = WA920-DATAB.


    APPEND WA_BAPICONDHD TO  LT_BAPICONDHD .

    WA_BAPICONDIT-OPERATION = OPERATION."'009'.
    WA_BAPICONDIT-COND_NO = '$000000001'.
    WA_BAPICONDIT-COND_COUNT = '01'.     "条件序列号
    WA_BAPICONDIT-APPLICATIO = APPLICATIO."'V'.
    WA_BAPICONDIT-COND_TYPE =  COND_TYPE."I_KSCHL.    "
    WA_BAPICONDIT-SCALETYPE = 'A'.       "STFKZ STAFFELSOORT
    WA_BAPICONDIT-SCALEBASIN = ''.      "KZBZG TEKEN:REKENEENHEID "  WA_BAPICONDIT-SCALEBASIN = 'C'. 存在数量等级
    WA_BAPICONDIT-SCALE_QTY = '0'.       "KSTBM CONDITIESTAFFELBASIS HOEVEELHEID
    WA_BAPICONDIT-COND_P_UNT = '1'.      "KPEIN PRIJSEENHEID
    WA_BAPICONDIT-COND_UNIT = H_COND_UNIT.      "KMEIN CONDITIE-HOEVEELHEIDSEENHEID
    WA_BAPICONDIT-CALCTYPCON = 'C'.      "KRECH CONDITIE-REKENREGEL
    WA_BAPICONDIT-COND_VALUE = LVALUE.
    WA_BAPICONDIT-CONDCURR = WAERK.

    APPEND  WA_BAPICONDIT  TO LT_BAPICONDIT.

    CALL FUNCTION 'BAPI_PRICES_CONDITIONS'
      EXPORTING
*       PI_INITIALMODE       = ' '
*       PI_BLOCKNUMBER       =
        PI_PHYSICAL_DELETION = 'X'
      TABLES
        TI_BAPICONDCT        = LT_BAPICONDCT
        TI_BAPICONDHD        = LT_BAPICONDHD
        TI_BAPICONDIT        = LT_BAPICONDIT
        TI_BAPICONDQS        = LT_BAPICONDQS
        TI_BAPICONDVS        = LT_BAPICONDVS
        TO_BAPIRET2          = LT_BAPIRET2
        TO_BAPIKNUMHS        = LT_BAPIKNUMHS
        TO_MEM_INITIAL       = LT_MEM_INITIAL
      EXCEPTIONS
        UPDATE_ERROR         = 1
        OTHERS               = 2.
  ENDLOOP.

  "$. ENDREGION 尾部冲突

ENDFUNCTION.

gavin_gxh
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
SAP_SD模块销售定价的最全内容
04-20
SAP_SD模块关于销售定价的最全内容!详细介绍了销售定价的逻辑。
po 价格条件表_SAP 销售条件表增强栏位
weixin_39872893的博客
12-19 262
有时遇到一个比较特殊的业务，比如公司间免费订单，既要让价格为0，不读取VK11里创建的价格，又要让公司间的价格读取VK11，这实际上是有矛盾的，也就是说一个订单里面的两行，物料一样，客户一样，就会出现矛盾。于是就可以考虑用销售订单行项目类别来做，翻看后台配置，可以发现销售订单行项目类别栏位PSTYV是支持的，只不过在接口KOMG里面并不存在，这就需要开发去增强配置！首先在后台查看所需要的栏位是否...
SAP VOFM例程定价增强
matinal 當冬夜漸暖 。公众号：matinal
04-07 816
之所以有Fomula存在，是因为在不同的业务场景下，定价过程可能千差万别，但是却可以拆分为一些关键的组成部分，如复制请求、数据传输、要求、公式，每个例程就是一小段专用程序，这些例程程序会被标准程序动态调用：如：PERFORM XXX IN XXXX IF FOUND. 我们可以在例程中编写代码片段，修改运行环境中的数据。1、首先打开事务代码VOFM，然后进入菜单：要求>定价，在打开的 屏幕 的表格输入一条新记录，回车输入开发KEY，回车就新增了一条新的计算方案记录，3、spro进入后台。
SAP 零售商品销售价格存放的TABLE:WKBK和WKBP
ABBYABBIE的专栏
06-09 7561
 
SAP中SD模块的销售价格确定逻辑简析
专注SAP应用技术文章写作，致力于拉近用户与系统间的距离；
05-14 7505
在销售业务中，销售订单项目有一些基本要素，数量，价格，运费，税率等。 在SD模块的销售订单或销售计划协议功能中，这些要素往往通过条件记录的形式来处理。如何理解条件记录？通过价格比较好理解。例如有物料M，其销售给不同客户的价格可能是不一样的。 因此，物料M+客户A＝一个价格；物料M+客户B＝另一个价格。物料销售价格就是一个有条件的记录。那么，在SD模块中，会将条件通过事务VK11录入到系统中。如下图VK13中显示的价格条件记录ZPR2中，体现了客户与物料的组合。当然，价格有效期也需要关注，另外，可能通过价
SAP 销售询报价配置和测试过程
06-02
SAP 销售询报价配置和测试过程。包括系统配置，根据系统配置的测试过程
详细的SAP销售合同配置和操作
06-02
详细的SAP销售合同配置和操作，包括系统配置，合同前后关联和操作
SAP跨公司销售配置与演示
06-30
SAP跨公司销售配置与演示
SAP按销售订单生产和标准结算配置及操作办法
06-27
SAP按销售订单生产和标准结算配置及操作办法
SAPERP销售与分销培训教材SPOOL3.docx
10-25
SAPERP销售与分销培训教材
SAP 销售范围分配定价过程
matinal 當冬夜漸暖 。公众号：matinal
04-13 955
条件技术的有四层结构（方案或程序、条件类型、存取顺序、条件表），在最上一级，SD的销售订单所用条件称为定价过程（Pricing Procedures），MM模块采购订单所用条件称为计算方案（Calculation Schema）、而税收的条件则称为计算程序（Calculation Procedure）。这样在创建销售订单时，就可以根据以上几个要素来确定定价过程，其中确定定价过程来自销售凭证类型的参数，客户的定价过程来自客户的主数据。：维护值在客户主数据销售组织视图→销售标签页→定价/统计组→客户定价过程。
BAPI_SALESORDER_CREATEFROMDAT2创建销售订单（并修改价格）_SAP刘梦_新浪博客
森林木的博客
11-02 1269
只是做个简单记录，用的时候方便copy修改 大致的代码如下： FORM frm_create_so . DATA:lw_show LIKE LINE OF gt_show. FIELD-SYMBOLS LIKE LINE OF gt_show. DATA: l_header_in TYPE bapisdhd1, l_header_in...
SAP接口编程案例 - VBA批量更新销售订单定价类型
王敏的专栏
09-19 1469
碰到一个需求，需要对销售订单的定价类型进行批量更新，对这种临时批量处理，考虑到数据源一般放在 Excel 中，使用 VBA 来调用 BAPI 实现不失为一种快捷的方式。
SAP Pricing doesn't Update
新宾二亮子
09-14 1337
<br />转note 26115.<br /> <br /> <br />Summary   在出口中写程序，完成更新。Symptom<br /><br />A new condition table which uses, for example the terms of payment (ZTERM) as a key field is used. If the terms of payment are changed in the sales order, the corresponding con
SAP-ABAP-销售订单创建，修改完成，保存之后的隐式增强点
Qunending的博客
06-25 1522
SY-MSGID = 'V1' AND SY-MSGNO = '311'.当满足这段代码时开始执行增强逻辑。原来VBAP的数据存在表XVBAP中，可以loop这个表做数据处理，还有一些其他表的数据可以看这个form下面的代码。增强位置： 在包含文件 MV45AF0C_CHANGE_DOCUMENT_CREAT。注意事项： 增强中不能使用COMMIT 提交更新，自己想要更新的数据会随后面的表中表一起更新上去。FORM change_document_create 的第一行创建隐式增强开始写代码。
SAP script 自动创建销售订单机器人，协同Excel
热门推荐
GAVIN
01-25 1万+
sap脚本录制与回放
SAP 领料BAPI BAPI_GOODSMVT_CREATE 提示 短缺未限制使用的SL
GAVIN
03-15 3971
短缺未限制使用的SL 一般是BAPI_GOODSMVT_CREATE的参数 GOODSMVT_ITEM 里面含有待移动数量为0的行项目 但是此次比较特殊 跟了很久 都是这样的问题， 解决方案:BAPI BAPI_GOODSMVT_CREATE的GOODSMVT_ITEM的RES_TYPE 记录类型赋值 FUNCTION ZBOM_MM_CJLL. *"-----------------------------------------------------------...
SAP FI 会计凭证批量创建实现 客户/供应商/资产
GAVIN
09-13 3266
注意：不及时commit的情况下 不会产生会计凭证。双击会计凭照号 用FB03打开会计凭证。统驭科目+特别总账标记 → 总账科目。主要SAP 会计凭证 BAPI。1、检查凭证参数是否有问题。Excel分页签导入格式。2、产生凭证编号并占用。
SAP 批量创建生产订单并下达
GAVIN
03-01 3230
PPORDER 创建 且 下达 CREATE RELEASE
SAP 销售价格新建
最新发布
07-27
对于SAP销售价格的新建，您可以按照以下步骤进行操作： 1. 登录SAP系统，并转到Sales and Distribution模块。 2. 在菜单栏上选择"销售"，然后选择"价格"。 3. 在价格维护屏幕上，选择"新建"按钮以创建新的销售价格...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

gavin_gxh

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值