第二个BDC程序

时间：2023-05-09 13:45:22浏览次数：43

标签：ZHQ &--------------------------------------------------------------------- B

*&---------------------------------------------------------------------*
*& Report  ZBDC5
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZBDC5.

TYPE-POOLS:SLIS.

INCLUDE ZHQ_01_12TOP.
INCLUDE ZHQ_01_12FORM.


START-OF-SELECTION.


END-OF-SELECTION.
  PERFORM APPEND_BDCDATA.




*&---------------------------------------------------------------------*
*&      Form  APPEND_BDCDATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM APPEND_BDCDATA .

    DATA MAKTX type char50.

    MAKTX = '英特尔(Intel) i7-13700K 13代 酷睿 处理器 16核24线程'.

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

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

    PERFORM APPEND_SCREEN USING 'SAPLMGMM'              '4004'.
    PERFORM APPEND_FIELDS USING 'BDC_OKCODE'            '=SP02'.
    PERFORM APPEND_FIELDS USING 'MAKT-MAKTX'            MAKTX.
    PERFORM APPEND_FIELDS USING 'MARA-MEINS'            'EA'.
    PERFORM APPEND_FIELDS USING 'MARA-MATKL'            '01'.
    PERFORM APPEND_FIELDS USING 'MARA-BISMT'            'NC00111'.
    PERFORM APPEND_FIELDS USING 'MARA-BRGEW'            '2'.
    PERFORM APPEND_FIELDS USING 'MARA-GEWEI'            'KG'.
    PERFORM APPEND_FIELDS USING 'MARA-NTGEW'            '3'.

    PERFORM APPEND_SCREEN USING 'SAPLMGMM'              '4004'.
    PERFORM APPEND_FIELDS USING 'BDC_OKCODE'            '=SP02'.
    PERFORM APPEND_FIELDS USING 'MAKT-MAKTX'            MAKTX.
    PERFORM APPEND_FIELDS USING 'MARA-MEINS'            'EA'.
    PERFORM APPEND_FIELDS USING 'MARA-MATKL'            '01'.
    PERFORM APPEND_FIELDS USING 'MARA-BISMT'            'NC00111'.
    PERFORM APPEND_FIELDS USING 'MARA-BRGEW'            '2'.
    PERFORM APPEND_FIELDS USING 'MARA-GEWEI'            'KG'.
    PERFORM APPEND_FIELDS USING 'MARA-NTGEW'            '3'.

    PERFORM APPEND_SCREEN USING 'SAPLMGMM'              '4004'.
    PERFORM APPEND_FIELDS USING 'BDC_OKCODE'            '=BU'.
    PERFORM APPEND_FIELDS USING 'BDC_CURSOR'            'MAKT-MAKTX'.
    PERFORM APPEND_FIELDS USING 'MAKT-MAKTX'            MAKTX.

    CALL TRANSACTION 'MM02' USING BDCDATA MODE 'N'. "前台-A 后台-N 只显示错误-E

    IF sy-subrc = 0.
        WRITE 'BDC更新成功'.
    ENDIF.

ENDFORM.                    " APPEND_BDCDATA




FORM APPEND_SCREEN USING VALUE(PROGRAM) VALUE(DYNPRO).
    CLEAR BDCDATA.
    BDCDATA-PROGRAM = PROGRAM.
    BDCDATA-DYNPRO = DYNPRO.
    BDCDATA-DYNBEGIN = 'X'.
    BDCDATA-FNAM = ''.
    BDCDATA-FVAL = ''.
    APPEND BDCDATA.
ENDFORM.


FORM APPEND_FIELDS USING VALUE(FNAM) VALUE(FVAL).
    CLEAR BDCDATA.
    BDCDATA-PROGRAM = ''.
    BDCDATA-DYNPRO = ''.
    BDCDATA-DYNBEGIN = ''.
    BDCDATA-FNAM = FNAM.
    BDCDATA-FVAL = FVAL.
    APPEND BDCDATA.
ENDFORM.


*&---------------------------------------------------------------------*
*&  包含                ZHQ_01_12TOP
*&---------------------------------------------------------------------*
TYPES:BEGIN OF GTY_MATERIAL,
    MATNR TYPE C LENGTH 18,"物料号
    MAKTX TYPE C LENGTH 40,"物料描述
    BRGEW TYPE C LENGTH 20,"毛重量
    NTGEW TYPE C LENGTH 20,"净重量
    GEWEI TYPE C LENGTH 3, "单位
END OF GTY_MATERIAL.


DATA GS_MATERIAL TYPE GTY_MATERIAL.
DATA GT_MATERIAL TYPE TABLE OF GTY_MATERIAL.

DATA BDCDATA TYPE TABLE OF BDCDATA WITH HEADER LINE.

标签：ZHQ,&---------------------------------------------------------------------,B
From： https://www.cnblogs.com/hua900822/p/17384618.html

Linux 系统中，找到运行在某个特定端口的应用程序目录
首先，你需要找到运行在特定端口上的进程的PID。这可以通过使用lsof命令完成：lsof-i:<port>其中，<port>是你要查找的端口号。在返回的结果中，你可以找到PID（进程ID）。然后，你可以使用pwdx命令来获取这个进程的当前工作目录：pwdx<pid>其中，<pid>是你在上一步找到的进程......
Android Studio中使用断点调试程序
1.设置断点在希望中断的位置左边label一下，设置一个断点。例如下方图片所示在ActivityResultRegistry类中的第147行设置了一个断点，以及在365行dispatchResult()方法处设置了一个断点。设置好断点后，可以在菜单栏依次点击Run->ViewBreakpoints查看所设置的全部的断点，并进行删减......
SpringBoot项目如何打包成exe应用程序？
前言近期做了一个前后端合并的springboot项目，但是要求打包城exe文件，提供给不懂电脑的小白安装使用，就去研究了半天，踩了很多坑，写这篇文章，是想看到这篇文章的人，按照我的步骤走，能少踩坑。准备准备工作：一个jar包，没有bug能正常启动的jar包exe4j，一个将jar转换成exe的工具，链接：h......
ZLMediaKit报错，程序启动失败，请修改配置文件中端口号后重试!
报错信息如下：2023-05-0910:33:22.819W[MediaServer][13423-MediaServer]sockutil.cpp:421bind_sock6|Bindsocketfailed:addressalreadyinuse2023-05-0910:33:22.819W[MediaServer][13423-MediaServer]main.cpp:366start_main|端口占用或无权限:Listenon:......
金汇战神程序小精灵App下载
金汇战神系金汇科技出品普通牌战神程序，玩法齐全，无区域限制，高性价比高，调试安装更加快捷方便，安装时间大大缩短，适用于各种需要快速安装的场所。添加微心zscxmj咨询索取金汇战神小精灵App下载二维码链接手机上安装好金汇战神小精灵app后，连接上蓝牙后怎么使用怎么操作呢?其实很简单......
KaiOS 2.5.X 使用 WebIDE 安装以及调试第三方应用程序
本教程将展示使用WaterfoxClassic安装为KaiOS2.5.x设计的应用，同时我们也非常推荐使用它来进行安装和调试应用。本教程本身不会对手机产生任何损害，但请注意，你必须信任你所安装的应用是安全、无任何威胁的，WebIDE不会验证应用的安全性，MomoTrace不对因使用WebIDE安装恶意应......
#yyds干货盘点# LeetCode程序员面试金典：跳跃游戏 II
题目：给定一个长度为 n 的 0索引整数数组 nums。初始位置为 nums[0]。每个元素 nums[i] 表示从索引 i 向前跳转的最大长度。换句话说，如果你在 nums[i] 处，你可以跳转到任意 nums[i+j] 处:0<=j<=nums[i] i+j<n返回到达 nums[n-1] 的最小跳跃次数。生成的......
CMake+Visual Studio构建Qt程序
转载：https://www.codenong.com/cs106288798/转载：https://zhuanlan.zhihu.com/p/400804242一、编写代码文件main.cpp#include<QApplication>#include"Mainwindow.h"intmain(intargc,char*argv[]){QApplicationapp(argc,argv);MainWindowmain......
获取.Net程序集的PublicKeyToken
C:\ProgramData\Microsoft\Windows\StartMenu\Programs\VisualStudio2022\VisualStudioToolsSN-TC:\Users\97627\.nuget\packages\system.data.sqlclient\4.8.5\ref\netcoreapp2.1\System.Data.SqlClient.dll#SN-TYou.dll ......
程序员面试金典---24
部分排序思路：双指针，但是该双指针并不是相互关联的双指针。/***@param{number[]}array*@return{number[]}*/varsubSort=function(array){if(!array.length){return[-1,-1]}letleft=-1letright=-1letmin=Number.MA......

第二个BDC程序

相关文章

赞助商

阅读排行