SAP interface programming with RFC and VBA

Edit SAP data with MS Access

Karl Josef Hensel

• Editore: tredition
• Anno: 2022
• ISBN:
  9783347574793
• Edizione: 1
• Argomento: Informatique
• Categoria: Applications de bureau

The migration of data is an important process when introducing SAP systems or adopting new data from third-party systems. This takes up a large proportion of the time and thus also the costs in migration projects. This book gives you practical tips and examples of how you can use Microsoft products and the VBA programming language to quickly and inexpensively create useful migration tools yourself. It is not necessary to install the software on the SAP systems. This saves the time-consuming procedure of software implementation in SAP systems. Developments with ABAP code, complex documentation, tests in development, quality and productive systems are not necessary and save time and money. The batch input interface and the LSMW and CATT tools are no longer required.The book is suitable for administrators, technical consultants and developers in the SAP environment. Even power users from the specialist departments will be able to produc-tively extract or upload data from the SAP systems after reading it. The programs created according to my method can be used for all SAP modules. As an example, I use functionalities of the SAP module PS. By using ready-made SAP functions and BAPI's, functionalities such as creating and changing projects and WBS-Elements can be carried out.

Chapter 1

Chapter 1.1 – The logon to the SAP system

You have to decide on a login type in advance when programming.

I definitely recommend using the logon for functions and staying on track.

Set FunctionCtrl = CreateObject("SAP.Functions")

The advantage is that all SAP functions as well as all BAPI functions can be used, which is not possible the other way around and leads to a constant new logon.

If no logon parameters are given in the program, the SAP GUI logon is used automatically.

Logon example:

'******** RFC LOGON ****************

If Not sapConnection Is Nothing Then

If sapConnection.IsConnected <> 1 Then

If RFC_Connect() = False Then Exit Sub

End If

Else

If RFC_Connect() = False Then Exit Sub

End If

'******** RFC LOGON END ************

Requirements:

Create a module in which all RFC functions are collected, e.g.

Module name SAP_RFC

The following objects are declared:

Declarations:

Public FunctionCtrl As Object

Public sapConnection As Object

Private oRowOPTIONS As Object

Private Akt_User As String

Private Akt_PW As String

Private Akt_SAP_System As String

Private Akt_SAPMandant As String

Private Akt_SAPLang As String

Private Akt_ApplicationServer As String

Private Akt_SystemNumber As Integer

Private oRFC_READ_TABLE As Object

Private MyArray(10) As Variant

Required functions:

' *********************************************************************************

' Public Functions

' *********************************************************************************

Public Function RFC_Connect(Optional s_User = "", _

Optional s_PW = "", _

Optional s_SAP_System = "", _

Optional s_SAPMandant = "", _

Optional s_SAPLang = "", _

Optional s_ApplicationServer = "", _

Optional i_SystemNumber = 0) As Boolean

On Error GoTo Error

Dim Pruefnummer

Dim TEMP As Variant

RFC_Connect = False

' Parameter setzen

If s_User <> "" Then Akt_User = s_User

1:

Pruefnummer = 1

TEMP = FunctionCtrl.Count

2:

Pruefnummer = 2

If sapConnection.IsConnected <> 1 Then GoTo Error

RFC_Connect = True

Exit Function

Error:

Err.Clear

Select Case Pruefnummer

Case 1 ' FunctionCtrl nicht initiert.

pr_Init

GoTo 1

Case 2 ' Noch keine SAP-Anmeldung

If pr_Logon() = False Then Exit Function

GoTo 2

End Select

End Function

' *********************************************************************************

' Private Functions

' *********************************************************************************

Private Sub pr_Init()

Set FunctionCtrl = CreateObject("SAP.Functions")

Set sapConnection = FunctionCtrl.Connection

End Sub

Private Function pr_Logon() As Boolean

Dim silent As Boolean

If sapConnection.IsConnected = 1 Then Exit Function

sapConnection.Client = Akt_SAPMandant

sapConnection.LANGUAGE = Akt_SAPLang

sa...

Indice dei contenuti

• Cover
• Title Page
• Table of Contents
• Chapter 1
• Chapter 2
• Chapter 3
• Chapter 4
• Chapter 5
• Chapter 6
• Chapter 7
• Epilogue:
• Index
• Copyright