Versión Copiada del tfs

ItsContexto.vb

@@ -0,0 +1,27 @@
+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