Private Sub SCGrid1_CellChange(ByVal Row As Integer, ByVal Col As Integer, bCancel As Boolean)
    Dim CRow As Integer
    Dim CCol As Integer
    Dim Importe As Single
     
    CRow = SCGrid1.CurrentRow
    CCol = SCGrid1.CurrentCol
    
    Si no se tiene el enfoque en alguna celda, no hace nada
    If blnError And (Row <> CRow Or Col < 0) Then
        If CRow < 0 Then SCGrid1.CurrentRow = Row
        bCancel = True
        Exit Sub
    End If
    
Si la fila, donde se desea cambiar es diferente a la actual y ha cambiado la celda entonces Validar la fila, procedimiento del cdigo frmAsignarEmbarcaciones-validateRow.txt, donde realmente se guarda el registro. Si la validacin fall entonces se activa la variable blnErrror y bCancel, que no permiten grabar el registro hasta que se haya corregido
    If Row <> CRow Or (Row = CRow And Col < 0) Then
        If blnFieldChanged Then
            If validateRow Then
                initVariables
            Else
                blnError = True
                bCancel = True
                Exit Sub
            End If
        End If
        
        If Row <> CRow Then
            If CRow >= 0 Then Set SCGrid1.CellPicture(CRow, -1) = Nothing
            If Row >= 0 And Col >= 0 Then Set SCGrid1.CellPicture(Row, -1) = imgCoche.Picture
        End If
    End If
End Sub
