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