四川电力实施文档SEPCERP试点阶段技术书FICO跨利润中心内部往来业务时对集成科目进行伙伴利润中心替代增强.docVIP

四川电力实施文档SEPC_ERP试点阶段_技术书_FICO_跨利润中心内部往来业务时，对集成科目进行伙伴利润中心替代增强_V1 ABAP OO Function group RFCBAPI function Executive ProgramBDCTable Contents Modification Server file Local file SAPScriptSmartforms Output-only List 模块 FI 开发机及集团 DEV110 事务代码 SE19 程序ID ZG_BEB_SPLIT_DOCUMENT 程序名称 跨利润中心内部往来业务时,对集成科目进行伙伴利润中心替代增强 功能设计者 江涛 技术设计者 曾春梅 ABAP程序员 曾春梅 第二部分: 设计书维护记录更新日期 更新人员 简要说明 2010.6.28 曾春梅 新建 第三部分: 技术方案描述 3.1业务需求描述 跨利润中心内部往来业务时,对集成科目进行伙伴利润中心替代增强。 3.2技术解决方案 对Function: G_BEB_SPLIT_DOCUMENT进行enhancement ?spot隐式增强技术。 3.3 系统简单架构图 第四部分:程序逻辑描述?将主要代码功能描述清楚, 第五部分:源程序----复杂性功能实现可贴主要功能代码部分 在function?: G_BEB_SPLIT_DOCUMENT程序的最后,增加隐式增强ZG_BEB_SPLIT_DOCUMENT,代码如下: ENHANCEMENT?2??ZG_BEB_SPLIT_DOCUMENT??active?version *DATA:?LW_ACCIT?TYPE?ACCIT?DATA:LW_PPRCT?TYPE?PPRCTR?data:lt_ACCIT?type?STANDARD?TABLE?OF?ACCIT?with?HEADER?LINE?data:begin?of?it_prctr?OCCURS?0,??prctr?type?bseg-prctr,??shkzg?type?bseg-shkzg,??flag?type?c,??end?of?it_prctr?data:lw_count_s?type?i?data:lw_count_h?type?i?data:lw_PSWBT?like?t_accit-PSWBT?data:lw_SGTXT?like?t_accit-SGTXT?lt_accit[]??t_accit[]?loop?at?t_accit?into?lw_accit?where?hkont????MOVE-CORRESPONDING?lw_accit?to?it_prctr??collect?it_prctr?endloop?loop?at??it_prctr?if?it_prctr-shkzg??S??lw_count_s??lw_count_s?+?1else??lw_count_h??lw_count_h?+?1endifendloop?if?lw_count_s??1?and?lw_count_h??1clear:lw_count_s,lw_count_hmessage?w000ZFI01?WITH?对于多对多关系的往来凭证,无法派生伙伴利润中心!?elseREAD?TABLE?T_ACCIT?INTO?LW_ACCIT?WITH?KEY?HKONT???.存在往来科目,则需要替代??IF?SY-SUBRC??0??loop?at?t_accit?into?lw_accit?case?lw_accit-HKONTWHEN??CLEAR:LW_PPRCTlw_PSWBT??0?-?lw_accit-PSWBT*?根据金额和借贷标识及利润中心,找到对方行项目的利润中心,并且,没有只做一次替代LOOP?AT??lt_accit?WHERE??hkont???and?PRCTRlw_ACCIT-PRCTR?and?SHKZG??lw_accit-SHKZG??and?PSWBT??lw_PSWBTLW_PPRCT???lt_ACCIT-PRCTRread?table?it_prctr?with?key?prctr??lw_pprct??flag??IF?SY-SUBRC??0EXITENDIF?ENDLOOP?IF?LW_PPRCT?IS?NOT?INITIAL. *loop?at?lt_accit?where?hkont?and?prctr??lw_accit-prctr将其长文本带入内部往来科目 *??lw_SGTXT??lt_accit-SGTXT. *??exit. *endloop. *lw_accit-sgtxt??lw_sgtxt??lw