Formularios. Acceso al formulario de colección para utilizarlo como formulario de selección de objeto

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

Ofrecer a los usuarios un formulario de selección de objeto

Código VB6:

Sub Main()
      frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.

      Set lForm = gCn.AhoraProceso("DamefrmListacol", False)
      Set lObjeto = lForm.Seleccionar(gcn.Obj.damecoleccion ("Clientes","where 1 = 1"))
      MsgBox lobjeto.propiedades ("IdCliente")
End Sub

Código C#:

using AhoraCore;
using AhoraObjLinks;
using AhoraOCX;
using AhoraSistema;
using static AhoraCore.VBA.Interaction;

namespace AhoraScriptsVacia
{
    public class Script_21 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {

            IfrmListaColeccion lForm = (IfrmListaColeccion)gCn.AhoraProceso("DamefrmListacol", out _);
            IItemColeccion lObjeto = lForm.Seleccionar(gCn.Obj.DameColeccion("Clientes", "WHERE 1 = 1"));
            MsgBox(lObjeto["IdCliente"]);
        }
    }
}