Enlace con DLL Externa
Documentación obsoleta. Por favor, lea el siguiente artículo para información detallada y actualizada sobre este procedi
- Crear un proyecto con las librerías y funciones a emplear. Es importante asegurarse que está marcado el check de compatibilidad para COM (en Visual Studio).
- Generar la dll y registrarla.
- Llamarla desde el ERP de una forma similar a la expuesta:
Set lObj = CreateObject ("<NombreLibreria.NombreClase>")
lObj.<NombreProceso> <Parámetros>
Código ejemplo
Tenemos un proyecto con la siguiente clase:
Public Class Procesos
Public Sub mensaje()
MsgBox("MENSAJE A MOSTRAR")
End Sub
Public Sub crearPedido(ByVal gcn As Object, ByVal IdCliente As String, ByVal IdArticulo As String, ByVal Cantidad As Double)
Dim lPed = gcn.obj.dameobjStr("Pedido")
With lped
.propiedades("IdCliente") = IdCliente
.update()
Dim lLinea = lPed.objetos("Pedido_Lineas").add
llinea.propiedades("IdArticulo") = IdArticulo
llinea.propiedades("Cantidad") = Cantidad
llinea.update()
.show()
End With
End Sub
End Class
Public Class ConexionCargaLib
Private Shared pCn As Object
Public Property conexion() As Object
Get
Return pCn
End Get
Set(ByVal value As Object)
pCn = value
End Set
End Property
End Class
Para llamarla desde el ERP se realizaría de la siguiente forma:
Set lObj = CreateObject ("Prueba_ExternoNet.Procesos")
lObj.mensaje
lObj.crearPedido gcn, "00001", "0", 25
En este ejemplo se mostraría un mensaje y se crearía un pedido.