Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

App_Code/ClsBancos.vb

@@ -611,12 +611,13 @@ Public Class ClsBancos
 
 #Region " B A N C O S - C U E N T A S - U S U A R I O S"
 
-    Public Function GetBancosCuentasUsuarios(CveCuenta As Integer) As Boolean
+    Public Function GetBancosCuentasUsuarios(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_BancosCuentasUsuariosGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsPaginas.vb

@@ -1459,14 +1459,8 @@ Public Class ClsPaginas
             'sino existe, recarga los datos
             If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
                 Dim ObjBancos As New ClsBancos
-                If ObjBancos.GetBancosCuentasUsuarios(-1) Then
+                If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
-
+                    Application(AppNombre) = ObjBancos.DtResultados
-                    If CveEmpresa > 0 Then
-                        Application(AppNombre) = ObjBancos.DtResultados.FiltraParametros($"CveEmpresa = { CveEmpresa }")
-                    Else
-                        Application(AppNombre) = ObjBancos.DtResultados
-                    End If
-
                 Else
                     Application(AppNombre) = Nothing
                 End If

App_Code/ClsRH.vb

@@ -1973,7 +1973,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         End Try
         Return Retorno
     End Function
-    Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double) As Boolean
+    Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_PersonalUpdateSalarios")
         With SqlAdapter.SelectCommand.Parameters
@@ -1983,7 +1983,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago
             .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
             .Add("@SDI", SqlDbType.Money).Value = SDI
-            .Add("@SalarioDiarioSS", SqlDbType.Money).Value = SalarioDiarioSS
+            .Add("@SalarioDiarioSS", SqlDbType.Money).Value = SalarioDiarioSS
+            .Add("@CalcularSDI", SqlDbType.Bit).Value = CalcularSDI
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/Modelos.vb

@@ -7199,7 +7199,7 @@ Namespace Modelos
                 'sino existe, recarga los datos
                 If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
                     Dim ObjBancos As New ClsBancos
-                    If ObjBancos.GetBancosCuentasUsuarios(-1) Then
+                    If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
                         HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados
                     Else
                         HttpContext.Current.Application(AppNombre) = Nothing

Ashx/SIGWeb.ashx

@@ -61,7 +61,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Dim correo As String = ""
         Dim sitio As String = ""
         Dim cuerpo As String = ""
-        Dim obj = context.Request("Nombre")
+        Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() +
         If Not IsNothing(obj) Then
             nombre = obj.ToString()
         End If
@@ -75,11 +75,11 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
         obj = context.Request("Cuerpo")
         If Not IsNothing(obj) Then
-            cuerpo = obj.ToString()
+            cuerpo = obj.ToString().Replace("< ", "<")
         End If
-        Dim Body As String = String.Format("Nombre : {0}<br/>Nombre : {0}<br/>Correo : {1}<br/>Sitio : {2}<br/><br/>{3}", nombre, correo, sitio, cuerpo)
+        Dim Body As String = String.Format("Prospecto : {0}<br/>Correo : {1}<br/>Sitio : {2}<br/><br/>{3}", nombre, correo, sitio, cuerpo)
-        Dim para As String = "rene.molina@adssistemas.mx,sig.buzon@gmail.com,julian@adssistemas.mx;paola@adssistemas.mx;"
+        Dim para As String = "rene.molina@adssistemas.mx,sig.buzon@gmail.com,julian@adssistemas.mx;paola@adssistemas.mx;caudillo.90d@gmail.com;"
-        para = "caudillo.90d@gmail.com"
+        'para = ""
         Dim Mail As New ClsSisMail()
         If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
             retorno = "true"

CRM/RepAcercamientosProcesos.aspx

@@ -5,8 +5,7 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
         .Filtros {
-            padding: 10px;
+            padding: 10px;background-color: #95A5A6;
-            background-color: #C3C3C3;
         }
 
             .Filtros label, .Filtros .form-group.form-md-line-input .form-control ~ label {
@@ -48,7 +47,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="Filtros portlet solid grey-cascade portlet-filter">
+            <%--<div class="Filtros portlet solid grey-cascade portlet-filter">
                 <div class="row">
                     <div class="col-md-2" style="width: 85%">
                         <div class="row">
@@ -140,8 +139,95 @@
                         </div>
                     </div>
                 </div>
-            </div>
+            </div>--%>
+            
+            <div class="Filtros">
+                <div class="row">
+                    <div class="col-sm-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-3"> 
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-1 text-right">
+                        <br />
+                        <asp:LinkButton ID="LnkConsultar" OnClick="LnkConsultar_Click" runat="server" CssClass="btn btn-default">Consultar</asp:LinkButton>
+                    </div>
+                </div> 
+                <div class="row">
+                    
+                    <div class="col-md-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlGrupo1" runat="server" CssClass="form-control input-sm select2me Widthall">
+                                <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
+                                <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
+                                <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:Label runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-3" style="display:none;">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlGrupo2" runat="server" CssClass="form-control input-sm select2me Widthall">
+                                <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
+                                <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
+                                <asp:ListItem Value="2" Text="Medio Captacion"></asp:ListItem>
+                                <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:Label runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="">
+                            <asp:Label runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaSolicitudI" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="">
+                            <asp:Label runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaSolicitudF" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        </div>
 
+                    </div>
+                </div>
+            </div>
             <asp:GridView ID="GVRepAcercamientosEtapas" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVRep" AutoGenerateColumns="False"
                 DataKeyNames="CveGrupo1,Grupo1,CveGrupo2,Grupo2" ShowHeaderWhenEmpty="true">
                 <Columns>

CRM/RepAcercamientosProcesos.aspx.cs

@@ -144,6 +144,15 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
             BoundField test = new BoundField();
             test.DataField = "Grupo1";
             test.HeaderText = "";
+
+
+
+            HyperLinkField hypt = new HyperLinkField();
+            hypt.DataTextField = $"Total";
+            hypt.HeaderText = $"Total";
+            hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2", "Grupo1" };
+            string  strfilstros =string.Format("&cveVendedor={0}&cveMedioCaptacion={1}&cveProbabilidadAcercamiento={2}", cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento);
+            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}";
             switch (idgrupo1)
             {
                 case 1:
@@ -161,15 +170,11 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
                 case 4:
                     test.HeaderText = "Fecha";
                     Agrupador = "Fecha";
+                    hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={{2}}&FechaFin={{2}}{strfilstros}";
                     break;
             }
             GVRepAcercamientosEtapas.Columns.Add(test);
 
-            HyperLinkField hypt = new HyperLinkField();
-            hypt.DataTextField = $"Total";
-            hypt.HeaderText = $"Total";
-            hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" };
-            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}";
             GVRepAcercamientosEtapas.Columns.Add(hypt);
             foreach (DataRow row in dte.Rows)
             {

CRM/RepAcercamientosProcesosDetalle.aspx

@@ -1,12 +1,12 @@
 <%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepAcercamientosProcesosDetalle.aspx.cs" Inherits="CRM_RepAcercamientosProcesosDetalle" %>
 
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
         .Filtros {
             padding: 10px;
-            background-color: #C3C3C3;
+            background-color: #95A5A6;
         }
 
             .Filtros label, .Filtros .form-group.form-md-line-input .form-control ~ label {
@@ -27,29 +27,46 @@
             width: 100%;
             height: 500px;
         }
+
+        .GVRepAcercamientosDetalle a {
+            -webkit-transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, -webkit-box-shadow 0.15s ease;
+            transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, -webkit-box-shadow 0.15s ease;
+            transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, box-shadow 0.15s ease;
+            transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, box-shadow 0.15s ease, -webkit-box-shadow 0.15s ease;
+            color: #3699FF !important;
+            text-decoration: none;
+            font-weight: 700;
+            width: 100%;
+        }
+
+            .GVRepAcercamientosDetalle a:hover {
+                -webkit-transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, -webkit-box-shadow 0.15s ease;
+                transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, -webkit-box-shadow 0.15s ease;
+                transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, box-shadow 0.15s ease;
+                transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, box-shadow 0.15s ease, -webkit-box-shadow 0.15s ease;
+            }
     </style>
 </asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
     Reporte Detalle de los Acercamientos Procesos
 </asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <li>
+            <li></li>
-            </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-    
+
-    <asp:UpdatePanel ID="upDatosRepA" runat ="server" UpdateMode="Conditional" >
+    <asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            
+
-            <div class="Filtros portlet solid grey-cascade portlet-filter">
+            <%--            <div class="Filtros portlet solid grey-cascade portlet-filter">
                 <div class="row">
                     <div class="col-md-2" style="width: 85%">
                         <div class="row">
@@ -141,23 +158,112 @@
                         </div>
                     </div>
                 </div>
+            </div>--%>
+
+            <div class="Filtros">
+                <div class="row">
+                    <div class="col-sm-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-3">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:Label runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-sm-1 text-right">
+                        <br />
+                        <asp:LinkButton ID="LnkConsultar" OnClick="LnkConsultar_Click" runat="server" CssClass="btn btn-default">Consultar</asp:LinkButton>
+                    </div>
+                </div>
+                <div class="row">
+
+                    <div class="col-md-3" style="display: none;">
+                        <div class="form-group form-md-line-input input-iconright ">
+                            <asp:DropDownList ID="DdlGrupo1" runat="server" CssClass="form-control input-sm select2me Widthall">
+                                <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
+                                <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
+                                <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:Label runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-3" style="display: none;">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlGrupo2" runat="server" CssClass="form-control input-sm select2me Widthall">
+                                <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
+                                <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
+                                <asp:ListItem Value="2" Text="Medio Captacion"></asp:ListItem>
+                                <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+                                <asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
+                                <asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
+                            </asp:DropDownList>
+                            <asp:Label runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="">
+                            <asp:Label runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaSolicitudI" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        </div>
+                    </div>
+                    <div class="col-md-2">
+                        <div class="">
+                            <asp:Label runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-bottom: -10px; padding-bottom: 10px;">
+                                <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaSolicitudF" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        </div>
+
+                    </div>
+                </div>
             </div>
-            <asp:GridView ID="GVRepAcercamientosDetalle" runat="server" GridLines="None" CssClass ="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False" DataKeyNames="CveAcercamiento">
+
-                <Columns> 
+            <asp:GridView ID="GVRepAcercamientosDetalle" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVRepAcercamientosDetalle" AutoGenerateColumns="False" DataKeyNames="CveAcercamiento">
+                <Columns>
                     <asp:TemplateField HeaderText="Prospecto">
                         <ItemTemplate>
-                            <asp:HyperLink   href='<%# Eval("Empresa","/{0}")%>' runat="server" Text='<%# Eval("Empresa")%>'>HyperLink</asp:HyperLink>
+                            <asp:HyperLink href='<%# Eval("CveAcercamiento","/CRM/Acercamiento.aspx?CveAcercamiento={0}")%>' runat="server" Text='<%# Eval("Empresa")%>'></asp:HyperLink>
                             <%--<asp:Label ID="lblempresa" runat="server" Text='<%# Eval("Empresa")%>'> </asp:Label>--%>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Vendedor">
                         <ItemTemplate>
-                            <asp:Label ID="lblvendedor" runat="server" Text='<%# Eval("Vendedor")%>'> </asp:Label>
+                            <asp:HyperLink href='<%# Eval("CveAcercamiento","/CRM/Acercamiento.aspx?CveAcercamiento={0}")%>' runat="server" Text='<%# Eval("Vendedor")%>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Nombre Acercamiento">
                         <ItemTemplate>
-                            <asp:Label ID="lblnombreAcercamiento" runat="server" Text='<%# Eval("NombreAcercamiento")%>'> </asp:Label>
+                            <asp:HyperLink href='<%# Eval("CveAcercamiento","/CRM/Acercamiento.aspx?CveAcercamiento={0}")%>' runat="server" Text='<%# Eval("NombreAcercamiento")%>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Medio Captacion">
@@ -195,6 +301,6 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>
 

CRM/RepAcercamientosProcesosDetalle.aspx.cs

@@ -80,7 +80,6 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
     {
         if (!IsPostBack)
         {
-            CargaDdl();
             RCveTipoProceso = Request["CveTipoProceso"] == null ? -1 : Request["CveTipoProceso"].ToString().ToEntero();
             RcveVendedor = Request["cveVendedor"] == null ? -1 : Request["cveVendedor"].ToString().ToEntero();
             RcveMedioCaptacion = Request["cveMedioCaptacion"] == null ? -1 : Request["cveMedioCaptacion"].ToString().ToEntero();
@@ -109,6 +108,7 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
                     break;
             }
             DdlTipoProceso.SelectedValueExist(RCveTipoProceso);
+            CargaDdl();
 
 
             //DdlGrupo1.SelectedValueExist(idgrupo1);
@@ -202,22 +202,22 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
     protected void LnkConsultar_Click(object sender, EventArgs e)
     {
 
-        RCveTipoProceso = DdlTipoProceso.SelectedValue.ToEntero();
+        //RCveTipoProceso = DdlTipoProceso.SelectedValue.ToEntero();
-        switch (RCveTipoProceso)
+        //switch (RCveTipoProceso)
-        {
+        //{
-            case 1:
+        //    case 1:
-                RcveVendedor = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+        //        RcveVendedor = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
-                break;
+        //        break;
-            case 2:
+        //    case 2:
-                RcveMedioCaptacion = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+        //        RcveMedioCaptacion = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
-                break;
+        //        break;
-            case 3:
+        //    case 3:
-                RcveProbabilidadAcercamiento = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
+        //        RcveProbabilidadAcercamiento = Request["CveGrupo1"] == null ? -1 : Request["CveGrupo1"].ToString().ToEntero();
-                break;
+        //        break;
-            case 4:
+        //    case 4:
-                RsFecha = Request["CveGrupo1"] == null ? "" : Request["CveGrupo1"].ToString();
+        //        RsFecha = Request["CveGrupo1"] == null ? "" : Request["CveGrupo1"].ToString();
-                break;
+        //        break;
-        }
+        //}
         RsFechaIni = TxtFechaInicio.Text.Length > 0 ? TxtFechaInicio.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
         RsFechaFin = TxtFechaFin.Text.Length > 0 ? TxtFechaFin.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
         RcveVendedor = DdlVendedor.SelectedValue.ToEntero();

CRM/RepAcercamientosRechazos.aspx.cs

@@ -128,6 +128,12 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
             BoundField test = new BoundField();
             test.DataField = "Grupo1";
             test.HeaderText = "";
+            HyperLinkField hypt = new HyperLinkField();
+            hypt.DataTextField = $"Total";
+            hypt.HeaderText = $"Total";
+            hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" , "Grupo1" };
+            string strfilstros = string.Format("&cveVendedor={0}&cveMedioCaptacion={1}&cveProbabilidadAcercamiento={2}", cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento);
+            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}";
             switch (idgrupo1)
             {
                 case 1:
@@ -145,15 +151,11 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
                 case 4:
                     test.HeaderText = "Fecha";
                     Agrupador = "Fecha";
+                    hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={{2}}&FechaFin={{2}}{strfilstros}";
                     break;
             }
             GVRepAcercamientosEtapas.Columns.Add(test);
 
-            HyperLinkField hypt = new HyperLinkField();
-            hypt.DataTextField = $"Total";
-            hypt.HeaderText = $"Total";
-            hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" };
-            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}";
             GVRepAcercamientosEtapas.Columns.Add(hypt);
             foreach (DataRow row in dte.Rows)
             {

Inventarios/EntradasSalidas.aspx

@@ -695,7 +695,7 @@
                                             <asp:Literal ID="LbCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
                                         </ItemTemplate>
                                     </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="Sección Almacén" Visible="false">
+                                    <asp:TemplateField HeaderText="Sección" Visible="false">
                                         <EditItemTemplate>
                                             <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" CssClass="select2me" runat="server">
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>

Inventarios/EntradasSalidas.aspx.vb

@@ -461,8 +461,8 @@ Partial Class Inventarios_EntradasSalidas
         End If
         DdlClasificacion.DataBind()
 
-        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+        'DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
-        DdlSeccionAlmacen.DataBind()
+        'DdlSeccionAlmacen.DataBind()
 
         DdlSeccionAlmacenEntrada.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
         DdlSeccionAlmacenEntrada.DataBind()
@@ -2397,7 +2397,11 @@ Partial Class Inventarios_EntradasSalidas
         TxtnLote.Text = GvRow.DataKey("Lote")
         TxtnFechaCaducidad.Text = GvRow.DataKey("FechaCaducidad").ToDate.ToShortDateString
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
+
+        DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, GvRow.DataKey("CvePS").ToEntero)
+        DdlSeccionAlmacen.DataBind()
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+
         LkAgregarDetalle.Text = "Actualizar"
         Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
         divPrecio.Visible = Origen = 1
@@ -2426,6 +2430,7 @@ Partial Class Inventarios_EntradasSalidas
         TxtnFechaCaducidad.Text = GvRow.DataKey("FechaCaducidad")
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+
         Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
         divPrecio.Visible = Origen = 1
         txtPrecio.Visible = Origen = 1
@@ -4363,6 +4368,7 @@ Partial Class Inventarios_EntradasSalidas
                                                      CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
             Alert("Error al Actualizar los movimientos")
         Else
+            Alert("Movimiento actualizado correctamente")
             RegistraScript("$('#ModalAgregar').modal('hide')")
         End If
         ObjInventario.Dispose()

Inventarios/EntregaAlmacen.aspx.vb

@@ -1720,10 +1720,10 @@ Partial Class Inventarios_EntregaAlmacen
                         If CBool(Dr("AplicaSerie")) Then
                             DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
                             For Each Dr1 As DataRow In DtDetalle.Rows
-                                StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}""  Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}"" ></concepto>", Dr1("CvePS"), Dr1("CveUM"), 1, IfNull(Dr("CveSeccion"), -1), Dr1("Serie"), Lote, FechaCaducidad.ToString("yyyy/MM/dd"))
+                                StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}"" Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}""></concepto>", Dr1("CvePS"), Dr1("CveUM"), 1, IfNull(Dr("CveSeccion"), -1), Dr1("Serie"), Lote, FechaCaducidad.ToString("yyyy/MM/dd"))
                             Next
                         Else
-                            StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}""  Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}"" ></concepto>", Dr("CvePS"), Dr("CveUM"), Dr("CantidadGV"), IfNull(Dr("CveSeccion"), -1), "-1", Lote, FechaCaducidad.ToString("yyyy/MM/dd"))
+                            StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}"" Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}""></concepto>", Dr("CvePS"), Dr("CveUM"), Dr("CantidadGV"), IfNull(Dr("CveSeccion"), -1), "-1", Lote, FechaCaducidad.ToString("yyyy/MM/dd"))
                         End If
                     End If
                 Next
@@ -1959,9 +1959,16 @@ Partial Class Inventarios_EntregaAlmacen
                         Dr1("CveMovimientoEntrada") = CveMovimientoEntradaApartado
                         Dr1("FolioEntrada") = FolioEntrada
 
-                        If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+                        If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-                            For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+                            Dim CveSeccionAlmacen As Integer = -1
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                            For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+                                If CBool(Dr("AplicaSeccion")) Then
+                                    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExA, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                Else
+                                    CveSeccionAlmacen = -1
+                                End If
+
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                     ErrorMovInv = True
                                     TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                     Exit For

Inventarios/Kardex.aspx.vb

@@ -63,6 +63,7 @@ Partial Class Inventarios_Kardex
 #Region "   INICIALIZA VALORES   "
 
     Private Sub CargaPermisos()
+        If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
         GvM.Columns(13).Visible = TienePermisoImportes ' costo
         GvM.Columns(14).Visible = TienePermisoImportes ' importe

LogIn.aspx

@@ -18,7 +18,7 @@
     <link href="Content/MaterialIcons/css/materialdesignicons.css" rel="stylesheet" />
     <link href="Content/MaterialIcons/css/Materialsicons.css" rel="stylesheet" />
     <%: Styles.Render("~/Metronic/assets/global/css/css") %>
-    
+
     <%: Scripts.Render("~/bundles/modernizr") %>
     <link href="~/Metronic/assets/admin/layout/css/themes/darkblue.css" rel="stylesheet" type="text/css" id="style_color" />
     <link href="Metronic/assets/global/plugins/carousel-owl-carousel/assets/js/google-code-prettify/prettify.css" rel="stylesheet" type="text/css" />
@@ -69,13 +69,13 @@
                             <br />
                             <div class="form-group">
                                 <i class="fa fa-user fa-2 icontxt"></i>
-                                <asp:TextBox ID="txtUsuario" runat="server" CssClass="form-control" placeholder="Usuario" ClientIDMode="Static"></asp:TextBox>
+                                <asp:TextBox ID="txtUsuario" runat="server" CssClass="form-control txtUsuario" placeholder="Usuario" ClientIDMode="Static"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RfvUsuario" runat="server" ControlToValidate="TxtUsuario" Display="Static" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Usuario''</b> es necesario.</span></span>" ValidationGroup="LogIn"></asp:RequiredFieldValidator>
 
                             </div>
                             <div class="form-group">
-                                <i class="fa fa-lock fa-2 icontxt"></i>
+                                <i class="fa fa-lock fa-2 icontxt"></i> 
-                                <asp:TextBox ID="TxtContraseña" runat="server" CssClass="form-control" placeholder="Contraseña" type="password" ClientIDMode="Static"></asp:TextBox>
+                                <asp:TextBox ID="TxtContraseña" runat="server" CssClass="form-control TxtContraseña" placeholder="Contraseña" type="password" ClientIDMode="Static"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RfvContraseña" runat="server" ControlToValidate="TxtContraseña" Display="Static" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Contraseña''</b> es necesario.</span></span>" ValidationGroup="LogIn"></asp:RequiredFieldValidator>
                             </div>
                             <div class="row " style="display: none">
@@ -126,18 +126,33 @@
                     <asp:HiddenField ID="HdfImagenes" ClientIDMode="Static" runat="server" />
                 </ContentTemplate>
             </asp:UpdatePanel>
-        </div> 
+            <iframe id="framexd" style="display:none"></iframe>
+        </div>
         <script type="text/javascript" src="/Metronic/assets/global/scripts/JSNoCustom"></script>
         <%--<script type="text/javascript" src="/Scripts/Notificaciones.js"></script>--%>
         <script>
+            function opennewlocation(returnurl,token) {
+                //let fram = $('#framexd');
+                //let Pagina =
+                //    "http://localhost:2536/auth/login?authtoken=" + token;
+                //    Metronic.blockUI();
+                //fram.unbind("load");
+                //fram.load(function () {
+                //    setTimeout(function () {  document.location = returnurl; },1500) 
+                //    Metronic.unblockUI();
+                //});
+                //fram.prop('src', Pagina);
+
+                 document.location = returnurl;
+            }
             // aqui debe de llammarse siganalr, para desconectar
             function exitsignalr() {
-            let ADSCloseConection = "ADSCloseConection";
+                let ADSCloseConection = "ADSCloseConection";
-            let varreconected = localStorage.getItem(ADSCloseConection);//obtengo la variable para cambiarla y dispara el evento local change
+                let varreconected = localStorage.getItem(ADSCloseConection);//obtengo la variable para cambiarla y dispara el evento local change
-            if (varreconected == "1") {
+                if (varreconected == "1") {
-                localStorage.removeItem(ADSCloseConection);
+                    localStorage.removeItem(ADSCloseConection);
-            } else { localStorage.setItem(ADSCloseConection, "1"); }
+                } else { localStorage.setItem(ADSCloseConection, "1"); }
-            localStorage.removeItem('AdsNotificacionesIsConnected');
+                localStorage.removeItem('AdsNotificacionesIsConnected');
             } exitsignalr();
 
             var prm = Sys.WebForms.PageRequestManager.getInstance();

LogIn.aspx.vb

@@ -1,6 +1,9 @@
 Imports System.Data
+Imports System.IdentityModel.Tokens.Jwt
+Imports System.Security.Claims
 Imports ADSSession
 Imports Extensiones
+Imports Microsoft.IdentityModel.Tokens
 
 Partial Class LogIn
     Inherits System.Web.UI.Page
@@ -28,7 +31,9 @@ Partial Class LogIn
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         '"187.158.96.163" es la de mi casa
         'If (Context.Session("UsuarioSIG") IsNot Nothing) OrElse Not User.Identity.IsAuthenticated Then
-
+        'Request.Headers.Add("Authorization", "Bearer eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJOb21icmUiOiJhZG1pbiIsIkN2ZVVzdWFyaW8iOiIyMDA5IiwiQ3ZlRW1wcmVzYSI6IjIiLCJDdmVQZXJmaWwiOiIyIiwiTWFpbCI6ImFkbWluQGFkbWluLmNvbSIsImV4cCI6MTU5NDY3MzQ2NCwiaXNzIjoiVGVzdC5jb20iLCJhdWQiOiJUZXN0LmNvbSJ9.vmPRxGfxzR10Rf-4Luk2Ej0SVs7w2XGDGJBCyx5VSQI")
+        'Response.AddHeader("Authorization", "Bearer eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJOb21icmUiOiJhZG1pbiIsIkN2ZVVzdWFyaW8iOiIyMDA5IiwiQ3ZlRW1wcmVzYSI6IjIiLCJDdmVQZXJmaWwiOiIyIiwiTWFpbCI6ImFkbWluQGFkbWluLmNvbSIsImV4cCI6MTU5NDY3MzQ2NCwiaXNzIjoiVGVzdC5jb20iLCJhdWQiOiJUZXN0LmNvbSJ9.vmPRxGfxzR10Rf-4Luk2Ej0SVs7w2XGDGJBCyx5VSQI")
+        'Response.End()
         'End If
         Dim iplist As String() = New String() {"", ""}
         If HttpContext.Current.Request.ServerVariables("REMOTE_ADDR").ToString().Contiene(iplist) Then
@@ -71,7 +76,7 @@ Partial Class LogIn
             End If
 
             HdfImagenes.Value = strimg.ToString()
-            TxtUsuario.Focus()
+            txtUsuario.Focus()
             Me.Form.DefaultButton = BtnLogIn.ClientID
             If Request("p") IsNot Nothing AndAlso Request("p") <> "" Then
                 Dim Salida As String = Decripta(Request("p"))
@@ -179,6 +184,14 @@ Partial Class LogIn
         If Request("ReturnUrl") IsNot Nothing Then
             ReturnUrl = Request("ReturnUrl").ToString()
         End If
+        If Not IsNothing(Request("port")) Then
+            Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "")
+            If Request.Url.Port <> 80 Then
+                strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
+            End If
+            ReturnUrl = String.Format("{0}:{1}/{2}", strdomain, Request("port"), ReturnUrl)
+
+        End If
         If BtnLogIn_Clickenter = 0 Then 'esta variable se recicla con cada postaback
             BtnLogIn_Clickenter = 1
             Dim ObjUsuario As New ClsSisUsuarios
@@ -235,11 +248,29 @@ Partial Class LogIn
                         dt.Dispose()
                     End If
 
-                    Dim cookie = FormsAuthentication.GetAuthCookie(Encripta(Usuario.CveUsuario), False)
+                    Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario, False)
-                    'ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.SetAspSig, ASPSIG:=Request.Cookies.Get(".ASPXSIG").Value)
                     Response.Cookies.Add(cookie)
                     'RegistraScript(String.Format("iniciaSesion('{0}')", ReturnUrl.Replace("'", "\'")))
-                    Response.Redirect(ReturnUrl, True)
+
+                    'Public Property CveUsuario As Integer
+                    'Public Property Mail As String
+                    'Public Property Nombre As String
+                    'Public Property Contraseña As String
+                    'Public Property CvePerfil As Integer
+                    'Public Property CveUsuarioModifico As Integer
+                    'Public Property CveEmpresa As Integer
+                    'Public Property CveUsuarioRegistro As Integer
+                    Dim userm As New UserModel()
+                    userm.CveUsuario = Usuario.CveUsuario
+                    userm.Mail = Usuario.Usuario
+                    userm.Nombre = Usuario.Nombre
+                    userm.Contraseña = Usuario.Contraseña
+                    userm.CvePerfil = Usuario.CveRol
+                    userm.CveEmpresa = 119 'Usuario.CveEmpresa
+                    userm.CveUsuarioModifico = Usuario.CveEmpresa
+                    userm.CveUsuarioRegistro = Usuario.CveEmpresa
+                    RegistraScript(String.Format("opennewlocation('{0}','{1}')", ReturnUrl, GenerateJSONWebToken(userm)))
+                    'Response.Redirect(ReturnUrl, True)
                 Else
                     Alert("El usuario no esta autorizado en este equipo, favor de contactar al administrador de usuarios.", TipoMensaje.MsgAdvertencia)
                 End If
@@ -307,4 +338,28 @@ Partial Class LogIn
             End If
         End If
     End Sub
+
+    Public Function GenerateJSONWebToken(ByVal user As UserModel) As String
+        Dim securityKey = New SymmetricSecurityKey(Encoding.UTF8.GetBytes("ThisismySecretKey"))
+        Dim credentials = New SigningCredentials(securityKey, SecurityAlgorithms.HmacSha256)
+        Dim claims = {New Claim("Nombre", user.Nombre), New Claim("CveUsuario", user.CveUsuario.ToString()), New Claim("CveEmpresa", user.CveEmpresa.ToString()), New Claim("CvePerfil", user.CvePerfil.ToString()), New Claim("Mail", user.Mail.ToString())}
+        Dim token = New JwtSecurityToken("Test.com", "Test.com", claims, expires:=DateTime.Now.AddMinutes(120), signingCredentials:=credentials)
+        Return New JwtSecurityTokenHandler().WriteToken(token)
+    End Function
+    Public Class UserModel
+        Public Sub New()
+            Me.CveUsuario = -1
+        End Sub
+
+
+        Public Property CveUsuario As Integer
+        Public Property Mail As String
+        Public Property Nombre As String
+        Public Property Contraseña As String
+        Public Property CvePerfil As Integer
+        Public Property CveUsuarioModifico As Integer
+        Public Property CveEmpresa As Integer
+        Public Property CveUsuarioRegistro As Integer
+    End Class
 End Class
+

RH/ActualizacionMasiva.aspx

@@ -138,6 +138,14 @@
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
                                 </asp:TemplateField>
+                                
+                                <asp:TemplateField  HeaderStyle-Width="80px">
+                                    <HeaderTemplate>¿CALCULAR SDI?</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:CheckBox ID="ChkCalcularSDI" runat="server" />
+                                    </ItemTemplate>
+                                    <ItemStyle HorizontalAlign="Left" />
+                                </asp:TemplateField>
                             </Columns>
                             <RowStyle CssClass="Texto" />
                             <HeaderStyle CssClass="Titulos" />
@@ -190,6 +198,10 @@
                                 </div>
                             </div>
                             <div class="portlet-body rowpadding ">
+                                <div class="row">
+                                    <div class="col-sm-6">Calcular Salario Diario Integrado</div>
+                                    <div class="col-sm-6"> <asp:CheckBox ID="ChkCalcularSDIXLS" Text=" " CssClass="chksino" runat="server" /></div>
+                                </div>
                                 <asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
                             </div>
                         </div>

RH/ActualizacionMasiva.aspx.vb

@@ -204,7 +204,9 @@ Partial Class RH_ActualizacionMasiva
                     '    ObjPersonal.RollBack()
                     '    Exit For
                     'End If
-                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(), Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal()) Then
+                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
+                                                  Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
+                                                  Row.FCCheckBox("ChkCalcularSDI").Checked) Then
 
                     Else
                         OcurrioError = True
@@ -356,7 +358,8 @@ Partial Class RH_ActualizacionMasiva
                         If Not IsNothing(drow) Then
 
                             Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero()
-                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(), Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal()) Then
+                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
+                                                          Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal(), ChkCalcularSDIXLS.Checked) Then
                                 contador = contador + 1
                             Else
                                 OcurrioError = True

RH/Organigrama.aspx

@@ -8,21 +8,24 @@
         .node {
             width: 150px;
             background-color: whitesmoke;
-            font-weight:normal;
+            font-weight: normal;
+        }
+        #chart_div{
+            overflow:auto;
         }
     </style>
     <script type="text/javascript" src="https://www.gstatic.com/charts/loader.js"></script>
     <script type="text/javascript">
-        google.charts.load('current', { packages: ["orgchart"] });
+        //google.charts.load('current', { packages: ["orgchart"] });
-        google.charts.setOnLoadCallback(drawChart);
+        //google.charts.setOnLoadCallback(drawb);
-        
+
 
         function drawChart() {//esta funcion se ejecuta cada vez que se el boton "Consultar" es seleccionado y se ejecuta el metodo "GenerarOrg" en el VB
             var data = new google.visualization.DataTable();
             data.addColumn('string', 'Name');
             data.addColumn('string', 'Manager');
             data.addColumn('string', 'ToolTip');
-            
+
             $.ajax({
                 type: "POST",
                 url: "Organigrama.aspx/FetchData",
@@ -30,16 +33,17 @@
                 contentType: "application/json",
                 dataType: "json",
                 success: function (r) {
-
+                    debugger;
                     var options = {
                         allowHtml: true,
                         size: "large",
                         nodeClass: "node"
                     };
+                    r.d = JSON.parse(r.d);
                     if (r.d.length > 0) {
                         var formatedData = [];
                         for (var i = 0; i < r.d.length; i++) {
-                            let arregloAux = [JSON.parse(r.d[i][0]),i!=0?r.d[i][1]:"", r.d[i][2]]//por cada registro convertimos en JSON los titulos y subtitulos(llegan en String) y damos formato al header
+                            let arregloAux = [JSON.parse(r.d[i][0]), i != 0 ? r.d[i][1] : "", r.d[i][2]]//por cada registro convertimos en JSON los titulos y subtitulos(llegan en String) y damos formato al header
                             formatedData.push(arregloAux);
                         }
                         data.addRows(formatedData);
@@ -110,10 +114,10 @@
                                 </asp:DropDownList>
                                 <i></i>
                             </div>
-                            
+
-                            <div class="col-md-1 truncate" style="text-align: right!important; width: 200px; margin-left:110px">Nivel de cadena de mando: </div>
+                            <div class="col-md-1 truncate" style="text-align: right!important; width: 200px; margin-left: 110px">Nivel de cadena de mando: </div>
                             <div class="col-md-1">
-                                <asp:TextBox runat="server" ID="txtNivel" Style="width:35px"></asp:TextBox>
+                                <asp:TextBox runat="server" ID="txtNivel" Style="width: 35px"></asp:TextBox>
                             </div>
 
                         </div>
@@ -123,6 +127,7 @@
                 <div class="portlet-body magindate" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                 </div>
             </div>
+            <asp:Label ID="LblJson" CssClass="LblJson hidden" runat="server" Text="[]"></asp:Label>
         </ContentTemplate>
     </asp:UpdatePanel>
 
@@ -130,8 +135,45 @@
 
     <div id="chart_div"></div>
 
-
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+    <script>
+        
+        function drawb() {
+            let r = {};
+            var options = {
+                allowHtml: true,
+                size: "large",
+                nodeClass: "node"
+            };
+            var data = new google.visualization.DataTable();
+            data.addColumn('string', 'Name');
+            data.addColumn('string', 'Manager');
+            data.addColumn('string', 'ToolTip');
+            r.d = JSON.parse($('.LblJson').text());
+            if (r.d.length > 0) {
+                var formatedData = [];
+                for (var i = 0; i < r.d.length; i++) {
+                    let arregloAux = [JSON.parse(r.d[i][0]), i != 0 ? r.d[i][1] : "", r.d[i][2]]//por cada registro convertimos en JSON los titulos y subtitulos(llegan en String) y damos formato al header
+                    formatedData.push(arregloAux);
+                }
+                data.addRows(formatedData);
+                var chart = new google.visualization.OrgChart(document.getElementById('chart_div'));
+                for (let i = 0; i < data.getNumberOfRows(); i++) {
+                    data.setRowProperty(i, 'style', "font-weight:normal");
+                }
+                chart.draw(data, options);
+            } else {
+                let contenedor = document.getElementById('chart_div');
+                contenedor.innerHTML = '';
+                console.log('vacio')
+            }
+        }
+
+        function ADSBegin() {
+        google.charts.load('current', { packages: ["orgchart"] });
+        google.charts.setOnLoadCallback(drawb);
+        }
+    </script>
 </asp:Content>
 

RH/Organigrama.aspx.vb

@@ -86,14 +86,8 @@ Partial Class RH_Organigrama
         CveEmpresaFiltro = UsuarioActual.CveEmpresa
         NivelOrg = If(rgx.IsMatch(txtNivel.Text), txtNivel.Text.ToEntero, NivelOrg)
         txtNivel.Text = ""
-        DdlSupervisorOrganigrama.SelectedIndex = 0
+        'DdlSupervisorOrganigrama.SelectedIndex = 0
-        ScriptManager.RegisterClientScriptBlock(Me, [GetType], "mykey", "drawChart()", True) 'ejecutamos la funcion de js para que haga la consulta de los registros
-    End Sub
 
-#End Region
-
-    <WebMethod()>
-    Public Shared Function FetchData() As List(Of Object)
         Dim ObjRH As New ClsRH
         Dim DtTemporal As New DataTable
         Dim chartData As New List(Of Object)()
@@ -110,8 +104,33 @@ Partial Class RH_Organigrama
                 chartData.Add(New Object() {headerEmpleado, If(nombreEmpleado = nombreSuperior, "", nombreSuperior), puesto})
             Next
         End If
+        Dim str As String = (New Script.Serialization.JavaScriptSerializer()).Serialize(chartData)
+        LblJson.Text = str
+        'ScriptManager.RegisterClientScriptBlock(Me, [GetType], "mykey", "drawChart()", True) 'ejecutamos la funcion de js para que haga la consulta de los registros
+    End Sub
 
-        Return chartData
+#End Region
+
+    <WebMethod()>
+    Public Shared Function FetchData() As String
+        Dim ObjRH As New ClsRH
+        Dim DtTemporal As New DataTable
+        Dim chartData As New List(Of Object)()
+
+        If ObjRH.GetOrganigrama(CveEmpresaFiltro, CveCabecera, NivelOrg) Then
+            DtTemporal = ObjRH.DtResultados.Copy
+
+            For Each renglon As DataRow In DtTemporal.Rows
+                Dim nombreEmpleado As String = renglon("nombreEmpleado").ToString
+                Dim nombreSuperior As String = renglon("nombreSuperior").ToString
+                Dim puesto As String = renglon("puesto").ToString
+                Dim headerEmpleado As String = String.Format("{{{2}v{2}:{2}{0}{2},{2}f{2}:{2}{0}<div style='color:#32A1CF;font-size:10px;font-style:italic'>{1}</div>{2}}}", nombreEmpleado, puesto, ControlChars.Quote) 'este es el JSON que da formato a los subtitulos se hace en String y la funcion lo hace JSON
+
+                chartData.Add(New Object() {headerEmpleado, If(nombreEmpleado = nombreSuperior, "", nombreSuperior), puesto})
+            Next
+        End If
+        Dim str As String = (New Script.Serialization.JavaScriptSerializer()).Serialize(chartData)
+        Return str
     End Function
 
 End Class

RH/Personal.aspx

@@ -715,7 +715,7 @@
                                                         <asp:DropDownList ID="DdlSupervisor" runat="server" AppendDataBoundItems="True" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar" Width="100%">
                                                             <asp:ListItem Selected="True" Text="Sin Supervisor Asignado" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
-                                                        <label for="<%= DdlSupervisor.ClientID.ToString()%>">Supervisor RH: </label>
+                                                        <asp:Label AssociatedControlID="DdlSupervisor" runat="server" Text="Supervisor RH:"></asp:Label>
                                                         <i></i>
                                                     </div>
                                                     <div runat="server" id="DivSuperiorInmediato" class="form-group form-md-line-input input-iconright">
@@ -723,7 +723,7 @@
                                                             <asp:ListItem Selected="True" Text="Sin Asignar" Value="-1"></asp:ListItem>
                                                             <asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
                                                         </asp:DropDownList>
-                                                        <label for="<%= DdlSupervisor.ClientID.ToString()%>">Superior Inmediato: </label>
+                                                        <asp:Label AssociatedControlID="DdlSupervisorOrganigrama" runat="server" Text="Superior Inmediato:"></asp:Label>
                                                         <i></i>
                                                     </div>
                                                 </div>
@@ -829,7 +829,7 @@
 
                                                     <asp:UpdatePanel ID="UpUniformesResguardo" runat="server" UpdateMode="Conditional">
                                                         <ContentTemplate>
-                                                            <asp:GridView ID="GvUniformesResguardo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron  registros de uniforme" ToolTip="Listado de familiares"
+                                                            <asp:GridView ID="GvUniformesResguardo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" DataKeyNames="CveAlmacen,CodigoPS,PU,CveUM,CveMovimiento,CveMovimientoDetalle,CvePS,AplicaSeccion,AplicaSerie,CveSeccionAlmacen" ToolTip=""
                                                                 CssClass="table  table-hover table-advance  Widthall" GridLines="None">
                                                                 <Columns>
                                                                     <asp:HyperLinkField DataNavigateUrlFields="CveMovimiento" Target="_blank" HeaderText="Folio" DataNavigateUrlFormatString="../Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataTextField="Folio" />
@@ -3861,13 +3861,18 @@
                     <h4 class="modal-title">Liberar Uniforme</h4>
                 </div>
                 <div class="modal-body">
-                    <asp:UpdatePanel runat="server" ID="UpdatePanel3" UpdateMode="Conditional">
+                    <asp:UpdatePanel runat="server" ID="UPPLiberarUniforme" UpdateMode="Conditional">
                         <ContentTemplate>
-                            <div class="row" style="width: 50%; text-align: center">
+                            <div class="row" style="width: 75%;">
                                 <asp:Label Text="Almacen: " runat="server" Style="width: 20%" />
                                 <asp:DropDownList runat="server" ID="DdlAlmacenDestinoLiberarUniforme" CssClass="form-control input-sm select2me" Style="width: 50%" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
                             </div>
-
+                            <div runat="server" id="divSeccionAlmacen" class="frow" visible="false">
+                                <asp:Label Text="Sección: " runat="server" Style="width: 20%" />
+                                <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 50% !important" runat="server" CausesValidation="true">
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>                            
+                        </div>
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>

RH/Personal.aspx.vb

@@ -271,6 +271,14 @@ Partial Class RH_Personal
         Set(value As Integer)
             ViewState("CveAlmacenUniforme") = value
         End Set
+    End Property
+    Private Property CveSeccionAlmacenUniforme As Integer
+        Get
+            Return CInt(ViewState("CveSeccionAlmacenUniforme"))
+        End Get
+        Set(value As Integer)
+            ViewState("CveSeccionAlmacenUniforme") = value
+        End Set
     End Property
 
     Private Property DescripcionUniforme As String
@@ -302,7 +310,7 @@ Partial Class RH_Personal
 
     Private Property PU As Decimal
         Get
-            Return CInt(ViewState("PU"))
+            Return ViewState("PU").ToString.ToDecimal
         End Get
         Set(value As Decimal)
             ViewState("PU") = value
@@ -5080,22 +5088,27 @@ Partial Class RH_Personal
     End Sub
 
     Protected Sub LbLiberarUniforme(sender As Object, e As System.EventArgs)
-        Dim lb As LinkButton = CType(sender, LinkButton)
+        Dim lb As LinkButton = CType(sender, LinkButton)
-
+
-        Dim row As GridViewRow = CType(lb.NamingContainer, GridViewRow)
+        Dim row As GridViewRow = CType(lb.NamingContainer, GridViewRow)
-        Dim index As Integer = row.DataItemIndex
+
-
+        CveAlmacenUniforme = row.DataKey("CveAlmacen").ToString().ToEntero
-        Dim rowInfo As DataRow = UniformesInfo.Rows(index)
+        DescripcionUniforme = row.DataKey("CodigoPS")
+        PU = row.DataKey("PU").ToString().ToDecimal
+        CveSeccionAlmacenUniforme = row.DataKey("CveSeccionAlmacen").ToString().ToEntero
+        CveUM = row.DataKey("CveUM").ToString().ToEntero
+        CvePS = row.DataKey("CvePS").ToString().ToEntero
+        CveMovimientoUniforme = row.DataKey("CveMovimiento").ToString().ToEntero
+        CveMovimientoDetalleUniforme = row.DataKey("CveMovimientoDetalle").ToString().ToEntero
+        If row.DataKey("AplicaSeccion").ToString = "True" Then
+            divSeccionAlmacen.Visible = True
+            DdlSeccionAlmacen.Items.Clear()
+            DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS)
+            DdlSeccionAlmacen.DataBind()
+        End If
 
 
-        CveAlmacenUniforme = rowInfo.Item("CveAlmacen").ToString().ToEntero
+        UPPLiberarUniforme.Update()
-        DescripcionUniforme = rowInfo.Item("CodigoPS").ToString()
-        PU = rowInfo.Item("PU").ToString().ToDecimal
-
-        CveUM = rowInfo.Item("CveUM").ToString().ToEntero
-        CvePS = rowInfo.Item("CvePS").ToString().ToEntero
-        CveMovimientoUniforme = rowInfo.Item("CveMovimiento").ToString().ToEntero
-        CveMovimientoDetalleUniforme = rowInfo.Item("CveMovimientoDetalle").ToString().ToEntero
 
         RegistraScript(String.Format("$('#{0}').modal();", "ModalUniforme"))
     End Sub
@@ -5108,20 +5121,25 @@ Partial Class RH_Personal
 
     Sub LiberarUniforme(sender As Object, e As EventArgs)
 
-        Dim ObjInv As New ClsInventarios
+        Dim ObjInventario As New ClsInventarios
+        ObjInventario.IniciaTransacSQL()
 
-        Dim ResultadoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=CInt(DdlAlmacenDestinoLiberarUniforme.SelectedValue), CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
+        Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
-        Dim ResultadoEntrada As Integer = ObjInv.AddMovimiento(CInt(DdlAlmacenDestinoLiberarUniforme.SelectedValue), 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
+        Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
-
+        Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
-        Dim ResultadoDetalleSalida As Boolean = ObjInv.AddMovimientoDetalle(ResultadoSalida, 1.0, CveUM, CvePS, PU, -1, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
+        Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
-        Dim ResultadoDetalleEntrada As Boolean = ObjInv.AddMovimientoDetalle(ResultadoEntrada, 1.0, CveUM, CvePS, PU, -1)
+        Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen)
 
         If ResultadoDetalleSalida And ResultadoDetalleEntrada Then
+            ObjInventario.Commit()
             Alert("Uniforme liberado")
             RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme"))
-            CargaUniformesPersonal()
+            CargaUniformesPersonal()
+        Else
+            Alert("No se pudo registrar la liberación.", TipoMensaje.MsgError)
+            ObjInventario.RollBack()
         End If
-        ObjInv.Dispose()
+        ObjInventario.Dispose()
     End Sub
 
 
@@ -5130,7 +5148,7 @@ Partial Class RH_Personal
 
 #Region "CARGAR IMAGEN"
     Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click
-        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
+        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchivo"))
     End Sub
 
     Private Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click