28 lines
940 B
VB.net
28 lines
940 B
VB.net
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
|