#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 |
#2
|
|||
|
|||
Algo ha sucedido con el registro del coponente Sap.Functions en windows.
Podrías reinstalar Sapgui nuevamente, instalalo completo. saludos |
#3
|
|||
|
|||
Saludos a todos
Estoy experimentando el mismo problema que Jonathan Figueroa. Al momento de instanciar SAP.FUNCTIONS desde VB en la instrucción: Set functionSAP = CreateObject("SAP.Functions") Obtengo el mensaje de error No se puede encontrar el módulo especificado, he probado, reinstalar el SAP GUI completo, solo las herramientos de desarrollo, etc. No hje podido solventar la situación, si alguien tiene idea de que puedo hacer, agradecería en mucho la ayuda. La versión de SAP GUI instalado es la 6.20 y de SAP la Enterprise. De Visual Basic la 6.0. Necesitaré algún service pack?. Gracias, Frank |
#4
|
|||
|
|||
Oye, al parecer necesitas el SAP CONNECTOR
y con eso se resuelve tu problema. saludos |
#5
|
|||
|
|||
Problemas al conectarme al SAP por VB
Hola a todos,
Tengo un pequeño problema, copie el programa que aparece aca para la comunicacion de Vb con SAP y me funciona super bien, Pero mi problema es que tengo que hacer la conexion NO Visible, cambie el codigo de la conexion por 'original programa .... ' Ejecutar la conexion en modo visible. If R3.Connection.logon(0, False) <> True Then MsgBox "No se ha podido establecer la conexión" ...... por If R3.Connection.logon(0, True) <> True Then MsgBox "No se ha podido establecer la conexión" que fue lo que encontre en la web, pero hay se me cae el programa, alguien sabe como debo hacer la conexion no visible. muchas gracias. atte Toko |
#6
|
|||
|
|||
Demoras en conexion SAP
Hola a todos!!!
Estamos teniendo un problema de conexion con SAP y VB6. El problema se presenta debido a que aletatoriamente se produce una demora en las conexiones entre sap y la aplicacion VB6. Hemos experimentado demoras que van desde algunos segundos hasta 3 minutos. GUI utilizada es 7.20 y la ocx VB6 es la referencia para SAP 7.20 también. Alguien sabe que puede estar pasando? |
#7
|
|||
|
|||
--------------------------------------------------------------------------------------
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 --------------------------------------------------------------------------------------- |
#8
|
|||
|
|||
reinstala Sapgui nuevamente, instalalo completo.
Úlima edición por nikkoo fecha: 21/11/12 a las 04:04:43. |
#9
|
|||
|
|||
Yo tuve problemas para conectarme a mi maquina de pruebas y desde que instalé el conector 3.0 para visual .net todo perfecto.
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|