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
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