Enlace con DLL Externa

 

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

Autor: Daniel Ernesto Lutz Llano