SAP销售订单状态修改(审核) 计划行自动产生需求，产生MD04需求

最新推荐文章于 2023-11-03 15:01:07 发布
最新推荐文章于 2023-11-03 15:01:07 发布
阅读量886 收藏 2
点赞数
原文链接：http://www.cnblogs.com/sapSB/p/5569636.html
版权

不知道业务怎么配置的，创建销售单时，一堆计划行类别，什么CN,DN。。。都有，但是审核后需要计划行变更为CP，这样在MD04才能看到需求。

原有逻辑是弄个后台程序，审核后调一下，更新一下计划行，这样是会有需求的。。。

但是，业务有个习惯喜欢VA02直接审，或者是交货后还来修改等等。。。这时候就需要在VA02里做增强。，

原本的开发还是调程序。。。这就产生了很多问题。后来我自己写增强审核的时候自动修改计划行类别，巴特，不产生需求。。。这特么鬼，后来各种找，各种DEBUG，找到根源了。。。

 

Now，来个增强，实现：MV45AFZZ  USEREXIT_SAVE_DOCUMENT_PREPARE

IF ( i_stonO = '20' AND i_stonN = '30' ).
       LOOP AT XVBEP INTO GX_VBEP.
         LY_I = SY-TABIX.
         CASE VBAK-AUART.
             WHEN 'ZOR' .
            IF GX_VBEP-ETTYP <> 'CP' AND GX_VBEP-ETTYP <> 'ZD'.
              GX_VBEP-ETTYP = 'CP'.
              IF SY-TCODE = 'VA01'.
                ELSEIF SY-TCODE = 'VA02'.
                  GX_VBEP-UPDKZ = 'U'.
                  GX_VBEP-BEDSD = 'X'.
                  GX_VBEP-BDAALT = '05'.
                  GX_VBEP-BDART = '05'.
                  GX_VBEP-PLART = '0'.
                  IF XVBBE[] IS INITIAL.
                    GW_VBBE-MANDT = SY-MANDT.
                    GW_VBBE-VBELN = GX_VBEP-VBELN.
                    GW_VBBE-POSNR = GX_VBEP-POSNR.
                    GW_VBBE-ETENR = GX_VBEP-ETENR.
                    GW_VBBE-MBDAT = GX_VBEP-EDATU.
                    GW_VBBE-VBTYP = 'C'.
                    GW_VBBE-BDART = '05'.
                    GW_VBBE-PLART = '0'.
                    GW_VBBE-UPDKZ = 'I'.
                    GW_VBBE-OMENG = GX_VBEP-LMENG.
                    GW_VBBE-VMENG = GX_VBEP-BMENG.
                    GW_VBBE-MEINS = GX_VBEP-VRKME.
                    GW_VBBE-PZMNG = GX_VBEP-LMENG.
                    GW_VBBE-AUART = XVBAK-AUART.
                    GW_VBBE-KUNNR = XVBAK-KUNNR.
                     READ TABLE XVBAP INTO GX_VBAP WITH KEY POSNR = GX_VBEP-POSNR.
                     IF SY-SUBRC = 0.
                       LY_J = SY-TABIX.
                       GX_VBAP-SUMBD = 'A'.
                       GX_VBAP-UPDKZ = 'U'.
                       GX_VBAP-BEDUP = 'X'.

                       MODIFY XVBAP FROM GX_VBAP INDEX LY_J TRANSPORTING SUMBD UPDKZ BEDUP.
                      GW_VBBE-MATNR = GX_VBAP-MATNR.
                      GW_VBBE-WERKS = GX_VBAP-WERKS.
                      GW_VBBE-LGORT = GX_VBAP-LGORT.
                      GW_VBBE-CHARG = GX_VBAP-CHARG.
                      GW_VBBE-AWAHR = GX_VBAP-AWAHR.
                      GW_VBBE-VPZUO = GX_VBAP-VPZUO.
                     ENDIF.
                     INSERT GW_VBBE INTO XVBBE INDEX GX_VBEP-ETENR.
                  ENDIF.
              ENDIF.
            ENDIF.
          WHEN 'ZKB' .
            IF GX_VBEP-ETTYP <> 'E1'.
              GX_VBEP-ETTYP = 'E1'.
              IF SY-TCODE = 'VA01'.
                ELSEIF SY-TCODE = 'VA02'.
                  GX_VBEP-UPDKZ = 'U'.
                  GX_VBEP-BEDSD = 'X'.
                  GX_VBEP-BDAALT = '05'.
                  GX_VBEP-BDART = '05'.
                  GX_VBEP-PLART = '0'.
                  IF XVBBE[] IS INITIAL.
                    GW_VBBE-MANDT = SY-MANDT.
                    GW_VBBE-VBELN = GX_VBEP-VBELN.
                    GW_VBBE-POSNR = GX_VBEP-POSNR.
                    GW_VBBE-ETENR = GX_VBEP-ETENR.
                    GW_VBBE-MBDAT = GX_VBEP-EDATU.
                    GW_VBBE-VBTYP = 'C'.
                    GW_VBBE-BDART = '05'.
                    GW_VBBE-PLART = '0'.
                    GW_VBBE-UPDKZ = 'I'.
                    GW_VBBE-OMENG = GX_VBEP-LMENG.
                    GW_VBBE-VMENG = GX_VBEP-BMENG.
                    GW_VBBE-MEINS = GX_VBEP-VRKME.
                    GW_VBBE-PZMNG = GX_VBEP-LMENG.
                    GW_VBBE-AUART = XVBAK-AUART.
                    GW_VBBE-KUNNR = XVBAK-KUNNR.
                     READ TABLE XVBAP INTO GX_VBAP WITH KEY POSNR = GX_VBEP-POSNR.
                     IF SY-SUBRC = 0.
                       LY_J = SY-TABIX.
                       GX_VBAP-SUMBD = 'A'.
                       GX_VBAP-UPDKZ = 'U'.
                       GX_VBAP-BEDUP = 'X'.

                       MODIFY XVBAP FROM GX_VBAP INDEX LY_J TRANSPORTING SUMBD UPDKZ BEDUP.
                      GW_VBBE-MATNR = GX_VBAP-MATNR.
                      GW_VBBE-WERKS = GX_VBAP-WERKS.
                      GW_VBBE-LGORT = GX_VBAP-LGORT.
                      GW_VBBE-CHARG = GX_VBAP-CHARG.
                      GW_VBBE-AWAHR = GX_VBAP-AWAHR.
                      GW_VBBE-VPZUO = GX_VBAP-VPZUO.
                     ENDIF.
                     INSERT GW_VBBE INTO XVBBE INDEX GX_VBEP-ETENR.
                  ENDIF.
              ENDIF.
            ENDIF.
             WHEN 'ZSP' .
            READ TABLE XVBAP INTO GX_VBAP WITH KEY POSNR = GX_VBEP-POSNR.
            IF SY-SUBRC = 0.
              IF GX_VBAP-PSTYV = 'ZSNN' AND GX_VBEP-ETTYP <> 'ZN'.
                GX_VBEP-ETTYP = 'ZN'.
                IF SY-TCODE = 'VA01'.
                ELSEIF SY-TCODE = 'VA02'.
                  GX_VBEP-UPDKZ = 'U'.
                  GX_VBEP-BEDSD = 'X'.
                  GX_VBEP-BDAALT = '05'.
                  GX_VBEP-BDART = '05'.
                  GX_VBEP-PLART = '0'.
                  IF XVBBE[] IS INITIAL.
                    GW_VBBE-MANDT = SY-MANDT.
                    GW_VBBE-VBELN = GX_VBEP-VBELN.
                    GW_VBBE-POSNR = GX_VBEP-POSNR.
                    GW_VBBE-ETENR = GX_VBEP-ETENR.
                    GW_VBBE-MBDAT = GX_VBEP-EDATU.
                    GW_VBBE-VBTYP = 'C'.
                    GW_VBBE-BDART = '05'.
                    GW_VBBE-PLART = '0'.
                    GW_VBBE-UPDKZ = 'I'.
                    GW_VBBE-OMENG = GX_VBEP-LMENG.
                    GW_VBBE-VMENG = GX_VBEP-BMENG.
                    GW_VBBE-MEINS = GX_VBEP-VRKME.
                    GW_VBBE-PZMNG = GX_VBEP-LMENG.
                    GW_VBBE-AUART = XVBAK-AUART.
                    GW_VBBE-KUNNR = XVBAK-KUNNR.
                     READ TABLE XVBAP INTO GX_VBAP WITH KEY POSNR = GX_VBEP-POSNR.
                     IF SY-SUBRC = 0.
                       LY_J = SY-TABIX.
                       GX_VBAP-SUMBD = 'A'.
                       GX_VBAP-UPDKZ = 'U'.
                       GX_VBAP-BEDUP = 'X'.

                       MODIFY XVBAP FROM GX_VBAP INDEX LY_J TRANSPORTING SUMBD UPDKZ BEDUP.
                      GW_VBBE-MATNR = GX_VBAP-MATNR.
                      GW_VBBE-WERKS = GX_VBAP-WERKS.
                      GW_VBBE-LGORT = GX_VBAP-LGORT.
                      GW_VBBE-CHARG = GX_VBAP-CHARG.
                      GW_VBBE-AWAHR = GX_VBAP-AWAHR.
                      GW_VBBE-VPZUO = GX_VBAP-VPZUO.
                     ENDIF.
                     INSERT GW_VBBE INTO XVBBE INDEX GX_VBEP-ETENR.
                  ENDIF.
              ENDIF.
              ELSEIF GX_VBAP-PSTYV = 'ZSAN' AND GX_VBEP-ETTYP <> 'CP'.
                GX_VBEP-ETTYP = 'CP'.
                IF SY-TCODE = 'VA01'.
                ELSEIF SY-TCODE = 'VA02'.
                  GX_VBEP-UPDKZ = 'U'.
                  GX_VBEP-BEDSD = 'X'.
                  GX_VBEP-BDAALT = '05'.
                  GX_VBEP-BDART = '05'.
                  GX_VBEP-PLART = '0'.
                  IF XVBBE[] IS INITIAL.
                    GW_VBBE-MANDT = SY-MANDT.
                    GW_VBBE-VBELN = GX_VBEP-VBELN.
                    GW_VBBE-POSNR = GX_VBEP-POSNR.
                    GW_VBBE-ETENR = GX_VBEP-ETENR.
                    GW_VBBE-MBDAT = GX_VBEP-EDATU.
                    GW_VBBE-VBTYP = 'C'.
                    GW_VBBE-BDART = '05'.
                    GW_VBBE-PLART = '0'.
                    GW_VBBE-UPDKZ = 'I'.
                    GW_VBBE-OMENG = GX_VBEP-LMENG.
                    GW_VBBE-VMENG = GX_VBEP-BMENG.
                    GW_VBBE-MEINS = GX_VBEP-VRKME.
                    GW_VBBE-PZMNG = GX_VBEP-LMENG.
                    GW_VBBE-AUART = XVBAK-AUART.
                    GW_VBBE-KUNNR = XVBAK-KUNNR.
                     READ TABLE XVBAP INTO GX_VBAP WITH KEY POSNR = GX_VBEP-POSNR.
                     IF SY-SUBRC = 0.
                       LY_J = SY-TABIX.
                       GX_VBAP-SUMBD = 'A'.
                       GX_VBAP-UPDKZ = 'U'.
                       GX_VBAP-BEDUP = 'X'.

                       MODIFY XVBAP FROM GX_VBAP INDEX LY_J TRANSPORTING SUMBD UPDKZ BEDUP.
                      GW_VBBE-MATNR = GX_VBAP-MATNR.
                      GW_VBBE-WERKS = GX_VBAP-WERKS.
                      GW_VBBE-LGORT = GX_VBAP-LGORT.
                      GW_VBBE-CHARG = GX_VBAP-CHARG.
                      GW_VBBE-AWAHR = GX_VBAP-AWAHR.
                      GW_VBBE-VPZUO = GX_VBAP-VPZUO.
                     ENDIF.
                     INSERT GW_VBBE INTO XVBBE INDEX GX_VBEP-ETENR.
                  ENDIF.
              ENDIF.
              ENDIF .
            ENDIF.
             WHEN OTHERS.
         ENDCASE.
         MODIFY XVBEP FROM GX_VBEP.
       ENDLOOP.
     ENDIF.

 

转载于:https://www.cnblogs.com/sapSB/p/5569636.html

weixin_30362233
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
SAP 里面用事务代码MD04中一眼看出物料附加库存
yanzibing99的博客
05-21 369
点击图标打开查询验证一下，如下图，该物料有非限制库存1890件，分包库存13800件。而MD04中显示物料有库存1890件，但还有一个附加库存存在的图标。相对就是说，有13800件的分包库存是没有在首界面显示出来的；SAP也是很有意思，这么重要的功能，设计一个这么小的图标。在Stock库存一栏中，可以看到明显的区别；上一篇SAP中查询物料历史标准成本清单下一篇SAP采购中寄售和外协加工信息记录的不同应用逻辑解析。那么，MD04中显示的有附加库存的物料是不是确实是有附加库存呢？0基础学SAP406。
销售订单已经发货但是还是产生需求
如果没有了SAP我们还会什么？
08-14 2248
前提是系统配置如果没有问题 由于MD04读取的是VBBE的表, 检查这个表,如果存在则就会在MD04,   所以想办法删掉这个表里面的数据,一般是两种方法, DEBUG删除 用一个程序修复SDRQCR21(慎用)   发货单同理
SAP 销售订单需求 运行MRP 跑不出计划订单？ 策略组40
最新发布
weixin_43176021的博客
11-03 1762
AP 销售订单需求 运行MRP 跑不出计划订单？ 策略组40
SAP-SD计划行类别解析
少年休闲海
08-29 1万+
计划行类别. 计划行类别的例子Schedule Line categories      系统交付了不同schedule line categories来为Item在销售流程中提供不同的控制选项；      schedule line categories 定义为2位的key，标准系统已经包含了经常用来指示Itemcategory用途的key：          第一位指示schedule
BAPI_SALESORDER_CHANGE 修改销售订单计划行类别CN 改CP
weixin_43876578的博客
07-05 1034
BAPI_SALESORDER_CHANGE 修改销售订单计划行类别CN 改CP,调用此BAPI时，无法修改系销售订单有赠品行时，赠品行无法修改计划行类型，报“ettyp”字段无法更改，vbepkom 000011 0001已准备好输入错误.请教一下各路大神，到底是什么原因导致的，以及有什么好的解决方法。 ...
跟着团子学SAP PS-前台篇-创建网络活动及活动关系连接 CJ20N
热门推荐
Lucas1211的博客
04-23 3万+
SAP PS创建网络结构基本操作及细节讲解
SAP 史上最详细的MD04解析
04-20
MD04的功能不仅限于查看，还允许用户进行诸如转换计划订单、更改物料、调整采购申请等操作。 在MD04的界面中，主要包含以下几个关键部分： 1. **日期**：显示的是与物料需求相关的日期，如交货日期。对于来自销售...
SAP销售订单中各种状态的说明
04-10
在SAP系统中，销售订单是整个销售流程的起点，其中包含不同的状态，这些状态代表了销售订单在不同处理阶段的情况。理解这些状态对于正确管理订单流程，确保销售活动的顺利进行至关重要。本文将详细解释SAP销售订单中...
SAP PP 需求管理 计划策略
01-03
SAP PP 新手学习了解需求管理 计划策略适用，(XDF文件，稻壳阅读器查看，)
SAP补货和需求计划笔记.pdf
04-08
12. **查看库存/需求清单**：使用MD04检查库存状态和需求情况，以便做出补货决策。 13. **采购申请**：事务代码ME51N用于创建采购申请，系统会根据需求计划自动生成采购需求。 14. **合并或审批采购申请**：通过ME...
SAP按销售订单生产和标准结算配置及操作办法
06-27
SAP按销售订单生产和标准结算配置及操作办法
SAP 销售订单无法在MD04显示
qq_35640899的博客
06-17 3250
在进行SAP相关MRP策略测试时发现，不管选择何种策略，创建销售订单后，MD04无法显示销售订单的信息。 通过OVZG维护需求等级、OVZH检查需求类型，还是没有解决问题； 在今天在另一个105系统中进行配置测试，在MD04中发现也没有销售订单的信息显示； 对比200系统和105系统，发现差异点在销售订单的计划行类型，两者都可用性检查和需求传递都没有打钩； 在200系统中打钩以后，终于看到了销售订单的信息，并且计划独立需求被冲减； 由此可见，销售订单的需求是否进行传递，...
MD04里面看不到销售订单
IT养家
07-04 2030
MD04无结果 订单未结案 再看物料信息 MD04用 1000S就可以了
SAP-SD-ABAP-销售订单自动确认程序-AVAILABILITY_CHECK_S4-SD_BACKORDER_UPDATE
weixin_48129524的博客
11-09 1925
类似VA02-检查项目可用性功能 "DELTA_MANAGEMENT DATA: l_atpdtLIKE atpdt. DATA: p_yvbbeTYPE TABLE OF atp_vbbe_ext. DATA: wa_yvbbe TYPE atp_vbbe_ext. DATA: wa_vbbeTYPE atp_vbbe_ext. "S4 ATP Check DATAls_atpca TYPE atpca. DATAls_atpcs TYPE atpcs. ...
SAP的VBAK、VBAP和VBEP表
08-03 1万+
VBAK表（销售凭证：头表）     VBELN：销售凭证     KUNNR：售达方     ERDAT：记录创建日期     VDATU：请求交货日期      VBAP表（销售凭证：项目数据）     POSNR：行号     PRCTR：利润中心     KWMENG：订单数量      VBEP表（销售凭证：计划行数据）     EDATU：计划行日期     ETENR：...
SAP中源清单自动无法生成的原因
专注SAP应用技术文章写作，致力于拉近用户与系统间的距离；
09-24 1153
在事务ME01生成源清单的方式有两种，手动添加和自动生成。在实际工作中，在某个物料供应源的处理和切换时，需要进行控制性操作。经常可能会遇到到某个物料的采购订单或计划协议明明存在，但在源清单中点生动生成却带不出来。 其实这个问题并不复杂。从理论上，操作者先要清楚，源清单的自动生成是在系统内寻找有效供应源，所以某物料的供应源不仅需要存在，还需要有效。笔者也进行了相关测试，发现以下四种情况该供应源将失效。因此，在ME01的自动生成时，就无法带出。 1、作为供应源的订单或协议己打删除标记； 2、作为.
SAP MD04详解
Frank.Ma
07-15 8203
MD04详解
SO 计划行改初始状态CN, CP
07-23 1764
用VOV5事务码进入，将项目类别TAN的状态改为CP或CN
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值