Platforms to show: All Mac Windows Linux Cross-Platform

/Tools/RFC/RFC Test


Required plugins for this example: MBS Tools Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Tools/RFC/RFC Test

This example is the version from Fri, 19th Mar 2020.

Project "RFC Test.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
EventHandler Sub Open() // Mac APP gets killed if DYLD_LIBRARY_PATH is not set to point to folder of libraries // or maybe works if libraries are embedded #If TargetWin32 Const path = "sapnwrfc.dll" #Else Dim path As FolderItem = GetFolderItem("libsapnwrfc.dylib") Dim LibPath As String = path.parent.NativePath Call RFCModuleMBS.SetCurrentWorkingDirectory(libPath) #EndIf If RFCModuleMBS.LoadLibrary(path) Then MsgBox "Library loaded." Else MsgBox "Failed to load library"+EndOfLine+EndOfLine+RFCModuleMBS.LibraryLoadErrorMessage quit End If 'MsgBox RFCModuleMBS.Version 'Break Dim loginParams As New Dictionary loginParams.Value("ashost") = "hostname" loginParams.Value("sysnr") = "05" loginParams.Value("client") = "800" loginParams.Value("user") = "user" loginParams.Value("passwd") = "****" loginParams.Value("lang") = "EN" Dim connection As New RFCConnectionMBS(loginParams) Dim fd As RFCFunctionDescriptionMBS = connection.FunctionDescription("BAPI_COMPANY_GETDETAIL") Dim f As RFCFunctionMBS = fd.CreateFunction f.StringValue("COMPANYID") = "000007" f.Invoke Dim s As RFCStructureMBS = f.StructureValue("RETURN") Dim t As String = s.StringValue("MESSAGE") MsgBox t Exception r As RFCErrorExceptionMBS MsgBox r.message End EventHandler
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project

The items on this page are in the following plugins: MBS Tools Plugin.


The biggest plugin in space...