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

App_Code/ClsContabilidad.vb

@@ -253,7 +253,7 @@ Public Class ClsContabilidad
 
     Public Function UpdatePrepolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
                                             Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1,
-                                            Optional Referencia As String = "-1") As Boolean
+                                            Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -274,6 +274,7 @@ Public Class ClsContabilidad
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
         End With
 
         Try
@@ -1360,7 +1361,7 @@ Public Class ClsContabilidad
                         End If
 
                         If Not OcurrioError Then
-                            If Not UpdatePrePoliza(Fecha, ObjConta.Folio, CveTipoPoliza, tIdPoliza, CvePrePoliza, Empresa.CveEmpresa) Then
+                            If Not UpdatePrePoliza(Fecha, ObjConta.Folio, CveTipoPoliza, tIdPoliza, CvePrePoliza, Empresa.CveEmpresa, CveUsuarioModifico:=CveUsuario) Then
                                 OcurrioError = True
                             End If
                         End If
@@ -1506,7 +1507,8 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function UpdatePrePoliza(FechaConta As Date, FolioPoliza As Integer, CveTipoPoliza As Integer, IdPoliza As Integer, CvePrePoliza As Integer, CveEmpresa As Integer, Optional Concepto As String = "-1", Optional FechaPoliza As Date = MinFecha, Optional xxx As Integer = -1) As Boolean
+    Public Function UpdatePrePoliza(FechaConta As Date, FolioPoliza As Integer, CveTipoPoliza As Integer, IdPoliza As Integer, CvePrePoliza As Integer, CveEmpresa As Integer,
+                                    Optional Concepto As String = "-1", Optional FechaPoliza As Date = MinFecha, Optional xxx As Integer = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1521,6 +1523,7 @@ Public Class ClsContabilidad
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
         End With
 
         Try

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/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

Compras/Compras.aspx

@@ -37,9 +37,6 @@
             <li>
                 <asp:LinkButton ID="LnkAddOtrosGastos" OnClick="LnkAddOtrosGastos_Click" Visible="false" runat="server"><i class="fa fa-plus-circle"></i> Agregar Otros Gastos</asp:LinkButton>
             </li>
-            <li runat="server" visible="false" id="liServicios">
-                <asp:LinkButton ID="LbServicios" OnClick="LbServicios_Click" runat="server"><i class='fa fa-truck'></i> Gastos y Servicios</asp:LinkButton>
-            </li>
             <li runat="server" visible="false" id="liFletesImportaciones">
                 <asp:LinkButton ID="LnkFletesImportaciones" runat="server"><i class='fa fa-truck'></i> Costo Indirecto/Importaciones</asp:LinkButton>
             </li>
@@ -147,6 +144,17 @@
             border: 1px solid black;
             width: 85%;
         }
+
+        .GastoIndirectoOpciones {
+            margin-left:auto;
+            margin-right:auto;
+            width:400px;
+        }
+
+        .GastoIndirectoOpciones td
+        {
+           text-align:right /* Or any other value */
+        }
         /*IPP*/
     </style>
 </asp:Content>
@@ -477,6 +485,7 @@
                                         <asp:ListItem Text="Importación" Value="5"></asp:ListItem>
                                         <asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
                                         <asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
+                                        <asp:ListItem Text="NC Por Devolución" Value="11"></asp:ListItem>
                                     </asp:DropDownList>
                                 </div>
                             </div>
@@ -3296,195 +3305,6 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    <%--MODAL VINCULAR FLETES Y SERVICIOS--%>
-    <asp:UpdatePanel runat="server" class="modal-content rowpadding" UpdateMode="Conditional" ID="UPFS">
-        <ContentTemplate>
-            <div id="DivFletesYServicios" class="modal fade">
-                <div class="modal-dialog">
-
-                    <div class="modal-content" style="width: 600px;">
-                        <div class="modal-header">
-                            <button type="button" class="close" data-dismiss="modal" aria-hidden="true"></button>
-                            <h3 class="modal-title" runat="server" id="headeralias">Vincular Costo indirectos </h3>
-
-
-
-                        </div>
-                        <div class="modal-body" style="min-height: 300px">
-                            <div class="row" style="align-items: center">
-                                <asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
-                                    <ContentTemplate>
-                                        <div class="portlet solid grey-cascade portlet-filter" style="width: 98%; margin-left: auto; margin-right: auto">
-                                            <div class="portlet-title portlet-filterT portletfiltrostitlee">
-                                                <div class="tools">
-                                                    <asp:Button ID="BtnFiltrar" OnClick="BtnFiltrar_Click" runat="server" CausesValidation="true" CssClass=" btn btn-primary " Visible="True" Text="Consultar" ValidationGroup="GrpFiltrar2"></asp:Button>
-                                                    <%--<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
-                                <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />--%>
-                                                </div>
-                                                <div class="titlefiltros  caption ">
-                                                    <div class="row">
-                                                        <div class="col-md-1" style="font-size: medium">Tipo:</div>
-                                                        <div class="col-md-1" style="width: 200px;">
-                                                            <asp:DropDownList ID="DdlTipo" AutoPostBack="true" runat="server" Style="width: 200px;" CssClass="form-control input-sm select2me" CausesValidation="true" MaxLength="50" ValidationGroup="GrpFiltrar2" Width="100%">
-                                                                <%--<asp:ListItem Text="Seleccione" Value="-1" Selected="True" />--%>
-                                                                <asp:ListItem Text="Una Sola Factura" Value="1" Selected="True" />
-                                                                <%-- <asp:ListItem Text="Varias Facturas" Value="2" />--%>
-                                                            </asp:DropDownList>
-                                                            <asp:RequiredFieldValidator ID="RFVTipo" runat="server" ControlToValidate="DdlTipo" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''tipo''</b> es necesario para cargar la Refacturación, por favor seleccione uno." ValidationGroup="GrpFiltrar2"></asp:RequiredFieldValidator>
-                                                            <ajax:ValidatorCalloutExtender ID="VCETipo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipo" Width="300px"></ajax:ValidatorCalloutExtender>
-                                                        </div>
-
-
-                                                    </div>
-                                                </div>
-                                            </div>
-                                        </div>
-                                    </ContentTemplate>
-                                </asp:UpdatePanel>
-                            </div>
-                            <br />
-
-                            <asp:UpdatePanel ID="UpGVServicios" runat="server" UpdateMode="Conditional">
-                                <ContentTemplate>
-                                    <asp:GridView ID="GVServicios" runat="server" AutoGenerateColumns="false"
-                                        EmptyDataText="No se encontraron fletes o servicios en la factura" ShowHeaderWhenEmpty="true"
-                                        ToolTip="Listado de Unidades de Medida" CssClass="table table-striped table-advance table-hover Widthall 
-                                        ScrollAD  "
-                                        data-height="320" Style="text-align: left;" GridLines="None" DataKeyNames="CvePS">
-                                        <Columns>
-                                            <asp:TemplateField ItemStyle-HorizontalAlign="Center">
-                                                <ItemTemplate>
-                                                    <asp:CheckBox ID="chkServicios" runat="server"></asp:CheckBox>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="Consec" ItemStyle-HorizontalAlign="Center" Visible="true">
-                                                <ItemTemplate>
-                                                    <asp:Label ID="LblConsec" Text='<%# Eval("Consec") %>' runat="server" />
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="Concepto" ItemStyle-HorizontalAlign="Center">
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlPSmodal" Text='<%# Eval("PS") %>' runat="server" />
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-
-                                            <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Center">
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlTotalmodal" Text='<%# Eval("Total") %>' runat="server" />
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                        </Columns>
-                                        <RowStyle CssClass="Texto" />
-                                        <AlternatingRowStyle CssClass="TextoAlterno" />
-
-
-
-
-                                    </asp:GridView>
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
-
-                            <div style="align-items: center">
-                                <asp:UpdatePanel ID="UpFacturas" runat="server" UpdateMode="Conditional">
-                                    <ContentTemplate>
-                                        <div class="col-md-5" runat="server" id="dvFacturas" style="width: 60%; margin-left: 20%; margin-right: auto;">
-
-
-
-
-                                            <div class="caption font-green">
-                                                <i class="icon-pin font-green"></i>
-                                                <span class="caption-subject bold uppercase">Agregar Facturas</span>
-                                            </div>
-                                            <div class="actions">
-                                                <div class="btn-group">
-                                                </div>
-                                            </div>
-                                            <div class="tools">
-                                                <a href="javascript:;" class="expand"></a>
-                                            </div>
-
-                                            <div class="portlet-body form">
-                                                <table class="Widthall">
-                                                    <tr>
-                                                        <td style="width: 50px;">Proveedor:</td>
-                                                        <td>
-                                                            <asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlProveedores" Style="width: 200px" AutoPostBack="true" DataTextField="RazonSocial" DataValueField="CveProveedor" OnSelectedIndexChanged="DdlProveedores_SelectedIndexChanged"></asp:DropDownList>
-                                                        </td>
-                                                    </tr>
-                                                    <tr>
-                                                        <td style="width: 50px;">Folio:</td>
-                                                        <td>
-                                                            <asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlFacturas" Style="width: 200px" AutoPostBack="false" DataTextField="Folio" DataValueField="CveCompra"></asp:DropDownList>
-                                                            <asp:RequiredFieldValidator ID="RFVFacturas" runat="server" ControlToValidate="DdlFacturas" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario para cargar la Refacturación, por favor seleccione uno." ValidationGroup="GrpCargaFactura"></asp:RequiredFieldValidator>
-                                                            <ajax:ValidatorCalloutExtender ID="VCEFacturas" runat="server" HighlightCssClass="vco" TargetControlID="RFVFacturas" Width="300px"></ajax:ValidatorCalloutExtender>
-                                                        </td>
-                                                    </tr>
-                                                    <tr>
-                                                        <td colspan="2" align="center">
-                                                            <asp:Button Text="Agregar Factura" CssClass="btn btn-primary" ID="BtnAgregaFactura" OnClick="BtnAgregaFactura_Click" ValidationGroup="GrpCargaFactura" runat="server" />
-                                                        </td>
-                                                    </tr>
-                                                </table>
-                                            </div>
-
-                                        </div>
-                                    </ContentTemplate>
-                                </asp:UpdatePanel>
-                            </div>
-
-                            <asp:UpdatePanel ID="UPGVFacturas" runat="server" UpdateMode="Conditional">
-                                <ContentTemplate>
-
-
-                                    <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="false" EmptyDataText="Aun No Registra Facturas" DataKeyNames="CveCompra" ToolTip="Listado de Unidades de Medida" CssClass="table table-striped table-advance table-hover Widthall ScrollAD  " data-height="320" Style="text-align: left;" GridLines="None">
-                                        <Columns>
-                                            <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center">
-
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlFolio" Text='<%# Eval("Folio") %>' runat="server" />
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-
-                                            <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
-                                                <ItemTemplate>
-                                                    <asp:Literal ID="LtlFecha" Text='<%# Eval("Fecha") %>' runat="server" />
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="Eliminar">
-                                                <ItemTemplate>
-
-                                                    <asp:LinkButton ID="lbEliminar" runat="server" AlternateText="Eliminar" CausesValidation="False" Style="text-align: left" CommandName="Delete" OnClientClick="return confirm('¿Está seguro de eliminar la factura?')" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" />
-
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                        </Columns>
-                                        <RowStyle CssClass="Texto" />
-                                        <AlternatingRowStyle CssClass="TextoAlterno" />
-
-
-
-
-                                    </asp:GridView>
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
-
-                        </div>
-
-                        <div class="modal-footer">
-
-                            <asp:Button Text="Continuar" ID="BtnAgregarFlete" runat="server" OnClick="btnAgregarFlete_Click" class="btn default"></asp:Button>
-                            <asp:Button Text="Cancelar" CssClass="btn btn-primary" ID="BtnCancelarFlete" OnClick="BtnCancelar_Click" runat="server" />
-
-                        </div>
-
-                    </div>
-
-                </div>
-            </div>
-
-        </ContentTemplate>
-    </asp:UpdatePanel>
 
     <%-- MODAL SERIE-LOTE ALMACEN --%>
     <div id="DivSerie" class="modal fade" role="dialog">
@@ -5016,7 +4836,175 @@
                             <asp:Label ID="LblTitulo" Text="" runat="server">Costo Indirecto/Importación</asp:Label></h4>
                     </div>
                     <div class="modal-body">
+                        <div class="row" style="border-bottom:1px solid #e5e5e5">
+                            <div class="col-md-1" style="width:100%">
+                                <asp:RadioButtonList ID="RblGastosVincularCrear" runat="server" OnSelectedIndexChanged="RblGastosVincularCrear_Click" AutoPostBack="true" CssClass="GastoIndirectoOpciones" RepeatDirection="Horizontal">
+                                    <asp:ListItem Text="Gasto y Servicios" Value="1" />
+                                    <asp:ListItem Text="Costo Indirecto/Importaciones" Value="0" selected="True" />
+                                </asp:RadioButtonList>
+                            </div>
+                        </div>
+                        <div runat="server" id="DivGastosyServicios" visible="false">
+                            <%--<div class="row" style="align-items: center">
+                                <asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
+                                    <ContentTemplate>
+                                        <div class="portlet solid grey-cascade portlet-filter" style="width: 98%; margin-left: auto; margin-right: auto">
+                                            <div class="portlet-title portlet-filterT portletfiltrostitlee">
+                                                <div class="tools">
+                                                    <asp:Button ID="BtnFiltrar" OnClick="BtnFiltrar_Click" runat="server" CausesValidation="true" CssClass=" btn btn-primary " Visible="True" Text="Consultar" ValidationGroup="GrpFiltrar2"></asp:Button>
+                                                    <%--<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
+                                <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                                                </div>
+                                                <div class="titlefiltros  caption ">
                                                     <div class="row">
+                                                        <div class="col-md-1" style="font-size: medium">Tipo:</div>
+                                                        <div class="col-md-1" style="width: 200px;">
+                                                            <asp:DropDownList ID="DdlTipo" AutoPostBack="true" runat="server" Style="width: 200px;" CssClass="form-control input-sm select2me" CausesValidation="true" MaxLength="50" ValidationGroup="GrpFiltrar2" Width="100%">
+                                                                <%--<asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
+                                                                <asp:ListItem Text="Una Sola Factura" Value="1" Selected="True" />
+                                                                <%-- <asp:ListItem Text="Varias Facturas" Value="2" />
+                                                            </asp:DropDownList>
+                                                            <asp:RequiredFieldValidator ID="RFVTipo" runat="server" ControlToValidate="DdlTipo" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''tipo''</b> es necesario para cargar la Refacturación, por favor seleccione uno." ValidationGroup="GrpFiltrar2"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VCETipo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipo" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                        </div>
+
+
+                                                    </div>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>
+                            </div>--%>
+                            <br />
+
+                            <asp:UpdatePanel ID="UpGVServicios" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:GridView ID="GVServicios" runat="server" AutoGenerateColumns="false"
+                                        EmptyDataText="No se encontraron fletes o servicios en la factura" ShowHeaderWhenEmpty="true"
+                                        ToolTip="Listado de Unidades de Medida" CssClass="table table-striped table-advance table-hover Widthall 
+                                        ScrollAD  "
+                                        data-height="320" Style="text-align: left;" GridLines="None" DataKeyNames="CvePS">
+                                        <Columns>
+                                            <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                                                <ItemTemplate>
+                                                    <asp:CheckBox ID="chkServicios" runat="server"></asp:CheckBox>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="Consec" ItemStyle-HorizontalAlign="Center" Visible="false">
+                                                <ItemTemplate>
+                                                    <asp:Label ID="LblConsec" Text='<%# Eval("Consec") %>' runat="server" />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="Concepto" ItemStyle-HorizontalAlign="Left">
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="LtlPSmodal" Text='<%# Eval("PS") %>' runat="server" />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+
+                                            <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Center">
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="LtlTotalmodal" Text='<%# Eval("Total") %>' runat="server" />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                        </Columns>
+                                        <RowStyle CssClass="Texto" />
+                                        <AlternatingRowStyle CssClass="TextoAlterno" />
+
+
+
+
+                                    </asp:GridView>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+
+                            <div style="align-items: center">
+                                <asp:UpdatePanel ID="UpFacturas" runat="server" UpdateMode="Conditional">
+                                    <ContentTemplate>
+                                        <div class="col-md-5" runat="server" id="dvFacturas" style="width: 60%; margin-left: 20%; margin-right: auto;">
+
+
+
+
+                                            <div class="caption font-green">
+                                                <i class="icon-pin font-green"></i>
+                                                <span class="caption-subject bold uppercase">Agregar Facturas</span>
+                                            </div>
+                                            <div class="actions">
+                                                <div class="btn-group">
+                                                </div>
+                                            </div>
+                                            <div class="tools">
+                                                <a href="javascript:;" class="expand"></a>
+                                            </div>
+
+                                            <div class="portlet-body form">
+                                                <table class="Widthall">
+                                                    <tr>
+                                                        <td style="width: 50px;">Proveedor:</td>
+                                                        <td>
+                                                            <asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlProveedores" Style="width: 200px" AutoPostBack="true" DataTextField="RazonSocial" DataValueField="CveProveedor" OnSelectedIndexChanged="DdlProveedores_SelectedIndexChanged"></asp:DropDownList>
+                                                        </td>
+                                                    </tr>
+                                                    <tr>
+                                                        <td style="width: 50px;">Folio:</td>
+                                                        <td>
+                                                            <asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlFacturas" Style="width: 200px" AutoPostBack="false" DataTextField="Folio" DataValueField="CveCompra"></asp:DropDownList>
+                                                            <asp:RequiredFieldValidator ID="RFVFacturas" runat="server" ControlToValidate="DdlFacturas" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario para cargar la Refacturación, por favor seleccione uno." ValidationGroup="GrpCargaFactura"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VCEFacturas" runat="server" HighlightCssClass="vco" TargetControlID="RFVFacturas" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                        </td>
+                                                    </tr>
+                                                    <tr>
+                                                        <td colspan="2" align="center">
+                                                            <asp:Button Text="Agregar Factura" CssClass="btn btn-primary" ID="BtnAgregaFactura" OnClick="BtnAgregaFactura_Click" ValidationGroup="GrpCargaFactura" runat="server" />
+                                                        </td>
+                                                    </tr>
+                                                </table>
+                                            </div>
+
+                                        </div>
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>
+                            </div>
+
+                            <asp:UpdatePanel ID="UPGVFacturas" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+
+
+                                    <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="false" EmptyDataText="Aun No Registra Facturas" DataKeyNames="CveCompra" ToolTip="Listado de Unidades de Medida" CssClass="table table-striped table-advance table-hover Widthall ScrollAD  " data-height="320" Style="text-align: left;" GridLines="None">
+                                        <Columns>
+                                            <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center">
+
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="LtlFolio" Text='<%# Eval("Folio") %>' runat="server" />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+
+                                            <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="LtlFecha" Text='<%# Eval("Fecha") %>' runat="server" />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="Eliminar">
+                                                <ItemTemplate>
+
+                                                    <asp:LinkButton ID="lbEliminar" runat="server" AlternateText="Eliminar" CausesValidation="False" Style="text-align: left" CommandName="Delete" OnClientClick="return confirm('¿Está seguro de eliminar la factura?')" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" />
+
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                        </Columns>
+                                        <RowStyle CssClass="Texto" />
+                                        <AlternatingRowStyle CssClass="TextoAlterno" />
+
+
+
+
+                                    </asp:GridView>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+
+                        </div>
+                        <div class="row" runat="server" id="DivVincularCrear">
                             <div class="col-md-12">
                                 <div class="row" runat="server" id="DivActualizarVincular" visible="false" align="center">
                                     <h4>Los cambios se realizaran al dar click en vincular</h4>
@@ -5112,10 +5100,16 @@
                         </div>
                     </div>
                     <div class="modal-footer">
+                        <div runat="server" id="DivGastosyServiciosFooter" visible="false">
+                            <asp:Button Text="Continuar" ID="BtnAgregarFlete" runat="server" OnClick="btnAgregarFlete_Click" class="btn default"></asp:Button>
+                            <asp:Button Text="Cancelar" CssClass="btn btn-primary" ID="BtnCancelarFlete" data-dismiss="modal" runat="server" />
+                        </div>
+                        <div runat="server" id="DivVincularCrearFooter">
                             <asp:Button ID="BtnGuardarModalFletesImportaciones" OnClick="BtnGuardarModalFletesImportaciones_Click" runat="server" Text="Vincular" CssClass="btn btn-primary" ValidationGroup="VGMModalIMPFLE" />
                             <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
                         </div>
                     </div>
+                </div>
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>

Compras/Compras.aspx.vb

@@ -1533,7 +1533,7 @@ Partial Class Compras_Compras
             If UsuarioActual.Empresa.CvePlataforma = 2 Then
                 TabActivosFijos.Visible = False
                 VerRefacturacion.Visible = False
-                liServicios.Visible = False
+                'liServicios.Visible = False
                 DivConsignaciones.Visible = False
             End If
             CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader)
@@ -9545,7 +9545,7 @@ Partial Class Compras_Compras
                         Retorno = False
                     End If
 
-                    If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, Nothing, CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                    If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, Nothing, CvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                         Retorno = False
                     End If
                 End If
@@ -9987,7 +9987,7 @@ Partial Class Compras_Compras
                                 Retorno = False
                             End If
 
-                            If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                            If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                 Retorno = False
                             End If
                         End If
@@ -14642,7 +14642,7 @@ Partial Class Compras_Compras
                     dt = ObjContabilidad.DtResultados
 
                     For Each dr As DataRow In dt.Rows
-                        If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0) Then
+                        If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                             ErrorCancelar = True : Exit For
                         End If
                     Next
@@ -15892,8 +15892,6 @@ Partial Class Compras_Compras
     End Sub
 
     Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
-        If DdlTipo.SelectedValue.ToEntero = 1 Then
-
         'POR SI LLEGARA A TRONAR
         If DtServicios Is Nothing Then CreaDTServicios()
         DtServicios.Rows.Clear()
@@ -15944,18 +15942,20 @@ Partial Class Compras_Compras
         UpGVServicios.Update()
         UpFacturas.Update()
         UPGVFacturas.Update()
-
+        'If DdlTipo.SelectedValue.ToEntero = 1 Then
-        ElseIf DdlTipo.SelectedValue.ToEntero = 2 Then
-            GVServicios.Visible = False
-            dvFacturas.Visible = True
-            DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-            DdlProveedores.DataBind()
-            DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            UpFacturas.Update()
-            UpGVServicios.Update()
 
 
-        End If
+        'ElseIf DdlTipo.SelectedValue.ToEntero = 2 Then
+        '    GVServicios.Visible = False
+        '    dvFacturas.Visible = True
+        '    DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        '    DdlProveedores.DataBind()
+        '    DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        '    UpFacturas.Update()
+        '    UpGVServicios.Update()
+
+
+        'End If
 
     End Sub
 
@@ -16212,7 +16212,7 @@ Partial Class Compras_Compras
         End If
 
         If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.CvePlataforma <> 2 Then
-            liServicios.Visible = True
+            'liServicios.Visible = True
             liFletesImportaciones.Visible = True
         End If
 
@@ -20040,6 +20040,17 @@ Partial Class Compras_Compras
         End If
     End Sub
 
+    Protected Sub RblGastosVincularCrear_Click(sender As Object, e As EventArgs)
+        Dim MostrarGastosServicios As Boolean = RblGastosVincularCrear.SelectedValue = "1"
+
+        DivGastosyServicios.Visible = MostrarGastosServicios
+        DivGastosyServiciosFooter.Visible = MostrarGastosServicios
+
+        DivVincularCrear.Visible = Not MostrarGastosServicios
+        DivVincularCrearFooter.Visible = Not MostrarGastosServicios
+
+    End Sub
+
 
 
 End Class

Contabilidad/RegPoliza.aspx.vb

@@ -1143,7 +1143,7 @@ Partial Class RegPoliza
                 End If
             End If
 
-            If Not ObjContabilidad.UpdatePrePoliza(TxtFechaPoliza.Text.ToDate, TxtNumeroPoliza.Text.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, IDPoliza, CvePrePoliza, UsuarioActual.CveEmpresa, TxtConcepto.Text.Trim, TxtFechaPoliza.Text.ToDate) Then
+            If Not ObjContabilidad.UpdatePrePoliza(TxtFechaPoliza.Text.ToDate, TxtNumeroPoliza.Text.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, IDPoliza, CvePrePoliza, UsuarioActual.CveEmpresa, TxtConcepto.Text.Trim, TxtFechaPoliza.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                 OcurrioError = True
             End If
 

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
@@ -463,9 +464,10 @@ Partial Class ContabilidadC_RegPrePoliza
             End If
 
         End If
-
+        CargaGvBitacora()
         ObjContabilidad.Dispose()
         UpPoliza.Update()
+        UpBitacora.Update()
     End Sub
 
     Private Sub GvPrePoliza_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPrePoliza.RowDataBound
@@ -536,7 +538,7 @@ Partial Class ContabilidadC_RegPrePoliza
     End Sub
 
     Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged
-        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 205, 206, 14, 15, 16, 19, 25, 26, 21) Then
             CargaProveedores()
             DdlProveedores.Visible = True
             DdlCompras.Visible = True
@@ -1011,7 +1013,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
 
 
-        If ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate) Then
+        If ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
 
 
 
@@ -1019,7 +1021,7 @@ Partial Class ContabilidadC_RegPrePoliza
                 If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
                     If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero,
                                                            row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0,
-                                                           row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero)) Then
+                                                           row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                         OcurrioError = True
                         Exit For
                     End If
@@ -1643,5 +1645,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
 

Contabilidad/RegPrePoliza1.aspx.vb

@@ -926,7 +926,7 @@ Partial Class ContabilidadC_RegPrePoliza
         Dim ObjContabilidad As New ClsContabilidad
         ObjContabilidad.IniciaTransacSQL()
 
-        ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate)
+        ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
 
         For Each row As GridViewRow In GvPrePoliza.Rows
             If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
@@ -934,7 +934,7 @@ Partial Class ContabilidadC_RegPrePoliza
                                                            row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                            row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
                                                            CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
-                                                           CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text) Then
+                                                           CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                     OcurrioError = True
                     Exit For
                 End If

Contabilidad/RegPrePolizaS.aspx.vb

@@ -914,7 +914,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim ObjContabilidad As New ClsContabilidad
         ObjContabilidad.IniciaTransacSQL()
 
-        ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate)
+        ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
 
         For Each row As GridViewRow In GvPrePoliza.Rows
             If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
@@ -922,7 +922,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                            row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                            row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
                                                            CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
-                                                           CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text) Then
+                                                           CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                     OcurrioError = True
                     Exit For
                 End If

Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb

@@ -130,11 +130,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
                         TxtFechaDel.Text = FechaInicio.ToShortDateString
                     End If
 
-                    'If Request("CveSubProyecto") IsNot Nothing Then
+                    If Request("CveSubProyecto") IsNot Nothing Then
-                    '    If IsNumeric(Request("CveSubProyecto")) Then
+                        If IsNumeric(Request("CveSubProyecto")) Then
-                    '        CveSubProyecto = Request("CveSubProyecto").ToString
+                            DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto").ToString)
-                    '    End If
+                        End If
-                    'End If
+                    End If
 
 
                     ErrorParametros = False

Inventarios/EntregaAlmacen.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" enableEventValidation="false" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>

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

Inventarios/TrasladoSolicitud.aspx

@@ -259,8 +259,7 @@
                                         data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar autorización?" data-btn-ok-label="Si"  OnClick="LnkAceptarTraslado_Click"></asp:LinkButton>    
                                 </div>
                                 <div class="col-md-6" style="text-align:center!important">
-                                    <asp:LinkButton  runat="server" Text ="Rechazar" ID="LnkRechazarTraslado" CssClass="btn btn-danger" 
+                                    <asp:LinkButton  runat="server" Text ="Rechazar" ID="LnkRechazarTraslado" CssClass="btn btn-danger" OnClick="LnkRechazarTraslado_Click" ></asp:LinkButton>    
-                                        data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar rechazo?" data-btn-ok-label="Si"  OnClick="LnkRechazarTraslado_Click" ></asp:LinkButton>    
                                 </div>
 
                             </div>
@@ -500,6 +499,51 @@
         </div>
     </div>
 
+
+
+    <div id="ModalRechazarTraslado" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalRechazo" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal3" runat="server">Rechazar solicitud</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="portlet-body rowpadding">
+                            <div class="row">
+
+                                <div class="col-md-10 form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtMotivoRechazo" CssClass="form-control marginFixRow" runat="server" MaxLength="200" CausesValidation="true"></asp:TextBox>
+                                    <label for="<%= TxtMotivoRechazo.ClientID.ToString()%>">Motivo de rechazo:</label>
+                                    <asp:RequiredFieldValidator ID="RfvTxtMotivoRechazo" runat="server" ControlToValidate="TxtMotivoRechazo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo de rechazo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRechazo"></asp:RequiredFieldValidator>                                    
+                                </div>
+
+                            </div>
+
+
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <div class="row">
+
+                            <div class="col-md-12">
+                                <asp:Button ID="BtnModalRechazo" runat="server" class="btn btn-danger" Text="Rechazar" Style="margin-left: -100px;" ValidationGroup="GrpRechazo" 
+                                data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar rechazo?" data-btn-ok-label="Si"  OnClick="BtnModalRechazo_Click" />
+                            <button id="btnModalRechazoCerrar" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>    
+                            </div>
+                                                    
+
+                        </div>
+                    </div>
+                    
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Inventarios/TrasladoSolicitud.aspx.vb

@@ -36,19 +36,19 @@ Partial Class Inventarios_TrasladoSolicitud
             ViewState("CveDireccionEnvio") = value
         End Set
     End Property
-    'Private Property CveUsuarioAutoriza As Integer
+    Private Property CveUsuarioSolicita As Integer
-    '    Get
+        Get
-    '        If ViewState("CveUsuarioAutoriza") Is Nothing Then
+            If ViewState("CveUsuarioSolicita") Is Nothing Then
-    '            Return -1
+                Return -1
-    '        Else
+            Else
-    '            Return CType(ViewState("CveUsuarioAutoriza"), Integer)
+                Return CType(ViewState("CveUsuarioSolicita"), Integer)
-    '        End If
+            End If
 
-    '    End Get
+        End Get
-    '    Set(value As Integer)
+        Set(value As Integer)
-    '        ViewState("CveUsuarioAutoriza") = value
+            ViewState("CveUsuarioSolicita") = value
-    '    End Set
+        End Set
-    'End Property
+    End Property
 
 #End Region
 
@@ -178,6 +178,8 @@ Partial Class Inventarios_TrasladoSolicitud
                 HplContrato.Text = ObjInventarios.DtResultados.Rows(0)("DescripcionContrato").ToString
                 HplContrato.NavigateUrl = $"/Contratos/Contrato.aspx?CveContrato={ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}"
 
+                CveUsuarioSolicita = ObjInventarios.DtResultados.Rows(0)("CveUsuario").ToString.ToEntero
+
                 '25/04/2018 
                 CveDireccionEnvio = ObjInventarios.DtResultados.Rows(0)("CveDireccionEnvio").ToString.ToEntero
                 If CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
@@ -994,15 +996,85 @@ Partial Class Inventarios_TrasladoSolicitud
         CargaDatos()
 
     End Sub
+
     Protected Sub LnkRechazarTraslado_Click(sender As Object, e As EventArgs)
 
+        TxtMotivoRechazo.Text = ""
+        UpModalRechazo.Update()
+        RegistraScript("$('#ModalRechazarTraslado').modal();")
+
+    End Sub
+
+
+    Protected Sub BtnModalRechazo_Click(sender As Object, e As EventArgs)
+        RechazarTraslado()
+    End Sub
+
+    Private Sub RechazarTraslado()
+
+        Dim ErrorProceso As Boolean = False
+
+        If TxtMotivoRechazo.Text.Trim.Length.ToEntero = 0 Then
+            Alert("El motivo de rechazo es necesario", TipoMensaje.MsgAdvertencia)
+        End If
+
+
         Dim ObjInven As New ClsInventarios
+
         If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 3, UsuarioActual.CveUsuario, Now) Then
             Alert("Rechazado correctamente.")
+            ErrorProceso = False
+        Else
+            ErrorProceso = True
         End If
+
         ObjInven.Dispose()
 
+        If Not ErrorProceso Then
+            MandaCorreoRechazo(LbFolio.Text.ToEntero, CveTraspasoSolicitud, CveUsuarioSolicita, TxtMotivoRechazo.Text)
             CargaDatos()
+            RegistraScript("$('#ModalRechazarTraslado').modal('hide');")
+        End If
+
+    End Sub
+
+
+    Private Sub MandaCorreoRechazo(Folio As Integer, CveTraspasoSolicitud As Integer, CveUsuarioSolicita As Integer, MotivoRechazo As String)
+
+        Dim SB As New StringBuilder
+
+        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita)(0)("Correo").ToString.Trim
+
+
+        If CorreoDestino.Length > 0 Then
+
+
+            SB.AppendLine($"<p>Se ha rechazado la solicitud de traspaso con folio {Folio}, el traspaso fue rechazado por el usuario {UsuarioActual.Nombre }, el traspaso fue rechazado por el motivo: {MotivoRechazo} </p>")
+
+
+
+            SB.AppendLine("<br>")
+            SB.AppendLine("<table border = '0'>")
+            SB.AppendLine("<tr style='color:white;background-color:#808080;' ><th>Cantidad</th> <th>U.M.</th>  <th>Producto</th>  <th>Observaciones</th> </tr>")
+
+            For Each GvRow As GridViewRow In GvDatos.Rows
+
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    SB.AppendLine($"<tr  style='background-color:#F2F2F0;'> <td>{GvRow.DataKey("Cantidad")}</td> <td>{GvRow.DataKey("UnidadMedida")}</td>  <td>{GvRow.DataKey("CodigoPS")}</td>  <td>{GvRow.DataKey("Observaciones")}</td> </tr>")
+                End If
+
+            Next
+            SB.AppendLine("</table>")
+            SB.AppendLine("<br>")
+
+            SB.AppendLine($"<strong> <a href='{Request.Url.GetLeftPart(UriPartial.Authority)}/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}'>Ir a solicitud de traspaso folio {Folio}</a></strong>")
+
+
+
+            Dim MandaCorre As New ClsSisMail
+            MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Rechazo de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Rechazo de Traspaso")
+
+        End If
 
     End Sub
 
@@ -1057,5 +1129,6 @@ Partial Class Inventarios_TrasladoSolicitud
         Next
         GvDatos.Columns(5).Visible = Mostrar
     End Sub
+
 End Class
 

Inventarios/TraspasoAlmacen.aspx

@@ -164,7 +164,7 @@
                                             </div>
                                         </div>
 
-                                        <div id="DivGastoIndirecto" style="display: none;" class="rowpadding">
+                                        <div id="DivTransitorio2" class="rowpadding" runat="server" visible="false">
                                             <div class="row">
                                                  
                                                 <asp:Label AssociatedControlID="TxtGastoIndirecto" Visible="false" id="LblGastoIndirecto" runat="server" Text="Gasto Indirecto:" CssClass="col-md-2"></asp:Label>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -204,7 +204,10 @@ Partial Class Inventarios_TraspasoAlmacen
             Else
                 DivCodigoSeriePS.Visible = False
             End If
-            If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
+            If ChkTransitorio.Checked Then
+                RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
+                DivTransitorio2.Visible = True
+            End If
 
             If UsuarioActual.CveEmpresa.Contiene(1, 119) Then
                 DivEmitirTimbrado.Visible = True
@@ -226,7 +229,10 @@ Partial Class Inventarios_TraspasoAlmacen
             TipoSeccionAlmacen = 0
 
         Else
-            If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
+            If ChkTransitorio.Checked Then
+                RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
+                DivTransitorio2.Visible = True
+            End If
         End If
     End Sub
 
@@ -643,21 +649,21 @@ Partial Class Inventarios_TraspasoAlmacen
             If TxtResponsable.Text.Trim = "" And Not UsuarioActual.CveEmpresa.Contiene(119) Then
                 Alert("Debe seleccionar un responsable para el traspaso transitorio.", TipoMensaje.MsgAdvertencia)
                 RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
-                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
+                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True
                 Exit Sub
             End If
 
             If DdlAlmacenTransitorio.SelectedValue.ToEntero <= 0 Then
                 Alert("Debe seleccionar un almacen transitorio.", TipoMensaje.MsgAdvertencia)
                 RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
-                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
+                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True
                 Exit Sub
             End If
 
             If DdlChofer.SelectedValue.ToEntero <= 0 And UsuarioActual.CveEmpresa.Contiene(119) Then
                 Alert("Debe seleccionar un Chofer", TipoMensaje.MsgAdvertencia)
                 RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
-                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
+                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True
                 Exit Sub
             End If
         End If
@@ -693,7 +699,7 @@ Partial Class Inventarios_TraspasoAlmacen
                         Alert("Por ser un traspaso entre sucursales es necesario indicar que el traspaso es transitorio.", TipoMensaje.MsgAdvertencia)
                         RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'');", "SonidoError")
                         ChkTransitorio.Checked = True
-                        If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);", "MuestraDivTransitorio")
+                        If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);", "MuestraDivTransitorio") : DivTransitorio2.Visible = True
                         Exit Sub
                     End If
                 End If
@@ -711,7 +717,7 @@ Partial Class Inventarios_TraspasoAlmacen
         For Each dr As DataRow In DtMovimientos.Rows
             If dr("EstatusExistencia").ToString = "-1" Then
                 Alert("Tiene que rectificar los movimientos con error.", TipoMensaje.MsgError)
-                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
+                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True
                 Exit Sub
             End If
         Next
@@ -1456,10 +1462,11 @@ Partial Class Inventarios_TraspasoAlmacen
             TxtResponsable.Text = ""
             TxtGastoIndirecto.Text = ""
             RegistraScript("$('#DivTransitorio').show(200);$('#DivGastoIndirecto').show(100);$('#DivDocChofer').show(100);")
-
+            DivTransitorio2.Visible = True
             ChkEmitirTimbrado.Checked = LblEmitirTimbrado.Visible
         Else
             RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);$('#DivDocChofer').hide(500);")
+            DivTransitorio2.Visible = True
         End If
         CargaAlmacenDestino()
 
@@ -1974,7 +1981,7 @@ Partial Class Inventarios_TraspasoAlmacen
             CargaRecepcion()
         Else
             Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia)
-            If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
+            If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True
         End If
     End Sub
 

Nomina/Nomina2.aspx

@@ -253,13 +253,13 @@
                                     </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>
@@ -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>

OC/RepSolicitudesAnticipo.aspx

@@ -117,6 +117,11 @@
                         <ItemTemplate>
                             <asp:Label runat="server" CssClass="Texto"  Text='<%# Eval("Importe", "${0:N2}") %>'></asp:Label>
                         </ItemTemplate>
+                    </asp:TemplateField>
+                     <asp:TemplateField HeaderText="Moneda" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Label runat="server" CssClass="Texto"  Text='<%# Eval("Abreviatura") %>'></asp:Label>
+                        </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Pagar Anticipo" ItemStyle-Width="20%" Visible="false" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>

OC/RepSolicitudesAnticipo.aspx.cs

@@ -110,13 +110,13 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
         {
             GvSolicitudes.Columns[4].Visible = true;
             GvSolicitudes.Columns[5].Visible = true;
-            GvSolicitudes.Columns[6].Visible = false;
+            GvSolicitudes.Columns[7].Visible = false;
         }
         else
         {
             GvSolicitudes.Columns[4].Visible = false;
             GvSolicitudes.Columns[5].Visible = false;
-            GvSolicitudes.Columns[6].Visible = true;
+            GvSolicitudes.Columns[7].Visible = true;
         }
         CargaDatos();
     }

PyME/Contabilidad/RegPrePoliza.aspx.vb

@@ -478,7 +478,7 @@ Partial Class Contabilidad_RegPrePoliza
         For Each row As GridViewRow In GvPrePoliza.Rows
             If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero,
                 row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0,
-                row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal)) Then
+                row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                 OcurrioError = True
             End If
         Next

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

@@ -5388,6 +5388,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)
@@ -26927,6 +26928,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 @@
     
   
     
+  
+