SMS - 2024.02.06 OS Observaciones, Rep Cirugias Observaciones personalizar

OS/RepOSMedicas.aspx.vb

@@ -98,10 +98,14 @@ Partial Class OS_RepOSMedicas
         Dim FechaI As Date = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.ToDate)
         Dim FechaF As Date = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.ToDate)
         Dim Cvecliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
+        LnkPersonalizar.Visible = False
 
         If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, DdlVendedor.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
                                                     CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjOS.DtResultados
+            If ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then
+                LnkPersonalizar.Visible = True
+            End If
         Else
             GvDatos.DataSource = Nothing
         End If
@@ -163,4 +167,27 @@ Partial Class OS_RepOSMedicas
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     End Sub
 
+    Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
+
+        ' ChkGuardarPersonalizacion.Checked = False
+        RegistraScript("$('#DivPersonalizar').modal('show')")
+
+    End Sub
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+
+
+        Personaliza()
+
+
+    End Sub
+
+    Private Sub Personaliza()
+
+        GvDatos.Columns(13).Visible = ChkObservaciones.Checked
+
+        CargaDatos()
+
+    End Sub
+
 End Class