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"]);
        }
    }
}