Dame Asistente

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:26 P. M. por David Miralpeix


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


Código VB6:

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)


Código C#:

using AhoraAsistentes;
using AhoraCore;

namespace AhoraScriptsVacia
{
    public class Script_25 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            IAsistente lAsist = (IAsistente)gCn.AhoraProceso("DameAsistente", out _, gCn);
            lAsist.Text = "Seleccione el contacto:";
            lAsist.AddField("IdContacto", "IdContacto", AhoraOCX.ETipoDato.Numeric, 67);
            lAsist.AddField("Nombre", "Nombre", AhoraOCX.ETipoDato.String, null, true, false, false);
            lAsist.AddField("E_Mail", "e-mail", AhoraOCX.ETipoDato.String, 67, false, false);

            Valor lValue = lAsist.Carga("Contactos", "", "Nombre", "IdContacto", null, 0, 0, gCn.Sesion.MainForm);

        }

    }
}


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

¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo