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

2020-09-24 19:00:01 -07:00
parent f31cc37ee9 79c9d30fcf
commit 6545c5db22
19 changed files with 474 additions and 42 deletions
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2410,7 +2410,7 @@ Public Class ClsGenerales
    Public Function GetHistorialBitacora(CveAcarreo As Integer, CveOrdenCompra As Integer, CveActivoFijo As Integer,
                                         CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer,
                                         CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1,
-                                         Optional IdPoliza As Integer = -1) As Boolean
+                                         Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Gral_HistorialBitacoraGet")

@@ -2422,6 +2422,7 @@ Public Class ClsGenerales
            .Add("@CvePS", SqlDbType.Int).Value = CvePS
            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
            .Add("@CveIE", SqlDbType.Int).Value = CveIE
+            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -319,7 +319,7 @@ Public Class ClsMovimientos
    End Function

    Public Function GetCxCDetalle(FechaI As String, FechaF As String, CveCliente As Integer, CveSubProyecto As Integer, CveVendedor As Integer, CveUsuario As Integer, Anio As Integer, Mes As Integer,
-                                 AnioMes As String, Fecha As String, CveClienteSucursal As Integer, Opcion As String, CveEstatus As Integer, IVA As String, Agrupador As Integer, CveEmpresa As Integer,
+                                 AnioMes As String, Fecha As String, CveClienteSucursal As Integer, Opcion As String, CveEstatus As Integer, IVA As String, Agrupador As Integer, CveEmpresa As Integer,
                                  CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
                                  Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
                                  Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1,
@@ -361,10 +361,10 @@ Public Class ClsMovimientos
            .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus
            .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
            .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito
-            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
-            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
-
+            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+            .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
+
        End With

        Try
@@ -545,7 +545,7 @@ Public Class ClsMovimientos



-        Try
+        Try
            SqlAdapter.SelectCommand.CommandTimeout = 0

            SqlAdapter.Fill(Data)
@@ -863,8 +863,8 @@ Public Class ClsMovimientos
        DataAdapter("PA_Banc_ReporteChequesFYEGet")

        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
            .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
        End With

@@ -1190,9 +1190,9 @@ Public Class ClsMovimientos

    Public Function GetCxPDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveProveedorClasificacion As Integer, CveProveedorSucursal As Integer, CveUsuario As Integer,
                                  CveUsuarioResponsable As Integer, Anio As Integer, Mes As Integer, AnioMes As String, CveMoneda As Integer, CveSubProyecto As Integer,
-                                  CveEstatusFactura As Integer, Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer,
-                                  TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional FechaVI As String = "-1", Optional FechaVF As String = "1",
-                                  Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1,
+                                  CveEstatusFactura As Integer, Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer,
+                                  TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional FechaVI As String = "-1", Optional FechaVF As String = "1",
+                                  Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1,
                                  Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1) As Boolean

        Dim Retorno As Boolean = False
@@ -1292,8 +1292,8 @@ Public Class ClsMovimientos
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
            .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica
-            .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso
-            .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+            .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso
+            .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
            .Add("@FechaF", SqlDbType.DateTime).Value = FechaF

        End With
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3786,6 +3786,7 @@ Public Class ClsPaginas

            PaginaDict.Add("/Prospectos/PopUpBuscarProspectos.aspx".ToUpper(), -1)
            PaginaDict.Add("/Sistemas/PopUpCambiaUsuario.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Sistemas/PopUpCambiaUsuarioEmpresa.aspx".ToUpper(), -1)
            PaginaDict.Add("/Sistemas/CatDistribuidores.aspx".ToUpper(), -1)
            PaginaDict.Add("/Sistemas/CatPlataformas.aspx".ToUpper(), -1)
            PaginaDict.Add("/Sistemas/PopUpAddUsuario.aspx".ToUpper(), -1)
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1620,7 +1620,7 @@ Public Class ClsVentas

    Public Function GetRepPSEcono(CveSubProyecto As Integer, CvePS As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1, Optional GPO As Integer = -1,
                                  Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0,
-                                  Optional Clasificacion As String = "-1", Optional Linea As String = "-1", Optional Marca As String = "-1") As Boolean
+                                  Optional Clasificacion As String = "-1", Optional Linea As String = "-1", Optional Marca As String = "-1", Optional orden As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_RepPSEconoGet")

@@ -1638,6 +1638,7 @@ Public Class ClsVentas
            .Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion
            .Add("@Linea", SqlDbType.VarChar).Value = Linea
            .Add("@Marca", SqlDbType.VarChar).Value = Marca
+            .Add("@Orden", SqlDbType.VarChar).Value = orden
        End With

        Try
--- a/App_Code/Usuario.vb
+++ b/App_Code/Usuario.vb
@@ -71,6 +71,16 @@ Public Class Usuario
            End If
        End Get
    End Property
+    Private _modoSimulacionXEmpresa As Boolean = False
+    Public Property ModoSimulacionXEmpresa As Boolean
+        Get
+            Return Not ModoSimulacion AndAlso (_modoSimulacionXEmpresa OrElse TienePermisoProceso(308))
+        End Get
+        Set(value As Boolean)
+
+            _modoSimulacionXEmpresa = value
+        End Set
+    End Property

    Public Property Sesion(Campo As String) As String
        Get
--- a/Contabilidad/RegPrePoliza.aspx
+++ b/Contabilidad/RegPrePoliza.aspx
@@ -497,6 +497,42 @@
            </td>
        </tr>
    </table>
+    <asp:UpdatePanel runat="server" ID="UpBitacora" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="row">
+                <div class="col-md-12">
+                    <div class="portlet light bordered xspadding">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">Historial de Modificación</span>
+                            </div>
+                            <div class="actions">
+                                <div class="btn-group">
+                                </div>
+                            </div>
+                        </div>
+                        <div class="portlet-body">
+                            <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn" CellSpacing="0" AutoGenerateColumns="False">
+                                <Columns>
+                                    <asp:TemplateField>
+                                        <HeaderTemplate>Fecha</HeaderTemplate>
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
+                                </Columns>
+                            </asp:GridView>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>

    <div id="DivContadoModal" align="center" class="modal ADS fade" role="dialog">
        <div class="modal-dialog" style="width: 450px;">
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -209,6 +209,7 @@ Partial Class ContabilidadC_RegPrePoliza
                ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
                CreaDT()
                CargaPrePoliza()
+                CargaGvBitacora()
                If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
                    GvPrePoliza.Columns(4).Visible = False
                    GvConcepto.Columns(4).Visible = False
@@ -1643,5 +1644,15 @@ Partial Class ContabilidadC_RegPrePoliza
        End If
        ObjCompras.Dispose()
    End Sub
+
+    Private Sub CargaGvBitacora()
+        ' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017
+        Dim ObjGral As New ClsGenerales()
+        If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
+            GvBitacora.DataSource = ObjGral.DtResultados
+            GvBitacora.DataBind()
+        End If
+        ObjGral.Dispose()
+    End Sub
 End Class

--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/Inventarios/ResguardoMaterial.aspx.vb
@@ -346,6 +346,11 @@ Partial Class Inventarios_ResguardoMaterial
                    ThSerie.Visible = True
                    TrSerie.Visible = True
                    TxtnSerie.Visible = True
+                Else
+                    ThSerie.Visible = False
+                    TrSerie.Visible = False
+                    TxtnSerie.Visible = False
+                    TxtnSerie.Text = ""
                End If

                'activa seccion
@@ -368,13 +373,19 @@ Partial Class Inventarios_ResguardoMaterial
                If CBool(drp("AplicaLote")) Then
                    ThLote.Visible = True
                    TrLote.Visible = True
-                    'TxtLote.Visible = True
+                Else
+                    ThLote.Visible = False
+                    TrLote.Visible = False
+                    TxtLote.Text = ""
                End If
                'activa caducidad
                If CBool(drp("AplicaCaducidad")) Then
                    ThCaducidad.Visible = True
                    TrCaducidad.Visible = True
-                    'TxtCaducidad.Visible = True
+                Else
+                    ThCaducidad.Visible = False
+                    TrCaducidad.Visible = False
+                    TxtCaducidad.Text = ""
                End If

            Else
--- a/Nomina/Nomina2.aspx
+++ b/Nomina/Nomina2.aspx
@@ -253,19 +253,19 @@
                                    </div>
                                </div>
                                <div style="float: right;">
-                                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="FiltrarTabla('#TxtBusqueda','.GvNominas')" style="display: inline-block; margin-right: -20px; width: 150px;">
-                                    <a href="javascript:;" onclick="FiltrarTabla('#TxtBusqueda','.GvNominas')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold yellow-gold"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
+                                    <asp:TextBox CssClass="TxtBusqueda form-control input-sm" runat="server" onkeyup="FiltrarTablaFreezcol('.TxtBusqueda','.GvNominas')" Style="display: inline-block; margin-right: -20px; width: 150px;"></asp:TextBox>
+                                    <a href="javascript:;" onclick="FiltrarTablaFreezcol('.TxtBusqueda','.GvNominas')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold yellow-gold"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
                                </div>
                            </div>
                            <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
                                <asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePeriodo,CvePersonal,CveNomina,SeTimbro,SerieFolio,Nombre,Correo,Codigo,Turno,SubProyecto,NomAutorizado" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound"
-                                    CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2">
+                                    CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2" data-heighterror="360">
                                    <Columns>

                                        <asp:TemplateField>
                                            <HeaderTemplate></HeaderTemplate>
                                            <ItemTemplate>
-                                                <asp:LinkButton ID="LnkSobreRecibo"  OnClick="LnkSobreRecibo_Click" runat="server"><i class='fa fa-list-alt'></i></asp:LinkButton>
+                                                <asp:LinkButton ID="LnkSobreRecibo" OnClick="LnkSobreRecibo_Click" runat="server"><i class='fa fa-list-alt'></i></asp:LinkButton>
                                            </ItemTemplate>
                                            <ItemStyle Width="20px" HorizontalAlign="Left" />
                                        </asp:TemplateField>
@@ -1558,7 +1558,7 @@
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
    <script>
-
+        
        function shownew() {

            setTimeout(function () {
@@ -1626,6 +1626,7 @@
            <%= String.Format("$('#{0}').click();", btnasis.ClientID) %>
        }
        function ADSBegin() {
+            debugger;
            if ($('.GvConceptos .thTituloConcepto').length == 0) {
                $('.GvConceptos').prepend("<tr class=\"thTituloConcepto\"> <th scope=\"col\" colspan=\"3\">Percepciones</th><th scope=\"col\" colspan=\"3\">Deducciones</th> </tr>");
            }
@@ -1635,12 +1636,11 @@
            //$('.GvConceptossimulador').append($('#Totalesperdeduccion'));
            $('.GvConceptossimulador').append($('#trnetoapagar'));
        }
-        function FiltrarTabla(idtxt, idtable, idcontador) {
-            if ($('' + idtxt).val() == '') { $('table' + idtable + ' tr').css('display', ''); }
-            else { $('table' + idtable + ' tr:not(.ADtr):not(.SearchADHeader):not(.Titulos)').css('display', 'none'); $('table' + idtable + ' tr:contains("' + $('' + idtxt).val() + '")').css('display', ''); }
-            if ($('' + idcontador).length > 0) {
-                $('' + idcontador).html('(' + $('' + idtable + ' tr:not(.ADtr):not(.SearchADHeader):visible').length + '/' + $('' + idtable + ' tr:not(.ADtr):not(.SearchADHeader)').length + ')');
-            }
+        
+        function ADSReady() {
+            
+            setTimeout(function () { FiltrarTablaFreezcol('.TxtBusqueda', '.GvNominas');}, 250);
+            
        }
    </script>
 </asp:Content>
--- a/Scripts/custom.js
+++ b/Scripts/custom.js
@@ -76,6 +76,30 @@ function FiltrarTabla(idtxt, idtable, idcontador) {
    }
 }

+
+function FiltrarTablaFreezcol(idtxt, idtable, idcontador) {
+    if ($('' + idtxt).val() == '') { $('div.ADSCroll:not(.RHeader) table' + idtable + ' tr').css('display', ''); }
+    else {
+        let idxlist = [];
+        $('div.ADSCroll:not(.RHeader) table' + idtable + ' tr:contains("' + $('' + idtxt).val() + '")').each(function () { let idx = $(this).index(); idxlist.push(idx) });
+
+        idxlist = idxlist.filter((x, i, a) => a.indexOf(x) == i)
+        $('div.ADSCroll:not(.RHeader) table' + idtable + ' tr:not(.ADtr):not(.SearchADHeader):not(.ADSRow):not(.Titulos)').each(function () {
+            let _tthis = $(this);
+            let idx = _tthis.index();
+            if (idxlist.includes(idx)) {
+                _tthis.css('display', '');
+            } else {
+                _tthis.css('display', 'none');
+
+            }
+        });
+    }
+    if ($('' + idcontador).length > 0) {
+        $('' + idcontador).html('(' + $('div.ADSCroll:not(.RHeader) ' + idtable + ' tr:not(.ADtr):not(.ADSRow):not(.SearchADHeader):visible').length + '/' + $('div.ADSCroll:not(.RHeader) ' + idtable + ' tr:not(.ADtr):not(.ADSRow):not(.SearchADHeader)').length + ')');
+    }
+}
+
 function clonsbuttons() {
    var copiasdelete = $('.clonehbutton_copy');
    if (copiasdelete) {
@@ -321,8 +345,8 @@ function ADScroller2() {
            var widthGral = $(document).width() - WidthMenos;
            var heightGral = $(window).height() - HeightMenos;
            if (Heightfijo > 0) { heightGral = Heightfijo; }
-            if (widthGral < 100) { widthGral = 100; }
-            if (heightGral < 100) { heightGral = 100; }
+            if (widthGral < 300) { widthGral = 300; }
+            if (heightGral < 300) { heightGral =300; }

            widthGral = Tthis.parent().parent().width();
            Tthis.removeClass('ADSCROLLER2');
@@ -420,7 +444,7 @@ function ADScroller2() {

            var anchoc1 = divheader1.outerWidth();
            var altoc1 = divheader1.outerHeight() + 15;
-            divheaderScroll = $('<div class="ADSCroll" style="width:' + (widthGral - anchoc1) + 'px;"></div>').append(THeader2);
+            divheaderScroll = $('<div class="ADSCroll RHeader" style="width:' + (widthGral - anchoc1) + 'px;"></div>').append(THeader2);
            divheader2.append(divheaderScroll);

            contenedor.append(divcenter);
@@ -459,24 +483,29 @@ function ADScroller2() {
                    contenedor.css('width', sizetable + altoc1);
                }
            };
-            $(window).resize(function () {
+            let resizefncscroller = function () {
+
                var widthGral = $(window).width() - WidthMenos;
                /*console.log(widthGral);*/
                contenedor.css('width', 1);
                widthGral = Tthis.parent().parent().parent().parent().parent().width();
                /* console.log(widthGral);*/
                var heightGral = $(window).height() - HeightMenos;
+                //console.log(heightGral);
                if (Heightfijo > 0) { heightGral = Heightfijo; }
-                if (widthGral < 100) { widthGral = 100; }
-                if (heightGral < 100) { heightGral = 100; }
+                if (widthGral < 300) { widthGral = 300; }
+                if (heightGral < 300) { heightGral = 300; }
                contenedor.css('width', widthGral);
                divheader.css('width', widthGral);
                divcenter.css('width', widthGral);
                divheaderScroll.css('width', (widthGral - anchoc1));
-                divcolsScroll.css('height', (heightGral - altoc1+20));
+                divcolsScroll.css('height', (heightGral - altoc1 + 20));
                divbodyScroll.css('width', (widthGral - anchoc1));
                divbodyScroll.css('height', (heightGral - altoc1 + 20));
-                setTimeout(sizeoftablefunc, 100);
+            };
+            $(window).resize(function () {
+                setTimeout(resizefncscroller, 50);
+                setTimeout(sizeoftablefunc, 150);
            });

            $('table#ADCol' + Tid + ' tr').hover(
@@ -731,12 +760,13 @@ function loadadscroll() {
            if (height < 200) {
                height = 200;
            }
-            TThis.data('height', height)
+            TThis.data('height', height);
        }
        //ADSCROLLER2    

        var colVisibles = isNaN(Number(TThis.data('cols'))) ? 0 : Number(TThis.data('cols'));
        if (colVisibles > 0) {
+            if ((Number(TThis.data('heighterror'))) && !(Number(TThis.data('heightmenos')))) { TThis.data('heightmenos', TThis.data('heighterror'));}  
            TThis.removeClass("ScrollAD");
            TThis.addClass("ADSCROLLER2");
        } else {
@@ -1913,7 +1943,6 @@ jQuery(document).ready(function () {
            }
        });
        ADSReady();
-
    }
    if (("Notification" in window)) {
        if (Notification.permission !== 'denied') {
--- a/Sistemas/PopUpCambiaUsuario.aspx
+++ b/Sistemas/PopUpCambiaUsuario.aspx
@@ -26,7 +26,7 @@
                        <asp:DropDownList ID="DdlEmpresa" runat="server" AutoPostBack="true" DataTextField="Empresa" DataValueField="CveEmpresa" style="width:100%;" Class="form-control  select2me"></asp:DropDownList>
                     </div>
                    <div class="has-info col-sm-6">
-                                <asp:TextBox id="TxtBusqueda" CssClass="form-control input-sm" placeholder=""  style="width:100%"  runat="server" ClientIDMode="Static"/></label>
+                                <asp:TextBox id="TxtBusqueda" CssClass="form-control input-sm" placeholder=""  style="width:100%"  runat="server" ClientIDMode="Static"/> 
                                <asp:Button ID="BtnFiltrar" runat="server" Text="Filtrar" class="btn btn-primary" style="display: none;"/>
                    </div>
                </div>
--- a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx
+++ b/Sistemas/PopUpCambiaUsuarioEmpresa.aspx
@@ -0,0 +1,85 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpCambiaUsuarioEmpresa.aspx.vb" Inherits="Sistemas_PopUpCambiaUsuarioEmpresa" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+    <link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Cambio de Usuario
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:Panel ID="PnlGral" runat="server">
+        <asp:UpdatePanel ID="UPPGral" runat="server">
+            <ContentTemplate>
+                <h4>&nbsp;Usuario Actual:&nbsp;&nbsp;<asp:Label ID="LblUsuario" runat="server" Text="" Font-Bold="True"></asp:Label><br />
+                </h4>
+                <div class="row">
+<%--                    <div class="col-sm-6">
+                        <asp:Label AssociatedControlID="DdlEmpresa" runat="server" Text="Empresa:"></asp:Label></div>--%>
+                    <div class="col-sm-6">Nombre de Usuario:</div>
+                </div>
+                <%--<div class="row">
+                    <div class="col-sm-6"> 
+                        <asp:DropDownList ID="DdlEmpresa" runat="server" AutoPostBack="true" DataTextField="Empresa" DataValueField="CveEmpresa" style="width:100%;" Class="form-control  select2me"></asp:DropDownList>
+                     </div>
+                    <div class="has-info col-sm-6">
+                    </div>
+                </div>--%>
+                <asp:TextBox ID="TxtBusqueda" CssClass="form-control input-sm" placeholder="" Style="width: 100%" runat="server" ClientIDMode="Static" /> 
+                <asp:Button ID="BtnFiltrar" runat="server" Text="Filtrar" class="btn btn-primary" Style="display: none;" />
+
+                <div>
+                    <asp:GridView ID="gvUsuarios" runat="server" data-sort="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD " AutoGenerateColumns="False" ClientIDMode="Static" DataKeyNames="Usuario,Contraseña,CveEmpresa" GridLines="None">
+                        <Columns>
+                            <asp:TemplateField HeaderText="Nombre">
+                                <ItemTemplate>
+                                    &nbsp;
+                                    <asp:LinkButton ID="LnkNombre" runat="server" CssClass="Texto"
+                                        Text='<%#String.Format("{0}({1})", Eval("Nombre"), Eval("Usuario")) %>' ToolTip='<%# Eval("CveUsuario") %>' CommandName="Usuarios" CommandArgument='<%# eval("CveUsuario") %>'></asp:LinkButton>
+                                </ItemTemplate>
+                                <%--                                <ItemStyle Width="250px" />
+                                <HeaderStyle CssClass="Titulo" HorizontalAlign="Center" />--%>
+                            </asp:TemplateField>
+                            <asp:BoundField DataField="Rol" HeaderText="Rol" DataFormatString="&nbsp;{0}">
+                                <ItemStyle HorizontalAlign="Left" Width="150px" />
+                            </asp:BoundField>
+                        </Columns>
+                        <%--         <RowStyle CssClass="Texto" Height="19px" />
+                        <HeaderStyle CssClass="Titulo" />
+                        <AlternatingRowStyle CssClass="TextoAlterno" />--%>
+                    </asp:GridView>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </asp:Panel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+
+
+    <script type="text/javascript">
+
+        jQuery(document).ready(function () {
+            buscarDT();
+            Sys.Application.add_load(function (s, e) {
+                buscarDT();
+            });
+        });
+        function buscarDT() {
+            $('#TxtBusqueda').on('keyup', function () {
+                if (this.value == '') {
+                    $('table#' + $(this).attr('data-table') + ' tr').css('display', 'table-row');
+                } else {
+                    $('table#' + $(this).attr('data-table') + ' tr').css('display', 'none');
+                    $('table#' + $(this).attr('data-table') + ' tr:contains("' + this.value + '")').css('display', 'table-row');
+                }
+            });
+        }
+
+
+    </script>
+</asp:Content>
--- a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
+++ b/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
@@ -0,0 +1,187 @@
+Imports ADSSession
+Imports Extensiones
+Imports System.Data
+
+Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
+    Inherits ClsPaginas
+
+    Property DTUsuarios() As Data.DataTable
+        Get
+            Return CType(ViewState("DTUsuarios"), DataTable)
+        End Get
+        Set(value As Data.DataTable)
+            ViewState("DTUsuarios") = value
+        End Set
+    End Property
+
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            ViewState("Orden") = ""
+
+            If Not (UsuarioActual.CveRol = 1 OrElse UsuarioActual.ModoSimulacionXEmpresa) Then
+                PnlGral.Visible = False
+                RegistraScript("window.close();")
+            End If
+
+            'Dim DtEmp As DataTable = GlobalDTEmpresas.Copy
+            Dim NombreEmp As String = UsuarioActual.Empresa.Empresa
+            '''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
+            ''If UsuarioActual.CveUsuario = 100 Then
+
+            ''    Dim customerRow() As Data.DataRow
+            ''    customerRow = DtEmp.Select("")
+
+            ''    For Each drt As DataRow In customerRow
+            ''        drt("Empresa") = "Mi Empresa de ventas (" & drt("CveEmpresa") & ")"
+            ''    Next
+
+
+            ''End If
+
+            CType(Me.Master, BaseMasterPage).EsPopup = True
+            LblUsuario.Text = String.Format("{0} - {1}", UsuarioActual.Nombre, UsuarioActual.Empresa.Empresa)
+
+
+            'DdlEmpresa.DataSource = DtEmp '.FiltraParametros(If(UsuarioActual.CveRol = 1, "CvePlataforma IN (1,2)", $"CvePlataforma={UsuarioActual.Empresa.CvePlataforma}"))
+            Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString()
+
+            Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
+            If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
+                CveEmpresa = 119
+            End If
+
+            If splitedtext.Length > 0 Then
+                Select Case splitedtext(0).ToUpper()
+                    Case "VSH" : CveEmpresa = "7"
+                    Case "JAM" : CveEmpresa = "119"
+                    Case "COMPUPROVEEDORES" : CveEmpresa = "72"
+                    Case "DNDIFUSA" : CveEmpresa = "80"
+                    Case "SOGO" : CveEmpresa = "8"
+                    Case "BDH" : CveEmpresa = "140"
+                    Case "ECONOLLANTAS" : CveEmpresa = "141"
+                End Select
+            End If
+            'DdlEmpresa.DataBind()
+            'DdlEmpresa.SelectedValue = CveEmpresa
+
+            'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
+            'DdlRol.DataBind()
+            'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
+
+            TxtBusqueda.Attributes.Add("data-table", gvUsuarios.ClientID)
+
+            CargaUsuarios()
+            'LblUsuario.Text = usuarioactual.
+
+        End If
+    End Sub
+
+
+    Protected Sub gvUsuarios_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles gvUsuarios.RowCommand
+        If e.CommandName = "Usuarios" Then
+            Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
+            'Dim Dt As DataTable = GlobalDTUsuarios(e.CommandArgument.ToString.ToEntero)
+            Dim multiempresa As Boolean = ADSSessionConfig.sessionUser.MultipleEmpresa
+            Dim objempresa As Empresa = ADSSessionConfig.sessionUser.Empresa
+            If gvr IsNot Nothing Then
+
+                Dim tUsuario, tContraseña As String
+                Dim tCveEmpresa As Integer
+                tUsuario = gvr.DataKey("Usuario").ToString
+                tContraseña = gvr.DataKey("Contraseña").ToString
+                tCveEmpresa = gvr.DataKey("CveEmpresa").ToString.ToEntero
+
+                Dim ObjUsuario As New ClsSisUsuarios
+                Dim Usuario As Usuario
+                'Dim UsuarioAsignaciones As Usuario
+
+                Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
+                'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa)
+                ObjUsuario.Dispose()
+
+                If Usuario IsNot Nothing Then
+                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                    ADSSessionConfig.sessionUser = Usuario
+                    ADSSessionConfig.sessionUser.CvePlataforma = 1
+                    If Usuario.CveRol = 1200 Then
+                        ADSSessionConfig.sessionUser.CvePlataforma = 3
+                    End If
+                    ADSSessionConfig.sessionDpage = False
+                    ADSSessionConfig.sessionUser.MultipleEmpresa = multiempresa
+                    ADSSessionConfig.sessionUser.ModoSimulacion = False
+                    ADSSessionConfig.sessionUser.ModoSimulacionXEmpresa = True
+
+                    UsuarioActual.Empresa = objempresa
+                    dt.Dispose()
+
+                    If UsuarioActual.CveCliente > 0 Then
+                        CargaZonasHorarias(UsuarioActual)
+                    End If
+                End If
+
+                RegistraScript("gotourl();")
+
+            End If
+
+        End If
+    End Sub
+    Private Sub CargaZonasHorarias(ByRef UsuarioActual As Usuario)
+        Dim ObjClientes As New ClsClientes
+        Try
+            If ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=1) Then
+                If ObjClientes.DtResultados.Rows.Count = 1 Then
+                    UsuarioActual.UTCOffset = ObjClientes.DtResultados(0)("UTCOffset").ToString().ToEntero()
+                End If
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la zona horaria.", ex)
+        Finally
+            ObjClientes.Dispose()
+        End Try
+    End Sub
+
+    Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs) Handles BtnFiltrar.Click
+        CargaUsuarios()
+    End Sub
+
+#Region "O R D E N A M I E N T O"
+    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
+        Dim Orden As String = ""
+        Dim Campo As String = ""
+        Dim Literal As Literal = Nothing
+        Const OrdenInicial As String = ""
+        Dim Arg(2) As String
+
+        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
+        Campo = Arg(0)
+        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
+
+        If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
+            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
+            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
+        Else
+            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
+            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
+        End If
+        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
+        ViewState("Orden") = Orden
+        CargaUsuarios(Orden)
+    End Sub
+
+    Private Sub CargaUsuarios(Optional Orden As String = "Nombre")
+        Dim dtt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("CveRol <> 1")
+        dtt = dtt.FiltraParametros("Estatus = 1", Orden, {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol"})
+        gvUsuarios.DataSource = dtt
+        gvUsuarios.DataBind()
+
+        If (gvUsuarios.Rows.Count > 0) Then
+            gvUsuarios.UseAccessibleHeader = True
+            gvUsuarios.HeaderRow.TableSection = TableRowSection.TableHeader
+        End If
+        TxtBusqueda.Focus()
+    End Sub
+
+#End Region
+End Class
--- a/Site.master
+++ b/Site.master
@@ -267,6 +267,7 @@
                                    <i class="fa fa-angle-down"></i>
                                </a>
                                <ul class="dropdown-menu dropdown-menu-default">
+                                    <li runat="server" id="DivCambiarUsuarioEmpresa" visible="false"><a runat="server" id="BtnCambiarUsuarioEmpresa" style="cursor: pointer;"><i class="fa fa-exchange"></i>Cambiar Usuario</a></li>
                                    <li runat="server" id="DivCambiarUsuario" visible="false"><a runat="server" id="BtnCambiarUsuario" style="cursor: pointer;"><i class="fa fa-exchange"></i>Cambiar Usuario</a></li>
                                    <li runat="server" id="DivCambiarEmpresa" visible="false"><a runat="server" id="BtnCambiarEmpresa" style="cursor: pointer;"><i class="fa fa-exchange"></i>Cambiar Empresa</a></li>
                                    <li class="divider"></li>
--- a/Site.master.vb
+++ b/Site.master.vb
@@ -168,6 +168,10 @@ Partial Class Site
                DivCambiarUsuario.Visible = True
                BtnCambiarUsuario.Attributes.Add("onclick", "javascript:AbrirVentana('/Sistemas/PopUpCambiaUsuario.aspx');")
            End If
+            If UsuarioActual.ModoSimulacionXEmpresa Then '.TienePermisoProceso(ADSSession.ADSSessionConfig.procesomodosimulacion) Then
+                DivCambiarUsuarioEmpresa.Visible = True
+                BtnCambiarUsuarioEmpresa.Attributes.Add("onclick", "javascript:AbrirVentana('/Sistemas/PopUpCambiaUsuarioEmpresa.aspx');")
+            End If
            If UsuarioActual.MultipleEmpresa Then
                BtnCambiarEmpresa.Attributes.Add("onclick", "javascript:AbrirVentana('/Sistemas/PopUpSeleccionarEmpresa.aspx');")
                DivCambiarEmpresa.Visible = True
--- a/Ventas/RepPS.aspx
+++ b/Ventas/RepPS.aspx
@@ -159,6 +159,28 @@

                        
                    </div>
+                    
+                    <asp:Panel ID="pnlOrden"  Visible="false" runat="server" CssClass="row">
+                        <label class="col-md-1 truncate">Orden:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlOrden" runat="server" CssClass="select2me" Width="100%">
+                                <asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
+                                <asp:ListItem Text="Marca,Modelo,Rin,Medida de Barrenación" Value="1" />
+                                <asp:ListItem Text="Familia,Marca,Rin,Medida de Barrenación" Value="2" />
+                                <asp:ListItem Text="Familia,Linea,Rin,Medida de Barrenación" Value="3" />
+                            </asp:DropDownList>
+                        </div>
+                        <%--<div class="col-md-3">
+                            <div class="row">
+                                <label class="col-md-3 truncate">Marca:</label>
+                                <div class="col-md-9">
+                                    <asp:ListBox ID="DdlMarca" runat="server" DataTextField="Marca" DataValueField="CveMarca" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%; height:50px !important;">
+                                        <asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
+                                    </asp:ListBox>
+                                </div>
+                            </div>
+                        </div>--%>
+                    </asp:Panel>
                </div>
            </div>
        </ContentTemplate>
--- a/Ventas/RepPS.aspx.vb
+++ b/Ventas/RepPS.aspx.vb
@@ -21,6 +21,20 @@ Partial Class Ventas_RepPS

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
+            pnlOrden.Visible = False
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                pnlOrden.Visible = True
+                DdlOrden.SelectedValue = "2"
+                'Using ObjPS As New ClsProductosServicios
+                '    If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+                '        DdlMarca.DataSource = ObjPS.DtResultados.Copy()
+                '    End If
+                'End Using
+                'DdlMarca.DataBind()
+                'DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+            End If
+
+
            CargaDatosIniciales()
            CargaCombos()
            CargaDatos()
@@ -69,6 +83,7 @@ Partial Class Ventas_RepPS
    End Sub

    Private Sub CargaTipoCentroCosto()
+        Dim index As Integer = 17

        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
            DdlSubProyecto.Items.Clear()
@@ -88,13 +103,19 @@ Partial Class Ventas_RepPS
        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
+            If DdlGrupo.Items.Count < 17 Then
+                index = DdlGrupo.Items.Count
+            End If
+            DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
            DdlGrupo.DataBind()
        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
            LblSubProyecto.InnerText = "Proyecto:"
            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
+            If DdlGrupo.Items.Count < 17 Then
+                index = DdlGrupo.Items.Count
+            End If
+            DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
            DdlGrupo.DataBind()
        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
            LblSubProyecto.InnerText = "Sucursal:"
@@ -117,7 +138,7 @@ Partial Class Ventas_RepPS
        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)

        Dim ObjVentas As New ClsVentas()
-        If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico, Clasificacion:=Clasificacion, Linea:=Linea, Marca:=Marca) Then
+        If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico, Clasificacion:=Clasificacion, Linea:=Linea, Marca:=Marca, orden:=DdlOrden.SelectedValue.ToEntero()) Then
            DtReporte = ObjVentas.DtResultados.Copy()
            GvDatos.DataSource = DtReporte
        Else
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5297,6 +5297,7 @@ Partial Class Ventas
            '    RegistraScript("$('#DivDocsClienteUpload').modal({ backdrop: 'static',  keyboard: false});", "modalOC")
        End If
        BloqueaCondiconesPago()
+        DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
    End Sub

    Private Sub CargaRestriccionesCreditoCliente(Optional Alertas As Boolean = False, Optional CveVenta As Integer = -1)
@@ -26249,6 +26250,15 @@ Partial Class Ventas
        ObjVentas.Dispose()
    End Sub

+    Private Sub DeshabilitarAplicarNotaDeCredito(RFC As String)
+
+        If UsuarioActual.CveEmpresa = 119 AndAlso RFC.Contiene("XAXX010101000", "XEXX010101000") Then
+            LBNotaCredito.Visible = False
+            UpnTools.Update()
+        End If
+
+    End Sub
+
 #Region "Auxiliar"
    Private Sub CargarSaldoAuxiliar(CveCliente As Integer)

--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -108,6 +108,8 @@
    
  
    
+  
+