Libreria

Clase

Metodo

AhoraAsistentes

Asistentes

DameAsistente


Implementación:


 Function DameAsistente(aCn As Conexion) As Object 


Descripción:


Abre el formulario genérico asistente. Permite seleccionar de forma amigable, permitiendo filtros  y búsquedas y configurables. Para utilizarlo se emplea el Ahora Proceso para generar el formulario, después se le añaden los filtros y finalmente se emplea la función pública carga del formulario para recuperar el ítem seleccionado.

Para modificar el valor que devolverá el asistente hay que cambiar la propiedad "aDataField".


 Public Function Carga(
     aSource As String, -> Tabla o vista origen de los datos.
     aWhere As String, -> Condición a cumplir.
     aOrder As String, -> Nombre de campo con el valor de ordenamiento.
     Optional aDataField As String, -> Valor que devolverá el asistente (OPCIONAL).
     Optional aValue As Variant, -> Valor por defecto que mostrará el asistente (OPCIONAL).
     Optional aWidth As Single, -> Ancho de la ventana (OPCIONAL).
     Optional aHeight As Single, -> Alto de la ventana (OPCIONAL).
     Optional aPropietario As Object, 
     Optional ByVal aLoad As Boolean = False, 
     Optional aControlFoco As eAsistenteFoco = eFiltrarPor
) As Variant


Ejemplo de uso (campo de devolución "IdContacto"):


 Set lAsist = gCn.ahoraProceso("DameAsistente", False, gCn)
  
 lAsist.Caption = "Seleccione el contacto:"
  
 lAsist.AddField "IdContacto","IdContacto","numeric",1000,,,True
 lAsist.AddField "Nombre", "Nombre", "String", , True, , False
 lAsist.AddField "E_Mail", "e-mail", "String", 1000, , False
  
 lValue = lAsist.Carga("Contactos", "", "Nombre", "IdContacto",
                        lValue, , , gForm)


Para más información sobre este método: https://ahora.freshdesk.com/a/solutions/articles/44001739705