使用函数BAPI_CONTRACT_CREATE的第十二个示例
最编程
2024-08-13 18:30:44
...
*&---------------------------------------------------------------------*
*& Report ZBAPI_WB21
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZBAPI_CONTRACT_CREATE.
DATA: L_FLAG TYPE C,
CNS_YES TYPE C.
DATA:L_EBELN TYPE BAPIMEOUTHEADER-NUMBER, "#EC NEEDED
LS_EKKO TYPE EKKO,
EXTENSIONIN LIKE BAPIPAREX OCCURS 0 WITH HEADER LINE,
LT_EXTENSIONOUT TYPE BAPIPAREX_T,
LT_RETURN TYPE BAPIRET2_T,
LS_RETURN TYPE BAPIRET2,
LS_HEADER TYPE BAPIMEOUTHEADER,
LS_HEADERX TYPE BAPIMEOUTHEADERX,
LS_ITEM TYPE BAPIMEOUTITEM,
LT_ITEM TYPE BAPIMEOUT_T_ITEM,
LS_ITEMX TYPE BAPIMEOUTITEMX,
LT_ITEMX TYPE BAPIMEOUT_T_ITEMX.
*--------------------------------------------------------------------*
* Header赋值
*--------------------------------------------------------------------*
CLEAR: LS_HEADER,LS_HEADERX,L_FLAG.
REFRESH: LT_RETURN, LT_ITEM, LT_ITEMX.
*READ TABLE gt_out INTO gwa_out INDEX 1.
*
*IF gwa_out-ebeln IS NOT INITIAL.
* g_action = cns_modify.
*ELSE.
* g_action = cns_create.
*ENDIF.
CNS_YES = 'X'.
*LS_HEADER-NUMBER = '4600000005'."gwa_out-ebeln. "采购凭证号
LS_HEADER-VENDOR = '0000400007'."gwa_out-lifnr. "供应商
LS_HEADER-DOC_TYPE = 'MK'."gwa_out-bsart. "协议类型
LS_HEADER-COMP_CODE = '8000'."gwa_out-bukrs. "公司代码
LS_HEADER-DOC_DATE = SY-DATUM."gwa_out-bedat. "协议日期
*ls_header-vper_start = sy-datum."gwa_out-kdatb. "协议起始日期
*ls_header-vper_end = sy-datum."gwa_out-kdate. "协议截至日期
LS_HEADER-PURCH_ORG = '8000'."gwa_out-ekorg. "采购组织
LS_HEADER-PUR_GROUP = '007'."gwa_out-ekgrp. "采购组
*ls_header-acum_value = ."gwa_out-ktwrt. "目标值
LS_HEADER-CURRENCY = 'USD'."gwa_out-waers. "货币
LS_HEADER-LANGU = SY-LANGU.
LS_HEADER-VPER_START = SY-DATUM.
LS_HEADER-VPER_END = SY-DATUM.
*LS_HEADERX-NUMBER = CNS_YES. "合同号
LS_HEADERX-VENDOR = CNS_YES. "供应商
LS_HEADERX-DOC_TYPE = CNS_YES. "协议类型
LS_HEADERX-COMP_CODE = CNS_YES. "公司代码
LS_HEADERX-DOC_DATE = CNS_YES. "协议日期
LS_HEADERX-VPER_START = CNS_YES. "协议起始日期
LS_HEADERX-VPER_END = CNS_YES. "协议截至日期
LS_HEADERX-PURCH_ORG = CNS_YES. "采购组织
LS_HEADERX-PUR_GROUP = CNS_YES. "采购组
*ls_headerx-acum_value = cns_yes. "目标值
LS_HEADERX-CURRENCY = CNS_YES. "货币
LS_HEADERX-LANGU = CNS_YES.
LS_HEADERX-VPER_START = CNS_YES.
LS_HEADERX-VPER_END = CNS_YES.
*--------------------------------------------------------------------*
* Header 自定义字段赋值
*--------------------------------------------------------------------*
DATA: LS_BAPI_TE_MEOUTHEADERX LIKE BAPI_TE_MEOUTHEADERX,
LS_BAPI_TE_MEOUTHEADER LIKE BAPI_TE_MEOUTHEADER.
*CLEAR extensionin.
*ls_bapi_te_meoutheader-number = gwa_out-ebeln.
*ls_bapi_te_meoutheader-zhtnum = gwa_out-zhtnum. "外部合同号
*ls_bapi_te_meoutheader-zlotno = gwa_out-zlotno. "LOT包号
*ls_bapi_te_meoutheader-zcgblx = gwa_out-zcgblx. "采购包类型
*ls_bapi_te_meoutheader-zhtbz = gwa_out-zhtbz. "采购立项号
*ls_bapi_te_meoutheader-zcgnum = gwa_out-zcgnum. "采购任务
*extensionin-structure = 'BAPI_TE_MEOUTHEADER'.
*CALL METHOD cl_abap_container_utilities=>fill_container_c
* EXPORTING
* im_value = ls_bapi_te_meoutheader
* IMPORTING
* ex_container = extensionin-valuepart1
* EXCEPTIONS
* illegal_parameter_type = 1
* OTHERS = 2.
*APPEND extensionin.
*
*CLEAR extensionin.
*ls_bapi_te_meoutheaderx-number = gwa_out-ebeln.
*ls_bapi_te_meoutheaderx-zhtnum = cns_yes. "外部合同号
*ls_bapi_te_meoutheaderx-zlotno = cns_yes. "LOT包号
*ls_bapi_te_meoutheaderx-zcgblx = cns_yes. "采购包类型
*ls_bapi_te_meoutheaderx-zhtbz = cns_yes. "采购立项号
*ls_bapi_te_meoutheaderx-zcgnum = cns_yes. "采购任务
*extensionin-structure = 'BAPI_TE_MEOUTHEADERX'.
*CALL METHOD cl_abap_container_utilities=>fill_container_c
* EXPORTING
* im_value = ls_bapi_te_meoutheaderx
* IMPORTING
* ex_container = extensionin-valuepart1
* EXCEPTIONS
* illegal_parameter_type = 1
* OTHERS = 2.
** EXTENSIONIN-VALUEPART1 = LS_BAPI_TE_MEOUTHEADERX.
*APPEND extensionin.
*--------------------------------------------------------------------*
* Item赋值
*--------------------------------------------------------------------*
CLEAR: LS_ITEM,LS_ITEMX,LT_ITEM[],LT_ITEMX[].
*LOOP AT gt_out INTO gwa_out.
CLEAR: LS_ITEM, LS_ITEMX.
LS_ITEM-ITEM_NO = 10."gwa_out-ebelp. "行号
LS_ITEM-MATERIAL = '3TE50G1803J2'." "物料
LS_ITEM-SHORT_TEXT = 'C.彩电.HU50N3030UWR.P/S..美国'."gwa_out-txz01. "端文本
* ls_item-matl_group = ."gwa_out-matkl. "物料组
LS_ITEM-MATL_GROUP = 'G14001'."gwa_out-werks. "工厂
LS_ITEM-PLANT = '8000'."gwa_out-werks. "工厂
LS_ITEM-STGE_LOC = 'Q012'."gwa_out-werks. "工厂
LS_ITEM-TARGET_QTY = 10."gwa_out-ktmng. "目标数量
LS_ITEM-PO_UNIT = 'PC'."gwa_out-meins.
* ls_item-po_unit_iso = ."gwa_out-meins.
LS_ITEM-NET_PRICE = 400."gwa_out-netpr. "净价
* ls_item-price_unit = ."gwa_out-peinh. "价格单位
* ls_item-orderpr_un = ."gwa_out-meins. "订单价格单位(采购)
* ls_item-orderpr_un_iso = ."gwa_out-meins. "订单价格单位(采购)
* ls_item-acctasscat = 'U'. "科目分配类别
* ls_item-item_cat = 0. "项目类别
*LS_ITEM-EMATERIAL = '9TD47G11033'.
APPEND LS_ITEM TO LT_ITEM.
LS_ITEMX-ITEM_NO = '10'."gwa_out-ebelp. "行号
LS_ITEMX-ITEM_NOX = CNS_YES. "行号
LS_ITEMX-MATERIAL = CNS_YES. "端文本
LS_ITEMX-SHORT_TEXT = CNS_YES. "端文本
* ls_itemx-matl_group = cns_yes. "物料组
LS_ITEMX-MATL_GROUP = CNS_YES. "工厂
LS_ITEMX-PLANT = CNS_YES. "工厂
LS_ITEMX-STGE_LOC = CNS_YES. "工厂
LS_ITEMX-TARGET_QTY = CNS_YES. "目标数量
LS_ITEMX-PO_UNIT = CNS_YES.
* ls_itemx-po_unit_iso = cns_yes.
LS_ITEMX-NET_PRICE = CNS_YES. "净价
* ls_itemx-price_unit = cns_yes. "价格单位
* ls_itemx-orderpr_un = cns_yes.
* ls_itemx-orderpr_un_iso = cns_yes.
* ls_itemx-acctasscat = cns_yes. "科目分配类别
* ls_itemx-item_cat = cns_yes. "项目类别
*LS_ITEMX-EMATERIAL = CNS_YES.
APPEND LS_ITEMX TO LT_ITEMX.
*ENDLOOP.
*--------------------------------------------------------------------*
* Create contract
*--------------------------------------------------------------------*
IF SY-SUBRC = 0.
"无合同号，新建
CALL FUNCTION 'BAPI_CONTRACT_CREATE'
EXPORTING
HEADER = LS_HEADER
HEADERX = LS_HEADERX
* TESTRUN = PA_TEST
IMPORTING
PURCHASINGDOCUMENT = L_EBELN
TABLES
RETURN = LT_RETURN
ITEM = LT_ITEM
ITEMX = LT_ITEMX
EXTENSIONIN = EXTENSIONIN.
ELSE.
" 有合同号，修改
L_EBELN = LS_HEADER-NUMBER.
CALL FUNCTION 'BAPI_CONTRACT_CHANGE'
EXPORTING
PURCHASINGDOCUMENT = L_EBELN
HEADER = LS_HEADER
HEADERX = LS_HEADERX
* TESTRUN = PA_TEST
IMPORTING
EXP_HEADER = LS_HEADER
TABLES
RETURN = LT_RETURN
ITEM = LT_ITEM
ITEMX = LT_ITEMX
EXTENSIONIN = EXTENSIONIN.
ENDIF.
L_FLAG = 'S'.
LOOP AT LT_RETURN INTO LS_RETURN WHERE TYPE = 'E' OR TYPE = 'A'.
L_FLAG = 'E'.
EXIT.
ENDLOOP.
IF L_FLAG EQ 'S'.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
*IF l_flag EQ 'S'.
* IF g_action EQ cns_create.
* MESSAGE s836 WITH l_ebeln.
* ELSE.
* MESSAGE s837 WITH l_ebeln.
* ENDIF.
*ELSE.
* IF g_action EQ cns_create.
* MESSAGE s838 WITH l_ebeln.
* ELSE.
* MESSAGE s839 WITH l_ebeln.
* ENDIF.
*ENDIF.
IF NOT LT_RETURN IS INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_STRUCTURE_NAME = 'BAPIRET2'
TABLES
T_OUTTAB = LT_RETURN
EXCEPTIONS
OTHERS = 0.
ENDIF.
推荐阅读
-
14-傅里叶变换的代码实现-一、numpy实现傅里叶变换和逆傅里叶变换 1.numpy实现傅里叶变换numpy.fft.fft2实现傅里叶变换，返回一个复数数组(complex ndarray)，也就是频谱图像numpy.fft.fftshift将零频率分量移到频谱中心(将左上角的低频区域，移到中心位置) 20*np.log(np.abs(fshift))设置频谱的范围。可以理解为，之前通过傅里叶变换得到复数的数组，是不能通过图像的方法展示出来的，需要转换为灰度图像（映射到[0,255]区间）需要注意的是1> 傅里叶得到低频、高频信息，针对低频、高频处理能够实现不同的目的2> 傅里叶过程是可逆的，图像经过傅里叶变换、逆傅里叶变换后，能够恢复到原始图像3> 在频域对图像进行处理，在频域的处理会反映在逆变换图像上 # 将绘制的图显示在窗口 %matplotlib qt5 import cv2 import numpy as np import matplotlib.pyplot as plt img = cv2.imread(r"image\lena.bmp",cv2.IMREAD_GRAYSCALE) # 傅里叶变换 f = np.fft.fft2(img) # 移动中心位置 fshift = np.fft.fftshift(f) # 调整值范围 result = 20*np.log(np.abs(fshift)) plt.subplot(1,2,1) plt.imshow(img,cmap=plt.cm.gray) plt.title("original") plt.axis("off") plt.subplot(1,2,2) plt.imshow(result,cmap=plt.cm.gray) plt.title("result") plt.axis("off") plt.show 傅里叶变换的频谱图像： 2.numpy实现逆傅里叶变换numpy.fft.ifft2实现逆傅里叶变换，返回一个复数数组（complex ndarray）numpy.fft.ifftshiftfftshift函数的逆函数，将中心位置的低频，重新移到左上角iimg = np.abs(逆傅里叶变化结果)设置值的范围，映射到[0,255]区间 # 将绘制的图显示在窗口 %matplotlib qt5 import cv2 import numpy as np import matplotlib.pyplot as plt img = cv2.imread(r"image\boat.bmp",cv2.IMREAD_GRAYSCALE) # 傅里叶变换 f = np.fft.fft2(img) fshift = np.fft.fftshift(f) # 逆傅里叶变换 ishift = np.fft.ifftshift(fshift) iimg = np.fft.ifft2(ishift) iimg = np.abs(iimg) plt.subplot(1,2,1) plt.imshow(img,cmap=plt.cm.gray) plt.title("original") plt.axis("off") plt.subplot(1,2,2) plt.imshow(iimg,cmap=plt.cm.gray) plt.title("iimg") plt.axis("off") plt.show 将一副图像，进行傅里叶变换和逆傅里叶变换后，进行对比（一样的） 实例：通过numpy实现高通滤波，保留图像的边缘信息 获取图像的形状rows,cols = img.shape获取图像的中心点crow,ccol = int(rows/2),int(cols/2)将频谱图像的中心区域（低频区域）设置为0（黑色）fshift[crow-30:crow+30,ccol-30:ccol+30] = 0 # 将绘制的图显示在窗口 %matplotlib qt5 import cv2 import numpy as np import matplotlib.pyplot as plt img = cv2.imread(r"image\boat.bmp",cv2.IMREAD_GRAYSCALE) # 傅里叶变换 f = np.fft.fft2(img) fshift = np.fft.fftshift(f) # 高通滤波 rows,cols = img.shape crow,ccol = int(rows/2),int(cols/2) fshift[crow-30:crow+30,ccol-30:ccol+30] = 0 # 逆傅里叶变换 ishift = np.fft.ifftshift(fshift) iimg = np.fft.ifft2(ishift) iimg = np.abs(iimg) plt.subplot(1,2,1) plt.imshow(img,cmap=plt.cm.gray) plt.title("original") plt.axis("off") plt.subplot(1,2,2) plt.imshow(iimg,cmap=plt.cm.gray) plt.title("iimg") plt.axis("off") plt.show 使用numpy实现高通滤波的实验结果： 二、opencv实现傅里叶变换和逆傅里叶变换 1.opencv实现傅里叶变换 返回结果 = cv2.dft(原始图像,转换标识)1> 返回结果：是双通道的，第一个通道是结果的实数部分，第二个通道是结果的虚数部分2> 原始图像：输入图像要首先转换成np.float32(img)格式3> 转换标识：flags = cv2.DFT_COMPLEX_OUTPUT，输出一个复数阵列numpy.fft.fftshift将零频率分量移到频谱中心(将左上角的低频区域，移到中心位置)调整频谱的范围，将上面频谱图像的复数数组，转换为可以显示的灰度图像（映射到[0,255]区间）返回值 = 20*np.log(cv2.magnitude(参数1,参数2))1> 参数1：浮点型X坐标值，也就是实部2> 参数2：浮点型Y坐标值，也就是虚部 # 将绘制的图显示在窗口 %matplotlib qt5 import cv2 import numpy as np import matplotlib.pyplot as plt img = cv2.imread(r"image\lena.bmp",cv2.IMREAD_GRAYSCALE) # 傅里叶变换 dft = cv2.dft(np.float32(img),flags = cv2.DFT_COMPLEX_OUTPUT) # 移动中心位置 dftShift = np.fft.fftshift(dft) # 调整频谱的范围 result = 20*np.log(cv2.magnitude(dftShift[:,:,0],dftShift[:,:,1])) plt.subplot(1,2,1) plt.imshow(img,cmap=plt.cm.gray) plt.title("original") plt.axis("off") plt.subplot(1,2,2) plt.imshow(result,cmap=plt.cm.gray) plt.title("result") plt.axis("off") plt.show 傅里叶变换的频谱图像： 2.opencv实现逆傅里叶变换返回结果 = cv2.idft(原始数据)1> 返回结果：取决于原始数据的类型和大小2> 原始数据：实数或者复数均可numpy.fft.ifftshiftfftshift函数的逆函数，将中心位置的低频，重新移到左上角调整频谱的范围，映射到[0,255]区间返回值 = cv2.magnitude(参数1,参数2)1> 参数1：浮点型X坐标值，也就是实部2> 参数2：浮点型Y坐标值，也就是虚部 # 将绘制的图显示在窗口 %matplotlib qt5 import cv2 import numpy as np import matplotlib.pyplot as plt img = cv2.imread(r"image\lena.bmp",cv2.IMREAD_GRAYSCALE) # 傅里叶变换 dft = cv2.dft(np.float32(img),flags = cv2.DFT_COMPLEX_OUTPUT) dftShift = np.fft.fftshift(dft) # 逆傅里叶变换 ishift = np.fft.ifftshift(dftShift) iimg = cv2.idft(ishift) iimg = cv2.magnitude(iimg[:,:,0],iimg[:,:,1]) plt.subplot(1,2,1) plt.imshow(img,cmap=plt.cm.gray) plt.title("original") plt.axis("off") plt.subplot(1,2,2) plt.imshow(iimg,cmap=plt.cm.gray) plt.title("inverse") plt.axis("off") plt.show 将一副图像，进行傅里叶变换和逆傅里叶变换后，进行对比（一样的） 实例：通过opencv实现低通滤波，模糊一副图像
-
使用函数BAPI_CONTRACT_CREATE的第十二个示例
-
详解ROW_NUMBER()函数的使用方法：分组与排序示例大公开
-
go语言Socket编程-Socket编程 什么是Socket Socket，英文含义是插座、插孔，一般称之为套接字，用于描述IP地址和端口。可以实现不同程序间的数据通信。 Socket起源于Unix，而Unix基本哲学之一就是“一切皆文件”，都可以用“打开open –> 读写write/read –> 关闭close”模式来操作。Socket就是该模式的一个实现，网络的Socket数据传输是一种特殊的I/O，Socket也是一种文件描述符。Socket也具有一个类似于打开文件的函数调用：Socket，该函数返回一个整型的Socket描述符，随后的连接建立、数据传输等操作都是通过该Socket实现的。 套接字的内核实现较为复杂，不宜在学习初期深入学习，了解到如下结构足矣。 套接字通讯原理示意 在TCP/IP协议中，“IP地址+TCP或UDP端口号”唯一标识网络通讯中的一个进程。“IP地址+端口号”就对应一个socket。欲建立连接的两个进程各自有一个socket来标识，那么这两个socket组成的socket pair就唯一标识一个连接。因此可以用Socket来描述网络连接的一对一关系。 常用的Socket类型有两种：流式Socket（SOCK_STREAM）和数据报式Socket（SOCK_DGRAM）。流式是一种面向连接的Socket，针对于面向连接的TCP服务应用；数据报式Socket是一种无连接的Socket，对应于无连接的UDP服务应用。 网络应用程序设计模式 C/S模式 传统的网络应用设计模式，客户机(client)/服务器(server)模式。需要在通讯两端各自部署客户机和服务器来完成数据通信。 B/S模式 浏览器(Browser)/服务器(Server)模式。只需在一端部署服务器，而另外一端使用每台PC都默认配置的浏览器即可完成数据的传输。 优缺点 对于C/S模式来说，其优点明显。客户端位于目标主机上可以保证性能，将数据缓存至客户端本地，从而提高数据传输效率。且，一般来说客户端和服务器程序由一个开发团队创作，所以他们之间所采用的协议相对灵活。可以在标准协议的基础上根据需求裁剪及定制。例如，腾讯所采用的通信协议，即为ftp协议的修改剪裁版。 因此，传统的网络应用程序及较大型的网络应用程序都首选C/S模式进行开发。如，知名的网络游戏魔兽世界。3D画面，数据量庞大，使用C/S模式可以提前在本地进行大量数据的缓存处理，从而提高观感。 C/S模式的缺点也较突出。由于客户端和服务器都需要有一个开发团队来完成开发。工作量将成倍提升，开发周期较长。另外，从用户角度出发，需要将客户端安插至用户主机上，对用户主机的安全性构成威胁。这也是很多用户不愿使用C/S模式应用程序的重要原因。 B/S模式相比C/S模式而言，由于它没有独立的客户端，使用标准浏览器作为客户端，其工作开发量较小。只需开发服务器端即可。另外由于其采用浏览器显示数据，因此移植性非常好，不受平台限制。如早期的偷菜游戏，在各个平台上都可以完美运行。 B/S模式的缺点也较明显。由于使用第三方浏览器，因此网络应用支持受限。另外，没有客户端放到对方主机上，缓存数据不尽如人意，从而传输数据量受到限制。应用的观感大打折扣。第三，必须与浏览器一样，采用标准http协议进行通信，协议选择不灵活。 因此在开发过程中，模式的选择由上述各自的特点决定。根据实际需求选择应用程序设计模式。 简单的C/S模型通信 Server端：Listen函数 func Listen(network, address string) (Listener, error) network：选用的协议：TCP、UDP， 如：“tcp”或 “udp” address：IP地址+端口号, 如：“127.0.0.1:8000”或 “:8000” Listener 接口： type Listener interface { Accept (Conn, error) Close error Addr Addr } Conn 接口： type Conn interface { Read(b byte) (n int, err error) Write(b byte) (n int, err error) Close error LocalAddr Addr RemoteAddr Addr SetDeadline(t time.Time) error SetReadDeadline(t time.Time) error SetWriteDeadline(t time.Time) error } 参看 [<u>https://studygolang.com/pkgdoc</u>](https://studygolang.com/pkgdoc) 中文帮助文档中的demo： 示例代码：TCP服务器.go package main import ( "net" "fmt" ) func main { // 创建监听 listener, err:= net.Listen("tcp", ":8000") if err != nil { fmt.Println("listen err:", err) return } defer listener.Close // 主协程结束时，关闭listener fmt.Println("服务器等待客户端建立连接...") // 等待客户端连接请求 conn, err := listener.Accept if err != nil { fmt.Println("accept err:", err) return } defer conn.Close // 使用结束，断开与客户端链接 fmt.Println("客户端与服务器连接建立成功...") // 接收客户端数据 buf := make(byte, 1024) // 创建1024大小的缓冲区，用于read n, err := conn.Read(buf) if err != nil { fmt.Println("read err:", err) return } fmt.Println("服务器读到:", string(buf[:n])) // 读多少，打印多少。 }
-
使用 php 中的数组指针函数操作数组的示例
-
使用指针在 php 中操作函数的示例分析
-
[高级数学] 使用隐函数导数的思想和方法求方程组的导数和偏导数--示例：
-
在 python 中使用随机函数的示例
-
重点：如何正确使用 QThread 类（许多详细示例可供比较，注意：QThread 中实现的所有函数都由创建它们的线程调用，而不是在线程中调用）。
-
使用 python 生成器/yield 协处理器/gevent 编写简单图像下载器函数的示例