Formulario de Mantenimiento

En ocasiones necesitamos que un campo se autonumere. Para ello utilizamos la propiedad de columna del grid llamada Default.

 

Ver código ejemplo


Sub Main()

frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.
Set lFrm = gcn.ahoraproceso ("NewFrmMantenimiento",False,gcn)
lfrm.Form.NombreForm = "Pers_frmMant_Idiomas"
With lFrm.Grid("Idiomas") ' NO_TRADUCIR_TAG
      .Agregar = True
      .Editar = True
      .Eliminar = True
      .CargaObjetos = False
      .EditarPorObjeto = False
      .Grid.HeadLines = 2
      .AgregaColumna "IdIdioma", 2500, "Id.Idioma", False
      .AgregaColumna "Descrip", 2500, "Descripción",False
      .campo ("IdIdioma").Default = "Select isnull(max(IdIdioma),0) +1 from Idiomas"
      .From = "Idiomas"
      .Where = ""
      .ColumnaEscalada = "Descrip"
      .OrdenMultiple = "Descrip"
      .RefrescaSinLoad = True
      .Refresca = True
End With
           lFrm.Form.Caption = "Mantenimiento de Idiomas "
           lFrm.Carga , False, 4
End Sub


Autor: Daniel Ernesto Lutz Llano