Agregar archivos de proyecto.

InicioServicioYClientes/Rutinas.vb

@@ -0,0 +1,443 @@
+Imports System.Runtime.Remoting
+Imports System.IO
+Imports System.Xml
+Imports System.Xml.Serialization
+Imports System.Windows.Forms
+Imports System.Drawing
+Imports tsl5.Enumeraciones
+Imports tsl5
+Imports System.Data
+Imports DevExpress.Xpf.Core
+
+Public Class Rutinas
+    Shared Sub IniciaServicioNR(Puerto As Integer, Nombre As String, tipo As Type)
+        Dim ht As New Hashtable
+        ht("port") = Puerto
+        ht("name") = Nombre
+        Dim serverProvTcp As New System.Runtime.Remoting.Channels.BinaryServerFormatterSinkProvider
+        serverProvTcp.TypeFilterLevel = Runtime.Serialization.Formatters.TypeFilterLevel.Full
+        Dim clientProvTcp As New System.Runtime.Remoting.Channels.BinaryClientFormatterSinkProvider
+        Dim tc As System.Runtime.Remoting.Channels.Tcp.TcpChannel = New System.Runtime.Remoting.Channels.Tcp.TcpChannel(ht, clientProvTcp, serverProvTcp)
+        System.Runtime.Remoting.RemotingConfiguration.RegisterWellKnownServiceType(tipo, Nombre & ".soap", WellKnownObjectMode.Singleton)
+    End Sub
+    Shared Function ObtieneObjetoServicioNR(Servidor As String, Puerto As Integer, Nombre As String) As tsl5.Interfaces.IServicioNR
+        Dim sr As tsl5.Interfaces.IServicioNR
+        Dim sPuertoNR As String = Puerto
+        sr = System.Activator.GetObject(GetType(tsl5.Interfaces.IServicioNR), "tcp://" & Servidor & ":" & sPuertoNR & "/" & Nombre & ".soap")
+        Return sr
+
+    End Function
+    'Shared Function ObtieneActualizaciones(VersionServidor As Datos.Actualizacion, ByRef VersionAComparar As Datos.Actualizacion) As Enumeraciones.tipoActualizacionEnum
+    '    Dim TipoActualizacion As Enumeraciones.tipoActualizacionEnum = Enumeraciones.tipoActualizacionEnum.No_Actualizar
+    '    Dim NuevosElementos As New List(Of Datos.ElementoActualizable)
+    '    For Each fichero In VersionServidor.Elementos 'VersionAComparar.Elementos
+    '        Dim sNombreFichero As String = fichero.NombreFichero
+    '        Dim sRutaFichero As String = fichero.RutaFichero
+    '        Dim TipoFichero As TipoFicheroActualizableEnum = fichero.tipoFichero
+    '        Dim fs = From f In VersionAComparar.Elementos Where f.NombreFichero = sNombreFichero And f.tipoFichero = TipoFichero And f.RutaFichero = sRutaFichero Select f
+    '        If fs.Count = 0 Then
+    '            Dim NuevoFich As New Datos.ElementoActualizable
+    '            NuevoFich = fichero
+    '            NuevoFich.Comparacion = Enumeraciones.ComparacionEnum.Nuevo
+    '            NuevosElementos.Add(NuevoFich)
+    '            If NuevoFich.tipoFichero = Enumeraciones.tipoFicheroActualizableEnum.Datos Then
+    '                If TipoActualizacion = Enumeraciones.tipoActualizacionEnum.No_Actualizar Then
+    '                    TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Sin_Reinicio
+    '                ElseIf TipoActualizacion = TipoActualizacionEnum.Actualizacion_Con_Reinicio Then
+    '                    TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Mixta
+    '                End If
+    '            Else
+    '                If TipoActualizacion = Enumeraciones.tipoActualizacionEnum.No_Actualizar Then
+    '                    TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Con_Reinicio
+    '                Else
+    '                    If TipoActualizacion = TipoActualizacionEnum.Actualizacion_Sin_Reinicio Then TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Mixta
+    '                End If
+    '            End If
+    '        Else
+    '            If fs(0).FechaModificacion <> fichero.FechaModificacion Then
+    '                If fichero.tipoFichero = Enumeraciones.tipoFicheroActualizableEnum.Datos Then
+    '                    If TipoActualizacion = Enumeraciones.tipoActualizacionEnum.No_Actualizar Then
+    '                        TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Sin_Reinicio
+    '                    ElseIf TipoActualizacion = TipoActualizacionEnum.Actualizacion_Con_Reinicio Then
+    '                        TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Mixta
+    '                    End If
+    '                Else
+    '                    If TipoActualizacion = Enumeraciones.tipoActualizacionEnum.No_Actualizar Then
+    '                        TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Con_Reinicio
+    '                    Else
+    '                        If TipoActualizacion = TipoActualizacionEnum.Actualizacion_Sin_Reinicio Then TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Mixta
+    '                    End If
+    '                End If
+    '                fs(0).Comparacion = Enumeraciones.ComparacionEnum.Diferente
+    '                fs(0).FechaModificacion = fichero.FechaModificacion
+    '            Else
+    '                fs(0).Comparacion = Enumeraciones.ComparacionEnum.Sin_Cambios
+    '            End If
+    '        End If
+    '    Next
+    '    For Each fichero In VersionAComparar.Elementos
+    '        Dim sNombreFichero As String = fichero.NombreFichero
+    '        Dim sRutaFichero As String = fichero.RutaFichero
+    '        Dim TipoFichero As TipoFicheroActualizableEnum = fichero.tipoFichero
+    '        Dim fs = From f In VersionServidor.Elementos Where f.NombreFichero = sNombreFichero And f.tipoFichero = TipoFichero And f.RutaFichero = sRutaFichero Select f
+    '        'Dim fs = From f In VersionServidor.Elementos Where f.NombreFichero = sNombreFichero Select f
+    '        If fs.Count = 0 Then
+    '            fichero.Comparacion = Enumeraciones.ComparacionEnum.Inexistente
+    '        End If
+    '    Next
+    '    For Each fichero In NuevosElementos
+    '        VersionAComparar.Elementos.Add(fichero)
+    '    Next
+    '    Return TipoActualizacion
+    'End Function
+
+    'Public Shared Function ObtieneVersionFicherosRecursivo(NombreActualizacion As String, RutaDatos As String) As Datos.Actualizacion
+    '    Dim Actualizacion As New Datos.Actualizacion       
+    '    ObtieneVersion(Actualizacion, RutaDatos, RutaDatos, Enumeraciones.TipoFicheroActualizableEnum.Datos)
+    '    Actualizacion.Nombre = NombreActualizacion
+    '    Return Actualizacion
+    'End Function
+
+    'Public Shared Sub ObtieneVersion(ByRef Version As Datos.Actualizacion, Ruta As String, RutaInicial As String, TipoFichero As Enumeraciones.tipoFicheroActualizableEnum)
+    '    Dim iBarra As Integer = 1
+    '    If Ruta.EndsWith("\") Then iBarra = 0
+    '    Dim sDirectorios() As String = IO.Directory.GetDirectories(Ruta)
+    '    For Each sdirectorio In sDirectorios
+    '        ObtieneVersion(Version, sdirectorio, RutaInicial, TipoFichero)
+    '    Next
+    '    Dim sFicheros() As String = IO.Directory.GetFiles(Ruta)
+    '    Dim sfichero As String
+    '    Dim ea As Datos.ElementoActualizable
+    '    Dim fi As FileInfo
+    '    For Each sfichero In sFicheros
+    '        ea = New Datos.ElementoActualizable
+    '        ea.NombreFichero = sfichero.Substring(Ruta.Length + iBarra)
+    '        fi = New FileInfo(sfichero)
+    '        ea.FechaModificacion = fi.LastWriteTimeUtc
+    '        ea.tipoFichero = TipoFichero
+    '        ea.RutaFichero = ""
+    '        If Ruta <> RutaInicial Then ea.RutaFichero = Ruta.Substring(RutaInicial.Length).trimStart("\") & "\"
+    '        Version.Elementos.Add(ea)
+    '    Next
+    'End Sub
+
+    ' Shared Function GeneraDatosActualizacion(NombreActualizacion As String, RutaDatos As String) As Datos.Actualizacion
+    '    Dim act As New Datos.Actualizacion
+    '    act = ObtieneVersionFicherosRecursivo(NombreActualizacion, RutaDatos)
+    '    Return act
+    'End Function
+
+    'Shared Sub InicioServicios(ByRef Configuracion As Datos.DatosConfiguracionServicio, ByRef VersionesFicherosCliente() As Datos.Actualizacion, ServicioNetRemoting As Type)
+    '    'ReDim VersionesFicherosCliente(Configuracion.OtrosActualizadores.Count - 1)
+    '    'Dim da As New Datos.Actualizacion
+    '    'For i = 0 To Configuracion.OtrosActualizadores.Count - 1
+    '    '    da = ObtieneVersionFicherosRecursivo(Configuracion.OtrosActualizadores(i).Nombre, Configuracion.OtrosActualizadores(i).RutaDatos)
+    '    '    VersionesFicherosCliente(i) = da
+    '    'Next
+    '    Call tsl5.Rutinas.IniciaServicioNR(Configuracion.PuertoNR, Configuracion.NombreServicio, ServicioNetRemoting)
+    'End Sub
+
+
+    Public Shared Function ObtieneDatConexClienteSinServicio(FicheroConf As String, Peticion As tsl5.Datos.DatosConfiguracionCliente, idGrupoBD As Integer) As tsl5.Datos.DatosConexionCliente
+        Try
+
+            Return tsWPF.Rutinas.ObtieneDatosConexionCliente(FicheroConf, Peticion.ConstantesCliente.NombreServicio, Peticion.ServidorActivo.Localizacion, idGrupoBD, "")
+        Catch exc As Exception
+            Throw New Exception(exc.Message, exc)
+        End Try
+    End Function
+
+    Shared Function ObtieneDatosConexionClienteSinServicio(FicheroConfiguracion As String, NombreServicio As String, Localizacion As Enumeraciones.LocalizacionesEnum, idGrupoBD As Integer, dllProcesos As String) As tsl5.Datos.DatosConexionCliente
+        Try
+            Dim configuracionservidor As New tsl5.Datos.DatosConfiguracionServicio
+            configuracionservidor = Datos.DatosConfiguracionServicio.CargaConfiguracion(FicheroConfiguracion, dllProcesos)
+
+            Dim bd As New MySql.Data.MySqlClient.MySqlConnection(bbdd.GeneraConnectionStringMySQL(configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Servidor, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).DataBase, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Usuario, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Password, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Puerto, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).SegundosTimeout, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Pooling, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).SSL, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).FicheroCertificado, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).PasswordCertificado))
+            'Dim bd As New MySql.Data.MySqlClient.MySqlConnection(bbdd.GeneraConnectionStringMySQL(configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Servidor, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).DataBase, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Usuario, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Password, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Puerto))
+            ' ''Dim drUsuario As DataRow = bbdd.ObtienePrimeraFilaMysql(bd, "Select * From Usuarios where Usuario=? and SHA1passwd=?", {Peticion.Usuario, Peticion.Password})
+            ' ''If drUsuario Is Nothing Then Throw New Exception("Usuario no válido")
+            Dim dtBBDD As DataTable = bbdd.ObtieneTablaMysql(bd, "SELECT * FROM conexionesbd inner join grupobd on grupobd.idgrupobd=conexionesbd.idgrupobd where grupobd.idgrupobd=?", {idGrupoBD})
+            Dim dcc As New tsl5.Datos.DatosConexionCliente
+            For Each dr In dtBBDD.Rows
+                Dim bbdd As New tsl5.Datos.BBDD
+                bbdd.Usuario = dr("Usuario")
+                bbdd.Password = dr("Password")
+                bbdd.DataBase = dr("Esquema")
+                If Localizacion = Enumeraciones.LocalizacionesEnum.Local Then
+                    bbdd.Servidor = dr("ServidorLocal")
+                    bbdd.Puerto = dr("PuertoLocal")
+                Else
+                    bbdd.Servidor = dr("ServidorRemoto")
+                    bbdd.Puerto = dr("PuertoRemoto")
+                End If
+                dcc.BasesDatos.Add(bbdd)
+            Next
+            dcc.NumeroBDConfiguracion = configuracionservidor.NumeroBDConfiguracion
+            'Dim act = From a In configuracionservidor.OtrosActualizadores Where a.Nombre = NombreServicio Select a
+            'If Localizacion = Enumeraciones.LocalizacionesEnum.Local Then
+            '    dcc.ServidorActualizador = act(0).ServidorLocal
+            'Else
+            '    dcc.ServidorActualizador = act(0).ServidorRemoto
+            'End If
+            Return dcc
+        Catch ex As Exception
+            Throw ex
+        End Try
+    End Function
+
+    Shared Function ObtieneDatosConexionCliente(FicheroConfiguracion As String, NombreServicio As String, Localizacion As Enumeraciones.LocalizacionesEnum, idGrupoBD As Integer, dllProcesos As String) As tsl5.Datos.DatosConexionCliente
+        Try
+            Dim configuracionservidor As New tsl5.Datos.DatosConfiguracionServicio
+            configuracionservidor = Datos.DatosConfiguracionServicio.CargaConfiguracion(FicheroConfiguracion, dllProcesos)
+            Dim bd As New MySql.Data.MySqlClient.MySqlConnection(bbdd.GeneraConnectionStringMySQL(configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Servidor, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).DataBase, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Usuario, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Password, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Puerto, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).SegundosTimeout, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Pooling, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).SSL, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).FicheroCertificado, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).PasswordCertificado))
+            ' ''Dim drUsuario As DataRow = bbdd.ObtienePrimeraFilaMysql(bd, "Select * From Usuarios where Usuario=? and SHA1passwd=?", {Peticion.Usuario, Peticion.Password})
+            ' ''If drUsuario Is Nothing Then Throw New Exception("Usuario no válido")
+            Dim dtBBDD As DataTable = bbdd.ObtieneTablaMysql(bd, "SELECT * FROM conexionesbd inner join grupobd on grupobd.idgrupobd=conexionesbd.idgrupobd where grupobd.idgrupobd=?", {idGrupoBD})
+            Dim dcc As New tsl5.Datos.DatosConexionCliente
+            For Each dr In dtBBDD.Rows
+                Dim bbdd As New tsl5.Datos.BBDD
+                bbdd.Usuario = dr("Usuario")
+                bbdd.Password = dr("Password")
+                bbdd.DataBase = dr("Esquema")
+                If Localizacion = Enumeraciones.LocalizacionesEnum.Local Then
+                    bbdd.Servidor = dr("ServidorLocal")
+                    bbdd.Puerto = dr("PuertoLocal")
+                Else
+                    bbdd.Servidor = dr("ServidorRemoto")
+                    bbdd.Puerto = dr("PuertoRemoto")
+                End If
+                dcc.BasesDatos.Add(bbdd)
+            Next
+
+            'Dim act = From a In configuracionservidor.OtrosActualizadores Where a.Nombre = NombreServicio Select a
+            'If Localizacion = Enumeraciones.LocalizacionesEnum.Local Then
+            '    dcc.ServidorActualizador = act(0).ServidorLocal
+            'Else
+            '    dcc.ServidorActualizador = act(0).ServidorRemoto
+            'End If
+            Return dcc
+        Catch ex As Exception
+            Throw ex
+        End Try
+    End Function
+    Shared Function IniciaSesion(sr As tsl5.Interfaces.IServicioNR, Usuario As String, Contraseña As String, idGrupoBD As Integer) As Datos.DatosSesionCliente
+        Dim e As Exception = Nothing
+        Dim dsc As Datos.DatosSesionCliente
+        dsc = sr.IniciaSesion(Usuario, Contraseña, idGrupoBD, e)
+        If Not e Is Nothing Then Throw e
+        Return dsc
+    End Function
+
+    'Public Shared Function IniciaSesionSinServicio(Usuario As String, Contraseña As String, ByRef idGrupoBD As Integer, Aplicacion As String, ByRef ex As System.Exception) As tsl5.Datos.DatosSesionCliente
+    '    Try
+    '        ex = Nothing
+    '        Dim sSHA1passwd As String = crypt.SHA1("M3Soft." & Contraseña)
+    '        Dim sFicheroConf As String = ObtieneFicheroConfiguracionGenerico(Aplicacion)
+    '        Return IniciarSesion(sFicheroConf, Usuario, sSHA1passwd, idGrupoBD, "")
+    '    Catch exc As Exception
+    '        ex = exc
+    '        Return Nothing
+    '    End Try
+    'End Function
+
+    Shared Function ObtieneFicheroConfiguracionGenerico(Aplicacion) As String
+        Dim sRutaConfiguraciones As String
+        sRutaConfiguraciones = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) & "\Depuracion\" & Aplicacion & "\Servidor\ServidorConfig.xml"
+        If Not IO.File.Exists(sRutaConfiguraciones) Then
+            sRutaConfiguraciones = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) & "\" & Aplicacion & "\Servidor\ServidorConfig.xml"
+        End If
+        Return sRutaConfiguraciones
+    End Function
+
+
+    Shared Function ObtieneDatConexCliente(Dcc As Datos.DatosConfiguracionCliente, ByRef sr As tsl5.Interfaces.IServicioNR, idGrupoBD As Integer) As Datos.DatosConexionCliente
+        Dim e As Exception = Nothing
+        Dim dc As Datos.DatosConexionCliente
+        sr = tsWPF.Rutinas.ObtieneObjetoServicioNR(Dcc.ServidorActivo.Servidor, Dcc.ServidorActivo.Puerto, Dcc.ConstantesCliente.NombreServicio)
+        'dc = sr.IniciaSesion(Dcc, e)
+        dc = sr.ObtieneDatosConexionCliente(Dcc, idGrupoBD, e)
+        If Not e Is Nothing Then Throw e
+        Return dc
+    End Function
+
+    'Shared Sub ActualizaCliente(DatConfCli As Datos.DatosConfiguracionCliente, ByRef DatConexCli As Datos.DatosConexionCliente, sr As tsl5.Interfaces.IServicioNR)
+    '    Try
+    '        If Not Windows.Forms.Application.StartupPath.ToLower.StartsWith("c:\tecnosis.tfs\") Then
+    '            Dim da As New Datos.Actualizacion
+    '            Dim e As Exception = Nothing
+    '            da = tsl5.Rutinas.GeneraDatosActualizacion(DatConfCli.ConstantesCliente.NombreServicio, DatConfCli.ConstantesCliente.RutaDatos)
+    '            Dim ap As Enumeraciones.tipoActualizacionEnum = sr.CompruebaActualizacionesCliente(DatConfCli.ConstantesCliente.NombreServicio, da, e)
+    '            If Not e Is Nothing Then Throw e
+    '            Select Case ap
+    '                Case Enumeraciones.tipoActualizacionEnum.Actualizacion_Mixta
+    '                    Actualiza(da, DatConfCli, DatConexCli, TipoFicheroActualizableEnum.Datos)
+    '                    LlamaActualizadorAuxiliar(da, DatConfCli, DatConexCli)
+    '                Case Enumeraciones.tipoActualizacionEnum.Actualizacion_Sin_Reinicio
+    '                    Actualiza(da, DatConfCli, DatConexCli, TipoFicheroActualizableEnum.Datos)
+    '                Case TipoActualizacionEnum.Actualizacion_Con_Reinicio
+    '                    LlamaActualizadorAuxiliar(da, DatConfCli, DatConexCli)
+    '            End Select
+    '        End If
+    '    Catch ex As Exception
+    '        Throw ex
+    '    End Try
+    'End Sub
+
+    'Public Shared Sub Actualiza(DatosActualizacion As Datos.Actualizacion, DatConfCli As Datos.DatosConfiguracionCliente, DatConexCli As Datos.DatosConexionCliente, FicherosAActualizar As TipoFicheroActualizableEnum)
+    '    Try
+    '        If IO.Directory.Exists(DatConfCli.ConstantesCliente.RutaTmp) Then IO.Directory.Delete(DatConfCli.ConstantesCliente.RutaTmp, True)
+    '        IO.Directory.CreateDirectory(DatConfCli.ConstantesCliente.RutaTmp)
+    '        Dim fActualizador As New frmActualizador
+    '        fActualizador.tipoActualizacion = FicherosAActualizar
+    '        fActualizador.DatosActualizacion = DatosActualizacion
+    '        fActualizador.DatConfCli = DatConfCli
+    '        fActualizador.DatConexCli = DatConexCli
+    '        fActualizador.ShowDialog()
+    '    Catch ex As Exception
+    '        Throw ex
+    '    End Try
+    'End Sub
+
+    'Private Shared Sub DescargaElementoFTP(servidorActualizacion As Datos.ServidorActualizacion, NombreFichero As String, RutaDescarga As String)
+    '    Dim ftp As New Dart.PowerTCP.SecureFtp.Ftp
+    '    ftp.Server = servidorActualizacion.Servidor
+    '    ftp.Username = servidorActualizacion.Usuario
+    '    ftp.Password = servidorActualizacion.Contraseña
+    '    ftp.Passive = servidorActualizacion.Pasivo
+    '    ftp.ServerPort = servidorActualizacion.Puerto
+    '    If servidorActualizacion.SSL Then
+    '        ftp.Security = Dart.PowerTCP.SecureFtp.Security.Implicit
+    '    Else
+    '        ftp.Security = Dart.PowerTCP.SecureFtp.Security.None
+    '    End If
+    '    ftp.Get(servidorActualizacion.Directorio & NombreFichero, RutaDescarga & NombreFichero)
+    'End Sub
+
+    'Private Shared Sub DescargaElementoSamba(servidorActualizacion As Datos.ServidorActualizacion, NombreFichero As String, RutaDescarga As String)
+    '    IO.File.Copy(servidorActualizacion.Directorio & "\" & NombreFichero, RutaDescarga & NombreFichero, True)
+    'End Sub
+
+    'Private Shared Sub LlamaActualizadorAuxiliar(da As Datos.Actualizacion, DatConfCli As Datos.DatosConfiguracionCliente, DatConexCli As Datos.DatosConexionCliente)
+    '    Dim DatosActAux As New Datos.DatosActualizadorAuxiliar
+    '    DatosActAux.Actualizacion = da
+    '    DatosActAux.ConfiguracionCliente = DatConfCli
+    '    DatosActAux.ConexionCliente = DatConexCli
+    '    DatosActAux.RutaEjecutable = Windows.Forms.Application.StartupPath & "\" & Process.GetCurrentProcess.ProcessName & ".exe"
+    '    Dim sFicDatosAct As String
+    '    sFicDatosAct = DatConfCli.ConstantesCliente.RutaDatos & "\ActualizadorAuxiliar\DatosActAux.xml"
+    '    Utilidades.serializar(DatosActAux, sFicDatosAct)
+    '    If Not IO.File.Exists(DatConfCli.ConstantesCliente.RutaDatos & "\ActualizadorAuxiliar\ActualizadorAuxiliar.exe") Then
+    '        MsgBox("No existe el programa actualizador", MsgBoxStyle.Critical, "Error")
+    '    Else
+    '        Process.Start(DatConfCli.ConstantesCliente.RutaDatos & "\ActualizadorAuxiliar\ActualizadorAuxiliar.exe", sFicDatosAct)
+    '        'MsgBox("El programa se tiene que actualizar.")
+    '        'Windows.Forms.Application.Exit()
+    '        Environment.Exit(0)
+
+    '    End If
+    'End Sub
+
+    <System.Diagnostics.DebuggerStepThrough()> Public Shared Function Ttagi(ByVal sValortag As String, ByVal sToken As String, Optional Separador As String = "|") As String
+        'Public Shared Function Ttagi(ByVal sValortag As String, ByVal sToken As String) As String
+        'Ttagi = ""
+        'Try
+        '    sValortag = "|" & sValortag & "|"
+        '    If InStr(1, "|" & sValortag & "|", "|" & sToken & "=", vbTextCompare) > 0 Then
+        '        Ttagi = Mid(sValortag, (InStr(1, sValortag, "|" & sToken & "=") + Len(sToken) + 2), InStr(1, Mid(sValortag, InStr(1, sValortag, "|" & sToken & "=") + Len(sToken) + 2), "|") - 1)
+        '    End If            
+        'Catch ex As Exception
+        '    Throw ex
+        'End Try
+        sValortag = Separador & sValortag & Separador
+        Dim atags = sValortag.Split(Separador)
+        If atags.Any(Function(x) x.StartsWith(sToken & "=")) Then
+            Ttagi = atags.First(Function(X) X.StartsWith(sToken & "=")).Split("=")(1)
+        Else
+            Ttagi = ""
+        End If
+    End Function
+    Public Shared Function FindType(ByVal name As String) As Type
+        Dim base As Type
+
+        base = Reflection.Assembly.GetEntryAssembly.GetType(name, False, True)
+        If base IsNot Nothing Then Return base
+
+        base = Reflection.Assembly.GetExecutingAssembly.GetType(name, False, True)
+        If base IsNot Nothing Then Return base
+
+        For Each assembly As Reflection.Assembly In _
+          AppDomain.CurrentDomain.GetAssemblies
+            base = assembly.GetType(name, False, True)
+            If base IsNot Nothing Then Return base
+        Next
+        Throw New Exception("Clase no encontrada")
+    End Function
+    'Shared Sub GeneraMenus(BarraMenu As DevExpress.Xpf.Bars.Bar, datconexcli As Datos.DatosConexionCliente, datsesioncli As Datos.DatosSesionCliente, Evento As DevExpress.Xpf.Bars.ItemClickEventHandler)
+
+    '    'Dim bd As tsl5.tsl5Model.Entities = bbdd.ConectarEntity(datconexcli.BasesDatos(Me.NumeroBD).Servidor, datconexcli.BasesDatos(Me.NumeroBD).DataBase, datconexcli.BasesDatos(Me.NumeroBD).Puerto, datconexcli.BasesDatos(Me.NumeroBD).Usuario, datconexcli.BasesDatos(Me.NumeroBD).Password, "tsl5Model")
+    '    Dim bd As tsl5.tsl5Model.tsl5Entities = Nothing
+    '    Select Case datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Tipo
+    '        Case TipoBD.LOCALDB
+    '            bd = bbdd.ConectarTsl5EntityLocalDB(datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Servidor, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Fichero, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).DataBase, "tsl5Model")
+    '        Case TipoBD.MYSQL
+    '            bd = bbdd.ConectarTsl5EntityMySQL(datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Servidor, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).DataBase, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Puerto, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Usuario, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Password, "tsl5Model", datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Pooling, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).SSL, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).FicheroCertificado, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).PasswordCertificado)
+    '        Case TipoBD.SQLSERVER
+    '            bd = bbdd.ConectarTsl5EntitySQLServer(datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Servidor, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).DataBase, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Usuario, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Password, "tsl5Model")
+    '        Case Else
+    '            Throw New Exception("Tipo de base de datos no soportado. " & datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Tipo.ToString)
+    '    End Select
+
+    '    Dim menuiniciales = (From m In bd.menus Where m.idGrupoMenu = datsesioncli.idGrupoMenu Order By m.Orden Select m).ToList
+    '    Dim bsi As DevExpress.Xpf.Bars.BarSubItem
+    '    For Each mi In menuiniciales
+    '        bsi = New DevExpress.Xpf.Bars.BarSubItem
+    '        bsi.Content = mi.Texto.Replace("&", "_")
+    '        Call generamenurecursivo(bd, bsi, mi, Evento)
+    '        BarraMenu.ItemLinks.Add(bsi)
+    '    Next
+    'End Sub
+
+
+    'Private Shared Sub generamenurecursivo(bd As tsl5.tsl5Model.tsl5Entities, ByRef bsi As DevExpress.Xpf.Bars.BarSubItem, mi As tsl5.tsl5Model.menus, Evento As DevExpress.Xpf.Bars.ItemClickEventHandler)
+    '    Dim bsih As DevExpress.Xpf.Bars.BarSubItem
+    '    Dim bbi As DevExpress.Xpf.Bars.BarButtonItem
+    '    Dim submenus = (From m In bd.menus Where m.idMenuPadre = mi.idMenus Order By m.Orden Select m).ToList
+    '    For Each sm In submenus
+    '        If sm.Accion.Trim <> "" Then
+    '            bbi = New DevExpress.Xpf.Bars.BarButtonItem
+    '            bbi.Content = sm.Texto.Replace("&", "_")
+    '            bbi.Tag = sm.Accion
+    '            ' If sm.Accion.ToLower.Contains("enti") Then bbi.KeyGesture = New KeyGesture(Key.LeftAlt + Key.E)
+    '            AddHandler bbi.ItemClick, Evento
+    '            bsi.ItemLinks.Add(bbi)
+    '        Else
+    '            bsih = New DevExpress.Xpf.Bars.BarSubItem
+    '            bsih.Content = sm.Texto.Replace("&", "_")
+    '            Call generamenurecursivo(bd, bsih, sm, Evento)
+    '            bsi.ItemLinks.Add(bsih)
+    '        End If
+    '    Next
+    'End Sub
+
+
+    'Shared Function IniciarSesion(FicheroConfiguracion As String, Usuario As String, SHA1passwd As String, ByRef idGrupoBD As Integer, dllProcesos As String) As tsl5.Datos.DatosSesionCliente
+    '    Try
+    '        Dim configuracionservidor As New tsl5.Datos.DatosConfiguracionServicio
+    '        configuracionservidor = Datos.DatosConfiguracionServicio.CargaConfiguracion(FicheroConfiguracion, dllProcesos)
+    '        Dim bd As New MySql.Data.MySqlClient.MySqlConnection(bbdd.GeneraConnectionStringMySQL(configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Servidor, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).DataBase, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Usuario, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Password, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Puerto, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).SegundosTimeout, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).Pooling, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).SSL, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).FicheroCertificado, configuracionservidor.BasesDatos(configuracionservidor.NumeroBDConfiguracion).PasswordCertificado))
+    '        Dim drUsuario As DataRow = bbdd.ObtienePrimeraFilaMysql(bd, "Select * From Usuarios where Usuario=? and SHA1passwd=?", {Usuario, SHA1passwd})
+    '        If drUsuario Is Nothing Then Throw New Exception("Usuario no válido")
+    '        Dim drGrupo As DataRow = bbdd.ObtienePrimeraFilaMysql(bd, "Select * From GruposUsuarios where idGrupo=?", {drUsuario("idGrupo")})
+    '        Dim ds As New tsl5.Datos.DatosSesionCliente
+    '        ds.IdSesion = 1 'TODO: leer de constante    
+    '        ds.idUsuario = drUsuario("idUsuario")
+    '        ds.idGrupoMenu = drGrupo("idGrupoMenu")
+    '        idGrupoBD = drUsuario("idGrupobd")
+    '        Return ds
+    '    Catch ex As Exception
+    '        Throw ex
+    '    End Try
+    'End Function
+
+
+End Class

InicioServicioYClientes/dxwIdentificacion.xaml

@@ -0,0 +1,19 @@
+<dx:DXWindow x:Name="text" ShowIcon="False" ResizeMode="NoResize" WindowStyle="SingleBorderWindow" 
+    x:Class="dxwIdentificacion"
+    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+    xmlns:dx="http://schemas.devexpress.com/winfx/2008/xaml/core"
+    Title="Identificación" Height="210" Width="415" xmlns:dxe="http://schemas.devexpress.com/winfx/2008/xaml/editors" WindowStartupLocation="CenterScreen" Topmost="True"  >
+
+    <Grid x:Name="gc"  >
+        <dxe:TextEdit  Margin="99,14,22,0" Name="teUsuario" VerticalAlignment="Top" TabIndex="0" x:FieldModifier="Public" />
+        <Label Content="Usuario:" Height="28" HorizontalAlignment="Left" Margin="12,12,0,0" Name="Label1" VerticalAlignment="Top" Width="88" />
+        <Label Content="Contraseña:" Height="23" HorizontalAlignment="Left" Margin="12,55,0,0" Name="Label2" VerticalAlignment="Top" Width="79" />
+        <dxe:PasswordBoxEdit  Margin="97,56,22,0" Name="pbeContrasenna" VerticalAlignment="Top" TabIndex="1" x:FieldModifier="Public" ShowPasswordButtonVisibility="Always"  />
+        <Button Content="Aceptar" Height="23" HorizontalAlignment="Left" Margin="95,95,0,0" Name="Button1" VerticalAlignment="Top" Width="125" />
+        <Button Content="Cancelar" Height="23" HorizontalAlignment="Right" Margin="0,95,22,0" Name="Button2" VerticalAlignment="Top" Width="125" />
+        <Label x:Name="lVersion" Content="Versión:" FontSize="9" Height="24" HorizontalAlignment="Left" Margin="10,140,0,0" VerticalAlignment="Top" Width="176" />
+        <dxe:HyperlinkEdit  HorizontalContentAlignment="Right" Height="23" Margin="204,140,22,0" VerticalAlignment="Top" Text="¿Ha Olvidado Su Contraseña?"  x:Name="hlRestablecerPass" RequestNavigation="hlRestablecerPass_RequestNavigation" Visibility="Hidden"  />
+
+    </Grid>
+</dx:DXWindow>

InicioServicioYClientes/dxwIdentificacion.xaml.vb

@@ -0,0 +1,75 @@
+Imports DevExpress.Xpf.Editors
+Imports DevExpress.Xpf.Core.Native
+Imports System.Reflection
+
+Public Class dxwIdentificacion
+    Public Version As String
+    Public Cancelar As Boolean
+
+    Public Sub New()
+        ' Esta llamada es exigida por el diseñador.
+        InitializeComponent()
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+    Public Sub New(EnlaceRestablecer As String)
+
+
+        ' Esta llamada es exigida por el diseñador.
+        InitializeComponent()
+        hlRestablecerPass.NavigationUrl = EnlaceRestablecer
+        hlRestablecerPass.Visibility = Visibility.Visible
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+
+    Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
+        Cancelar = False
+        Me.Close()
+    End Sub
+
+    Private Sub Button2_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button2.Click
+        Cancelar = True
+        Me.Close()
+    End Sub
+
+    Private Sub Window_PreviewKeyDown(sender As Object, e As KeyEventArgs) Handles gc.PreviewKeyDown
+        If e.Key = Key.Return Then
+            If teUsuario.Text <> "" And Me.pbeContrasenna.Text <> "" Then
+                Cancelar = False
+                Me.Close()
+            Else
+                Dim te As BaseEdit = LayoutHelper.FindParentObject(Of BaseEdit)(Keyboard.FocusedElement)
+                If te Is Nothing Then
+                    FocusManager.SetFocusedElement(Me, teUsuario)
+                Else
+                    If te.Name.ToUpper = "TEUSUARIO" Then
+                        FocusManager.SetFocusedElement(Me, pbeContrasenna)
+                    Else
+                        FocusManager.SetFocusedElement(Me, teUsuario)
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub dxwIdentificacion_Activated(sender As Object, e As EventArgs) Handles Me.Activated
+        'FocusManager.SetFocusedElement(Me, teUsuario)
+        Application.Current.Dispatcher.BeginInvoke(New Action(Function() Me.Focus()), System.Windows.Threading.DispatcherPriority.Send)
+        Application.Current.Dispatcher.BeginInvoke(New Action(Function() teUsuario.Focus()), System.Windows.Threading.DispatcherPriority.Send)
+        'BeginInvoke(New Action(Function() sigo.Focus()), Windows.Threading.DispatcherPriority.ContextIdle)
+    End Sub
+
+    Private Sub dxwIdentificacion_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
+        'FocusManager.SetFocusedElement(Me, teUsuario)
+        teUsuario.Focus()
+        Application.Current.Dispatcher.BeginInvoke(New Action(Function() Me.Focus()), System.Windows.Threading.DispatcherPriority.Send)
+        Application.Current.Dispatcher.BeginInvoke(New Action(Function() teUsuario.Focus()), System.Windows.Threading.DispatcherPriority.Send)
+        Cancelar = True
+        lVersion.Content = Version '"Versión " + My.Application.Info.Version.ToString
+    End Sub
+
+    Private Sub hlRestablecerPass_RequestNavigation(sender As Object, e As HyperlinkEditRequestNavigationEventArgs)
+        Process.Start(e.NavigationUrl)
+    End Sub
+End Class

InicioServicioYClientes/ucBarraGenerica.vb

@@ -0,0 +1,342 @@
+
+Public Class ucBarraGenerica
+    Inherits System.Windows.Forms.UserControl
+    Public Event ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.toolBarButtonClickEventArgs)
+
+#Region " C<>digo generado por el Dise<73>ador de Windows Forms "
+
+    Public Sub New()
+        MyBase.New()
+
+        'El Dise<73>ador de Windows Forms requiere esta llamada.
+        InitializeComponent()
+
+        'Agregar cualquier inicializaci<63>n despu<70>s de la llamada a InitializeComponent()
+
+    End Sub
+
+    'UserControl reemplaza a Dispose para limpiar la lista de componentes.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+            If Not (components Is Nothing) Then
+                components.Dispose()
+            End If
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'Requerido por el Dise<73>ador de Windows Forms
+    Private components As System.ComponentModel.IContainer
+
+    'NOTA: el Dise<73>ador de Windows Forms requiere el siguiente procedimiento
+    'Puede modificarse utilizando el Dise<73>ador de Windows Forms. 
+    'No lo modifique con el editor de c<>digo.
+    Friend WithEvents Botones As System.Windows.Forms.ImageList
+    Public WithEvents tlbSiguiente As System.Windows.Forms.toolBarButton
+    Public WithEvents TlbCrearPdf As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbVisualizarPDF As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbLimpiarPantalla As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbAlmacenar As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbEliminaFicha As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbAyuda As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbEnviar As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbRecibir As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbCancelar As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbGrabar As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbCopiar As System.Windows.Forms.toolBarButton
+    Public WithEvents tlbSalir As System.Windows.Forms.toolBarButton
+    Public WithEvents tbGenerico As System.Windows.Forms.toolBar
+    Public WithEvents tlbRecibirdeDisco As System.Windows.Forms.toolBarButton
+    Friend WithEvents tlbSolicitarCertificado As System.Windows.Forms.toolBarButton
+    Friend WithEvents tlbVerCertificado As System.Windows.Forms.toolBarButton
+    Friend WithEvents tlbCambiarPIN As System.Windows.Forms.toolBarButton
+    Friend WithEvents tlbExportarCertificado As System.Windows.Forms.toolBarButton
+    Friend WithEvents tlbRestaurarCopia As System.Windows.Forms.toolBarButton
+    Friend WithEvents tlbImprimir As System.Windows.Forms.toolBarButton
+    Friend WithEvents tlbRevocarCertificado As System.Windows.Forms.toolBarButton
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim tlbAnterior As System.Windows.Forms.toolBarButton
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucBarraGenerica))
+        Me.tbGenerico = New System.Windows.Forms.toolBar()
+        Me.tlbSiguiente = New System.Windows.Forms.toolBarButton()
+        Me.tlbCrearPdf = New System.Windows.Forms.toolBarButton()
+        Me.tlbVisualizarPDF = New System.Windows.Forms.toolBarButton()
+        Me.tlbAlmacenar = New System.Windows.Forms.toolBarButton()
+        Me.tlbLimpiarPantalla = New System.Windows.Forms.toolBarButton()
+        Me.tlbEliminaFicha = New System.Windows.Forms.toolBarButton()
+        Me.tlbEnviar = New System.Windows.Forms.toolBarButton()
+        Me.tlbGrabar = New System.Windows.Forms.toolBarButton()
+        Me.tlbCopiar = New System.Windows.Forms.toolBarButton()
+        Me.tlbRecibir = New System.Windows.Forms.toolBarButton()
+        Me.tlbRecibirdeDisco = New System.Windows.Forms.toolBarButton()
+        Me.tlbCancelar = New System.Windows.Forms.toolBarButton()
+        Me.tlbAyuda = New System.Windows.Forms.toolBarButton()
+        Me.tlbSolicitarCertificado = New System.Windows.Forms.toolBarButton()
+        Me.tlbVerCertificado = New System.Windows.Forms.toolBarButton()
+        Me.tlbCambiarPIN = New System.Windows.Forms.toolBarButton()
+        Me.tlbExportarCertificado = New System.Windows.Forms.toolBarButton()
+        Me.tlbRevocarCertificado = New System.Windows.Forms.toolBarButton()
+        Me.tlbRestaurarCopia = New System.Windows.Forms.toolBarButton()
+        Me.tlbImprimir = New System.Windows.Forms.toolBarButton()
+        Me.tlbSalir = New System.Windows.Forms.toolBarButton()
+        Me.Botones = New System.Windows.Forms.ImageList(Me.components)
+        tlbAnterior = New System.Windows.Forms.toolBarButton()
+        Me.SuspendLayout()
+        '
+        'tlbAnterior
+        '
+        tlbAnterior.Enabled = False
+        tlbAnterior.ImageIndex = 2
+        tlbAnterior.Name = "tlbAnterior"
+        tlbAnterior.tag = "NOM:ANTERIOR"
+        tlbAnterior.toolTipText = "Anterior (F4)"
+        tlbAnterior.Visible = False
+        '
+        'tbGenerico
+        '
+        Me.tbGenerico.AutoSize = False
+        Me.tbGenerico.Buttons.AddRange(New System.Windows.Forms.toolBarButton() {tlbAnterior, Me.tlbSiguiente, Me.tlbCrearPdf, Me.tlbVisualizarPDF, Me.tlbAlmacenar, Me.tlbLimpiarPantalla, Me.tlbEliminaFicha, Me.tlbEnviar, Me.tlbGrabar, Me.tlbCopiar, Me.tlbRecibir, Me.tlbRecibirdeDisco, Me.tlbCancelar, Me.tlbAyuda, Me.tlbSolicitarCertificado, Me.tlbVerCertificado, Me.tlbCambiarPIN, Me.tlbExportarCertificado, Me.tlbRevocarCertificado, Me.tlbRestaurarCopia, Me.tlbImprimir, Me.tlbSalir})
+        Me.tbGenerico.Dock = System.Windows.Forms.DockStyle.None
+        Me.tbGenerico.DropDownArrows = True
+        Me.tbGenerico.ImageList = Me.Botones
+        Me.tbGenerico.Location = New System.Drawing.Point(0, 0)
+        Me.tbGenerico.Name = "tbGenerico"
+        Me.tbGenerico.ShowToolTips = True
+        Me.tbGenerico.Size = New System.Drawing.Size(765, 44)
+        Me.tbGenerico.tabIndex = 46
+        Me.tbGenerico.tag = "FUN:S"
+        '
+        'tlbSiguiente
+        '
+        Me.tlbSiguiente.Enabled = False
+        Me.tlbSiguiente.ImageIndex = 0
+        Me.tlbSiguiente.Name = "tlbSiguiente"
+        Me.tlbSiguiente.tag = "NOM:SIGUIENTE|FUN:5"
+        Me.tlbSiguiente.toolTipText = "Siguiente (F5)"
+        Me.tlbSiguiente.Visible = False
+        '
+        'TlbCrearPdf
+        '
+        Me.tlbCrearPdf.Enabled = False
+        Me.tlbCrearPdf.ImageIndex = 4
+        Me.tlbCrearPdf.Name = "TlbCrearPdf"
+        Me.tlbCrearPdf.tag = "NOM:CREARPDF"
+        Me.tlbCrearPdf.toolTipText = "Crear PDF"
+        Me.tlbCrearPdf.Visible = False
+        '
+        'tlbVisualizarPDF
+        '
+        Me.tlbVisualizarPDF.Enabled = False
+        Me.tlbVisualizarPDF.ImageIndex = 7
+        Me.tlbVisualizarPDF.Name = "tlbVisualizarPDF"
+        Me.tlbVisualizarPDF.tag = "NOM:VISUALIZARPDF"
+        Me.tlbVisualizarPDF.toolTipText = "Visualizar PDF"
+        Me.tlbVisualizarPDF.Visible = False
+        '
+        'tlbAlmacenar
+        '
+        Me.tlbAlmacenar.Enabled = False
+        Me.tlbAlmacenar.ImageIndex = 5
+        Me.tlbAlmacenar.Name = "tlbAlmacenar"
+        Me.tlbAlmacenar.tag = "NOM:ALMCENAR|FUN:1|IMGN:26|IMGA:5"
+        Me.tlbAlmacenar.toolTipText = "Almacenar (F1)"
+        '
+        'tlbLimpiarPantalla
+        '
+        Me.tlbLimpiarPantalla.Enabled = False
+        Me.tlbLimpiarPantalla.ImageIndex = 13
+        Me.tlbLimpiarPantalla.Name = "tlbLimpiarPantalla"
+        Me.tlbLimpiarPantalla.tag = "NOM:LIMPIARPANTALLA|FUN:6"
+        Me.tlbLimpiarPantalla.toolTipText = "Limpiar Pantalla (F6)"
+        '
+        'tlbEliminaFicha
+        '
+        Me.tlbEliminaFicha.Enabled = False
+        Me.tlbEliminaFicha.ImageIndex = 11
+        Me.tlbEliminaFicha.Name = "tlbEliminaFicha"
+        Me.tlbEliminaFicha.tag = "NOM:ELIMINAFICHA|FUN:7"
+        Me.tlbEliminaFicha.toolTipText = "Elimina Ficha (F7)"
+        '
+        'tlbEnviar
+        '
+        Me.tlbEnviar.Enabled = False
+        Me.tlbEnviar.ImageIndex = 19
+        Me.tlbEnviar.Name = "tlbEnviar"
+        Me.tlbEnviar.tag = "NOM:ENVIAR"
+        Me.tlbEnviar.toolTipText = "Enviar por internet"
+        Me.tlbEnviar.Visible = False
+        '
+        'tlbGrabar
+        '
+        Me.tlbGrabar.Enabled = False
+        Me.tlbGrabar.ImageIndex = 16
+        Me.tlbGrabar.Name = "tlbGrabar"
+        Me.tlbGrabar.tag = "NOM:GRABAR"
+        Me.tlbGrabar.toolTipText = "Grabar en CD / DVD"
+        Me.tlbGrabar.Visible = False
+        '
+        'tlbCopiar
+        '
+        Me.tlbCopiar.Enabled = False
+        Me.tlbCopiar.ImageIndex = 17
+        Me.tlbCopiar.Name = "tlbCopiar"
+        Me.tlbCopiar.tag = "NOM:COPIAR|FUN:4"
+        Me.tlbCopiar.toolTipText = "Copiar (F4)"
+        Me.tlbCopiar.Visible = False
+        '
+        'tlbRecibir
+        '
+        Me.tlbRecibir.Enabled = False
+        Me.tlbRecibir.ImageIndex = 20
+        Me.tlbRecibir.Name = "tlbRecibir"
+        Me.tlbRecibir.tag = "NOM:RECIBIR"
+        Me.tlbRecibir.toolTipText = "Recibir de Internet"
+        Me.tlbRecibir.Visible = False
+        '
+        'tlbRecibirdeDisco
+        '
+        Me.tlbRecibirdeDisco.Enabled = False
+        Me.tlbRecibirdeDisco.ImageIndex = 18
+        Me.tlbRecibirdeDisco.Name = "tlbRecibirdeDisco"
+        Me.tlbRecibirdeDisco.tag = "NOM:RECIBIRDEDISCO"
+        Me.tlbRecibirdeDisco.toolTipText = "Incorporar datos desde disco"
+        Me.tlbRecibirdeDisco.Visible = False
+        '
+        'tlbCancelar
+        '
+        Me.tlbCancelar.Enabled = False
+        Me.tlbCancelar.ImageIndex = 6
+        Me.tlbCancelar.Name = "tlbCancelar"
+        Me.tlbCancelar.tag = "NOM:CANCELAR"
+        Me.tlbCancelar.toolTipText = "Cancelar"
+        Me.tlbCancelar.Visible = False
+        '
+        'tlbAyuda
+        '
+        Me.tlbAyuda.Enabled = False
+        Me.tlbAyuda.ImageIndex = 8
+        Me.tlbAyuda.Name = "tlbAyuda"
+        Me.tlbAyuda.tag = "NOM:AYUDA"
+        Me.tlbAyuda.toolTipText = "Ayuda"
+        Me.tlbAyuda.Visible = False
+        '
+        'tlbSolicitarCertificado
+        '
+        Me.tlbSolicitarCertificado.ImageIndex = 24
+        Me.tlbSolicitarCertificado.Name = "tlbSolicitarCertificado"
+        Me.tlbSolicitarCertificado.tag = "NOM:SolicitarCertificado|FUN:SOLICITARCERTIFICADO|VCO:S"
+        Me.tlbSolicitarCertificado.toolTipText = "Importar un certificado"
+        Me.tlbSolicitarCertificado.Visible = False
+        '
+        'tlbVerCertificado
+        '
+        Me.tlbVerCertificado.ImageIndex = 25
+        Me.tlbVerCertificado.Name = "tlbVerCertificado"
+        Me.tlbVerCertificado.tag = "NOM:VerCertificado"
+        Me.tlbVerCertificado.toolTipText = "Ver Certificado"
+        Me.tlbVerCertificado.Visible = False
+        '
+        'tlbCambiarPIN
+        '
+        Me.tlbCambiarPIN.ImageIndex = 21
+        Me.tlbCambiarPIN.Name = "tlbCambiarPIN"
+        Me.tlbCambiarPIN.tag = "NOM:CambiarPIN"
+        Me.tlbCambiarPIN.toolTipText = "Cambiar PIN del certificado"
+        Me.tlbCambiarPIN.Visible = False
+        '
+        'tlbExportarCertificado
+        '
+        Me.tlbExportarCertificado.ImageIndex = 22
+        Me.tlbExportarCertificado.Name = "tlbExportarCertificado"
+        Me.tlbExportarCertificado.tag = "NOM:ExportarCertificado"
+        Me.tlbExportarCertificado.toolTipText = "Exportar el certificado"
+        Me.tlbExportarCertificado.Visible = False
+        '
+        'tlbRevocarCertificado
+        '
+        Me.tlbRevocarCertificado.ImageIndex = 23
+        Me.tlbRevocarCertificado.Name = "tlbRevocarCertificado"
+        Me.tlbRevocarCertificado.tag = "NOM:RevocarCertificado"
+        Me.tlbRevocarCertificado.toolTipText = "Revocar el certificado"
+        Me.tlbRevocarCertificado.Visible = False
+        '
+        'tlbRestaurarCopia
+        '
+        Me.tlbRestaurarCopia.ImageIndex = 28
+        Me.tlbRestaurarCopia.Name = "tlbRestaurarCopia"
+        Me.tlbRestaurarCopia.tag = "NOM:RestaurarCopia"
+        Me.tlbRestaurarCopia.toolTipText = "Restaurar copia de seguridad"
+        Me.tlbRestaurarCopia.Visible = False
+        '
+        'tlbImprimir
+        '
+        Me.tlbImprimir.ImageIndex = 29
+        Me.tlbImprimir.Name = "tlbImprimir"
+        Me.tlbImprimir.tag = "NOM:IMPRIMIR|FUN:9"
+        Me.tlbImprimir.toolTipText = "Imprimir (F9)"
+        Me.tlbImprimir.Visible = False
+        '
+        'tlbSalir
+        '
+        Me.tlbSalir.Enabled = False
+        Me.tlbSalir.ImageIndex = 3
+        Me.tlbSalir.Name = "tlbSalir"
+        Me.tlbSalir.tag = "NOM:SALIR|FUN:8"
+        Me.tlbSalir.toolTipText = "Salir (F8)"
+        '
+        'Botones
+        '
+        Me.Botones.ImageStream = CType(resources.GetObject("Botones.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.Botones.transparentColor = System.Drawing.Color.Blue
+        Me.Botones.Images.SetKeyName(0, "")
+        Me.Botones.Images.SetKeyName(1, "")
+        Me.Botones.Images.SetKeyName(2, "")
+        Me.Botones.Images.SetKeyName(3, "")
+        Me.Botones.Images.SetKeyName(4, "")
+        Me.Botones.Images.SetKeyName(5, "")
+        Me.Botones.Images.SetKeyName(6, "")
+        Me.Botones.Images.SetKeyName(7, "")
+        Me.Botones.Images.SetKeyName(8, "")
+        Me.Botones.Images.SetKeyName(9, "")
+        Me.Botones.Images.SetKeyName(10, "")
+        Me.Botones.Images.SetKeyName(11, "")
+        Me.Botones.Images.SetKeyName(12, "")
+        Me.Botones.Images.SetKeyName(13, "")
+        Me.Botones.Images.SetKeyName(14, "")
+        Me.Botones.Images.SetKeyName(15, "")
+        Me.Botones.Images.SetKeyName(16, "")
+        Me.Botones.Images.SetKeyName(17, "")
+        Me.Botones.Images.SetKeyName(18, "")
+        Me.Botones.Images.SetKeyName(19, "")
+        Me.Botones.Images.SetKeyName(20, "")
+        Me.Botones.Images.SetKeyName(21, "")
+        Me.Botones.Images.SetKeyName(22, "")
+        Me.Botones.Images.SetKeyName(23, "")
+        Me.Botones.Images.SetKeyName(24, "")
+        Me.Botones.Images.SetKeyName(25, "")
+        Me.Botones.Images.SetKeyName(26, "")
+        Me.Botones.Images.SetKeyName(27, "folder_time.png")
+        Me.Botones.Images.SetKeyName(28, "data_time.png")
+        Me.Botones.Images.SetKeyName(29, "printer.png")
+        '
+        'ucBarraGenerica
+        '
+        Me.BackColor = System.Drawing.SystemColors.Control
+        Me.Controls.Add(Me.tbGenerico)
+        Me.Name = "ucBarraGenerica"
+        Me.Size = New System.Drawing.Size(768, 48)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+#End Region
+
+    Private Sub tbGenerico_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.toolBarButtonClickEventArgs) Handles tbGenerico.ButtonClick
+        Try
+            RaiseEvent ButtonClick(sender, e)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error tbGenerico_ButtonClick")
+        End Try
+    End Sub
+End Class