Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SAP PLM
  Erste Schritt Makro

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Erste Schritt Makro (2443 mal gelesen)
Grosser Buba
Mitglied
CAD/PLM-Admin (Dipl. Ing. Maschinenbau)


Sehen Sie sich das Profil von Grosser Buba an!   Senden Sie eine Private Message an Grosser Buba  Schreiben Sie einen Gästebucheintrag für Grosser Buba

Beiträge: 68
Registriert: 17.06.2010

Windows XP 32-bit
Windows 7 64-bit
4GB-RAM
SolidWorks 2010 SP4.0/5.0
SolidWorks 2011 SP3.0
Dell-Rechner
Nvida Quadro FX's
TopsWorks
3D Connexion
CAD-Desktop
SAP

erstellt am: 11. Jul. 2011 08:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Forum,
ich versuche verzweifelt ein Makro in Visual Studio o. VBA zu schreiben, mit dem ich auf unser SAP-System zugreifen kann. Ich habe mir dafür schon das Buch "SAP R/3 Kommunikation mit RFC und Visual Basic" gekauft und damit folgenden Code zusammengestrickt:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim FunctionCtrl As Object
        Dim SapConnection As Object
        Dim Func1 As Object
        Dim ret, x

        FunctionCtrl = CreateObject("SAP.Functions")
        SapConnection = FunctionCtrl.Connection
        'SapConnection.RfcWithDialog = True 'Frontend Dialog
        'automatische Anmeldung
        SapConnection.client = "100"
        SapConnection.user = "Name"
        SapConnection.password = "Passwort"
        SapConnection.language = "DE"
        SapConnection.HostName = "Server"
        SapConnection.Systemnumber = "00"
        SapConnection.logon(0, True)
        'SapConnection.SystemInformation()

        Func1 = FunctionCtrl.Add("BAPI_DOCUMENT_GETDETAIL2")
        Func1.Exports("DOCUMENTTYPE") = "zme"
        Func1.Exports("DOCUMENTNUMBER") = "D4711"
        Func1.Exports("DOCUMENTPART") = "001"
        Func1.Exports("DOCUMENTVERSION") = "00"
        ret = Func1.call()
        If Func1.Exception <> "" Or Not ret Then
            MsgBox("Fehler")
        Else
            x = Func1.Exports("RETURN")
            x = Func1.Exports("DOCUMENTDATA")
            ListBox1.Text = x
        End If
        SapConnection.logoff()
    End Sub
End Class

Die Anmeldung funktioniert auch soweit super. Auch wenn ich irgendeinen Parameter bei den Exports ändere, erhalte ich eine Fehlermedung (was doch eigentlich besagt, dass es so richtig ist?!?). Der Funktionsbaustein ("BAPI_DOCUMENT_GETDETAIL2")ist in der SE37 als RFC-Fähig gekennzeichnet.
Nur leider bekomme ich auf biegen und brechen keine Daten heraus. Ich erhalte immer nur "nothing".
Die Verweise sollten auch korrekt sein. Nur die librfc32.dll kann ich irgendwie nicht verweisen.
Habt Ihr evtl. eine Idee was ich falsch mache?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz