财务自定义替代.doc

_环境：ECC6windowsXP目标：使用SAP的替代根据资产号带出WBS号1. AS01创建资产2. 复制程序RGGBS000到ZRGGBS000并激活3. 事务：GCX2,把GBLS的程序替代为ZRGGBS0004. OBBH创建替代，选择唯一替代程序ZRGGBS000PROGRAMZRGGBS000.*-*Corrections/repair*wms092357070703Note638886:templateroutinestobeusedfor*workaroundtosubstitutebseg-bewarfrombseg-xref1/2*-*Substitutions:EXIT-FormpoolforUxxx-Exits*ThisformpoolisusedbySAPfortestingpurposesonly.*Note:Ifyoudefineanewuserexit,youhavetoenteryour*userexitintheformroutineGET_EXIT_TITLES.*-*INCLUDEFGBBGD00.Standarddatatypes*!*PLEASEINCLUDETHEFOLLOWINGTYPE-POOLANDTABLESCOMMANDS*IFTHEACCOUNTINGMODULEISINSTALLEDINYOURSYSTEM*TYPE-POOLS:GB002.TOBEINCLUDEDINwms092357TABLES:BKPF,ANYSYSTEMTHATwms092357BSEG,HASFIINSTALLEDwms092357COBL,wms092357CSKS,wms092357ANLZ,wms092357GLU1.wms092357*!*-*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.DATA: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=U901.EXITS-PARAM=C_EXIT_PARAM_NONE.EXITS-TITLE=TEXT-901.自定义替代APPENDEXITS.EXITS-NAME=U101.EXITS-PARAM=C_EXIT_PARAM_FIELD.EXITS-TITLE=TEXT-101.CostcenterfromCSKSAPPENDEXITS.*beginofinsertionwms092357EXITS-NAME=U200.EXITS-PARAM=C_EXIT_PARAM_FIELD.EXITS-TITLE=TEXT-200.Cons.transactiontypeAPPENDEXITS.fromxref1/2*endofinsertionwms092357*PLEASEDELETETHEFIRST*FORMTHEBEGININGOFTHEFOLLOWINGLINES*IFTHEACCOUNTINGMODULEISINSTALLEDINYOURSYSTEM:*EXITS-NAME=U102.*EXITS-PARAM=C_EXIT_PARAM_CLASS.*EXITS-TITLE=TEXT-102.Sumisusedforthereference.*APPENDEXITS.*EXITEXAMPLESFROMPUBLICSECTORINDUSTRYSOLUTION*PLEASEDELETETHEFIRST*FORMTHEBEGININGOFTHEFOLLOWINGLINE*TOENABLEPUBLICSECTOREXAMPLESUBSTITUTIONEXITS*INCLUDERGGBS_PS_TITLES.REFRESHETAB.LOOPATEXITS.ETAB=EXITS.APPENDETAB.ENDLOOP.ENDFORM.GET_EXIT_TITLES*eject*-*FORMU100*-*Readsthecost-centerfromtheCSKStable.*-*FORMU100.*!*PLEASEDELETETHEFIRST*FORMTHEBEGININGOFTHEFOLLOWINGLINES*IFTHEACCOUNTINGMODULEISINSTALLEDINYOURSYSTEM:*SELECT*FROMCSKS*WHEREKOSTLEQCOBL-KOSTL*ANDKOKRSEQCOBL-KOKRS.*IFCSKS-DATBI=SY-DATUMAND*CSKS-DATAB=SY-DATUMAND*CSKS-DATAB=SY-DATUM.*MOVECSKS-ABTEITOCOST_CENTER.*ENDIF.*ENDSELECT.ENDFORM.U101*eject*-*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.FORMU901.DEFINEALPHA_MINUS.CALLFUNCTIONCONVERSION_EXIT_ALPHA_OUTPUTEXPORTINGINPUT=&1IMPORTINGOUTPUT=&1.END-OF-DEFINITION.DEFINEALPHA_MANUS.CALLFUNCTIONCONVERSION_EXIT_ALPHA_INPUTEXPORTINGINPUT=&1IMPORTINGOUTPUT=&1.END-OF-DEFINITION.DATA:L_ANLN1TYPEANLN1.DATA:I_ANLATYPEANLA.L_ANLN1=BSEG-ANLN1.ALPHA_MINUSL_ANLN1.去掉前置0IFL_ANLN1=2.2开头表示是在建工程CLEAR:I_ANLA.SELECTSINGLE*INTOI_ANLAFROMANLAWHEREBUKRS=BSEG-BUKRSANDANLN1=BSEG-ANLN1ANDANLN2=BSEG-ANLN2ANDANLAMANDT=SY-MANDT.IFSY-SUBRC=0.BSEG-PROJK=I_ANLA-POSNR.ENDIF.ENDIF.ENDFORM.u901*EXITEXAMPLESFROMPUBLICSECTORINDUSTRYSOLUTION*PLEASEDELETETHEFIRST*FORMTHEBEGININGOFTHEFOLLOWINGLINE*TOENABLEPUBLICSECTOREXAMPLESUBSTITUTIONEXITS*INCLUDErggbs_ps_forms.*eject*beginofinsertionwms092357*&-*&Formu200*&-*text*-*FORMU200USINGE_RMVCTTYPEBSEG-BEWAR.PERFORMXREF_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_FIELD1ANDI_XREF_FIELD2.MESSAGEX000(GK)WITHUNEXPECTEDVALUEI_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_rmvctinitial.READTABLEST_RMVCTTRANSPORTINGNOFIELDSFROMC_RMVCT.CHECKNOTSY-SUBRCISINITIAL.*cons.transactiontypedoesnotexist=senderrormessage.WRITEI_XREF_FIELDTOL_MSGVLEFT-JUSTIFIED.CONCATENATETEXT-M00L_MSGVINTOL_MSGVSEPARATEDBYSPACE.MESSAGEE124(G3)WI