Problem passing a table parameter in rfc call using the function control

Question

I try to pass a Table as parameter to a Function Module using the SAP.Functions library (part of SAP frontend controls) from a Visual Basic (VBA) program.
The function module has been verified to work when invoked from SAP FrontEnd Function Builder.
The SAP RFC Control is created with
Set sapFunctions=CreateObject("SAP.Functions")
Following code snippet shows how I attempt to set exports and add a table row before calling the function module:
sapFunctions.Connection = sapConnection
Set sapMaterialUpd = sapFunctions.Add("Z_SD_BAPI_SALES_DATA_UPD")
With sapMaterialUpd
<i>'set exports</i>
     .Exports("PA_GLPUPDLEVEL") = "S"
     .Exports("PA_VKORG") = "FI14"
<i>'append table row</i>
     .Tables("IT_SALES_DATA_UPD").AppendRow
     .Tables("IT_SALES_DATA_UPD")(1, "VKORG") = "FI14"
     .Tables("IT_SALES_DATA_UPD")(1, "MATNR") = "W_3100"
     .Tables("IT_SALES_DATA_UPD")(1, "DATBI") = "99991231"
     .Tables("IT_SALES_DATA_UPD")(1, "DATAB") = "20041231"
     .Tables("IT_SALES_DATA_UPD")(1, "KBETR") = "2222"
     .Tables("IT_SALES_DATA_UPD")(1, "KONWA") = "EUR"
End With
<i>'call the function module</i>
If sapMaterialUpd.Call() = True Then
    <i>'do something with the return tables here...</i>Else
    Debug.Print sapMaterialUpd.Exception
End If
The Call() returns <b>FALSE</b> and the exception is <b>"SYSTEM_FAILURE"</b>. The connection also resets.
The local logfile that the control generates shows that an exception occurs at the point of the call:
<i>10.02.2005  17:54:20.766 Packing Parameters for Z_SD_BAPI_SALES_DATA_UPD
Packing Parameter PA_GLPUPDLEVEL.
Packing Parameter PA_VKORG.
Packing Table 0.
Packing Table 1.
  10.02.2005  17:54:20.766 *** Calling  RFC Function 'Z_SD_BAPI_SALES_DATA_UPD'
  10.02.2005  17:54:20.986 RFC CALL status = RFC_SYS_EXCEPTION
  10.02.2005  17:54:20.986 RFC Error: RFC_IO27
  -Status:CODE=CM_DEALLOCATED_NORMAL STATUS=CM_NO_STATUS_RECEIVED DATA=CM_COMPLETE_DATA_RECEIVED ID=69415076
  -Message:connection closed
  -Internal Status:IO HANDLE=23 DRV=EXT LINE=1420 CODE=27 : GET ID=ffff LINE=861 CODE=7
  10.02.2005  17:54:20.986 Function call finished.</i>
Seen next code snippet. If the Table object is not touched, the function call goes through without any problems:
sapFunctions.Connection = sapConnection
Set sapMaterialUpd = sapFunctions.Add("Z_SD_BAPI_SALES_DATA_UPD")
With sapMaterialUpd
'set exports
    .Exports("PA_GLPUPDLEVEL") = "S"
    .Exports("PA_VKORG") = "FI14"
    'do <b>not</b> append a table row, for testing only ;-)</b>
End With
<i>'call the function module</i>
If sapMaterialUpd.Call() = True Then
<i>    'do something with the return tables here...</i>
Else
    Debug.Print sapMaterialUpd.Exception
End If
This code works perfectly when calling the function. It returns TRUE and behaves normally. The function module returns descriptive response text in a table telling that the table was empty, according to the BAPI implementation.
So is there something special needed here <i>after</i> appending the table row and <i>before</i> making the Call to properly attach the table as a parameter for the function module?
Can this be a bug in the SAP RFC Control? The version of the wdtfuncs.ocx is 6206.6.45.54.
Any hints are welcome!

Answer 1

hi All partner,
who solved this problem , I meet it too and
can't clear it.
SAPfunc := sapfunctions1.Add('z_get_sfcs_dn_mo');    
SAPitab := sapfunc.tables.item ('I_DNMO');
SAPitab.appendrow;                                       SAPitab.value(1,'MANDT') := '220'; 
SAPitab.Value(1,'VBELN') := '2150000001';
SAPitab.Value(1,'POSNR') := '50';
SAPitab.value(1,'MATNR') := '19-99999-00'; 
SAPitab.value(1,'AUFNR') := '921241512001';
SAPitab.value(1,'DEDAT') := '2005/09/09';
SAPitab.value(1,'LFIMG') := '100';  
IF  SAPfunc.call = true then
  begin
  end
else
    begin
    showmessage('call fail!!') ;
    end;
end;
RFC source code as below
FUNCTION z_get_sfcs_dn_mo.
""Local interface:
*"  TABLES
*"      I_DNMO STRUCTURE  ZDN_MO
  data: wa type zdn_mo.
  LOOP AT i_dnmo.
    wa-mandt = i_dnmo-mandt.
    wa-vbeln = i_dnmo-vbeln.
    wa-posnr = i_dnmo-posnr.
    wa-matnr = i_dnmo-matnr.
    wa-aufnr = i_dnmo-aufnr.
    wa-dedat = i_dnmo-dedat.
    wa-lfimg = i_dnmo-lfimg.
   modify  zdn_mo from wa.
    insert into zdn_mo values wa.  --dump at here
    commit work.
  ENDLOOP.
T/C: ST22 error message say at
  insert into zdn_mo values wa. ---dump at here
the sapfunc.call returns fail.
Message was edited by: jorry wang