VBA steigt bei GetSapObject("ProductionOrder") immer aus

Getting started ... Alles für einen gelungenen Start.
2 Beiträge • Seite 1 von 1
2 Beiträge Seite 1 von 1

VBA steigt bei GetSapObject("ProductionOrder") immer aus

Beitrag von whatthehack82 (ForumUser / 1 / 0 / 0 ) »
Hallo zusammen,

ich versuche mich gerade darin SAP nicht mehr über Excel "fernzusteuern" sondern wirklich über Bapi's direkt mit SAP zu kommunizieren.

Erste Übung soll es dabei sein einen Fertigungsauftrag anzulegen und die Auftragsnummer dabei zurück in Excel zu bekommen.

Def. vor dem Logon

Code: Alles auswählen.

Dim functionCtrl As Object
Dim SapConnection As Object
Set functionCtrl = CreateObject("SAP.Functions")
Set SapConnection = functionCtrl.Connection
Der Logon funktioniert auch soweit

Code: Alles auswählen.

SapConnection.logon(0, True) = True
wird bestätigt.

aber sobald ich nach dem definieren der Variablen die Funktion aufrufen will stürzt jedes mal Excel ab.

Code: Alles auswählen.

Dim oOrder As Object
  Dim oitemsin As Object
  Dim oreturn As Object
  
  Stop
  
Set oOrder = functionCtrl. _
    GetSapObject("ProductionOrder")
Jemand ne Idee woran das liegt oder wie die Lösung aussehen müsste?

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Re: VBA steigt bei GetSapObject("ProductionOrder") immer aus

Beitrag von tofralu (ForumUser / 36 / 1 / 3 ) »
Servus....

Das sieht danach aus, dass dein Aufruf kervehrt ist :)

GetSapObject("ProductionOrder") ist ein BaPi aufruf. Diesen musst du auch so definieren.

Set obj = CreateObject("SAP.BAPI.1")


Mit
Set functionCtrl = CreateObject("SAP.Functions")

hast du zwar auch ein Active Steuerelement erschaffen.... aber wie der Name schon sagt, für FuBa's und nicht für BaPi's.

Ich persönlich bevorzuge dieses da man hier sehr schnell und einfach einen Zugriff auf selbst erstellte Fuba's bekommen kann und man seine eigenen Export Parameter ansprechen kann.

Ein kleines Beispiel hierzu:
Dim fns As Object
Set fns = CreateObject("SAP.Functions")

Set MyFunc = fns.Add("Z_PM_MAKT")
MyFunc.Exports("MATNR") = matnr
result = MyFunc.call

get_maktx = MyFunc.imports("MAKTX")


Der Fuba "Z_PM_MAKT" mit Importparameter MATNR wäre ein einfacher Single Select über die Materialkurztexte.
SELECT SINGLE maktx INTO maktx FROM makt
WHERE matnr EQ matnr
AND spras EQ sy-langu.
mit ausgewiesenen Export Parameter MAKTX.

Wenn das nichts hilft, musst du im VBA Modus Debuggen. Einfach mit F9 die Haltepunkte definieren und durchklicken.

Sonnige Grüße
Tobias

Seite 1 von 1

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Unbeantwortete Forenbeiträge

Zwischensumme Adobe Forms
vor 4 Tagen von Lucyalison 1 / 71
Group Items auf einer Filterbar
vor einer Woche von Bright4.5 1 / 111
tRFC Transaktionen SM58
vor 4 Wochen von A6272 1 / 141