#1
|
|||
|
|||
Problemas al conectarme al SAP por vb
Ante todo les envio mis saludos, estoy tratando de conectarme al sap a travez de visual basic 6. Para lo cual he copiado el siguiente codigo, pero al momento de ejecutarlo me aparece el error "the specified module could not be found " en la linea Set R3 = CreateObject("SAP.Functions")
Por favor le agradecere me indique que podria hacer para que funcione dicho codigo. Si en caso necesito registrar alguna dll. La version de SAP que tengo es 3.1 Gracias Option Explicit ' Conectores a las SAP.Functions. Dim R3 As Object Dim MyFunc As Object ' Parametros a enviar a la funcion. Dim PEBELP As Object ' Parametros a recibir desde la funcion. Dim RESULTADO As Object ' Tablas a ser enviadas a la funcion Dim TABLA As Object ' Resultado de la llamada a SAP. Dim Result As Boolean Private Sub Command1_Click() ' 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 ' Ejecutar la conexion en modo visible. If R3.Connection.logon(0, False) <> True Then MsgBox "No se ha podido establecer la conexión" Else ' Establecer contacto con la funcion. Set MyFunc = R3.Add("RFC_PRUEBA") ' Cargar los parametros a enviar a la funcion - EXPORTING Set PEBELP = MyFunc.exports("PEBELP") PEBELP.Value = "00020" ' Cargar la tabla con los datos que vamos a enviar - TABLES. Set TABLA = MyFunc.Tables("TABLA") TABLA.rows.Add TABLA.Value(1, "adrnr") = "0000010007" ' Direccion. TABLA.Value(1, "matnr") = "000000000000051676" ' Material. TABLA.Value(1, "knttp") = "K" ' Tipo de imputación. TABLA.Value(1, "ewerk") = "C002" ' Centro. TABLA.Value(1, "bpreibapi") = "20" ' Precio. TABLA.Value(1, "mwskz") = "09" ' Indicador de IVA. TABLA.Value(1, "etmen") = "2" ' Cantidad del material. TABLA.Value(1, "kostl") = "0000000001" ' Centro costo. TABLA.Value(1, "eindt") = "20040909" ' Fecha del item. ' Llamar a la funcion de SAP. Result = MyFunc.CALL ' Analizar el resultado de la llamada. If Result = False Then MsgBox "Error en el llamado a la funcion RFC_PRUEBA." Else MsgBox "Funcion RFC_PRUEBA ejecutada OK." ' Recoger los parametros devueltos por la funcion - IMPORTING Set RESULTADO = MyFunc.imports("RESULTADO") MsgBox "El resultado devuelto es: " & RESULTADO.Value End If ' Terminar la sesion. R3.Connection.logoff End If End Sub |
Herramientas | Buscar en Tema |
Desplegado | |
|
|