Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  VBasic / vb.net / vbs / wsh
  Sap .Net Connector

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:  Sap .Net Connector (881 mal gelesen)
fritsrol
Mitglied
CAD-Systemingenieur


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

Beiträge: 143
Registriert: 11.12.2002

Windows 10 64
Office 2013
Eplan P8 2.7 HF2
VS 2015
Medusa 2000i2

erstellt am: 07. Sep. 2017 07:14    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 Zusammen,

hat schon jemand Erfahrung mit dem Sap .Net Connector 3.0 ?
Ich bekomme für die Function RFC_READ_Table einfach keine Werte zurück.

Die Verbindung zu SAP steht, das habe ich mit einer anderen Function 'BAPI_COMPANYCODE_GETLIST' getestet.

    Sub ReadTable()
        If Not SapLogin(TextBoxSapSys.Text.ToUpper) Then Exit Sub
        Try
            Dim sTable As String = InputBox("SAP-Table", "Table", "DRAW").ToUpper
            Dim sFields As String = InputBox("Return Fields"Fields", "DOKNR DOKAR DOKVR").ToUpper
            Dim sOpts As String = InputBox("Options"Options", "DOKNR EQ '987654321'").ToUpper

            Dim repo As RfcRepository = SapDest.Repository


            Dim testfn As IRfcFunction = repo.CreateFunction("RFC_READ_TABLE")

            testfn.SetValue("QUERY_TABLE", sTable)
            'testfn.SetValue("DELIMITER", "@")
            'testfn.SetValue("ROWCOUNT", "20")
            testfn.SetValue("NO_DATA", "FALSE")

            testfn.Invoke(SapDest)

            Dim inputTableFields As IRfcTable = testfn.GetTable("FIELDS")

            Dim arrTmp() As String = Split(sFields, " ")
            For Each xFld In arrTmp
                If xFld <> "" Then
                    inputTableFields.Append()
                    inputTableFields(inputTableFields.RowCount - 1).SetValue("FIELDNAME", xFld)
                End If
            Next

            Dim inputTableOptions As IRfcTable = testfn.GetTable("OPTIONS")

            sOpts = sOpts.Replace(" AND ", " |AND ").Replace(" OR ", " |OR ")
            arrTmp = Split(sOpts, "|")
            For Each xOpt In arrTmp
                If xOpt <> "" Then
                    inputTableOptions.Append()
                    inputTableOptions(inputTableOptions.RowCount - 1).SetValue("TEXT", xOpt)
                End If
            Next

            Dim ReturnList As IRfcTable = testfn.GetTable("DATA")

            If ReturnList.Count > 0 Then
                Dim datRtn As DataTable = ToDataTable(ReturnList, sTable)
                DataGridView1.DataSource = datRtn
                Me.RichTextBoxLog.Text &= Now & " ... Ok " & DataGridView1.RowCount & vbCrLf
            Else

                Me.RichTextBoxLog.Text &= Now & " ... NoData " & vbCrLf
            End If

            repo.ClearAllMetadata()

        Catch ex As Exception
            Me.RichTextBoxLog.Text &= "Error " & ex.Message & vbCrLf

            MsgBox(ex.Message, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
        End Try

    End Sub

Hat einer eine Idee ?

Gruß
Roland

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