Кто-нибудь занимался передачей данных из внешней программы на VB в r3?

Причем данные должна программа передавать напрямую.

Может зайти с другой стороны т.е. чтобы R/3 брала данные из другой программы, хотя... RFC-функции никто не отменял, копай в эту сторону

Ну, занимаемся.


VB вызывает по RFC ФМ в R/3 - это напрямую?

Dim fac As Object
Dim tbl As Object
Dim i As Long

‘ Create TableFactory and Object
Set fac = CreateObject( " SAP.TableFactory.1 " )
Set tbl = oTableFactory.NewTable

Call tbl.Create("TEST", 220)

Set col1 = tbl.Columns.Add(col)
col1.Name = "Column 1"
col1.IntLength = 15
col1.Type = RfcTypeNum
Set col2 = tbl.Columns.Add(col)
col2.Name = "Column 2"
col2.IntLength = 8
col2.Decimals = 3
col2.Type = RfcTypeFloat
Set col3 = tbl.Columns.Add(col)
col3.Name = "Column 3"
col3.IntLength = 15
col3.Type = RfcTypeNum
Set col4 = tbl.Columns.Add(col)
col4.Name = "Column 4"
col4.IntLength = 15
col4.Type = RfcTypeNum
Set col3 = tbl.Columns.Add(col)
col3.Name = "Column 3"
col3.IntLength = 8
col3.Type = RfcTypeDate
Set col4 = tbl.Columns.Add(col)
col4.Name = "Column 4"
col4.IntLength = 6
col4.Type = RfcTypeTime
Set col5 = tbl.Columns.Add(col)
col5.Name = "Column 5"
col5.IntLength = 80
col5.Type = RfcTypeChar
Set col6 = tbl.Columns.Add(col)
col6.Name = "Column 6"
col6.IntLength = 80
col6.Type = RfcTypeChar

For i = 1 To 16
Set Row = tbl.Rows.Add
Row.Value(1) = "45"
Row.Value(2) = i + 5
Row.Value(3) = "12"
Row.Value(4) = "16"
Row.Value(3) = CDate("11.08.1997")
Row.Value(4) = CDate("12:36:18")
Row.Value(5) = "The quick brown fox ..."
Row.Value(6) = "This text is just a test"
Next i
Вот тебе и данные!

ну и запускаешь RFC функцию......
Sub logon()
'**********************************************
'Create functions object and Setup the connection
'**********************************************
Set fns = CreateObject("SAP.Functions")
Set conn = fns.Connection
conn.Client = ""
conn.user = ""
conn.password = ""
conn.Language = ""
conn.systemnumber = ""
conn.system = ""
conn.saprouter = ""
conn.ApplicationServer = ""
If conn.logon(0, True) <> True Then
MsgBox "Cannot logon!."
Exit Sub
End If
End Sub

Set MyFunc = fns.Add("<name>")
MyFunc.exports("<param1>") = ...
MyFunc.exports("<param2>") = ...
result = MyFunc.Call
the_exception = MyFunc.Exception

(или напрямую типа
result = fns.<name>(Exception, ...<parameters>...)
)

опечатка в строке Set tbl = oTableFactory.NewTable
нужно:
Set tbl = fac.NewTable

Для начала можно рекомендовать ознакомиться с RFCSDK, который идет вместе с инсталляционным диском SAPGUI. Там есть примеры на VB и описание RFC и пакетом SAP Automation (BC-FES-AIT), который позволяет строить VB программы в полуавтоматическом режиме. Описалово есть в онлайн-справке по системе:
Библиотека SAP->Базисные услуги / Интерфейсы связи (BC-SRV)->Remote Communications (BC-SRV-RC)->Remote Communications (BC-SRV-RC)/
Внутри системы есть The RFC Generator

В примерах по rfcsdk хорошо описаны функции librfc32.dll - по аналогии описывайте в VB! Работа не благодарная, но ... написать программу "сервер" сможете без труда! Если углубляться нет желания - применяйте OCX - SAPFunction см /demo