C223 生产版本BAPI

斌将军

已于 2023-11-22 10:17:00 修改

阅读量2.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAP 文章标签： ABAP

于 2022-10-20 10:38:19 首次发布

本文链接：https://blog.youkuaiyun.com/BinGeneral/article/details/127422257

ABAP 专栏收录该内容

130 篇文章

订阅专栏

该篇博客详细介绍了如何在SAP系统中使用事务代码C223和函数CM_FV_PROD_VERS_DB_UPDATE来维护生产版本数据。通过示例代码展示了如何查询、更新或插入物料、工厂和生产版本信息，并执行事务处理确保数据一致性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、事务代码：C223

2、调用函数CM_FV_PROD_VERS_DB_UPDATE

"-----------------------------@斌将军-----------------------------
DATA:lt_mkal_i    TYPE TABLE OF mkal,
     lt_mkal_u    TYPE TABLE OF mkal,
     lt_mkal_d    TYPE TABLE OF mkal,
     ls_mkal      TYPE mkal,
     lt_mkal_aend TYPE TABLE OF mkal_aend,
     ls_mkal_aend TYPE mkal_aend.

SELECT
  matnr,
  werks,
  verid
FROM mkal
INTO TABLE @DATA(lt_makl)
FOR ALL ENTRIES IN @t_input
WHERE matnr = @t_input-matnr
  AND werks = @t_input-werks
  AND verid = @t_input-verid.

SORT lt_makl BY matnr werks verid.

SELECT
  *
FROM mkal_aend
INTO TABLE @DATA(lt_aend)
FOR ALL ENTRIES IN @t_input
WHERE matnr = @t_input-matnr
  AND werks = @t_input-werks
  AND verid = @t_input-verid.

SORT lt_aend BY matnr werks verid zaehl DESCENDING.

CLEAR:ls_mkal.
ls_mkal-matnr = '000000160000000019'."LV_MATNR."物料编号
ls_mkal-werks = '1011'."IS_MKAL-WERKS."工厂
ls_mkal-verid = 'JS20'."IS_MKAL-VERID."生产版本
ls_mkal-text1 = '333333'."IS_MKAL-TEXT1."生产版本的短文本
ls_mkal-bdatu = '99991231'."IS_MKAL-BDATU."生产版本的有效期截止日期
ls_mkal-adatu = sy-datum."IS_MKAL-ADATU."生产版本的有效期起始日期
ls_mkal-stlal = '01'."IS_MKAL-STLAL."可选的 BOM
ls_mkal-stlan = '1'."IS_MKAL-STLAN."BOM 用途
ls_mkal-plnty = 'N'."IS_MKAL-PLNTY."任务清单类型
ls_mkal-plnnr = '50000357'."IS_MKAL-PLNNR."任务清单组键值
ls_mkal-alnal = '1'."IS_MKAL-ALNAL."组计数器
*  LS_MKAL-SERKZ = ''."IS_MKAL-SERKZ."版本允许的重复制造
*  LS_MKAL-MDV01 = ''."IS_MKAL-MDV01."用于重复制造的生产线
*  LS_MKAL-ELPRO = ''."IS_MKAL-ELPRO."对组件提出发货仓储地点
*  LS_MKAL-ALORT = ''."IS_MKAL-ALORT."重复生产的收货库存地点
ls_mkal-prfg_f = '1'."检查生产版本的状态
ls_mkal-prfg_s = '1'."BOM - 检查生产版本的状态
*ls_mkal-PRFG_R = '1'."重复生产的收货库存地点
*ls_mkal-PRFG_G = '1'."重复生产的收货库存地点
ls_mkal-prdat = sy-datum."出品版本的最后测试日期
ls_mkal-bstma = 99999999."截至批量大小

READ TABLE lt_makl INTO DATA(ls_makl) WITH KEY matnr = '000000160000000019'
                                                werks = '1011'
                                                verid = 'JS20' BINARY SEARCH.
IF sy-subrc EQ 0."存在就更新
  APPEND ls_mkal TO lt_mkal_u.

  READ TABLE lt_aend INTO DATA(ls_aend) WITH KEY matnr = '000000160000000019'
                                                  werks = '1011'
                                                  verid = 'JS20' BINARY SEARCH.
  IF sy-subrc EQ 0.
    CLEAR:ls_mkal_aend.
    ls_mkal_aend-matnr = ls_aend-matnr."物料编号
    ls_mkal_aend-werks = ls_aend-werks."工厂
    ls_mkal_aend-verid = ls_aend-verid."生产版本
    ls_mkal_aend-zaehl = ls_aend-zaehl + 1."计数参数

    ls_mkal_aend-datuv = ls_mkal-adatu."有效起始日期
    ls_mkal_aend-datub = ls_mkal-bdatu."有效截止日期
    ls_mkal_aend-andat = ls_aend-andat."日期记录创建于
    ls_mkal_aend-annam = ls_aend-annam."创建记录的用户
    ls_mkal_aend-aedat = sy-datum."上次更改日期
    ls_mkal_aend-aenam = sy-uname."更改对象的人员姓名
    ls_mkal_aend-vbkz = 'U'."
  ENDIF.
  APPEND ls_mkal_aend TO lt_mkal_aend.

ELSE."不存在就创建
  APPEND ls_mkal TO lt_mkal_i.

  CLEAR:ls_mkal_aend.
  ls_mkal_aend-matnr = '000000160000000019'."物料编号
  ls_mkal_aend-werks = '1011'."工厂
  ls_mkal_aend-verid = 'JS20'."生产版本
  ls_mkal_aend-zaehl = 1."计数参数

  ls_mkal_aend-datuv = ls_mkal-adatu."有效起始日期
  ls_mkal_aend-datub = ls_mkal-bdatu."有效截止日期
  ls_mkal_aend-andat = sy-datum."日期记录创建于
  ls_mkal_aend-annam = sy-uname."创建记录的用户
  ls_mkal_aend-vbkz = 'I'."
  APPEND ls_mkal_aend TO lt_mkal_aend.

ENDIF.

CALL FUNCTION 'CM_FV_PROD_VERS_DB_UPDATE'
  TABLES
    it_mkal_i    = lt_mkal_i "创建
    it_mkal_u    = lt_mkal_u "修改
    it_mkal_d    = lt_mkal_d "删除
    it_mkal_aend = lt_mkal_aend.

*DATA(gv_info) = TEXT-002.
IF sy-subrc EQ 0.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
*    ES_RETURN-RETYP = 'S'.
*    ES_RETURN-REMSG = '生产版本修改成功'.
  WRITE:'success'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
*    ES_RETURN-RETYP = 'E'.
*    ES_RETURN-REMSG = GV_INFO.
*  WRITE:gv_info.
ENDIF.
"-----------------------------@斌将军-----------------------------

定期更文，欢迎关注