SMS - 2024.02.06 OS Observaciones, Rep Cirugias Observaciones personalizar

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
 

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

OS/OrdenesServicios.aspx

@@ -1312,7 +1312,15 @@
                                     <label for="<%= TxtFolioRemisionModal.ClientID.ToString()%>">Folio:</label>
                                 </div>
                             </div>
-                        </div>                                                       
+                        </div> 
+                          <div class="row">
+                              <div class="col-md-12">
+                                  <div class="form-group form-md-line-input input-iconright" runat="server" >
+                                        <asp:TextBox ID="TxtObservacionModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="250"></asp:TextBox>                                    
+                                        <label for="<%= TxtFolioRemisionModal.ClientID.ToString()%>">Observaciones:</label>
+                                    </div>
+                              </div>
+                          </div>
                         <br />
                         <div class="row">
                             <div class="col-md-12">

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
 
 

OS/RepOSMedicas.aspx

@@ -21,6 +21,10 @@
             <li>
                 <asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i>  Excel</asp:LinkButton>
             </li>
+             <li>
+     
+                 <asp:LinkButton ID="LnkPersonalizar" OnClick="LnkPersonalizar_Click" runat="server" Visible="false"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>
+             </li>
 
         </ContentTemplate>
         <Triggers>
@@ -174,21 +178,26 @@
                     <asp:BoundField HeaderText="Hospital" DataField="Nombre"  />                    
                     <%--3--%>
                     <asp:BoundField HeaderText="Tipo" DataField="TipoVenta"  />
-                    <asp:BoundField HeaderText="Médico" DataField="Medico"  />
                     <%--4--%>                    
-                    <asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento"  />
+                    <asp:BoundField HeaderText="Médico" DataField="Medico"  />
                     <%--5--%>                    
-                    <asp:BoundField HeaderText="Vendedor" DataField="Vendedor"  />
+                    <asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento"  />
                     <%--6--%>
-                    <asp:BoundField HeaderText="Estatus" DataField="EstatusOrdenServicio"  />                    
+                    <asp:BoundField HeaderText="Vendedor" DataField="Vendedor"  />
                     <%--7--%>
-                    <asp:BoundField HeaderText="Técnico" DataField="NombreUsuario"  /> 
+                    <asp:BoundField HeaderText="Estatus" DataField="EstatusOrdenServicio"  />                    
                     <%--8--%>
-                    <asp:BoundField HeaderText="Paciente" DataField="Paciente"   /> 
+                    <asp:BoundField HeaderText="Técnico" DataField="NombreUsuario"  /> 
                     <%--9--%>
+                    <asp:BoundField HeaderText="Paciente" DataField="Paciente"   /> 
+                    <%--10--%>
                     <asp:BoundField HeaderText="Episodio" DataField="IdentificadorCliente"   /> 
+                    <%--11--%>
                     <asp:HyperLinkField HeaderText="Pedido" DataTextField="SerieFolioPedido" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVentaPedido"  Target="_blank"  />
+                    <%--12--%>
                     <asp:HyperLinkField HeaderText="Remisión" DataTextField="SerieFolioRemision" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVentaRemision"  Target="_blank" />
+                    <%--13--%>
+                    <asp:BoundField HeaderText="Observaciones" DataField="Observaciones"  visible="false" /> 
                 </Columns>
                 
             </asp:GridView>
@@ -196,6 +205,45 @@
     </asp:UpdatePanel>
 
  
+      <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+      <ContentTemplate>
+          <div id="DivPersonalizar" class="modal fade" role="dialog">
+              <div class="modal-dialog">
+
+                  <!-- Modal content SucursalCobranza-->
+                  <div class="modal-content">
+                      <div class="modal-header">
+                          <button type="button" class="close" data-dismiss="modal">&times;</button>
+                          <h4 class="modal-title">
+                              <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
+                      </div>
+                      <div class="modal-body">
+                          <table class="table table-striped nobordertop table-advance table-hover">
+                              <tbody>
+                                  <tr>
+                                      <td style="text-align: left;"><asp:CheckBox ID="ChkObservaciones" runat="server" Text="&nbsp;Observaciones" Checked="false" /></td>                                                                              
+                                  </tr>                             
+ 
+                              </tbody>
+                          </table>
+                      </div>
+                      <div class="modal-footer">
+                          <div class="row">                            
+                              <div class="col-md-12">
+                                 <%--<button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>--%>
+                                  <asp:Button ID="BtnPersonalizar"   ClientIDMode="Static" runat="server" Text="Personalizar" class="btn btn-success" OnClick="BtnPersonalizar_Click" />
+                                 <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                              </div>
+                          </div>                            
+
+                      </div>
+                  </div>
+
+              </div>
+          </div>
+      </ContentTemplate>
+  </asp:UpdatePanel>
+
 
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

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