Versión Copiada del tfs

This commit is contained in:
2025-05-29 17:58:18 +02:00
commit 857f247df5
69 changed files with 22831 additions and 0 deletions

180
Datos.vb Normal file
View File

@@ -0,0 +1,180 @@
Imports tsUtilidades.Enumeraciones
Imports System.Runtime.Serialization
Namespace Datos
<DataContractAttribute(IsReference:=True)> _
<Serializable()> Public Class BBDD
Property Tipo As TipoBD
Property Servidor As String
Property DataBase As String
Property Puerto As Integer
Property Usuario As String
Property Password As String
Property Fichero As String
Property SegundosTimeout As Integer = 300
Property Pooling As Boolean
Property SSL As Boolean
Property FicheroCertificado As String
Property PasswordCertificado As String
Public Property id As String
End Class
<Serializable()> Public Class DatosConfiguracionServicio
Property NombreServicio As String
Property PuertoNR As Integer
Property BasesDatos As New List(Of BBDD)
Property Detener As Boolean
Property Directorios As New Directorios
Property Version As String
Property NumeroBDConfiguracion As Integer
End Class
<Serializable()> Public Class Directorios
Property Temporal As String
Property Flags As String
Property Plantillas As String
Property Logs As String
Property Datos As String
Property DatosLocales As String
Property DirectorioConfiguraciones As String
End Class
<Serializable()> Public Class DatosConfiguracionCliente
Property ServidorActivo As New Servidor
Property ConstantesCliente As New ConstantesCliente
Property NombreEjecutable As String
End Class
<Serializable()> Public Class ConstantesCliente
Property NombreServicio As String
Property RutaAplicacion As String
Property RutaDatos As String
Property RutaTmp As String
End Class
<Serializable()> Public Class DatosConfiguracionAplicacion
Property Servidores As New List(Of Servidor)
Property ConstantesCliente As New ConstantesCliente
End Class
<Serializable()> Public Class DatosSesionCliente
Property IdSesion As Long
Property idUsuario As Integer
Property idGrupoMenu As Integer
Property idGruboBD As Integer
End Class
<Serializable()> Public Class DatosConexionCliente
Property BasesDatos As New List(Of BBDD)
Property NumeroBDConfiguracion As Integer
' Property ServidorActualizador As New ServidorActualizacion
End Class
<Serializable()> Public Class DatosOperacion
Property Usuario As String
Property Password As String
Property IdSesion As Long
Property Operacion As Enumeraciones.TiposOperacionesEnum
Property Datos As Object
End Class
'<Serializable()> Public Class Actualizador
' Property Nombre As String
' 'Property Tipo As Enumeraciones.tipoAplicacionActualizableEnum
' Property ServidorLocal As New ServidorActualizacion
' Property ServidorRemoto As New ServidorActualizacion
' Property FicheroConfiguracionXML As String
' ' Property RutaEnsamblados As String
' Property RutaDatos As String
'End Class
'<Serializable()> Public Class ActualizadorPropio
' Property FicheroConfiguracionXML As String
' ' Property RutaEnsamblados As String
' Property RutaDatos As String
' Property RutaLogs As String
'End Class
'<Serializable()> Public Class Actualizacion
' Property Nombre As String
' Property Elementos As New List(Of ElementoActualizable)
'End Class
'<Serializable()> Public Class ElementoActualizable
' Property NombreFichero As String
' Property RutaFichero As String
' Property TipoFichero As Enumeraciones.tipoFicheroActualizableEnum
' Property FechaModificacion As DateTime
' Property Comparacion As Enumeraciones.ComparacionEnum
'End Class
<Serializable()> Public Class Servidor
Property Servidor As String
Property Puerto As Integer
Property Localizacion As Enumeraciones.LocalizacionesEnum
End Class
'<Serializable()> Public Class ServidorActualizacion
' Property TipoServidorActualizacion As Enumeraciones.tiposServidoresActualizacionEnum
' Property Servidor As String
' Property Puerto As Integer
' Property SSL As Boolean
' Property Pasivo As Boolean
' Property Usuario As String
' Property Contraseña As String
' Property Directorio As String
'End Class
'<Serializable()> Public Class DatosActualizadorAuxiliar
' Property RutaEjecutable As String
' Property Actualizacion As Datos.Actualizacion
' Property ConfiguracionCliente As Datos.DatosConfiguracionCliente
' Property ConexionCliente As Datos.DatosConexionCliente
'End Class
'<Serializable()> Public Class DatosLogs
' Friend EmailDestinatarios As String
' Friend ServidorSMTP As String
' Friend Cuenta As String
' Friend Contraseña As String
' Friend Puerto As Integer
' Friend UsarSSL As Boolean
'End Class
End Namespace
Namespace Enumeraciones
Public Enum LocalizacionesEnum
Local = 0
Remoto = 1
End Enum
Public Enum TiposOperacionesEnum
ObtieneFichero = 0
ObtieneString = 1
End Enum
'Public Enum TiposServidoresActualizacionEnum
' Samba = 0
' FTP = 1
'End Enum
'Public Enum ComparacionEnum
' Sin_Cambios = 0
' Diferente = 1
' Nuevo = 2
' Inexistente = 3
'End Enum
'Public Enum TipoActualizacionEnum
' No_Actualizar = 0
' Actualizacion_Sin_Reinicio = 1
' Actualizacion_Con_Reinicio = 2
' Actualizacion_Mixta = 3
'End Enum
'Public Enum TipoFicheroActualizableEnum
' Ensamblado = 0
' Datos = 1
'End Enum
Public Enum TipoLog
InicioServicio = 0
Fallo = 1
Advertencia = 2
ErroresEnFtp = 3
Otros = 4
Informacion = 5
Depuracion = 6
FinServicio = 99
End Enum
<DataContractAttribute(IsReference:=True)> _
<Serializable> _
Public Enum TipoBD
MYSQL
LOCALDB
SQLSERVER
ORACLE
End Enum
End Namespace