Checkout via BAPI_DOCUMENT_CHECKOUTMODIFY2

Question

Hello,
I'm having some trouble with calling BAPI_DOCUMENT_CHECKOUTMODIFY2 from Excel VBA. When I call the BAPI with the following code, no file is checked out. Anyone knows why?
Dim oBAPICtrl As Object       'BAPI Control
Dim oConnection      'Connection object
Dim Logon            'Logon help variable
'Creating BAPI object
Set oBAPICtrl = CreateObject("SAP.BAPI.1")
'Creating Connection object
Set oConnection = oBAPICtrl.Connection
oConnection.Client = "XXX"
oConnection.User = "XXXXX"
oConnection.Language = "XX"
oConnection.ApplicationServer = "XXXXX"
oConnection.Password = "XXX"
oConnection.SystemNumber = "XX"
oConnection.System = "XXX"
'Performing a remote logon to the R/3 System
If oConnection.Logon(0, True) <> True Then    'Logon without dialog
      Set oConnection = Nothing
      Logon = False
      MsgBox "No access to R/3 System", vbOKOnly, APPID
Else
     Logon = True
End If
'If Logon Then
'MsgBox "Logged on successfullyu2026"
'End If
Dim DocObj As Object
Set DocObj = oBAPICtrl.GetSAPObject("J_8A3_DRAW", "PM2", "A5N00030059989", "D", "000")
Dim DocFile As Object
Dim OutFile As Object
Set DocuFile = oBAPICtrl.DimAs(DocObj, "CheckOutModify2", "DocumentFile")
Set OutFile = oBAPICtrl.DimAs(DocObj, "CheckOutModify2", "CheckedOutFile")
DocuFile.Value("FILE_ID") = "4AA80AA8D94F1B99E10080009EE28028"
OutFile.Value("DOCPATH") = "D:\"
'OutFile.Value("DOCFILE") = "Test.doc"
DocObj.CheckOutModify2 DocumentFile:=DocuFile, CheckedOutFile:=OutFile
On Error Resume Next
MsgBox "File: " & DocuFile("DOCFILE")
MsgBox "Out: " & OutFile("DOCFILE")
Set oConnection = Nothing
Set oBAPICtrl = Nothing
Thanks for your answers,
Thomander
Edited by: Thomander on Sep 14, 2009 8:27 AM

Answer 1

Hello Thomander,
I never did a checkout with this BAPI, but I did it with CheckOutView2 and with VB (see the below). The statement "RfcAllowStartProgram ByVal 0&" is needed to allow your program to start an other program, in this case saphttp.exe.
I was wondering about "J_8A3_DRAW", because I just use "Draw". Why do you use the file_id, usually you don't know the file_id, but you know the DIR-key and the ws-appl of the file you want to checkout.
regards Iring
Private Declare Sub RfcAllowStartProgram Lib "librfc32.dll" (value As Any)
Sub get_file2(ByVal dok_no As String, _
            ByVal dok_typ As String, _
            ByVal dok_td As String, _
            ByVal dok_ver As String, _
            ByVal ws_appl As String, _
            ByVal get_structure As String, _
            ByVal check_out_path As String, _
            file_name As String, _
            filestring As Variant)
Dim oDocument As Object
Dim oDocumentFiles As Object
Dim oService As Object
Dim oReturn As Object
Dim str1 As String
Dim str2 As String
Dim i As Integer
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Dim f As TextStream
RfcAllowStartProgram ByVal 0&
'Creating lokal instance of BO "Draw"
Set oDocument = oBAPICtrl.GetSAPObject("Draw", dok_typ, dok_no, dok_ver, dok_td)
If Err.Number <> 0 Then
    MsgBox "No local BO 'Draw' created!"
    Exit Sub
End If
Set oDocumentFile = oBAPICtrl.DimAs(oDocument, "CheckOutView2", "DocumentFile")
oDocumentFile("WSAPPLICATION") = ws_appl
oDocument.CheckOutView2 OriginalPath:=check_out_path + "\", _
                        GetStructure:=get_structure, _
                        DocumentFile:=oDocumentFile, _
                        DocumentFiles:=oDocumentFiles, _
                        DocumentStructure:=oDocumentStructure, Return:=oReturn