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