NewFrmMantenimiento

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

Librería	Clase	Metodo
AhoraAsistentes	Asistentes	NewFrmMantenimiento

Implementación:

 Function NewFrmMantenimiento(aCn As Conexion) As IMantenimiento

Descripción:

Obtiene un objeto de tipo formulario genérico de mantenimiento, una vez instanciado es necesario configurar tanto el grid como sus propiedades y controles para aportarle funcionalidad.

Código VB6:

Set lFrm = gcn.AhoraProceso("NewfrmMantenimiento",False, gCn)
  
 lFrm.Form.NombreForm = "Revisiones de Pedido"
  
 With lFrm.Grid("Revisiones de Pedido")
   If Not .Preparada Then
     .Agregar = False
     .Editar = False
     .Eliminar = False
     .CargaObjetos = False
     .EditarPorObjeto = False
     .AgregaColumna "IdRevision", 800, "Revisión"
     .AgregaColumna "IdLinea",600, "IdLinea"
     .AgregaColumna "IdArticulo",800, "IdArticulo"
     .AgregaColumna "Descrip",2600, "Descrip"     
     .AgregaColumna "Cantidad",900, "Cantidad"
     .AgregaColumna "Precio",900, "Precio"
     .columnaescalada = "Descrip"
     .From = "Pers_Pedidos_Prov_Hist"
   End If
   .Refresca = True  
 End With
  
 lFrm.form.Width=13000
 lFrm.Form.Caption = "Revisiones de Pedido"
 lFrm.MuestraFiltro("Revisiones de Pedido") = True
  
 lFrm.Carga , False, 4

Código C#:

using AhoraAsistentes;
using AhoraOCX;

namespace AhoraScriptsVacia
{
    public class Script_19 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            IFrmMantenimientos lFrm = (IFrmMantenimientos)gCn.AhoraProceso("NewFrmMantenimiento", out _, gCn);
            lFrm.NombreForm = "Revisiones de Pedido";
            ICntGridUsuario lGrid = lFrm["Revisiones de Pedido"];
            if (!lGrid.Preparada)
            {
                lGrid.Agregar = false;
                lGrid.Editar = false;
                lGrid.Eliminar = false;
                lGrid.CargaObjetos = false;
                lGrid.EditarPorObjeto = false;
                lGrid.AgregaColumna("IdRevision", 53, "Revisión");
                lGrid.AgregaColumna("IdLinea", 40, "IdLinea");
                lGrid.AgregaColumna("IdArticulo", 53, "IdArticulo");
                lGrid.AgregaColumna("Descrip", 173, "Descrip");
                lGrid.AgregaColumna("Cantidad", 60, "Cantidad");
                lGrid.AgregaColumna("Precio", 60, "Precio");
                lGrid.ColumnaEscalada = "Descrip";
                lGrid.From = "Pers_Pedidos_Prov_Hist";
            }
            lGrid.Refresca = true;
            lFrm.Form.Width = 867;
            lFrm.Form.Text = "Revisiones de Pedido";
            lFrm.SetMuestraFiltro("Revisiones de Pedido", true);
            lFrm.Carga(null, false, EBotonesMant.eBotMant_Cerrar);
        }
    }
}