vb6 - PM 订单更改状态为 TECO - BAPI - VB ABAP

Question

我的代码以MsgBox "TECO FuBa Call false!".

和功能工作正常，当我通过 SAP GUI 事务代码测试功能模块时LogOn，一切正常。LogoutBAPI_ALM_ORDER_MAINTAINSE37

我已经检查过： PM Order change status to TECO

Public Sub teco()
Dim auftr As String
Dim teco_date As Date
teco_date = Format(Now, "dd/MM/yyyy")
auftr = "000123456789"    

Dim oFuBa As Object
Set oFuBa = Nothing
Set oFuBa = objBAPIControl.Add("BAPI_ALM_ORDER_MAINTAIN")

' EXPORTING
Dim e_import As Variant
Set e_import = oFuBa.Exports("IV_MMSRV_EXTERNAL_MAINTENACE")
e_import.Value = ""

' TABLES
Dim t_methods_data As Variant
Set t_methods_data = oFuBa.Tables("IT_METHODS")

Dim Row As Object
Set Row = t_methods_data.Rows.Add
Row("REFNUMBER") = "0001"
Row("OBJECTTYPE") = "HEADER"
Row("METHOD") = "TECHNICALCOMPLETE"
Row("OBJECTKEY") = auftr

Set Row = t_methods_data.Rows.Add
Row("REFNUMBER") = "0001"
Row("OBJECTTYPE") = ""
Row("METHOD") = "SAVE"
Row("OBJECTKEY") = auftr

MsgBox CStr(t_methods_data.RowCount)

Dim t_header_data As Variant
Set t_header_data = oFuBa.Tables("IT_HEADER")

Set Row = t_header_data.Rows.Add
Row("ORDERID") = auftr
Row("TECO_REF_DATE") = CStr(teco_date)
Row("TECO_REF_TIME") = "00:00:00"

MsgBox CStr(t_header_data.RowCount)

Dim t_return As Variant
Set t_return = oFuBa.Tables("RETURN")

If oFuBa.Call = True Then
    If t_return.RowCount > 0 Then
            If t_return.Cell(1, 1) = "E" Then
                Dim oFuBa2 As Object
                Set oFuBa2 = objBAPIControl.Add("BAPI_TRANSACTION_ROLLBACK")
                If oFuBa2.Call = True Then
                    t_methods_data.Rows.Remove
                    t_methods_data.Rows.Remove
                    t_header_data.Rows.Remove
                End If
            Else
                Dim oFuBa3 As Object
                Set oFuBa3 = objBAPIControl.Add("BAPI_TRANSACTION_COMMIT")
                If oFuBa3.Call = True Then
                    MsgBox "TECO commit true!"
                Else
                    MsgBox "TECO commit false!"
                End If
            End If
            MsgBox "Ende Teco!"
    Else
            MsgBox "Ende TECO return False!"
    End If
Else
       If oFuBa.Exception <> "" Then
            MsgBox "Exception: " & oFuBa.Exception
        End If
            MsgBox "TECO FuBa Call false!"
End If
End Sub

我究竟做错了什么？

标签： vb6abapsaprfcbapi

Answer 1

看起来不错，所以也许这些点会有所帮助。

• 创建时您不能 TECO 订购。你只能东元和退出订单。只改变。
• 如果您有标题通知 ( AFIH-QMNUM )，请尝试使用 method = 'TECO_WITH_NOTIF' 而不是 'TECHNICALCOMPLETE'