Заполнение параметра таблицы импорта BAPI в EXCEL с использованием VBA - PullRequest
Новая
       31

Заполнение параметра таблицы импорта BAPI в EXCEL с использованием VBA

0 голосов
/ 27 марта 2012

У меня есть запрос, который необходимо очистить.Я использую Excel 2003. Лист содержит 12 столбцов.Мне нужно сделать экспорт данных из Excel в SAP.Перед экспортом мне нужно проверить, существует ли запись, если существует, то удалите и вставьте.

У меня есть два BAPI, для этого таблица импорта, которая должна быть заполнена параметрами, после заполнения этой таблицы.BAPI ищет соответствующие записи.

Список будет отображаться в таблице.Мне нужно найти в этой таблице значения из Excel, а затем импортировать одно значение поля в Excel.

Я пишу этот код, но он не работает, BAPI дает Error 0. 

Public Function Import_Order() As Boolean

    Dim oBAPIGetOrder As Object
    Dim oBAPIVariant1 As Object
    Dim oBAPIVariant2 As Object
    Dim oBAPIVariant3 As Object
    Dim oBAPIImpOrder As Variant
    Dim oBAPIRet As Boolean
    Dim oDoNothing As Variant
    gBAPIPlanOrder = 0

    Set oBAPIGetPlOrder = sBAPIControl.Add("PLANED_GET_DET_LIST")   'BAPI
    Set oBAPIVariant1 = oBAPIGetPlOrder.exports.Item("SELECTIONCRITERIA")      'Internal table
    Set oBAPIVariant2 = oBAPIGetPlOrder.Tables.Item("DETAILEDLIST")            'Table

    oBAPIVariant1.Value("MATERIAL") = eMaterial
    oBAPIVariant1.Value("PLANT") = ePlnPlant

    lBAPIRet = oBAPIGetPlOrder.call
    If lBAPIRet Then
        'oBAPIImpOrder = oBAPIGetPlOrder.imports.Item("PLANNEDORDER_NUM")
        a = oBAPIVariant2.Rows.Count
        oBAPIImpOrder = oBAPIVariant2.Value("PLANNEDORDER_NUM")
        Import_PlannedOrder = True
    Else
        oBAPIImpOrder = 0
        Import_PlannedOrder = False
    End If

End Function

Заранее спасибо за любую помощь ...

1 Ответ

0 голосов
/ 09 января 2013

пожалуйста, поместите оператор функции вызова lBAPIRet = oBAPIGetPlOrder.call после непосредственно оператора экспорта и перед таблицами и записями импорта

...