SAP Schnittstellen Programmierung mit RFC und VBA

SAP Daten mit MS Access bearbeiten

Karl Josef Hensel

• Verlag: tredition
• Jahr: 2022
• ISBN:
  9783347558816
• Auflage: 1
• Thema: Informatik
• Thema: Desktop-Anwendungen

Die Migration von Daten ist ein wichtiger Prozess bei der Einführung von SAP Systemen oder der Übernahme neuer Daten aus Fremdsystemen. Dies nimmt einen großen Anteil der Zeit und damit auch der Kosten in Migrations- Projekten in Anspruch. Dieses Buch gibt Ihnen praktische Tipps und Beispiele wie man unter Zuhilfenahme von Microsoft Produkten und der Programmiersprache VBA schnell und preiswert nützliche Tools zur Migration selbst erstellen kann. Eine Installation der Soft-ware auf den SAP Systemen ist dabei nicht erforderlich. Dies erspart das aufwendige Prozedere der Softwareimplementation in SAP Systemen. Entwicklungen mit ABAP Code, aufwendigen Dokumen-tationen, Tests in Development, Quality und Produktiv - Systemen sind nicht erforderlich und spa-ren Zeit und Geld. Die Batch-Input-Schnittstelle sowie die Tools LSMW und CATT werden nicht mehr benötigt.Das Buch eignet sich für Administratoren, technische Berater und Entwickler. Auch Power User aus den Fachabteilungen sind nach der Lektüre in der Lage, produktiv Daten aus den Systemen zu extrahieren oder hochzuladen.Die nach meiner Methode erstellten Programme lassen sich für alle SAP Module verwenden. Als Beispiel verwende ich Funktionalitäten der SAP Module IM und PS. Durch Nutzung fertiger SAP Funktionen und BAPI's können Funktionalitäten wie zum Beispiel das Anlegen und Ändern von Investitions-Programmen, Maßnahmenanforderungen und Projekten durchgeführt werden.

Kapitel 1

Kapitel 1.1 – Der Logon ins SAP System

Man muß sich bei der Programmierung vorab für eine Login Art entscheiden.

Ich empfehle auf jeden Fall den Logon für Funktionen zu nutzen und auf dieser Schiene zu bleiben.

Set FunctionCtrl = CreateObject("SAP.Functions")

Der Vorteil ist das alle SAP-Funktionen aber auch alle Funktionen der BAPI’s nutzbar sind, was umgekehrt nicht möglich ist und zu einem ständigen neuen Logon führt.

Wenn keine Logon Parameter im Programm mitgegeben werden, wird automatisch der SAP-GUI Logon verwendet.

Beispiel für den Logon:

'******** 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 ************

Voraussetzung:

Legen Sie ein Modul an in dem alle RFC Funktionen gesammelt werden, z.B.

Modulname SAP_RFC

Folgende Objekte werden deklariert:

Deklarationen:

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

Benötigte Funktionen:

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

' 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 Fehler

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 Fehler

RFC_Connect = True

Exit Function

Fehler:

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 =...

Inhaltsverzeichnis

• Cover
• Titelblatt
• Inhalt
• Kapitel 1
• Kapitel 2
• Kapitel 3
• Kapitel 4
• Kapitel 5
• Kapitel 6
• Kapitel 7
• Nachwort:
• Index
• Urheberrechte