Загрузка таблицы через RFC

_Nick_

Всем доброго времени суток!

Народ, необходимо загрузить DBF-файл в R/3-шную табличку с идентичными полями посредством RFC-функции. Просвятите, меня тёмного, в общих словах как это сделать. Прогу пишу на Delphi, если есть пример, буду очень благодарен. Коннектор написал, могу передавать параметры, вызывать RFC-функцию и принимать параметры после вызова. Но как табличку передать? :roll:

ArmAnn

Самое простое - написать на стороне Сапы очень простой ФМ, который будет переданную ему внутреннюю табличку в параметрах складывать в таблицу БД. А вы в своей программе на дельфи будете грузить данные из DBF и дергать по RFC этот ФМ, передавая в параметрах внутреннюю табличку с данными из DBF

_Nick_

ArmAnn написал:

Самое простое - написать на стороне Сапы очень простой ФМ, который будет переданную ему внутреннюю табличку в параметрах складывать в таблицу БД. А вы в своей программе на дельфи будете грузить данные из DBF и дергать по RFC этот ФМ, передавая в параметрах внутреннюю табличку с данными из DBF

Благодарю за отклик!

Это всё понятно, мне непонятно конкретно как передать табличку с данными из Delphi? Обычные параметры я знаю как передавать:
Func := V.Add('Z_RFC_TEST');
Func.Exports('USER').Value := 'USER';
Func.Exports('COUNT').Value := '10';
Func.Exports('P_CHECK').Value := 'X';
Func.Exports('DESCRIPTION').Value := 'This record created by RFC-function';
Func.Call;
SySubrc := Func.Imports('SYSUBRC').Value;

Параметры в ФМ:
FUNCTION z_rfc_test.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*" IMPORTING
*" VALUE(USER) TYPE CHAR16
*" VALUE(COUNT) LIKE ZSTRUC_RFC-ZCOUNT
*" VALUE(P_CHECK) TYPE ZP_CHECK
*" VALUE(DESCRIPTION) TYPE CHAR255
*" VALUE(TABISP) TYPE ZDOGOV_ISP " - это табличка
*" EXPORTING
*" VALUE(SYSUBRC) TYPE CHAR1
*"----------------------------------------------------------------------
а как заполнить параметр TABISP в Delphi? И еще может, я неправильно таблицу объявляю в ФМ? Может она должна быть в Таблицах, а не в Импорте?

Besa

С саповском ФМе она обязательно должна быть в таблицах, а на счет делфи точно не скажу, может массивом.

Art386

вот кусок кода на VBS, может быть, поможет?

Code:

FUNCTION rfc_call(i_func_name)

  DIM function_control
  DIM it_messages 

  SET function_control = CreateObject("SAP.FUNCTIONS")

... логон в систему....


  'Reference to FUNCTION module
  SET die_func = function_control.Add( i_func_name )
  
  SET it_messages = die_func.Tables("IT_MESTYP")
  it_messages.FreeTable

... добавляем первую строку:

  it_messages.Rows.Add
  it_messages.Value(1, "A") = "Значение поля A"

  it_messages.Rows.Add
  it_messages.Value(1, "B") = "Значение поля B"

... итд

  'Call FUNCTION module
  IF die_func.Call = True then
    MsgBox "RFC ok!", 0, "RFC info"
  ELSE
    MsgBox "Ошибка вызова RFC-модуля", 16, "RFC info"
  END IF
END FUNCTION

i_func_name - имя ФМ, IT_MESTYP - имя интерфейсного параметра-таблицы

ArmAnn

_Nick_ написал:

а как заполнить параметр TABISP в Delphi? И еще может, я неправильно таблицу объявляю в ФМ? Может она должна быть в Таблицах, а не в Импорте?

Когда то я делал программу на си билдере, таблицу в ФМ передавал именно в разделе TABLES. Подробностей к сожалению не помню - давно уж это было, но проблем особых не припомню - главное чтоб структура таблицы на стороне Дельфи на стороне Сапа совпадала

_Nick_

Народ, спасибо большое! Щас буду пробовать массивом передать. Как сделаю, код запостю...

Правила форума

Загрузка таблицы через RFC

Кто сейчас на конференции