SAP PP ECN CSAP_MAT_BOM_MAINTAIN

刚开始的时间ECN总是加不上，
参考kimi给出的案例
点击链接查察和 Kimi 智能助手的对话 https://kimi.moonshot.cn/share/cth1ipmqvl7f04qkggdg

结果 加上了

1. FUNCTION ZPBOM_PLM2SAP.
2. *"----------------------------------------------------------------------
3. *"*"本地接口：
4. *"  EXPORTING
5. *"     VALUE(OUTPUT) TYPE  ZSM8_SALESORDER_CREATE_OUTPUT
6. *"  TABLES
7. *"      INPUT_PBOM STRUCTURE  ZPBOM
8. *"      OUTPUT_MESSAGE STRUCTURE  ZMAT_MESSAGE
9. *"----------------------------------------------------------------------
10. *  新增 input_bom
11. *  修改 input_bom
12. *  删除 ECN  日期
14.   TABLES: MAST,STPO,STKO,STPU.
15.   DATA: TEMP_MAT     TYPE MATNR,
16.         TEMP_WERKS   TYPE WERKS_D,
17.         TEMP_STLNR   LIKE MAST-STLNR, "物料单号（bom号）
18.         RETURN(220)  TYPE C,
19.         ISFIND(1)    TYPE C,
20.         FROMDATE(10) TYPE C.
21.   DATA:TEMP_MATNR TYPE MATNR.
22.   DATA: BEGIN OF ZLOG,
23.           MATNR             TYPE MATNR,
24.           WERKS             TYPE WERKS_D,
25.           INTERFACENAME(60) TYPE C,
26.           LOGDATE           TYPE DATUM,
27.           LOGTIME           TYPE UZEIT,
28.           MAKTX             TYPE MAKTX,
29.           MEINS             TYPE MEINS,
30.           MBRSH             TYPE MBRSH,
31.           LVORM             TYPE LVORM,
32.           MTART             TYPE MTART,
33.           SPART             TYPE SPART,
34.           MATKL             TYPE MATKL,
35.           BISMT             TYPE BISMT,
36.           LGFSB             TYPE LGFSB,
37.           EORIGINNO(40)     TYPE C,
38.           CREATER(20)       TYPE C,
39.           MESSAGETYPE(1)    TYPE C,
40.           MESSAGE(220)      TYPE C,
41.         END OF ZLOG.
43.   DATA: BEGIN OF SUBMATNR_COUNT,"用于记录在同一层级下相同子物料，相同数量，出现的次数。
44.           SUBMATNR TYPE MATNR,
45.           MENGE    TYPE KMPMG,
46.           COUNT    TYPE I,
47.         END OF SUBMATNR_COUNT.
49.   DATA:SAP_SUBMATNR_COUNT LIKE SUBMATNR_COUNT,
50.        PLM_SUBMATNR_COUNT LIKE SUBMATNR_COUNT.
52.   DATA: NO1 TYPE I,
53.         NO2 TYPE I.
55.   DATA:I_STKO LIKE STKO_API01.
57.   DATA:BEGIN OF GS_INPUTPBOM,
58.          MATNR   TYPE MATNR,
59.          WERKS   TYPE WERKS_D,
60.          IDNRK   TYPE IDNRK,
61.          KMPMG   TYPE KMPMG,
62.          XUHAO   TYPE I,
63.          MEINS   TYPE MEINS,
64.          SORTP   TYPE SORTP,
65.          LOGDATE TYPE DATUM,
66.          LOGTIME TYPE UZEIT,
67.        END OF GS_INPUTPBOM.
69.   DATA:GT_STPO_INPUT LIKE TABLE OF STPO_API03 WITH HEADER LINE.
71.   DATA: SAP_STPO LIKE TABLE OF STPO WITH HEADER LINE.
72.   DATA: PDATAV LIKE  CSAP_MBOM-DATUV.
74. *1. 根据父物料字段,对输入BOM表排序:
75.   SORT INPUT_PBOM BY STLAN WERKS MATNR IDNRK KMPMG.
77. *2.将plm的bom格式转化为SAP能处理的单层bom，并处理（行项目新建或修改和删除的处理）
79.   CLEAR TEMP_MAT.
80.   CLEAR TEMP_WERKS.
81.   I_STKO-BASE_QUAN = 1.
82.   I_STKO-BOM_STATUS = '01'.
84.   LOOP AT INPUT_PBOM.
85.     CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
86.       EXPORTING
87.         INPUT  = INPUT_PBOM-MATNR
88.       IMPORTING
89.         OUTPUT = INPUT_PBOM-MATNR.
91.     TRANSLATE INPUT_PBOM-MATNR TO UPPER CASE.
93. *    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
94.     CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
95.       EXPORTING
96.         INPUT  = INPUT_PBOM-IDNRK
97.       IMPORTING
98.         OUTPUT = INPUT_PBOM-IDNRK.
100.     TRANSLATE INPUT_PBOM-IDNRK TO UPPER CASE.
102.     CLEAR GS_INPUTPBOM.
104. *2.1   当从一个小bom切换到另一个小bom时的处理；
105. *2.1.1 可以是第一个bom的第一条记录，
106. *2.1.2 或者是另开始一个小bom数据
107.     IF ( TEMP_MAT <> INPUT_PBOM-MATNR OR TEMP_WERKS <> INPUT_PBOM-WERKS ).
109.       "2.1.1当是第一个bom的第一条数据时
110.       IF ( TEMP_MAT IS INITIAL ) AND ( TEMP_WERKS IS INITIAL ).
111.         TEMP_MAT = INPUT_PBOM-MATNR.
112.         TEMP_WERKS = INPUT_PBOM-WERKS.
114.         CLEAR PLM_SUBMATNR_COUNT.
115.         PLM_SUBMATNR_COUNT-SUBMATNR = INPUT_PBOM-IDNRK.
116.         PLM_SUBMATNR_COUNT-MENGE = INPUT_PBOM-KMPMG.
117.         PLM_SUBMATNR_COUNT-COUNT = PLM_SUBMATNR_COUNT-COUNT + 1.
119.         "保存传入的数据到zinputpbom透视表中,作为记录。
120.         GS_INPUTPBOM-MATNR = INPUT_PBOM-MATNR.
121.         GS_INPUTPBOM-WERKS = INPUT_PBOM-WERKS.
122.         GS_INPUTPBOM-IDNRK = INPUT_PBOM-IDNRK.
123.         GS_INPUTPBOM-KMPMG = INPUT_PBOM-KMPMG.
124.         GS_INPUTPBOM-XUHAO = PLM_SUBMATNR_COUNT-COUNT.
125.         GS_INPUTPBOM-MEINS = INPUT_PBOM-MEINS.
126.         GS_INPUTPBOM-SORTP = INPUT_PBOM-SORTP.
127.         GS_INPUTPBOM-LOGDATE = SY-DATUM.
128.         GS_INPUTPBOM-LOGTIME = SY-UZEIT.
130.         CLEAR TEMP_MATNR.
131.         SELECT SINGLE MATNR INTO TEMP_MATNR FROM ZINPUTPBOM
132.         WHERE MATNR = INPUT_PBOM-MATNR
133.         AND WERKS = INPUT_PBOM-WERKS
134.         AND IDNRK = INPUT_PBOM-IDNRK
135.         AND KMPMG = INPUT_PBOM-KMPMG
136.         AND XUHAO = PLM_SUBMATNR_COUNT-COUNT.
138.         IF TEMP_MATNR IS INITIAL.
139.           INSERT INTO ZINPUTPBOM VALUES GS_INPUTPBOM.
140.         ELSE.
141.           UPDATE ZINPUTPBOM SET SORTP = GS_INPUTPBOM-SORTP LOGDATE = SY-DATUM  LOGTIME = SY-UZEIT
142.           WHERE MATNR = INPUT_PBOM-MATNR
143.           AND WERKS = INPUT_PBOM-WERKS
144.           AND IDNRK = INPUT_PBOM-IDNRK
145.           AND KMPMG = INPUT_PBOM-KMPMG
146.           AND XUHAO = PLM_SUBMATNR_COUNT-COUNT.
147.         ENDIF.
148.         COMMIT WORK AND WAIT.
150.         "准备行项目数据
151.         CLEAR TEMP_STLNR.
152.         SELECT SINGLE STLNR INTO TEMP_STLNR FROM MAST WHERE MATNR = TEMP_MAT AND WERKS = TEMP_WERKS AND STLAN = '1'.
153.         IF TEMP_STLNR IS INITIAL.  "sap原数据没有bom时的处理

复制代码