DameFrmListaCol

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


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 


Código VB6:

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 


Código C#:

using AhoraAsistentes;
using AhoraCl;
using AhoraCore;
using AhoraObjLinks;
using AhoraSistema;
using static AhoraCore.VBA.Interaction;

namespace AhoraScriptsVacia
{
    public class Script_27 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            IfrmListaColeccion lForm = (IfrmListaColeccion)gCn.AhoraProceso("DamefrmListacol", out _);

            Valor lIdCliente = "00001";
            ICliente lCliente = (ICliente)gCn.Obj.DameObjeto("Clientes", "Where Idcliente='" + lIdCliente + "'");

            if (lCliente == null)
            {
                MsgBox("Cliente Nulo");
                return;
            }
            IItemColeccion lObjeto = lForm.Seleccionar((IColecciones)lCliente.Objetos["Contactos_Generales"]);
        }
    }
}

¿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