C223 生产版本BAPI

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.
"-----------------------------@斌将军-----------------------------

定期更文，欢迎关注

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

 

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back