VB调用SAP的RFC

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失败！")