// // 2 comentarios

SAP .Net Connector - RFC VB

SAP .Net C Sharp - Consultoria-SAP

Buen día, tengo una aplicación AspNet donde muestro una pagina con los datos de venta, actualmente la empresa adquirió SAP all in one y tengo el trabajo de hacer que la aplicación siga funcional, vi en los foros que eso es posible con RFC, alguien podrá ayudarme con tutoriales y algunos ejemplos de como hacer esta comunicación con SAP .Net Connector 3.0.
Muchas gracias de antemano
Saludos Cordiales

Ejemplo conexión SAP .Net

El ejemplo que tengo es mas o menos como sigue, espero te sirva de inicio:


Código:
Public oR3, oConnection, oMyFunc As Object
Public oSTORE, i_StartDate, i_EndDate, otI_ITEMS As Object

Public Result As Boolean

Public mApplicationServer As String 'Application Server of the R/3 System.
Public mSystem As String ' SAP R/3 System name.
Public mSystemNumber As Long ' System number of the R/3 System.
Public mClient As Long ' Client in the R/3 System.
Public mLanguage As String ' Language you use want to use in the R/3 System
Public mSAPRouter As String
Public mUserId As String
Public mPassword As String

Sub Logon()
'*********************************************
'Logon al sistema SAP R/3
'*********************************************
Dim obSAPFnCntrl As SAPFunctionsOCX.SAPFunctions
Dim obSAPConn As Object
'Set obSAPConn = obSAPFnCntrl.Connection()


Set oR3 = Nothing
Set obSAPFnCntrl = CreateObject("SAP.Functions")
'Set obSAPFnCntrl = CreateObject("SAP Remote Function Call Control")
Set oConnection = oR3.Connection


oConnection.ApplicationServer = "xxx.xxx.x.xxx"
oConnection.System = "000"       '---llena esta dato con los correspondientes a tu instalacion de SAP
oConnection.SystemNumber = "00"  '---llena esta dato con los correspondientes a tu instalacion de SAP
oConnection.Client = "500"       '---llena esta dato con los correspondientes a tu instalacion de SAP
oConnection.Language = "ES"      '---llena esta dato con los correspondientes a tu instalacion de SAP
oConnection.User = "user"        '---llena esta dato con los correspondientes a tu instalacion de SAP
oConnection.Password = "pass"    '---llena esta dato con los correspondientes a tu instalacion de SAP


'Set App = R3.Application
If oConnection.Logon(0, True) <> True Then
   oConnection.SAPRouter = ""  '---llena esta dato con los correspondientes a tu instalacion de SAP
   If oConnection.Logon(0, True) <> True Then
       MsgBox "No se puedo establecer conexión SAP"
       Exit Sub
   End If
End If
'End Sub


'*********************************************
'Logon al sistema SAP R/3
'*********************************************

'Set App = R3.Application
If oConnection.IsConnected = 0 Then
MsgBox "No existe conexión SAP establecida, se desconectara"
'Logon
End If

' Establecer contacto con la funcion.
Set oMyFunc = oR3.Add("z_your_function")
'Set oSTORE = oMyFunc.Exports("STORE")
'Set i_StartDate = oMyFunc.Exports("I_START_DATE")

oMyFunc.Exports("I_START_DATE") = "15.02.2014"
' Llamar a la funcion de SAP.
Result = oMyFunc.Call

' Analizar el resultado de la llamada.
If Result = False Then
MsgBox "Error en el llamado a la funcion RFC: ZFUNCION_RFC"
Else
MsgBox "Funcion RFC ejecutada OK."
End If

'*********************************************


Recuerda que hay una comunidad de desarrolladores SAP abierta a ayudarte si tienes dudas, simplemente debes entrar y decirnos qué problema tienes. 


2 comentarios:

Nota Importante: los comentarios son para agradecer, comentar o sugerir cambios (o hacer preguntas) sobre el artículo de arriba.


SAP y el logotipo de SAP son marcas comerciales registradas de SAP AG en Alemania y en varios otros países. No estamos afiliados ni relacionados con ninguna división o subsidiaria de SAP AG.