| Pregunta: | 4732 - VB5 Y SAP |
| Autor: | Sergio Castillo Ortiz |
| Hola, quiero hacer un desarrollo en visual basic 5 accesando información de SAP/R3, en los componentes de VB ya tengo algunos OCX para SAP, pero no se utilizarlos ya que no tienen ayuda. Si alguien sabe de algun lugar en la red u otro medio de consulta se los agradecere. Gracias. | |
| Respuesta: | Bernardo Calderon |
| Sergio, debes crear en SAP una función del tipo RFC, que te entregue los datos que tú necesitas, una vez creada la exportas a Visual Basic y te entrega el código listo (solo en 16 bits) tú haces las modificaciones para 32 y listo.. al principio es un poco complicado... (como todo lo de SAP) pero luego de hacer un par de funciones se entiende la lógica y se hace más facil.. Yo tengo funciones hechas en Visual Basic y en Power Builder que conectan sistemas externos con SAP. Saludos. | |
| Respuesta: | Daniel Figueroa Aguirre |
| Debes crear las funciones dentro de SAP y luego utilizando la OCX, SAP Logon Control conectarte a VB, aquí tienes un ejemplo, no puedo darte una dirección en internet porque no la conozco. Function Conexion() Conexion = True ´Conexión a SAP en modo de desarrollo ´Desarrollo Set Connection = frmEntry.controlSAP.NewConnection ´R/3 Logon Connection.System = "sun98" Connection.ApplicationServer = "/H/129.1.1.11" Connection.SystemNumber = 0 Connection.User = "Aclaveria" Connection.Password = "JessicaP" Connection.Client = "100" Connection.Language = "S" If Connection.Logon(0, True) Then Else MsgBox " Conexión Erronea " + Chr(10) + "Favor chequear su conexión a SAP O" + Chr(10) + "Contactarse con Administrador de Sistema" Conexion = False Exit Function End If End Function Function BuscaClienteSAP(cmb As ComboBox) As Double Dim CodCliente As Double Dim DesCliente As String Dim SapFuncion As Object Dim Material As Object Dim Tabla As Object Dim objRfcReadTable As Object If Not Conexion() Then Exit Function End If Dim rfc As Object Set SapFuncion = CreateObject("SAP.Functions") Set SapFuncion.Connection = Connection Set rfc = SapFuncion.Add("Z_RFCSGV_LEER_CLIENTES_AWP") ´Función desarrollada en SAP Z_RFCSGV_LEER_CLIENTES_AWP ´If Anular(NomCliente, "") <> "" Then ´rfc.Exports("TEXTO") = Anular(NomCliente, "") | |