Agregar archivos de proyecto.

2026-05-14 08:45:02 +02:00
parent 0bf9686303
commit 371937db13
129 changed files with 100769 additions and 0 deletions
--- a/InicioServicioYClientes/ucBarraGenerica.vb
+++ b/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