--------------------------------------------------------------------------------------
Establecer la conexion con los Add Ins de SAP.
Set R3 = CreateObject("SAP.Functions")
' Cargar los parametros de conexion
R3.Connection.Messageserver = "sr3teste" ' Nombre del server
R3.Connection.Groupname = ""
R3.Connection.System = "01" ' Sistema
R3.Connection.Client = "110" ' Mandante
R3.Connection.User = "desarrollo" ' Usuario
R3.Connection.Password = "init" ' Password
R3.Connection.language = "ES" ' Idioma
---------------------------------------------------------------------------------------
|