SAP Geschäftspartneradresse auslesen

  • Word

    SAP Geschäftspartneradresse auslesen

    Hallo zusammen,

    im Büro soll ich mit Word 365 auf SAP Daten zugreifen um somit Briefe schneller schreiben zu können.

    Habe schon vor einigen Jahren mit Access eine Lösung gefunden.

    Leider funktioniert diese nach dem letzten SAP-Gui Update nicht mehr. Aktuell benutzen wir die die SAP Logon 750 (vorher war es glaube ich die 740).

    Im Netz finde ich leider keinen aktuellen Code.

    Früher habe ich über

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim oBusinessPartner As Object ' Legt den Geschäftspartner fest
    2. ' Dim oBVE_Kreditinst As Object ' greift auf die BVE_Kreditinstsliste zu
    3. Dim oBusinessPartnerAdressData As Object ' Aufrufvariable für die Adressdaten des GP's
    4. Dim oBusinessPartnerCentralData As Object '
    5. Dim oBusinessPartnerCentraldataPersonData As Object ' Für die Kundendaten einer Person
    6. Dim oBusinessPartnerCentraldataOrganizationData As Object ' Für die Kundendaten einer Org
    7. Dim oBusinessPartnerCentraldataGroupData As Object ' Für die Kundendaten einer Gruppe
    9. Dim oAdressbemerkung As Object ' Aufrufvariable für die Adressbemerkung des GP's
    10. Dim oTelNr As Object ' Für die TelNr.
    11. Dim oFaxNr As Object ' Für die Faxnr.
    13. Dim StandardAddressGuid As String ' Beinhaltet die AdressGUID-Nr., die die Adresse eindeutig identifiziert
    14. Set oBusinessPartner = oBAPICtrl.GetSAPObject("BusinessPartner", "00" & SAP_Grunddaten.GPNr) ' Es wir hier der zu suchende GP festgelegt bzw. dessen Daten aufgerufen
    16. ' Hier werden alle Datentabellem abgeholt in SAP
    17. oBusinessPartner.GetAdresses StandardAddressGuid:=StandardAddressGuid
    18. oBusinessPartner.GetAddressDetail AddressGuid:=StandardAddressGuid, BapiAd_Rem:=oAdressbemerkung, BapiAdTel:=oTelNr, BAPIadfax:=oFaxNr, BAPIadsmtp:=oEMail
    19. oBusinessPartner.GetAddressDetail Addressdata:=oBusinessPartnerAdressData
    20. oBusinessPartner.GetAdresses StandardAddressGuid:=StandardAddressGuid
    21. oBusinessPartner.GetBankDetails BankDetails:=oBankverbindung ' Bankverbindung
    23. ' Für die Kunden zentralen Daten
    24. oBusinessPartner.Getdetail Centraldata:=oBusinessPartnerCentralData
    25. oBusinessPartner.Getdetail Centraldataperson:=oBusinessPartnerCentraldataPersonData
    26. oBusinessPartner.Getdetail Centraldataorganization:=oBusinessPartnerCentraldataOrganizationData
    27. oBusinessPartner.Getdetail Centraldatagroup:=oBusinessPartnerCentraldataGroupData
    29. SAP_Geschäftspartner.Anrede = AnredeText(oBusinessPartnerCentralData.value("Title_Key"))
    30. SAP_Geschäftspartner.Geschl = "" ' oBusinessPartnerCentralData.Value("SEX")
    31. SAP_Geschäftspartner.Geschl = Anrede
    32. SAP_Geschäftspartner.BriefAn = oBusinessPartnerCentralData.value("TITLELETTER")
    33. SAP_Geschäftspartner.Vorn = oBusinessPartnerCentraldataPersonData.value("FIRSTNAME")
    34. SAP_Geschäftspartner.Vorn2 = oBusinessPartnerCentraldataPersonData.value("MIDDLENAME")
    35. SAP_Geschäftspartner.NN = oBusinessPartnerCentraldataPersonData.value("LASTNAME")


    die Daten lesen können (ist hier nur mal ein kleiner Auszug aus dem wichtigsten Teil.

    Was noch jetzt aktuell funktioniert, ist das Finden der GP-Nr. anhand des Vertragskontos über

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Set oISU_Finder = FunctionCtrl.Add("BAPI_ISUFINDER_FINDOBJOFDATA")
    2. oISU_Finder.Exports("ObjectType") = ISU_Finder_Suchtypen_Intern(Suchentype)


    Gibt es hier in der Gemeinschaft jemanden, der mit der 750-Gui schon o. g. Problem gelöst hat?

    Vielen Dank

    Volker

Facebook
Telefonspende