SAP內供半成品成本估算不含內部作業(yè)費用問題解決方案

解決方案問題描述：視圖的“選購類型”定義存在以下四種方式：事業(yè)部不能自制和內供交易，只能外購的，則為F外購；事業(yè)部不能自制且內供不供給原材料的，則為F外購；事業(yè)部能夠自制或內供需供給原材料的，則為E自制或X兩者皆可；F30外包；選購類型，所需要的根底數(shù)據(jù)也不同：FV移動平均價，只能估算物料本錢；VBOM，估算物料本錢和加工費；SBOM和工藝路線，估算物料本錢和內部作業(yè)費用；但是，目前的內供交易方式，如事業(yè)部內供需要供給原材料時，需求方和E內部作業(yè)費用，造成半成品的本錢估算存在差異。方案一：E30，維護物BOM，但不維護工藝路線，本錢估算時計算物料本錢和外包加工本錢〔取信息記錄內部交易價，必需存在外包的信息記錄L，U。定義規(guī)章如下：FBOM；F30BOM；物料只能自制的，選購類型為E，特別選購類型為空，并維護BOM和工藝路線；物料為內供交易，但需要供給原材料的，選購類型為E，特別選購類型30BOM；物料為內供交易，但不需要供給原材料的，選購類型為F，特別選購類BOM。程序實現(xiàn)〔S增加：DATA:IS_KALKTABTYPECKKALKTAB.IFSY-TCODE=”CK11N”O(jiān)RSY-TCODEDATA:IS_KALKTABTYPECKKALKTAB.DATA:LS_KALKTABTYPECKKALKTAB.DATADATA:IS_EINATYPEEINA.DATA:LS_EINATYPETABLEOFEINAWITHHEADERLINE.*DATA:LS_EINA_2TYPETABLEOFEINAWITHHEADERLINE.DATA:it_tlineTYPETABLEOFtlineWITHHEADERLINE.DATA:IS_EINETYPEEINE.DATA:LS_EINETYPETABLEOFEINE.DATA:IS_MAKTTYPEMAKT,LS_MAKTTYPETABLEOFMAKT.DATA:L_MATNRTYPEMATNR,L_WERKSTYPEEINA_LIFNR.DATA:IT_MBEWTYPETABLEOFMBEWWITHHEADERLINE.DATA:IT_MATKLTYPEMARA-MATKL.DATA:LT_MARATYPETABLEOFMARAWITHHEADERLINE.DATA:LT_EINATYPETABLEOFEINAWITHHEADERLINE.DATA:LT_EINETYPETABLEOFEINEWITHHEADERLINE.DATADATA:NUMTYPEI.DATA:1_17TYPEpdecimals2.DATA:L_STPRSTYPEDATA:1_17TYPEpdecimals2.DATA:XTYPEC.“BAPI返回消息S正確E錯誤DATA:IT_MAPLTYPEDATA:IT_MAPLTYPETABLEOFMAPLWITHHEADERLINE.DATA:RETURNLIKETABLEOFBAPIRET2WITHHEADERLINE.SELECTSELECT*FROMMAPLINTOCORRESPONDINGFIELDSOFTABLEFROMMAPLWHEREMATNR=LF_CAUFVD-MATNRANDANDWERKS=LF_CAUFVD-WERKSANDDATUV<=SY-DATUM.X=”E”.LOOPLOOPATIT_MAPL.EXPORTINGCALLFUNCTION”BAPI_ROUTING_EXISTENCE_CHECK”EXPORTINGGROUP=IT_MAPL-PLNNRGROUPCOUNTER=IT_MAPL-PLNALVALIDFROM=T_KALKTAB-KADKYVALIDTODATE=T_KALKTAB-STEASTABLESTABLESIFRETURN[]ISINITIAL.RETURN IFRETURN[]ISINITIAL.XX=”S”.ENDLOOP.ENDLOOP.IFIFX=”E”.“沒有工藝路線執(zhí)行下面代碼IFSY-SUBRC<>0.READTABLET_KALKTABINTOIS_KALKTABWITHIFSY-SUBRC<>0.“獵取物料號、選購信息記錄*SELECT*INTOCORRESPONDINGFIELDSOFTABLELS_EINAFROMFROMEINAINNERJOINEINEONEINA~INFNR=EINE~INFNRWHEREMATNR=LF_CAUFVD-MATNRANDANDESOKZ=”3”ANDeine~netprne0.ANDANDeine~netprne0.IFLS_EINA[]isINITIAL.SELECT**FROMEINAINNERJOINEINEONEINAFROMEINAINNERJOINEINEONEINA~INFNR=EINE~INFNRWHEREmatnr=lf_caufvd-matnrANDesokzNE”3”ANDANDeina~loekzEQ””DATAi_nameTYPEthead-tdname.ANDDATAi_nameTYPEthead-tdname.LOOPATLS_EINA.i_name=LS_EINA-infnri_name=LS_EINA-infnr.CALLFUNCTION”ZTT_DEFU_READTEXT”EXPORTINGEXPORTINGin_id =”AT”in_name =i_namein_objectin_object=”EINA”it_lines=it_lines=it_tline.IFsy-subrc=0.IFsy-subrc<>0orit_tline-IFsy-subrc<>0orit_tline-tdlinene”X”.DELETELS_EINA.ENDIFENDIF.DELETELS_EINA.DELETELS_EINA.ENDIFENDIF.ENDIF.ENDLOOP.ENDIF.****************end****************endSORTSORTLS_EINABYLIFNRERDATDESCENDING.IFLS_EINA[]ISIFLS_EINA[]ISINITIAL.CALLFUNCTION”CM_F_MESSAGE”IFT_CKIBEW-BUKRSEQCALLFUNCTION”CM_F_MESSAGE”EXPORTINGARBGB=”CK”MSGNR=”903”ARBGB=”CK”MSGNR=”903”MSGTY=”I”MSGV1=LF_CAUFVD-MATNRMSGV2=LF_CAUFVD-WERKSOBJECT_DEPENDENT=”X”WERKS=LF_CAUFVD-WERKSXCEPTIONSMESAGE_TYPE_NOT_VALID=1NO_SY_MESSAGE=2OTHERS=3.IFSY-SUBRC<>0.WITHLF_CAUFVD-WERKSLF_CAUFVD-MATNR.MESSAGEID”CK”TYPEWITHLF_CAUFVD-WERKSLF_CAUFVD-MATNR.ENDIF.elseelse.CALLFUNCTION”CM_F_MESSAGE”EXPORTINGARBGB=”CK”MSGNR=”903”MSGTY=”E”MSGV1=LF_CAUFVD-MATNRMSGV2=LF_CAUFVD-WERKSOBJECT_DEPENDENT=”X”WERKS=LF_CAUFVD-WERKSXCEPTIONSMESAGE_TYPE_NOT_VALID=1NO_SY_MESSAGE=2OTHERS=3.MESSAGEID”CK”TYPE”E”NUMBER”903”IFSYMESSAGEID”CK”TYPE”E”NUMBER”903”WITHLF_CAUFVD-WERKSLF_CAUFVD-MATNR.ENDIFENDIF.ENDIFENDIF.READTABLET_KALKTABINTOREADTABLET_KALKTABINTOIS_KALKTABINDEX1.IFSY-SUBRC=0.IS_KALKTABIS_KALKTAB-POSNR=SY-TFILL+1.READTABLELS_EINAINTOIS_EINAREADTABLELS_EINAINTOIS_EINAINDEX1.IFSY-SUBRC=0.IS_KALKTABIS_KALKTAB-MATNRIS_EINA-MATNR.“物料號IS_KALKTAB-INFNR=IS_EINA-INFNR.“信息記錄IS_KALKTAB-LIFNRIS_EINA-LIFNR.“供給商“依據(jù)選購信息記錄獵取供給商SELECTINTOCORRESPONDINGINTOCORRESPONDINGFIELDSOFTABLELS_EINEEINEEINE“獵取稅率WHEREINFNR=IS_EINA-INFNR.“獵取稅率DATADATA:BEGINOFIT_A003OCCURS0,KBETRTYPEKONP-KBETR,MWSKZKBETRTYPEKONP-KBETR,ENDOFIT_A003.INTOCORRESPONDINGFIELDSOFTABLEIT_A003SELECTINTOCORRESPONDINGFIELDSOFTABLEIT_A003FROMA003INNERJOINKONPONA003~KNUMH=KONP~KNUMHWHEREA003~KAPPL=”TX”ANDANDA003~KSCHL=”MWVS”ANDA003~ALAND=”CN”.““獵取物料描述SELECTSELECTINTOCORRESPONDINGINTOCORRESPONDINGFIELDSOFTABLELS_MAKTANDSPRAS=ANDSPRAS=SY-LANGU.

WHEREMATNR=IS_KALKTAB-MATNRENDIF.TAB-MATNR.IS_KALKTAB-LTEXT=IS_MAKT-MAKTX.“物料描述READTABLELS_MAKTINTOIS_MAKTWITHKEYMATNR=ENDIF.TAB-MATNR.IS_KALKTAB-LTEXT=IS_MAKT-MAKTX.“物料描述READTABLELS_EINEINTOIS_EINEWITHKEYINFNR= IS_EINAIS_EINA-INFNR.IFSY-SUBRC=0.IS_KALKTABIS_KALKTAB-EKORG=IS_EINE-EKORG.“選購組織IS_KALKTAB-PEINH=”100”.“價格單位IS_KALKTAB-PEINH_2=”100”.“價格單位IS_KALKTAB-PEINH_3=”100”.“價格單位READTABLEIT_A003WITHKEYMWSKZ=READTABLEIT_A003WITHKEYMWSKZ=IS_EINE-MWSKZ.CLEAR:1_17.IFIFSY-SUBRC=0.1_17= (IT_A003-KBETR/”1000”)+1.if1_17neif1_17ne”0”.IS_KALKTAB-WERTN=(IS_EINE-NETPR/IS_EINE-PEINHEINH*IS_KALKTAB-MENGE/1_17.“凈價E-PEINH)*IS_KALKTAB-MENGE/1_17.“E-PEINH)*IS_KALKTAB-MENGE/1_17.“凈價IS_KALKTABIS_KALKTAB-WRTFW_POS=(IS_EINE-NETPR/IS_EINIS_KALKTAB-GPREIS=IS_KALKTAB-WERTN*IS_KAE-PEINH*IS_KALKTAB-GPREIS=IS_KALKTAB-WERTN*IS_KALKTAB-PEINH/1_17.ALKTAB-PEINH/1_17.IS_KALKTAB-OPREISALKTAB-PEINH/1_17.IS_KALKTAB-TPREIS=IS_KALKTAB-WERTN *IS_KALKTABALKTAB-PEINH/1_17.else.IS_KALKTAB-WERTN=(IS_EINE-NETPR/IS_EINE-PEINH)*IS_KALKTAB-MENGE.“凈價E-PEINH)*IS_KALKTAB-MENGE.“凈價IS_KALKTAB-WRTFW_KPFE-PEINH)*IS_KALKTAB-MENGE.“凈價IS_KALKTAB-WRTFW_POS=(IS_EINE-NETPR/IS_EINEE-PEINH*IS_KALKTAB-MENGE.“凈價IS_KALKTABIS_KALKTAB-GPREIS=IS_KALKTAB-WERTN*IS_KAIS_KALKTAB-OPREIS=IS_KALKTAB-WERTNIS_KALKTAB-OPREIS=IS_KALKTAB-WERTN*IS_KALKTAB-PEINH.ALKTAB-PEINH.IS_KALKTAB-TPREIS=ALKTAB-PEINH.endif.READTABLEIT_A003READTABLEIT_A003WITHKEYMWSKZ=IS_EINE-MWSKZZ.IFSY-SUBRC=IFSY-SUBRC=0.1_17= (IT_A003-KBETR/”1000”)+1.ENDIFENDIF.IS_KALKTAB-WERTN=(IS_EINE-IS_KALKTAB-WERTN=(IS_EINE-NETPR/IS_EINE-PEINH*IS_KALKTAB-MENGE/1_17.“凈價IS_KALKTAB-WRTFW_KPFIS_EINE-NETPR/IS_EINE-PEINH)*IS_KALKTAB-MENGE/1_17.“凈價E-PEINH*IS_KALKTAB-MENGE/1_17.“E-PEINH*IS_KALKTAB-MENGE/1_17.“凈價IS_KALKTAB-GPREIS=IS_KALKTAB-WERTN*IS_KAIS_KALKTAB-OPREIS=IS_KALKTAB-WERTN*IS_KLKTABIS_KALKTAB-OPREIS=IS_KALKTAB-WERTN*IS_KALKTAB-PEINH/1_17.IS_KALKTABIS_KALKTAB-TPREIS=IS_KALKTAB-WERTN*IS_KALKTAB-PEINH/1_17.IS_KALKTAB-WERTN=IS_KALKTAB-WERTN=(IS_EINE-NETPR/IS_EINE-PEINH*IS_KALKTAB-MENGE.“凈價IS_KALKTABIS_KALKTAB-WRTFW_KPF=(IS_EINE-NETPR/IS_EINE-PEINH*IS_KALKTAB-MENGE.“凈價IS_KALKTAB-WRTFW_POSIS_EINE-NETPR/IS_EINE-PEINH)*IS_KALKTAB-MENGE.“凈價LKTAB-PEINH.IS_KALKTAB-GPREIS=IS_KALKTAB-WERTNLKTAB-PEINH.IS_KALKTAB-OPREIS= IS_KALKTAB-WERTN *IS_KIS_KALKTAB-TPREIS=IS_KALKTABIS_KALKTAB-TPREIS=IS_KALKTAB-WERTN*IS_KALKTAB-PEINH.ENDIFENDIF.ENDIF.IS_KALKTAB-KOAKZ=””.IS_KALKTAB-VERWS=””.IS_KALKTAB-STRAT=”3”.IS_