Office 365 Zugriff auf SAP Daten per VBA

Code: Alles auswählen.

Public Function GPAdresse_zuweisen(Optional AnzeigeVorherlöschen As Boolean = True)
    ' Funktionsbaustein lesen
    Call SAP_Anmelden(SAPGeschäftspartner)
    
    Call Variablen_Löschen(Geschäftspartner)
    
    ' Prüfen, ob überhaupt eine Verbindung besteht.
    If boolLogon = False Then
        MsgBox "Bitte erst im SAP Anmelden"
        Exit Function
    End If
     
'    Call Vertragskonto_Daten_Lesen("00" & GP_Nr)
    
    Dim GPAdr As GP_Adresse ' legt die
    
    ' Für die Adressdaten
    Dim oBusinessPartner As Object ' Legt den Geschäftspartner fest

    Dim oPartnerData As Object ' Legt den Geschäftspartner fest
'    Dim oBVE_Kreditinstitut As Object ' greift auf die BVE_Kreditinstitutsliste zu
    Dim oBusinessPartnerAdressData As Object ' Aufrufvariable für die Adressdaten des GP's
    Dim oBusinessPartnerCentralData As Object '
    Dim oBusinessPartnerCentraldataPersonData As Object ' Für die Kundendaten einer Person
    Dim oBusinessPartnerCentraldataOrganizationData As Object ' Für die Kundendaten einer Organisation
    Dim oBusinessPartnerCentraldataGroupData As Object ' Für die Kundendaten einer Gruppe
    
    Dim oAdressbemerkung As Object ' Aufrufvariable für die Adressbemerkung des GP's
    Dim oTelefonnr As Object ' Für die Telefonnr.
    Dim oFaxNr As Object ' Für die Faxnr.
    
    Dim StandardAddressGuid As String ' Beinhaltet die AdressGUID-Nr., die die Adresse eindeutig identifiziert
            
    Dim oPartner   As Object
    Dim oTAddress  As Object
    Dim oTBankData As Object
        
    ' Den generellen Zugriff auf den Geschäftspartner setzen
    ' Objekt : Bodo Zugriff erlauben
    Dim oPartnerNumber As String
    oPartnerNumber = "Partner:= 00" & GP_Nr
    ' *************************************
   ' Diese nächste Zeile liefert kein Ergebnis und somit können die nachfolgenden Zeilen logischerweise auch nichts liefern
    ' *************************************
    Set oBusinessPartner = oBAPICtrl.GetSAPObject("UtilBusinessPartner", oPartnerNumber)
    
    ' Den Verwies auf die Ergebnisliste setzen
    ' Export-Parameter (Ergebnisliste)
    Set oPartnerData = oBAPICtrl.DimAs(oBusinessPartner, "GetDetail", "PartnerData") ' Partnerdaten
    Set oTAddress = oBAPICtrl.DimAs(oBusinessPartner, "GetDetail", "TAddress") ' Adressdaten
    Set oTBankData = oBAPICtrl.DimAs(oBusinessPartner, "GetDetail", "TBankData") ' Bankdaten
    
    ' SAP Daten tatsächlich abrufen
    oBusinessPartner.GetDetail PartnerData:=oPartnerData, TAddress:=oTAddres, TBankData:=oTBankData
    
    Exit Function
End Function

Code: Alles auswählen.

    ' Den generellen Zugriff auf den Geschäftspartner setzen
    Set oBusinessPartner = oBAPICtrl.GetSAPObject("UtilBusinessPartner")
            
    ' Für die spätere Filterung den Verweis setzen
    ' Import-Parameter (Filter)
    Set oTPartner = oBAPICtrl.DimAs(oBusinessPartner, "GetList", "TPartner") ' Geschäftspartner
    
    ' Den Verwies auf die Ergebnisliste setzen
    ' Export-Parameter (Ergebnisliste)
    Set oTList = oBAPICtrl.DimAs(oBusinessPartner, "GetList", "TList") ' Endergebnis
    
    ' Die Filterwerte für Geschäftspartner einstellen
    Set oRangeRow = oTPartner.ROWs.Add ' Geschäftspartner
    oRangeRow("SIGN_ISU") = "I" ' Inkludieren (einschließen)
    oRangeRow("OPTION_ISU") = "EQ" ' Equals (Gleich)
    oRangeRow("LOW_ISU") = "00" & GP_Nr ' GP-Nr incl, führende Nullen
    
    ' SAP Daten tatsächlich abrufen
    oBusinessPartner.GetList TPartner:=oTPartner, TList:=oTList
       
    ' Die Daten in die entsprechenden Variablen schreiben
    ' ES gibt imer nur eine Zeile, da ich ja nur 1 GP abfrage
    Dim oZeile As Object
    For Each oZeile In oTList.ROWs
      Msgbox oZeile("NAME_LAST")
      Msgbox oZeile("NAME_FIRST")
  Next