PDA

Ver la Versión Completa : Problemas al conectarme al SAP por vb


Jonathan Figueroa
07/08/06, 18:15:22
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

Mauricio Hidalgo
08/08/06, 16:35:49
Algo ha sucedido con el registro del coponente Sap.Functions en windows.
Podrías reinstalar Sapgui nuevamente, instalalo completo.

saludos

fparedes
14/08/06, 15:26:47
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

maescobarl
20/09/06, 00:14:24
Oye, al parecer necesitas el SAP CONNECTOR

y con eso se resuelve tu problema.

saludos

Toko
11/04/07, 22:00:58
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

analiabsap
04/04/12, 02:23:32
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?

analiabsap
04/04/12, 02:28:00
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
--------------------------------------------------------------------------------------
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

---------------------------------------------------------------------------------------

nikkoo
19/07/12, 22:55:49
reinstala Sapgui nuevamente, instalalo completo.

rogerclavell
04/08/12, 07:56:38
Yo tuve problemas para conectarme a mi maquina de pruebas y desde que instalé el conector 3.0 para visual .net todo perfecto.