ZBDC1-第一个BDC程序

时间：2023-05-08 15:46:24浏览次数：40

标签：BDC PERFORM FIELDS 程序 SUBSCR USING ZBDC1 APPEND

*&---------------------------------------------------------------------*
*& Report  ZBDC1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZBDC1.
TYPE-POOLS:SLIS.

TYPES:BEGIN OF GTY_MATERIAL,
  MATNR(18) TYPE C,"物料编号
  MAKTX(40) TYPE C,"物料描述
  BISMT(40) TYPE C,"旧物料号
  BRGEW(50) TYPE C,"毛重
  NTGEW(50) TYPE C,"净重
  GEWEI(10) TYPE C,"重量单位
END OF GTY_MATERIAL.


DATA LT_MATERIAL TYPE TABLE OF GTY_MATERIAL.
DATA WA_MATERIAL TYPE GTY_MATERIAL.
DATA BDCDATA TYPE TABLE OF BDCDATA WITH HEADER LINE.


PERFORM APPEND_BDCDATA.

call TRANSACTION 'MM02' USING bdcdata MODE 'A'.

IF sy-subrc = 0.
WRITE 'BDC操作成功'.
ENDIF.



FORM APPEND_BDCDATA.

  PERFORM APPEND_SCREEN USING 'SAPLMGMM'               '0060'.
  PERFORM APPEND_FIELDS USING 'BDC_CURSOR'             'RMMG1-MATNR'.
  PERFORM APPEND_FIELDS USING 'RMMG1-MATNR'            'A01'.
  PERFORM APPEND_FIELDS USING 'BDC_OKCODE'             '=ENTR'.

  PERFORM APPEND_SCREEN USING 'SAPLMGMM'               '0070'.
  PERFORM APPEND_FIELDS USING 'BDC_CURSOR'             'MSICHTAUSW-DYTXT(01)'.
  PERFORM APPEND_FIELDS USING 'BDC_OKCODE'             '=ENTR'.
  PERFORM APPEND_FIELDS USING 'MSICHTAUSW-KZSEL(01)'   'X'.

  PERFORM APPEND_SCREEN USING 'SAPLMGMM'               '4004'.
  PERFORM APPEND_FIELDS USING 'BDC_OKCODE'             '/00'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGMM                                2004TABFRA1'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'   'SAPLMGD1                                1002SUB1'.
  PERFORM APPEND_FIELDS USING 'MAKT-MAKTX'             '金士顿 (Kingston) FURY 64GB'.
  PERFORM APPEND_FIELDS USING 'MARA-MEINS'             'SAPLMGD1                                2001SUB2'.
  PERFORM APPEND_FIELDS USING 'BDC_OKCODE'             'EA'.
  PERFORM APPEND_FIELDS USING 'MARA-MATKL'             '01'.
  PERFORM APPEND_FIELDS USING 'MARA-BISMT'             'NC001'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGD1                                2561SUB3'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGD1                                2007SUB4'.
  PERFORM APPEND_FIELDS USING 'BDC_CURSOR'             'MARA-NTGEW'.
  PERFORM APPEND_FIELDS USING 'MARA-BRGEW'             '200'.
  PERFORM APPEND_FIELDS USING 'MARA-NTGEW'             '300'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGD1                                2005SUB5'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGD1                                2011SUB6'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGD1                                2033SUB7'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGD1                                0001SUB8'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGD1                                0001SUB9'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGD1                                0001SUB10'.

  PERFORM APPEND_SCREEN USING 'SAPLMGMM'               '4004'.
  PERFORM APPEND_FIELDS USING 'BDC_OKCODE'             'BU'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGMM                                2004TABFRA1'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGD1                                1002SUB1'.
  PERFORM APPEND_FIELDS USING 'MAKT-MAKTX'             '金士顿 (Kingston) FURY 64GB'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR'             'SAPLMGD1                                2001SUB2'.
  PERFORM APPEND_FIELDS USING 'MARA-MEINS' 'EA'.
  PERFORM APPEND_FIELDS USING 'MARA-MATKL' '01'.
  PERFORM APPEND_FIELDS USING 'MARA-BISMT' 'NC001'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR' 'SAPLMGD1                                2561SUB3'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR' 'SAPLMGD1                                2007SUB4'.
  PERFORM APPEND_FIELDS USING 'BDC_CURSOR' 'MARA-NTGEW'.
  PERFORM APPEND_FIELDS USING 'MARA-BRGEW' '200'.
  PERFORM APPEND_FIELDS USING 'MARA-NTGEW' '300'.
  PERFORM APPEND_FIELDS USING 'MARA-GEWEI' 'KG'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR' 'SAPLMGD1                                2005SUB5'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR' 'SAPLMGD1                                2011SUB6'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR' 'SAPLMGD1                                2033SUB7'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR' 'SAPLMGD1                                0001SUB8'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR' 'SAPLMGD1                                0001SUB9'.
  PERFORM APPEND_FIELDS USING 'BDC_SUBSCR' 'SAPLMGD1                                0001SUB10'.
ENDFORM.



"设置屏幕
FORM APPEND_SCREEN USING VALUE(P_PROGRAM)  VALUE(P_DYNPRO).
  CLEAR BDCDATA.
  BDCDATA-PROGRAM = P_PROGRAM.
  BDCDATA-DYNPRO = P_DYNPRO.
  BDCDATA-DYNBEGIN = 'X'.
  BDCDATA-FNAM = ''.
  BDCDATA-FVAL = ''.
  APPEND BDCDATA.
ENDFORM.

"设置字段
FORM APPEND_FIELDS USING VALUE(P_FIELD) VALUE(P_VALUE).
  CLEAR BDCDATA.
  BDCDATA-FNAM = P_FIELD.
  BDCDATA-FVAL = P_VALUE.
  APPEND BDCDATA.
ENDFORM.

标签：BDC,PERFORM,FIELDS,程序,SUBSCR,USING,ZBDC1,APPEND
From： https://www.cnblogs.com/hua900822/p/17381936.html

微信小程序实现类似elementUI的Timeline时间线效果，自适应页面与文本
<viewclass="box"><viewwx:for="{{list}}"wx:key="index"class="one"><viewclass="onedot"></view><viewwx:if="{{index!=list.length-1}}"class="oneline......
mac版DataSpell2023：专业数据科学家的 IDE，macbook程序员必备
DataSpell2023forMac是一款强大的数据科学工具，它提供了广泛的功能和工具，帮助用户更好地分析、处理和可视化数据。无论是数据分析师、数据科学家、商业分析师还是研究人员，DataSpellforMac都是一个理想的选择。mac软件下载：https://mac.macsc.com/mac/4116.html?id=MzI1OTY2......
2021-2022年度国际大学生程序设计竞赛第10届陕西省程序设计竞赛（正式赛）H-Cute Rabbit
官方题解：https://blog.csdn.net/qq_62464995/article/details/127493921题目大意给出数组a[i]，将a分成两个数组x和y，使得\(\forallx[i]\%y[j]\)都相等（\(|x|,|y|>0\)）构造一组\(|y|\)最大的方案n<=1e5，1<=ai<=1e6题解神必结论题先假设a不是全部相等结论1：最小值一定只能全在x......
【uni.app/微信小程序】添加与胶囊平齐的盒子
添加与胶囊平齐的盒子<template><viewclass="search_box":style="'margin-top:'+searchBarTop+'px;height:'+searchBarHeight+'px'">您好</view></template><script> export......
WPS2021 无法加载此加载项程序解决办法
我们多次安装WPS后容易导致WPS的默认加载项位置错误，打开word时提示如下错误1.此时可以通过如下步骤解决：开发工具——加载项——禁用——确定即可以正常使用 2.如果需要加载mathtype加载项，则通过加入正确的路径即可解决：添加——mathtype正确的路径——确定3.重新打开word......
2021-2022年度国际大学生程序设计竞赛第10届陕西省程序设计竞赛（正式赛）A-Tree
官方题解：https://blog.csdn.net/qq_62464995/article/details/127493921题目大意给出一棵边权为1的树，构造排列p，使得①p[1]=1②dis(p[i],p[i+1])<=k题解神必防ak题当k=1时，显然只能是从1开始的一条链当k>=3时，一定有解，考虑构造：把树上的点按层黑白黑白染色，dfs遍历整棵树，在第......
【面向对象依赖关系概念总结】面向对象程序设计的五种依赖关系
目录简介继承关系聚合关系组合关系关联关系依赖关系总结简介面向对象程序设计中，要实现复杂的模块化系统，需要将系统划分为多个对象并组织它们之间的关系，这就涉及到常说的面向对象五大依赖关系。这五种依赖关系分别是：继承、聚合、组合、关联和依......
京东小程序折叠屏适配探索 | 京东云技术团队
前言随着近年来手机行业的飞速发展，手机从功能机进入到智能机，手机屏幕占比也随着技术和系统的进步越来越大，特别是Android10推出以后，折叠屏逐渐成为Android手机发展的趋势。图1Android手机屏幕发展趋势京东小程序近年来也支持了越来越多的业务和应用，做好小程序的折叠屏的适配也是......
小程序对某个对象实现深度监听
场景：有一个与页面实例不关联的外部对象，当其某个属性改变时，需要页面做出反应，也就是页面需要监听它问题：肯定直接想到计算属性，但是小程序不自带，然后用wx-computed等插件，发现都有缺陷，只能对页面实例内部data的属性进行监听；然而就算把这个外部对象声明到page的data里，但由于对象属性的......
【Dotnet 工具箱】DotNetCorePlugins- 动态加载和卸载 .NET 程序插件
你好，这里是Dotnet工具箱，定期分享Dotnet有趣，实用的工具和组件，希望对您有用！1.DotNetCorePlugins-动态加载和卸载.NET程序插件DotNetCorePlugins是一个.NET的开源插件项目，它提供了能够动态加载程序集的API，然后把它们作为.NET主程序的扩展程序执行。这个库主要用到了......

ZBDC1-第一个BDC程序

相关文章

赞助商

阅读排行