Libreria | Clase | Metodo |
AhoraObjLinks | Rutinas | DameFrmListaCol |
Implementación:
Function DameFrmListaCol(Optional aObj As Object) As Object Dim lFrm As frmListaColeccion Set lFrm = New frmListaColeccion Set DameFrmListaCol = lFrm End Function
Descripción:
Abre un formulario que permite seleccionar un ítem de una colección, mediante la función "Seleccionar" del formulario:
Public Sub Carga( aCol As Colecciones, Optional aPropietario As Object, Optional aModoSeleccionar As Boolean = False, Optional aModoForm As eModo_Func = eModo_Form) Public Function Seleccionar( aObject As Object, Optional aPropietario As Object) As Object
Ejemplo de uso:
Set lForm = gCn.AhoraProceso("DamefrmListacol", False) Set lObjeto = lForm.Seleccionar(lCliente.Objetos("Contactos_Generales")) lCliente.CargaObjAdicionales -1, lCliente.Objetos("Plantas") Set lForm = gCn.AhoraProceso("DamefrmListacol", False) Set lObjeto = lForm.Seleccionar(lCliente.Objetos("Plantas"), Me) If Not lObjeto Is Nothing Then IdPlanta.Inicializa = lObjeto.Propiedades("IdCliente") IdPlanta_AfterUpdate End If