CO01/CO02/CO40保存增强点
PPCO0001
DATA:BEGIN OF itab OCCURS 0,
matkl TYPE matkl,
meins TYPE meins,
bdmng TYPE bdmng,
END OF itab.
DATA jtab LIKE TABLE OF itab WITH HEADER LINE.
DATA: bom LIKE stpox OCCURS 10 WITH HEADER LINE.
DATA msg TYPE string.
DATA iscb.
DATA ctab LIKE TABLE OF component_table WITH HEADER LINE.
CLEAR:itab,itab[],jtab,jtab[],bom,bom[],msg,iscb.
IF sy-tcode EQ 'CO01' OR sy-tcode EQ 'CO02' OR sy-tcode EQ 'CO40'.
READ TABLE header_table INDEX 1.
READ TABLE header_table_old INDEX 1.
IF header_table-werks EQ '1005' OR header_table-werks EQ '1001' OR header_table-werks EQ '1000'
OR header_table_old-werks EQ '1005' OR header_table_old-werks EQ '1001' OR header_table_old-werks EQ '1000'.
IF header_table-auart EQ 'ZP01' OR header_table-auart EQ 'ZP02' OR header_table-auart EQ 'ZP03' OR header_table-auart EQ 'ZP04' OR header_table-auart EQ 'ZP05' OR header_table-auart EQ 'ZP06'
OR header_table_old-auart EQ 'ZP01' OR header_table_old-auart EQ 'ZP02' OR header_table_old-auart EQ 'ZP03' OR header_table_old-auart EQ 'ZP04' OR header_table_old-auart EQ 'ZP05' OR header_table_old-auart EQ 'ZP06' .
LOOP AT component_table WHERE xloek NE 'X'.
READ TABLE itab WITH KEY matkl = component_table-matkl meins = component_table-meins.
IF sy-subrc NE 0.
itab-matkl = component_table-matkl.
itab-meins = component_table-meins.
APPEND itab.
CLEAR itab.
ENDIF.
CLEAR component_table.
ENDLOOP.
LOOP AT itab.
LOOP AT component_table WHERE matkl = itab-matkl AND meins = itab-meins AND xloek NE 'X'.
IF component_table-alpos EQ 'X'.
itab-bdmng = itab-bdmng + component_table-bdmng * component_table-ewahr.
ELSE.
itab-bdmng = itab-bdmng + component_table-bdmng.
ENDIF.
CLEAR component_table.
ENDLOOP.
MODIFY itab.
CLEAR itab.
ENDLOOP.
IF sy-tcode EQ 'CO01' OR sy-tcode EQ 'CO40' OR sy-tcode EQ 'CO02'.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid = 'PP01' "BOM Application
datuv = sy-datum "有效开始日
emeng = header_table-gamng "BASE QUANTITY数量
mtnrv = header_table-plnbez
"MATERAILNUMBER物料
stlan = '1' "bom用途
* STLAL = P_STLAL
* CUOBJ = CUOBJ
mktls = 'X'
* MEHRS = 'X' "多阶层bom展开
werks = header_table-werks "'PDGM'工厂
TABLES
stb = bom "展开明细
EXCEPTIONS
alt_not_found = 1
call_invalid = 2
material_not_found = 3
missing_authorization = 4
no_bom_found = 5
no_plant_data = 6
no_suitable_bom_found = 7
OTHERS = 8.
IF sy-subrc EQ 0.
LOOP AT bom.
IF bom-ausch IS NOT INITIAL.
bom-mnglg = bom-mnglg * ( 1 + bom-ausch / 100 ).
bom-mnglg = ceil( bom-mnglg ).
MODIFY bom.
ENDIF.
READ TABLE jtab WITH KEY matkl = bom-matkl meins = bom-meins.
IF sy-subrc NE 0.
jtab-matkl = bom-matkl.
jtab-meins = bom-meins.
APPEND jtab.
CLEAR jtab.
ENDIF.
CLEAR bom.
ENDLOOP.
LOOP AT jtab.
LOOP AT bom WHERE matkl = jtab-matkl AND meins = jtab-meins.
IF bom-alpos EQ 'X'.
jtab-bdmng = jtab-bdmng + bom-mnglg * bom-ewahr * '1.01' .
ELSE.
jtab-bdmng = jtab-bdmng + bom-mnglg * '1.01'.
ENDIF.
CLEAR bom.
ENDLOOP.
MODIFY jtab.
CLEAR jtab.
ENDLOOP.
ENDIF.
ENDIF. "co01
* IF SY-TCODE EQ 'CO02'.
*
* CTAB[] = COMPONENT_TABLE[].
* LOOP AT COMPONENT_TABLE_OLD WHERE XLOEK NE 'X'.
* READ TABLE CTAB WITH KEY RSNUM = COMPONENT_TABLE_OLD-RSNUM RSPOS = COMPONENT_TABLE_OLD-RSPOS.
* IF SY-SUBRC EQ 0.
* DELETE CTAB WHERE RSNUM = COMPONENT_TABLE_OLD-RSNUM AND RSPOS = COMPONENT_TABLE_OLD-RSPOS.
* APPEND COMPONENT_TABLE_OLD TO CTAB.
* ENDIF.
* CLEAR:COMPONENT_TABLE_OLD,CTAB.
* ENDLOOP.
* SORT CTAB ASCENDING BY RSNUM RSPOS.
* LOOP AT CTAB WHERE XLOEK NE 'X'.
* READ TABLE JTAB WITH KEY MATKL = CTAB-MATKL MEINS = CTAB-MEINS.
* IF SY-SUBRC NE 0.
* JTAB-MATKL = CTAB-MATKL.
* JTAB-MEINS = CTAB-MEINS.
* APPEND JTAB.
* CLEAR JTAB.
* ENDIF.
* CLEAR CTAB.
* ENDLOOP.
*
* LOOP AT JTAB.
* LOOP AT CTAB WHERE MATKL = JTAB-MATKL AND MEINS = JTAB-MEINS AND XLOEK NE 'X'.
* IF CTAB-ALPOS EQ 'X'.
* JTAB-BDMNG = JTAB-BDMNG + CTAB-BDMNG * CTAB-EWAHR * '1.01'.
* ELSE.
* JTAB-BDMNG = JTAB-BDMNG + CTAB-BDMNG * '1.01'.
* ENDIF.
* CLEAR CTAB.
* ENDLOOP.
* MODIFY JTAB.
* CLEAR JTAB.
* ENDLOOP.
* ENDIF. "CO02
"判断超标
IF jtab[] IS NOT INITIAL.
LOOP AT itab.
READ TABLE jtab WITH KEY matkl = itab-matkl meins = itab-meins.
IF itab-bdmng GT jtab-bdmng.
iscb = 'X'.
LOOP AT component_table WHERE matkl = itab-matkl AND meins = itab-meins AND xloek NE 'X'.
SHIFT component_table-matnr LEFT DELETING LEADING '0'.
CONCATENATE msg component_table-matnr INTO msg SEPARATED BY '/'.
CLEAR component_table.
ENDLOOP.
SHIFT msg LEFT DELETING LEADING '/'.
CONCATENATE '物料组为' itab-matkl ' 单位为' itab-meins ' 的物料 ' msg '超标，保存失败' INTO msg.
MESSAGE msg TYPE 'I' .
CLEAR msg.
ENDIF.
CLEAR:itab,jtab..
ENDLOOP.
ENDIF.
IF iscb IS NOT INITIAL.
CLEAR iscb.
LEAVE TO TRANSACTION sy-tcode.
ENDIF.
ENDIF.
ENDIF.
ENDIF.