SHDB 录屏

  2. DATA: BEGIN OF ls_data,
  3.         matnr TYPE mara-matnr, " 物料
  4.         werks TYPE marc-werks, " 工厂
  5.         verid TYPE mkal-verid, " 生产版本
  6.         adatu TYPE mkal-adatu, " 有效期自
  7.         bdatu TYPE mkal-bdatu, " 有效期至
  8.         stlal TYPE mkal-stlal, " 最小批量大小
  9.         stlan TYPE mkal-stlan, " 最大批量大小
  10.       END OF ls_data.
  12. ls_data = VALUE #(
  13.    matnr = 'EODJ30556-A01'
  14.    werks = '1000'
  15.    verid = '010'
  16.    adatu = '20220614'
  17.    bdatu = '20220615'
  18.    stlal = '10'
  19.    stlan = '5'
  20. ).
  22. " BDC 创建生产版本
  23. DATA: lt_bdcdata TYPE TABLE OF bdcdata,    " BDC执行内表
  24.       lt_msgtab  TYPE TABLE OF bdcmsgcoll, " BDC返回信息表
  25.       lv_message TYPE string.
  26. DATA: lc_mode TYPE c VALUE 'A'.            " BDC运行模式
  28. " SHDB 录屏
  30. " bdc_dynpro
  31. APPEND VALUE #( program = 'SAPLCMFV' dynpro = '1000' dynbegin = 'X' ) TO lt_bdcdata.
  32. " bdc field
  33. APPEND VALUE #( fnam = 'MKAL-WERKS' fval = |{ ls_data-matnr }| ) TO lt_bdcdata.         " 工厂
  34. APPEND VALUE #( fnam = 'MKAL-MATNR' fval = |{ ls_data-werks }| ) TO lt_bdcdata.         " 物料
  35. APPEND VALUE #( fnam = 'MKAL_ADMIN-STTAG' fval = |{ sy-datum }| )     TO lt_bdcdata.
  36. APPEND VALUE #( fnam = 'BDC_OKCODE' fval = '=ENTE' )                  TO lt_bdcdata.
  38. APPEND VALUE #( program = 'SAPLCMFV' dynpro = '1000' dynbegin = 'X' ) TO lt_bdcdata.
  40. APPEND VALUE #( fnam = 'MKAL_EXPAND-MATNR(01)' fval = |{ ls_data-matnr }| ) TO lt_bdcdata.   " 物料
  41. APPEND VALUE #( fnam = 'MKAL_EXPAND-VERID(01)' fval = |{ ls_data-verid }| ) TO lt_bdcdata.   " 生产版本
  42. APPEND VALUE #( fnam = 'MKAL_EXPAND-TEXT1(01)' fval = |Generated Version| ) TO lt_bdcdata.
  43. APPEND VALUE #( fnam = 'MKAL_EXPAND-ADATU(01)' fval = |{ ls_data-adatu }| ) TO lt_bdcdata.   " 有效期自
  44. APPEND VALUE #( fnam = 'MKAL_EXPAND-BDATU(01)' fval = |{ ls_data-bdatu }| ) TO lt_bdcdata.   " 有效期至
  45. APPEND VALUE #( fnam = 'MKAL_EXPAND-STLAL(01)' fval = |{ ls_data-stlal }| ) TO lt_bdcdata.   " 最小批量大小
  46. APPEND VALUE #( fnam = 'MKAL_EXPAND-STLAN(01)' fval = |{ ls_data-stlan }| ) TO lt_bdcdata.   " 最大批量大小
  47. APPEND VALUE #( fnam = 'BDC_OKCODE' fval = '=ENTE' )                  TO lt_bdcdata.
  49. APPEND VALUE #( program = 'SAPLCMFV' dynpro = '1000' dynbegin = 'X' ) TO lt_bdcdata.
  50. APPEND VALUE #( fnam = 'BDC_OKCODE' fval = '=SAVE' )                  TO lt_bdcdata.
  52. CALL TRANSACTION 'C223'           " BDC调用的事务码
  53.   USING lt_bdcdata                " BDC执行内表
  54.         MODE lc_mode              " BDC运行模式
  55.         MESSAGES INTO lt_msgtab   " BDC返回信息表
  56.         UPDATE 'S'.               " 批导更新模式（A = '异步',S = '同步'）
  58. LOOP AT lt_msgtab INTO DATA(ls_msgtab) WHERE msgtyp = 'E' OR msgtyp = 'A'.
  59.   EXIT.
  60. ENDLOOP.
  61. IF sy-subrc = 0.
  62.   WRITE / 'ERROR' COLOR COL_NEGATIVE.
  63. ELSE.
  64.   WRITE / 'SUCCESS' COLOR COL_POSITIVE.
  65. ENDIF.
  67. WRITE /.
  69. LOOP AT lt_msgtab INTO ls_msgtab.
  70.   MESSAGE ID ls_msgtab-msgid TYPE ls_msgtab-msgtyp NUMBER ls_msgtab-msgnr
  71.     WITH ls_msgtab-msgv1 ls_msgtab-msgv2 ls_msgtab-msgv3 ls_msgtab-msgv4 INTO lv_message.
  73.   WRITE / lv_message .
  74. ENDLOOP.

FUNCTION 函数

  1. *&---------------------------------------------------------------------*
  2. *& Report ZSLTEST02
  3. *&---------------------------------------------------------------------*
  4. *&
  5. *&---------------------------------------------------------------------*
  6. REPORT zsltest02.
  8. DATA: BEGIN OF ls_data,
  9.         matnr TYPE mara-matnr, " 物料
  10.         werks TYPE marc-werks, " 工厂
  11.         verid TYPE mkal-verid, " 生产版本
  12.         adatu TYPE mkal-adatu, " 有效期自
  13.         bdatu TYPE mkal-bdatu, " 有效期至
  14.         stlal TYPE mkal-stlal, " 最小批量大小
  15.         stlan TYPE mkal-stlan, " 最大批量大小
  16.       END OF ls_data.
  18. ls_data = VALUE #(
  19.    matnr = 'EODJ30556-A01'
  20.    werks = '1000'
  21.    verid = '010'
  22.    adatu = '20220614'
  23.    bdatu = '20220615'
  24.    stlal = '10'
  25.    stlan = '5'
  26. ).
  28. SELECT SINGLE
  29.   rc~matnr,
  30.   rc~werks,
  31.   rc~dismm,
  32.   ra~disst
  33.   FROM marc AS rc
  34.   LEFT JOIN mara AS ra ON ra~matnr = rc~matnr
  35.   WHERE rc~matnr = @ls_data-matnr
  36.     AND rc~werks = @ls_data-werks
  37.   INTO @DATA(ls_more).
  39. DATA: ls_mkal TYPE mkal,
  40.       lt_mkal TYPE TABLE OF mkal.
  41. DATA: lt_check_result TYPE TABLE OF mkal_result_tab.
  43. ls_mkal-matnr = ls_data-matnr.
  44. ls_mkal-werks = ls_data-werks.
  45. ls_mkal-verid = ls_data-verid.
  46. ls_mkal-text1 = 'Generated Version'.
  47. ls_mkal-adatu = ls_data-adatu.
  48. ls_mkal-bdatu = ls_data-bdatu.
  49. ls_mkal-stlal = ls_data-stlal.
  50. ls_mkal-stlan = ls_data-stlan.
  51. " ... 其他字段略
  53. ls_mkal-prfg_f = ls_data-stlal. " 任务清单 1：绿灯
  54. ls_mkal-prfg_s = ls_data-stlan. " 物料清单 1：绿灯
  55. ls_mkal-prdat  = sy-datum.
  57. CALL FUNCTION 'CM_FV_MKAL_CONSISTENCY_CHECK'
  58.   EXPORTING
  59.     mkal_imp   = ls_mkal
  60.   TABLES
  61.     result_tab = lt_check_result
  62.   EXCEPTIONS
  63.     mkal_err   = 1
  64.     plko_err   = 2
  65.     stko_err   = 3
  66.     other_err  = 4
  67.     OTHERS     = 5.
  69. LOOP AT lt_check_result INTO DATA(ls_check_result).
  70.   IF ls_check_result-object_status NE space AND ls_check_result-object = 'S'.
  71.     WRITE / 'SUCCESS' COLOR COL_POSITIVE.
  72.   ENDIF.
  73.   IF ls_check_result-object_status NE space AND ls_check_result-object = 'F'.
  74.     WRITE / 'ERROR' COLOR COL_NEGATIVE.
  75.     STOP.
  76.   ENDIF.
  77. ENDLOOP.
  79. APPEND ls_mkal TO lt_mkal.
  80. CLEAR ls_mkal.
  82. CALL FUNCTION 'MKAL_SAVE'
  83.   EXPORTING
  84.     dismm             = ls_more-dismm
  85.     disst             = ls_more-disst
  86.     flgmkal_exi       = ''
  87.     matnr             = ls_data-matnr
  88.     werks             = ls_data-werks
  89.   TABLES
  90.     vmkal             = lt_mkal
  91.   EXCEPTIONS
  92.     mkal_delete_error = 1
  93.     mkal_insert_error = 2
  94.     OTHERS            = 3.
  95. IF sy-subrc <> 0.
  96.   CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  97.   MESSAGE 'SUCCESS' TYPE 'S' DISPLAY LIKE 'E'.
  98. ELSE.
  99.   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  100.     EXPORTING
  101.       wait = 'X'.
  102.   MESSAGE 'SUCCESS' TYPE 'S'.
  103. ENDIF.