Kommunikation mit SAP GUI ohne BAPI oder RFC

[Snaky]

Hallo DP,

ich würde gern ein Programm schreiben, welches mit der GUI von SAP kommuniziert und diese steuert. Ich kann keine RFCs oder BAPIs nutzen, da ich externer Auditer bin und es sich damit nicht um mein eigenes System handelt.
Ziel ist es diverse Transaktionen durchzuführen und Daten auomatisiert in lokale Dateien zu extrahieren. (z.B. den Export der Daten aus RSPARAM (Transakion SA38)).
Mein erster Ansatz war via Postmessage und Sendmessage Befehle an die GUI zu schicken. Dies hat auch wunderbar geklappt, sodass ich z.B. die SA38 eifach aufrufen kann. Das Problem ist nun, dass ich von Edit Feldern in SAP, welche z.B. für die Eingrenzung von Abfragen oder zur Eingabe des Programmnamens dienen, kein handle finden kann. (z.B. über Winspy) Wenn ich es richtig sehe, liegen die Komponenten in eine Art Frame. Hat jemand von euch schon einmal etwas ähnliches versucht oder kennt einen alternativen Lösungsweg? Wie gesagt: Es ist wichtig, dass ich Kommunikation mit dem SAP System nur über die SAP Gui durchführen kann. Für diese erhalte ich vom Kunden einen Benutzer.

Wenn euch irgendetwas einfällt, dann schreibt es. Ich erwarte keinen Code - würde mich über Ideen freuen.

Viele Grüße

[mschaefer]

Wenn es eingebetteter HTML-Code oder Java-Edits sind müssen die auch kein eigenes Handle haben. Eventuell kannst Du den Frame selekttieren und die Edits mit Tabs anfahren. Die Werte kannst Du dann mit Strg-A+Strg+C ins Clipboard holen und entssprechend auch Werte eintragen. Ist allerdings ein ziemliches herumprobieren.

Grüße

[Snaky]

Hallo Martin,

danke für deine schnelle Antwort. Ich habe auch schon überlegt die einzlnen Edits mittels Postmessage(window, WM_KEydown...) zu befüllen. Die Extraktion der Daten ist nicht das Problem. SAP bietet die Möglichkeiten Daten direkt in XLS, TXT, HTML etc. zu exportieren.

Das Problem mit den Post/Sendmessage ist leider nur, dass man schwer sicherstellen kann, dass alle Events verarbeitet worden sind. Also folgendes:

Code:

Procedure BefehlSenden(Befehl : string); //Befehl:= 'RSPARAM' (Beispiel)
var
i : integer;
Window : hwnd;
Begin
window := findwindow('SAP_FRONTEND_SESSION', nil);
for i = 1 to length(Befehl) -1 do postmessage(window,WM_KEYDOWN,ord(upcase(Befehl[i])), mapvirtualkey(0,ord(upcase(Befehl[i])));

End;

Ich werde es heute Abend mal testen. Ich habe nur das Gefühl, dass ich spätestens bei Mehrfachselektionen an meine Grenzen stoßen werde mit dieser Methode. Wie stelle ich sicher, dass die SAP GUI keine Messages verschluckt?

[mschaefer]

Ja das ist sicherlich etwas leidlich, aber ich sehe im Moment nur den Weg zwischen de Messages etwas Zeit zu lassen und eventuell nach dem Tab jedesmal Ctr-A Ctrl-C zu senden, damit Du zumindest einen Eingabewert/Vorgabewert im Clipboard vergleichen kannst und damit auf das richtige er falsche Edit schließen.

Grüße

[BlackbirdBerlin]

Zitat von Snaky:

...
Ziel ist es diverse Transaktionen durchzuführen und Daten auomatisiert in lokale Dateien zu extrahieren. (z.B. den Export der Daten aus RSPARAM (Transakion SA38))...

Hi Snaky,
die RSPARAM ist nur eine Struktur, die im Gegensatz zu einer transparenten Tabelle keine Daten enthält. Zumindest nicht in tabellarischer Form.
Welche Programme ( SAP-Standard? ) willst Du denn mit SA38 ausführen, um deren Ergebnis zu extrahieren?
Kannst Du ggf. mit deinem User bestehende RFC-Bausteine aufrufen ( z.B. rfc_get_table_entries )?

Außerdem gibt es eine Komponente, mit der man die SAP-GUI fernsteuern kann / konnte.
Damit kann man direkt Eingabefelder per Namen anspringen, dort Wert eintragen und auslesen...

Delphi-Quellcode:

    Sap := TSapEvent.Create( Application.MainForm );
    bOK := Sap.Connect( frmHaupt.edHost.Text, frmHaupt.edHostID.Text, 2050);   // SapGuiMerlin or SapGuiFullMenu
    OKCheck(bOK, 'Verbindung erstellen');

    Sap.RowDimension := 24;
    Sap.RowListDimension := 24;
    Sap.ColumnDimension := 80;
    Sap.ColumnListDimension := 80;
    Sap.SetSizeFlag := True;
    OKCheck(bOK, 'Verbindung einstellen');

    Application.ProcessMessages;
    
    iCtrl := Sap.FindByField('RSYST-MANDT', 0, 2);   // Mandant (index 1);
    bOK := Sap.SetControlValue(iCtrl, frmHaupt.edMandant.Text);
    OKCheck(bOK, 'Mandant einstellen');

    Application.ProcessMessages;
    
    iCtrl := Sap.FindByField('RSYST-BNAME', 0, 2);   // Benutzer (index 3);
    bOK := Sap.SetControlValue(iCtrl, frmHaupt.edBenutzer.Text );
    OKCheck(bOK, 'Benuter einstellen');

    Application.ProcessMessages;
    
    iCtrl := Sap.FindByField('RSYST-BCODE', 0, 3);   // Kennwort (index 5);
    bOK := Sap.SetControlValue(iCtrl, frmHaupt.edPasswort.Text);
    OKCheck(bOK, 'Passwort einstellen');

    Application.ProcessMessages;
    
    iCtrl := Sap.FindByField('RSYST-LANGU', 0, 2);   // Sprache (index 7);
    bOK := Sap.SetControlValue(iCtrl, 'd');
    OKCheck(bOK, 'Sprache einstellen');

    bOK := Sap.SetCursorByControl(iCtrl);
    OKCheck(bOK, 'Cursor positionieren');

Die Unit/das Control hieß SapAutoGuiOcx_TLB glaube ich aus meinem alten Code zu entnehmen.
Damit kannst Du fast beliebige Aktionen in der SAP-Gui durchführen, inkl. der Auswertung, was jeweil nach einem "Tastendruck" passiert ist...

Habe ich vor vielen Jahren mal verwendet, um Massendaten automatisiert aus lokalen Datenbanken in SAP zu erfassen und dabei das Laufzeitverhalten auszuwerten...

HTH,
Tim

[Snaky]

Hallo Tim,

hast du die Komponente und könntest mir die per Mail schicken oder mir einen Link schicken wo ich sie herunterladen kann? Ich bin mir nicht sicher ob ich RFC Calls bei jedem Mandanten durchführen kann (hinsichtlich Berechtigungen).

RSPARAM ist nur ein Beispiel. In diesem Zusammenhang exportiere ich die RSPARAM in eine XLS Datei und prüfe diverse Einstellungen die darin enthalten sind. (z.B. Passworteinstellungen, RECCLIENT etc.) Ich prüfe allerdings diverse Tabellen (u.a. T000, T001, USR40...usw.) Grundsätzlich möchte ich das was ich jetzt händisch aus dem System ziehe durch mein Programm sequentiell machen, sodass ich am Ende des Tages die exportierten Daten in XLS, Html, txt Form im Programmordner habe.

Grüße

[BlackbirdBerlin]

Hi Snaky,
die Komponente habe ich momentan nicht griffbereit. Leider.
Irgendwie liegen da zig Rechnerwechsel und Neuinstallationen zwischen.

Ich glaube aber, sie war bei 'ner SAP-GUI Installation dabei, oder irgendwo
frei zu bekommen. Bemüh' mal GOOGLE...

Für 'nen Tabellenexport böte sich eher der RFC-Baustein an, den ich Dir
genannt habe, bzw. besser noch RFC_READ_TABLE oder BBP_RFC_READ_TABLE.
Um wieviele Tabellen dreht es sich denn?
Und unterstützt dich der Kunde beim Datenbeschaffen denn nicht?

VG, Tim

[Snaky]

Hi Tim,

ich nehme an du meinst die OCX Dateien die im Frontend Ordner der SAP Installation vorliegen!? Wenn ich diese in Delphi hinzufügen möchte bekomme ich einen OLE Error. (Keine Ahnung woran das liegt...)

Es gibt Fälle in denen ich den Kunden die Tabellen und Reportergebnisse erzeugen lasse und mir zuschicken lasse. Im Normalfall ist es aber so, dass ich einen SAP User mit umfangreichen Leseberechtigungen bekomme (u.a. SE16 und SA38). Dies ist mir auch lieber, da ich so die Sicherheit habe, dass die Daten nicht mehr manipuliert wurden sondern direkt aus dem System stammen. Mit einem externen Programm RFCs in einem fremden SAP System durchzuführen halte ich für kritisch, zumal ich nicht weiß in wie weit dort Restriktionen vorhanden sind. Deswegen möchte ich ja mit der SAP Gui ausschließlich kommunizieren sodass diese sämtliche Kommunikation mit Datenbank Server und SAP Server übernimmt.

Am Ende stelle ich mir vor, dass ich die SAP Gui über mein Programm so steuere, dass Sie mir automatisch alle Reports und Tabellen über die vorhandene Funktion (z.B. in SAP Menü->System->Liste->Speicher->in lokale Datei->Tabellenkalkulation) extrahiert sodass ich diese danach über meine Auswertungen lokal weiterverarbeiten kann.

Ich habe schon viel gegoogelt und auch viel gefunden, nur wird dort immer davon ausgegangen, dass es das eigene SAP System ist, was die Sache natürlich extrem vereinfacht.

[BlackbirdBerlin]

Hi Snaky,

schau Dir mal die Doku unter http://help.sap.com/printdocu/core/p...f/BCFESRFC.pdf an.
Das müsste das Control sein, das ich damals genutzt habe. Seite 38ff und 220ff.
Wo es die Delhpi-Unit dazu gibt, weiß ich allerdings nicht mehr...

Grüße,
Tim

[Snaky]

Hi,

danke für den Link...ist eine sehr interesssante Lektüre und das sieht auch genau nach dem aus was ich benötige. Die Komponenten die du meinst sind wahrscheinlich die ActiveX Komponenten wdtfuncs.ocx, wdtlogon.ocx etc. Wenn ich diese in Delphi installieren möchte sagt er mir das die librfc32.dll nicht intalliert ist. Die befindet sich aber in meinem System32 Ordner. Ich tippe mal das er ein Problem damit hat, dass ich eine 64bit Windows Version habe. Habe schon versucht das Ding manuell per regsvr32.exe zu installieren...ohne Efolg! Habe grad leider keinen Rechner mit 32Bit System parat...sonst würde ich es da mal testen.