Private Sub InsertaConcepto()
    Dim iRow As Integer
Dim i As Integer
    
    Si ha cambiado el registro actual y no se ha guardado, entonces no hacer
nada
    If blnFieldChanged Then Exit Sub
    cmdQuit.Enabled = False
    With SCGrid1
        Inserta una fila al Grid, y pasa el enfoque a la primera columna del Grid
        .Rows = .Rows + 1
        iRow = .Rows - 1
        .CurrentRow = iRow
        .CurrentCol = 0
        .EnterEdit
        
        .CellPictureAlignment(iRow, -1) = scPicCenter + scPicVCenter
        If .CurrentRow >= 0 Then _
        Set .CellPicture(.CurrentRow, -1) = Nothing
        Set .CellPicture(iRow, -1) = imgCoche.Picture
        .LastRow = iRow
        .CurrentRow = iRow
        .CurrentCol = 0
        .EnterEdit
    End With
Establece la variable pblica blnNewRow a verdadero
    blnNewRow = True
End Sub
