生产订单修改删除组件BDC

可用函数修改：CO_XT_COMPONENT_CHANGE，一次一个

 FORM prm_change_bom .

   DATA:gw_zstypf TYPE zstypf.

   DATA:lv_rspos TYPE rspos.

   CLEAR:gw_zstypf,lv_rspos.

   LOOP AT gt_zstypf INTO gs_zstypf.

     IF gs_zstypf-rsnum IS NOT INITIAL.

       MOVE-CORRESPONDING gs_zstypf TO gw_zstypf.

     ENDIF.

   ENDLOOP.

   LOOP AT gt_zstypf INTO gs_zstypf WHERE xloek = 'X'."原有组件，需要先删除

     PERFORM prm_delete_bom_line USING gs_zstypf-rspos gs_zstypf-aufnr.

     IF sy-subrc = .

     ELSE.

       MESSAGE '删除组件失败，请重新删除！' TYPE 'E'.

     ENDIF.

   ENDLOOP.

   WAIT UP TO  SECONDS.

   LOOP AT gt_zstypf INTO gs_zstypf WHERE xloek = 'C' AND rsnum IS NOT INITIAL."修改原有组件

     PERFORM prm_change_bom_line USING gs_zstypf.

     IF sy-subrc = .

     ELSE.

       MESSAGE '修改组件失败，请重新修改！' TYPE 'E'.

     ENDIF.

   ENDLOOP.

   WAIT UP TO  SECONDS.

   SELECT MAX( rspos ) INTO lv_rspos FROM resb WHERE rsnum = gw_zstypf-rsnum.

   LOOP AT gt_zstypf INTO gs_zstypf WHERE xloek <> 'X' AND rsnum IS INITIAL."新建组件

     gs_zstypf-rspos = lv_rspos + .

     gs_zstypf-aufnr = gw_zstypf-aufnr.

     gs_zstypf-posnr = gs_zstypf-rspos * .

     lv_rspos = lv_rspos + .

     PERFORM prm_add_bom_line USING gs_zstypf.

     IF sy-subrc = .

     ELSE.

       MESSAGE '添加组件失败，请重新添加！' TYPE 'E'.

     ENDIF.

   ENDLOOP.

 ENDFORM.                    " PRM_CHANGE_BOM

FORM prm_delete_bom_line  USING    p_posnr p_aufnr.

   DATA:lv_value TYPE bdcdata-fval.

   DATA:lv_fname TYPE bdcdata-fnam.

   REFRESH:messtab,bdcdata.

   CLEAR:lv_value,lv_fname.

   CONCATENATE 'RESBD-POSNR(' p_posnr ')' INTO lv_value.

   CONCATENATE 'RC27X-FLG_SEL(' p_posnr ')' INTO lv_fname.

   PERFORM bdc_dynpro      USING 'SAPLCOKO1' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'CAUFVD-AUFNR'.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=KPU2'.

   PERFORM bdc_field       USING 'CAUFVD-AUFNR'

                                 p_aufnr.

*                              '100000043'.

   PERFORM bdc_field       USING 'R62CLORD-FLG_OVIEW'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMK' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 lv_value.

*                              'RESBD-POSNR(02)'.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=DEL'.

   PERFORM bdc_field       USING 'FILTER_BOX'

                                 'NO_FIL'.

   PERFORM bdc_field       USING 'SORT_BOX'

                                 'ST_STA'.

   PERFORM bdc_field       USING lv_fname"'RC27X-FLG_SEL(02)'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMK' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'RESBD-MATNR(01)'.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=BU'.

   PERFORM bdc_field       USING 'FILTER_BOX'

                                 'NO_FIL'.

   PERFORM bdc_field       USING 'SORT_BOX'

                                 'ST_STA'.

   CALL TRANSACTION 'CO02' USING bdcdata

                           MODE   'N'

                           UPDATE 'S'

                           MESSAGES INTO messtab.

*perform bdc_transaction using 'CO02'.

 ENDFORM.                    " PRM_DELETE_BOM_LINE

FORM prm_change_bom_line  USING    p_gs_zstypf STRUCTURE zstypf.

   DATA:lv_value TYPE bdcdata-fval.

   DATA:lv_dbmn TYPE bdcdata-fval."数量

   DATA:lv_fnam1 TYPE bdcdata-fnam.

   DATA:lv_fnam2 TYPE bdcdata-fnam.

   DATA:lv_fnam3 TYPE bdcdata-fnam.

   REFRESH:messtab,bdcdata.

   CLEAR:lv_value,lv_fnam1,lv_fnam2,lv_fnam3.

   CONCATENATE 'RESBD-MATXT(' p_gs_zstypf-rspos ')' INTO lv_value.

   CONCATENATE 'RC27X-FLG_SEL(' p_gs_zstypf-rspos ')' INTO lv_fnam1.

   CONCATENATE 'RESBD-MATNR(' p_gs_zstypf-rspos ')' INTO lv_fnam2.

   CONCATENATE 'RESBD-MENGE(' p_gs_zstypf-rspos ')' INTO lv_fnam3.

   PERFORM bdc_dynpro      USING 'SAPLCOKO1' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'CAUFVD-AUFNR'.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=KPU2'.

   PERFORM bdc_field       USING 'CAUFVD-AUFNR'

                                 p_gs_zstypf-aufnr.

   PERFORM bdc_field       USING 'R62CLORD-FLG_OVIEW'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMK' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 lv_value.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=PICK'.

   PERFORM bdc_field       USING 'FILTER_BOX'

                                 'NO_FIL'.

   PERFORM bdc_field       USING 'SORT_BOX'

                                 'ST_STA'.

   PERFORM bdc_field       USING lv_fnam1

                                 'X'.

   PERFORM bdc_field       USING lv_fnam2

                                 p_gs_zstypf-matnr.

   MOVE p_gs_zstypf-bdmng TO lv_dbmn.

   CONDENSE lv_dbmn NO-GAPS.

   PERFORM bdc_field       USING lv_fnam3

                                 lv_dbmn.

   PERFORM bdc_dynpro      USING 'SAPLCOMD' ''.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=BU'.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'RESBD-POTX1'.

   PERFORM bdc_field       USING 'RESBD-MATNR'

                                 p_gs_zstypf-matnr.

   PERFORM bdc_field       USING 'RESBD-POSNR'

                                 p_gs_zstypf-posnr.

   PERFORM bdc_field       USING 'RESBD-POTX1'

                                 p_gs_zstypf-potx1.

   PERFORM bdc_field       USING 'RESBD-SANKA'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMD' ''.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=BU'.

   PERFORM bdc_field       USING 'RESBD-SANKA'

                                 'X'.

   CALL TRANSACTION 'CO02' USING bdcdata

                           MODE   'N'

                           UPDATE 'S'

                           MESSAGES INTO messtab.

 ENDFORM.                    " PRM_CHANGE_BOM_LINE

FORM prm_add_bom_line  USING    p_gs_zstypf STRUCTURE zstypf.

   DATA:lv_value TYPE bdcdata-fval.

   DATA:lv_dbmn TYPE bdcdata-fval."数量

   DATA:lv_fnam1 TYPE bdcdata-fnam.

   DATA:lv_fnam2 TYPE bdcdata-fnam.

   DATA:lv_fnam3 TYPE bdcdata-fnam.

   DATA:lv_fnam4 TYPE bdcdata-fnam.

   DATA:lv_fnam5 TYPE bdcdata-fnam.

   DATA:lv_fnam6 TYPE bdcdata-fnam.

   REFRESH:messtab,bdcdata.

   CLEAR:lv_value,lv_fnam1,lv_fnam2,lv_fnam3,lv_fnam4,lv_fnam5,lv_fnam6.

   CONCATENATE 'RESBD-MATXT(' p_gs_zstypf-rspos ')' INTO lv_value.

   CONCATENATE 'RESBD-MATNR(' p_gs_zstypf-rspos ')' INTO lv_fnam1.

   CONCATENATE 'RESBD-MENGE(' p_gs_zstypf-rspos ')' INTO lv_fnam2.

   CONCATENATE 'RESBD-EINHEIT(' p_gs_zstypf-rspos ')' INTO lv_fnam3.

   CONCATENATE 'RESBD-POSTP(' p_gs_zstypf-rspos ')' INTO lv_fnam4.

   CONCATENATE 'RESBD-VORNR(' p_gs_zstypf-rspos ')' INTO lv_fnam5.

   CONCATENATE 'RCOLS-APLFL(' p_gs_zstypf-rspos ')' INTO lv_fnam6.

   PERFORM bdc_dynpro      USING 'SAPLCOKO1' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'CAUFVD-AUFNR'.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=KPU2'.

   PERFORM bdc_field       USING 'CAUFVD-AUFNR'

                                 p_gs_zstypf-aufnr.

   PERFORM bdc_field       USING 'R62CLORD-FLG_OVIEW'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMK' ''.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 lv_value.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=PICK'.

   PERFORM bdc_field       USING 'FILTER_BOX'

                                 'NO_FIL'.

   PERFORM bdc_field       USING 'SORT_BOX'

                                 'ST_STA'.

   PERFORM bdc_field       USING lv_fnam1

                                 p_gs_zstypf-matnr.

   MOVE p_gs_zstypf-bdmng TO lv_dbmn.

   CONDENSE lv_dbmn NO-GAPS.

   PERFORM bdc_field       USING lv_fnam2

                                 lv_dbmn.

   CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'

     EXPORTING

       input          = p_gs_zstypf-meins

       language       = sy-langu

     IMPORTING

*      LONG_TEXT      =

       output         = p_gs_zstypf-meins

*      SHORT_TEXT     =

     EXCEPTIONS

       unit_not_found =

       OTHERS         = .

   PERFORM bdc_field       USING lv_fnam3

                                 p_gs_zstypf-meins.

   PERFORM bdc_field       USING lv_fnam4

                                 'L'.

   PERFORM bdc_field       USING lv_fnam5

                                 p_gs_zstypf-vornr.

   PERFORM bdc_field       USING lv_fnam6

                                 p_gs_zstypf-plnfl.

   PERFORM bdc_dynpro      USING 'SAPLCOMD' ''.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=BU'.

   PERFORM bdc_field       USING 'BDC_CURSOR'

                                 'RESBD-POTX1'.

   PERFORM bdc_field       USING 'RESBD-POTX1'

                                 p_gs_zstypf-potx1.

   PERFORM bdc_field       USING 'RESBD-SANKA'

                                 'X'.

   PERFORM bdc_dynpro      USING 'SAPLCOMD' ''.

   PERFORM bdc_field       USING 'BDC_OKCODE'

                                 '=BU'.

   CALL TRANSACTION 'CO02' USING bdcdata

                           MODE   'N'

                           UPDATE 'S'

                           MESSAGES INTO messtab.

 ENDFORM.                    " PRM_ADD_BOM_LINE

生产订单修改删除组件BDC的更多相关文章

SAP生产订单状态
SAP系统的常见订单状态如下: · CRTD (创建):标识生产订单刚刚创建,此时禁止做后续发料和报工确认等操作: · PREL (部分下达):当生产订单部分下达时,如仅下 ...
PP生产订单成本的计划、控制和结算
SAP系统成本分析功能关注订单的成本,通过对计划成本和实际成本的比较分析,可以发现成本控制上的问题,以便及时解决问题.1.订单成本计划在基础数据齐全的基础上,系统可以自动滚算生产订单的成本.生产订单计 ...
PP-判断生产订单状态（关闭）
方法一.工单号通过 resb找到对象号然后找到状态为I0045利用表JEST与TJ02T . 方法二.函数'STATU_CHECK' 检查工单状态为'I0045' 则为已做技术性关闭. READ T ...
ABAP 生产订单的创建与修改函数
ABAP 生产订单的创建与修改函数转自http://www.cnblogs.com/aBaoRong/archive/2012/04/11/2441946.html 如果生产订单过多,可以批量创建 ...
PP篇11 增、改生产订单组件BAPI
增.改生产订单组件BAPI BAPI_ALM_ORDER_MAINTAIN USE BAPI_ALM_ORDER_MAINTAIN TO CREATE OR CHANGE PM WORK ORDER ...
打通前后端全栈开发node+vue进阶【课程学习系统项目实战详细讲解】(3)：用户添加/修改/删除 vue表格组件 vue分页组件
第三章建议学习时间8小时总项目预计10章学习方式:详细阅读,并手动实现相关代码(如果没有node和vue基础,请学习前面的vue和node基础博客[共10章] 演示地址:后台:demo ...
关闭生产订单时报错“订单&的未处理将来更改记录组织删除标记/完成”，消息号CO688
消息号 CO688 诊断仍存在未来的更改记录,或从订单的确认过程的确认中要处理的错误记录.可能的确认过程是: 自动收货反冲实际成本的计算数据传输至 HR 系统响应未打算对订单设置删除标记/‘ ...
SAP PP 生产订单变更记录保存
*&---------------------------------------------------------------------* *& 包括 ZXCO1U01 *&am ...
SAP 生产订单变更管理 OCM Order Changement Management
SAP OCM Order Changement Management 一.目的订单变更管理系统是当我们的订单(生产订单.计划订单.采购订单)已经存在的时候,其物料主数据或销售数据有变更时,我们可 ...

随机推荐

将文件读取到内存、打印pe结构
#include <stdio.h> #include <malloc.h> #include <stdlib.h> #include <string.h&g ...
[SAP ABAP开发技术总结]物料、生产、采购、销售长文本
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
zoj 1199 几何公式推导
链接:http://acm.zju.edu.cn/onlinejudge/showProblem.do?problemId=199 Point of Intersection Time Limit: ...
ubuntu1604安装体验
昨天安装了ubuntu 16 安装成了双系统,这样的速度才能接受. 各种软件支持的都还算不错.除了启动时候原始的气息,启动之后挺稳定的. 最让人开心的是新的unity的设置更加丰富了,可以自动隐藏,更 ...
DB层面上的设计分库分表读写分离集群化负载均衡
第1章引言随着互联网应用的广泛普及,海量数据的存储和访问成为了系统设计的瓶颈问题.对于一个大型的互联网应用,每天几十亿的PV无疑对数据库造成了相当高的负载.对于系统的稳定性和扩展性造成了极大的 ...
Nginx模块学习之————accesskey权限模块使用（简单的m3u8防盗链）
配置文件:http://www.cnblogs.com/tinywan/p/5983694.html 通过加密后的文件: 正确地址:curl -i http://访问的IP地址(这里是直播节点IP地址 ...
实例化bean的三种方式
简单的说当获取bean时: 1.直接创建对象 2.不创建对象,直接调用factory-method指定的静态方法 3.先创建对象,再调用factory-method指点的非静态方法
[转载] 每个 Python 程序员都要知道的日志实践
原文: http://python.jobbole.com/81666/ 在现实生活中,记录日志非常重要.银行转账时会有转账记录:飞机飞行过程中,会有黑盒子(飞行数据记录器)记录飞行过程中的一切.如果 ...
Mysql 命令行工具
1.Mysql命令行工具分为两类:服务端命令行工具和客户端命令行工具. 2.服务端工具 mysql_install_db:建库工具 mysqld_safe:Mysql服务的启动工具,mysqld_sa ...
android 自定义进度条颜色
android 自定义进度条颜色先看图基于产品经理各种自定义需求,经过查阅了解,下面是自己对Android自定义进度条的学习过程! 这个没法了只能看源码了,还好下载了源码, sources\b ...

生产订单修改删除组件BDC

生产订单修改删除组件BDC的更多相关文章

随机推荐

热门专题