ABAP BOM保存增强-BOM_UPDATE
ABAP BOM保存增强-BOM_UPDATE问题需求解决方案问题需求创建/修改BOM时无价值物料错误维护了成本标识其他料号错误维护了客供料标识解决方案T-codeSE19方法CHANGE_AT_SAVE代码如下SELECTmara~matnrASidnrk,物料编号 mara~mtart 物料类型FROMmaraINNERJOINdelta_stpobASdelta_stpobONmara~matnrdelta_stpob~idnrk##ITAB_KEY_IN_SELECTWHEREdelta_stpob~postpLANDdelta_stpob~vbkzIN(I,U)INTOTABLEDATA(lt_marap).SORTlt_marapBYidnrk.DELETEADJACENTDUPLICATESFROMlt_marapCOMPARINGidnrk.DATA:lv_stringTYPEstringVALUE(SAPLCSBT)O1-STPOB[],lv_whereTYPEstring.FIELD-SYMBOLS:fs_t_stpobTYPEany,fs_stpobTYPEstpob.ASSIGN(lv_string)TOfs_t_stpob.IFfs_t_stpobISNOTASSIGNED.RETURN.ENDIF.lv_where|(vbkzIORvbkzU)|.LOOPATfs_t_stpobASSIGNINGfs_stpobWHERE(lv_where).READTABLElt_marapINTODATA(ls_marap)WITHKEYidnrkfs_stpob-idnrkBINARYSEARCH.IFsy-subrcEQ0.CASEls_marap-mtart.物料类型 WHEN W005. fs_stpob-beikz K. 客供料标识fs_stpob-sanka.成本核算标识 WHEN OTHERS. fs_stpob-beikz . 客供料标识fs_stpob-sankaX.成本核算标识ENDCASE.ENDIF.ENDLOOP.