API tools faq
paste
Advertisement
DestroyWolves

Untitled

DestroyWolves
May 11th, 2023
200
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 58.42 KB | Fixit | 0 0
raw download clone embed print report
  1. Sub Inicializar()
  2.  
  3.         Dim dtTabla As DataTable
  4.         Dim i As Integer
  5.  
  6.         gtSql = "SELECT Descripcion FROM SISMenus" &
  7.                 " WHERE Modulo = '" & gtModulo & "'" &
  8.                 " AND Nombre = '" & mtMenu & "'"
  9.         dtTabla = BD.GetDataTable(gtSql)
  10.         If dtTabla.Rows.Count > 0 Then Me.Tag = dtTabla.Rows(0)!Descripcion
  11.  
  12.         SetToolTipText(btnVerPaciente, "Ver datos del paciente")
  13.         SetToolTipText(btnCambiarPaciente, "Cambiar paciente")
  14.         btnCambiarPaciente.Visible = GetPermiso("")
  15.  
  16.         If GetParametro("HIStapHosNotas", False) <> "" Then tapHosNotas.Text = GetParametro("HIStapHosNotas", False)
  17.  
  18.         If GetParametro("HISPlantillas", False) <> "S" Then
  19.             btnSOAPMotivo.Visible = False
  20.             btnSOAPAnalisis.Visible = False
  21.             btnSOAPConsulta.Visible = False
  22.             btnSOAPPlan.Visible = False
  23.             btntitMotivo.Visible = False
  24.             btntitConsulta.Visible = False
  25.             btntitAnalisisPlan.Visible = False
  26.             btnEnfermeria.Visible = False
  27.             btnProcObservaciones.Visible = False
  28.             panFarmaco.Visible = False
  29.             panFarmaco.Tag = ""
  30.         Else
  31.             panFarmaco.Tag = "OK"
  32.         End If
  33.  
  34.         If GetParametro("HISCopiarPegar", False) = "N" Then
  35.             For i = 0 To panMotivo.Controls.Count - 1
  36.                 If TypeOf panMotivo.Controls(i) Is TextBox Then CType(panMotivo.Controls(i), TextBox).ShortcutsEnabled = False
  37.             Next
  38.             For i = 0 To panSOAP.Controls.Count - 1
  39.                 If TypeOf panSOAP.Controls(i) Is TextBox Then CType(panSOAP.Controls(i), TextBox).ShortcutsEnabled = False
  40.             Next
  41.         End If
  42.  
  43.         ltvArchivos.View = View.Details
  44.         ltvArchivos.SmallImageList = imlIconos
  45.         ltvArchivos.Columns.Add("Archivo", 400)
  46.         ltvArchivos.Columns.Add("Fecha", 120)
  47.  
  48.         EventosPanel(panImprimir)
  49.  
  50.         uscExamenFisico.Inicializar()
  51.         uscEnfExamenFisico.Inicializar()
  52.         uscProExamenFisico.Inicializar()
  53.  
  54.         chkE.ThreeState = True
  55.         chkD.ThreeState = True
  56.  
  57.         dtpFecha.Format = DateTimePickerFormat.Custom
  58.         dtpFecha.CustomFormat = fmtFecha & " " & fmtHora
  59.  
  60.         dtpEgreso.Format = DateTimePickerFormat.Custom
  61.         dtpEgreso.CustomFormat = fmtFecha & " " & fmtHora
  62.         dtpEgreso.ShowCheckBox = True
  63.  
  64.         dtpIngresoH.Format = DateTimePickerFormat.Custom
  65.         dtpIngresoH.CustomFormat = fmtFecha & " " & fmtHora
  66.  
  67.         dtpEgresoH.Format = DateTimePickerFormat.Custom
  68.         dtpEgresoH.CustomFormat = fmtFecha & " " & fmtHora
  69.         dtpEgresoH.ShowCheckBox = True
  70.  
  71.         dtpEnfFecha.Format = DateTimePickerFormat.Custom
  72.         dtpEnfFecha.CustomFormat = fmtFecha & " " & fmtHora
  73.  
  74.         DtpResultadosDesde.Format = DateTimePickerFormat.Custom
  75.         DtpResultadosDesde.CustomFormat = fmtFecha
  76.         DtpResultadosHasta.Format = DateTimePickerFormat.Custom
  77.         DtpResultadosHasta.CustomFormat = fmtFecha
  78.  
  79.         dtpMedDesde.Format = DateTimePickerFormat.Custom
  80.         dtpMedDesde.CustomFormat = fmtFecha
  81.         dtpMedHasta.Format = DateTimePickerFormat.Custom
  82.         dtpMedHasta.CustomFormat = fmtFecha
  83.  
  84.         dtpUniDesde.Format = DateTimePickerFormat.Custom
  85.         dtpUniDesde.CustomFormat = fmtFecha
  86.         dtpUniHasta.Format = DateTimePickerFormat.Custom
  87.         dtpUniHasta.CustomFormat = fmtFecha
  88.  
  89.         dtpInicioIncapacidad.ShowCheckBox = True
  90.         dtpInicioIncapacidad.Format = DateTimePickerFormat.Custom
  91.         dtpInicioIncapacidad.CustomFormat = fmtFecha
  92.  
  93.         dtpEvolucionFinal.Format = DateTimePickerFormat.Custom
  94.         dtpEvolucionFinal.CustomFormat = fmtFecha & " " & fmtHora
  95.  
  96.         mtEquipo = My.Computer.Name
  97.  
  98.         cmbViaIngreso.DropDownStyle = ComboBoxStyle.DropDownList
  99.         gtSql = "SELECT Codigo, Nombre FROM HISRipsTablas" &
  100.                 " WHERE Tipo = 'IngresoHospitalizacion'" &
  101.                 " ORDER BY Nombre"
  102.         EnlazarLista(cmbViaIngreso, gtSql)
  103.  
  104.         cmbCausaExterna.DropDownStyle = ComboBoxStyle.DropDownList
  105.         gtSql = "SELECT Codigo, Nombre FROM HISRipsTablas" &
  106.                 " WHERE Tipo = 'CausaExterna'" &
  107.                 " ORDER BY Nombre"
  108.         EnlazarLista(cmbCausaExterna, gtSql)
  109.         cmbCausaExternaCons.DropDownStyle = ComboBoxStyle.DropDownList
  110.         EnlazarLista(cmbCausaExternaCons, gtSql)
  111.  
  112.         cmbMedicoAtiende.DropDownStyle = ComboBoxStyle.DropDownList
  113.         gtSql = "SELECT VISTerceros.Codigo, VISTerceros.Nombre" &
  114.                 " FROM HISMedicos INNER JOIN VISTerceros ON HISMedicos.Tercero = VISTerceros.Codigo" &
  115.                 " ORDER BY VISTerceros.Nombre"
  116.         EnlazarLista(cmbMedicoAtiende, gtSql)
  117.  
  118.         cmbCausaEgreso.DropDownStyle = ComboBoxStyle.DropDownList
  119.         GetLista("HISCausaEgreso", cmbCausaEgreso, GetPermiso(""))
  120.         cmbCausaEgresoConsulta.DropDownStyle = ComboBoxStyle.DropDownList
  121.         GetLista("HISCausaEgreso", cmbCausaEgresoConsulta, GetPermiso(""))
  122.  
  123.         cmbRiesgo.DropDownStyle = ComboBoxStyle.DropDownList
  124.         GetLista("HISRiesgo", cmbRiesgo, GetPermiso(""))
  125.         cmbRiesgo.Visible = (cmbRiesgo.Items.Count > 0)
  126.         lbltitRiesgo.Visible = (cmbRiesgo.Items.Count > 0)
  127.  
  128.         cmbTipoIdenContacto.DropDownWidth = cmbTipoIdenContacto.Width + txtNumeroIdenContacto.Width
  129.         cmbTipoIdenContacto.DropDownStyle = ComboBoxStyle.DropDownList
  130.         EnlazarLista(cmbTipoIdenContacto, "SELECT Codigo, Codigo + ' - ' + Nombre AS Descripcion FROM SISTiposIdentificacion ORDER BY Codigo")
  131.  
  132.         cmbTipoIncapacidad.DropDownStyle = ComboBoxStyle.DropDownList
  133.         GetLista("HISTipoIncapacidad", cmbTipoIncapacidad)
  134.  
  135.         cmbRemisionInstitucion.AutoCompleteMode = AutoCompleteMode.SuggestAppend
  136.         cmbRemisionInstitucion.AutoCompleteSource = AutoCompleteSource.ListItems
  137.         cmbRemisionInstitucion2.AutoCompleteMode = AutoCompleteMode.SuggestAppend
  138.         cmbRemisionInstitucion2.AutoCompleteSource = AutoCompleteSource.ListItems
  139.         cmbRemisionInstitucion3.AutoCompleteMode = AutoCompleteMode.SuggestAppend
  140.         cmbRemisionInstitucion3.AutoCompleteSource = AutoCompleteSource.ListItems
  141.         cmbRemisionInstitucion4.AutoCompleteMode = AutoCompleteMode.SuggestAppend
  142.         cmbRemisionInstitucion4.AutoCompleteSource = AutoCompleteSource.ListItems
  143.         dtTabla = BD.GetDataTable("SELECT Valor FROM SISListas WHERE Categoria = 'HISEspecialidad' ORDER BY Valor")
  144.         For i = 0 To dtTabla.Rows.Count - 1
  145.             cmbRemisionInstitucion.Items.Add(CStr(dtTabla.Rows(i)!Valor))
  146.             cmbRemisionInstitucion2.Items.Add(CStr(dtTabla.Rows(i)!Valor))
  147.             cmbRemisionInstitucion3.Items.Add(CStr(dtTabla.Rows(i)!Valor))
  148.             cmbRemisionInstitucion4.Items.Add(CStr(dtTabla.Rows(i)!Valor))
  149.         Next
  150.  
  151.         cmbMotivoNota.AutoCompleteMode = AutoCompleteMode.SuggestAppend
  152.         cmbMotivoNota.AutoCompleteSource = AutoCompleteSource.ListItems
  153.         dtTabla = BD.GetDataTable("SELECT Valor FROM SISListas WHERE Categoria = 'HISMotivoNota' ORDER BY Valor")
  154.         For i = 0 To dtTabla.Rows.Count - 1
  155.             cmbMotivoNota.Items.Add(CStr(dtTabla.Rows(i)!Valor))
  156.         Next
  157.  
  158.         'tabHospitalizacion.TabPages.Remove(tapAcomp)
  159.         If GetParametro("HIStitExamenes", False) <> "" Then tapExamenes.Text = GetParametro("HIStitExamenes", False)
  160.         tabConsulta.TabPages.Remove(tapExamenFisico)
  161.  
  162.         If mtMenu.StartsWith("mnuSISHospital") = True Then
  163.             gtSql = "SELECT Codigo, CodigoRIPS + ' - ' + Nombre AS Descripcion FROM HISCups WHERE CodigoRIPS IN (" & GetParametro("HISTipoHospitalaria", False) & ") ORDER BY CodigoRIPS"
  164.             txtTipoConsulta.Tag = gtSql
  165.  
  166.             gtSql = "SELECT Codigo, CodigoRIPS + ' - ' + Nombre AS Descripcion FROM HISCups WHERE CodigoRIPS IN (" & GetParametro("HISTipoHabitacion", False) & ") ORDER BY CodigoRIPS"
  167.             txtTipoHabitacion.SQL = gtSql
  168.  
  169.             cmbArea.DropDownStyle = ComboBoxStyle.DropDownList
  170.             GetLista("HISHospArea", cmbArea, GetPermiso(""))
  171.  
  172.             lbltitConsulta.Text = "Evolución"
  173.             chkExamenes.Visible = False
  174.             chkEgreso.Visible = True
  175.             lbltitProximaCita.Visible = False
  176.             txtProximaCita.Visible = False
  177.             btnCita.Visible = False
  178.             tabConsulta.TabPages.Remove(tapUrgEvolucion)
  179.             tabConsulta.TabPages.Remove(tapAutorizacion)
  180.             tabConsulta.TabPages.Remove(tapAIU)
  181.         ElseIf mtMenu = "mnuSISUrgencias" Then
  182.             gtSql = "SELECT Codigo, CodigoRIPS + ' - ' + Nombre AS Descripcion FROM HISCups WHERE CodigoRIPS IN (" & GetParametro("HISTipoUrgencia", False) & ") ORDER BY CodigoRIPS"
  183.             txtTipoConsulta.Tag = gtSql
  184.  
  185.             chkGrupoI.Visible = False
  186.             chkExamenes.Visible = False
  187.             tabDatos.TabPages.Remove(tapHospitalizacion)
  188.             tabDatos.TabPages.Remove(tapEnfermeria)
  189.             tabDatos.TabPages.Remove(tapProcedimientos)
  190.             tabConsulta.TabPages.Remove(tapResumen)
  191.         Else
  192.             gtSql = "SELECT Codigo, CodigoRIPS + ' - ' + Nombre AS Descripcion FROM HISCups WHERE CodigoRIPS IN (" & GetParametro("HISTipoConsulta", False) & ") ORDER BY CodigoRIPS"
  193.             txtTipoConsulta.Tag = gtSql
  194.  
  195.             chkGrupoI.Visible = False
  196.             tabDatos.TabPages.Remove(tapHospitalizacion)
  197.             tabDatos.TabPages.Remove(tapEnfermeria)
  198.             tabDatos.TabPages.Remove(tapProcedimientos)
  199.             tabConsulta.TabPages.Remove(tapResumen)
  200.             tabConsulta.TabPages.Remove(tapAIU)
  201.         End If
  202.         tabConsulta.TabPages.Remove(tapEgreso)
  203.  
  204.         tabConsulta.TabPages.Remove(tapUrgEvolucion)
  205.  
  206.         panContacto.Visible = (GetParametro("HISContacto", False) <> "")
  207.  
  208.         If mtTipo = "Grupal" Then tabMotivo.TabPages.Remove(tapConsAsistentes)
  209.  
  210.         gtSql = "SELECT Codigo, CodigoRIPS + ' - ' + Nombre AS Descripcion FROM HISCups ORDER BY CodigoRIPS"
  211.         txtTipoConsulta.SQL = gtSql
  212.  
  213.         cmbTipoDiagnostico.DropDownStyle = ComboBoxStyle.DropDownList
  214.         gtSql = "SELECT Codigo, Codigo + ' - ' + Nombre AS Descripcion FROM HISRipsTablas" &
  215.                 " WHERE Tipo = 'TipoDiagnostico'" &
  216.                 " ORDER BY Codigo + ' - ' + Nombre"
  217.         EnlazarLista(cmbTipoDiagnostico, gtSql)
  218.  
  219.         cmbDestinoEgreso.DropDownStyle = ComboBoxStyle.DropDownList
  220.         gtSql = "SELECT Codigo, Nombre FROM HISRipsTablas" &
  221.                 " WHERE Tipo = 'SalidaUrgencias'" &
  222.                 " ORDER BY Nombre"
  223.         EnlazarLista(cmbDestinoEgreso, gtSql)
  224.  
  225.         cmbPertinente.DropDownStyle = ComboBoxStyle.DropDownList
  226.         GetLista("HISPertinenteNO", cmbPertinente, GetPermiso(""))
  227.  
  228.         cmbPresentacion.Sorted = True
  229.         cmbPresentacion.AutoCompleteMode = AutoCompleteMode.SuggestAppend
  230.         cmbPresentacion.AutoCompleteSource = AutoCompleteSource.ListItems
  231.         dtTabla = BD.GetDataTable("SELECT DISTINCT Presentacion FROM INVElementos WHERE Presentacion IS NOT NULL ORDER BY Presentacion")
  232.         For i = 0 To dtTabla.Rows.Count - 1
  233.             cmbPresentacion.Items.Add(CStr(dtTabla.Rows(i)!Presentacion))
  234.         Next
  235.  
  236.         cmbConcentracion.Sorted = True
  237.         cmbConcentracion.AutoCompleteMode = AutoCompleteMode.SuggestAppend
  238.         cmbConcentracion.AutoCompleteSource = AutoCompleteSource.ListItems
  239.         dtTabla = BD.GetDataTable("SELECT DISTINCT Concentracion FROM INVElementos WHERE Concentracion IS NOT NULL ORDER BY Concentracion")
  240.         For i = 0 To dtTabla.Rows.Count - 1
  241.             cmbConcentracion.Items.Add(CStr(dtTabla.Rows(i)!Concentracion))
  242.         Next
  243.  
  244.         'Procedimientos
  245.         trvProcedimientos.ImageList = imlIconos
  246.         trvProcedimientos.HideSelection = False
  247.         dtpProcFecha.Format = DateTimePickerFormat.Custom
  248.         dtpProcFecha.CustomFormat = fmtFecha & " " & fmtHora
  249.  
  250.         gtSql = "SELECT Codigo, Codigo + ' - ' + Nombre AS Descripcion FROM HISRipsTablas" &
  251.                 " WHERE Tipo = 'AmbitoProcedimiento'" &
  252.                 " ORDER BY Codigo + ' - ' + Nombre"
  253.         cmbProcAmbito.DropDownStyle = ComboBoxStyle.DropDownList
  254.         EnlazarLista(cmbProcAmbito, gtSql)
  255.  
  256.         gtSql = "SELECT Codigo, Codigo + ' - ' + Nombre AS Descripcion FROM HISRipsTablas" &
  257.                 " WHERE Tipo = 'FinalidadProcedimiento'" &
  258.                 " ORDER BY Codigo + ' - ' + Nombre"
  259.         cmbProcFinalidad.DropDownStyle = ComboBoxStyle.DropDownList
  260.         EnlazarLista(cmbProcFinalidad, gtSql)
  261.  
  262.         Dim chkColumna As New DataGridViewCheckBoxColumn
  263.         Dim txtColumna As DataGridViewTextBoxColumn
  264.         Dim cmbColumna As New DataGridViewComboBoxColumn
  265.  
  266.         'Medicos
  267.         panMedicos.Visible = False
  268.         EventosPanel(panMedicos)
  269.         FormatDataGrid(dtgMedicos, AccionDataGrid.Detalle)
  270.  
  271.         txtColumna = New DataGridViewTextBoxColumn
  272.         txtColumna.Name = "Nombre"
  273.         txtColumna.DataPropertyName = "Nombre"
  274.         txtColumna.Width = dtgMedicos.Width - 80
  275.         txtColumna.ReadOnly = True
  276.         txtColumna.Tag = "R"
  277.         txtColumna.CellTemplate.Style.NullValue = "F4 Lista"
  278.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  279.         dtgMedicos.Columns.Add(txtColumna)
  280.  
  281.         'Antecedentes
  282.         FormatDataGrid(dtgAntecedentes, AccionDataGrid.Detalle)
  283.         dtgAntecedentes.AllowUserToAddRows = False
  284.         dtgAntecedentes.AllowUserToDeleteRows = False
  285.         dtgAntecedentes.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
  286.  
  287.         txtColumna = New DataGridViewTextBoxColumn
  288.         txtColumna.Name = "Antecedente"
  289.         txtColumna.DataPropertyName = "Antecedente"
  290.         'txtColumna.CellTemplate.Style.Font = New Font(dtgAntecedentes.Font, FontStyle.Bold)
  291.         txtColumna.Width = 240
  292.         txtColumna.ReadOnly = True
  293.         txtColumna.Tag = "R"
  294.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  295.         dtgAntecedentes.Columns.Add(txtColumna)
  296.  
  297.         chkColumna = New DataGridViewCheckBoxColumn
  298.         chkColumna.Name = "Personal"
  299.         chkColumna.DataPropertyName = "Personal"
  300.         chkColumna.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  301.         chkColumna.Width = 50
  302.         chkColumna.ThreeState = False
  303.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  304.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  305.         dtgAntecedentes.Columns.Add(chkColumna)
  306.  
  307.         chkColumna = New DataGridViewCheckBoxColumn
  308.         chkColumna.Name = "Familiar"
  309.         chkColumna.DataPropertyName = "Familiar"
  310.         chkColumna.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  311.         chkColumna.Width = 50
  312.         chkColumna.ThreeState = False
  313.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  314.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  315.         dtgAntecedentes.Columns.Add(chkColumna)
  316.  
  317.         txtColumna = New DataGridViewTextBoxColumn
  318.         txtColumna.Name = "Observaciones"
  319.         txtColumna.DataPropertyName = "Observaciones"
  320.         txtColumna.Width = 400
  321.         txtColumna.MaxInputLength = 500
  322.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  323.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  324.         dtgAntecedentes.Columns.Add(txtColumna)
  325.  
  326.         'Atenciones
  327.         FormatDataGrid(dtgAtenciones, AccionDataGrid.Consulta)
  328.         dtgAtenciones.Tag = ""
  329.         dtgAtenciones.ShowCellToolTips = False
  330.         dtgAtenciones.SelectionMode = DataGridViewSelectionMode.CellSelect
  331.  
  332.         txtColumna = New DataGridViewTextBoxColumn
  333.         txtColumna.Name = "Tipo"
  334.         txtColumna.DataPropertyName = "Tipo"
  335.         txtColumna.HeaderText = ""
  336.         txtColumna.Width = 24
  337.         txtColumna.SortMode = DataGridViewColumnSortMode.Programmatic
  338.         txtColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  339.         dtgAtenciones.Columns.Add(txtColumna)
  340.  
  341.         txtColumna = New DataGridViewTextBoxColumn
  342.         txtColumna.Name = "Fecha"
  343.         txtColumna.DataPropertyName = "Fecha"
  344.         txtColumna.CellTemplate.Style.Format = fmtFecha & " " & fmtHora
  345.         txtColumna.Width = 130
  346.         txtColumna.SortMode = DataGridViewColumnSortMode.Programmatic
  347.         dtgAtenciones.Columns.Add(txtColumna)
  348.  
  349.         Dim lnkColumna As New DataGridViewLinkColumn
  350.         lnkColumna.Name = "Ver"
  351.         lnkColumna.DataPropertyName = "Ver"
  352.         lnkColumna.HeaderText = ""
  353.         lnkColumna.Width = 24
  354.         lnkColumna.LinkBehavior = LinkBehavior.NeverUnderline
  355.         lnkColumna.CellTemplate.Style.Font = New Font(dtgAtenciones.Font, FontStyle.Bold)
  356.         dtgAtenciones.Columns.Add(lnkColumna)
  357.  
  358.         txtColumna = New DataGridViewTextBoxColumn
  359.         txtColumna.Name = "Especialidad"
  360.         txtColumna.DataPropertyName = "Especialidad"
  361.         txtColumna.Width = 120
  362.         txtColumna.SortMode = DataGridViewColumnSortMode.Programmatic
  363.         dtgAtenciones.Columns.Add(txtColumna)
  364.  
  365.         'Resultados
  366.         EventosPanel(panResultadosOld)
  367.  
  368.         FormatDataGrid(dtgResultadosNuevo, AccionDataGrid.Detalle)
  369.         dtgResultadosNuevo.AllowUserToAddRows = False
  370.         dtgResultadosNuevo.AllowUserToDeleteRows = False
  371.         dtgResultadosNuevo.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
  372.  
  373.         txtColumna = New DataGridViewTextBoxColumn
  374.         txtColumna.Name = "Examen"
  375.         txtColumna.DataPropertyName = "Examen"
  376.         txtColumna.HeaderText = ""
  377.         txtColumna.Width = 160
  378.         txtColumna.ReadOnly = True
  379.         txtColumna.Tag = "R"
  380.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  381.         txtColumna.SortMode = DataGridViewColumnSortMode.Programmatic
  382.         dtgResultadosNuevo.Columns.Add(txtColumna)
  383.  
  384.         txtColumna = New DataGridViewTextBoxColumn
  385.         txtColumna.Name = "FechaExamen"
  386.         txtColumna.DataPropertyName = "FechaExamen"
  387.         txtColumna.HeaderText = "Fecha Toma"
  388.         txtColumna.Width = 100
  389.         txtColumna.CellTemplate.Style.Format = fmtFecha
  390.         txtColumna.SortMode = DataGridViewColumnSortMode.Programmatic
  391.         dtgResultadosNuevo.Columns.Add(txtColumna)
  392.  
  393.         txtColumna = New DataGridViewTextBoxColumn
  394.         txtColumna.Name = "Valor"
  395.         txtColumna.DataPropertyName = "Valor"
  396.         txtColumna.HeaderText = ""
  397.         txtColumna.Width = 160
  398.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  399.         txtColumna.SortMode = DataGridViewColumnSortMode.Programmatic
  400.         dtgResultadosNuevo.Columns.Add(txtColumna)
  401.  
  402.         'Tratamiento
  403.         EventosPanel(panGenerico)
  404.  
  405.         cmbDia.DropDownStyle = ComboBoxStyle.DropDownList
  406.         ConfiguraTratamiento(dtgTratamiento, mtMenu.StartsWith("mnuSISHospital"))
  407.         'dtgTratamiento.AllowUserToDeleteRows = False
  408.         ConfiguraTratamiento(dtgSuministros, False)
  409.         dtgSuministros.Columns("Controlado").Visible = False
  410.         dtgSuministros.Columns("M").Visible = False
  411.         dtgSuministros.Columns("T").Visible = False
  412.         dtgSuministros.Columns("N").Visible = False
  413.         dtgSuministros.Columns("Via").Visible = False
  414.         ConfiguraTratamiento(dtgProTratamiento, mtMenu.StartsWith("mnuSISHospital"))
  415.         ConfiguraTratamiento(dtgEgrTratamiento, False)
  416.  
  417.         FormatDataGrid(dtgControlFarmaco, AccionDataGrid.Detalle)
  418.  
  419.         txtColumna = New DataGridViewTextBoxColumn
  420.         txtColumna.Name = "NomGenerico"
  421.         txtColumna.DataPropertyName = "NomGenerico"
  422.         txtColumna.HeaderText = "Medicamento"
  423.         txtColumna.Width = 300
  424.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  425.         dtgControlFarmaco.Columns.Add(txtColumna)
  426.  
  427.         chkColumna = New DataGridViewCheckBoxColumn
  428.         chkColumna.Name = "Tratamiento"
  429.         chkColumna.DataPropertyName = "Tratamiento"
  430.         chkColumna.HeaderText = "Incluido en Tratamiento"
  431.         chkColumna.Width = 80
  432.         dtgControlFarmaco.Columns.Add(chkColumna)
  433.  
  434.         txtColumna = New DataGridViewTextBoxColumn
  435.         txtColumna.Name = "Dosis"
  436.         txtColumna.DataPropertyName = "Dosis"
  437.         txtColumna.Width = 100
  438.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  439.         dtgControlFarmaco.Columns.Add(txtColumna)
  440.  
  441.         txtColumna = New DataGridViewTextBoxColumn
  442.         txtColumna.Name = "Duracion"
  443.         txtColumna.DataPropertyName = "Duracion"
  444.         txtColumna.HeaderText = "Duración (Dias)"
  445.         txtColumna.Width = 120
  446.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  447.         dtgControlFarmaco.Columns.Add(txtColumna)
  448.  
  449.         txtColumna = New DataGridViewTextBoxColumn
  450.         txtColumna.Name = "FechaTerminacion"
  451.         txtColumna.DataPropertyName = "FechaTerminacion"
  452.         txtColumna.HeaderText = "Fecha Terminación"
  453.         txtColumna.Width = 140
  454.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  455.         txtColumna.CellTemplate.Style.Format = fmtFecha
  456.         dtgControlFarmaco.Columns.Add(txtColumna)
  457.  
  458.         cmbColumna = New DataGridViewComboBoxColumn
  459.         EnlazarLista(cmbColumna, "Buena,Regular,Mala")
  460.         cmbColumna.Name = "Aceptabilidad"
  461.         cmbColumna.DataPropertyName = "Aceptabilidad"
  462.         cmbColumna.Width = 120
  463.         cmbColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  464.         dtgControlFarmaco.Columns.Add(cmbColumna)
  465.  
  466.         'Examen Fisico
  467.         FormatDataGrid(dtgRevisionSistemas, AccionDataGrid.Detalle)
  468.         dtgRevisionSistemas.AllowUserToAddRows = False
  469.         dtgRevisionSistemas.AllowUserToDeleteRows = False
  470.         dtgRevisionSistemas.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
  471.  
  472.         txtColumna = New DataGridViewTextBoxColumn
  473.         txtColumna.Name = "Sistema"
  474.         txtColumna.DataPropertyName = "Sistema"
  475.         txtColumna.Width = 240
  476.         txtColumna.ReadOnly = True
  477.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  478.         dtgRevisionSistemas.Columns.Add(txtColumna)
  479.  
  480.         chkColumna = New DataGridViewCheckBoxColumn
  481.         chkColumna.Name = "Normal"
  482.         chkColumna.DataPropertyName = "Normal"
  483.         chkColumna.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  484.         chkColumna.Width = 50
  485.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  486.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  487.         dtgRevisionSistemas.Columns.Add(chkColumna)
  488.  
  489.         chkColumna = New DataGridViewCheckBoxColumn
  490.         chkColumna.Name = "Anormal"
  491.         chkColumna.DataPropertyName = "Anormal"
  492.         chkColumna.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  493.         chkColumna.Width = 50
  494.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  495.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  496.         dtgRevisionSistemas.Columns.Add(chkColumna)
  497.  
  498.         txtColumna = New DataGridViewTextBoxColumn
  499.         txtColumna.Name = "Observaciones"
  500.         txtColumna.DataPropertyName = "Observaciones"
  501.         txtColumna.Width = 400
  502.         txtColumna.MaxInputLength = 255
  503.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  504.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  505.         dtgRevisionSistemas.Columns.Add(txtColumna)
  506.  
  507.         'Diagnosticos
  508.         dtTabla = New DataTable
  509.         dtTabla.Columns.Add("Diagnostico", GetType(Integer))
  510.         dtTabla.Columns.Add("Codigo", GetType(String))
  511.         dtTabla.Columns.Add("NomDiagnostico", GetType(String))
  512.         dtTabla.Columns.Add("DesDiagnostico", GetType(String))
  513.  
  514.         FormatDataGrid(dtgDiagnosticos, AccionDataGrid.Detalle)
  515.         dtgDiagnosticos.DataSource = dtTabla.DefaultView
  516.  
  517.         txtColumna = New DataGridViewTextBoxColumn
  518.         txtColumna.Name = "Codigo"
  519.         txtColumna.DataPropertyName = "Codigo"
  520.         txtColumna.HeaderText = "Código"
  521.         txtColumna.Width = 100
  522.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  523.         dtgDiagnosticos.Columns.Add(txtColumna)
  524.  
  525.         txtColumna = New DataGridViewTextBoxColumn
  526.         txtColumna.Name = "NomDiagnostico"
  527.         txtColumna.DataPropertyName = "NomDiagnostico"
  528.         txtColumna.HeaderText = "Diagnóstico"
  529.         txtColumna.ReadOnly = True
  530.         txtColumna.Tag = "R"
  531.         txtColumna.Width = dtgDiagnosticos.Width - 260
  532.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  533.         txtColumna.CellTemplate.Style.NullValue = "<F4 Lista>"
  534.         dtgDiagnosticos.Columns.Add(txtColumna)
  535.  
  536.         txtColumna = New DataGridViewTextBoxColumn
  537.         txtColumna.Name = "DesDiagnostico"
  538.         txtColumna.DataPropertyName = "DesDiagnostico"
  539.         txtColumna.HeaderText = "Observaciones"
  540.         txtColumna.Width = 200
  541.         txtColumna.MaxInputLength = 50
  542.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  543.         dtgDiagnosticos.Columns.Add(txtColumna)
  544.  
  545.         'Examenes
  546.         FormatDataGrid(dtgExamenes, AccionDataGrid.Detalle)
  547.         dtgExamenes.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
  548.  
  549.         chkColumna = New DataGridViewCheckBoxColumn
  550.         chkColumna.Name = "Imprimir"
  551.         chkColumna.DataPropertyName = "Imprimir"
  552.         chkColumna.HeaderText = "Impr."
  553.         chkColumna.Width = 30
  554.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  555.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  556.         dtgExamenes.Columns.Add(chkColumna)
  557.  
  558.         txtColumna = New DataGridViewTextBoxColumn
  559.         txtColumna.Name = "Codigo"
  560.         txtColumna.DataPropertyName = "Codigo"
  561.         txtColumna.HeaderText = "Código"
  562.         txtColumna.Width = 80
  563.         txtColumna.ReadOnly = True
  564.         txtColumna.Tag = "R"
  565.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  566.         dtgExamenes.Columns.Add(txtColumna)
  567.  
  568.         txtColumna = New DataGridViewTextBoxColumn
  569.         txtColumna.Name = "NomLaboratorio"
  570.         txtColumna.DataPropertyName = "NomLaboratorio"
  571.         txtColumna.HeaderText = "Examen/Procedimiento"
  572.         txtColumna.ReadOnly = True
  573.         txtColumna.Tag = "R"
  574.         txtColumna.Width = 300
  575.         txtColumna.CellTemplate.Style.NullValue = "<F4 Lista>"
  576.         gtSql = "SELECT Laboratorio FROM HISLaboratorio" &
  577.                 " WHERE Paciente = 0"
  578.         If BD.GetDataTable(gtSql).Rows.Count > 0 Then txtColumna.CellTemplate.Style.NullValue = "<F4 Lista>/<F7 Plantilla>"
  579.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  580.         dtgExamenes.Columns.Add(txtColumna)
  581.  
  582.         txtColumna = New DataGridViewTextBoxColumn
  583.         txtColumna.Name = "Cantidad"
  584.         txtColumna.DataPropertyName = "Cantidad"
  585.         txtColumna.Width = 60
  586.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  587.         dtgExamenes.Columns.Add(txtColumna)
  588.  
  589.         txtColumna = New DataGridViewTextBoxColumn
  590.         txtColumna.Name = "Descripcion"
  591.         txtColumna.DataPropertyName = "Descripcion"
  592.         txtColumna.HeaderText = "Observaciones"
  593.         txtColumna.Width = 300
  594.         txtColumna.MaxInputLength = 255
  595.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  596.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  597.         dtgExamenes.Columns.Add(txtColumna)
  598.  
  599.         chkColumna = New DataGridViewCheckBoxColumn
  600.         chkColumna.Name = "NoPos"
  601.         chkColumna.DataPropertyName = "NoPos"
  602.         chkColumna.HeaderText = "No POS"
  603.         chkColumna.Width = 40
  604.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  605.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  606.         dtgExamenes.Columns.Add(chkColumna)
  607.  
  608.         lnkColumna = New DataGridViewLinkColumn
  609.         lnkColumna.Name = "FormatoNoPos"
  610.         lnkColumna.DataPropertyName = "FormatoNoPos"
  611.         lnkColumna.HeaderText = ""
  612.         lnkColumna.Width = 60
  613.         lnkColumna.LinkBehavior = LinkBehavior.HoverUnderline
  614.         lnkColumna.TrackVisitedState = False
  615.         dtgExamenes.Columns.Add(lnkColumna)
  616.  
  617.         'Evolucion
  618.         dtTabla = New DataTable
  619.         dtTabla.Columns.Add("Fecha", GetType(Date))
  620.         dtTabla.Columns.Add("Observaciones", GetType(String))
  621.         FormatDataGrid(dtgUrgEvolucion, AccionDataGrid.Detalle)
  622.         dtgUrgEvolucion.RowTemplate.Height = 160
  623.  
  624.         dtgUrgEvolucion.DataSource = dtTabla.DefaultView
  625.  
  626.         txtColumna = New DataGridViewTextBoxColumn
  627.         txtColumna.Name = "Fecha"
  628.         txtColumna.DataPropertyName = "Fecha"
  629.         txtColumna.HeaderText = "Fecha/Hora"
  630.         txtColumna.Width = 130
  631.         txtColumna.CellTemplate.Style.Format = fmtFecha & " " & fmtHora
  632.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  633.         dtgUrgEvolucion.Columns.Add(txtColumna)
  634.  
  635.         txtColumna = New DataGridViewTextBoxColumn
  636.         txtColumna.Name = "Observaciones"
  637.         txtColumna.DataPropertyName = "Observaciones"
  638.         txtColumna.Width = 500
  639.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  640.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  641.         dtgUrgEvolucion.Columns.Add(txtColumna)
  642.  
  643.         'Enfermeria
  644.         FormatDataGrid(dtgEnfermeria, AccionDataGrid.Consulta)
  645.         dtgEnfermeria.Tag = ""
  646.  
  647.         txtColumna = New DataGridViewTextBoxColumn
  648.         txtColumna.Name = "Fecha"
  649.         txtColumna.DataPropertyName = "Fecha"
  650.         txtColumna.CellTemplate.Style.Format = fmtFecha & " " & fmtHora
  651.         txtColumna.Width = dtgEnfermeria.Width - 20
  652.         txtColumna.SortMode = DataGridViewColumnSortMode.Programmatic
  653.         dtgEnfermeria.Columns.Add(txtColumna)
  654.  
  655.         'Toxicologicos
  656.         FormatDataGrid(dtgToxicologico, AccionDataGrid.Detalle)
  657.         dtgToxicologico.AllowUserToAddRows = False
  658.         dtgToxicologico.AllowUserToDeleteRows = False
  659.         dtgToxicologico.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
  660.  
  661.         txtColumna = New DataGridViewTextBoxColumn
  662.         txtColumna.Name = "Toxico"
  663.         txtColumna.DataPropertyName = "Toxico"
  664.         txtColumna.Width = 240
  665.         txtColumna.ReadOnly = True
  666.         txtColumna.Tag = "R"
  667.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  668.         dtgToxicologico.Columns.Add(txtColumna)
  669.  
  670.         chkColumna = New DataGridViewCheckBoxColumn
  671.         chkColumna.Name = "Positivo"
  672.         chkColumna.DataPropertyName = "Positivo"
  673.         chkColumna.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  674.         chkColumna.Width = 50
  675.         chkColumna.ThreeState = False
  676.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  677.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  678.         dtgToxicologico.Columns.Add(chkColumna)
  679.  
  680.         chkColumna = New DataGridViewCheckBoxColumn
  681.         chkColumna.Name = "Negativo"
  682.         chkColumna.DataPropertyName = "Negativo"
  683.         chkColumna.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  684.         chkColumna.Width = 50
  685.         chkColumna.ThreeState = False
  686.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  687.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  688.         dtgToxicologico.Columns.Add(chkColumna)
  689.  
  690.         chkColumna = New DataGridViewCheckBoxColumn
  691.         chkColumna.Name = "NA"
  692.         chkColumna.DataPropertyName = "NA"
  693.         chkColumna.HeaderText = "N/A"
  694.         chkColumna.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  695.         chkColumna.Width = 50
  696.         chkColumna.ThreeState = False
  697.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  698.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  699.         dtgToxicologico.Columns.Add(chkColumna)
  700.  
  701.         txtColumna = New DataGridViewTextBoxColumn
  702.         txtColumna.Name = "Observaciones"
  703.         txtColumna.DataPropertyName = "Observaciones"
  704.         txtColumna.Width = 400
  705.         txtColumna.MaxInputLength = 500
  706.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  707.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  708.         dtgToxicologico.Columns.Add(txtColumna)
  709.  
  710.         'Toxicologicos
  711.         FormatDataGrid(dtgProcEspeciales, AccionDataGrid.Detalle)
  712.         dtgProcEspeciales.AllowUserToAddRows = False
  713.         dtgProcEspeciales.AllowUserToDeleteRows = False
  714.         dtgProcEspeciales.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
  715.  
  716.         txtColumna = New DataGridViewTextBoxColumn
  717.         txtColumna.Name = "Procedimiento"
  718.         txtColumna.DataPropertyName = "Procedimiento"
  719.         txtColumna.Width = 240
  720.         txtColumna.ReadOnly = True
  721.         txtColumna.Tag = "R"
  722.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  723.         dtgProcEspeciales.Columns.Add(txtColumna)
  724.  
  725.         chkColumna = New DataGridViewCheckBoxColumn
  726.         chkColumna.Name = "SI"
  727.         chkColumna.DataPropertyName = "SI"
  728.         chkColumna.HeaderText = ""
  729.         chkColumna.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  730.         chkColumna.Width = 20
  731.         chkColumna.ThreeState = False
  732.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  733.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  734.         dtgProcEspeciales.Columns.Add(chkColumna)
  735.  
  736.         txtColumna = New DataGridViewTextBoxColumn
  737.         txtColumna.Name = "Observaciones"
  738.         txtColumna.DataPropertyName = "Observaciones"
  739.         txtColumna.Width = 400
  740.         txtColumna.MaxInputLength = 500
  741.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  742.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  743.         dtgProcEspeciales.Columns.Add(txtColumna)
  744.  
  745.         FormatDataGrid(dtgUnidosis, AccionDataGrid.Detalle)
  746.         dtgUnidosis.AllowUserToAddRows = False
  747.         dtgUnidosis.AllowUserToDeleteRows = False
  748.  
  749.         dtpFechaEvento.ShowCheckBox = True
  750.         dtpFechaEvento.Format = DateTimePickerFormat.Custom
  751.         dtpFechaEvento.CustomFormat = fmtFecha
  752.  
  753.         cmbEvento.DropDownStyle = ComboBoxStyle.DropDownList
  754.         EnlazarLista(cmbEvento, "INCIDENTE,EVENTO ADVERSO,COMPLICACION")
  755.  
  756.         FormatDataGrid(dtgTraidosPaciente, AccionDataGrid.Detalle)
  757.  
  758.         txtColumna = New DataGridViewTextBoxColumn
  759.         txtColumna.Name = "NomElemento"
  760.         txtColumna.DataPropertyName = "NomElemento"
  761.         txtColumna.HeaderText = "Medicamento"
  762.         txtColumna.Width = 200
  763.         txtColumna.CellTemplate.Style.NullValue = "<F4 Lista>"
  764.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  765.         dtgTraidosPaciente.Columns.Add(txtColumna)
  766.  
  767.         txtColumna = New DataGridViewTextBoxColumn
  768.         txtColumna.Name = "Generico"
  769.         txtColumna.DataPropertyName = "Generico"
  770.         txtColumna.Width = 200
  771.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  772.         dtgTraidosPaciente.Columns.Add(txtColumna)
  773.  
  774.         txtColumna = New DataGridViewTextBoxColumn
  775.         txtColumna.Name = "Forma"
  776.         txtColumna.DataPropertyName = "Forma"
  777.         txtColumna.HeaderText = "Forma Farm."
  778.         txtColumna.Width = 100
  779.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  780.         dtgTraidosPaciente.Columns.Add(txtColumna)
  781.  
  782.         txtColumna = New DataGridViewTextBoxColumn
  783.         txtColumna.Name = "Presentacion"
  784.         txtColumna.DataPropertyName = "Presentacion"
  785.         txtColumna.Width = 100
  786.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  787.         dtgTraidosPaciente.Columns.Add(txtColumna)
  788.  
  789.         txtColumna = New DataGridViewTextBoxColumn
  790.         txtColumna.Name = "Concentracion"
  791.         txtColumna.DataPropertyName = "Concentracion"
  792.         txtColumna.Width = 100
  793.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  794.         dtgTraidosPaciente.Columns.Add(txtColumna)
  795.  
  796.         txtColumna = New DataGridViewTextBoxColumn
  797.         txtColumna.Name = "Invima"
  798.         txtColumna.DataPropertyName = "Invima"
  799.         txtColumna.HeaderText = "Reg. Invima"
  800.         txtColumna.Width = 100
  801.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  802.         dtgTraidosPaciente.Columns.Add(txtColumna)
  803.  
  804.         txtColumna = New DataGridViewTextBoxColumn
  805.         txtColumna.Name = "Lote"
  806.         txtColumna.DataPropertyName = "Lote"
  807.         txtColumna.Width = 80
  808.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  809.         dtgTraidosPaciente.Columns.Add(txtColumna)
  810.  
  811.         txtColumna = New DataGridViewTextBoxColumn
  812.         txtColumna.Name = "Vencimiento"
  813.         txtColumna.DataPropertyName = "Vencimiento"
  814.         txtColumna.Width = 100
  815.         txtColumna.CellTemplate.Style.Format = fmtFecha
  816.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  817.         dtgTraidosPaciente.Columns.Add(txtColumna)
  818.  
  819.         txtColumna = New DataGridViewTextBoxColumn
  820.         txtColumna.Name = "Cantidad"
  821.         txtColumna.DataPropertyName = "Cantidad"
  822.         txtColumna.Width = 80
  823.         txtColumna.ReadOnly = True
  824.         txtColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  825.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  826.         dtgTraidosPaciente.Columns.Add(txtColumna)
  827.  
  828.         FormatDataGrid(dtgDevolucionMedicamentos, AccionDataGrid.Detalle)
  829.         dtgDevolucionMedicamentos.AllowUserToAddRows = False
  830.         dtgDevolucionMedicamentos.AllowUserToDeleteRows = False
  831.  
  832.         txtColumna = New DataGridViewTextBoxColumn
  833.         txtColumna.Name = "NomElemento"
  834.         txtColumna.DataPropertyName = "NomElemento"
  835.         txtColumna.HeaderText = "Medicamento"
  836.         txtColumna.Width = 200
  837.         txtColumna.ReadOnly = True
  838.         txtColumna.Tag = "R"
  839.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  840.         dtgDevolucionMedicamentos.Columns.Add(txtColumna)
  841.  
  842.         txtColumna = New DataGridViewTextBoxColumn
  843.         txtColumna.Name = "Generico"
  844.         txtColumna.DataPropertyName = "Generico"
  845.         txtColumna.Width = 200
  846.         txtColumna.ReadOnly = True
  847.         txtColumna.Tag = "R"
  848.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  849.         dtgDevolucionMedicamentos.Columns.Add(txtColumna)
  850.  
  851.         txtColumna = New DataGridViewTextBoxColumn
  852.         txtColumna.Name = "Forma"
  853.         txtColumna.DataPropertyName = "Forma"
  854.         txtColumna.HeaderText = "Forma Farm."
  855.         txtColumna.Width = 100
  856.         txtColumna.ReadOnly = True
  857.         txtColumna.Tag = "R"
  858.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  859.         dtgDevolucionMedicamentos.Columns.Add(txtColumna)
  860.  
  861.         txtColumna = New DataGridViewTextBoxColumn
  862.         txtColumna.Name = "Presentacion"
  863.         txtColumna.DataPropertyName = "Presentacion"
  864.         txtColumna.Width = 100
  865.         txtColumna.ReadOnly = True
  866.         txtColumna.Tag = "R"
  867.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  868.         dtgDevolucionMedicamentos.Columns.Add(txtColumna)
  869.  
  870.         txtColumna = New DataGridViewTextBoxColumn
  871.         txtColumna.Name = "Concentracion"
  872.         txtColumna.DataPropertyName = "Concentracion"
  873.         txtColumna.Width = 100
  874.         txtColumna.ReadOnly = True
  875.         txtColumna.Tag = "R"
  876.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  877.         dtgDevolucionMedicamentos.Columns.Add(txtColumna)
  878.  
  879.         txtColumna = New DataGridViewTextBoxColumn
  880.         txtColumna.Name = "Cantidad"
  881.         txtColumna.DataPropertyName = "Cantidad"
  882.         txtColumna.Width = 80
  883.         txtColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  884.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  885.         dtgDevolucionMedicamentos.Columns.Add(txtColumna)
  886.  
  887.         EventosPanel(panMedicamentosKardex)
  888.  
  889.         FormatDataGrid(dtgMedicamentosSaldo, AccionDataGrid.Consulta)
  890.         dtgMedicamentosSaldo.SelectionMode = DataGridViewSelectionMode.CellSelect
  891.  
  892.         lnkColumna = New DataGridViewLinkColumn
  893.         lnkColumna.Name = "Insertar"
  894.         lnkColumna.DataPropertyName = "Insertar"
  895.         lnkColumna.HeaderText = ""
  896.         lnkColumna.Width = 80
  897.         lnkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  898.         dtgMedicamentosSaldo.Columns.Add(lnkColumna)
  899.  
  900.         txtColumna = New DataGridViewTextBoxColumn
  901.         txtColumna.Name = "NomElemento"
  902.         txtColumna.DataPropertyName = "NomElemento"
  903.         txtColumna.HeaderText = "Medicamento/Suministro"
  904.         txtColumna.Width = 300
  905.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  906.         dtgMedicamentosSaldo.Columns.Add(txtColumna)
  907.  
  908.         chkColumna = New DataGridViewCheckBoxColumn
  909.         chkColumna.Name = "Propio"
  910.         chkColumna.DataPropertyName = "Propio"
  911.         chkColumna.HeaderText = "Traído x Paciente"
  912.         chkColumna.Width = 100
  913.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  914.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  915.         dtgMedicamentosSaldo.Columns.Add(chkColumna)
  916.  
  917.         txtColumna = New DataGridViewTextBoxColumn
  918.         txtColumna.Name = "Saldo"
  919.         txtColumna.DataPropertyName = "Saldo"
  920.         txtColumna.Width = 80
  921.         txtColumna.ReadOnly = True
  922.         txtColumna.CellTemplate.Style.Format = "0.0"
  923.         txtColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  924.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  925.         dtgMedicamentosSaldo.Columns.Add(txtColumna)
  926.  
  927.         lnkColumna = New DataGridViewLinkColumn
  928.         lnkColumna.Name = "Movimiento"
  929.         lnkColumna.DataPropertyName = "Movimiento"
  930.         lnkColumna.HeaderText = ""
  931.         lnkColumna.Width = 90
  932.         lnkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  933.         dtgMedicamentosSaldo.Columns.Add(lnkColumna)
  934.  
  935.         FormatDataGrid(dtgMedicamentosKardex, AccionDataGrid.Consulta)
  936.  
  937.         txtColumna = New DataGridViewTextBoxColumn
  938.         txtColumna.Name = "Fecha"
  939.         txtColumna.DataPropertyName = "Fecha"
  940.         txtColumna.Width = 100
  941.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  942.         txtColumna.CellTemplate.Style.Format = fmtFecha
  943.         dtgMedicamentosKardex.Columns.Add(txtColumna)
  944.  
  945.         txtColumna = New DataGridViewTextBoxColumn
  946.         txtColumna.Name = "Movimiento"
  947.         txtColumna.DataPropertyName = "Movimiento"
  948.         txtColumna.Width = 160
  949.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  950.         dtgMedicamentosKardex.Columns.Add(txtColumna)
  951.  
  952.         txtColumna = New DataGridViewTextBoxColumn
  953.         txtColumna.Name = "Cantidad"
  954.         txtColumna.DataPropertyName = "Cantidad"
  955.         txtColumna.Width = 80
  956.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  957.         dtgMedicamentosKardex.Columns.Add(txtColumna)
  958.  
  959.         FormatDataGrid(dtgMedicamentos, AccionDataGrid.Detalle)
  960.         dtgMedicamentos.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
  961.         dtgMedicamentos.AllowUserToAddRows = False
  962.         dtgMedicamentos.AllowUserToDeleteRows = False
  963.  
  964.         txtColumna = New DataGridViewTextBoxColumn
  965.         txtColumna.Name = "NomElemento"
  966.         txtColumna.DataPropertyName = "NomElemento"
  967.         txtColumna.HeaderText = "Medicamento/Suministro"
  968.         txtColumna.ReadOnly = True
  969.         txtColumna.Width = 200
  970.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  971.         dtgMedicamentos.Columns.Add(txtColumna)
  972.  
  973.         cmbColumna = New DataGridViewComboBoxColumn
  974.         GetLista("HisViaAplicacion", cmbColumna)
  975.         cmbColumna.Name = "Via"
  976.         cmbColumna.DataPropertyName = "Via"
  977.         cmbColumna.Width = 80
  978.         cmbColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  979.         cmbColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  980.         dtgMedicamentos.Columns.Add(cmbColumna)
  981.  
  982.         txtColumna = New DataGridViewTextBoxColumn
  983.         txtColumna.Name = "Hora"
  984.         txtColumna.DataPropertyName = "Hora"
  985.         txtColumna.Width = 80
  986.         txtColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  987.         txtColumna.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  988.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  989.         dtgMedicamentos.Columns.Add(txtColumna)
  990.  
  991.         txtColumna = New DataGridViewTextBoxColumn
  992.         txtColumna.Name = "Cantidad"
  993.         txtColumna.DataPropertyName = "Cantidad"
  994.         txtColumna.HeaderText = "Cantidad"
  995.         txtColumna.Width = 80
  996.         txtColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  997.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  998.         dtgMedicamentos.Columns.Add(txtColumna)
  999.  
  1000.         chkColumna = New DataGridViewCheckBoxColumn
  1001.         chkColumna.Name = "Propio"
  1002.         chkColumna.DataPropertyName = "Propio"
  1003.         chkColumna.HeaderText = "Traído x Paciente"
  1004.         chkColumna.Width = 100
  1005.         txtColumna.ReadOnly = True
  1006.         chkColumna.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  1007.         chkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1008.         dtgMedicamentos.Columns.Add(chkColumna)
  1009.  
  1010.         txtColumna = New DataGridViewTextBoxColumn
  1011.         txtColumna.Name = "Descripcion"
  1012.         txtColumna.DataPropertyName = "Descripcion"
  1013.         txtColumna.Width = 400
  1014.         txtColumna.MaxInputLength = 500
  1015.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  1016.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1017.         dtgMedicamentos.Columns.Add(txtColumna)
  1018.  
  1019.         txtColumna = New DataGridViewTextBoxColumn
  1020.         txtColumna.Name = "GeneradoPor"
  1021.         txtColumna.DataPropertyName = "GeneradoPor"
  1022.         txtColumna.HeaderText = "Aplicado por"
  1023.         txtColumna.Width = 200
  1024.         txtColumna.ReadOnly = True
  1025.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1026.         dtgMedicamentos.Columns.Add(txtColumna)
  1027.  
  1028.         btnEliminar.Visible = GetPermiso("")
  1029.         btnCategoria.Visible = GetPermiso("")
  1030.  
  1031.         ConfiguraTratResumen()
  1032.  
  1033.         'Notas
  1034.         EventosPanel(panNota)
  1035.  
  1036.         FormatDataGrid(dtgNotas, AccionDataGrid.Detalle)
  1037.         dtgNotas.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
  1038.         dtgNotas.AllowUserToAddRows = False
  1039.         dtgNotas.AllowUserToDeleteRows = False
  1040.         dtgNotas.ReadOnly = True
  1041.  
  1042.         txtColumna = New DataGridViewTextBoxColumn
  1043.         txtColumna.Name = "Fecha"
  1044.         txtColumna.DataPropertyName = "Fecha"
  1045.         txtColumna.HeaderText = "Fecha/Hora"
  1046.         txtColumna.Width = 130
  1047.         txtColumna.ReadOnly = True
  1048.         txtColumna.Tag = "R"
  1049.         txtColumna.CellTemplate.Style.Format = fmtFecha & " " & fmtHora
  1050.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1051.         dtgNotas.Columns.Add(txtColumna)
  1052.  
  1053.         txtColumna = New DataGridViewTextBoxColumn
  1054.         txtColumna.Name = "nomGeneradoPor"
  1055.         txtColumna.DataPropertyName = "nomGeneradoPor"
  1056.         txtColumna.HeaderText = "Realizado Por"
  1057.         txtColumna.Width = 140
  1058.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1059.         dtgNotas.Columns.Add(txtColumna)
  1060.  
  1061.         txtColumna = New DataGridViewTextBoxColumn
  1062.         txtColumna.Name = "Motivo"
  1063.         txtColumna.DataPropertyName = "Motivo"
  1064.         txtColumna.HeaderText = "Motivo"
  1065.         txtColumna.Width = 140
  1066.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1067.         dtgNotas.Columns.Add(txtColumna)
  1068.  
  1069.         txtColumna = New DataGridViewTextBoxColumn
  1070.         txtColumna.Name = "Observaciones"
  1071.         txtColumna.DataPropertyName = "Observaciones"
  1072.         txtColumna.Width = 500
  1073.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  1074.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1075.         dtgNotas.Columns.Add(txtColumna)
  1076.  
  1077.         lnkColumna = New DataGridViewLinkColumn
  1078.         lnkColumna.Name = "Archivo"
  1079.         lnkColumna.DataPropertyName = "Archivo"
  1080.         lnkColumna.Width = 80
  1081.         lnkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1082.         lnkColumna.LinkBehavior = LinkBehavior.NeverUnderline
  1083.         lnkColumna.TrackVisitedState = False
  1084.         dtgNotas.Columns.Add(lnkColumna)
  1085.  
  1086.         FormatDataGrid(dtgHosNotas, AccionDataGrid.Detalle)
  1087.         dtgHosNotas.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
  1088.         dtgHosNotas.AllowUserToAddRows = False
  1089.         dtgHosNotas.AllowUserToDeleteRows = False
  1090.         dtgHosNotas.ReadOnly = True
  1091.  
  1092.         txtColumna = New DataGridViewTextBoxColumn
  1093.         txtColumna.Name = "Fecha"
  1094.         txtColumna.DataPropertyName = "Fecha"
  1095.         txtColumna.HeaderText = "Fecha/Hora"
  1096.         txtColumna.Width = 130
  1097.         txtColumna.ReadOnly = True
  1098.         txtColumna.Tag = "R"
  1099.         txtColumna.CellTemplate.Style.Format = fmtFecha & " " & fmtHora
  1100.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1101.         dtgHosNotas.Columns.Add(txtColumna)
  1102.  
  1103.         txtColumna = New DataGridViewTextBoxColumn
  1104.         txtColumna.Name = "nomGeneradoPor"
  1105.         txtColumna.DataPropertyName = "nomGeneradoPor"
  1106.         txtColumna.HeaderText = "Realizado Por"
  1107.         txtColumna.Width = 140
  1108.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1109.         dtgHosNotas.Columns.Add(txtColumna)
  1110.  
  1111.         txtColumna = New DataGridViewTextBoxColumn
  1112.         txtColumna.Name = "Observaciones"
  1113.         txtColumna.DataPropertyName = "Observaciones"
  1114.         txtColumna.Width = 500
  1115.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  1116.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1117.         dtgHosNotas.Columns.Add(txtColumna)
  1118.  
  1119.         'AIU
  1120.         dtpAIUIngreso.Format = DateTimePickerFormat.Custom
  1121.         dtpAIUIngreso.CustomFormat = fmtFecha & " " & fmtHora
  1122.  
  1123.         cmbAIUOrigenAtencion.DropDownStyle = ComboBoxStyle.DropDownList
  1124.         GetLista("HISOrigenAtencion", cmbAIUOrigenAtencion)
  1125.         cmbAIUTriage.DropDownStyle = ComboBoxStyle.DropDownList
  1126.         GetLista("HISTriage", cmbAIUTriage)
  1127.         cmbAIUCobertura.DropDownStyle = ComboBoxStyle.DropDownList
  1128.         GetLista("HISCoberturaSalud", cmbAIUCobertura)
  1129.         cmbAIUDestino.DropDownStyle = ComboBoxStyle.DropDownList
  1130.         GetLista("HISDestinoPaciente", cmbAIUDestino)
  1131.  
  1132.         'Ciudades
  1133.         gtSql = "SELECT SISDivisionPolitica.Codigo, SISDivisionPolitica.Nombre +  ' (' + SISDivisionPolitica_1.Nombre + ')' AS Ciudad" &
  1134.                  " FROM SISDivisionPolitica INNER JOIN SISDivisionPolitica AS SISDivisionPolitica_1 ON Left(SISDivisionPolitica.Codigo, Len(SISDivisionPolitica.Codigo)-3) = SISDivisionPolitica_1.Codigo" &
  1135.                  " WHERE SISDivisionPolitica.Tipo = 'C'" &
  1136.                  " ORDER BY SISDivisionPolitica.Nombre, SISDivisionPolitica_1.Nombre"
  1137.         cmbAIUCiudadRemite.DropDownStyle = ComboBoxStyle.DropDown
  1138.         cmbAIUCiudadRemite.AutoCompleteMode = AutoCompleteMode.SuggestAppend
  1139.         cmbAIUCiudadRemite.AutoCompleteSource = AutoCompleteSource.ListItems
  1140.         EnlazarLista(cmbAIUCiudadRemite, gtSql)
  1141.  
  1142.         'Ciudades
  1143.         gtSql = "SELECT SISDivisionPolitica.Codigo, SISDivisionPolitica.Nombre +  ' (' + SISDivisionPolitica_1.Nombre + ')' AS Ciudad" &
  1144.                  " FROM SISDivisionPolitica INNER JOIN SISDivisionPolitica AS SISDivisionPolitica_1 ON Left(SISDivisionPolitica.Codigo, Len(SISDivisionPolitica.Codigo)-3) = SISDivisionPolitica_1.Codigo" &
  1145.                  " WHERE SISDivisionPolitica.Tipo = 'C'" &
  1146.                  " ORDER BY SISDivisionPolitica.Nombre, SISDivisionPolitica_1.Nombre"
  1147.         cmbAIUCiudadRemite.DropDownStyle = ComboBoxStyle.DropDown
  1148.         cmbAIUCiudadRemite.AutoCompleteMode = AutoCompleteMode.SuggestAppend
  1149.         cmbAIUCiudadRemite.AutoCompleteSource = AutoCompleteSource.ListItems
  1150.         EnlazarLista(cmbAIUCiudadRemite, gtSql)
  1151.  
  1152.         'SAS
  1153.         cmbSASOrigen.DropDownStyle = ComboBoxStyle.DropDownList
  1154.         GetLista("HISOrigenAtencion", cmbSASOrigen)
  1155.         cmbSASCobertura.DropDownStyle = ComboBoxStyle.DropDownList
  1156.         GetLista("HISCoberturaSalud", cmbSASCobertura)
  1157.         cmbSASTipoServicios.DropDownStyle = ComboBoxStyle.DropDownList
  1158.         GetLista("HISTipoServicios", cmbSASTipoServicios)
  1159.         cmbSASPrioridad.DropDownStyle = ComboBoxStyle.DropDownList
  1160.         GetLista("HISPrioridad", cmbSASPrioridad)
  1161.         cmbSASUbicacion.DropDownStyle = ComboBoxStyle.DropDownList
  1162.         GetLista("HISUbicacion", cmbSASUbicacion)
  1163.  
  1164.         FormatDataGrid(dtgSASProcedimientos, AccionDataGrid.Detalle)
  1165.  
  1166.         txtColumna = New DataGridViewTextBoxColumn
  1167.         txtColumna.Name = "Codigo"
  1168.         txtColumna.DataPropertyName = "Codigo"
  1169.         txtColumna.HeaderText = "Código"
  1170.         txtColumna.Width = 100
  1171.         txtColumna.ReadOnly = True
  1172.         txtColumna.Tag = "R"
  1173.         txtColumna.CellTemplate.Style.NullValue = "<F4 Lista>"
  1174.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1175.         dtgSASProcedimientos.Columns.Add(txtColumna)
  1176.  
  1177.         txtColumna = New DataGridViewTextBoxColumn
  1178.         txtColumna.Name = "NomLaboratorio"
  1179.         txtColumna.DataPropertyName = "NomLaboratorio"
  1180.         txtColumna.HeaderText = "Servicio"
  1181.         txtColumna.ReadOnly = True
  1182.         txtColumna.Tag = "R"
  1183.         txtColumna.Width = 300
  1184.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1185.         dtgSASProcedimientos.Columns.Add(txtColumna)
  1186.  
  1187.         txtColumna = New DataGridViewTextBoxColumn
  1188.         txtColumna.Name = "Cantidad"
  1189.         txtColumna.DataPropertyName = "Cantidad"
  1190.         txtColumna.Width = 60
  1191.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1192.         dtgSASProcedimientos.Columns.Add(txtColumna)
  1193.  
  1194.         txtColumna = New DataGridViewTextBoxColumn
  1195.         txtColumna.Name = "Observaciones"
  1196.         txtColumna.DataPropertyName = "Observaciones"
  1197.         txtColumna.HeaderText = "Observaciones"
  1198.         txtColumna.Width = 300
  1199.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1200.         dtgSASProcedimientos.Columns.Add(txtColumna)
  1201.  
  1202.         gtSql = "SELECT Codigo, Valor AS Toxico FROM SISListas WHERE Categoria = 'HISToxicologico' ORDER BY Descripcion, Codigo"
  1203.         If BD.GetDataTable(gtSql).Rows.Count = 0 Then
  1204.             If tabEnfermeria.Contains(tapEnfToxicologico) = True Then tabEnfermeria.TabPages.Remove(tapEnfToxicologico)
  1205.             If tabEnfermeria.Contains(tapEnfDevolucionPaciente) = True Then tabEnfermeria.TabPages.Remove(tapEnfDevolucionPaciente)
  1206.             If tabEnfermeria.Contains(tapEnfTraidosPaciente) = True Then tabEnfermeria.TabPages.Remove(tapEnfTraidosPaciente)
  1207.             If tabEnfermeria.Contains(tapEnfEventoAdverso) = True Then tabEnfermeria.TabPages.Remove(tapEnfEventoAdverso)
  1208.             If tabDatos.Contains(tapProcedimientos) = True Then tabDatos.TabPages.Remove(tapProcedimientos)
  1209.         End If
  1210.         gtSql = "SELECT Codigo, Valor AS Toxico FROM SISListas WHERE Categoria = 'HISProcEspeciales' ORDER BY Descripcion, Codigo"
  1211.         If BD.GetDataTable(gtSql).Rows.Count = 0 AndAlso tabEnfermeria.Contains(tapEnfProcEspeciales) = True Then tabEnfermeria.TabPages.Remove(tapEnfProcEspeciales)
  1212.  
  1213.         'Antecedentes
  1214.         FormatDataGrid(dtgAsistentes, AccionDataGrid.Detalle)
  1215.  
  1216.         txtColumna = New DataGridViewTextBoxColumn
  1217.         txtColumna.Name = "Nombre"
  1218.         txtColumna.DataPropertyName = "Nombre"
  1219.         txtColumna.Width = 400
  1220.         txtColumna.ReadOnly = True
  1221.         txtColumna.Tag = "R"
  1222.         txtColumna.CellTemplate.Style.NullValue = "F4 Lista"
  1223.         dtgAsistentes.Columns.Add(txtColumna)
  1224.  
  1225.         txtColumna = New DataGridViewTextBoxColumn
  1226.         txtColumna.Name = "NumeroIden"
  1227.         txtColumna.DataPropertyName = "NumeroIden"
  1228.         txtColumna.Width = 120
  1229.         txtColumna.ReadOnly = True
  1230.         txtColumna.Tag = "R"
  1231.         dtgAsistentes.Columns.Add(txtColumna)
  1232.  
  1233.         dtpFechaNota.Format = DateTimePickerFormat.Custom
  1234.         dtpFechaNota.CustomFormat = fmtFecha & " " & fmtHora
  1235.  
  1236.         EventosPanel(panResultados)
  1237.  
  1238.         txtResultadosExamen.SQL = "SELECT Codigo, CodigoRIPS + ' - ' + Nombre AS Nombre FROM HISCups WHERE Estado = 'Activo' ORDER BY CodigoRIPS + ' - ' + Nombre"
  1239.         txtResultadosExamen.ColsOcultas = 1
  1240.  
  1241.         FormatDataGrid(dtgResultados, AccionDataGrid.Detalle)
  1242.         dtgResultados.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
  1243.         dtgResultados.AllowUserToAddRows = False
  1244.         dtgResultados.AllowUserToDeleteRows = False
  1245.         dtgResultados.ReadOnly = True
  1246.  
  1247.         txtColumna = New DataGridViewTextBoxColumn
  1248.         txtColumna.Name = "Fecha"
  1249.         txtColumna.DataPropertyName = "Fecha"
  1250.         txtColumna.HeaderText = "Fecha/Hora"
  1251.         txtColumna.Width = 130
  1252.         txtColumna.ReadOnly = True
  1253.         txtColumna.Tag = "R"
  1254.         txtColumna.CellTemplate.Style.Format = fmtFecha & " " & fmtHora
  1255.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1256.         dtgResultados.Columns.Add(txtColumna)
  1257.  
  1258.         txtColumna = New DataGridViewTextBoxColumn
  1259.         txtColumna.Name = "Examen"
  1260.         txtColumna.DataPropertyName = "Examen"
  1261.         txtColumna.Width = 300
  1262.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1263.         dtgResultados.Columns.Add(txtColumna)
  1264.  
  1265.         txtColumna = New DataGridViewTextBoxColumn
  1266.         txtColumna.Name = "Observaciones"
  1267.         txtColumna.DataPropertyName = "Observaciones"
  1268.         txtColumna.Width = 500
  1269.         txtColumna.CellTemplate.Style.WrapMode = DataGridViewTriState.True
  1270.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1271.         dtgResultados.Columns.Add(txtColumna)
  1272.  
  1273.         txtColumna = New DataGridViewTextBoxColumn
  1274.         txtColumna.Name = "nomGeneradoPor"
  1275.         txtColumna.DataPropertyName = "nomGeneradoPor"
  1276.         txtColumna.HeaderText = "Realizado Por"
  1277.         txtColumna.Width = 180
  1278.         txtColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1279.         dtgResultados.Columns.Add(txtColumna)
  1280.  
  1281.         lnkColumna = New DataGridViewLinkColumn
  1282.         lnkColumna.Name = "Archivo"
  1283.         lnkColumna.DataPropertyName = "Archivo"
  1284.         lnkColumna.Width = 80
  1285.         lnkColumna.SortMode = DataGridViewColumnSortMode.NotSortable
  1286.         lnkColumna.LinkBehavior = LinkBehavior.NeverUnderline
  1287.         lnkColumna.TrackVisitedState = False
  1288.         dtgResultados.Columns.Add(lnkColumna)
  1289.  
  1290.     End Sub
Tags: net
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!