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.
Eso no es "C#", es "VB".
ResponderBorrarEfectivamente, muchas gracias por notarlo Eduardo, lo corregiremos.
Borrar