Private Function validateFields(iRow As Integer, iCol As Integer) As Boolean
    
    validateFields = False
    Select Case iCol
Solo se permite valores numricos enteros positivos
    Case 6
        If Not IsNumeric(SCGrid1.Text(iRow, iCol)) Then
            MsgBox SCGrid1.Text(-1, 6) & " el valor no es numrico "
            Exit Function
        End If
        If Int(SCGrid1.Text(iRow, iCol)) <> SCGrid1.Text(iRow, iCol) Then
            MsgBox SCGrid1.Text(-1, 6) & " el valor debe ser entero "
            Exit Function
        End If
        If SCGrid1.Text(iRow, 6) < 0 Then
            MsgBox SCGrid1.Text(-1, 6) & " el valor debe ser mayor a cero"
            Exit Function
        End If
    End Select
    validateFields = True
End Function
