点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

亲爱的

我正在开发se38程序来创建QR码或varcode。

但是问题在于它是通过执行GUI_DOWNLOAD函数下载到本地PC的

请检查我的源代码，然后请让我知道如何将位图图像下载到服务器目录？

SPAN {font-family：" Courier New"; 字体大小：10pt； 颜色：#000000; 背景：#FFFFFF; } .L0S31 {font-style：italic; 颜色：#808080; } .L0S32 {color：#3399FF; } .L0S33 {color：#4DA619; } .L0S52 {color：#0000FF; } .L0S55 {color：#800080; } .L0S70 {color：#808080; }

*＆--------------------------------------------- ------------------------ *
*＆报告Y_BARCODE_TEST
*＆------------- -------------------------------------------------- ------ *
*＆
*＆--------------------------------- ------------------------------------ *
报告Y_BARCODE_TEST。
参数：类似条形码 tfo05-tdbarcode默认值为'ZQRCODE'，

barcdata（50）类型c小写字母默认值为'1234567890'，

文件名类型字符串小写字母默认值为'd：\ 1.bmp'。

DATA：errmsg（80）类型c，

bc_cmd类似于itcoo，

bp_cmd类似于itcoo，

bitmapsize类型i，

bitmap2_size 类型i，

w类型i，

h类型i，

位图喜欢rspolpbi OCCURS 10 WITH标题行，

bitmap2喜欢rspolpbi OCCURS 10 WITH 标题行，

l_bitmap类型xstring，

otf类似于itcoo OCCURS 10，带有标题行。

执行get_otf_bc_cmd在程序中sapmssco

使用条形码

barcdata

bc_cmd。

检查sy-subrc =0。

bp_cmd-tdprintcom ='BP'。

执行get_otf_bp_cmd程序sapmssco

使用条形码

bp_cmd-tdprintpar。
< br>检查sy-subrc =0。

在程序中执行渲染条形码sapmssco

表格位图

使用bc_cmd

bp_cmd

barcdata

bitmapsize

w

h

errmsg。

检查sy-subrc =0。

执行bitmap2otf 在程序中sapmssco

使用bitmapsize

w
h。

数据长度类型表位图

otf

i。

数据十六进制类型xstring。

数据bitmap3类型xstring。

FIELD-SYMBOLS 类型x。

clear：十六进制，bitmap3 。

在otf处循环。

长度= otf-tdprintpar + 2（2）。

将otf-tdprintpar + 4（length）分配给转换。 br>
hex = （长度）。

在BYTE MODE中将bitmap3十六进制连接到bitmap3。

endloop。

*从旧格式转换为新格式 格式

hex ='FFFFFFFF01010000'。

在BYTE模式下将bitmap3（8）十六进制bitmap3 + 8合并为bitmap3。

清除十六进制。

在BYTE模式下将十六进制右移90位。

CONCATENATE 位图3（42）在字节模式下将位图3 + 42转换为位图3。

数据位图4类型为SBDST_CONTENT。

调用函数'SCMS_XSTRING_TO_BINARY'
导出
缓冲=位图3" xstring
表格
binary_tab = bitmap4。

数据bitmap4_size类型i。

bitmap4_size = xstrlen（bitmap3）。

调用函数'SAPSCRIPT_CONVERT_BITMAP'
导出
> OLD_FORMAT ='BDS'
NEW_FORMAT ='BMP'
BITMAP_FILE_BYTECOUNT_IN = bitmap4_size
IMPORTING
BITMAP_FILE_BYTECOUNT = bitmap2_size
表格
bitmap_file = bitmap2
BDS_BITMAPSFILE = EX
NO_BITMAP_FILE = 1
格式_NOT_SUPPORTED = 2
BITMAP_FILE_NOT_TYPE_X = 3
NO_BMP_FILE = 4
BMPERR_INVALID_FORMAT = 5
BMPERR_NO_COLORTABLE = 6
BMPERR_UNSUP_COM > BMPERR_EOF = 9
BDSERR_INVALID_FORMAT = 10
BDSERR_EOF =11。

呼叫方法cl_gui_frontend_services => gui_download
导出
bin_filesize = bitmap2_size
文件名=文件名
文件类型='BIN '
更改
data_tab = bitmap2 []
例外情况
其他= 3。