Outsoucing FI doc solution-SAP相关学习文档

OutsoucingFIdocsolution.CheckoutsoucingBOMTcode:CS02SupposingZST_SUBCONisoutsoucingmodelwith2componentweprovide.2createPOTcode:ME21NInordertoaddcomponentoverhead(component*apercentagesuchas9.050%),outsoucingmodeloverhead(PB00outsoucingprice*apercentagesuchas5%)androyalty(0.15USD/PC).Wedefine4conditions.1ZMPR(withoutaccountkeyrelatedtoGLaccount,usedtosummarizethetotalcostofcomponentweprovide).WeexploreBOMtogettheamount,However,inacase,suchas,if970002and970003aresubstitutionmaterialgroupwithcorrespondingpercentage(97000240%97000360%),Theprogrammercannottakethiscaseintoconsideration,Theyjusttotalthecostamountupfor970002&970003withall100%andcauseacosterror.Noaccountkey2ZMOH=ZMPR*9.05%,OBYCwithaccountkeyZM0relatedtoaccount620000903ZMLB=PB00*5%OBYCwithaccountkeyZMLalsorelatedtoaccount620000904ZROYOBYCwithaccountKeyZR0withaccountkey30030070WemaintainOverheadkeyinmaterialmasterandthequantity-basedOHrateincostingsheetSuchas0.15USD/PC,However,ifthePOcurrencyisHKD,Anotherissueoccurs,fromthebelowpictureyoucanfind0.15USD=0.15HKDZMOH,ZMLB,ZROYamountwillbetotaleduptoOBYC->FRNwithaccountalso62000090whichmeansso-calledincidentalcostsofexternalactivites(Alsousedtosubtotalfreightcost,customcostetc).rememberFRNcanonlyrecordjustoneaccount.Becauseofmanyself-definedexits,thiskindsofbugsoftenoccur.Also,ifaPOwithmanyitems,POusersmightforgettomaintainthe4conditionsforeachPOitem.BecauseofmultifariousofOHrate,it’salsonotsuitabletopre-createconditionrecordsforthe4conditionslikePB00.MIGOgeneratedFIdocissuesTcode:MIGO9-124itemsifforcomponentbackflushAsabovementioned,Item5(FRN)isthesubtotalof678(ZML,ZM0,ZR0).However,werequiretheroyaltywillbeexcludedfromsubtotalamount5,andgenerateanewdebitline.5-8ishopedtobesplittedlike5Dr42.046Cr10.04-7cr32.00-8XXXXcompanyroyaltycharge0.159XXXXcompanyaccruedroyalty0.15-RoyaltypaidfordifferentcompanycodeneeddifferentDebit/Creditaccounts.Solution.Tcode:GCX2/Se38将CondtionZMLB/ZMPR/ZMOH拿掉,但是Amount依旧subtotal到14010030存货成本中.这样只保留了FRN和ZROY．由于有多个公司的不同产权，需要产生不同会计分录，比如公司Ａ将产生Dr:companycodeA(B,C,D,E…_)产权费Cr:应计(应付)产权(A,B,C,D,E)所以FRN/ZROY这对科目在MIGO读取PO外包料物料主数据的OHKey做一个表保存对应关系,MIGO退换OBYC设置FRN/ZR0的科目(OBYC设置的科目只是一个摆设).MaterialOHKeyDebitAccount(将根据OHKey退换FRN的科目)CreditAccount(将退换ZR0)的产全科目ZST_SUBCONZS0265010010Fuji费用30010070应计Fuj产权SL63_012ZA0165010011APS费用30010071应计APS产权….….……上图的凭证将会变成.114010030依旧是857.19214050010640.00-362000060857.19-4620002616405根据OHKey读取表动态科目0.15(****产权费用)6根据OHKey读取表动态科目0.15-(应付***产权)7-8没了,因为78的amount10.04+32.00没了,所以存货的Amount将不是857.19而是857.19-(10.04+32.00),所以item1/3的amount也需要退代9-12comonentbackflush保留原样,升至lineitem7-10BT难点:会计凭证的Amount和科目都要被动态退换.如果还不理解请看下图.因为此时只有FRN和ZROY对应的AccvountkeyZR0对应,科目也需要根据OHKey被动态退代,(FRN和ZROY只能对应到valuationclass级).新的问题,用户反应说比如同一个物料ZST_SUBCON也有几种版权,如下处理.比如同一物料同一OHＫey有ARcsoft,Fuj,Canon…等产权，且金额/PC不同．可对应表只有一条ZST_SUBCONZS0265010010Fuji费用30010070应计Fuj产权使用附加字段退代．．．如果Vendormat.No有科目就抓它不然就抓表．难点：１展BOM转component提供料的totalcost*OHrate,要考虑各种BOMItemcategory,Componentgroup..2外包料收货成本退成comp.OH+ROY+PB00+PB00*OHrate牵涉金额要绝对正确,否则会死的很惨.3.动态退换科目...为什么Businessarea不能被退代,怎样一次性Loop整个会计凭证玩退代.看看GCX2定义的这个程序ZFIGL0002Copy过去在U901里就可loopFIdoc的整个内表,然后退换存货科目的Amount和FRN/ZR0科目.*---------------------------------------------------------------------*INCLUDEFGBBGD00."Standarddatatypes*&---------------------------------------------------------------------**& TYPE-POOLS**&---------------------------------------------------------------------*TYPE-POOLS:GB002."TOBEINCLUDEDIN"wms092357*&---------------------------------------------------------------------**&TABLES**&---------------------------------------------------------------------*TABLES:BKPF,"ANYSYSTEMTHAT"wms092357BSEG,"HAS'FI'INSTALLED"wms092357COBL,"wms092357CSKS,"wms092357ANLZ,"wms092357GLU1."wms092357*>>>>STARTOFINSERTION<<<<*">>>>>>>>>>>>BEGININSERT105024TABLES:CSKBV,COBK.*"<<<<<<<<<<<<ENDINSERT105024*>>>>ENDOFINSERTION<<<<<<*----------------------------------------------------------------------**FORMGET_EXIT_TITLES**----------------------------------------------------------------------**returnsnameandtitleofallavailablestandard-exits**everyexitinthisformpoolhastobeaddedtothisform.**Youhavetospecifyaparametertypeinordertoenablethe**codegenerationprogramtodeterminecorrectlyhowto**generatetheuserexitcall,i.e.howmanyandwhatkindof**parameter(s)areusedintheuserexit.**Thefollowingparametertypesexist:****TYPEDescriptionUsage**------------------------------------------------------------**C_EXIT_PARAM_NONEUsenoparameterSubst.andValid.**exceptB_RESULT**C_EXIT_PARAM_FIELDUseonefieldasparam.OnlySubstitution**C_EXIT_PARAM_CLASSUseatypeasparameterSubst.andValid****----------------------------------------------------------------------**-->EXIT_TABtablewithexit-nameandexit-titles**structure:NAME(5),PARAM(1),TITEL(60)*----------------------------------------------------------------------*FORMGET_EXIT_TITLESTABLESETAB."#ECCALLEDDATA:BEGINOFEXITSOCCURS50,NAME(5)TYPEC,PARAMLIKEC_EXIT_PARAM_NONE,TITLE(60)TYPEC,ENDOFEXITS.EXITS-NAME='U100'.EXITS-PARAM=C_EXIT_PARAM_NONE.EXITS-TITLE=TEXT-100."CostcenterfromCSKSAPPENDEXITS.EXITS-NAME='U101'.EXITS-PARAM=C_EXIT_PARAM_FIELD.EXITS-TITLE=TEXT-101."CostcenterfromCSKSAPPENDEXITS.*beginofinsertion"wms092357EXITS-NAME='U200'.EXITS-PARAM=C_EXIT_PARAM_FIELD.EXITS-TITLE=TEXT-200."Cons.transactiontypeAPPENDEXITS."fromxref1/2*endofinsertion"wms092357*CustomizeduserexitforcustomernumbersubstitutionforSDBilling*inConcord-CameraEXITS-NAME='U900'.*EXITS-PARAM=C_EXIT_PARAM_none.EXITS-PARAM=C_EXIT_PARAM_CLASS.EXITS-TITLE=TEXT-900."CustomernumbersubstitutionforSDBillingAPPENDEXITS.*Customizeduserexitforcostsalesaccounting.Subtitutetransaction*typewithfunctionalareaEXITS-NAME='U901'.*EXITS-PARAM=C_EXIT_PARAM_NONE.EXITS-PARAM=C_EXIT_PARAM_CLASS.EXITS-TITLE=TEXT-901."TransactiontypesubtitutionAPPENDEXITS.*-->DVUK904275*CustomizeduserexitforCO.ProfitSegmentSubtitution*ClearprofitsegmentandassigndefaultcostaccountingEXITS-NAME='U902'.EXITS-PARAM=C_EXIT_PARAM_NONE.EXITS-TITLE=TEXT-902."ProfitSeqmentsubtitutionAPPENDEXITS.*<--DVUK904275*-->ForoutsourcingPObyStoneFu*InordertodistinguishtheFIdoc.EXITS-NAME='U909'.*EXITS-PARAM=C_EXIT_PARAM_NONE.EXITS-PARAM=C_EXIT_PARAM_CLASS.EXITS-TITLE=TEXT-902."ProfitSeqmentsubtitutionAPPENDEXITS.*************************************************************************EXITEXAMPLESFROMPUBLICSECTORINDUSTRYSOLUTION****PLEASEDELETETHEFIRST'*'FORMTHEBEGININGOFTHEFOLLOWINGLINE**TOENABLEPUBLICSECTOREXAMPLESUBSTITUTIONEXITS************************************************************************INCLUDErggbs_ps_titles.REFRESHETAB.LOOPATEXITS.ETAB=EXITS.APPENDETAB.ENDLOOP.ENDFORM."GET_EXIT_TITLES*---------------------------------------------------------------------**FORMU100**---------------------------------------------------------------------**Readsthecost-centerfromtheCSKStable.**---------------------------------------------------------------------*FORMU100."#ECCALLED*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*PLEASEDELETETHEFIRST'*'FORMTHEBEGININGOFTHEFOLLOWINGLINES**IFTHEACCOUNTINGMODULEISINSTALLEDINYOURSYSTEM:**SELECT*FROMCSKS*WHEREKOSTLEQCOBL-KOSTL*ANDKOKRSEQCOBL-KOKRS.*IFCSKS-DATBI>=SY-DATUMAND*CSKS-DATAB<=SY-DATUM.**MOVECSKS-ABTEITOCOBL-KOSTL.**ENDIF.*ENDSELECTDATAI_MAKTXLIKEMAKT-MAKTX.IF(BKPF-BLART='WA'ORBKPF-BLART='WE'ORBKPF-BLART='WL'ORBKPF-BLART='RE')AND(BSEG-HKONT='14050050'ORBSEG-HKONT='14050060'ORBSEG-HKONT='14050010')ANDBSEG-BUKRS='5100'ORBSEG-BUKRS='5200'.IFBSEG-MATNRISNOTINITIALANDBSEG-SGTXTEQ''.SELECTSINGLEMAKTXINTOI_MAKTXFROMMAKTWHERESPRAS=SY-LANGUANDMATNR=BSEG-MATNR.BSEG-SGTXT=I_MAKTX.ENDIF.ENDIF.*append12-29-2005*endofappenditionENDFORM."U100*eject*---------------------------------------------------------------------**FORMU101**---------------------------------------------------------------------**Readsthecost-centerfromtheCSKStableforaccounting**area'0001'.**Thisexitusesaparameterforthecost_centersoitcan**beusedirrespectiveofthetableusedinthecalluppoint.**---------------------------------------------------------------------*FORMU101USINGCOST_CENTERLIKECSKS-KOSTL."#ECCALLED*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*PLEASEDELETETHEFIRST'*'FORMTHEBEGININGOFTHEFOLLOWINGLINES**IFTHEACCOUNTINGMODULEISINSTALLEDINYOURSYSTEM:**SELECT*FROMCSKS*WHEREKOSTLEQCOST_CENTER*ANDKOKRSEQ'0001'.*IFCSKS-DATBI>=SY-DATUMAND*CSKS-DATAB<=SY-DATUM.**MOVECSKS-ABTEITOCOST_CENTER.**ENDIF.*ENDSELECT.ENDFORM."U101*---------------------------------------------------------------------**FORMU102**---------------------------------------------------------------------**Insertsthesumofthepostingintothereferencefield.**ThisexitcanbeusedinFIforthecompletedocument.**Thecompletedataispassedinoneparameter.**---------------------------------------------------------------------**!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*PLEASEDELETETHEFIRST'*'FORMTHEBEGININGOFTHEFOLLOWINGLINES**IFTHEACCOUNTINGMODULEISINSTALLEDINYOURSYSTEM:**FORMu102USINGbool_dataTYPEgb002_015.*DATA:SUM(10)TYPEC.**LOOPATBOOL_DATA-BSEGINTOBSEG*WHERESHKZG='S'.*BSEG-ZUONR='Test'.*MODIFYBOOL_DATA-BSEGFROMBSEG.*ADDBSEG-DMBTRTOSUM.*ENDLOOP.**BKPF-XBLNR=TEXT-001.*REPLACE'&'WITHSUMINTOBKPF-XBLNR.**ENDFORM.*************************************************************************EXITEXAMPLESFROMPUBLICSECTORINDUSTRYSOLUTION****PLEASEDELETETHEFIRST'*'FORMTHEBEGININGOFTHEFOLLOWINGLINE**TOENABLEPUBLICSECTOREXAMPLESUBSTITUTIONEXITS************************************************************************INCLUDErggbs_ps_forms.*eject*beginofinsertion"wms092357*&---------------------------------------------------------------------**&Formu200*&---------------------------------------------------------------------**text*----------------------------------------------------------------------*FORMU200USINGE_RMVCTTYPEBSEG-BEWAR."#ECCALLEDPERFORMXREF_TO_RMVCTUSINGBKPFBSEG1CHANGINGE_RMVCT.ENDFORM."u200*&---------------------------------------------------------------------**&Formxref_to_rmvct*&---------------------------------------------------------------------**text*----------------------------------------------------------------------*FORMXREF_TO_RMVCTUSINGIS_BKPFTYPEBKPFIS_BSEGTYPEBSEGI_XREF_FIELDTYPEICHANGINGC_RMVCTTYPERMVCT.DATAL_MSGVTYPESYMSGV.STATICSST_RMVCTTYPEHASHEDTABLEOFRMVCTWITHUNIQUEDEFAULTKEY.*eitherbseg-xref1orbseg-xref2mustbeusedassource...IFI_XREF_FIELD<>1ANDI_XREF_FIELD<>2.MESSAGEX000(GK)WITH'UNEXPECTEDVALUEI_XREF_FIELD='I_XREF_FIELD'(MUSTBE=1OR=2)'''.ENDIF.IFST_RMVCTISINITIAL.SELECTTRTYPFROMT856INTOTABLEST_RMVCT.ENDIF.IFI_XREF_FIELD=1.C_RMVCT=IS_BSEG-XREF1.ELSE.C_RMVCT=IS_BSEG-XREF2.ENDIF.IFC_RMVCTISINITIAL.WRITEI_XREF_FIELDTOL_MSGVLEFT-JUSTIFIED.CONCATENATETEXT-M00L_MSGVINTOL_MSGVSEPARATEDBYSPACE.*cons.transactiontypeisnotspecified=>sendanerrormessage...MESSAGEE123(G3)WITHL_MSGV.*BittegebenSieimFeld&1eineKonsolidierungsbewegungsartanENDIF.*c_rmvct<>initial...READTABLEST_RMVCTTRANSPORTINGNOFIELDSFROMC_RMVCT.CHECKNOTSY-SUBRCISINITIAL.*cons.transactiontypedoesnotexist=>senderrormessage...WRITEI_XREF_FIELDTOL_MSGVLEFT-JUSTIFIED.CONCATENATETEXT-M00L_MSGVINTOL_MSGVSEPARATEDBYSPACE.MESSAGEE124(G3)WITHC_RMVCTL_MSGV.*KonsBewegungsart&1istungültig(bitteEingabeimFeld&2korrigierenENDFORM."xref_to_rmvct*endofinsertion"wms092357*&---------------------------------------------------------------------**&Formu900*&---------------------------------------------------------------------**CustomernumbersubstitutionforallSDBillingDocumentfor*allbalancesheetlineitem*----------------------------------------------------------------------**-->P_WA_BOOL_DATA:workingareacontains2fields,bkpfastheheader*andinternaltablebsegasitemdetail*----------------------------------------------------------------------*FORMU900USINGP_WA_BOOL_DATATYPEGB002_015."#ECCALLEDDATA:L_KUNNRLIKEKNA1-KUNNR.CONSTANTS:LC_CHECK(1)TYPECVALUE'X',LC_KOARTLIKEBSEG-KOARTVALUE'D'.FIELD-SYMBOLS:<LFS_BSEG>LIKEBSEG.*findcustomerlineiteminFIdocumentREADTABLEP_WA_BOOL_DATA-BSEGINTOBSEGWITHKEYKOART=LC_KOART.*checkwhethercustomerlineitemexistinFIDocumentCHECKSY-SUBRC=0.*keepcustomernumberMOVEBSEG-KUNNRTOL_KUNNR.*copycustomernumbertoassignmentnumberfieldforbalancesheetline*itemLOOPATP_WA_BOOL_DATA-BSEGASSIGNING<LFS_BSEG>WHEREXBILK=LC_CHECK.<LFS_BSEG>-ZUONR=L_KUNNR.ENDLOOP.ENDFORM."formu900*&---------------------------------------------------------------------**&Formu901*&---------------------------------------------------------------------**Transactiontypesubtitution.Fieldtransactiontypewillbe*substitutedwithfunctionalarea.*----------------------------------------------------------------------*FORMU901USINGP_WA_BOOL_DATATYPEGB002_015.FIELD-SYMBOLS:<LFS_BSEG>LIKEBSEG.*subtitutetransactiontypewithfunctionalareaforP&LlineitemLOOPATP_WA_BOOL_DATA-BSEGASSIGNING<LFS_BSEG>WHEREGVTYP='X'.<LFS_BSEG>-BEWAR=<LFS_BSEG>-FKBER.ENDLOOP."formu901ENDFORM.*>>>>STARTOFINSERTION<<<<*">>>>>>>>>>>>BEGININSERT105024*&---------------------------------------------------------------------**&Formu902*&---------------------------------------------------------------------**ProfitSegmentSubstitution*ClearProfitSegmentfieldandassigndefaultcostassignment*CreatedbasedonOSSNotes105024*----------------------------------------------------------------------*FORMU902.DATA:LD_KOSTLLIKECOBL-KOSTL,LD_AUFNRLIKECOBL-AUFNR,LD_PRCTRLIKECOBL-PRCTR,LD_PAOBJNRLIKECOBL-PAOBJNR.*OnlyfortransactionCO-Interface(externalpostings)CHECKCOBK-VRGNG='COIN'.*GL-accountmustbecostelementCHECKNOTCOBL-HKONTISINITIAL.*CheckwhetherGL-accountiscostelementCALLFUNCTION'RK_KSTAR_READ'EXPORTINGDATUM=COBK-BUDATKOKRS=COBK-KOKRSKSTAR=COBL-HKONTIMPORTINGV_CSKB=CSKBVEXCEPTIONSKSTAR_NOT_FOUND=1.CHECKSY-SUBRC=0.*Onlyforrevenuecostelements*CHECKCSKBV-KATYP='11'.*ReadOKB9entriesCALLFUNCTION'K_ACCOUNT_ASSIGNMENT_GET'EXPORTINGBUKRS=COBL-BUKRSWERKS=COBL-WERKSBWKEY=COBL-BWKEYGSBER=COBL-GSBERKSTAR=COBL-HKONTI_COBL=COBLIMPORTINGKOSTL=LD_KOSTLAUFNR=LD_AUFNRPRCTR=LD_PRCTRE_PAOBJNR=LD_PAOBJNR.*ReplaceallinitialaccountassignmentsinCOBL*IfYouwanttooverwriteexistingaccountassignmentsinCOBL:*1.Changealllinesmarkedwith"*!tocomment*2.ReplaceANDwithIFinthefollowingline**Replacecostcenter*IFCOBL-KOSTLISINITIAL"*!*ANDNOTLD_KOSTLISINITIAL.IFNOTLD_KOSTLISINITIAL.COBL-KOSTL=LD_KOSTL.ENDIF.*Replaceorder*IFCOBL-AUFNRISINITIAL"*!*ANDNOTLD_AUFNRISINITIAL.IFNOTLD_AUFNRISINITIAL.COBL-AUFNR=LD_AUFNR.ENDIF.*Replaceprofitcenter*IFCOBL-PRCTRISINITIAL"*!*ANDNOTLD_PRCTRISINITIAL.IFNOTLD_PRCTRISINITIAL.COBL-PRCTR=LD_PRCTR.ENDIF.*ReplaceCO-PAobject*IFCOBL-PAOBJNRISINITIAL"*!*ANDNOTLD_PAOBJNRISINITIAL.*COBL-PAOBJNR=LD_PAOBJNR.*ENDIF.*CLEARtheprofitsegmentbasedonOSSEmailCLEARCOBL-PAOBJNR.*"<<<<<<<<<<<<ENDINSERT105024ENDFORM.

FORMFRM_KOND_BASIS_800.*{INSERTDVUK9086551*INSERTDVUK908655,thepurposebelowcodingistoimplementgetting*RoyaltyandLaborcostcapitalizedforOutsourceModel.*1*DATA:workfield(16)TYPEp.DATA:workfieldLIKExkomv-KKURS.DATA:T_STBLIKESTPOXOCCURS0WITHHEADERLINE,E_TOPMATLIKECSTMAT.DATA:L_VERPRLIKEMBEW-VERPR,L_PEINHLIKEMBEW-PEINH,AMOUNTLIKEMBEW-VERPR.*baseoftimedependentconditionshave5decimalsIFykrechCAtimeANDxkomv-krechNAtime.xkwert=ykmeng/100.ELSE.xkwert=ykmeng.ENDIF.xkomv-kbetr=komp-netpr.xkomv-kmein=ykmein.xkomv-kpein=ykpein.xkomv-kumza=ykumza.xkomv-kumne=ykumne.IFxkomv-waersNEkomk-waerk.CLEARxkomv-kkurs.xkomv-waers=komk-waerk.ENDIF.IFykmengNE0.CATCHSYSTEM-EXCEPTIONSconversion_errors=1arithmetic_errors=5.CALLFUNCTION'CS_BOM_EXPL_MAT_V2'EXPORTINGCAPID='PP01'DATUV=SY-DATUMMEHRS='X'MTNRV=KOMP-MATNRWERKS=KOMP-WERKSIMPORTINGTOPMAT=E_TOPMATTABLESSTB=T_STBEXCEPTIONSALT_NOT_FOUND=1CALL_INVALID=2MATERIAL_NOT_FOUND=3MISSING_AUTHORIZATION=4NO_BOM_FOUND=5NO_PLANT_DATA=6NO_SUITABLE_BOM_FOUND=7CONVERSION_ERROR=8OTHERS=9.AMOUNT=0.IFSY-SUBRCEQ0.LOOPATT_STBWHEREPOSTP='L'.SELECTSINGLEVERPRPEINHINTO(L_VERPR,L_PEINH)FROMMBEWWHEREMATNR=T_STB-IDNRKANDBWKEY=KOMP-WERKSANDBWTAR=''.*appendedifT_STB-ALPGRisinitial.AMOUNT=AMOUNT+(T_STB-MNGKO/E_TOPMAT-BMENG)*(L_VERPR/L_PEINH)*100.else.AMOUNT=AMOUNT+(T_STB-EWAHR/100)*(T_STB-MNGKO/E_TOPMAT-BMENG)*(L_VERPR/L_PEINH)*100.endif.*AMOUNT=AMOUNT+*(T_STB-MNGKO/E_TOPMAT-BMENG)*(L_VERPR/L_PEINH)*100.ENDLOOP.workfield=xkomv-KKURS.workfield=(AMOUNT*100000)/(workfield*100).xkomv-kbetr=workfield.ENDIF.ENDCATCH.IFsy-subrc=1ORsy-subrc=5.CLEARxkomv-kbetr.ENDIF.ELSE.xkomv-kinak='X'.ENDIF.IFkomp-shkzgEQ'X'.xkomv-kbetr=xkomv-kbetr*-1.ENDIF.*}INSERTENDFORM.四个Form用来退代存货的totalamount1.读取TotalcomponentmaterialamountFORMFRM_KOND_BASIS_800.*{INSERTDVUK908655*DATA:workfield(16)TYPEp.DATA:workfieldLIKExkomv-KKURS.DATA:T_STBLIKESTPOXOCCURS0WITHHEADERLINE,E_TOPMATLIKECSTMAT.DATA:L_VERPRLIKEMBEW-VERPR,L_PEINHLIKEMBEW-PEINH,AMOUNTLIKEMBEW-VERPR.*baseoftimedependentconditionshave5decimalsIFykrechCAtimeANDxkomv-krechNAtime.xkwert=ykmeng/100.ELSE.xkwert=ykmeng.ENDIF.xkomv-kbetr=komp-netpr.xkomv-kmein=ykmein.xkomv-kpein=ykpein.xkomv-kumza=ykumza.xkomv-kumne=ykumne.IFxkomv-waersNEkomk-waerk.CLEARxkomv-kkurs.xkomv-waers=komk-waerk.ENDIF.IFykmengNE0.CATCHSYSTEM-EXCEPTIONSconversion_errors=1arithmetic_errors=5.CALLFUNCTION'CS_BOM_EXPL_MAT_V2'EXPORTINGCAPID='PP01'DATUV=SY-DATUMMEHRS='X'MTNRV=KOMP-MATNRWERKS=KOMP-WERKSIMPORTINGTOPMAT=E_TOPMATTABLESSTB=T_STBEXCEPTIONSALT_NOT_FOUND=1CALL_INVALID=2MATERIAL_NOT_FOUND=3MISSING_AUTHORIZATION=4NO_BOM_FOUND=5NO_PLANT_DATA=6NO_SUITABLE_BOM_FOUND=7CONVERSION_ERROR=8OTHERS=9.AMOUNT=0.IFSY-SUBRCEQ0.LOOPATT_STBWHEREPOSTP='L'.SELECTSINGLEVERPRPEINHINTO(L_VERPR,L_PEINH)FROMMBEWWHEREMATNR=T_STB-IDNRKANDBWKEY=KOMP-WERKSANDBWTAR=''.*appended判断是否有退代物料组ifT_STB-ALPGRisinitial.AMOUNT=AMOUNT+(T_STB-MNGKO/E_TOPMAT-BMENG)*(L_VERPR/L_PEINH)*100.else.AMOUNT=AMOUNT+(T_STB-EWAHR/100)*(T_STB-MNGKO/E_TOPMAT-BMENG)*(L_VERPR/L_PEINH)*100.endif.*AMOUNT=AMOUNT+*(T_STB-MNGKO/E_TOPMAT-BMENG)*(L_VERPR/L_PEINH)*100.ENDLOOP.workfield=xkomv-KKURS.workfield=(AMOUNT*100000)/(workfield*100).xkomv-kbetr=workfield.ENDIF.ENDCATCH.IFsy-subrc=1ORsy-subrc=5.CLEARxkomv-kbetr.ENDIF.ELSE.xkomv-kinak='X'.ENDIF.IFkomp-shkzgEQ'X'.xkomv-kbetr=xkomv-kbetr*-1.ENDIF.*}INSERTENDFORM.2读取costingsheet的materialOHFORMFRM_KOND_BASIS_810.(ZMOH)*{INSERTDVUK9092021DATA:BEGINOFT_A013OCCURS0,KNUMHLIKEA013-KNUMH,DATBILIKEA013-DATBI,DATABLIKEA013-DATAB,ENDOFT_A013.DATA:BEGINOFT_KONP,KBETRLIKEKONP-KBETR,KONWALIKEKONP-KONWA,ENDOFT_KONP.DATA:BEGINOFT_EKKO,BELNRLIKEEKKO-EBELN,AEDATLIKEEKKO-AEDAT,ENDOFT_EKKO.SELECTSINGLEAEDATFROMEKKOINTOCORRESPONDINGFIELDSOFT_EKKOWHEREEBELN=KOMK-BELNR.SELECTKNUMHDATBIDATABFROMA013INTOCORRESPONDINGFIELDSOFTABLET_A013WHEREKAPPL='KA'ANDKSCHL='ZMO3'ANDKOKRS='CCG'ANDAUFZA='1'.*ANDDATBI>=T_EKKO-AEDAT*ANDDATAB<=T_EKKO-AEDAT.SORTT_A013BYDATBIDESCENDINGDATABDESCENDING.READTABLET_A013INDEX1.IFNOTT_A013-KNUMHISINITIAL.SELECTSINGLEKBETRKONWAFROMKONP