从0开始实现PB9调用SAP的RFC根据条件查询返回结果的例子

ehxz

免费乐捐，感谢支持

通用在SAP创建相应的RFC功能模块，再使用PB进行相关调用。其它内容应该也可以根据例子进行调整。
本例子为根据SAP自带表的航班代码，查询航班计划（从别人获取的SAP虚拟机，自带相关测试数据）。
SAP产品版本为：        EHP8 FOR SAP ERP 6.0，使用的SAP客户端为：740，理论上方法应该通用。

特别说明：
在操作时，有时候需要回车进行一些数据确认，如果左下角有黄色提示，可以回车跳过，一般不影响最终结果。

文档可能随时更新，以上网址下载最新版。
文档日期        修改者        修改记录
2022-04-17        郝晓宗        初始版本，完整测试
               

部分界面：               


核心代码：

1. SAP RFC:
   
2. SELECT * FROM SPFLI
   
3.   INTO TABLE DATA
   
4.         WHERE CARRID = CARRID.

复制代码

PB :

1. oleobject saprfc,connection2,funct,table_d //定义RFC对应对象
   
2. 
   
3. long ll_status //状态 DEBUG测试可以用
   
4. 
   
5. long     ll_rows, ll_cols ,i,j //总行数，总列数 当前行，当前列
   
6. string   ls_carrid //查询条件参数
   
7. string   ls_data //为显示数据临时存储
   
8. //long     ll_ret_row //返回当前导出的数据行数
   
9. 
   
10. saprfc = create oleobject
    
11. ll_status = saprfc.connecttonewobject("sap.functions.unicode")
    
12. connection2 = saprfc.connection
    
13. connection2.applicationserver = "192.168.30.170" //服务器IP
    
14. connection2.systemnumber = '00' //系统编号
    
15. connection2.client = '000' //客户端
    
16. connection2.user = 'zddic' //RFC用户
    
17. connection2.password = 'c123456' //密码
    
18. connection2.language = 'zh' //语言
    
19. //connection2.Codepage = "8400"
    
20. 
    
21. if connection2.logon(0,true) = false then  //判断是否成功
    
22.         messagebox('connet sap','connect failed')
    
23.         return
    
24. else
    
25.         //        messagebox('connet sap','success')
    
26. end if
    
27. 
    
28. mle_1.text = '' //置空内容
    
29. funct = saprfc.add("Z_RFC_SPFLI") //给接口函数输入参数赋值
    
30. ls_carrid = sle_1.text //取窗口的参数输入
    
31. funct.Exports('CARRID').value = ls_carrid //传入参数
    
32. 
    
33. if funct.call then //调用SAP的RFC函数
    
34.         table_d = funct.tables //得到从RFC返回的表内容
    
35.         ll_rows = table_d.item(1).rowcount //取得行数
    
36.         ll_cols = table_d.item(1).Columncount //取列数
    
37.         //   messagebox(string(ll_rows),string(ll_cols))
    
38.         if ll_rows <= 0 then return
    
39.         //循环取数据
    
40.         for i = 1 to ll_rows step 1
    
41.                 ls_data = string(table_d.item(1).value(i,1)) //从RFC返回的内容里逐个取数据
    
42.                 for j = 2 to ll_cols step 1
    
43.                         ls_data = ls_data + ' ' + string(table_d.item(1).value(i,j))
    
44.                 next
    
45.                 mle_1.text += ls_data + '~r~n' //将数据在界面显示
    
46.         next
    
47.         messagebox('提示','行数：' + string(ll_rows) + '~r~n' + '列数：' + string(ll_cols) )
    
48. else
    
49.         messagebox ('提示','导出数据失败! 出错信息: 调用SAP的RFC出错！' + string(funct.Exception) ) //
    
50. end if

复制代码

完整文档及相关PB9代码下载地址：

游客，如果您要查看本帖隐藏内容请回复

woyaodwn

从0开始实现PB9调用SAP的RFC根据条件查询返回结果的例子

hzzz_lgh3399

学习，谢谢！

JYpb

谢谢你的分享

jie__001

第一次看PB调用SAP的RFC ,学习了 ,谢谢分享