Zugriff mittels VBA auf Remotebaustein

Integration von Systemen.
2 Beiträge • Seite 1 von 1
2 Beiträge Seite 1 von 1

Zugriff mittels VBA auf Remotebaustein

Beitrag von jocoder (Specialist / 210 / 3 / 60 ) » 19.06.2017 16:15
Hallo,

hatte jemand schon mal die Fehlermeldung in VBA bei Zugriff auf einen Remotefähigenbaustein in VBA:
"SAP data type not supported". Dabei lässt sich kein Objekt für einen Funktionsbaustein erzeugen mit der Anweisung functionControl.Add().
Das Anmelden funktioniert aber ohne Probleme.

Hier mein Code:

Code: Alles auswählen.

sub read_bewertung.
Dim aufruf As Boolean
    Dim fcontrol As Object
    Dim exception As String
    Dim bewertung As bewertung
    Dim lieferant As lieferant
    Dim Connection As Object
    
    Set fcontrol = CreateObject("SAP.Functions")
       
    Set Connection = fcontrol.Connection
    
    Connection.Client = "010"
    Connection.Language = "DE"
    
    If Connection.logon(0, False) <> True Then
        MsgBox "Login zu SAP nicht möglich"
        Exit Sub
    End If
    fcontrol.Connection = Connection
            
    ' Fehlermeldung: SAP data type not supported
    ' und fcontrol.Add() gibt kein Objekt zurueck
    aufruf = get_bewertungen(fcontrol, exception)
end sub

Public Function get_bewertungen(functionControl As Object, exception As String) As Boolean
    
   ' Die Konstanten beziehen sich auf das Tabellenblatt Steuerung
   Const beginRow = 2 ' Ab dieser Zeile stehen die Einkaufsorganisationen
   Const colEinkaufOrg = 5 ' In dieser Spalten stehen die Einkaufsorganisationen
   Const beginRowEingang = 2 ' In dieser Zeile stehen die Datumswerte Wareneingang von, Wareneingang bis
   Const colEingangVon = 8 ' In dieser Spalte steht das Datum Wareneingang von
   Const colEingangBis = 9 ' In dieser Spalte steht das Datum Wareneingang bis
    
   Dim read_lieferanten As Object
   Dim einkauf_org As String
   Dim idx As Integer
   Dim orowFields As Object
   Dim returnFunction As Boolean
   Dim error_message As Object
   
   Set read_lieferanten = functionControl.Add("ZREAD_BEWERTUNG")
   ' read_lieferanten steht immer auf nothing wie lässt sich das Objekt sonst erzeugen?          
   
   idx = beginRow
   Do
    einkauf_org = Excel.Worksheets("Steuerung").Cells(idx, colEinkaufOrg)
    If einkauf_org = "" Then
      Exit Do
    End If
    idx = idx + 1
    Set orowFields = read_lieferanten.Tables("EINKAUF_ORG").AppendRow
    orowFields(1, "EKORG") = einkauf_org
   Loop
   
   read_lieferanten.exports("EINGANG_VON") = Excel.Worksheets("Steuerung").Cells(beginRowEingang, colEingangVon)
   read_lieferanten.exports("EINGANG_BIS") = Excel.Worksheets("Steuerung").Cells(beginRowEingang, colEingangBis)
   ' error_message.Value
   Set error_message = read_lieferanten.imports("ERROR_MESSAGE")
   
   returnFunction = read_lieferanten.Call
    
   If read_lieferanten.exception = "" And returnFunction Then
     get_bewertungen = returnFunction
   Else
     exception = "Fehler beim Lesen aller Bewertungen" & error_message.value
     get_bewertungen = False
   End If
    
End Function



Re: Zugriff mittels VBA auf Remotebaustein

Beitrag von Romaniac (Specialist / 124 / 33 / 22 ) » 21.06.2017 17:17
Hallo Jocoder,

diese Meldung hatte ich noch nie, ich mache das so:

'Bezug zur Funktion herstellen
Set O_rfc_function = O_sap_server.Add("/BSHF/HC_RFC_POST_PA_PLAN_BAPI")

' <<<<< Importparameter >>>>>
If B_simulate = True Then
O_rfc_function.exports("IP_TEST") = "X"
Else
O_rfc_function.exports("IP_TEST") = ""
End If

' <<<<< Importtabellen >>>>>
' Tabelle mit Struktur und Daten des PA Beleges
Set IT_INPUT_DATA = O_rfc_function.Tables.Item("IT_INPUT_DATA")

B_result = O_rfc_function.Call

Gruß Wolfgang
Geht nicht gibts nicht

Seite 1 von 1

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und besseren Inhalt:

Vergleichbare Themen

Zugriff auf XML-Document mittels XPATH
von a-dead-trousers » 15.04.2013 08:13
Inenauftrag versenden mittels ALE
von Rabea1103 » 05.10.2020 14:45
Materialanlage mittels BAPI
von fuss » 01.09.2003 13:20
Sap Download mittels Excel(+VBA)
von golem » 29.10.2003 11:50
Ausgabe mittels REUSE_ALV_TREE_DISPLAY_OM
von Lehmo » 05.12.2006 14:43