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 @@
+
+
+
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