关闭

VB调用SAP的RFC

821人阅读 评论(0) 收藏 举报

VB调用SAP的RFC

发表时间:2007年6月12日 10时18分15秒        评论/阅读(1/10)
Set oFuncs = CreateObject("SAP.Functions")
Set oConn = oFuncs.Connection
  With oConn
    .ApplicationServer = "192.1.1.1"         //SAP服务器的IP
    .SystemNumber = "20"                    
    .Client = "300"                                 //SAP的使用端口
    .User = "zzkkjj"                               //登入用户名
    .Password = "12345"                       //登入密码
    .Language = "zh"                            //选择语言
  End With
 
 retval = oConn.Logon(hWnd, True)
 If retval = True Then
            Set Getbas_part_bj = oFuncs.Add("ZSD_PS_QTY")        //调用的RFC名称
                  Set WERKS = Getbas_part_bj.Tables("I_WERKS")   //对同一个输入变量传多个值
                           WERKS.rows.Add
                           WERKS(WERKS.RowCount, "WERKS") = "1100"
                           WERKS.rows.Add
                           WERKS(WERKS.RowCount, "WERKS") = "1101"
                  Set WERKS = Nothing
 
                  Getbas_part_bj.Exports("IM_ERDAT_LOW") = Date - 10    //对输入参数传值
                  Getbas_part_bj.Exports("IM_ERDAT_HIGH") = Date
 
                  If (Getbas_part_bj.Call = True) Then   
                                  Set oGetbas_part_bjTab = Getbas_part_bj.Tables("I_OUTPUT")    //输出的表
                                  lngRows = oGetbas_part_bjTab.RowCount                  //数据的条目数
                                  For lngLoop = 1 To lngRows              
                                              vbeln = oGetbas_part_bjTab(lngLoop, "vbeln")
                                              posnr = oGetbas_part_bjTab(lngLoop, "posnr")
                                             WERKS = oGetbas_part_bjTab(lngLoop, "WERKS")
                                              wmeng = oGetbas_part_bjTab(lngLoop, "kwmeng")
                                  Next
                                  Set oGetbas_part_bjTab = Nothing
                   Else
                                  send_msg ("函数<ZSD_PS_QTY>!调用失败!")
                   End If
                                  Set Getbas_part_bj = Nothing
 Else
                  send_msg ("连接SAP失败!")
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:7133次
    • 积分:144
    • 等级:
    • 排名:千里之外
    • 原创:7篇
    • 转载:1篇
    • 译文:0篇
    • 评论:1条
    文章分类
    文章存档
    最新评论