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