1、四川省電力公司企業(yè)資源管理(ERP)系統(tǒng)實(shí)施項(xiàng)目技術(shù)設(shè)計(jì)說(shuō)明書第一部分：基本信息(生成新的版本后，以下內(nèi)容要相應(yīng)改動(dòng))開(kāi)發(fā)類型因增強(qiáng)接口單據(jù)區(qū)|報(bào)表技術(shù)工具Enhan ceme nt DialogABAP OORFCBDC Server fileSAPScript=User Exit口 BAdIIn teractive listFunction groupBAPI function| Executive ProgramTable Contents Modificati onLocal fileSmartforms Output-o nly List模塊FICO開(kāi)發(fā)機(jī)及集團(tuán)D19(1) /cli

2、e nt 110事務(wù)代碼ZFIE0011程序IDZFIE0011程序名稱資產(chǎn)成本中心批量修改功能設(shè)計(jì)者魏仕林技術(shù)設(shè)計(jì)者徐博ABAP程序員徐博第二部分：設(shè)計(jì)書維護(hù)記錄更新日期更新人員簡(jiǎn)要說(shuō)明第三部分：技術(shù)方案描述3.1業(yè)務(wù)需求描述參考功能說(shuō)明書3.2技術(shù)解決方案開(kāi)發(fā)DIALOG程序3.3系統(tǒng)簡(jiǎn)單架構(gòu)圖第四部分：程序邏輯描述 一將主要代碼功能描述清楚,第五部分：源程序-復(fù)雜性功能實(shí)現(xiàn)可貼主要功能代碼部分主要取數(shù)邏輯:DATA W_PERIOD() TYPE C.DATA W_KANSW TYPE ANLC-KANSW, W_TABIX TYPE SY-TABIX, W_DATUM0) TYPE C

3、, W_YEAF4) TYPE N.DATA LWA TYPE BAPI1022_FEGLG003,LWAX TYPE BAPI1022_FEGLG003X, LASSET TYPE BAPI1022_1-ASSETMAINO.DATA L_RETURN TYPE BAPIRET2.W_YEAR = SY-DATUM4).PERFORM FRM_DELETE_BLANK_LINE.LOOP AT IT_DTL WHERE DO IS INITIAL . PERFORM FRM_CHECK_DATAJSING SY-TABIX. IF W_FLG ='X'.EXIT.ENDIF.

4、ENDLOOPCHECK W_FLG <>'X'.*BAPI修改成本中心REFRESH IT_MSG.LOOP AT IT_DTL INTO WA_DTL WHERE DO IS INITIALWAIT UP TO 1 SECONDS.W_TABIX = SY-TABIX.LASSET = WA_DTL-ANLN1.LWA-FROM_DATE= WA_DTL-BEGDA.LWA-COSTCENTER= WA_DTL-KOSTL.LWAX-FROM_DATE= X .LWAX-COSTCENTEF='X'.CALL FUNCTION 'BAPI

5、 FIXEDASSET CHANGE'EXPORTING'1900'LASSETCOMPANYCODEASSETSUBNUMBERGROUPASSETGENERALDATA GENERALDATAX INVENTORY INVENTORYX POSTINGINFORMATION POSTINGINFORMATIONX TIMEDEPENDENTDATA TIMEDEPENDENTDATAXALLOCATIONS ALLOCATIONSX ORIGIN ORIGINX INVESTACCTASSIGNMNT INVESTACCTASSIGNMNTX NETWORTHVAL

6、UATION NETWORTHVALUATIONX REALESTATE REALESTATEX INSURANCE INSURANCEXLEASINGLEASINGXIMPORTINGRETURNTABLESDEPRECIATIONAREAS DEPRECIATIONAREASX INVESTMENT_SUPPORT EXTENSIONINLWALWAX'0000'L_RETURNIF L_RETURNTYPE ='E'WA_DTL-FLG ='E'.ELSEWA_DTL-FLG ='S'ENDIF.WA_DTLDO = XIF

7、 L_RETURN IS NOT INITIAL .CLEAR WA_MSG.WA_MSGNO= WA_DTLNO|WA_MSG-MSGID= L_RETURN-D.WA_MSG-MSGN(= L_RETURNNUMBERWA_MSG-MSGTY= L_RETURNTYPEWA_MSG-MSG V仁 L_RETURN-MESSAGE_V1.WA_MSG-MSGV2= L_RETURN-MESSAGE_V2.WA_MSG-MSGV3= L_RETURN-MESSAGE_V3.WA_MSG-MSGVQ L_RETURN-MESSAGE_V4. APPEND WA_MSG TO IT_MSG.END

8、IF.CALL FUNCTION 'BAPI TRANSACTION COMMIT'EXPORTING'X'WAITIMPORTINGRETURN= L RETURN.IF L_RETURN IS NOT INITIAL.CLEAR WA_MSG.WA_MSG-NO= WA_DTL-NO.WA MSG-MSGID L RETURN-ID.V1.V2.V3.V4.WA_MSG-MSGNO L_RETURN-NUMBER. WA MSG-MSGTY L RETURN-TYPE.*WA_MSG-MSGV= L_RETURN-MESSAGE. WA_MSG-MSGV2 L_RETURN-MESSAGE. WA_MSG-MSGV3 L_RETURN-MESSAGE. WA_MSG-MSGV4 L_RETURN-MESSAGE. APPEND WA MESSTO IT MESS.ENDLOOPCALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTINGWAIT = 'X'IMPORTINGRETURN = L_RETURN.READ TABLE IT_MSG INT