XXXXx-TS-MM135-采购订单税价分离

XXXXXERP系统实施一期系统实现阶段文档XXXXXERP系统实施一期工程技术说明书开发编号：-TS-MM135功能名称：采购订单税价别离第一局部：根本信息〔生成新的版本后，以下内容要相应改动〕开发类型增强接口单据报EnhancementUserExitBAdIDialogInteractivelistABAP00Functiongroup技术工具RFCBAPIfunctionExecutiveProgramBDCTableContentsModificationServerfileLocalfileSAPScriptSmartformsOutput-onlyList模块MM开发机及集团DEV/110事务代码程序IDRV64A602程序名称采购订单税价别离功能设计者技术设计者ABAP程序员第二局部：设计书维护记录更新日期更新人员简要说明2021-11-08创立第三局部：技术描述3.1业务需求描述采购订单上输入价格时，输入含税价，系统自动根据输入的税码转换成净价。3.2技术解决方案通过系统增强实现文件名：SEPC/ERP工程试点组/自定义开发程序创立人：FM第2页，共4页3.3系统简单架构图幵始结束3.4数据结构第四局部：程序逻辑描述一将主要代码功能描述清楚，采购订单上输入价格时，输入含税价，系统自动根据输入的税码转换成净价第五局部：源程序复杂性功能实现可贴主要功能代码局部1.代码如下：*抓取价格条件为RA00,RA01,RB00,RC00的KWERT值，如果抓到多笔那么加总为BLOOPATxkomvINTOls_komvWHEREkschl='RA00'ORkschl='RA01'ORkschl='RB00'ORkschl='RC00'.addls_komv-kwerttolv_kwert.ENDLOOP.*之前根据PBXX或PB00取到的值AREADTABLExkomvINTOls_komvwithKEYkschl='PBXX'.IFsy-subrc<>0.READTABLExkomvINTOls_komvwithKEYkschl='PB00'.ENDIF.*计算公式变更为：XKWERT=(A+B)*17/117(-1)-----如果税码为J1CASEkomp-MWSKZ.WHEN'JO'.CLEARxkwert.WHEN'J1'.xkwert二(Iskomv-kwert+lvkwert)*17/117*(-1).文件名：SEPC/ERP工程试点组/自定义开发程序技术说明书创立人：FM第3页，共4页WHEN'J2'.xkwert=(ls_komv-kwert+lv_kwert)*13/113*(-1).ENDCASE.文件名：SEPC/ERP工程试点组/自定义开发程序技术说明书创立人：FM第4页，共4页