From b1694458fefe327eb9abb8d0d0d4ba12609f3378 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 7 Feb 2024 08:18:37 -0700 Subject: [PATCH] SMS - 2024.02.06 OS Observaciones, Rep Cirugias Observaciones personalizar --- App_Code/ClsOS.vb | 3 +- Ashx/CargaEventos.ashx | 4 +-- OS/OrdenesServicios.aspx | 10 ++++++- OS/OrdenesServicios.aspx.vb | 19 ++++++------ OS/RepOSMedicas.aspx | 60 +++++++++++++++++++++++++++++++++---- OS/RepOSMedicas.aspx.vb | 27 +++++++++++++++++ 6 files changed, 104 insertions(+), 19 deletions(-) diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 1bd14b0b8..3e736c02e 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -794,7 +794,7 @@ Public Class ClsOS End Function - Public Function UpdateOrdenesServiciosFinaliza(CveOS As Integer, CveOSDetalle As Integer, CvePS As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean + Public Function UpdateOrdenesServiciosFinaliza(CveOS As Integer, CveOSDetalle As Integer, CvePS As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1, Optional Observaciones As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_OrdenesServiciosFinalizaUpdate") @@ -805,6 +805,7 @@ Public Class ClsOS .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Opcion", SqlDbType.Int).Value = Opcion + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones End With diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 4e6bc3267..344297e94 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -85,7 +85,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState FI = context.Request("start").ToDate FF = context.Request("end").ToDate - If Not GetEventos(CveUsuario, CveEmpresa, FI, FF) Then + If Not GetEventos(CveUsuario, CveEmpresa, FI, FF, context:=context) Then 'Convierte el objeto de Eventos en JSON 'Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer Dim sJSON As String = Newtonsoft.Json.JsonConvert.SerializeObject(events) @@ -280,7 +280,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState 'AGREGAMOS CUANDO NO ES RECURRENTE Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA - If dr("FechaFinal").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then + If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then events.Add(cevent) End If Else diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index 98bab92bd..bbe58e696 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -1312,7 +1312,15 @@ - + +
+
+
+ + +
+
+

diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 6bfe489ec..31d94fb18 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3298,11 +3298,7 @@ Partial Class OS_OrdenesServicios ProcesoOK = False End If End If - If ProcesoOK Then - If Not ObjOS.UpdateOrdenesServiciosFinaliza(CveOS, -1, -1, UsuarioActual.CveEmpresa) Then - ProcesoOK = False - End If - End If + If ProcesoOK Then Dim Contabilizable As Boolean = False Dim Concepto As String = "Material utilizado" @@ -3328,11 +3324,16 @@ Partial Class OS_OrdenesServicios ProcesoOK = False End If End If - - - - End If + + + If ProcesoOK Then + If Not ObjOS.UpdateOrdenesServiciosFinaliza(CveOS, -1, -1, UsuarioActual.CveEmpresa, Observaciones:=TxtObservacionModal.Text.Trim) Then + ProcesoOK = False + End If + End If + + End If diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx index 8da020fa3..621e7e27c 100644 --- a/OS/RepOSMedicas.aspx +++ b/OS/RepOSMedicas.aspx @@ -21,6 +21,10 @@
  • Excel
    • +
  • + + Personalizar Columnas +
    • @@ -174,21 +178,26 @@ <%--3--%> - <%--4--%> - + <%--5--%> - + <%--6--%> - + <%--7--%> - + <%--8--%> - + <%--9--%> + + <%--10--%> + <%--11--%> + <%--12--%> + <%--13--%> + @@ -196,6 +205,45 @@ + + + + + + diff --git a/OS/RepOSMedicas.aspx.vb b/OS/RepOSMedicas.aspx.vb index a68acdb0b..a231dbf39 100644 --- a/OS/RepOSMedicas.aspx.vb +++ b/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