Public Interface ItsContexto
    Function GuardarCambios() As Integer
    Function ObtieneLongitudCampo(NombreTablaBase As String, NombreCampo As String) As Integer
    Sub EliminaObjeto(DataContext As Object)
    Sub AñadeObjeto(Entidad As Object)
    'Event GuardandoCambios(sender As Object, e As EventArgs)
    Function CompruebaUnico(estado As EstadosAplicacion, NombreCampo As String, valor As Object, NombreTablaBase As String, DataContext As Object) As Boolean
    Function HayModificaciones() As Boolean
End Interface

Public Enum EstadosAplicacion
    SinDatos = 0
    Nuevo = 1
    ModificandoRegistro = 2
    AplicacionSinIndice = 3
    Cancelado = 100
End Enum

Public Class Permisos
    Property Consultar As Boolean
    Property Nuevos As Boolean
    Property Eliminar As Boolean
    Property Modificar As Boolean
    Property Impresion As Boolean
    Property Otros As Boolean
    Property Exportar As Boolean
End Class