Librería

Clase

Metodo

AhoraAsistentes

Asistentes

NewFrmMantenimiento


Implementación:


 Function NewFrmMantenimiento(aCn As Conexion) As IMantenimiento 


Descripción:


Abre el formulario genérico de mantenimiento, una vez abierto es necesario configurarlo para aportarle funcionalidad.


Ejemplo de uso:


 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