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

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

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("@TipoCliente", SqlDbType.Int).Value = TipoCliente
-            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
+            .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("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+            .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,
+                                  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",
+                                  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 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("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso
-            .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+            .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
             .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
 
         End With

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)

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

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

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;">

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
 

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

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;">
+                                    <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="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>
+                                    <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', ''); }
+        function ADSReady() {
-            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) {
+            setTimeout(function () { FiltrarTablaFreezcol('.TxtBusqueda', '.GvNominas');}, 250);
-                $('' + idcontador).html('(' + $('' + idtable + ' tr:not(.ADtr):not(.SearchADHeader):visible').length + '/' + $('' + idtable + ' tr:not(.ADtr):not(.SearchADHeader)').length + ')');
+            
-            }
         }
     </script>
 </asp:Content>

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 (widthGral < 300) { widthGral = 300; }
-            if (heightGral < 100) { heightGral = 100; }
+            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 (widthGral < 300) { widthGral = 300; }
-                if (heightGral < 100) { heightGral = 100; }
+                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') {

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>

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>

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

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>

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

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>

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

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)
 

vwd.webinfo

@@ -108,6 +108,8 @@
     
   
     
+  
+