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
    
    If blnError And (Row <> CRow Or Col < 0) Then
        If CRow < 0 Then SCGrid1.CurrentRow = Row
        bCancel = True
        Exit Sub
    End If
    
    If Row <> CRow Or (Row = CRow And Col < 0) Then
Si la variable blnFieldChanged es verdadera entonces, ejecuta el procedimiento frmFacturacionNuevo-validateRow.txt, si validateRow es verdadero, entonces inicializa variables
        If blnFieldChanged Then
           If validateRow Then
                initVariables
            Else
                blnError = True
                bCancel = True
                Exit Sub
            End If
        End If
        
    End If
End Sub
