MIR7预制发票扣除已经预制的数量(每月多次预制,未即时过账)
2017-03-27 21:05
495 查看
业务场景见抬头,有没有标准的解决方案就不说了,也没去考虑。。。
这个增强还是SAP老表提供的,感谢,省了不少时间。
INCLUDE:LMR1MF6S
最后的位置
中间有一大串IF ELSE的可以忽略,特殊业务处理
这个增强还是SAP老表提供的,感谢,省了不少时间。
INCLUDE:LMR1MF6S
最后的位置
ENHANCEMENT 1 ZMIR7_01. "active version DATA:LS_YDRSEG LIKE LINE OF YDRSEG. DATA:L_T_QTY LIKE EKBE-MENGE. DATA:LY_PRUEFLOS TYPE QPLOS. DATA:LY_ART TYPE QPART. DATA:LV_INSMK TYPE MSEG-INSMK. DATA:lv_BSART TYPE ESART. DATA:lv_KNTTP TYPE KNTTP. CHECK RM08M-VORGANG = '1'. LOOP AT YDRSEG INTO LS_YDRSEG. L_T_QTY = 0. CLEAR:LY_PRUEFLOS,LV_INSMK,lv_bSART,lv_KNTTP."排除没做出使用决策的物料凭证 SELECT SINGLE KNTTP INTO LV_KNTTP FROM EKPO WHERE EBELN = LS_YDRSEG-EBELN AND EBELP = LS_YDRSEG-EBELP.. IF LV_KNTTP = 'A' OR LV_KNTTP = 'K' OR LV_KNTTP = 'Z' OR LV_KNTTP = 'F'. ELSE. SELECT SINGLE INSMK INTO LV_INSMK FROM MSEG WHERE MJAHR = LS_YDRSEG-LFGJA AND MBLNR = LS_YDRSEG-LFBNR AND ZEILE = LS_YDRSEG-LFPOS. IF LV_INSMK = 'X'. SELECT SINGLE ART INTO lY_ART FROM QMAT WHERE ART = '01' AND MATNR = LS_YDRSEG-matnr AND WERKS = LS_YDRSEG-werks. IF sy-subrc = 0. SELECT SINGLE PRUEFLOS INTO LY_PRUEFLOS FROM QALS WHERE MJAHR = LS_YDRSEG-LFGJA AND MBLNR = LS_YDRSEG-LFBNR AND ZEILE = LS_YDRSEG-LFPOS AND STAT34 = 'X'. IF LY_PRUEFLOS IS INITIAL. DELETE YDRSEG. CONTINUE. ENDIF. ENDIF. ENDIF. ENDIF. SELECT SUM( CASE SHKZG WHEN 'S' THEN MENGE ELSE -1 * MENGE END ) INTO @L_T_QTY FROM EKBE WHERE EBELN = @LS_YDRSEG-EBELN AND EBELP = @LS_YDRSEG-EBELP AND BEWTP IN ('T','Q') AND LFGJA = @LS_YDRSEG-LFGJA AND LFBNR = @LS_YDRSEG-LFBNR AND LFPOS = @LS_YDRSEG-LFPOS. SELECT SINGLE bsart INTO lv_bsart FROM ekko WHERE ebeln = LS_YDRSEG-EBELN. IF lv_bsart = '915'. LS_YDRSEG-MENGE = LS_YDRSEG-WEMNG + L_T_QTY. ELSE. LS_YDRSEG-MENGE = LS_YDRSEG-WEMNG - L_T_QTY. ENDIF. "DELETE 没有使用决策的物料凭证 LS_YDRSEG-BPMNG = LS_YDRSEG-MENGE. IF LS_YDRSEG-MENGE <= 0. DELETE YDRSEG. CONTINUE. ELSE. MODIFY YDRSEG FROM LS_YDRSEG. ENDIF. ENDLOOP. ENDENHANCEMENT.
中间有一大串IF ELSE的可以忽略,特殊业务处理
相关文章推荐
- SAP 预制发票时扣除已预制的数据
- 函数使用五:MIR7 发票预制 BAPI_INCOMINGINVOICE_PARK
- BAPI:BAPI_INCOMINGINVOICE_PARK (TCODE:MIR7 - 供应商发票预制)
- 【转载】MIR7 发票预制 BAPI_INCOMINGINVOICE_PARK
- 在采购订单过帐发票时选择装箱单后提示错误“无法预留要为装箱单 A的物料 B 匹配的库存数量”
- 关于期初采购业务(仓库已经入库,未开采购发票的情况)
- BAPI:BAPI_BILLINGDOC_CREATEMULTIPLE (TCODE:VF01 - 销售发票预制)
- 交货单批次拆分(BAPI_OUTB_DELIVERY_CHANGE )并更改拣配数量,发货过账(WS_DELIVERY_UPDATE)
- Linux的代码数量已经超过1000万行
- SAP预置发票时输入数量自动金额的设置
- 网络即时通讯工具已经成了我们工作、生活中不可缺少的一部分,瑞星杀毒防火墙组合版
- 在采购订单过帐发票时选择装箱单后提示错误“无法预留要为装箱单 A的物料 B 匹配的库存数量”
- Sales Order的数量在Delivery中已经出完但状态仍然没有关闭的问题
- WS_DELIVERY_UPDATE 修改数量、过账日期并发货过账
- Android应用数量已经超越苹果,可能率先突破100万大关
- SQL 语句关联函数查询进销存多次入库剩余数量统计
- 《Science》杂志:机器学习究竟将如何影响人类未来的工作? 2018-01-11 Smiletalker AI科技评论 AI 科技评论按:人工智能、机器学习相关技术已经多次刷新了人们对于「计算机能
- WS_DELIVERY_UPDATE 修改数量、过账日期并发货过账
- 47_ElasticSearch cardinality去重算法以及每月销售品牌数量统计
- SAP MIR7输入数量自动金额的设置