NewFrmMantenimiento

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:26 PM 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);
        }
    }
}

¿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