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
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
Gibt es hier in der Gemeinschaft jemanden, der mit der 750-Gui schon o. g. Problem gelöst hat?
Vielen Dank
Volker
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
VB.NET-Quellcode
- Dim oBusinessPartner As Object ' Legt den Geschäftspartner fest
- ' Dim oBVE_Kreditinst As Object ' greift auf die BVE_Kreditinstsliste 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 Org
- Dim oBusinessPartnerCentraldataGroupData As Object ' Für die Kundendaten einer Gruppe
- Dim oAdressbemerkung As Object ' Aufrufvariable für die Adressbemerkung des GP's
- Dim oTelNr As Object ' Für die TelNr.
- Dim oFaxNr As Object ' Für die Faxnr.
- Dim StandardAddressGuid As String ' Beinhaltet die AdressGUID-Nr., die die Adresse eindeutig identifiziert
- Set oBusinessPartner = oBAPICtrl.GetSAPObject("BusinessPartner", "00" & SAP_Grunddaten.GPNr) ' Es wir hier der zu suchende GP festgelegt bzw. dessen Daten aufgerufen
- ' Hier werden alle Datentabellem abgeholt in SAP
- oBusinessPartner.GetAdresses StandardAddressGuid:=StandardAddressGuid
- oBusinessPartner.GetAddressDetail AddressGuid:=StandardAddressGuid, BapiAd_Rem:=oAdressbemerkung, BapiAdTel:=oTelNr, BAPIadfax:=oFaxNr, BAPIadsmtp:=oEMail
- oBusinessPartner.GetAddressDetail Addressdata:=oBusinessPartnerAdressData
- oBusinessPartner.GetAdresses StandardAddressGuid:=StandardAddressGuid
- oBusinessPartner.GetBankDetails BankDetails:=oBankverbindung ' Bankverbindung
- ' Für die Kunden zentralen Daten
- oBusinessPartner.Getdetail Centraldata:=oBusinessPartnerCentralData
- oBusinessPartner.Getdetail Centraldataperson:=oBusinessPartnerCentraldataPersonData
- oBusinessPartner.Getdetail Centraldataorganization:=oBusinessPartnerCentraldataOrganizationData
- oBusinessPartner.Getdetail Centraldatagroup:=oBusinessPartnerCentraldataGroupData
- SAP_Geschäftspartner.Anrede = AnredeText(oBusinessPartnerCentralData.value("Title_Key"))
- SAP_Geschäftspartner.Geschl = "" ' oBusinessPartnerCentralData.Value("SEX")
- SAP_Geschäftspartner.Geschl = Anrede
- SAP_Geschäftspartner.BriefAn = oBusinessPartnerCentralData.value("TITLELETTER")
- SAP_Geschäftspartner.Vorn = oBusinessPartnerCentraldataPersonData.value("FIRSTNAME")
- SAP_Geschäftspartner.Vorn2 = oBusinessPartnerCentraldataPersonData.value("MIDDLENAME")
- 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
Gibt es hier in der Gemeinschaft jemanden, der mit der 750-Gui schon o. g. Problem gelöst hat?
Vielen Dank
Volker