Varios - Enlace con DLL externa

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.

Autor: Daniel Ernesto Lutz Llano