From 16a845c1dab621c9668ee420f73b5f53c26c39e3 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 11 Apr 2024 05:25:44 -0700
Subject: [PATCH 01/70] - Cambio de nombre

---
 Bancos/RepCortes.aspx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx
index 445b67a16..74c40e724 100644
--- a/Bancos/RepCortes.aspx
+++ b/Bancos/RepCortes.aspx
@@ -364,7 +364,7 @@
                 <div class="row">
                     <div class="col-md-3">
                         <br />
-                        <b>Detalles del Corte</b>
+                        <b>Detalles del pago</b>
                         <asp:GridView ID="GvP" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%">
                             <Columns>
                                 <asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" />
@@ -415,7 +415,7 @@
                                         <asp:BoundField HeaderText="Nombre" DataField="Nombre" />
                                         <asp:BoundField HeaderText="Cargos" DataField="Cargos" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                         <asp:BoundField HeaderText="Abonos" DataField="Abonos" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                                        <asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
+                                        <asp:TemplateField HeaderText="Diferencia" ItemStyle-HorizontalAlign="Right">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlSaldo" runat="server" Text='<%# String.Format("{0:N2}", (CDec(Eval("Cargos")) - CDec(Eval("Abonos")))) %>'></asp:Literal>
                                             </ItemTemplate>

From 12af7f11b197d1788334ac7dce3d0f085e6b1b08 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Apr 2024 07:59:24 -0700
Subject: [PATCH 02/70] - quitar lineas comentadas

---
 App_Code/ClsSisUsuarios.vb | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index 56477c6b5..070cc0ae7 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -230,12 +230,6 @@ Public Class ClsSisUsuarios
                 Retorno.CveCliente = Data.Rows(0)("CveCliente").ToString().ToEntero()
                 Retorno.CveProveedor = Data.Rows(0)("CveProveedor").ToString().ToEntero()
 
-                'Retorno.CveSupervisor = Data.Rows(0)("CveSupervisor").ToString.ToEntero
-                'Retorno.CveCoordinador = Data.Rows(0)("CveCoordinador").ToString.ToEntero
-                'Retorno.CveProspecto = Data.Rows(0)("CveProspecto").ToString.ToEntero
-                'Retorno.Referencia = Data.Rows(0)("Referencia").ToString
-
-                '*
                 Retorno.NombreAbreviatura = Data.Rows(0)("NombreAbreviatura").ToString()
                 Retorno.DescuentoAutorizado = Data.Rows(0)("DescuentoAutorizado").ToString().ToDouble()
 

From 63356c93a52b2cfc1ff5283ff2009d22f9af9b5d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Apr 2024 08:00:26 -0700
Subject: [PATCH 03/70] -- empresas 140/141

---
 Bancos/RepCortes.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index 324acba28..2dacc1727 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -180,7 +180,7 @@ Partial Class Bancos_RepCortes
             End If
         End If
 
-        If UsuarioActual.CveEmpresa.contiene(140, 141) AndAlso Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDep.DataSource = Vn.DtResultados
             If Vn.DtResultados.Rows.Count > 0 Then
                 DivDep.Visible = True

From 79a8901aaf4e6f1e1eaec7cef08d0e0a3d6a1e11 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Apr 2024 08:15:22 -0700
Subject: [PATCH 04/70] -- filtro de solo los que tiene AF, en cronograma

---
 Transportes/RepContratosCalendario.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 3e9bce566..a423e20fe 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -62,7 +62,7 @@ Partial Class RepContratosCalendario
     Private Sub CargaCronograma()
         If DtAvance IsNot Nothing Then
 
-            For Each Row As DataRow In DtAvance.Rows
+            For Each Row As DataRow In DtAvance.FiltraParametros("CveAF > 0").Rows
                 If String.IsNullOrEmpty(Row("NombreAF").ToString()) Then
                     Row("NombreAF") = "Unidad no asignada"
                 End If

From 1d58181e3a5a41725320728249d4aa05e4c76bf4 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 12 Apr 2024 17:25:14 -0700
Subject: [PATCH 05/70] =?UTF-8?q?--FIX=20recarga=20de=20diagrama=20--poner?=
 =?UTF-8?q?=20c=C3=B3digo=20en=20el=20rengl=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Transportes/RepContratosCalendario.aspx    | 104 +++++++++++----------
 Transportes/RepContratosCalendario.aspx.vb |  17 ++--
 2 files changed, 66 insertions(+), 55 deletions(-)

diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index 9e4fee3d3..61673bc96 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -485,51 +485,50 @@
     <script src="https://cdn.amcharts.com/lib/5/xy.js"></script>
     <script src="https://cdn.amcharts.com/lib/5/themes/Animated.js"></script>
     <script>
+        // Create root element
+        // https://www.amcharts.com/docs/v5/getting-started/#Root_element
+        var root = am5.Root.new("chartdiv");
+
+        var am5locales_es_ES = {
+            "Jan": "Enero",
+            "Feb": "Febrero",
+            "Mar": "Marzo",
+            "Apr": "Abril",
+            "May": "Mayo",
+            "Jun": "Junio",
+            "Jul": "Julio",
+            "Aug": "Agosto",
+            "Sep": "Septiembre",
+            "Oct": "Octubre",
+            "Nov": "Noviembre",
+            "Dec": "Diciembre",
+
+            "January": "Enero",
+            "February": "Febrero",
+            "March": "Marzo",
+            "April": "Abril",
+            "May": "Mayo",
+            "June": "Junio",
+            "July": "Julio",
+            "August": "Agosto",
+            "September": "Septiembre",
+            "October": "Octubre",
+            "November": "Noviembre",
+            "December": "Diciembre",
+
+        };
 
         function cargaDiagramaGrant(data, categorias) {
+
             am5.ready(function () {
-                // Create root element
-                // https://www.amcharts.com/docs/v5/getting-started/#Root_element
-                var root = am5.Root.new("chartdiv");
+                //SI YA HAY GRAFICA, QUITA LA ACTUAL PARA HACER UNA NUEVA
+                root.container.children.clear();
+
                 root.dateFormatter.setAll({
                     dateFormat: "dd/MM/yyyy HH:mm",
                     dateFields: ["valueX", "openValueX"]
                 });
 
-                var am5locales_es_ES = {
-                    "Jan": "Enero",
-                    "Feb": "Febrero",
-                    "Mar": "Marzo",
-                    "Apr": "Abril",
-                    "May": "Mayo",
-                    "Jun": "Junio",
-                    "Jul": "Julio",
-                    "Aug": "Agosto",
-                    "Sep": "Septiembre",
-                    "Oct": "Octubre",
-                    "Nov": "Noviembre",
-                    "Dec": "Diciembre",
-
-                    "January": "Enero",
-                    "February": "Febrero",
-                    "March": "Marzo",
-                    "April": "Abril",
-                    "May": "Mayo",
-                    "June": "Junio",
-                    "July": "Julio",
-                    "August": "Agosto",
-                    "September": "Septiembre",
-                    "October": "Octubre",
-                    "November": "Noviembre",
-                    "December": "Diciembre",
-
-                }
-
-                //root.language.setTranslationsAny({
-                //    "January!": "¡Hola!",
-                //    "Bye": "Adios"
-                //});
-
                 root.locale = am5locales_es_ES;
 
                 // Set themes
@@ -549,7 +548,6 @@
                     paddingLeft: 0
                 }));
 
-
                 // Add legend
                 // https://www.amcharts.com/docs/v5/charts/xy-chart/legend-xy-series/
                 var legend = chart.children.push(am5.Legend.new(root, {
@@ -577,16 +575,20 @@
 
                 yAxis.data.setAll(categorias);
 
+                var dateAxis = am5xy.DateAxis.new(root, {
+                    baseInterval: { timeUnit: "minute", count: 1 },
+                    renderer: am5xy.AxisRendererX.new(root, {
+                        minorGridEnabled: true,
+                        minGridDistance: 90
+                    })
+                });
+
                 var xAxis = chart.xAxes.push(
-                  am5xy.DateAxis.new(root, {
-                      baseInterval: { timeUnit: "minute", count: 1 },
-                      renderer: am5xy.AxisRendererX.new(root, {
-                          minorGridEnabled: true,
-                          minGridDistance: 90
-                      })
-                  })
+                  dateAxis
                 );
 
+                chart.topAxesContainer.children.push(dateAxis);
+
                 // Add series
                 // https://www.amcharts.com/docs/v5/charts/xy-chart/series/
                 var series = chart.series.push(am5xy.ColumnSeries.new(root, {
@@ -611,9 +613,17 @@
                 series.data.setAll(data);
 
                 // Add scrollbars
-                chart.set("scrollbarX", am5.Scrollbar.new(root, {
+                //chart.set("scrollbarX", am5.Scrollbar.new(root, {
+                //    orientation: "horizontal"
+                //}));
+
+                // Scrollbar X
+                var scrollbarX = am5.Scrollbar.new(root, {
                     orientation: "horizontal"
-                }));
+                });
+
+                chart.set("scrollbarX", scrollbarX);
+                chart.bottomAxesContainer.children.push(scrollbarX);
 
                 // Make stuff animate on load
                 // https://www.amcharts.com/docs/v5/concepts/animations/
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 3e9bce566..b1986a163 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -63,8 +63,8 @@ Partial Class RepContratosCalendario
         If DtAvance IsNot Nothing Then
 
             For Each Row As DataRow In DtAvance.Rows
-                If String.IsNullOrEmpty(Row("NombreAF").ToString()) Then
-                    Row("NombreAF") = "Unidad no asignada"
+                If String.IsNullOrEmpty(Row("NoSerie").ToString()) Then
+                    Row("NoSerie") = "Unidad no asignada"
                 End If
             Next
 
@@ -74,22 +74,23 @@ Partial Class RepContratosCalendario
             Dim random = New Random()
 
             'DATOS
-            For Each Row As DataRow In DtAvance.FiltraParametros("NombreAF <> ''").Rows
+            For Each Row As DataRow In DtAvance.FiltraParametros("NoSerie <> ''").Rows
                 Dim obj As New JObject(
-                    New JProperty("category", Row("NombreAF")),
+                    New JProperty("category", Row("NoSerie")),
                     New JProperty("fromDate", Row("FechaInicial").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()),
                     New JProperty("toDate", Row("FechaFinal").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()),
                     New JProperty("columnSettings", New JObject(
                         New JProperty("fill", String.Format("#{0:X6}", random.Next(16777216)))
-                    ))
-                 )
+                    )),
+                    New JProperty("task", Row("NombreAF"))
+                )
                 jsonData.Add(obj)
             Next
 
             'CATEGORIAS
-            For Each Row As DataRow In DtAvance.FiltraParametros("NombreAF <> ''", "", {"NombreAF"}).Rows
+            For Each Row As DataRow In DtAvance.FiltraParametros("NoSerie <> ''", "", {"NoSerie"}).Rows
                 Dim obj As New JObject(
-                    New JProperty("category", Row("NombreAF"))
+                    New JProperty("category", Row("NoSerie"))
                 )
                 jsonCategorias.Add(obj)
             Next

From acb87ae7435ac9ccb733139c52f50ecd25e3c976 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 12 Apr 2024 18:10:41 -0700
Subject: [PATCH 06/70] --Reporte de cortes, grid movimientos de caja con
 agrupador

---
 App_Code/ClsPuntoVenta.vb       | 19 +++++++++
 Bancos/RepCortes.aspx           | 75 +++++++++++++++++++++------------
 Bancos/RepCortes.aspx.vb        | 52 ++++++++++++++++-------
 Compras/PopUpVerFactura.aspx.vb |  2 +-
 4 files changed, 104 insertions(+), 44 deletions(-)

diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb
index 416ba3ef3..6bbffe680 100644
--- a/App_Code/ClsPuntoVenta.vb
+++ b/App_Code/ClsPuntoVenta.vb
@@ -404,6 +404,25 @@ Public Class ClsPuntoVenta
             OnError("Ocurrió un error al obtener los Movimientos de Caja del Cortes del Punto de Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
+        Return Retorno
+    End Function
+
+    Public Function GetVta_MovimientosCajasReporte(CveCorte As Integer, TipoMovimiento As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MovimientosCajasRepGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
+            .Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de caja del cortes del punto de venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
         Return Retorno
     End Function
 
diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx
index 74c40e724..f04019057 100644
--- a/Bancos/RepCortes.aspx
+++ b/Bancos/RepCortes.aspx
@@ -427,35 +427,54 @@
 
                     </div>
                 </div>
-                <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta" ToolTip="Reporte de Cortes" CssClass="table table-striped table-advance table-hover Widthall" Style="position: static" UseAccessibleHeader="false" GridLines="None">
-                    <Columns>
-                        <asp:TemplateField ItemStyle-HorizontalAlign="Left">
-                            <HeaderTemplate>
-                                Serie - Folio                             
+                <div class="row">
+                    <div class="col-md-12">
+                        <br />
+                        <b>Movimientos del día</b>
+                        <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta" ToolTip="Reporte de Cortes" CssClass="table table-striped table-advance table-hover Widthall" Style="position: static" UseAccessibleHeader="false" GridLines="None">
+                            <Columns>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                                    <HeaderTemplate>
+                                        Serie - Folio                             
                            
-                            </HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:HyperLink ID="LBDescripcion" runat="server" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
-                        <asp:TemplateField HeaderText="Fac.Rem.Anterior" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
-                            <ItemTemplate>
-                                <asp:Literal ID="LtlFacRemisionAnterior" runat="server" Text='<%# Eval("FacturaRemisionAnteriorTexto") %>'></asp:Literal>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
-                            <ItemTemplate>
-                                <asp:Label ID="LblTotal" Text='<%# Eval("ImportePagado", "{0:N2}") %>' runat="server"></asp:Label>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <%--<asp:BoundField HeaderText="Total" DataField="ImportePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%>
-                        <asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" ItemStyle-HorizontalAlign="Left" />
-                    </Columns>
-                    <HeaderStyle CssClass="Titulos" />
-                    <RowStyle CssClass="Texto" />
-                    <AlternatingRowStyle CssClass="TextoAlterno" />
-                </asp:GridView>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:HyperLink ID="LBDescripcion" runat="server" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
+                                <asp:TemplateField HeaderText="Fac.Rem.Anterior" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                                    <ItemTemplate>
+                                        <asp:Literal ID="LtlFacRemisionAnterior" runat="server" Text='<%# Eval("FacturaRemisionAnteriorTexto") %>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LblTotal" Text='<%# Eval("ImportePagado", "{0:N2}") %>' runat="server"></asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <%--<asp:BoundField HeaderText="Total" DataField="ImportePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%>
+                                <asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" ItemStyle-HorizontalAlign="Left" />
+                            </Columns>
+                            <HeaderStyle CssClass="Titulos" />
+                            <RowStyle CssClass="Texto" />
+                            <AlternatingRowStyle CssClass="TextoAlterno" />
+                        </asp:GridView>
+                    </div>
+                </div>
+                <div class="row">
+                    <div class="col-md-6">
+                        <br />
+                        <b>Movimientos de caja</b>
+                        <asp:GridView ID="GvIngresosRetiros" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%">
+                            <Columns>
+                                <asp:BoundField HeaderText="Tipo" DataField="TipoMovimiento" />
+                                <asp:BoundField HeaderText="Descripción" DataField="Descripcion" />
+                                <asp:BoundField HeaderText="Total" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                            </Columns>
+                        </asp:GridView>
+                    </div>
+                </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index 2dacc1727..ea4d9efb6 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -125,6 +125,13 @@ Partial Class Bancos_RepCortes
         End If
     End Sub
 
+    Protected Sub GvIngresosRetiros_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvIngresosRetiros.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CveMovimiento").ToString = "" Then
+                e.Row.CssClass = "Totales"
+            End If
+        End If
+    End Sub
 
 
 
@@ -167,31 +174,39 @@ Partial Class Bancos_RepCortes
         Dim Finalizado As Integer = gvr.DataKey("Finalizado").ToString.ToEntero
         Fecha = gvr.DataKey("FechaInicial").ToString
         Nombre = gvr.DataKey("Nombre").ToString
-        Dim Vent As New ClsPuntoVenta
-        Dim Vn As New ClsVentas
-        If Vn.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-            GvP.DataSource = Vn.DtResultados
-            DtCortesVentasResumen = Vn.DtResultados
+        Dim ObjPuntoVenta As New ClsPuntoVenta
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvP.DataSource = ObjVentas.DtResultados
+            DtCortesVentasResumen = ObjVentas.DtResultados
         End If
+
         If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
             DivIVA.Visible = True
-            If Vn.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-                GvPorIVA.DataSource = Vn.DtResultados
+            If ObjVentas.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                GvPorIVA.DataSource = ObjVentas.DtResultados
             End If
         End If
 
-        If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-            GvDep.DataSource = Vn.DtResultados
-            If Vn.DtResultados.Rows.Count > 0 Then
+        If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso ObjVentas.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvDep.DataSource = ObjVentas.DtResultados
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
                 DivDep.Visible = True
             End If
         End If
 
-        If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
-            GvD.DataSource = Vent.DtResultados
-            DtCortesVentas = Vent.DtResultados
+        If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
+            DtCortesVentas = ObjPuntoVenta.DtResultados.Copy()
+            GvD.DataSource = DtCortesVentas
+
             divDetalle.Visible = True
         End If
+
+        If ObjPuntoVenta.GetVta_MovimientosCajasReporte(CveCorte, -1) Then
+            GvIngresosRetiros.DataSource = ObjPuntoVenta.DtResultados.Copy()
+        End If
+
         If (DtCortesVentasResumen IsNot Nothing AndAlso DtCortesVentasResumen.Rows.Count > 0) Or (DtCortesVentas IsNot Nothing AndAlso DtCortesVentas.Rows.Count > 0) Then
             HplDownPDF.Visible = True
             HplDownEXCEL.Visible = True
@@ -201,8 +216,15 @@ Partial Class Bancos_RepCortes
             HplDownPDF.Visible = False
             HplDownEXCEL.Visible = False
         End If
-        Vn.Dispose()
-        Vent.Dispose()
+        ObjVentas.Dispose()
+        ObjPuntoVenta.Dispose()
+
+
+        GvD.DataBind()
+        GvP.DataBind()
+        GvDep.DataBind()
+        GvPorIVA.DataBind()
+        GvIngresosRetiros.DataBind()
 
 
         GvD.DataBind()
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index ad012761a..490365528 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1597,7 +1597,7 @@ Partial Class PopUpVerFactura
                 DtReporteCorte = ObjPuntoVenta.DtResultados.FiltraParametros("CveCorte > 0")
             End If
 
-            If ObjPuntoVenta.GetVta_MovimientosCajas(CveCorte, -1) Then
+            If ObjPuntoVenta.GetVta_MovimientosCajasReporte(CveCorte, -1) Then
                 DtIngresosRetiros = ObjPuntoVenta.DtResultados.Copy()
             End If
         End If

From 1ff61a7a5e1e831e865f4214f8cc355d4fa27487 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 12 Apr 2024 19:41:19 -0700
Subject: [PATCH 07/70] --Cambios rep cortes E193

---
 Compras/PopUpVerFactura.aspx.vb      |  27 +-
 Empresas/193/Formatos/RepCortes.rdlc | 869 ++++++++++++++++++++++++++-
 2 files changed, 880 insertions(+), 16 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 490365528..519938730 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1570,6 +1570,7 @@ Partial Class PopUpVerFactura
         Dim DtCortesVentas As DataTable = Nothing
         Dim DtReporteCorte As DataTable = Nothing
         Dim DtIngresosRetiros As DataTable = Nothing
+        Dim DtDepositos As DataTable = Nothing
 
         Dim Fecha As String = "", Nombre As String = ""
         Dim OpcionDetallado As Integer = 1
@@ -1597,9 +1598,13 @@ Partial Class PopUpVerFactura
                 DtReporteCorte = ObjPuntoVenta.DtResultados.FiltraParametros("CveCorte > 0")
             End If
 
-            If ObjPuntoVenta.GetVta_MovimientosCajasReporte(CveCorte, -1) Then
+            If ObjPuntoVenta.GetVta_MovimientosCajas(CveCorte, -1) Then
                 DtIngresosRetiros = ObjPuntoVenta.DtResultados.Copy()
             End If
+
+            If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso ObjVenta.GetCortesDetalleDepositosCaja(CveCorte, -1, UsuarioActual.CveEmpresa) Then
+                DtDepositos = ObjVenta.DtResultados.Copy()
+            End If
         End If
 
         ObjVenta.Dispose()
@@ -1625,7 +1630,7 @@ Partial Class PopUpVerFactura
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")))
             params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
             params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
@@ -1748,6 +1753,24 @@ Partial Class PopUpVerFactura
                     Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = DtIngresosRetiros}
                     lrds.Add(rds5)
 
+
+                    If UsuarioActual.CveEmpresa = 193 Then
+
+                        Dim CveCuenta As Integer = 186367
+                        Using ObjConta As New ClsContabilidad
+                            If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
+                                Dim rdsConta As New ReportDataSource With {.Name = "DsContabilidad", .Value = ObjConta.DtResultados}
+                                lrds.Add(rdsConta)
+                            End If
+                        End Using
+
+                        If DtDepositos IsNot Nothing Then
+                            Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos}
+                            lrds.Add(rdsDepositos)
+                        End If
+
+                    End If
+
                     'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
                     'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
                     'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
diff --git a/Empresas/193/Formatos/RepCortes.rdlc b/Empresas/193/Formatos/RepCortes.rdlc
index 3d72d3b77..0310acaab 100644
--- a/Empresas/193/Formatos/RepCortes.rdlc
+++ b/Empresas/193/Formatos/RepCortes.rdlc
@@ -196,7 +196,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Detalles de Pagos</Value>
+                <Value>Detalles de pago</Value>
                 <Style>
                   <FontSize>12pt</FontSize>
                   <FontWeight>Bold</FontWeight>
@@ -545,7 +545,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet2</DataSetName>
-        <Top>1.77603cm</Top>
+        <Top>3.94244cm</Top>
         <Left>0.06614cm</Left>
         <Height>0.93113cm</Height>
         <Width>18.57619cm</Width>
@@ -939,7 +939,19 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Ventas</Value>
+                <Value>Resumen de transacciones</Value>
+                <Style>
+                  <FontSize>12pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value />
                 <Style>
                   <FontSize>12pt</FontSize>
                   <FontWeight>Bold</FontWeight>
@@ -953,7 +965,7 @@
         <Top>0.08792cm</Top>
         <Left>7.21681cm</Left>
         <Height>0.56472cm</Height>
-        <Width>4.82833cm</Width>
+        <Width>5.79283cm</Width>
         <ZIndex>5</ZIndex>
         <Style>
           <Border>
@@ -972,7 +984,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Cajas</Value>
+                <Value>Estado de la caja</Value>
                 <Style>
                   <FontSize>12pt</FontSize>
                   <FontWeight>Bold</FontWeight>
@@ -1260,7 +1272,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet5</DataSetName>
-        <Top>3.41299cm</Top>
+        <Top>5.5794cm</Top>
         <Left>0.06614cm</Left>
         <Height>0.93113cm</Height>
         <Width>12.81065cm</Width>
@@ -1278,7 +1290,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Ingresos/Retiros</Value>
+                <Value>Movimientos de caja</Value>
                 <Style>
                   <FontSize>12pt</FontSize>
                   <FontWeight>Bold</FontWeight>
@@ -1289,7 +1301,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>2.70716cm</Top>
+        <Top>4.87357cm</Top>
         <Left>0.06614cm</Left>
         <Height>0.6cm</Height>
         <Width>4.82833cm</Width>
@@ -1304,8 +1316,777 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Textbox26">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Movimientos del día</Value>
+                <Style>
+                  <FontSize>12pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox3</rd:DefaultName>
+        <Top>3.30716cm</Top>
+        <Left>0.06614cm</Left>
+        <Height>0.6cm</Height>
+        <Width>4.82833cm</Width>
+        <ZIndex>9</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Tablix Name="Tablix6">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>2.73022cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.09811cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.28714cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.47879cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox27">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Tipo de deposito</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox4</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox28">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Folio</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox16</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox29">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Total</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox18</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.45234cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="MetodoPago6">
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!TipoTransaccion.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>MetodoPago</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe6">
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!FolioPago.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="ImportePagado3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Importe.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>ImportePagado</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Detalles6" />
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DsDepositos</DataSetName>
+        <Top>2.30548cm</Top>
+        <Left>0.06614cm</Left>
+        <Height>0.93113cm</Height>
+        <Width>7.11547cm</Width>
+        <ZIndex>10</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+      <Textbox Name="Textbox31">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Depositos de caja</Value>
+                <Style>
+                  <FontSize>12pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox3</rd:DefaultName>
+        <Top>1.6702cm</Top>
+        <Left>0.06614cm</Left>
+        <Height>0.6cm</Height>
+        <Width>4.82833cm</Width>
+        <ZIndex>11</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Tablix Name="Tablix7">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>2.06748cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.51199cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.28714cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.40196cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.15604cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.47879cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox30">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Código</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox4</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox32">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Nombre</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox16</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox33">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Cargos</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox18</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox43">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Abonos</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox43</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox47">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Saldo</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox47</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.45234cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="MetodoPago7">
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Codigo.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>MetodoPago</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe7">
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Nombre.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="ImportePagado4">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Cargos.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>ImportePagado</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Abonos">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Abonos.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00;(#,0.00)</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Abonos</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Abonos1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=(Fields!Cargos.Value - Fields!Abonos.Value)</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00;(#,0.00)</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Abonos1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Detalles7" />
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DsContabilidad</DataSetName>
+        <Top>2.30548cm</Top>
+        <Left>7.358cm</Left>
+        <Height>0.93113cm</Height>
+        <Width>11.42461cm</Width>
+        <ZIndex>12</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+      <Textbox Name="Textbox34">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Estado contable de la caja</Value>
+                <Style>
+                  <FontSize>12pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox3</rd:DefaultName>
+        <Top>1.6702cm</Top>
+        <Left>7.358cm</Left>
+        <Height>0.6cm</Height>
+        <Width>6.33646cm</Width>
+        <ZIndex>13</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
-    <Height>1.71028in</Height>
+    <Height>2.5632in</Height>
     <Style />
   </Body>
   <Width>7.44383in</Width>
@@ -1459,7 +2240,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>0.0829cm</Top>
+          <Top>0.08289cm</Top>
           <Left>15.43789cm</Left>
           <Height>0.38981cm</Height>
           <Width>3.20444cm</Width>
@@ -1491,7 +2272,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox8</rd:DefaultName>
-          <Top>0.0829cm</Top>
+          <Top>0.08289cm</Top>
           <Left>0.06614cm</Left>
           <Height>0.38981cm</Height>
           <Width>1.60042cm</Width>
@@ -1523,7 +2304,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox9</rd:DefaultName>
-          <Top>0.0829cm</Top>
+          <Top>0.08289cm</Top>
           <Left>1.61047cm</Left>
           <Height>0.38981cm</Height>
           <Width>5.14936cm</Width>
@@ -1556,7 +2337,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox10</rd:DefaultName>
-          <Top>0.0829cm</Top>
+          <Top>0.08289cm</Top>
           <Left>6.98794cm</Left>
           <Height>0.38981cm</Height>
           <Width>2.92333cm</Width>
@@ -1589,7 +2370,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox11</rd:DefaultName>
-          <Top>0.0829cm</Top>
+          <Top>0.08289cm</Top>
           <Left>9.89716cm</Left>
           <Height>0.38981cm</Height>
           <Width>4.32745cm</Width>
@@ -1770,6 +2551,66 @@
         <rd:TableAdapterName />
       </rd:DataSetInfo>
     </DataSet>
+    <DataSet Name="DsDepositos">
+      <Query>
+        <DataSourceName>DataSet</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="TipoTransaccion">
+          <DataField>TipoTransaccion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="FolioPago">
+          <DataField>FolioPago</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DsContabilidad">
+      <Query>
+        <DataSourceName>DataSet</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Codigo">
+          <DataField>Codigo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Nombre">
+          <DataField>Nombre</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Cargos">
+          <DataField>Cargos</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Abonos">
+          <DataField>Abonos</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
   </DataSets>
   <ReportParameters>
     <ReportParameter Name="NombreEmpresa">

From 40361dda2c977d304ec3736f1ecd965caa0e94e8 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Apr 2024 20:01:47 -0700
Subject: [PATCH 08/70] - cambios en login de acceso

---
 App_Code/ClsSisUsuarios.vb | 8 ++------
 App_Code/ClsVentas.vb      | 2 +-
 App_Code/WS/WSUSer.vb      | 2 +-
 App_Code/WsSIGWeb.vb       | 2 +-
 App_Code/wsSIG.vb          | 6 +++---
 5 files changed, 8 insertions(+), 12 deletions(-)

diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index 070cc0ae7..fcebdda87 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -189,16 +189,12 @@ Public Class ClsSisUsuarios
         End Try
         Return Retorno
     End Function
-    Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1, Optional GrupoEmpresa As String = "", Optional CvePlataforma As Integer = -1) As Usuario
+    Public Function ValidaUsuario(Usuario As String, Password As String, Optional CveEmpresa As Integer = -1, Optional GrupoEmpresa As String = "") As Usuario
         Dim Retorno As Usuario = Nothing
-        DataAdapter("PA_Sis_UsuariosGet")
+        DataAdapter("PA_Sis_UsuarioValidacionGet")
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveUsuario", SqlDbType.Int).Value = -1
-            .Add("@CveRol", SqlDbType.Int).Value = -1
             .Add("@Usuario", SqlDbType.VarChar).Value = Usuario
             .Add("@Contraseña", SqlDbType.VarChar).Value = Password
-            .Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma
-            .Add("@EsLogIn", SqlDbType.Bit).Value = 1
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@GrupoEmpresa", SqlDbType.VarChar).Value = GrupoEmpresa
         End With
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index c6406dcbb..1f852c7c0 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -3531,7 +3531,7 @@ Public Class ClsVentas
                         CveVentasError.Add(PCveVenta.ToEntero)
                         Continue For
                     End If
-                    Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña, IMEI)
+                    Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña)
 
                     If ObjEmpresa.GetEmpresas(pCveEmpresa, "-1", "-1", "-1", "-1") Then
                         Usuario.Empresa = ObjEmpresa.Empresa
diff --git a/App_Code/WS/WSUSer.vb b/App_Code/WS/WSUSer.vb
index 9f8f2f502..27213e81a 100644
--- a/App_Code/WS/WSUSer.vb
+++ b/App_Code/WS/WSUSer.vb
@@ -44,7 +44,7 @@ Namespace SIG
             Dim Retorno As List(Of String) = Nothing
             If continuar Then
                 Using objuser As New ClsSisUsuarios
-                    Dim user As Usuario = objuser.ValidaUsuario(username, Extensiones.ModExtensiones.Encripta(password), "-1", CveEmpresastr.ToEntero())
+                    Dim user As Usuario = objuser.ValidaUsuario(username, Extensiones.ModExtensiones.Encripta(password), CveEmpresa:=CveEmpresastr.ToEntero())
 
                     Dim OjEmpresa As Empresa = Nothing
                     If user IsNot Nothing Then
diff --git a/App_Code/WsSIGWeb.vb b/App_Code/WsSIGWeb.vb
index d2c3bfe73..0f44f3b13 100644
--- a/App_Code/WsSIGWeb.vb
+++ b/App_Code/WsSIGWeb.vb
@@ -59,7 +59,7 @@ Public Class WsSIGWeb
 
                 If ObjUsuario.GetUsuarios(CveUsuario, -1, -1) Then
                     Contraseña = ObjUsuario.DtResultados.Rows(0)("Contraseña").ToString
-                    Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña, IMEI)
+                    Usuario = ObjUsuario.ValidaUsuario(Nombre, Contraseña)
 
                     If ObjEmpresa.GetEmpresas(pCveEmpresa, "-1", "-1", "-1", "-1") Then
                         Usuario.Empresa = ObjEmpresa.Empresa
diff --git a/App_Code/wsSIG.vb b/App_Code/wsSIG.vb
index c94a13c60..d4d56b6d9 100644
--- a/App_Code/wsSIG.vb
+++ b/App_Code/wsSIG.vb
@@ -42,7 +42,7 @@ Public Class wsSIG
                 Dim ttDato As Usuario
                 Dim tUsuario As New ClsSisUsuarios
 
-                ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI)
+                ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia))
 
                 If ttDato IsNot Nothing Then
                     Retorno = New UsuarioWs
@@ -92,7 +92,7 @@ Public Class wsSIG
 
                 Dim ttDato As Usuario = Nothing
                 Using tUsuario As New ClsSisUsuarios()
-                    ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI, CveEmpresa)
+                    ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), CveEmpresa:=CveEmpresa)
                 End Using
                 If validatesubproyecto Then
 
@@ -693,7 +693,7 @@ Public Class wsSIG
             Dim ttDato As Usuario
             Dim tUsuario As New ClsSisUsuarios
 
-            ttDato = tUsuario.ValidaUsuario(objuser.Usuario, Encripta(objuser.Contrasenia), IMEI)
+            ttDato = tUsuario.ValidaUsuario(objuser.Usuario, Encripta(objuser.Contrasenia))
 
             If ttDato IsNot Nothing Then
                 Retorno = New UsuarioWs

From 7bd0cd92488a7e1e53424032a09786a559663460 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Apr 2024 20:02:05 -0700
Subject: [PATCH 09/70] =?UTF-8?q?--=20timeout=20para=20n=C3=B3mina?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsNominas.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 418df87c3..05165e95e 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2801,7 +2801,7 @@ Public Class ClsNominas
                 .Add("@FactorISimula", SqlDbType.Decimal).Value = FactorISimula
             End With
 
-
+            SqlAdapter.SelectCommand.CommandTimeout = 0
             SqlAdapter.Fill(DTSet)
             retorno = True
         Catch sqEx As SqlException

From 94545ac8ceea681cb5becbda54d6e1be7fe34c1c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Apr 2024 20:03:30 -0700
Subject: [PATCH 10/70] - cambios en acceso

---
 LogIn.aspx.vb                       | 55 +++++++++--------------------
 Sistemas/PopUpCambiaUsuario.aspx.vb |  3 +-
 2 files changed, 17 insertions(+), 41 deletions(-)

diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index d141d84d0..db5fa348b 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -207,31 +207,29 @@ Partial Class LogIn
         End If
         If BtnLogIn_Clickenter = 0 Then 'esta variable se recicla con cada postaback
             BtnLogIn_Clickenter = 1
-            Dim tcveEmpresa As Integer = -1
             Dim tGrupoEmpresa As String = ""
 
-            'If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tcveEmpresa = 13 : tGrupoEmpresa = "EMD"
-            'If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tcveEmpresa = 140 : tGrupoEmpresa = "BDH"
-            'If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tcveEmpresa = 141 : tGrupoEmpresa = "ECONOLLANTAS"
-            'If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tcveEmpresa = 119 : tGrupoEmpresa = "JAM"
-            'If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tcveEmpresa = 172 : tGrupoEmpresa = "CITRUS"
-            'If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tcveEmpresa = 173 : tGrupoEmpresa = "KINO"
-            'If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tcveEmpresa = 7 : tGrupoEmpresa = "VSH"
-            'If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tcveEmpresa = 158 : tGrupoEmpresa = "AJAM"
-            'If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tcveEmpresa = 183 : tGrupoEmpresa = "ALATEL"
-            'If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tcveEmpresa = 153 : tGrupoEmpresa = "SERVEC"
-            'If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tcveEmpresa = 186 : tGrupoEmpresa = "SMS"
-            'If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tcveEmpresa = 188 : tGrupoEmpresa = "VYA"
-            'If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tcveEmpresa = 189 : tGrupoEmpresa = "GRUPODIAZ"
-            'If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tcveEmpresa = 190 : tGrupoEmpresa = "FERRETERA"
+            If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD"
+            If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH"
+            If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS"
+            If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
+            If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
+            If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"
+            If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tGrupoEmpresa = "VSH"
+            If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tGrupoEmpresa = "AJAM"
+            If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tGrupoEmpresa = "ALATEL"
+            If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tGrupoEmpresa = "SERVEC"
+            If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tGrupoEmpresa = "SMS"
+            If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tGrupoEmpresa = "VYA"
+            If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ"
+            If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA"
 
             Dim ObjUsuario As New ClsSisUsuarios
             Dim Usuario As Usuario = Nothing
-            'Dim UsuarioAsignaciones As Usuario = Nothing
 
             Dim isgps As Boolean = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper())
-            Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI, GrupoEmpresa:=tGrupoEmpresa, CvePlataforma:=If(isgps, 3, -1))
-            'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa)
+            Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), GrupoEmpresa:=tGrupoEmpresa)
+
             If Not isgps AndAlso Usuario IsNot Nothing AndAlso Usuario.CvePlataforma = 3 Then ' SI ES de la plataforma 3(GPS), no debe de entar por liga normal
                 Usuario = Nothing
             End If
@@ -242,27 +240,6 @@ Partial Class LogIn
             If Usuario IsNot Nothing Then
                 If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then
 
-                    If Usuario.CveRol = 1 Then
-                        If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tcveEmpresa = 13 : tGrupoEmpresa = "EMD"
-                        If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tcveEmpresa = 140 : tGrupoEmpresa = "BDH"
-                        If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tcveEmpresa = 141 : tGrupoEmpresa = "ECONOLLANTAS"
-                        If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tcveEmpresa = 119 : tGrupoEmpresa = "JAM"
-                        If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tcveEmpresa = 172 : tGrupoEmpresa = "CITRUS"
-                        If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tcveEmpresa = 173 : tGrupoEmpresa = "KINO"
-                        If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tcveEmpresa = 7 : tGrupoEmpresa = "VSH"
-                        If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tcveEmpresa = 158 : tGrupoEmpresa = "AJAM"
-                        If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tcveEmpresa = 183 : tGrupoEmpresa = "ALATEL"
-                        If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tcveEmpresa = 153 : tGrupoEmpresa = "SERVEC"
-                        If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tcveEmpresa = 186 : tGrupoEmpresa = "SMS"
-                        If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tcveEmpresa = 188 : tGrupoEmpresa = "VYA"
-                        If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tcveEmpresa = 189 : tGrupoEmpresa = "GRUPODIAZ"
-                        If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tcveEmpresa = 190 : tGrupoEmpresa = "FERRETERA"
-                    End If
-
-                    If tcveEmpresa > 0 Then
-                        Usuario.CveEmpresa = tcveEmpresa
-                    End If
-
                     CreaObjetoEmpresa(Usuario)
                     ADSSessionConfig.sessionUser.MultipleEmpresa = True
 
diff --git a/Sistemas/PopUpCambiaUsuario.aspx.vb b/Sistemas/PopUpCambiaUsuario.aspx.vb
index bb47e1129..55fa8f59d 100644
--- a/Sistemas/PopUpCambiaUsuario.aspx.vb
+++ b/Sistemas/PopUpCambiaUsuario.aspx.vb
@@ -99,8 +99,7 @@ Partial Class Sistemas_PopUpCambiaUsuario
                 Dim Usuario As Usuario
                 'Dim UsuarioAsignaciones As Usuario
 
-                Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
-                'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa)
+                Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, tCveEmpresa)
                 ObjUsuario.Dispose()
 
                 If Usuario IsNot Nothing Then

From 00c921fe4479ebf8e9f2427dcee2ac55d528c395 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Apr 2024 20:03:55 -0700
Subject: [PATCH 11/70] -- filtros de clasif de ingresos

---
 Ventas/PopUpBuscarFolio.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb
index 11512efc6..7f76f6e5e 100644
--- a/Ventas/PopUpBuscarFolio.aspx.vb
+++ b/Ventas/PopUpBuscarFolio.aspx.vb
@@ -55,7 +55,7 @@ Partial Class PopUpBuscarFolio
         If UsuarioActual.Empresa.UsaAC Then
             DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         Else
-            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("UsoClasificacion = 1", Orderby:="Clasificacion")
         End If
         'DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()

From fad88a4143ae1194b5cd68e58759b928204c8d6c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Apr 2024 20:04:07 -0700
Subject: [PATCH 12/70] -- mejora en conceptos

---
 Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs
index cee168ffd..94d71c882 100644
--- a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs
+++ b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs
@@ -353,11 +353,11 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
                         SaldoAdmin = Saldo;
                     }
                     else if (Tipo == 3)
-                    { 
-                        ConPreP.CveConcepto = 92;
+                    {                        
+                        ConPreP = ClsPaginas.get_ObtenerCveConceptoPrePoliza(18, Gv.DataKey("CveMoneda").ToEntero(), true,2);
                         CveIE = Gv.DataKey("CveIE").ToEntero();
-                        Saldo = -Gv.DataKey("Saldo").ToDecimal();
-                        SaldoAdmin = -Saldo;
+                        Saldo = Gv.DataKey("Saldo").ToDecimal();
+                        SaldoAdmin = Saldo;
                     } 
 
                     ImporteTotalGasto += Saldo;

From 46bef91bc0f0ba8164ca77f7cf3a54ae54ceefe8 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Apr 2024 20:17:51 -0700
Subject: [PATCH 13/70] -- cambios en la toma de valores de tolerancia

---
 RH/RepChecadorPreAsistencia.aspx.vb | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb
index aaa3b0ebd..a015b1305 100644
--- a/RH/RepChecadorPreAsistencia.aspx.vb
+++ b/RH/RepChecadorPreAsistencia.aspx.vb
@@ -419,6 +419,14 @@ Partial Class RH_RepChecadorPreAsistencia
                             TolSalidaAntesMin = DtHorarioTemp(0)("TolSalidaAntesMin").ToString().ToEntero
                         End If
                     End If
+                Else
+                    If DTHorarios.Rows.Count > 0 Then
+                        TolRetAcumulados = DTHorarios(0)("TolRetAcumulados").ToString().ToEntero
+                        TolRetEntradaMin = DTHorarios(0)("TolRetEntradaMin").ToString().ToEntero
+                        TolFalEntradaMin = DTHorarios(0)("TolFalEntradaMin").ToString().ToEntero
+                        RetSalidaAntes = Boolean.Parse(DTHorarios(0)("RetSalidaAntes").ToString())
+                        TolSalidaAntesMin = DTHorarios(0)("TolSalidaAntesMin").ToString().ToEntero
+                    End If
                 End If
 
             End If
@@ -454,7 +462,7 @@ Partial Class RH_RepChecadorPreAsistencia
 
 
             If RdbChecador.Checked Then
-
+                'DtPersonal = DtPersonal.FiltraParametros("CvePersonal = 21271")
                 For Each dRow As DataRow In DtPersonal.Rows
 
                     Dim Fecha As Date = FechaInicioPeriodo

From 3cf78ec01bd252faef470f0a9b297b5f140807b1 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Apr 2024 20:36:10 -0700
Subject: [PATCH 14/70] -

---
 Ashx/SIGPolizaVirtual.ashx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ashx/SIGPolizaVirtual.ashx b/Ashx/SIGPolizaVirtual.ashx
index f0d8daa67..73c700dde 100644
--- a/Ashx/SIGPolizaVirtual.ashx
+++ b/Ashx/SIGPolizaVirtual.ashx
@@ -31,7 +31,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioToken.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioToken)
             End If

From 2a4984b5ac9961cb330d70918ccb1ce35c1d61bd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Apr 2024 06:54:02 -0700
Subject: [PATCH 15/70] - cambio en acceso

---
 Ashx/E119.ashx                  | 2 +-
 Ashx/E141.ashx                  | 2 +-
 Ashx/E48.ashx                   | 2 +-
 Ashx/MHRedes.ashx               | 2 +-
 Ashx/SIGFacturacion.ashx        | 2 +-
 Ashx/SIGFacturacionCiclica.ashx | 2 +-
 Ashx/TareasProgramadas.ashx     | 6 +++---
 asmx/WSApp.asmx                 | 4 ++--
 asmx/WSCGame.asmx               | 2 +-
 9 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx
index cb056f393..65c24e516 100644
--- a/Ashx/E119.ashx
+++ b/Ashx/E119.ashx
@@ -57,7 +57,7 @@ Public Class E119 : Implements IHttpHandler
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx
index cea15c20e..d173221f0 100644
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -67,7 +67,7 @@ Public Class E141 : Implements IHttpHandler
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/Ashx/E48.ashx b/Ashx/E48.ashx
index d56099cc6..e5a83564d 100644
--- a/Ashx/E48.ashx
+++ b/Ashx/E48.ashx
@@ -405,7 +405,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/Ashx/MHRedes.ashx b/Ashx/MHRedes.ashx
index 49649d0f9..f34ad59d3 100644
--- a/Ashx/MHRedes.ashx
+++ b/Ashx/MHRedes.ashx
@@ -58,7 +58,7 @@ Public Class MobileHandler : Implements IHttpHandler
 
         Dim Json As New StringBuilder
 
-        User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"), IMEI)
+        User = ObjUsuario.ValidaUsuario(Contexto.Request("Usuario"), Contexto.Request("Password"))
 
         If User IsNot Nothing Then
 
diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx
index f223e5237..86a5949f7 100644
--- a/Ashx/SIGFacturacion.ashx
+++ b/Ashx/SIGFacturacion.ashx
@@ -227,7 +227,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx
index d123a32f1..1ce3d4f7c 100644
--- a/Ashx/SIGFacturacionCiclica.ashx
+++ b/Ashx/SIGFacturacionCiclica.ashx
@@ -63,7 +63,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx
index 16774b5f1..38dde9ef3 100644
--- a/Ashx/TareasProgramadas.ashx
+++ b/Ashx/TareasProgramadas.ashx
@@ -119,7 +119,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
         If GlobalDTUsuarios.Rows.Count > 0 Then
             Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0)
             Dim ObjUsuario As New ClsSisUsuarios
-            usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, IMEI, cveEmpresa)
+            usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario").ToString, dtrow("Contraseña").ToString, CveEmpresa:=cveEmpresa)
             ObjUsuario.Dispose()
 
             Dim ObjEmpresa As New ClsSisEmpresas()
@@ -227,7 +227,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
 #Region "obtengo el usuario con el username y la pass"
 
         Using ObjUsuario As New ClsSisUsuarios()
-            usuario = ObjUsuario.ValidaUsuario(username, pass, IMEI, CveEmpresa)
+            usuario = ObjUsuario.ValidaUsuario(username, pass, CveEmpresa:=CveEmpresa)
         End Using
 #End Region
 #Region "Asigno la empresa al usuario"
@@ -352,7 +352,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioActual)
             End If
diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx
index 7c3ad6262..3d4d064e3 100644
--- a/asmx/WSApp.asmx
+++ b/asmx/WSApp.asmx
@@ -75,7 +75,7 @@ Public Class WSApp
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia)
                 CreaObjetoEmpresa(UsuarioActual)
             End If
         End If
@@ -90,7 +90,7 @@ Public Class WSApp
         Dim ObjUsuarios As New ClsSisUsuarios
         Dim ObjClientes As New ClsClientes
         Try
-            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI)
+            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Encripta(Contrasenia))
 
             If UsuarioActual IsNot Nothing Then
                 Salida = New WSUSER
diff --git a/asmx/WSCGame.asmx b/asmx/WSCGame.asmx
index 175bc33e8..b373a9a0f 100644
--- a/asmx/WSCGame.asmx
+++ b/asmx/WSCGame.asmx
@@ -43,7 +43,7 @@ Public Class WSCGame
 
             If Not IsNothing(Entrada) Then
                 Dim tUsuario As New ClsSisUsuarios
-                Dim UsuarioActual = tUsuario.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia), IMEI)
+                Dim UsuarioActual = tUsuario.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia))
                 tUsuario.Dispose()
 
                 If UsuarioActual IsNot Nothing Then

From e0f13be7c36344cfd1311a49ecd1817db8c235a2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Apr 2024 06:54:38 -0700
Subject: [PATCH 16/70] - cambio en acceso

---
 Sistemas/PopUpSeleccionarEmpresa.aspx.vb | 2 +-
 Ventas/Ventas.aspx.vb                    | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
index cca2720e1..a53dcd376 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
@@ -66,7 +66,7 @@ Partial Class PopUpSeleccionarEmpresa
 
                 Dim ObjUsuario As New ClsSisUsuarios
                 Dim Usuario As Usuario = Nothing
-                Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), IMEI, gvr.DataKey("CveEmpresa").ToEntero)
+                Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), CveEmpresa:=gvr.DataKey("CveEmpresa").ToEntero)
                 ObjUsuario.Dispose()
 
                 If Usuario IsNot Nothing Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1e85a60b2..ddde4808e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3636,7 +3636,7 @@ Partial Class Ventas
             Dim ObjUsuario As New ClsSisUsuarios
             Dim Usuario As Usuario
 
-            Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
+            Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)
 
             ObjUsuario.Dispose()
 
@@ -37874,7 +37874,7 @@ Partial Class Ventas
 
         Using ObjUsuario As New ClsSisUsuarios
             If RblTipoAutorizacionDesc.SelectedValue = "1" Then
-                UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), ModExtensiones.IMEI, CveEmpresa:=UsuarioActual.CveEmpresa)
+                UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), CveEmpresa:=UsuarioActual.CveEmpresa)
             Else
                 Dim CveUsuarioNuevo As Integer = -1
 
@@ -37891,7 +37891,7 @@ Partial Class Ventas
                         tContraseña = DrUsuario("Contraseña").ToString
                         tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero
 
-                        UsuarioAutorizar = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
+                        UsuarioAutorizar = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)
                     End If
                 End If
             End If

From dd87858084401bb47b92bdd817f4ea46131dd2f8 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 13 Apr 2024 08:05:27 -0700
Subject: [PATCH 17/70] SMS - 2024.04.11

---
 AF/AF.aspx                                   | 30 +++++++++++---------
 AF/AF.aspx.vb                                |  7 +++--
 AF/CatClasificacionesCaracteristicas.aspx    | 23 +++++++++++----
 AF/CatClasificacionesCaracteristicas.aspx.vb | 25 ++++++++++++----
 Bancos/PopIEVentas.aspx.vb                   |  2 +-
 Inventarios/EntregaAlmacen.aspx              |  2 +-
 OS/RepOSMedicas.aspx                         |  1 +
 Ventas/Ventas.aspx                           | 18 ++++++++++--
 Ventas/Ventas.aspx.vb                        |  5 ++++
 9 files changed, 82 insertions(+), 31 deletions(-)

diff --git a/AF/AF.aspx b/AF/AF.aspx
index 33c02cd41..93728a570 100644
--- a/AF/AF.aspx
+++ b/AF/AF.aspx
@@ -154,20 +154,22 @@
                                                             </div>
                                                         </div>
 
-                                                         <div class="row">
-                                                         <div class="col-md-4 ">
-                                                             <label class="control-label">Grupo:</label>
-                                                         </div>
+                                                        <div class="row">
 
-                                                         <div class="col-md-6">
-                                                             <div class="form-group">
-                                                                 <asp:DropDownList ID="DdlGrupo" runat="server" DataValueField="CveGrupo" DataTextField="Grupo" CssClass="form-control input-small select2me">
-                                                                 </asp:DropDownList>
-                                                             </div>
-                                                         </div>
-                                                         <div class="col-md-1">
-                                                             <asp:Button ID="BtnAgregarGrupo" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="True" />
-                                                         </div>
+                                                            <div class="col-md-4 ">
+                                                                <label class="control-label">Grupo:</label>
+                                                            </div>
+
+                                                            <div class="col-md-6">
+                                                                <div class="form-group">
+                                                                    <asp:DropDownList ID="DdlGrupo" runat="server" DataValueField="CveGrupo" DataTextField="Grupo" CssClass="form-control input-small select2me">
+                                                                    </asp:DropDownList>
+                                                                </div>
+                                                            </div>
+                                                            <div class="col-md-1">
+                                                                <asp:Button ID="BtnAgregarGrupo" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="True" />
+                                                            </div>
+                                                        </div>
 
                                                         <div class="row">
                                                             <div class="col-md-4 ">
@@ -195,7 +197,7 @@
                                                         </div>
 
                                                        
-                                                        </div>
+                                                        
 
 
                                                         <div class="row">
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 562bcad8c..685d41d72 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -2758,9 +2758,10 @@ Partial Class AF_AF
 
         CaracClasif = ""
         Dim ObjAFCaracteristicas As New ClsAF
-        If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then
-
-            Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue))
+        If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then
+
+            Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue} OR (CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue} AND CveSubTipoActivoFijo IS NULL)", $"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}")
+            'Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue))
             GvC.DataSource = ObjAFCaracteristicas.DtResultados.FiltraParametros(Filtro, "CaracteristicaClasificacion, Orden")
 
             If ObjAFCaracteristicas.GetCaracteristicasOpcionesSubTipo(-1, DdlSubTipoActivoFijo.SelectedValue.ToEntero, CveEmpresaActual) Then
diff --git a/AF/CatClasificacionesCaracteristicas.aspx b/AF/CatClasificacionesCaracteristicas.aspx
index 29c63c4cb..dd23bcc36 100644
--- a/AF/CatClasificacionesCaracteristicas.aspx
+++ b/AF/CatClasificacionesCaracteristicas.aspx
@@ -238,7 +238,7 @@
                                                             <tr>
                                                                 <td style="text-align: center">
                                                                     <asp:DropDownList ID="DdlTiposActivosFijosCA" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardarCA" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 79px !important;">
-                                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                                                     </asp:DropDownList>
                                                                     <%-- <asp:RequiredFieldValidator ID="RFVTiposActivosFijosCA" runat="server" ControlToValidate="DdlTiposActivosFijosCA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Activo Fijo''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardarCA"></asp:RequiredFieldValidator>
                                                                     <ajax:ValidatorCalloutExtender ID="VCOTiposActivosFijosCA" runat="server" HighlightCssClass="vco" TargetControlID="RFVTiposActivosFijosCA" Width="300px"></ajax:ValidatorCalloutExtender>--%>
@@ -298,9 +298,16 @@
                                                         </table>
                                                     </ContentTemplate>
                                                 </asp:UpdatePanel>
+
                                                 <asp:UpdatePanel ID="UpDatosCA" runat="server" UpdateMode="Conditional">
                                                     <ContentTemplate>
-                                                        <asp:GridView ID="GvDatosCA" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristica" EmptyDataText="No se encontraron Características" CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; text-align: center;" GridLines="None">
+
+                                                        
+
+                                                        
+
+                                                        <asp:GridView ID="GvDatosCA" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristica" EmptyDataText="No se encontraron Características"  Width="1095px"
+                                                            CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                                             <Columns>
                                                                 <asp:TemplateField>
                                                                     <ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCA" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>
@@ -391,10 +398,16 @@
                                                                         <asp:Literal ID="LtlUsuarioCA" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
                                                                     </ItemTemplate>
                                                                 </asp:TemplateField>
-                                                                <asp:TemplateField HeaderText="Editar">
+                                                                <asp:TemplateField HeaderText="Editar" ItemStyle-Width="70px">
                                                                     <EditItemTemplate>
-                                                                        <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpEditGuardarCA" />&nbsp;
-                                                                        <asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
+
+                                                                        <div class="row">
+                                                                            <div class="col-lg-6"><asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpEditGuardarCA" />&nbsp;</div>
+                                                                            <div class="col-lg-6"><asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" /></div>
+                                                                        </div>
+
+                                                                        
+                                                                        
                                                                     </EditItemTemplate>
                                                                     <ItemTemplate>
                                                                         <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" ToolTip="Editar" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb
index 8f6b1e18f..03f6902ea 100644
--- a/AF/CatClasificacionesCaracteristicas.aspx.vb
+++ b/AF/CatClasificacionesCaracteristicas.aspx.vb
@@ -52,6 +52,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
             'Carga Globals para DT
             CargaTiposActivosFijos()
+            DdlTiposActivosFijosCA_SelectedIndexChanged(Nothing, Nothing)
             ''CargaCaracteristicasClasificaciones()
             'CargaCaracteristicas()
         End If
@@ -64,6 +65,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
         DdlTiposActivosFijosCA.DataBind()
         DdlTiposActivosFijosOpciones.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
         DdlTiposActivosFijosOpciones.DataBind()
+        'DdlTiposActivosFijosCA.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
 #Region "CLASIFICACIONES"
@@ -261,7 +263,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
             End If
             e.Row.Cells(0).Width = Unit.Pixel(95) 'TipoActivoFijo
-            e.Row.Cells(1).Width = Unit.Pixel(100) 'SubTipoActivoFIjo
+            e.Row.Cells(1).Width = Unit.Pixel(140) 'SubTipoActivoFIjo
             e.Row.Cells(2).Width = Unit.Pixel(110) 'Clasificacion
             e.Row.Cells(3).Width = Unit.Pixel(120) 'Caracteristica
             e.Row.Cells(4).Width = Unit.Pixel(70) 'Orden
@@ -271,8 +273,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
             e.Row.Cells(8).Width = Unit.Pixel(70) 'Estatus
             e.Row.Cells(9).Width = Unit.Pixel(75) 'FechaIng
             e.Row.Cells(10).Width = Unit.Pixel(75) 'Usuario
-            e.Row.Cells(11).Width = Unit.Pixel(55) '
-            e.Row.Cells(12).Width = Unit.Pixel(61) '
+            e.Row.Cells(11).Width = Unit.Pixel(70) '
+            e.Row.Cells(12).Width = Unit.Pixel(55) '
 
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
@@ -285,10 +287,18 @@ Partial Class AF_CatClasificacionesCaracteristicas
             'End If
 
             If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
+
                 e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
                 e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataBind()
+                e.Row.FCDropDownList("DdlTiposActivosFijosCA").Items.Insert(0, New ListItem("Todos", "-1"))
                 e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue = e.Row.DBCampo("CveTipoActivoFijo")
-                e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} ", e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue))
+
+                If e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue.ToEntero > 0 Then
+                    e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} ", e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue))
+                Else
+                    e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
+                End If
+
                 e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataBind()
                 e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo")
                 e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").Items.Insert(0, New ListItem("Todos", "-1"))
@@ -376,7 +386,12 @@ Partial Class AF_CatClasificacionesCaracteristicas
         Dim ddl As DropDownList = gvr.FCDropDownList("DdlSubTiposActivosFijosCA")
 
         ddl.Items.Clear()
-        ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", ddl1.SelectedValue.ToEntero, UsuarioActual.CveEmpresa))
+        If ddl1.SelectedValue.ToEntero > 0 Then
+            ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", ddl1.SelectedValue.ToEntero, UsuarioActual.CveEmpresa))
+        Else
+            ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
+        End If
+
         ddl.DataBind()
         ddl.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index fe4168ba0..1b32c63d8 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -434,7 +434,7 @@ Partial Class Bancos_PopIEVentas
                 If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" AndAlso dr("FolioFiscal").ToString() <> "" Then
 
 
-                    Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), UsuarioActual.Empresa.RFC, dr("RFCReceptor").ToString, dr("Total").ToString.ToDecimal.RoundAD(2))
+                    Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString().Trim, UsuarioActual.Empresa.RFC, dr("RFCReceptor").ToString, dr("Total").ToString.ToDecimal.RoundAD(2))
 
                     If Valida.EsValida > 0 Then
                         If Valida.EsValida = 2 Then
diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 9d3e41e1a..ebc97ad3a 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -393,7 +393,7 @@
                                     <asp:GridView ID="GVPendientes" runat="server" DataKeyNames="TipoEntrega,CveVenta,CveTraspasoSolicitud,CveOS" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="200" data-freezerows="1" GridLines="None">
                                         <Columns>
                                             <asp:BoundField HeaderText="Tipo" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
-                                            <asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="45%" />
+                                            <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-Width="45%" />
 
                                             <asp:TemplateField HeaderText="Serie-Folio" ItemStyle-Width="20%">
                                                 <ItemTemplate>
diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx
index a9960d2c7..2aca467b1 100644
--- a/OS/RepOSMedicas.aspx
+++ b/OS/RepOSMedicas.aspx
@@ -207,6 +207,7 @@
                     <asp:BoundField HeaderText="Observaciones" DataField="Observaciones"  visible="false" /> 
                     <%--14--%>
                     <asp:BoundField HeaderText="Folio Adicional" DataField="FolioAdicional"  visible="false" /> 
+                    <asp:BoundField HeaderText="Total" DataField="TotalRemision"  DataFormatString="{0:###,###,###.00}"  /> 
 
 
                 </Columns>
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index c41799abf..5799a0492 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -614,15 +614,29 @@
                                     <b>Paciente:</b>
                                 </td>
                                 <td runat="server">
-                                    <asp:TextBox ID="TxtPaciente" runat="server" CssClass="make-switchsd" Style="width: 130px" MaxLength="50"></asp:TextBox>
+                                    <asp:TextBox ID="TxtPaciente" runat="server"   Style="width: 130px" MaxLength="50"></asp:TextBox>
                                 </td>
                                 <td runat="server" id="Td9" visible="true">
                                     <b>Episodio:</b>
                                 </td>
                                 <td runat="server">
-                                    <asp:TextBox ID="TxtEpisodio" runat="server" CssClass="make-switchsd" Style="width: 130px" MaxLength="20"></asp:TextBox>
+                                    <asp:TextBox ID="TxtEpisodio" runat="server"   Style="width: 130px" MaxLength="20"></asp:TextBox>
                                 </td>
                             </tr>
+                              <tr runat="server" id="TrVentasMedicas4" visible="false">
+                                  <td runat="server" id="Td8" >
+                                      <b>Folio Remisión:</b>
+                                  </td>
+                                  <td runat="server">
+                                      <asp:TextBox ID="TxtFolioRemision" runat="server"   Style="width: 130px" MaxLength="20" Enabled="false"></asp:TextBox>
+                                  </td>
+                                  <td runat="server" id="Td10" >
+                                      
+                                  </td>
+                                  <td runat="server">
+                                      
+                                  </td>
+                              </tr>
                         </table>
                     </div>
                 </div>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1e85a60b2..c54392993 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6139,6 +6139,11 @@ Partial Class Ventas
                 End If
 
 
+                If DdlTipoDocto.SelectedValue.Contiene("Ing", "Rem") Then
+                    TrVentasMedicas4.Visible = True
+                    TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString
+                End If
+
 
             End If
 

From b206b05da8b4c7d2d661a15051bb6b84bed92565 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Apr 2024 08:56:42 -0700
Subject: [PATCH 18/70] -- cambios en acceso

---
 Ashx/SIGFreightVerify.ashx | 2 +-
 asmx/WSGPSApp.asmx         | 4 ++--
 asmx/WS_PuntoVenta.asmx    | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Ashx/SIGFreightVerify.ashx b/Ashx/SIGFreightVerify.ashx
index f09eafceb..5f35fc289 100644
--- a/Ashx/SIGFreightVerify.ashx
+++ b/Ashx/SIGFreightVerify.ashx
@@ -25,7 +25,7 @@ public class SIGFreightVerify : IHttpHandler, IRequiresSessionState
             {
                 var Usuario = ObjUsuarios.DtResultados.Rows[0]["Usuario"].ToString();
                 var Contrasenia = ObjUsuarios.DtResultados.Rows[0]["Contraseña"].ToString();
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, ModExtensiones.IMEI, CveEmpresa);
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa: CveEmpresa);
                 UsuarioActual.CveEmpresa = CveEmpresa;
                 UsuarioActual.CveCliente = 183798;
                 CreaObjetoEmpresa(ref UsuarioActual);
diff --git a/asmx/WSGPSApp.asmx b/asmx/WSGPSApp.asmx
index b9c9aaa43..98b29f8c0 100644
--- a/asmx/WSGPSApp.asmx
+++ b/asmx/WSGPSApp.asmx
@@ -119,7 +119,7 @@ Public Class WSGPSApp
         Try
             Dim json = Decripta(params, "AES")
             Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json)
-            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")), IMEI)
+            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")))
 
             If UsuarioActual IsNot Nothing Then
                 Dim UsuarioRetorno As New WSUSER2
@@ -192,7 +192,7 @@ Public Class WSGPSApp
         Try
             Dim json = Decripta(params, "AES")
             Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json)
-            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")), IMEI)
+            Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")))
 
             If UsuarioActual IsNot Nothing Then
                 Dim UsuarioRetorno As New WSUSER2
diff --git a/asmx/WS_PuntoVenta.asmx b/asmx/WS_PuntoVenta.asmx
index 4ca18c926..f212cb3a5 100644
--- a/asmx/WS_PuntoVenta.asmx
+++ b/asmx/WS_PuntoVenta.asmx
@@ -742,7 +742,7 @@ Public Class WS_PuntoVenta
         Dim objUsuarios As New ClsSisUsuarios
         Dim objUsuario As New Usuario
 
-        objUsuario = objUsuarios.ValidaUsuario(Usuario, Encripta(Contraseña), IMEI)
+        objUsuario = objUsuarios.ValidaUsuario(Usuario, Encripta(Contraseña))
         If objUsuario IsNot Nothing AndAlso objUsuario.TienePermisoProceso(CveProceso) Then
             CveUsuario = objUsuario.CveUsuario
         End If

From 1d3adcec7f96ef605561c89e97e5021e7f9c1f8a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Apr 2024 08:56:51 -0700
Subject: [PATCH 19/70] -- cambios acceso

---
 Compras/PopUpVerFactura.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 519938730..8dde8f4c4 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1173,7 +1173,7 @@ Partial Class PopUpVerFactura
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
+                UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
                 UsuarioToken.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioToken)
             End If

From 8b57f24fbd287307275449cf085cac7115db67c4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Apr 2024 08:57:04 -0700
Subject: [PATCH 20/70] -- liga para conceptos  370,371,372

---
 Contabilidad/RegPrePolizaS.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 8bf6adaad..a78088c73 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -554,7 +554,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
             If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
-            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
+            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288, 370, 371, 372) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
             If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 

From 87e4e2c4f201bfe0c1e7a650a64f635fa04f1b84 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Apr 2024 08:57:12 -0700
Subject: [PATCH 21/70] -- cambios en acceso

---
 Ventas/PV.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index d22776991..6f8561cf4 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -8352,7 +8352,7 @@ Partial Class PV
             Dim ObjUsuario As New ClsSisUsuarios
             Dim Usuario As Usuario
 
-            Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
+            Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)
 
             ObjUsuario.Dispose()
 

From d4ca5aa6c42bb1c2ff85127f4bfa1da32af86911 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Apr 2024 09:10:38 -0700
Subject: [PATCH 22/70] -

---
 Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb b/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
index 2cf7edfbc..19491bfbc 100644
--- a/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
+++ b/Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
@@ -97,7 +97,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
                 Dim Usuario As Usuario
                 'Dim UsuarioAsignaciones As Usuario
 
-                Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
+                Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)
                 'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa)
                 ObjUsuario.Dispose()
 

From 87f7ff34ef4519574803297a790e0ce48d8513dc Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 13 Apr 2024 12:00:47 -0700
Subject: [PATCH 23/70] --codigo de af, acomodo de diagrama de grantt

---
 Transportes/RepContratosCalendario.aspx    | 13 ++-----------
 Transportes/RepContratosCalendario.aspx.vb | 12 ++++++------
 2 files changed, 8 insertions(+), 17 deletions(-)

diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index 61673bc96..b8ab0b757 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -280,17 +280,8 @@
                     <ajax:TabPanel ID="TabGrantt" runat="server" HeaderText="Cronograma">
                         <ContentTemplate>
                             <div class="row">
-                                <div class="col-md-12 col-sm-12">
-                                    <div class="portlet light calendar ">
-                                        <div class="tipo_vista">
-                                            <div>
-                                                <h4 class="bold ribbon-color-success">&nbsp;</h4>
-                                            </div>
-                                        </div>
-                                        <div class="portlet-body">
-                                            <div id="chartdiv">
-                                            </div>
-                                        </div>
+                                <div class="col-md-12">
+                                    <div id="chartdiv">
                                     </div>
                                 </div>
                             </div>
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index b1986a163..91813e109 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -63,8 +63,8 @@ Partial Class RepContratosCalendario
         If DtAvance IsNot Nothing Then
 
             For Each Row As DataRow In DtAvance.Rows
-                If String.IsNullOrEmpty(Row("NoSerie").ToString()) Then
-                    Row("NoSerie") = "Unidad no asignada"
+                If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
+                    Row("CodigoAF") = "Unidad no asignada"
                 End If
             Next
 
@@ -74,9 +74,9 @@ Partial Class RepContratosCalendario
             Dim random = New Random()
 
             'DATOS
-            For Each Row As DataRow In DtAvance.FiltraParametros("NoSerie <> ''").Rows
+            For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> ''").Rows
                 Dim obj As New JObject(
-                    New JProperty("category", Row("NoSerie")),
+                    New JProperty("category", Row("CodigoAF")),
                     New JProperty("fromDate", Row("FechaInicial").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()),
                     New JProperty("toDate", Row("FechaFinal").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()),
                     New JProperty("columnSettings", New JObject(
@@ -88,9 +88,9 @@ Partial Class RepContratosCalendario
             Next
 
             'CATEGORIAS
-            For Each Row As DataRow In DtAvance.FiltraParametros("NoSerie <> ''", "", {"NoSerie"}).Rows
+            For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> ''", "", {"CodigoAF"}).Rows
                 Dim obj As New JObject(
-                    New JProperty("category", Row("NoSerie"))
+                    New JProperty("category", Row("CodigoAF"))
                 )
                 jsonCategorias.Add(obj)
             Next

From fbfffac3eefd272dd6e5024454763c0c1b6e9023 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Apr 2024 13:15:44 -0700
Subject: [PATCH 24/70] -

---
 Compras/Compras.aspx.vb                  | 36 +++++++++++-------------
 Sistemas/PopUpSeleccionarEmpresa.aspx.vb |  3 --
 2 files changed, 17 insertions(+), 22 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 7765642fb..ba963379c 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1511,10 +1511,10 @@ Partial Class Compras_Compras
 
             ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
 
-                If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
-                    DdlTipoComprobante.Items.Clear()
-                    DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC"))
-                End If
+                'If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+                '    DdlTipoComprobante.Items.Clear()
+                '    DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC"))
+                'End If
 
                 ViewState("CveCompra") = Request("CveCompra")
                 CargaCompra()
@@ -2990,6 +2990,10 @@ Partial Class Compras_Compras
                 End If
 
                 DdlTipoComprobante.Enabled = False
+                If dr("TipoDocto").ToString = "RNC" Then
+                    DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC"))
+                End If
+
                 DdlTipoComprobante.SelectedValue = dr("TipoDocto").ToString
                 If dr("TipoDocto").ToString.Contiene("Fac", "Ant") Then
                     ChkAplicaNotaCredito.Enabled = True
@@ -3245,8 +3249,6 @@ Partial Class Compras_Compras
                     BtnEliminarCompra.Visible = False
                 End If
 
-
-
             Else
                 Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             End If
@@ -8354,7 +8356,7 @@ Partial Class Compras_Compras
                                     If ChkPagarConDolares.Checked Then Pago.TCCambioMoneda = TipoCambioAnt
 
                                     Select Case gvr.DataKey("TipoDocto")
-                                        Case "NC", "DEV"
+                                        Case "NC", "DEV", "RNC"
                                             CveConceptoCompra = If(CveMonedaAnticipo = 1, 60, 60)
                                             CveConceptoCompraComplementaria = 235
                                             CveIE = -1
@@ -14743,6 +14745,10 @@ Partial Class Compras_Compras
         If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso (AjusteProntoPagoConIVA > 0 Or AjusteProntoPagoSinIVA > 0) Then
 
             Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
+            If CvePS_RNC = 0 Then
+                Alert("producto utilizado para diferencia no definido.")
+                Exit Sub
+            End If '876906
             Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
             Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
             Dim SubProyecto As String = GlobalDTSubProyectos(-1, CveSubProyectoPrincipal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
@@ -20875,7 +20881,6 @@ Partial Class Compras_Compras
             Return False
         End If
 
-
         If Not CveSubProyectoPrincipal > 0 Then
             Alert("No esta definido el Sub Proyecto.", TipoMensaje.MsgAdvertencia)
             Return False
@@ -20900,9 +20905,6 @@ Partial Class Compras_Compras
             CompraRNC.Folio = TxtFolio.Text
             CompraRNC.CveCompraAmortizacion = CveCompraRegistrada
 
-
-
-
             Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
             If PSRow("CvePSCargo").ToString <> "" Then
                 CveTipoPS = 2
@@ -20934,8 +20936,8 @@ Partial Class Compras_Compras
                 CompraRNCProntoPAgo.NombreProveedor = DdlProveedor.SelectedItem.Text
                 CompraRNCProntoPAgo.Fecha = TxtFecha.Text.ToDate
                 CompraRNCProntoPAgo.CveMoneda = DdlMoneda.SelectedValue.ToEntero
-                CompraRNCProntoPAgo.Serie = $"{TxtSerie.Text}_P"
-                CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}_P"
+                CompraRNCProntoPAgo.Serie = $"PP-{TxtSerie.Text}"
+                CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}"
                 CompraRNCProntoPAgo.CveCompraAmortizacion = CveCompraRegistrada
                 Dim IVARNCProntoPago As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
 
@@ -20945,12 +20947,8 @@ Partial Class Compras_Compras
                 End If
 
             End If
-
-
         End If
 
-
-
         Return respuesta
     End Function
 
@@ -20974,9 +20972,9 @@ Partial Class Compras_Compras
         Else
 
             If ImporteRNCProntoPago > 0 Then
-                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generaran dos Remisiones de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")} y otra por  pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
+                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra. <br/> Se generaran las siguientes Remisiones de Nota de Crédito. <br/> - Descuento de ${ImporteRNC.ToString("###,###,###.00")}.<br/> - Pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
             Else
-                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generara una Remision de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")}"
+                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generara una Remision de Nota de Crédito por descuento de ${ImporteRNC.ToString("###,###,###.00")}"
             End If
 
             RegistraScript("$('#DVModalConfirmaVinculacionProntoPago').modal('show');")
diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
index a53dcd376..c0868b5c7 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
@@ -1,9 +1,6 @@
 Option Explicit On
 Option Strict On
 
-Imports System
-Imports System.Linq
-Imports System.Web.UI.WebControls
 Imports Extensiones
 
 Partial Class PopUpSeleccionarEmpresa

From 86f5cbc15d3358c1ab37864efab56640ea8c613f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 13 Apr 2024 15:06:30 -0700
Subject: [PATCH 25/70] --Cambios en cortes E193

---
 Compras/PopUpVerFactura.aspx.vb      |  66 +--
 Empresas/193/Formatos/RepCortes.rdlc | 626 ++++++++++++++++-----------
 2 files changed, 419 insertions(+), 273 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 8dde8f4c4..a915f096b 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1646,16 +1646,12 @@ Partial Class PopUpVerFactura
 
                     For Each row As DataRow In DtTT.Rows
                         Dim Total = row(1).ToString()
-                        If IsNumeric(Total) Then
+                        If IsNumeric(Total) OrElse row(0).ToString().Contiene("TotalRetiros", "TotalIngresos") Then
                             Dim TipoTabla As Integer = 0
 
                             Dim Orden As Integer = 0
                             Dim rowData = DtDatosVentas.NewRow()
                             Select Case row(0).ToString()
-                                Case "ImporteInicial"
-                                    rowData("Columna") = "Importe Inicial"
-                                    Orden = 1
-                                    TipoTabla = 2
                                 Case "VentasCorte"
                                     rowData("Columna") = "Total Ventas"
                                     Orden = 1
@@ -1681,35 +1677,53 @@ Partial Class PopUpVerFactura
                                     rowData("Columna") = "Ventas Remisiones"
                                     Orden = 6
                                     TipoTabla = 1
-                                'Case "TotalEfectivo"
-                                '    rowData("Columna") = "Total Efectivo"
-                                'Case "TotalCheque"
-                                '    rowData("Columna") = "Total Cheque"
-                                'Case "TarjDebito"
-                                '    rowData("Columna") = "Tarj. Débito"
-                                'Case "TarjCredito"
-                                '    rowData("Columna") = "Tarj. Crédito"
-                                'Case "VentasTransferencia"
-                                '    rowData("Columna") = "Total Transf."
-                                Case "TotalRetiros"
-                                    rowData("Columna") = "Total Retiro"
-                                    Orden = 6
-                                    TipoTabla = 2
-                                Case "TotalIngresos"
-                                    rowData("Columna") = "Total Ingreso"
-                                    Orden = 5
-                                    TipoTabla = 2
-                                Case "Devoluciones"
-                                    rowData("Columna") = "Devoluciones"
+                                Case "TotalEfectivo"
+                                    rowData("Columna") = "Total Efectivo"
                                     Orden = 7
                                     TipoTabla = 1
+                                Case "TotalCheque"
+                                    rowData("Columna") = "Total Cheque"
+                                    Orden = 8
+                                    TipoTabla = 1
+                                Case "TarjDebito"
+                                    rowData("Columna") = "Tarj. Débito"
+                                    Orden = 9
+                                    TipoTabla = 1
+                                Case "TarjCredito"
+                                    rowData("Columna") = "Tarj. Crédito"
+                                    Orden = 10
+                                    TipoTabla = 1
+                                Case "VentasTransferencia"
+                                    rowData("Columna") = "Total Transf."
+                                    Orden = 11
+                                    TipoTabla = 1
+                                Case "TotalDevRNC"
+                                    rowData("Columna") = "Total DEV-RNC."
+                                    Orden = 12
+                                    TipoTabla = 1
                                 'Case "SaldoAnteriorAplicado"
                                 '    rowData("Columna") = "Saldo Aplicado"
                                 '    Orden = 0
                                 '    TipoTabla = 0
+                                Case "ImporteInicial"
+                                    rowData("Columna") = "Importe Inicial"
+                                    Orden = 1
+                                    TipoTabla = 2
+                                Case "TotalRetiros"
+                                    rowData("Columna") = "Total Retiro"
+                                    Orden = 2
+                                    TipoTabla = 2
+                                Case "TotalIngresos"
+                                    rowData("Columna") = "Total Ingreso"
+                                    Orden = 3
+                                    TipoTabla = 2
+                                Case "Devoluciones"
+                                    rowData("Columna") = "Devoluciones"
+                                    Orden = 4
+                                    TipoTabla = 2
                                 Case "TotalCaja"
                                     rowData("Columna") = "Total Caja"
-                                    Orden = 9
+                                    Orden = 5
                                     TipoTabla = 2
                                 Case Else
                                     rowData("Columna") = row(0).ToString()
diff --git a/Empresas/193/Formatos/RepCortes.rdlc b/Empresas/193/Formatos/RepCortes.rdlc
index 0310acaab..5b7ac4c46 100644
--- a/Empresas/193/Formatos/RepCortes.rdlc
+++ b/Empresas/193/Formatos/RepCortes.rdlc
@@ -2,234 +2,14 @@
 <Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <Body>
     <ReportItems>
-      <Tablix Name="Tablix1">
-        <TablixBody>
-          <TablixColumns>
-            <TablixColumn>
-              <Width>3.71406cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>2.97963cm</Width>
-            </TablixColumn>
-          </TablixColumns>
-          <TablixRows>
-            <TablixRow>
-              <Height>0.47879cm</Height>
-              <TablixCells>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox4">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>Método de Pago</Value>
-                              <Style>
-                                <FontSize>8pt</FontSize>
-                                <FontWeight>Bold</FontWeight>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Center</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox4</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Color>LightGrey</Color>
-                          <Style>Solid</Style>
-                        </Border>
-                        <BackgroundColor>Silver</BackgroundColor>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox16">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>Total</Value>
-                              <Style>
-                                <FontSize>8pt</FontSize>
-                                <FontWeight>Bold</FontWeight>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Center</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox16</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Color>LightGrey</Color>
-                          <Style>Solid</Style>
-                        </Border>
-                        <BackgroundColor>Silver</BackgroundColor>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-              </TablixCells>
-            </TablixRow>
-            <TablixRow>
-              <Height>0.42588cm</Height>
-              <TablixCells>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="MetodoPago">
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!MetodoPago.Value</Value>
-                              <Style>
-                                <FontSize>8pt</FontSize>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Left</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>MetodoPago</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Importe">
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!Importe.Value</Value>
-                              <Style>
-                                <FontSize>8pt</FontSize>
-                                <Format>#,0.00</Format>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Right</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Importe</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-              </TablixCells>
-            </TablixRow>
-          </TablixRows>
-        </TablixBody>
-        <TablixColumnHierarchy>
-          <TablixMembers>
-            <TablixMember />
-            <TablixMember />
-          </TablixMembers>
-        </TablixColumnHierarchy>
-        <TablixRowHierarchy>
-          <TablixMembers>
-            <TablixMember>
-              <KeepWithGroup>After</KeepWithGroup>
-            </TablixMember>
-            <TablixMember>
-              <Group Name="Detalles" />
-            </TablixMember>
-          </TablixMembers>
-        </TablixRowHierarchy>
-        <DataSetName>DataSet1</DataSetName>
-        <Top>0.73025cm</Top>
-        <Left>0.06614cm</Left>
-        <Height>0.90467cm</Height>
-        <Width>6.69369cm</Width>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Tablix>
-      <Textbox Name="Textbox3">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Detalles de pago</Value>
-                <Style>
-                  <FontSize>12pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>0.08114cm</Top>
-        <Left>0.06614cm</Left>
-        <Height>0.57503cm</Height>
-        <Width>4.82833cm</Width>
-        <ZIndex>1</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
       <Tablix Name="Tablix2">
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>2.73022cm</Width>
+              <Width>3.13238cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>10.35439cm</Width>
+              <Width>11.74047cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.28714cm</Width>
@@ -548,8 +328,7 @@
         <Top>3.94244cm</Top>
         <Left>0.06614cm</Left>
         <Height>0.93113cm</Height>
-        <Width>18.57619cm</Width>
-        <ZIndex>2</ZIndex>
+        <Width>20.36443cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -560,10 +339,10 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>2.68035cm</Width>
+              <Width>2.34715cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.97963cm</Width>
+              <Width>1.92129cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -733,11 +512,20 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet3</DataSetName>
+        <Filters>
+          <Filter>
+            <FilterExpression>=Fields!Orden.Value</FilterExpression>
+            <Operator>LessThanOrEqual</Operator>
+            <FilterValues>
+              <FilterValue DataType="Integer">7</FilterValue>
+            </FilterValues>
+          </Filter>
+        </Filters>
         <Top>0.73025cm</Top>
-        <Left>7.21681cm</Left>
+        <Left>0.06614cm</Left>
         <Height>0.90467cm</Height>
-        <Width>5.65998cm</Width>
-        <ZIndex>3</ZIndex>
+        <Width>4.26844cm</Width>
+        <ZIndex>1</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -922,10 +710,10 @@
         </TablixRowHierarchy>
         <DataSetName>DataSet4</DataSetName>
         <Top>0.73025cm</Top>
-        <Left>13.18603cm</Left>
+        <Left>14.77059cm</Left>
         <Height>0.90467cm</Height>
         <Width>5.65998cm</Width>
-        <ZIndex>4</ZIndex>
+        <ZIndex>2</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -963,10 +751,10 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.08792cm</Top>
-        <Left>7.21681cm</Left>
+        <Left>0.06614cm</Left>
         <Height>0.56472cm</Height>
-        <Width>5.79283cm</Width>
-        <ZIndex>5</ZIndex>
+        <Width>7.44885cm</Width>
+        <ZIndex>3</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1008,10 +796,10 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.05617cm</Top>
-        <Left>13.18603cm</Left>
+        <Left>14.77059cm</Left>
         <Height>0.63527cm</Height>
         <Width>4.82833cm</Width>
-        <ZIndex>6</ZIndex>
+        <ZIndex>4</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1276,7 +1064,7 @@
         <Left>0.06614cm</Left>
         <Height>0.93113cm</Height>
         <Width>12.81065cm</Width>
-        <ZIndex>7</ZIndex>
+        <ZIndex>5</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1305,7 +1093,7 @@
         <Left>0.06614cm</Left>
         <Height>0.6cm</Height>
         <Width>4.82833cm</Width>
-        <ZIndex>8</ZIndex>
+        <ZIndex>6</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1338,7 +1126,7 @@
         <Left>0.06614cm</Left>
         <Height>0.6cm</Height>
         <Width>4.82833cm</Width>
-        <ZIndex>9</ZIndex>
+        <ZIndex>7</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1603,7 +1391,7 @@
         <Left>0.06614cm</Left>
         <Height>0.93113cm</Height>
         <Width>7.11547cm</Width>
-        <ZIndex>10</ZIndex>
+        <ZIndex>8</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1632,7 +1420,7 @@
         <Left>0.06614cm</Left>
         <Height>0.6cm</Height>
         <Width>4.82833cm</Width>
-        <ZIndex>11</ZIndex>
+        <ZIndex>9</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2042,10 +1830,10 @@
         </TablixRowHierarchy>
         <DataSetName>DsContabilidad</DataSetName>
         <Top>2.30548cm</Top>
-        <Left>7.358cm</Left>
+        <Left>8.20037cm</Left>
         <Height>0.93113cm</Height>
         <Width>11.42461cm</Width>
-        <ZIndex>12</ZIndex>
+        <ZIndex>10</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2071,9 +1859,230 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>1.6702cm</Top>
-        <Left>7.358cm</Left>
+        <Left>8.20037cm</Left>
         <Height>0.6cm</Height>
         <Width>6.33646cm</Width>
+        <ZIndex>11</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Tablix Name="Tablix1">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>3.59941cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.86498cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.47879cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox4">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Método de Pago</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox4</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox16">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Total</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox16</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.42588cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="MetodoPago">
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!MetodoPago.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>MetodoPago</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe">
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Importe.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Detalles" />
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DataSet1</DataSetName>
+        <Top>0.73025cm</Top>
+        <Left>8.20037cm</Left>
+        <Height>0.90467cm</Height>
+        <Width>6.46439cm</Width>
+        <ZIndex>12</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+      <Textbox Name="Textbox3">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Detalles de pago</Value>
+                <Style>
+                  <FontSize>12pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox3</rd:DefaultName>
+        <Top>0.08792cm</Top>
+        <Left>8.20037cm</Left>
+        <Height>0.57503cm</Height>
+        <Width>4.82833cm</Width>
         <ZIndex>13</ZIndex>
         <Style>
           <Border>
@@ -2085,11 +2094,128 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Tablix Name="Tablix8">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>1.9341cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.81281cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.42588cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="MetodoPago8">
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Columna.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>MetodoPago</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe8">
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Importe.Value</Value>
+                              <Style>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <Group Name="Detalles8" />
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DataSet3</DataSetName>
+        <Filters>
+          <Filter>
+            <FilterExpression>=Fields!Orden.Value</FilterExpression>
+            <Operator>GreaterThanOrEqual</Operator>
+            <FilterValues>
+              <FilterValue DataType="Integer">8</FilterValue>
+            </FilterValues>
+          </Filter>
+        </Filters>
+        <Top>1.24432cm</Top>
+        <Left>4.37868cm</Left>
+        <Height>0.42588cm</Height>
+        <Width>3.74691cm</Width>
+        <ZIndex>14</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
     </ReportItems>
     <Height>2.5632in</Height>
     <Style />
   </Body>
-  <Width>7.44383in</Width>
+  <Width>8.04353in</Width>
   <Page>
     <PageHeader>
       <Height>2.96446cm</Height>
@@ -2109,14 +2235,16 @@
                   </Style>
                 </TextRun>
               </TextRuns>
-              <Style />
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
           <Top>0.18521cm</Top>
           <Left>2.8349cm</Left>
           <Height>0.6cm</Height>
-          <Width>12.60299cm</Width>
+          <Width>15.80743cm</Width>
           <Style>
             <Border>
               <Style>None</Style>
@@ -2489,6 +2617,10 @@
           <DataField>Importe</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="Orden">
+          <DataField>Orden</DataField>
+          <rd:TypeName>System.Integer</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>

From 135afdba83cd4f3b68efc5d9059d7b1b868c729c Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 13 Apr 2024 17:55:51 -0700
Subject: [PATCH 26/70] =?UTF-8?q?Filtros=20de=20c=C3=B3digo=20inicial=20y?=
 =?UTF-8?q?=20final.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 AF/AF.aspx.vb                                |  2 +-
 AF/CatClasificacionesCaracteristicas.aspx.vb |  8 +-
 App_Code/ClsInventarios.vb                   | 23 ++++--
 Inventarios/Kardex.aspx                      | 38 +++++----
 Inventarios/Kardex.aspx.vb                   | 20 +++--
 Inventarios/KardexAlmacen.aspx               | 24 ++++++
 Inventarios/KardexAlmacen.aspx.vb            | 72 ++++++++++++++++-
 Inventarios/KardexAlmacenHorizontal.aspx     | 28 ++++++-
 Inventarios/KardexAlmacenHorizontal.aspx.vb  | 82 +++++++++++++++++++-
 Inventarios/RepEntradasSalidas.aspx          | 20 ++++-
 Inventarios/RepEntradasSalidas.aspx.vb       | 74 +++++++++++++++++-
 11 files changed, 348 insertions(+), 43 deletions(-)

diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 685d41d72..7bb4c2f9b 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -2760,7 +2760,7 @@ Partial Class AF_AF
         Dim ObjAFCaracteristicas As New ClsAF
         If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then
 
-            Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue} OR (CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue} AND CveSubTipoActivoFijo IS NULL)", $"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}")
+            Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue} OR (CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue} AND CveSubTipoActivoFijo IS NULL) OR (CveTipoActivoFijo IS NULL AND CveSubTipoActivoFijo IS NULL)", $"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}")
             'Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue))
             GvC.DataSource = ObjAFCaracteristicas.DtResultados.FiltraParametros(Filtro, "CaracteristicaClasificacion, Orden")
 
diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb
index 03f6902ea..e88d642e9 100644
--- a/AF/CatClasificacionesCaracteristicas.aspx.vb
+++ b/AF/CatClasificacionesCaracteristicas.aspx.vb
@@ -200,10 +200,10 @@ Partial Class AF_CatClasificacionesCaracteristicas
 #Region "CARACTERISTICAS"
     Protected Sub LbAgregarCA_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCA.Click
 
-        If DdlTiposActivosFijosCA.SelectedValue.ToEntero < 0 And DdlSubTiposActivosFijosCA.SelectedValue.ToEntero < 0 Then
-            Alert("Debe seleccionar un ActivoFijo o un SubActivoFijo", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If DdlTiposActivosFijosCA.SelectedValue.ToEntero < 0 And DdlSubTiposActivosFijosCA.SelectedValue.ToEntero < 0 Then
+        '    Alert("Debe seleccionar un ActivoFijo o un SubActivoFijo", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If
 
         Dim ObjCaracteristicas As New ClsAF
         If ObjCaracteristicas.AddCaracteristica(TxtCaracteristicaCA.Text.Trim, DdlClasificacionesCA.SelectedValue.ToEntero, DdlTiposActivosFijosCA.SelectedValue.ToEntero, DdlSubTiposActivosFijosCA.SelectedValue.ToEntero, DdlTipoCampoCA.SelectedValue.ToEntero, TxtLongitudCA.Text.Trim.ToEntero, DdlRequeridoCA.SelectedValue.ToEntero, TxtOrdenCA.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 6e398afc5..78d02e430 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1514,7 +1514,8 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+             Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenGet")
@@ -1527,6 +1528,8 @@ Public Class ClsInventarios
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
+            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try
@@ -1546,7 +1549,7 @@ Public Class ClsInventarios
     Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
                                                IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
                                                Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1",
-                                               Optional GPO As Integer = 1, Optional CodigoPS As String = "-1") As Boolean
+                                               Optional GPO As Integer = 1, Optional CodigoPS As String = "-1", Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1570,6 +1573,9 @@ Public Class ClsInventarios
             .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
             .Add("@GPO", SqlDbType.Int).Value = GPO
             .Add("@CodigoPS", SqlDbType.VarChar).Value = CodigoPS
+            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
+            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
+
 
         End With
 
@@ -1588,7 +1594,8 @@ Public Class ClsInventarios
 
     End Function
 
-    Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean
+    Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+                              Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexGet")
@@ -1625,7 +1632,8 @@ Public Class ClsInventarios
 
     End Function
 
-    Public Function GetKardexPSNavegacion(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True) As Boolean
+    Public Function GetKardexPSNavegacion(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+                                          Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1642,9 +1650,10 @@ Public Class ClsInventarios
             .Add("@CveTiposAlmacen", SqlDbType.VarChar).Value = CveTiposAlmacen
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-
             .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes
             .Add("@Siguiente", SqlDbType.Bit).Value = Siguiente
+            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
+            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
 
         End With
 
@@ -1830,7 +1839,7 @@ Public Class ClsInventarios
 
     Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String,
                                    CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As String = "-1", Optional CvePersonal As Integer = -1,
-                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean
+                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ReporteMovimientos")
@@ -1853,6 +1862,8 @@ Public Class ClsInventarios
             .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
             .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen
             .Add("@Modalidad", SqlDbType.Int).Value = Modalidad
+            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
+            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try
diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index 4dc8de0ff..76328842c 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -164,7 +164,7 @@
                     </div>
                     <div class="titlefiltros caption ">
                         <div class="row" style="padding-top: 10px; position: relative;">
-                            <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" Style="max-width: 80px;">Producto:</asp:Label>
+                            <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" >Producto:</asp:Label>
                             <div class="col-md-2 " style="min-width: 250px; max-width: 300px;">
                                 <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost>
                             </div>
@@ -253,23 +253,27 @@
                         <div class="col-md-1 ">
                             <asp:TextBox ID="TxtSerie" CssClass="form-control input-sm" runat="server" Width="90px" />
                         </div>
+                    </div>                    
+
+                </div>
+
+                <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
+                    <div class="col-md-1">Código Inicio:</div>
+                    <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
+                    <div class="col-md-1">Código Fin:</div>
+                    <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>
+                    <div class="col-md-1" runat="server" id="DVNavegar"  >
+                        <div class="row">
+                            <div class="col-md-5">
+                                <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
+                            </div>
+                            <div class="col-md-2">
+                            </div>
+                            <div class="col-md-5">
+                                <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
+                            </div>
+                        </div>
                     </div>
-
-
-                     <div class="col-md-1" runat="server" id="DVNavegar" visible="false">
-                         <div class="row">
-                             <div class="col-md-5">
-                                 <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary" >Anterior</asp:LinkButton>
-                             </div>
-                             <div class="col-md-2">
-
-                             </div>
-                             <div class="col-md-5">
-                                 <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary" >Siguiente</asp:LinkButton>
-                             </div>
-                         </div>
-                     </div>
-
                 </div>
             </div>
             </div>
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index e51e12ce8..29b52f758 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -32,9 +32,9 @@ Partial Class Inventarios_Kardex
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
-            If UsuarioActual.CveRol = 1 Then
-                DVNavegar.Visible = True
-            End If
+            'If UsuarioActual.CveRol = 1 Then
+            '    DVNavegar.Visible = True
+            'End If
 
             TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
             TxtFechaF.Text = NowADS().ToShortDateString
@@ -77,6 +77,11 @@ Partial Class Inventarios_Kardex
         GvM.Columns(14).Visible = TienePermisoImportes ' costo
         GvM.Columns(15).Visible = TienePermisoImportes ' importe
         GvM.Columns(17).Visible = TienePermisoImportes ' valor
+
+        If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+            DVFiltroCodigo.Visible = True
+        End If
+
     End Sub
 
     Private Function isWithFamily() As Boolean
@@ -325,7 +330,8 @@ Partial Class Inventarios_Kardex
         Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1")
 
         Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
+        If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                    ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
             dt = ObjInventarios.DtResultados.Copy
         End If
         ObjInventarios.Dispose()
@@ -592,8 +598,12 @@ Partial Class Inventarios_Kardex
             CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
         Next
 
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
         Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacenes, Siguiente:=Siguiente) Then
+        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
             dt = ObjInventarios.DtResultados.Copy
         End If
         ObjInventarios.Dispose()
diff --git a/Inventarios/KardexAlmacen.aspx b/Inventarios/KardexAlmacen.aspx
index d9e85d9df..2970592c7 100644
--- a/Inventarios/KardexAlmacen.aspx
+++ b/Inventarios/KardexAlmacen.aspx
@@ -150,6 +150,30 @@
 
                     </div>
 
+
+                      <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
+                          <div class="col-md-1">Código Inicio:</div>
+                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
+                          <div class="col-md-1">Código Fin:</div>
+                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>                       
+
+                          <div class="col-md-1" runat="server" id="DVNavegar"  >
+                         <div class="row">
+                             <div class="col-md-5">
+                                 <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
+                             </div>
+                             <div class="col-md-2">
+                             </div>
+                             <div class="col-md-5">
+                                 <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
+                             </div>
+                         </div>
+
+
+                    </div>
+                    
+                 </div>
+
                 </div>
             </div>
         </ContentTemplate>
diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb
index 6819bd41d..db9026bd0 100644
--- a/Inventarios/KardexAlmacen.aspx.vb
+++ b/Inventarios/KardexAlmacen.aspx.vb
@@ -1,4 +1,5 @@
 Imports System.Data
+Imports ADSNetLibrary.SIGAPI.Models.CGame
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
@@ -112,7 +113,10 @@ Partial Class Inventarios_KardexAlmacen
         Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
         Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
 
-        If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
+        If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
             dt = ObjMovimientos.DtResultados
             GvDatos.DataSource = ObjMovimientos.DtResultados
         End If
@@ -146,6 +150,11 @@ Partial Class Inventarios_KardexAlmacen
             GvDatos.Columns(8).Visible = False
             tdImportes.Visible = False
         End If
+
+        If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+            DVFiltroCodigo.Visible = True
+        End If
+
     End Sub
 
 
@@ -195,4 +204,65 @@ Partial Class Inventarios_KardexAlmacen
 
     End Sub
 
+
+    Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=False)
+    End Sub
+
+    Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=True)
+    End Sub
+    Private Sub NavegacionPS(Siguiente As Boolean)
+        Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
+
+        If Not CvePS > 0 Then
+            Exit Sub
+        End If
+        Dim dt As DataTable = New DataTable
+
+        Dim Entrada As Boolean = True
+        Dim Salida As Boolean = True
+
+        Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
+        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+        Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
+        Dim CveAlmacenes As String = "-1" 'ddlAlmacen.GetSelectedValues()""
+        If CveAlmacenes.Contains(",") Then
+            CveAlmacen = -1
+        End If
+        If CvePS > 0 Then
+            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+            If dr IsNot Nothing Then
+                ddlProducto2.SelectedText = dr("PSCodigo").ToString
+                ddlProducto2.SelectedValue = CvePS.ToString
+            End If
+
+        End If
+
+        Dim CveTiposAlmacen As String = "-1"
+        'For Each item As ListItem In CBLTiposAlmacen.Items
+        '    CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
+        'Next
+
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "-1", DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+            dt = ObjInventarios.DtResultados.Copy
+        End If
+        ObjInventarios.Dispose()
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
+            ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            CargarKardex(dt.Rows(0)("CvePS").ToString.ToEntero)
+            UPFiltros.Update()
+            ' UpDatos.Update()
+        End If
+    End Sub
+
 End Class
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 5c1e26509..08e57cd0d 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexAlmacenHorizontal.aspx.vb" Inherits="Inventarios_KardexAlmacen" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexAlmacenHorizontal.aspx.vb" Inherits="Inventarios_KardexAlmacenHorizontal" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
@@ -237,7 +237,33 @@
                             </asp:DropDownList>
                         </div>
                     </asp:Panel>
+
+                         <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
+                          <div class="col-md-1">Código Inicio:</div>
+                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
+                          <div class="col-md-1">Código Fin:</div>
+                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>                       
+
+                          <div class="col-md-1" runat="server" id="DVNavegar"  >
+                         <div class="row">
+                             <div class="col-md-5">
+                                 <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
+                             </div>
+                             <div class="col-md-2">
+                             </div>
+                             <div class="col-md-5">
+                                 <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
+                             </div>
+                         </div>
+
+
+    </div>
+    
+ </div>
                 </div>
+
+               
+
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index cc49574e7..14b886368 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -1,10 +1,11 @@
 Imports System.Data
 Imports System.IO
+Imports ADSNetLibrary.SIGAPI.Models.CGame
 Imports Extensiones
 Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
 
-Partial Class Inventarios_KardexAlmacen
+Partial Class Inventarios_KardexAlmacenHorizontal
     Inherits ClsPaginas
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -35,7 +36,12 @@ Partial Class Inventarios_KardexAlmacen
             End If
 
             If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
-            ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
+            ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
+
+            If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+                DVFiltroCodigo.Visible = True
+            End If
+
         End If
     End Sub
     Private Sub CargaCombos()
@@ -151,11 +157,16 @@ Partial Class Inventarios_KardexAlmacen
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
         Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
         Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
-        Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
+        Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
+
+
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
 
         If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios,
                                                      DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero,
-                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then
+                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text,
+                                                     CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)
@@ -525,4 +536,67 @@ Partial Class Inventarios_KardexAlmacen
         End Using
 
     End Sub
+
+
+
+
+    Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=False)
+    End Sub
+
+    Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=True)
+    End Sub
+    Private Sub NavegacionPS(Siguiente As Boolean)
+        Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
+
+        If Not CvePS > 0 Then
+            Exit Sub
+        End If
+        Dim dt As DataTable = New DataTable
+
+        Dim Entrada As Boolean = True
+        Dim Salida As Boolean = True
+
+        Dim FechaI As String = "-1"
+        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+        Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
+        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
+        If CveAlmacenes.Contains(",") Then
+            CveAlmacen = -1
+        End If
+        If CvePS > 0 Then
+            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+            If dr IsNot Nothing Then
+                ddlProducto2.SelectedText = dr("PSCodigo").ToString
+                ddlProducto2.SelectedValue = CvePS.ToString
+            End If
+
+        End If
+
+        Dim CveTiposAlmacen As String = "-1"
+
+
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+            dt = ObjInventarios.DtResultados.Copy
+        End If
+        ObjInventarios.Dispose()
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
+            ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            CargarKardex(dt.Rows(0)("CvePS").ToString.ToEntero)
+            UPFiltros.Update()
+
+        End If
+
+    End Sub
+
 End Class
diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx
index 4e6ef9959..170435582 100644
--- a/Inventarios/RepEntradasSalidas.aspx
+++ b/Inventarios/RepEntradasSalidas.aspx
@@ -194,7 +194,25 @@
                             <asp:DropDownList ID="DdlSubFamilia" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataTextField="Clasificacion" DataValueField="CveClasificacion"></asp:DropDownList>
                         </div>
                     </div>
-                    <div class="row">
+                    <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
+                       <div class="col-md-1">Código Inicio:</div>
+                       <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
+                       <div class="col-md-1">Código Fin:</div>
+                       <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>                       
+
+                         <div class="col-md-1" runat="server" id="DVNavegar"  >
+                        <div class="row">
+                            <div class="col-md-5">
+                                <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
+                            </div>
+                            <div class="col-md-2">
+                            </div>
+                            <div class="col-md-5">
+                                <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
+                            </div>
+                        </div>
+                             </div>
+
                     </div>
                 </div>
             </div>
diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb
index 91441f19c..2d6816414 100644
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -125,12 +125,14 @@ Partial Class Inventarios_ReporteEntradasSalidas
         GvM.Columns(14).Visible = TienePermisoImportes
         GvM.Columns(15).Visible = TienePermisoImportes
 
-
-
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             GvM.Columns(9).Visible = True
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+            DVFiltroCodigo.Visible = True
+        End If
+
     End Sub
     Private Sub CargaCombos()
 
@@ -254,10 +256,13 @@ Partial Class Inventarios_ReporteEntradasSalidas
             CveMarca = DdlMarca.SelectedValue.ToEntero
         End If
 
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
         If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
                                   Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
                                   DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
-                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
+                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
             dt = Reporte.DtResultados
 
 
@@ -571,6 +576,69 @@ Partial Class Inventarios_ReporteEntradasSalidas
         UpBitacora.Update()
     End Sub
 #End Region
+
+
+    Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=False)
+    End Sub
+
+    Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
+        NavegacionPS(Siguiente:=True)
+    End Sub
+    Private Sub NavegacionPS(Siguiente As Boolean)
+        Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero
+
+        If Not CvePS > 0 Then
+            Exit Sub
+        End If
+
+        Dim dt As DataTable = New DataTable
+
+        Dim Entrada As Boolean = True
+        Dim Salida As Boolean = True
+
+        Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
+        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+        Dim CveAlmacen As Integer = If(DdlAlmacen.SelectedValue.ToEntero = 0, -1, DdlAlmacen.SelectedValue.ToEntero)
+        Dim CveAlmacenes As String = DdlAlmacen.GetSelectedValues()
+        If CveAlmacenes.Contains(",") Then
+            CveAlmacen = -1
+        End If
+        If CvePS > 0 Then
+            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+            If dr IsNot Nothing Then
+                DdlPS.SelectedText = dr("PSCodigo").ToString
+                DdlPS.SelectedValue = CvePS.ToString
+            End If
+
+        End If
+
+        'Dim CveTiposAlmacen As String = "-1"
+        'For Each item As ListItem In CBLTiposAlmacen.Items
+        '    CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
+        'Next
+
+        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "-1", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+            dt = ObjInventarios.DtResultados.Copy
+        End If
+        ObjInventarios.Dispose()
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            DdlPS.SelectedValue = dt.Rows(0)("CvePS").ToString
+            DdlPS.SelectedText = dt.Rows(0)("CodigoPS").ToString
+            DdlPS.txtValue.Value = dt.Rows(0)("CvePS").ToString
+            DdlPS.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            CargaDatos()
+            'UPFiltros.Update()
+            UPPMov.Update()
+        End If
+    End Sub
+
     'Protected Sub Lnkcompuxlsinventarios_Click(sender As Object, e As EventArgs)
     '    Dim continuar = True
     '    Try

From 38d53ab78698091993a8bffd750d222517c8dd62 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 15 Apr 2024 19:00:05 -0700
Subject: [PATCH 27/70] --Ferretera. Textbox tipo password para codigo de
 acceso en descuentos

---
 Ventas/Ventas.aspx    | 6 +++---
 Ventas/Ventas.aspx.vb | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 5799a0492..935689de9 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -4518,12 +4518,12 @@
                                 <div class="form-group">
                                     <div class="row">
                                         <div class="col-md-12 v-center" style="display: flex">
-                                            <i class="fa fa-user fa-2 icontxt" style="font-size: 20px!important;"></i>
+                                            <i class="fa fa-lock fa-2 icontxt" style="font-size: 20px!important;"></i>
                                             &nbsp;
-                                        <asp:TextBox ID="TxtCodAccesoDescPS" runat="server" CssClass="form-control" placeholder="Código de acceso" ClientIDMode="Static" AutoComplete="off"></asp:TextBox>
+                                        <asp:TextBox ID="TxtCodAccDesc" runat="server" CssClass="form-control" placeholder="Código de acceso" type="password" ClientIDMode="Static" AutoComplete="off"></asp:TextBox>
                                         </div>
                                     </div>
-                                    <asp:RequiredFieldValidator ID="RFCCodAccesoDescPS" runat="server" ControlToValidate="TxtCodAccesoDescPS" Display="Static" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Código de acceso''</b> es necesario.</span></span>" ValidationGroup="GrpAutorizarDesc"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RFCCodAccesoDescPS" runat="server" ControlToValidate="TxtCodAccDesc" Display="Static" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Código de acceso''</b> es necesario.</span></span>" ValidationGroup="GrpAutorizarDesc"></asp:RequiredFieldValidator>
                                 </div>
                             </div>
                         </div>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 873a9fa95..64a7d1e23 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -37884,7 +37884,7 @@ Partial Class Ventas
                 Dim CveUsuarioNuevo As Integer = -1
 
                 Using ObjUsuarios As New ClsSisUsuarios
-                    CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodAccesoDescPS.Text.Trim, UsuarioActual.CveEmpresa)
+                    CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodAccDesc.Text.Trim, UsuarioActual.CveEmpresa)
                 End Using
 
                 If CveUsuarioNuevo > 0 Then
@@ -38089,7 +38089,7 @@ Partial Class Ventas
         Else
             DivUserPass.Visible = False
             DivCodAcceso.Visible = True
-            TxtCodAccesoDescPS.Focus()
+            TxtCodAccDesc.Focus()
         End If
 
     End Sub

From c2f2a049b1ae6dcaf18d5a45f3d9aef7a7a131da Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 15 Apr 2024 19:37:42 -0700
Subject: [PATCH 28/70] -- cambio en tipo fecha en addmovtopermanente

---
 App_Code/ClsNominas.vb          | 4 ++--
 Bancos/PrestamoPersonal.aspx.cs | 2 +-
 Nomina/Nomina.aspx.cs           | 2 +-
 RH/Personal.aspx.vb             | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 05165e95e..58ed76c8a 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3209,7 +3209,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As String, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1) As Integer
+    Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1) As Integer
         Dim retorno As Integer = 0
         DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure)
 
@@ -3221,7 +3221,7 @@ Public Class ClsNominas
             .Add("@valor", SqlDbType.Float).Value = (valor)
             .Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar)
             .Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite)
-            .Add("@fechaInicioAplicacion", SqlDbType.VarChar).Value = (fechaInicioAplicacion)
+            .Add("@fechaInicioAplicacion", SqlDbType.Date).Value = (fechaInicioAplicacion)
             .Add("@estatus", SqlDbType.Bit).Value = (estatus)
             .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta)
             .Add("@CveIE", SqlDbType.Int).Value = (CveIE)
diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs
index 0583bf6d1..4f1dd42f2 100644
--- a/Bancos/PrestamoPersonal.aspx.cs
+++ b/Bancos/PrestamoPersonal.aspx.cs
@@ -567,7 +567,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
                         vecesPorAplicar = (1m / porcentaje).ToEntero();
                     }
 
-                    if (ObjNominas.AddMovtoPermanente(DdlConcepto.SelectedValue.ToEntero(), DdlFuncionarioEmpleadoPrestamo.SelectedValue.ToEntero(), TxtObservacionesPrestamo.Text, DdlTipoDescto.SelectedValue.ToEntero(), valor, vecesPorAplicar, montoLimite, TxtFechaPrestamo.Text, true, -1, CveIE: CveIE) <= 0)
+                    if (ObjNominas.AddMovtoPermanente(DdlConcepto.SelectedValue.ToEntero(), DdlFuncionarioEmpleadoPrestamo.SelectedValue.ToEntero(), TxtObservacionesPrestamo.Text, DdlTipoDescto.SelectedValue.ToEntero(), valor, vecesPorAplicar, montoLimite, TxtFechaPrestamo.Text.ToDate(), true, -1, CveIE: CveIE) <= 0)
                     {
                         MsgError = "No se pudo insertar el movimiento permanente";
                     }
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 89610e570..760dbaaf3 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -7073,7 +7073,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         double valor = TxtValor.Text.ToDouble();
         int vecesAplicar = TxtVecesAplicar.Text.ToEntero();
         decimal montoLimite = TxtMontoLimite.Text.ToDecimal();
-        string fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd");
+        DateTime fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate();
         bool estatus = ChkEstatus.Checked;
         int CveCuenta = DdlCtaContable.SelectedValue.ToEntero() * (DdlCtaContable.DataValueField == "Id" ? -1 : 1);
         bool Continuar;
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 4c1d92725..26f9edf5f 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -7297,7 +7297,7 @@ Partial Class RH_Personal
         Dim valor As Double = TxtValor.Text.ToDouble()
         Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero()
         Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal()
-        Dim fechaInicioAplicacion As String = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd")
+        Dim fechaInicioAplicacion As String = TxtFechaAplicacion.Text.ToDate()
         Dim estatus As Boolean = ChkEstatus.Checked
         Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1))
         Dim Continuar As Boolean

From 60017d5a7eb0b1331c63f2728dcc25826ed8abf5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 16 Apr 2024 05:30:24 -0700
Subject: [PATCH 29/70] =?UTF-8?q?cambio=20a=20fecha=20campo=20fechaaplicac?=
 =?UTF-8?q?i=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsNominas.vb | 4 ++--
 RH/Personal.aspx.vb    | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 58ed76c8a..0f868dd15 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3239,7 +3239,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As String, estatus As Boolean, CveCuenta As Integer) As Boolean
+    Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_UpMovtoPermanente", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -3251,7 +3251,7 @@ Public Class ClsNominas
             .Add("@valor", SqlDbType.Float).Value = (valor)
             .Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar)
             .Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite)
-            .Add("@fechaInicioAplicacion", SqlDbType.VarChar).Value = (fechaInicioAplicacion)
+            .Add("@fechaInicioAplicacion", SqlDbType.Date).Value = (fechaInicioAplicacion)
             .Add("@estatus", SqlDbType.Bit).Value = (estatus)
             .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta)
         End With
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 26f9edf5f..5bb136279 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -7297,7 +7297,7 @@ Partial Class RH_Personal
         Dim valor As Double = TxtValor.Text.ToDouble()
         Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero()
         Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal()
-        Dim fechaInicioAplicacion As String = TxtFechaAplicacion.Text.ToDate()
+        Dim fechaInicioAplicacion As Date = TxtFechaAplicacion.Text.ToDate()
         Dim estatus As Boolean = ChkEstatus.Checked
         Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1))
         Dim Continuar As Boolean
@@ -7323,7 +7323,7 @@ Partial Class RH_Personal
         Dim valor As Double = TxtValor.Text.ToDouble()
         Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero()
         Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal()
-        Dim fechaInicioAplicacion As String = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd")
+        Dim fechaInicioAplicacion As Date = TxtFechaAplicacion.Text.ToDate()
         Dim estatus As Boolean = ChkEstatus.Checked
         Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1))
         Dim Continuar As Boolean

From 726bacf643cdceae85138d0270e92f6259d15b8f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 16 Apr 2024 05:30:49 -0700
Subject: [PATCH 30/70] -- nueva propiedad llamada cvealmacenalterno

---
 App_Code/ClsClientes.vb | 16 ++++++++-----
 Ventas/Clientes.aspx    | 18 ++++++++++++--
 Ventas/Clientes.aspx.vb | 53 +++++++++++++++++++++++++----------------
 3 files changed, 59 insertions(+), 28 deletions(-)

diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index e3d47be18..0addaf0c1 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -158,6 +158,7 @@ Public Class ClsClientes
     Public Property RegimenFiscal As String
     Public Property RepresentanteLegal As String
     Public Property CveAlmacenAsignado As Integer = -1
+    Public Property CveAlmacenAlterno As Integer = -1
     Public Property UsaProductoAlterno As Boolean = False
 
 
@@ -407,8 +408,8 @@ Public Class ClsClientes
                 _CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString
                 _RepresentanteLegal = Data(0)("RepresentanteLegal").ToString
                 _CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero
+                _CveAlmacenAlterno = Data(0)("CveAlmacenAlterno").ToString.ToEntero
                 _UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno"))
-                Me.CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero
 
             End If
             Retorno = True
@@ -526,7 +527,7 @@ Public Class ClsClientes
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
                                Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
-                               Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean
+                               Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -655,6 +656,7 @@ Public Class ClsClientes
             .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
             .Add("@Genero", SqlDbType.Bit).Value = Genero
             .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
+            .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
             .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
         End With
         Try
@@ -701,7 +703,7 @@ Public Class ClsClientes
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
                                 Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
-                                Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean
+                                Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -840,6 +842,7 @@ Public Class ClsClientes
             .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
             .Add("@Genero", SqlDbType.Bit).Value = Genero
             .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
+            .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
             .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
 
         End With
@@ -1049,7 +1052,7 @@ Public Class ClsClientes
     'End Function
     Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
                                 LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "",
-                                Optional CveAlmacenAsignado As Integer = -1) As Boolean
+                                Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_SucursalClienteAdd")
@@ -1085,7 +1088,7 @@ Public Class ClsClientes
             .Add("@RFC", SqlDbType.VarChar).Value = RFC
 
             .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
-
+            .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
 
         End With
 
@@ -1106,7 +1109,7 @@ Public Class ClsClientes
     End Function
     Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
                                    LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1",
-                                    Optional CveAlmacenAsignado As Integer = -1) As Boolean
+                                    Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_SucursalClienteUpdate")
@@ -1145,6 +1148,7 @@ Public Class ClsClientes
             .Add("@RFC", SqlDbType.VarChar).Value = RFC
 
             .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
+            .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
 
         End With
 
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 615d5941e..fcf2d5513 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -812,9 +812,14 @@
                                                  </div>
                                              </div>
                                              <div class="col-md-6">
-        
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:DropDownList ID="DdlAlmacenAlterno" runat="server" CssClass=" form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen">                                                      
+                                                    </asp:DropDownList>
+                                                    <label for="<%= DdlAlmacenAlterno.ClientID.ToString()%>">Almacen Alterno:</label>
+                                                </div>
                                              </div>
                                          </div>
+                                         
                                     </div>
                                 </div>
                             </div>                           
@@ -5256,7 +5261,16 @@
                                          <asp:DropDownList runat="server" ID="ddlAlmacenSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
                                          <label for="<%=ddlAlmacenSucursal.ClientID.ToString()%>">Almacén:</label>
                                     </div>
-                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                     <div class="form-group form-md-line-input input-iconright col-xs-6" runat="server" id="DvAlmacenAlternoSucursal" visible="false">
+                                         <asp:DropDownList runat="server" ID="DdlAlmacenAlternoSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
+                                         <label for="<%=DdlAlmacenAlternoSucursal.ClientID.ToString()%>">Almacén Alt:</label>
+                                    </div>
+                                </div>
+                                <div class="row" style="padding-left: 16px">
+                                     <div class="form-group form-md-line-input input-iconright col-xs-6" runat="server" id="Div4" visible="false">
+                                         
+                                    </div>
+                                   <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <div id="DivEstatusSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-12">
                                             <asp:CheckBox runat="server" ID="ChkEstatusSucursal" Checked="true" AutoPostBack="false" />
                                             <label for="<%= ChkEstatusSucursal.ClientID.ToString()%>">Estatus Sucursal</label>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 758792a55..f03d07f5e 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1578,6 +1578,7 @@ Partial Class Clientes
                 ChkBonificacionUsado.Checked = ObjClientes.BonificacionUsado
                 ChkProductoAlterno.Checked = ObjClientes.UsaProductoAlterno
                 DdlAlmacenAsignado.SelectedValueExist(ObjClientes.CveAlmacenAsignado)
+                DdlAlmacenAlterno.SelectedValueExist(ObjClientes.CveAlmacenAlterno)
 
                 'COMERCIO EXTERIOR
                 ChkAplicaComercioExterior.Checked = ObjClientes.AplicaComercioExterior
@@ -2578,7 +2579,7 @@ Partial Class Clientes
                                         CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                         ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
                                         TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                        CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked) Then
+                                        CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked) Then
 
                         CveClienteNuevo = ObjClientes.CveCliente
 
@@ -2662,7 +2663,7 @@ Partial Class Clientes
                                             RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(),
                                             CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
                                             NoDesglosaIVA:=Not ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito,
-                                            Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked) Then
+                                            Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked) Then
 
                         If Not ObjClientes.LimpiaImpuestosLocales(Me.CveCliente) Then
                             ErrorProceso = True
@@ -3055,19 +3056,25 @@ Partial Class Clientes
 
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
             DvAlmacenSucursal.Visible = True
+            DvAlmacenAlternoSucursal.Visible = True
             ddlAlmacenSucursal.Items.Clear()
             ddlAlmacenSucursal.ClearSelection()
             ddlAlmacenSucursal.SelectedValue = Nothing
             ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
             ddlAlmacenSucursal.DataBind()
+            DdlAlmacenAlternoSucursal.Items.Clear()
+            DdlAlmacenAlternoSucursal.ClearSelection()
+            DdlAlmacenAlternoSucursal.SelectedValue = Nothing
+            DdlAlmacenAlternoSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            DdlAlmacenAlternoSucursal.DataBind()
         End If
 
-        ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
         ddlAlmacenSucursal.SelectedValueExist("-1")
+        DdlAlmacenAlternoSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlAlmacenAlternoSucursal.SelectedValueExist("-1")
 
         UpModalDivMapa.Update()
-
-
         RegistraScript("showDivEC();")
     End Sub
     Public Function CargaSucursalesCliente() As Boolean
@@ -3097,6 +3104,7 @@ Partial Class Clientes
         Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
         Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text)
         Dim CveAlmacenAgregadoSucursal As Integer = ddlAlmacenSucursal.SelectedValue.ToEntero
+        Dim CveAlmacenAlternoSucursal As Integer = DdlAlmacenAlternoSucursal.SelectedValue.ToEntero
 
         If CveCliente > 0 Then
 
@@ -3116,7 +3124,7 @@ Partial Class Clientes
                     Dim Estatus As Boolean = ChkEstatusSucursal.Checked
                     If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim,
                                                  TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
-                                                  DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal) Then
+                                                  DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal, CveAlmacenAlterno:=CveAlmacenAlternoSucursal) Then
                         GVSucursales.EditIndex = -1
                         ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
                         Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
@@ -3128,7 +3136,7 @@ Partial Class Clientes
                 Else
                     If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim,
                                               DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(),
-                                               DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal) Then
+                                               DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal, CveAlmacenAlterno:=CveAlmacenAlternoSucursal) Then
                         TxtNombreSucursal.Text = ""
                         TxtCiudadSucursal.Text = ""
                         TxtColoniaSucursal.Text = ""
@@ -3317,21 +3325,21 @@ Partial Class Clientes
                 ddlAlmacenSucursal.SelectedValue = Nothing
                 ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
                 ddlAlmacenSucursal.DataBind()
-                ddlAlmacenSucursal.Items.Add(New ListItem("Seleccione uno", "-1"))
+                ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
                 ddlAlmacenSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString())
+                DvAlmacenAlternoSucursal.Visible = True
+                DdlAlmacenAlternoSucursal.Items.Clear()
+                DdlAlmacenAlternoSucursal.ClearSelection()
+                DdlAlmacenAlternoSucursal.SelectedValue = Nothing
+                DdlAlmacenAlternoSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+                DdlAlmacenAlternoSucursal.DataBind()
+                DdlAlmacenAlternoSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                DdlAlmacenAlternoSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAlterno").ToString())
             End If
 
-
-
-
-
-
             UpAgregarSucursal.Update()
-            UpModalDivMapa.Update()
-
-            'Dim scriptReg As String = $" SelTxtLat = '#{ GVSucursales.Rows(e.NewEditIndex).FCTextBox("txtLt").ClientID}';  SelTxtLon = '#{ GVSucursales.Rows(e.NewEditIndex).FCTextBox("txtLg").ClientID}''"
-            'RegistraScript("$('#divAgregarSucursal').modal();" & scriptReg)
-
+            UpModalDivMapa.Update()
+
             RegistraScript("$('#divAgregarSucursal').modal();")
 
         Else
@@ -5607,6 +5615,7 @@ Partial Class Clientes
         RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
 
         RowSucursal("CveAlmacenAsignado") = ddlAlmacenSucursal.SelectedValue.ToEntero
+        RowSucursal("CveAlmacenAlterno") = DdlAlmacenAlternoSucursal.SelectedValue.ToEntero
 
         TempDTSucursales.Rows.Add(RowSucursal)
 
@@ -6137,18 +6146,22 @@ Partial Class Clientes
 
     Private Sub CargaDdlAlmacen()
 
-
-
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
 
             DdlAlmacenAsignado.SelectedValue = Nothing
             DdlAlmacenAsignado.ClearSelection()
             DdlAlmacenAsignado.Items.Clear()
+            DdlAlmacenAlterno.SelectedValue = Nothing
+            DdlAlmacenAlterno.ClearSelection()
+            DdlAlmacenAlterno.Items.Clear()
 
             divAlmacenAsignado.Visible = True
             DdlAlmacenAsignado.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
             DdlAlmacenAsignado.DataBind()
             DdlAlmacenAsignado.Items.Insert(0, New ListItem("-", "-1"))
+            DdlAlmacenAlterno.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            DdlAlmacenAlterno.DataBind()
+            DdlAlmacenAlterno.Items.Insert(0, New ListItem("-", "-1"))
 
         End If
     End Sub

From a16c66fe43010bd7ca56496c9a3314a548f3b5d2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 16 Apr 2024 05:31:12 -0700
Subject: [PATCH 31/70] -- cambio tipo de dato

---
 Bancos/Devoluciones.aspx.cs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index d9521500b..588f11403 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -418,7 +418,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
                 int vecesAplicar = TxtVecesAplicar.Text.ToEntero();
                 decimal montoLimite = 0;
 
-                string fechaInicioAplicacion = NowADS().ToString("yyyy/MM/dd");
+                DateTime fechaInicioAplicacion = NowADS();
                 bool estatus = true;
                 int CveCuenta = -1;
                 int CveMovtoPermanente = ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta);

From e5eaef7789f39a608e7f17c9b983025b859ef855 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 16 Apr 2024 05:31:40 -0700
Subject: [PATCH 32/70] - cambio a fecha tipo de dato fecha aplicacion

---
 Nomina/Nomina.aspx.cs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 760dbaaf3..c32e3a437 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -7106,7 +7106,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         double valor = TxtValor.Text.ToDouble();
         int vecesAplicar = TxtVecesAplicar.Text.ToEntero();
         decimal montoLimite = TxtMontoLimite.Text.ToDecimal();
-        string fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd");
+        DateTime  fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate();
         bool estatus = ChkEstatus.Checked;
         int CveCuenta = DdlCtaContable.SelectedValue.ToEntero() * (DdlCtaContable.DataValueField == "Id" ? -1 : 1);
         bool Continuar;

From a34c90a88a4a143e3fac301ad7527c136135ba29 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 16 Apr 2024 05:55:25 -0700
Subject: [PATCH 33/70] -- cambio en qr enviado con sellocfdi

---
 App_Code/Timbrado.vb | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 45da261d1..6dc7cc9bd 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -3205,7 +3205,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
                 If result IsNot Nothing Then
                     If result.timbradoOk Then
                         Dim SelloCfdi As String
-                        SelloCfdi = ""
+                        SelloCfdi = cfdi.CfdiInfo.SelloCfdi
                         UUID = result.UUID
 
                         'GUARDA EL XML RETORNADO POR EL PAC
@@ -3224,7 +3224,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
                         Select Case ObjCFDITimbre.Comprobante.TipoComprobante
                             Case "N"
-
                                 Using ObjNomina2 As New ClsNominas()
 
                                     If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, UUID, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then
@@ -3233,7 +3232,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
                                         Retorno = "Error"
                                     End If
                                 End Using
-
                             Case "T"
 
                                 Dim objGrales As New ClsGenerales
@@ -3252,7 +3250,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
                                     End If
                                 End Using
 
-
                             Case Else
 
                                 'Actualiza Estatus Factura

From 1c71c94d46a49e098fd71048c85386fbc54307f4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 16 Apr 2024 09:19:05 -0700
Subject: [PATCH 34/70] timeout=0, en cxcdetalle

---
 App_Code/ClsMovimientos.vb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index 90f9a5b12..de0fa63dd 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -367,6 +367,7 @@ Public Class ClsMovimientos
         End With
 
         Try
+            SqlAdapter.SelectCommand.CommandTimeout = 0
             SqlAdapter.Fill(DS)
             Retorno = True
         Catch ex As Exception

From 0ba26ac8fd3e322b5d9c5e6b23954272006fa5ee Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 16 Apr 2024 11:03:21 -0700
Subject: [PATCH 35/70] =?UTF-8?q?--=20cambios=20para=20BDH,=20poder=20deja?=
 =?UTF-8?q?r=20un=20importe=20=20para=20devoluci=C3=B3n=20sobre=20la=20mis?=
 =?UTF-8?q?ma=20cuenta?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/DepositosCaja.aspx    | 92 ++++++++++++++++++++++++++++++------
 Bancos/DepositosCaja.aspx.vb | 45 ++++++++++++++++--
 2 files changed, 119 insertions(+), 18 deletions(-)

diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index db0f577d6..d687afed7 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -120,7 +120,8 @@
                 </div>
                 <div class="portlet-body" style="display: none">
                     <div class="row">
-                        <label class="col-md-1 truncate" style="width: 100px;">SubProyecto:</label>
+                        <label class="col-md-1 truncate" style="width: 100px;">
+                            <asp:Label ID="LblSub" runat="server" Text="SubProyecto"></asp:Label>:</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                             </asp:DropDownList>
@@ -218,16 +219,12 @@
                     </div>
                 </div>
 
-
-
-
             </div>
             <div class="row rowcheck truncate" id="DivDescuentocheck" style="margin-top: -25px;">
                 <div class="col-md-1" runat="server" id="Div1" style="width: 155px">
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox" />
                 </div>
                 <div class="col-md-10 rowcheckCampos" id="DivDescuento" style="display: none">
-
                     <div class="col-md-1" style="padding-right: 130px;">
                         <label for="TxtDescuento">Importe:</label>
                         <asp:TextBox runat="server" ID="TxtDescuento" Class=" input-sm " Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
@@ -253,7 +250,7 @@
                 </div>
 
             </div>
-            <div class="row rowcheck truncate" id="DivIntercheck" style="margin-top: -25px;">
+            <div class="row rowcheck truncate" id="DivIntercheck" style="margin-top: -15px;">
 
                 <div class="col-md-1" runat="server" id="Div2" style="width: 155px">
                     <asp:CheckBox ID="ChkIntermediario" runat="server" Text="Intermediario" CssClass="checkbox" />
@@ -287,6 +284,24 @@
                     </div>
                 </div>
             </div>
+            <div class="row rowcheck truncate" id="DivRowCuenta" style="margin-top: -15px;" runat="server" visible="false" >
+
+                <div class="col-md-1" runat="server" id="Div3" style="width: 155px">
+                    <asp:CheckBox ID="ChkCuentaRetorno" runat="server" Text="Cuenta" CssClass="checkbox" />
+                </div>
+                <div class="col-md-10 rowcheckCampos" id="DivRowCuenta2" style="display: none">
+                    <div class="col-md-3" id="ddd" style="padding-right: 150px;">
+                        <label>Cuenta:</label>
+                        <asp:DropDownList ID="DdlCajaChicaRetorno" CssClassDdl="select2me" Width="150px" CssStyle="100%" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" runat="server"></asp:DropDownList> 
+                    </div>
+                    <div class="col-md-2" style="width: 205px;">
+                        <div class="col-md-6" id="DivCuentaImporte" style="padding-left: 0px; padding-right: 0px;">
+                            <label>Importe:</label>
+                            <asp:TextBox runat="server" ID="TxtCuentaRetorno" Class=" input-sm " Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
+                        </div> 
+                    </div>                    
+                </div>
+            </div>
 
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -406,8 +421,7 @@
         var saldo = 0;
         var IVA = 0;
         var ComisionIntermediario = 0;
-
-
+        var CuentaRetorno = 0;
 
         function FnSuma(chk, cantidad) {
             var saldoInicial = ToDouble($('#C_lblValorTotal').text());
@@ -528,6 +542,30 @@
                     }
                 }
             }
+
+            if ($('#C_ChkCuentaRetorno').attr('checked')) {
+                var txtcuentaretorno = ToDouble($('#C_TxtCuentaRetorno').val());
+                if (txtcuentaretorno != 0) {
+                    var DescuentoNegativa = 0;
+                    if (txtcuentaretorno > 0) {
+                        DescuentoNegativa = txtcuentaretorno * -1;
+                    }
+                    if (DescuentoNegativa > saldo) {
+                        $('#C_TxtCuentaRetorno').val(0);
+                        comision = 0;
+                        descuento = 0;
+                        txtdescuento = 0;
+                        alert("No es posible poner un descuento superior a lo seleccionado");
+                        saldo = 0;
+                        $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
+                    } else {
+                        //saldo = ValorTotalSeleccionado + txtdescuento + comision;
+                        //$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+                        //descuento = ToDouble($('#C_TxtDescuento').val())
+                        //debugger;
+                    }
+                }
+            }
 
         }
 
@@ -559,13 +597,28 @@
                 $('#C_TxtDescuento').val(descuento)
                 alert("No es posible poner un IVA superior a lo seleccionado")
             } else {
-                saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario;
+                saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario - CuentaRetorno;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 descuento = ToDouble($('#C_TxtDescuento').val())
             }
 
         }
 
+        function txtSumaCuentaRetorno(txt) {
+            debugger;
+            var comision2 = ToDouble($('#C_TxtCuentaRetorno').val());
+            if (comision2 > ValorTotalSeleccionado) {
+                $('#C_TxtCuentaRetorno').val(descuento)
+                alert("No es posible poner un IVA superior a lo seleccionado")
+            } else {
+                saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario;
+                $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+                descuento = ToDouble($('#C_TxtCuentaRetorno').val())
+            }
+
+        }
+
+
 
         function txtSumaIVA(txt) {
             var comision2 = ToDouble($('#C_TxtIVA').val());
@@ -573,7 +626,7 @@
                 $('#C_TxtIVA').val(IVA);
                 alert("No es posible poner un IVA superior a lo seleccionado");
             } else {
-                saldo = ValorTotalSeleccionado - descuento + comision - comision2 - ComisionIntermediario;
+                saldo = ValorTotalSeleccionado - descuento + comision - comision2 - ComisionIntermediario - CuentaRetorno;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 IVA = ToDouble($('#C_TxtIVA').val());
             }
@@ -586,7 +639,7 @@
                 //$('#C_TxtComisionIntermediario').val(ComisionIntermediario);
                 //alert("No es posible poner un importe superior a lo seleccionado");
             } else {
-                saldo = ValorTotalSeleccionado - descuento + comision - comision2 - IVA;
+                saldo = ValorTotalSeleccionado - descuento + comision - comision2 - IVA - CuentaRetorno;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 ComisionIntermediario = ToDouble($('#C_TxtComisionIntermediario').val());
             }
@@ -638,9 +691,19 @@
 
                 Recalcular();
                 $('#DivInter').css("display", "none");
-                $('#DivIntercheck').addClass("truncate");
-
+                $('#DivIntercheck').addClass("truncate");
+            }
+        }
+        function CheckRowCuenta(chk) {
+            if (chk.checked == true) {
+                $('#DivRowCuenta2').css("display", "block");
+                $('#DivRowCuenta').removeClass("truncate");
 
+            } else {
+                
+                Recalcular();
+                $('#DivRowCuenta2').css("display", "none");
+                $('#DivRowCuenta').addClass("truncate");
             }
         }
 
@@ -650,8 +713,9 @@
             var Descuento = ToDouble($('#C_TxtDescuento').val());
             var IVA = ToDouble($('#C_TxtIVA').val());
             var ImporteInter = ToDouble($('#C_TxtComisionIntermediario').val());
+            var ImporteCuentaRetorno= ToDouble($('#C_TxtCuentaRetorno').val());
 
-            var total = ValorTotalSeleccionado + Comision - Descuento - IVA - ImporteInter
+            var total = ValorTotalSeleccionado + Comision - Descuento - IVA - ImporteInter - ImporteCuentaRetorno
             $('#C_lblValorTotal').text(FormatoNumero(total, 2));
             debugger;
 
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index f1d222eae..471cde81e 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -25,6 +25,7 @@ Partial Class Bancos_DepositosCaja
             txtFechaF.Text = NowADS().ToShortDateString
             TxtComision.Attributes.Add("onKeyUp", "txtSuma(this);")
             TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(this);")
+            TxtCuentaRetorno.Attributes.Add("onKeyUp", "txtSumaCuentaRetorno(this);")
             TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(this);")
             TxtComisionIntermediario.Attributes.Add("onKeyUp", "txtSumaTntermediario(this);")
 
@@ -32,7 +33,8 @@ Partial Class Bancos_DepositosCaja
             CargaCuentas()
             ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
             ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
-            ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);")
+            ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);")
+            ChkCuentaRetorno.Attributes.Add("onclick", "CheckRowCuenta(this);")
             BtnConsultar.Attributes.Add("onclick", "Consultar(this);")
             BtnDepositar.Attributes.Add("onclick", "Depositar(this);")
 
@@ -41,7 +43,8 @@ Partial Class Bancos_DepositosCaja
 
     Private Sub CargaCuentas()
         DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
-        DdlCuentaDeposito.DataBind()
+        DdlCuentaDeposito.DataBind()
+        DdlCuentaDeposito.Items.Insert(0, New ListItem("-", "-1"))
 
         DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCajaChica.DataBind()
@@ -54,6 +57,13 @@ Partial Class Bancos_DepositosCaja
             divFolio.Visible = True
         End If
 
+        DdlCajaChicaRetorno.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
+        DdlCajaChicaRetorno.DataBind()
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            DivRowCuenta.Visible = True
+        End If
+
         DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -148,12 +158,19 @@ Partial Class Bancos_DepositosCaja
         Dim TotalImporte As Decimal = 0
         Dim TotalImportePrePoliza As Decimal
         Dim Comision As Decimal = TxtComision.Text.ToDecimal
-        Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal
+        Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal
+        Dim CuentaRetorno As Decimal = TxtCuentaRetorno.Text.ToDecimal
         Dim IVA As Decimal = TxtIVA.Text.ToDecimal
         Dim ImporteInter As Decimal = TxtComisionIntermediario.Text.ToDecimal
 
         Dim MsgError As String = "Ocurrió un error al realizar los depositos"
 
+        If DdlCuentaDeposito.SelectedValue.ToEntero <= 0 Then
+            Alert("No se ha especificado la cuenta a depositar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
         For Each Gvr As GridViewRow In GvFacturas.Rows
             If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal
         Next
@@ -183,6 +200,15 @@ Partial Class Bancos_DepositosCaja
             End If
         End If
 
+        If CuentaRetorno <> 0 Then
+            TotalImporte = TotalImporte - CuentaRetorno
+            'Descuento = -(Descuento) ' se inverte el valor, va cargada
+            'If DdlSubProyectoDescuento.SelectedValue.ToEntero = -1 Or DdlClasificacionDescuento.SelectedValue.ToEntero = -1 Then
+            '    Alert("Debes Seleccionar un Subproyecto y una Clasificación de descuento", TipoMensaje.MsgAdvertencia)
+            '    Exit Sub
+            'End If
+        End If
+
         If TxtComisionIntermediario.Text.ToDecimal <> 0 Then
             TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA
         End If
@@ -321,6 +347,17 @@ Partial Class Bancos_DepositosCaja
             Else
                 OcurrioError = True
             End If
+
+            If Not OcurrioError AndAlso ChkCuentaRetorno.Checked Then
+                CveTransaccionBanco = 13
+                FolioIE = ObjBancos.GetNextFolio(DdlCajaChicaRetorno.SelectedValue.ToEntero, CveTransaccionBanco)
+                CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChicaRetorno.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Retorno Depósito Bancario", CuentaRetorno, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, CuentaRetorno, CuentaRetorno * TipoCambio, 30, "", "Retorno", CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen) Then
+                    OcurrioError = True
+                End If
+            End If
+
             If Not OcurrioError Then
                 Dim i As Integer = 0
                 For Each Gvr As GridViewRow In GvFacturas.Rows
@@ -365,7 +402,7 @@ Partial Class Bancos_DepositosCaja
                 Next
                 Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
 
-                documentos += String.Format("<br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> <br/><br/> ", StrEncript, "Depósito Bancario")
+                documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> <br/> ", StrEncript, "Depósito Bancario")
 
             End If
 

From fbbee09158eb7362e36e6001852cd638615cf9ec Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 16 Apr 2024 11:06:20 -0700
Subject: [PATCH 36/70] -- mejora en texto

---
 RH/RepChecadorPreAsistencia.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb
index a015b1305..8a568df99 100644
--- a/RH/RepChecadorPreAsistencia.aspx.vb
+++ b/RH/RepChecadorPreAsistencia.aspx.vb
@@ -1999,7 +1999,7 @@ Partial Class RH_RepChecadorPreAsistencia
             Dim ObjPersonal As New ClsRH
             If ObjPersonal.AddAsistencia(CvePersonalSeleccionado, -1, DdlSubProyecto.SelectedValue.ToEntero, FechaSeleccionada,
                                          DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then
-                Alert("Registro Actualziado Correctamente.")
+                Alert("Registro Actualizado Correctamente.")
 
             End If
             ObjPersonal.Dispose()

From c57c4f2c46d8bf86adc9bfe1242adb9487925f78 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 16 Apr 2024 18:02:26 -0700
Subject: [PATCH 37/70] GDiaz - Identificar anticipos puntuales

---
 App_Code/ClsBancos.vb |  5 ++-
 Bancos/IE.aspx        | 89 ++++++++++++++++++++++---------------------
 Bancos/IE.aspx.vb     | 16 +++++++-
 Ventas/Ventas.aspx.vb |  5 +++
 4 files changed, 68 insertions(+), 47 deletions(-)

diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 77940930c..871e4c4b8 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1475,7 +1475,8 @@ Public Class ClsBancos
                                  NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer,
                                  Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
                                  Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
-                                    Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1) As Integer
+                                 Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1,
+                                 Optional AnticipoPuntual As Boolean = False) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Banc_IEAdd")
@@ -1516,7 +1517,7 @@ Public Class ClsBancos
             .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
             .Add("@CveOCAnticipo", SqlDbType.Int).Value = CveOCAnticipo
             .Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago
-
+            .Add("@AnticipoPuntual", SqlDbType.Bit).Value = AnticipoPuntual
         End With
 
         Try
diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 72d6f420c..198bceedf 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -25,7 +25,7 @@
                 <asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Complemento Pago</asp:LinkButton>
             </li>
         </ContentTemplate>
-    </asp:UpdatePanel>    
+    </asp:UpdatePanel>
     <li>
         <asp:HyperLink ID="HpLPrePoliza" NavigateUrl="#" runat="server" Visible="false" Style="color: #686868;"><i class="" style="color:#686868;"></i> PrePoliza</asp:HyperLink>
     </li>
@@ -151,7 +151,7 @@
                                 <div class="col-md-5">
                                     <asp:DropDownList ID="DDlCheques" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="FolioFecha" DataValueField="CveIE" AutoPostBack="True"></asp:DropDownList>
                                 </div>
-                            </div>                            
+                            </div>
                         </div>
                         <div class="chequesie2" id="checkesie2">
                             <div class="row">
@@ -225,7 +225,7 @@
                                                 <asp:ListItem Value="C">Clientes</asp:ListItem>
                                                 <asp:ListItem Value="P">Proveedor</asp:ListItem>
                                                 <asp:ListItem Value="FE">Viáticos</asp:ListItem>
-                                                 <asp:ListItem Value="AC">Acreedor</asp:ListItem>
+                                                <asp:ListItem Value="AC">Acreedor</asp:ListItem>
                                             </asp:RadioButtonList>
                                             <asp:HiddenField ID="HdnCveCliente" runat="server" ClientIDMode="Static" Value="-1" />
                                             <asp:HiddenField ID="HdnCveProveedor" runat="server" ClientIDMode="Static" Value="-1" />
@@ -245,7 +245,8 @@
                                             <asp:CheckBox ID="ChkAbonoCuenta" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Abono en Cuenta"></asp:CheckBox>
                                             <br />
                                             <asp:CheckBox ID="ChkAplicaViatico" CssClass="md-checksd" Text="Aplica Viaticos" runat="server" Visible="false" align="Right" />
-
+                                            <asp:CheckBox ID="ChkAnticipoPuntual" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Anticipo Puntal" Visible="false"></asp:CheckBox>
+                                            
                                         </div>
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
@@ -438,23 +439,22 @@
                                 </div>
                             </div>
 
-                             <div class="row" id="DVBancosOrdenCompra" runat="server" visible="False">
-                                 
-                                 <div class="col-md-2">
-                                     Folio OC:
-                                 </div>
-                                 <div class="col-md-5">
+                            <div class="row" id="DVBancosOrdenCompra" runat="server" visible="False">
 
-                                     <asp:HyperLink runat="server" ID="HLFFolioOC" CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                <div class="col-md-2">
+                                    Folio OC:
+                                </div>
+                                <div class="col-md-5">
+
+                                    <asp:HyperLink runat="server" ID="HLFFolioOC" CssClass="Texto" Target="_blank"></asp:HyperLink>
                                     <%-- <asp:GridView ID="GvBancosOrdenCompra" runat="server" GridLines="None" CssClass="table xspadding table-striped table-advance Widthall" AutoGenerateColumns="False" Width="250px">
                                         <Columns>                                           
                                             <asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra" HeaderText="Folio OC" DataNavigateUrlFormatString="~/OC/OC.aspx?OC={0}" DataTextField="FolioOC" Target="_blank" />
                                             <asp:BoundField DataField="ImporteAnticipo" HeaderText="Importe Anticipo"   DataFormatString="{0:C}" > <ItemStyle HorizontalAlign="Right" /></asp:BoundField>                                           
                                         </Columns>
                                     </asp:GridView>--%>
-
-                                 </div>
-                             </div>
+                                </div>
+                            </div>
 
                         </div>
                     </div>
@@ -620,7 +620,7 @@
                 <ajax:TabPanel ID="TabM" runat="server" HeaderText="Movimientos">
                     <ContentTemplate>
                         <div class="row">
-                            <div class="col-md-6" >
+                            <div class="col-md-6">
                                 <asp:GridView ID="GvM" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn ScrollAD" Style="text-align: center;" GridLines="None"
                                     DataKeyNames="CveVenta" OnRowDataBound="GvM_RowDataBound">
                                     <Columns>
@@ -759,7 +759,7 @@
                                                                     <asp:RequiredFieldValidator ID="RFVTipoDocto" runat="server" ControlToValidate="TxtTipoDocto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''TipoDocto del IE''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                                     <ajax:ValidatorCalloutExtender ID="VCETipoDocto" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoDocto" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                 </td>
-                                                            </tr>--%> 
+                                                            </tr>--%>
                                                 <tr>
                                                     <td>Fecha Aplicación</td>
                                                     <td>
@@ -778,7 +778,7 @@
                                                                                         <ajax:ValidatorCalloutExtender ID="VCOFechaAplicado1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAplicado" Width="350px"></ajax:ValidatorCalloutExtender>
                                                                                         <ajax:ValidatorCalloutExtender ID="VCOFechaAplicado2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAplicado" Width="350px"></ajax:ValidatorCalloutExtender>
                                                         --%>
-                                                         <asp:LinkButton runat="server" Visible="false" ID="LnkDesconciliar" OnClick="LnkDesconciliar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea desconciliar?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Desconciliar" />
+                                                        <asp:LinkButton runat="server" Visible="false" ID="LnkDesconciliar" OnClick="LnkDesconciliar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea desconciliar?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Desconciliar" />
                                                     </td>
                                                 </tr>
                                                 <tr>
@@ -790,11 +790,11 @@
                                                     </td>
                                                 </tr>
                                                 <tr runat="server" id="TRImporteDeduccionesPago" visible="false">
-                                                    <td >Deducciones Pago:</td>
-                                                    <td style="text-align:left">
+                                                    <td>Deducciones Pago:</td>
+                                                    <td style="text-align: left">
                                                         <asp:Label runat="server" ID="LblImporteDeduccionesPago"></asp:Label>
                                                     </td>
-                                                </tr> 
+                                                </tr>
                                             </table>
                                         </fieldset>
                                     </div>
@@ -834,7 +834,7 @@
                                 <td style="vertical-align: top;">
                                     <div>
                                         <fieldset style="min-height: 60px;">
-                                            <table width="100%" border="0" class="table table-striped table-advance table-hover">                                                 
+                                            <table width="100%" border="0" class="table table-striped table-advance table-hover">
                                                 <tr>
                                                     <td>Registró:</td>
                                                     <td>
@@ -993,7 +993,7 @@
 
         </ContentTemplate>
     </asp:UpdatePanel>
-     
+
     <table border="0" cellpadding="0" cellspacing="0" width="100%">
         <tr>
             <td align="center">
@@ -1010,7 +1010,7 @@
             </td>
         </tr>
     </table>
-     
+
     <div class="row">
 
         <div class="col-md-12 ">
@@ -1030,13 +1030,14 @@
 
                             <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold font-green'>Agregar</span>" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
                             <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green'  ></i><span class='caption-subject bold font-green'>Agendar</span>" Visible="false" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
-                             <br /><asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
-                                    <UserControl:TareaNueva runat="server" ID="TareaNueva" />
-                                    <script>
-                                        function OnAddedTareaNueva() {
-                                            $('.btnupEventoBitacora').click();
-                                        }
-                                    </script>
+                            <br />
+                            <asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
+                            <UserControl:TareaNueva runat="server" ID="TareaNueva" />
+                            <script>
+                                function OnAddedTareaNueva() {
+                                    $('.btnupEventoBitacora').click();
+                                }
+                            </script>
 
                         </div>
                     </div>
@@ -1220,10 +1221,10 @@
                                 <div class="row">
                                     <div class="col-md-12" id="DVTipoTransacciónCancelar2" runat="server" visible="false">
                                         Cuenta Devolución:
-                                            <asp:DropDownList ID="DdlDevolucionCuenta" CssClass="form-control input-sm select2me" Width="100%"  runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" >
+                                            <asp:DropDownList ID="DdlDevolucionCuenta" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta">
                                                 <asp:ListItem Value="-1">-</asp:ListItem>
                                             </asp:DropDownList>
-                                         
+
                                     </div>
                                 </div>
                             </div>
@@ -1231,7 +1232,7 @@
 
                         </div>
                         <br />
-                        <div class="row" id="DivCancelarComplemento" runat="server" Visible="false">
+                        <div class="row" id="DivCancelarComplemento" runat="server" visible="false">
                             <div class="col-md-12">
                                 <div class="portlet light xspadding bordered whitoutcol" style="width: 100%">
                                     <div class="portlet-title">
@@ -1249,10 +1250,10 @@
                                     </div>
                                     <div class="portlet-body ">
                                         <div class="row" style="align-items: center; vertical-align: middle;">
-                                             <label class="col-md-3" style="max-width: 155px;">Motivo de cancelación:</label>
-                                             <div class="col-md-9">
-                                                 <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Width="100%" >                                
-                                                 </asp:DropDownList>
+                                            <label class="col-md-3" style="max-width: 155px;">Motivo de cancelación:</label>
+                                            <div class="col-md-9">
+                                                <asp:DropDownList runat="server" ID="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Width="100%">
+                                                </asp:DropDownList>
 
                                                 <asp:RequiredFieldValidator ID="RfvDdlMotivoCancelacion" runat="server" ControlToValidate="DdlMotivoCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo de Cancelación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCERfvDdlMotivoCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMotivoCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -1273,7 +1274,7 @@
         </div>
     </div>
 
-<%--    <div id="DivChqDevueltoIE" class="modal fade">
+    <%--    <div id="DivChqDevueltoIE" class="modal fade">
         <div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
             <asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
@@ -1383,7 +1384,7 @@
                                 <asp:BoundField HeaderText="Estatus" DataField="StrEstatus" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
 
                                 <asp:BoundField HeaderText="Fecha C" DataField="FechaCancelacion" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
-                                 
+
                                 <asp:TemplateField HeaderText="Motivo" Visible="false" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
                                     <ItemTemplate>
                                         <asp:DropDownList runat="server" ID="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="form-control input-sm select2me" Visible="false">
@@ -1395,7 +1396,7 @@
 
                                 <asp:TemplateField HeaderText="Cancelar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
-                                        <asp:LinkButton ID="LnkCancelarComplemetno"  OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
+                                        <asp:LinkButton ID="LnkCancelarComplemetno" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
                                             data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si" Visible="false"
                                             CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
                                     </ItemTemplate>
@@ -1418,7 +1419,7 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
- 
+
 
     <div id="ModalDivMail" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
@@ -1468,7 +1469,7 @@
             </div>
         </div>
     </div>
-     
+
 
     <%--    <div id="ModalCancelarComplemetno" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
@@ -1581,7 +1582,7 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-    
+
     <div id="ModalAjustarMovimiento" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
 
@@ -1767,7 +1768,7 @@
             var Dev = 0.00;
             debugger; //valida importe
             if ($get('TxtDevolución') && (ToDouble($get('TxtDevolución').value) > s)) $get('TxtDevolución').value = s;
-          
+
             // considera importe de OT ingresos, para que se peuda exceder
             if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
             if ($get('TxtImporte')) $get('TxtImporte').value = ToDouble($get('TxtDevolución').value) + Ot;
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 4250b1def..d9ebec131 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -646,6 +646,10 @@ Partial Class Bancos_IE
                 If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
                     DivOtrosIngresosEgresos.Visible = True
                 End If
+                If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                    ChkAnticipoPuntual.Visible = True
+                End If
+
             End If
 
             If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
@@ -711,6 +715,7 @@ Partial Class Bancos_IE
                 TxtObservaciones.Enabled = False
                 ChkAplicaImpuestos.Enabled = False
                 ChkAbonoCuenta.Enabled = False
+                ChkAnticipoPuntual.Enabled = False
                 Anexo.Visible = False
                 DdlCliente.Enabled = False
                 DdlProveedores.Enabled = False
@@ -806,6 +811,8 @@ Partial Class Bancos_IE
 
                 End Try
 
+                ChkAnticipoPuntual.Checked = CBool(ObjIE.DtResultados(0)("AnticipoPuntual").ToString)
+
                 CveIEDeposito = ObjIE.DtResultados(0)("CveIEDepositoPadre").ToString.ToEntero
                 CuentaDepositoPadre = ObjIE.DtResultados(0)("CuentaDepositoPadre").ToString
                 Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
@@ -1755,6 +1762,13 @@ Partial Class Bancos_IE
         End If
         Dep.Dispose()
 
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            If String.IsNullOrEmpty(TxtObservaciones.Text.Trim) Then
+                Alert("Las observaciones son obligatorias.", TipoMensaje.MsgAdvertencia)
+                EsValido = False
+            End If
+        End If
+
         If CveOCSolicitudAnticipo > 0 Then
             Dim ObjOC As New ClsOC
             If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
@@ -2001,7 +2015,7 @@ Partial Class Bancos_IE
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, tCveMoneda,
                                            TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                            CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"),
-                                           ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo)
+                                           ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo, AnticipoPuntual:=ChkAnticipoPuntual.Checked)
 
                 If CveIE > 0 Then
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 64a7d1e23..930a4be63 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16551,6 +16551,11 @@ Partial Class Ventas
             DirectCast(e.Row.FindControl("VCOAmortAnti"), AjaxControlToolkit.ValidatorCalloutExtender).ID = "VCOAmortAnti" & e.Row.RowIndex
             DirectCast(e.Row.FindControl("CVAmortAnti"), CompareValidator).ControlToValidate = "TxtAnticipo" & e.Row.RowIndex
             DirectCast(e.Row.FindControl("VCOAmortAnti"), AjaxControlToolkit.ValidatorCalloutExtender).TargetControlID = "CVAmortAnti" & e.Row.RowIndex
+
+            'SI NO TIENE PERMISO, NO PERMITIR APLICAR ANTICIPOS PUNTUALES
+            If CBool(e.Row.DBCampo("AnticipoPuntual")) AndAlso Not UsuarioActual.TienePermisoProceso(377) Then
+                e.Row.FCCheckBox("Chk").Enabled = False
+            End If
         End If
     End Sub
     Protected Sub GVAnticipos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowDataBound

From 87ce2500a549db58973bfcfb1ee49ee44b123928 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 16 Apr 2024 19:05:06 -0700
Subject: [PATCH 38/70] -- Anticipos puntuales solo para rol 1

---
 Bancos/IE.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index d9ebec131..e48061d12 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -646,7 +646,7 @@ Partial Class Bancos_IE
                 If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
                     DivOtrosIngresosEgresos.Visible = True
                 End If
-                If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso UsuarioActual.CveRol = 1 Then
                     ChkAnticipoPuntual.Visible = True
                 End If
 

From 843e4cb5438dc61a2479c6008d6581b836b3106a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 16 Apr 2024 19:28:57 -0700
Subject: [PATCH 39/70] --Rep Ventas en menu --Personalizar columnas para
 descarga de pdf y xml

---
 App_Code/ClsPaginas.vb         |   1 +
 Ventas/RepVentaDetalle.aspx    | 181 +++++++++++++++++++++------------
 Ventas/RepVentaDetalle.aspx.vb |  75 ++++++++++++--
 3 files changed, 183 insertions(+), 74 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index f6868d9ec..5dbbcc341 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -10729,6 +10729,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/RepCotizacionesDetalle.aspx".ToUpper(), 430)
             PaginaDict.Add("/Ventas/RepVentasPV.aspx".ToUpper(), 9)
             PaginaDict.Add("/Ventas/RepVentaDetalle.aspx".ToUpper(), 9)
+            PaginaDict.Add("/Ventas/RepVentaDetalle.aspx?Menu=1".ToUpper(), 785)
             PaginaDict.Add("/Ventas/CatClasificaciones.aspx".ToUpper(), 12)
             PaginaDict.Add("/Ventas/CatClasificaciones2.aspx".ToUpper(), 396)
             PaginaDict.Add("/Ventas/CatClasificacionesDetalle.aspx".ToUpper(), 12)
diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx
index cb6dece06..0dcc648ac 100644
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
@@ -331,7 +331,7 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"  GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                 <Columns>
                     <%-- 0--%>
                     <asp:TemplateField HeaderText="Tipo Docto">
@@ -390,7 +390,7 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%-- 9--%>
-                    <asp:TemplateField HeaderText="IEPS"  Visible="false" ItemStyle-HorizontalAlign="Right" >
+                    <asp:TemplateField HeaderText="IEPS" Visible="false" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
@@ -585,13 +585,24 @@
                             <asp:Literal ID="LtlTC" runat="server" Text='<%# Eval("TipoCambio") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                     <%-- 41--%>
+                    <%-- 41--%>
                     <asp:TemplateField HeaderText="Descripción Venta" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="LtlDescripcionVenta" runat="server" Text='<%# Eval("DescripcionVenta") %>'></asp:Literal>
                         </ItemTemplate>
-                     </asp:TemplateField>
-
+                    </asp:TemplateField>
+                    <%-- 42--%>
+                    <asp:TemplateField HeaderText="Descargar XML" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlXML" runat="server"></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%-- 43--%>
+                    <asp:TemplateField HeaderText="Descargar PDF" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlPDF" runat="server"></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -664,101 +675,145 @@
                             <table class="table table-striped nobordertop table-advance table-hover">
                                 <tbody>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkTipoDocto" runat="server" Text="&nbsp;*Tipo Documento" Checked="true" /></td>                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSucursal" runat="server" Text="&nbsp;*Sucursal" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSucursalCobranza" runat="server" Text="&nbsp;Sucursal Cobranza" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkTipoDocto" runat="server" Text="&nbsp;*Tipo Documento" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucursal" runat="server" Text="&nbsp;*Sucursal" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucursalCobranza" runat="server" Text="&nbsp;Sucursal Cobranza" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkFolio" runat="server" Text="&nbsp;*Folio" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkEstatusFactura" runat="server" Text="&nbsp;*Estatus de Factura" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSucursalEjecucion" runat="server" Text="&nbsp;Sucursal Ejecución" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFolio" runat="server" Text="&nbsp;*Folio" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkEstatusFactura" runat="server" Text="&nbsp;*Estatus de Factura" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucursalEjecucion" runat="server" Text="&nbsp;Sucursal Ejecución" /></td>
 
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkFecha" runat="server" Text="&nbsp;*Fecha" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkVendedor" runat="server" Text="&nbsp;Vendedor" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="&nbsp;Motivo Cancelacion" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFecha" runat="server" Text="&nbsp;*Fecha" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkVendedor" runat="server" Text="&nbsp;Vendedor" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="&nbsp;Motivo Cancelacion" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSubTotal" runat="server" Text="&nbsp;*SubTotal" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkCodigo" runat="server" Text="&nbsp;Código Cliente" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkUsuario" runat="server" Text="&nbsp;Usuario" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSubTotal" runat="server" Text="&nbsp;*SubTotal" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkCodigo" runat="server" Text="&nbsp;Código Cliente" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkUsuario" runat="server" Text="&nbsp;Usuario" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkDescuento" runat="server" Text="&nbsp;*Descuento" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkCliente" runat="server" Text="&nbsp;*Cliente" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkEstatusFacturacion" runat="server" Text="&nbsp;Estatus Facturación" /></td>                                        
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDescuento" runat="server" Text="&nbsp;*Descuento" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkCliente" runat="server" Text="&nbsp;*Cliente" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkEstatusFacturacion" runat="server" Text="&nbsp;Estatus Facturación" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkIVA" runat="server" Text="&nbsp;*IVA" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMailCliente" runat="server" Text="&nbsp;Mail Cliente" /></td>                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkFolioFacturacion" runat="server" Text="&nbsp;Factura Cotización" /></td>                            
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkIVA" runat="server" Text="&nbsp;*IVA" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMailCliente" runat="server" Text="&nbsp;Mail Cliente" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFolioFacturacion" runat="server" Text="&nbsp;Factura Cotización" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkRetIVA" runat="server" Text="&nbsp;Ret. IVA" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkCuentaContable" runat="server" Text="&nbsp;Cuenta Contable" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkObservaciones" runat="server" Text="&nbsp;Observaciones" /></td>                            
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkRetIVA" runat="server" Text="&nbsp;Ret. IVA" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkCuentaContable" runat="server" Text="&nbsp;Cuenta Contable" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkObservaciones" runat="server" Text="&nbsp;Observaciones" /></td>
                                     </tr>
-                                    <tr>                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkRetISR" runat="server" Text="&nbsp;Ret. ISR" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="&nbsp;Sucursal Cliente" /></td>                           
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkOrdenCompra" runat="server" Text="&nbsp;OrdenCompra" /></td>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkRetISR" runat="server" Text="&nbsp;Ret. ISR" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="&nbsp;Sucursal Cliente" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkOrdenCompra" runat="server" Text="&nbsp;OrdenCompra" /></td>
 
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkTotalImpuestos" runat="server" Text="&nbsp;Impuestos Locales" /></td>                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSaldo" runat="server" Text="&nbsp;Saldo" Checked="false" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkPedidoContrato" runat="server" Text="&nbsp;Pedido Contrato" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkTotalImpuestos" runat="server" Text="&nbsp;Impuestos Locales" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSaldo" runat="server" Text="&nbsp;Saldo" Checked="false" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkPedidoContrato" runat="server" Text="&nbsp;Pedido Contrato" /></td>
                                     </tr>
                                     <tr>
-                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkTotal" runat="server" Text="&nbsp;*Total" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="&nbsp;Folio Fiscal (UUID)" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChlMotivoDescuento" runat="server" Text="&nbsp;Motivo Descuento" /></td>
+
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkTotal" runat="server" Text="&nbsp;*Total" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="&nbsp;Folio Fiscal (UUID)" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChlMotivoDescuento" runat="server" Text="&nbsp;Motivo Descuento" /></td>
                                     </tr>
                                     <tr>
-                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMoneda" runat="server" Text="&nbsp;*Moneda" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMetodoPago" runat="server" Text="&nbsp;Método de Pago" Checked="false" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkAmortizacion" runat="server" Text="&nbsp;Amortización"  /></td>                                                        
-                                    </tr>
-                                     <tr>
-                                        
-                                         <td style="text-align: left;"><asp:CheckBox ID="ChkIEPS" runat="server" Text="&nbsp;*IEPS"  /></td>
-                                         <td style="text-align: left;"><asp:CheckBox ID="ChkFormaPago" runat="server" Text="&nbsp;Forma de Pago" Checked="false" /></td>
-                                         <td style="text-align: left;"><asp:CheckBox ID="ChkSeTimbro" runat="server" Text="&nbsp;Se Timbró" /></td>
+
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMoneda" runat="server" Text="&nbsp;*Moneda" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMetodoPago" runat="server" Text="&nbsp;Método de Pago" Checked="false" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkAmortizacion" runat="server" Text="&nbsp;Amortización" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkTC" runat="server" Text="&nbsp;TC"  /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkUsoCFDI" runat="server" Text="&nbsp;Uso CFDI" Checked="false" /></td>                                   
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="&nbsp; Se envió Mail" /></td>                           
+
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkIEPS" runat="server" Text="&nbsp;*IEPS" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFormaPago" runat="server" Text="&nbsp;Forma de Pago" Checked="false" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSeTimbro" runat="server" Text="&nbsp;Se Timbró" /></td>
+                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkTC" runat="server" Text="&nbsp;TC" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkUsoCFDI" runat="server" Text="&nbsp;Uso CFDI" Checked="false" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="&nbsp; Se envió Mail" /></td>
+                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDescargarPDF" runat="server" Text="&nbsp;Descargar PDF" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDescargarXML" runat="server" Text="&nbsp;Descargar XML" />
+                                        </td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkKilometraje" runat="server" Visible="False" Text="&nbsp; Kilometraje" /></td>
                                     </tr>
                                     <tr>
                                         <td style="text-align: left;"></td>
-                                        <td style="text-align: left;"> </td>                                   
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkKilometraje" runat="server" Visible="False" Text="&nbsp; Kilometraje" /></td>                           
-                                    </tr>
-                                    <tr>
                                         <td style="text-align: left;"></td>
-                                        <td style="text-align: left;"> </td>                                   
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>                           
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>
                                     </tr>
- 
+
                                 </tbody>
-                            </table> 
-                            
+                            </table>
+
 
                         </div>
                         <div class="modal-footer">
                             <div class="row">
-                                <div class="col-md-6" style="text-align:left">
+                                <div class="col-md-6" style="text-align: left">
                                     <asp:CheckBox ID="ChkGuardarPersonalizacion" runat="server" Text=" Guarda Personalización" TextAlign="Right" />
                                 </div>
                                 <div class="col-md-6">
-                                   <button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>
-                                   <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                                    <button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>
+                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                                 </div>
-                            </div>                            
+                            </div>
 
                         </div>
                     </div>
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 302599684..2fbaa3077 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -109,10 +109,19 @@ Partial Class RepVentaDetalle
         Set(value As Boolean)
             ViewState("Primeracontsulta") = value
         End Set
-    End Property
-
+    End Property
+    Private Property ConsultaAlCargar As Boolean
+        Get
+            Return CBool((IfNull(ViewState("ConsultaAlCargar"), False, ViewState("ConsultaAlCargar"))))
+        End Get
+        Set(value As Boolean)
+            ViewState("ConsultaAlCargar") = value
+        End Set
+    End Property
+
+
 #End Region
-    'pRivate ReadOnly Property ColumnasVisibles As 
+    'pRivate ReadOnly Property ColumnasVisibles As 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
@@ -120,14 +129,16 @@ Partial Class RepVentaDetalle
             CargaCombos()
             InicializaValores()
             ConfiguraEmpresa()
-            CargaDatos()
 
+            If ConsultaAlCargar Then
+                CargaDatos()
+            End If
+
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-
                 LblServicioDomicilioFiltro.Visible = True
                 DVServicioDomicilio.Visible = True
-
             End If
+
             PrePersonalizacion()
             CargaPersonalizacion()
         End If
@@ -135,6 +146,8 @@ Partial Class RepVentaDetalle
 
 
     Private Sub InicializaValores()
+        ConsultaAlCargar = True
+
         Dim Grupo, CveCliente, CveSucursal, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatusFactura, CveCorte, IVA, TipoDocto, CveClienteClasificacion, CveCondicionesPago, CveTipoRelacion As String
         Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF As String
         Dim AnioEjec, MesEjec, AnioMesEjec, FechaEjec, FechaIEjec, FechaFEjec As String
@@ -275,8 +288,12 @@ Partial Class RepVentaDetalle
             DdlVendedor.Enabled = False
         End If
 
-    End Sub
+        If Request("Menu") IsNot Nothing AndAlso Request("Menu").ToString() = "1" Then
+            ConsultaAlCargar = False
+        End If
 
+    End Sub
+
 #Region "CARGA COMBOS"
     Private Sub CargaGrupo()
         DdlGrupo.Items.Insert(0, New ListItem("Año", "1"))
@@ -536,7 +553,29 @@ Partial Class RepVentaDetalle
             If e.Row.DBCampo("RetISR").ToDouble < 0 Then e.Row.Cells(10).ForeColor = Drawing.Color.Red
             If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(11).ForeColor = Drawing.Color.Red
             If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(12).ForeColor = Drawing.Color.Red
-            If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(13).ForeColor = Drawing.Color.Red
+            If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(13).ForeColor = Drawing.Color.Red
+
+            Dim Ruta As String = UsuarioActual.Empresa.Ruta
+
+            If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.xml") Then
+                e.Row.FCLiteral("LtlXML").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.xml&TipoArchivo=XML"">XML</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+            Else
+                e.Row.FCLiteral("LtlXML").Text = "<div class='truncate' style='width:23px;'></div>"
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.pdf") Then
+                    e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+                Else
+                    e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>"
+                End If
+            Else
+                If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.pdf") Then
+                    e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+                Else
+                    e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>"
+                End If
+            End If
 
 
             'If e.Row.DBCampo("MAX_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlMaxSubTotal").Text = ""
@@ -705,7 +744,11 @@ Partial Class RepVentaDetalle
 
         If ChkTC.Checked Then ListPersonalizada.Add("TC")
 
-        If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
+        If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
+
+        If ChkDescargarPDF.Checked Then ListPersonalizada.Add("PDF")
+
+        If ChkDescargarXML.Checked Then ListPersonalizada.Add("XML")
 
         If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
             'Alert("Personalizacion guardada")
@@ -764,6 +807,9 @@ Partial Class RepVentaDetalle
             ChkFormaPago.Checked = False
             ChkUsoCFDI.Checked = False
 
+            ChkDescargarPDF.Checked = False
+            ChkDescargarXML.Checked = False
+
             Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
 
             For Each personalizacion As String In Personalizaciones
@@ -893,6 +939,12 @@ Partial Class RepVentaDetalle
                         Exit Select
                     Case "DescripcionVenta"
                         ChkDescripcionVenta.Checked = True
+                        Exit Select
+                    Case "XML"
+                        ChkDescargarXML.Checked = True
+                        Exit Select
+                    Case "PDF"
+                        ChkDescargarPDF.Checked = True
                         Exit Select
                     Case Else
                         Exit Select
@@ -952,8 +1004,9 @@ Partial Class RepVentaDetalle
         GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked
         GvDatos.Columns(39).Visible = ChkKilometraje.Checked
         GvDatos.Columns(40).Visible = ChkTC.Checked
-        GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
-
+        GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
+        GvDatos.Columns(42).Visible = ChkDescargarXML.Checked
+        GvDatos.Columns(43).Visible = ChkDescargarPDF.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then

From 5b29ddb5ebd8d0b162e6ff3c03c46dbe84c77c0b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 16 Apr 2024 19:32:47 -0700
Subject: [PATCH 40/70] - mejora en timbrado de INE

---
 App_Code/Timbrado.vb | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 6dc7cc9bd..28c10e7e6 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -2428,30 +2428,30 @@ Public Class Timbrado
                 Next
             End If
 
-            'If Ventas.CveComplementoTimbrado > 0 Then
+            If Ventas.CveComplementoTimbrado > 0 Then
 
-            '    Select Case Ventas.CveComplementoTimbrado
-            '        Case 5 'INE Proceso Ordinario  Directivo Estatal"
-            '            cfdi.Ine11("Ordinario", "Directivo Estatal", "0")
+                Select Case Ventas.CveComplementoTimbrado
+                    Case 5 'INE Proceso Ordinario  Directivo Estatal"
+                        cfdi.Ine11("Ordinario", "Directivo Estatal", "0")
 
-            '            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
-            '            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-            '        Case 6 'INE Proceso Ordinario  Ejecutivo Estatal"
-            '            cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0")
+                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
+                        If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                    Case 6 'INE Proceso Ordinario  Ejecutivo Estatal"
+                        cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0")
 
-            '            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
-            '            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-            '        Case 7   'INE Proceso Ordinario  Ejecutivo Nacional"
+                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
+                        If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                    Case 7   'INE Proceso Ordinario  Ejecutivo Nacional"
 
-            '            cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString)
-            '        Case 8 'INE PreCampaña
-            '            cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "0")
+                        cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString)
+                    Case 8 'INE PreCampaña
+                        cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "")
 
-            '            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite)
-            '            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-            '    End Select
+                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite)
+                        'If Ventas.ComplementoINE.INEIdContabilidad > 0 Then cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                End Select
 
-            'End If
+            End If
 
 
 

From 3e2708dd548f2a76cc100bfd63b76176344c37fb Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 16 Apr 2024 23:19:11 -0700
Subject: [PATCH 41/70] --fix error ortografico

---
 Bancos/IE.aspx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 198bceedf..92e446f0c 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -245,7 +245,7 @@
                                             <asp:CheckBox ID="ChkAbonoCuenta" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Abono en Cuenta"></asp:CheckBox>
                                             <br />
                                             <asp:CheckBox ID="ChkAplicaViatico" CssClass="md-checksd" Text="Aplica Viaticos" runat="server" Visible="false" align="Right" />
-                                            <asp:CheckBox ID="ChkAnticipoPuntual" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Anticipo Puntal" Visible="false"></asp:CheckBox>
+                                            <asp:CheckBox ID="ChkAnticipoPuntual" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Anticipo Puntual" Visible="false"></asp:CheckBox>
                                             
                                         </div>
                                     </ContentTemplate>

From 55401421939e98135e7f4a99b5c5d49f258633a7 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 16 Apr 2024 18:03:18 -0700
Subject: [PATCH 42/70] Reloj Checador 2024.04.15

---
 App_Code/ClsRH.vb                           |  59 ++
 Compras/Compras.aspx.vb                     |  20 +-
 Inventarios/EntregaAlmacen.aspx.vb          |   2 +-
 Inventarios/KardexAlmacenHorizontal.aspx.vb | 444 +++++++-------
 RH/RepChecadorPreAsistencia.aspx            |  58 +-
 RH/RepChecadorPreAsistencia.aspx.vb         | 606 +++++++++++++-------
 6 files changed, 721 insertions(+), 468 deletions(-)

diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index 8197581c5..eeb1d6249 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -2719,6 +2719,27 @@ Public Class ClsRH
             OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
+        Return Retorno
+    End Function
+
+
+    Public Function GetPersonalPreAsistenciaRegistros(InicioPeriodo As Date, FinPeriodo As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        SqlDataAdapter("PA_RH_PersonalPreAsistenciaRegistrosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@InicioPeriodo", SqlDbType.Date).Value = InicioPeriodo
+            .Add("@FinPeriodo", SqlDbType.Date).Value = FinPeriodo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
         Return Retorno
     End Function
 
@@ -2768,6 +2789,44 @@ Public Class ClsRH
     End Function
 
 
+    Public Function AddPreAsistencia(CvePersonal As Integer, Fecha As Date, CveAsistenciasInasistencias As Integer, PorcentajePago As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        Data = New DataTable
+        'SqlAdapter = New SqlDataAdapter("PA_RH_PersonalAsistenciasAddUpd", SqlConexion)
+        'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
+        SqlDataAdapter("PA_RH_PersonalPreAsistenciasAddUpd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+            .Add("@CveAsistenciasInasistencias", SqlDbType.Int).Value = CveAsistenciasInasistencias
+            .Add("@PorcentajePago", SqlDbType.Float).Value = PorcentajePago
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            CveAsistencia = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("x50102;") Then
+                Alert("No se puede editar o agregar la asistencia ya que se encuentra vinculada a un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al editar o agregar la asistencia ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al guardar la Asistencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar la Pre Asistencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
     Public Function UpAsistenciaDetalle(CveEmpresa As Integer, CveUsuario As Integer, registros As List(Of RequestUpAsistenciaDetalle)) As Boolean
         Dim Retorno As Boolean = False
         Dim xmlProductos As System.Xml.Linq.XDocument = Nothing
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ba963379c..0b165f698 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -20743,7 +20743,7 @@ Partial Class Compras_Compras
                                 Dim Diferencia As Decimal = saldoTotal - TotalAcumuladoTabla - ValImporte
 
                                 If (Diferencia) < 0 Then
-                                    Alert($"No hay presupuesto disponible en el subproyecto <b>{ValSubProyecto}</b> con la clasificación <b>{ValClasificacion}</b>, Tipo de gasto <b>{ValTipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
+                                    Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{ValSubProyecto}</b>  <br>Clasificación: <b>{ValClasificacion}</b> <br>Tipo de gasto: <b>{ValTipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}.</b>", TipoMensaje.MsgAdvertencia)
                                     respuesta = False
 
                                 Else
@@ -20751,7 +20751,7 @@ Partial Class Compras_Compras
                                 End If
 
                             Else
-                                Alert($"No hay presupuesto disponible en el subproyecto <b>{ValSubProyecto}</b> con la clasificación <b>{ValClasificacion}</b>, Tipo de gasto <b>{ValTipoGasto}</b> ", TipoMensaje.MsgAdvertencia)
+                                Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{ValSubProyecto}</b>  <br>Clasificación: <b>{ValClasificacion}</b> <br>Tipo de gasto: <b>{ValTipoGasto}</b>.", TipoMensaje.MsgAdvertencia)
                                 respuesta = False
                             End If
                         Else
@@ -20808,16 +20808,24 @@ Partial Class Compras_Compras
                             Dim tieneRegistrosConCveSubProyecto As Boolean = resultadosFiltrados.Any(Function(row) CType(row("CveSubProyecto"), Integer) = item.CveSubProyecto)
 
                             If tieneRegistrosConCveSubProyecto Then
-                                Dim saldoTotal As Decimal = (From row In resultadosFiltrados
+                                'Dim saldoTotal As Decimal = (From row In resultadosFiltrados
+                                '                             Where row.Field(Of Integer)("CveSubProyecto") = item.CveSubProyecto AndAlso
+                                '                                   row.Field(Of Integer)("CveClasificacion") = item.CveClasificacion
+                                '                             Select row.Field(Of Decimal)("Saldo")).Sum()
+
+                                Dim saldoTotal As Decimal = (From row In resultadosFiltrados.AsEnumerable()
                                                              Where row.Field(Of Integer)("CveSubProyecto") = item.CveSubProyecto AndAlso
-                                                                   row.Field(Of Integer)("CveClasificacion") = item.CveClasificacion
+                                                               If(row.IsNull("CveClasificacion"),
+                                                                  0,
+                                                                  row.Field(Of Integer?)("CveClasificacion").GetValueOrDefault()) = item.CveClasificacion
                                                              Select row.Field(Of Decimal)("Saldo")).Sum()
+
                                 If saldoTotal > 0 Then
 
                                     Dim Diferencia As Decimal = saldoTotal - item.TotalSum
 
                                     If (Diferencia) < 0 Then
-                                        Alert($"No hay presupuesto disponible en el subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>, Tipo de gasto <b>{item.TipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
+                                        Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{item.SubProyecto}</b>  <br>Clasificación: <b>{item.Clasificacion}</b> <br>Tipo de gasto: <b>{item.TipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}.</b>", TipoMensaje.MsgAdvertencia)
                                         respuesta = False
                                         Exit For
                                     Else
@@ -20825,7 +20833,7 @@ Partial Class Compras_Compras
                                     End If
 
                                 Else
-                                    Alert($"No hay presupuesto disponible en el subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>, Tipo de gasto <b>{item.TipoGasto}</b>", TipoMensaje.MsgAdvertencia)
+                                    Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{item.SubProyecto}</b>  <br>Clasificación: <b>{item.Clasificacion}</b> <br>Tipo de gasto: <b>{item.TipoGasto}</b>.", TipoMensaje.MsgAdvertencia)
                                     respuesta = False
                                     Exit For
                                 End If
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index be1f33adf..6e51b4464 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -3252,7 +3252,7 @@ Partial Class Inventarios_EntregaAlmacen
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Consola</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}&Consola={1}", CveMovimiento, Consola)))
             End If
 
-            If CveMovimientoEntrada > 0 Then
+            If CveMovimientoEntrada > 0 AndAlso Not UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
                 Msg.AppendFormat("<br/><br/> Movimiento Entrada (Traspaso): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
                 Msg.AppendFormat("<br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
             End If
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 14b886368..27bbfe0af 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -1,18 +1,18 @@
-Imports System.Data
-Imports System.IO
-Imports ADSNetLibrary.SIGAPI.Models.CGame
-Imports Extensiones
-Imports GemBox.Spreadsheet
-Imports Microsoft.Reporting.WebForms
-
-Partial Class Inventarios_KardexAlmacenHorizontal
-    Inherits ClsPaginas
-
-    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-            'TxtFechaI.Text =  NowADS().AddMonths(-1).ToShortDateString
+Imports System.Data
+Imports System.IO
+Imports ADSNetLibrary.SIGAPI.Models.CGame
+Imports Extensiones
+Imports GemBox.Spreadsheet
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Inventarios_KardexAlmacenHorizontal
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            'TxtFechaI.Text =  NowADS().AddMonths(-1).ToShortDateString
             TxtFechaF.Text = NowADS().ToShortDateString
-            CargaCombos()
+            CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
             LblOrden.Visible = False
             DdlOrden.Visible = False
@@ -35,18 +35,18 @@ Partial Class Inventarios_KardexAlmacenHorizontal
                 DdlIncluyeTransitorios.Items.RemoveAt(0) 'oculta opción "No" en tránsito
             End If
 
-            If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
+            If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
             ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
 
             If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
                 DVFiltroCodigo.Visible = True
-            End If
-
-        End If
-    End Sub
-    Private Sub CargaCombos()
-
-        CargaFuncionalidad105()
+            End If
+
+        End If
+    End Sub
+    Private Sub CargaCombos()
+
+        CargaFuncionalidad105()
         CargaPS()
 
         'Using ObjPS As New ClsProductosServicios
@@ -56,25 +56,25 @@ Partial Class Inventarios_KardexAlmacenHorizontal
         'End Using
         DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
         DdlMarca.DataBind()
-        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
-
-        ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
-        ddlAlmacen.DataBind()
-
-        Dim ObjInv As New ClsInventarios()
-        If ObjInv.GetTiposAlmacenes() Then
-            DdlTipoAlmacen.DataSource = ObjInv.DtResultados
-        End If
-        ObjInv.Dispose()
-        DdlTipoAlmacen.DataBind()
-
-        DdlTipoAlmacen.SelectedValueExist(1)
-
-        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString
-        CargaClasificaciones()
-    End Sub
-
-    Private Sub CargaClasificaciones()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
+        ddlAlmacen.DataBind()
+
+        Dim ObjInv As New ClsInventarios()
+        If ObjInv.GetTiposAlmacenes() Then
+            DdlTipoAlmacen.DataSource = ObjInv.DtResultados
+        End If
+        ObjInv.Dispose()
+        DdlTipoAlmacen.DataBind()
+
+        DdlTipoAlmacen.SelectedValueExist(1)
+
+        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString
+        CargaClasificaciones()
+    End Sub
+
+    Private Sub CargaClasificaciones()
         Dim CveClasificacion As Integer = If(Request("CveClasificacion") IsNot Nothing, Request("CveClasificacion").ToString, "-1").ToEntero
 
         Dim ObjClasificaciones As New ClsClasificaciones
@@ -89,193 +89,193 @@ Partial Class Inventarios_KardexAlmacenHorizontal
                 DdlClasificacion.DataBind()
             End If
         End If
-        ObjClasificaciones.Dispose()
-
-        DdlClasificacion.DataBind()
-        DdlClasificacion.SelectedValueExist(CveClasificacion)
-
-    End Sub
-    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
-        CargaPS()
-    End Sub
-    Private Sub CargaPS()
-
-        If Not ddlProducto2.UsaWebService Then
-            'Dim Filtro = If(DdlClasificacion.SelectedValue >= 0, String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "")
-            ddlProducto2.ddl.Items.Clear()
-            ddlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros($"CveTipoPS=2", "PSCodigo")
-            ddlProducto2.DataBind()
-            ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-        End If
-    End Sub
-    Private Sub CargaFuncionalidad105()
-        ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-        DdlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-
-        If ddlProducto2.UsaWebService Then
-            ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1")
-            ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
-            ddlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.ClientID)
-            DdlClasificacion.AutoPostBack = False
-
-            DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
-        Else
-            ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1"))
-            ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
-
-            DdlProveedor.ddl.Items.Add(New ListItem("Seleccione", "-1"))
-            DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-            DdlProveedor.DataBind()
-        End If
-
-    End Sub
-    Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange
-
-        DdlUnidadMedida.Items.Clear()
-        DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
-        DdlUnidadMedida.DataBind()
-        DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1"))
-
-    End Sub
-    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
-        Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero
-        CargarKardex(CveProducto)
-        'If CveProducto > 0 Then
-
-        'Else
-        '    Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
-        'End If
-
-    End Sub
+        ObjClasificaciones.Dispose()
+
+        DdlClasificacion.DataBind()
+        DdlClasificacion.SelectedValueExist(CveClasificacion)
+
+    End Sub
+    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+        CargaPS()
+    End Sub
+    Private Sub CargaPS()
+
+        If Not ddlProducto2.UsaWebService Then
+            'Dim Filtro = If(DdlClasificacion.SelectedValue >= 0, String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "")
+            ddlProducto2.ddl.Items.Clear()
+            ddlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros($"CveTipoPS=2", "PSCodigo")
+            ddlProducto2.DataBind()
+            ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+        End If
+    End Sub
+    Private Sub CargaFuncionalidad105()
+        ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+        DdlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+        If ddlProducto2.UsaWebService Then
+            ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1")
+            ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
+            ddlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.ClientID)
+            DdlClasificacion.AutoPostBack = False
+
+            DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        Else
+            ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1"))
+            ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
+
+            DdlProveedor.ddl.Items.Add(New ListItem("Seleccione", "-1"))
+            DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+            DdlProveedor.DataBind()
+        End If
+
+    End Sub
+    Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange
+
+        DdlUnidadMedida.Items.Clear()
+        DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
+        DdlUnidadMedida.DataBind()
+        DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1"))
+
+    End Sub
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero
+        CargarKardex(CveProducto)
+        'If CveProducto > 0 Then
+
+        'Else
+        '    Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
+        'End If
+
+    End Sub
     Private Sub CargarKardex(CvePS As Integer)
-        Dim dt As DataTable = Nothing
-        Dim ObjMovimientos As New ClsInventarios
-        Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
-        ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
-        Dim FechaF As Date = TxtFechaF.Text.ToDate
-        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
-        Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
-        Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
-        Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
+        Dim dt As DataTable = Nothing
+        Dim ObjMovimientos As New ClsInventarios
+        Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
+        ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+        Dim FechaF As Date = TxtFechaF.Text.ToDate
+        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
+        Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
+        Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
+        Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
         Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
 
 
         Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
+        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
+
         If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios,
                                                      DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero,
-                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text,
-                                                     CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
-            If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
-                dt = ObjMovimientos.DtResultados
-                Dim ListaBorrar As New List(Of DataColumn)
-                For index As Integer = 3 To dt.Columns.Count - 1
-                    Dim TotColumna As Double = 0
-                    For Each Dr As DataRow In dt.Rows
-                        TotColumna += Dr.Item(index).ToString.ToDouble
+                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text,
+                                                     CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+            If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
+                dt = ObjMovimientos.DtResultados
+                Dim ListaBorrar As New List(Of DataColumn)
+                For index As Integer = 3 To dt.Columns.Count - 1
+                    Dim TotColumna As Double = 0
+                    For Each Dr As DataRow In dt.Rows
+                        TotColumna += Dr.Item(index).ToString.ToDouble
                     Next
                     If Not TotColumna > 0 Then
                         ListaBorrar.Add(dt.Columns(index))
                     End If
-                Next
-                For Each item As DataColumn In ListaBorrar
-                    dt.Columns().Remove(item)
-                Next
-                dt.AcceptChanges()
-                GvDatos.DataSource = dt
-            Else
-                Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
-                GvDatos.Columns.Clear()
+                Next
+                For Each item As DataColumn In ListaBorrar
+                    dt.Columns().Remove(item)
+                Next
+                dt.AcceptChanges()
+                GvDatos.DataSource = dt
+            Else
+                Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
+                GvDatos.Columns.Clear()
                 dt = Nothing
-                Exit Sub
+                Exit Sub
             End If
         Else
             ObjMovimientos.Dispose()
             Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
-            Exit Sub
+            Exit Sub
         End If
 
 
-        GvDatos.DataBind()
-
-        For index = 4 To GvDatos.Rows(0).Cells.Count - 1
-            GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
-        Next
-    End Sub
-
-    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
-
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            'Dim Liga As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
-            'e.Row.FCHyperLink("HplAlmacen").NavigateUrl = Liga
-
-            If e.Row.RowIndex = 0 Then
-                e.Row.CssClass = "Totales"
-            End If
-
-
-            'e.Row.Attributes.Add("style", " max-height:31px!important")
-
+        GvDatos.DataBind()
+
+        For index = 4 To GvDatos.Rows(0).Cells.Count - 1
+            GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
+        Next
+    End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            'Dim Liga As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
+            'e.Row.FCHyperLink("HplAlmacen").NavigateUrl = Liga
+
+            If e.Row.RowIndex = 0 Then
+                e.Row.CssClass = "Totales"
+            End If
+
+
+            'e.Row.Attributes.Add("style", " max-height:31px!important")
+
             e.Row.HorizontalAlign = HorizontalAlign.Right
-            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
-            Dim Index As Integer = 0
-
-            For Each Cells As TableCell In e.Row.Cells
-                Dim Celda As String = Cells.Text
-                If IsNumeric(Celda) Then
-                    Dim CveAlmacen2 As Integer = -1
-                    If Index >= 5 Then
-                        Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c)
-                        If Array.Length > 1 Then
-                            CveAlmacen2 = Array(1).ToEntero
-                        End If
-                    End If
-
-                    If Celda.ToDouble = 0 Then
-                        Cells.Text = ""
-                    Else
-                        Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell)
-
-                        If ce.ContainingField.HeaderText = "CP" Then
-                            Cells.Text = Cells.Text.FormatoNumero(2)
-                        ElseIf ce.ContainingField.HeaderText = "Valor" Then
-                            Cells.Text = Cells.Text.FormatoNumero(2)
-                            'ElseIf ce.ContainingField.HeaderText = "Total" Then
-                            '    Cells.Text = Cells.Text.FormatoNumero(2)
-                        Else
-                            Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
-                        End If
-                    End If
-                    e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80)
-                    'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
-                    'Cells.Text = String.Format("<a href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
-                End If
-                Index = Index + 1
-            Next
-
-        End If
-    End Sub
-
-
-
-    Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
-        'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui).
-        ' e.Row.Cells(0).Width = New Unit("200px")
-        e.Row.Cells(2).Visible = False
-        e.Row.Cells(3).Visible = False
-        If e.Row.RowType = DataControlRowType.Header Then
-            'e.Row.Cells(6).ToolTip = "Costo"
-        End If
-    End Sub
-
-    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-
-        Imprimir("Excel")
-    End Sub
-    Private Sub Imprimir(Optional reporte As String = "PDF")
+            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
+            Dim Index As Integer = 0
+
+            For Each Cells As TableCell In e.Row.Cells
+                Dim Celda As String = Cells.Text
+                If IsNumeric(Celda) Then
+                    Dim CveAlmacen2 As Integer = -1
+                    If Index >= 5 Then
+                        Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c)
+                        If Array.Length > 1 Then
+                            CveAlmacen2 = Array(1).ToEntero
+                        End If
+                    End If
+
+                    If Celda.ToDouble = 0 Then
+                        Cells.Text = ""
+                    Else
+                        Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell)
+
+                        If ce.ContainingField.HeaderText = "CP" Then
+                            Cells.Text = Cells.Text.FormatoNumero(2)
+                        ElseIf ce.ContainingField.HeaderText = "Valor" Then
+                            Cells.Text = Cells.Text.FormatoNumero(2)
+                            'ElseIf ce.ContainingField.HeaderText = "Total" Then
+                            '    Cells.Text = Cells.Text.FormatoNumero(2)
+                        Else
+                            Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
+                        End If
+                    End If
+                    e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80)
+                    'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
+                    'Cells.Text = String.Format("<a href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
+                End If
+                Index = Index + 1
+            Next
+
+        End If
+    End Sub
+
+
+
+    Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
+        'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui).
+        ' e.Row.Cells(0).Width = New Unit("200px")
+        e.Row.Cells(2).Visible = False
+        e.Row.Cells(3).Visible = False
+        If e.Row.RowType = DataControlRowType.Header Then
+            'e.Row.Cells(6).ToolTip = "Costo"
+        End If
+    End Sub
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+        Imprimir("Excel")
+    End Sub
+    Private Sub Imprimir(Optional reporte As String = "PDF")
         If GvDatos.Rows.Count > 0 Then
             Dim StrFiltro As New StringBuilder
             If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText)
@@ -284,7 +284,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
             ExportToExcelG(GvDatos, "ExistenciasHorizontal_" & TxtFechaF.Text, "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200)
         Else
             Alert("Debe consultar para generar un excel", TipoMensaje.MsgAdvertencia)
-        End If
+        End If
     End Sub
 
     Public Sub ExportToExcelG(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100)
@@ -371,12 +371,12 @@ Partial Class Inventarios_KardexAlmacenHorizontal
 
         excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")
 
-    End Sub
-
+    End Sub
+
     Protected Sub LnkProyectado_Click(sender As Object, e As EventArgs)
         RegistraScript(String.Format("$('#{0}').modal();", "DivProyeccion"))
-    End Sub
-
+    End Sub
+
     Protected Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs)
         Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\KardexProyeccion.xlsx"
 
@@ -392,8 +392,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
             Response.TransmitFile(Archivo.FullName)
             Response.End()
         End If
-    End Sub
-
+    End Sub
+
     Protected Sub BtnAgregarProyeccion_Click(sender As Object, e As EventArgs)
         If TxtProyeccionExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtProyeccionExcel.getfiles().Archivos(0)
@@ -418,8 +418,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
         End If
 
         AgregarProyeccion(dt)
-    End Sub
-
+    End Sub
+
     Private Sub AgregarProyeccion(dt As DataTable)
         Dim TieneError As Boolean = False
         Dim StrCodigo As New StringBuilder
@@ -460,8 +460,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
         ObjInventarios.Dispose()
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivProyeccion"))
 
-    End Sub
-
+    End Sub
+
     'Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
     '    SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
     '    Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
@@ -512,8 +512,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
 
     '    Return dataTable
 
-    'End Function
-    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    'End Function
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     End Sub
 
     Private Sub LnkPOG_Click(sender As Object, e As EventArgs) Handles LnkPOG.Click
@@ -599,4 +599,4 @@ Partial Class Inventarios_KardexAlmacenHorizontal
 
     End Sub
 
-End Class
+End Class
diff --git a/RH/RepChecadorPreAsistencia.aspx b/RH/RepChecadorPreAsistencia.aspx
index 05d4023ec..b475984ea 100644
--- a/RH/RepChecadorPreAsistencia.aspx
+++ b/RH/RepChecadorPreAsistencia.aspx
@@ -16,11 +16,15 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
     </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <asp:UpdatePanel runat="server" ID="UpAgregar" UpdateMode="Conditional" >
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" >
         <ContentTemplate>
             <li>
                 <asp:LinkButton runat="server" ID="BtnAgregar" Visible="false"  data-toggle="tooltip" data-placement="left" title="Procesar" Text="<i class='fa fa-plus'></i> Procesar"></asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkEnviarAsistencia" Visible="false"  data-toggle="tooltip" data-placement="left" title="Enviar Asistencia" Text="<i class='fa fa-arrow-right'></i> Enviar Asistencia" 
+                    OnClick="LnkEnviarAsistencia_Click"></asp:LinkButton>
+            </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
@@ -32,46 +36,28 @@
         <ContentTemplate>
             <div class="portlet solid grey-cascade portlet-filter" style="">
                 <div class="portlet-title portlet-filterT" style="">
-                    <div class="titlefiltros caption ">
+                    <div class="titlefiltros caption ">                         
+                       
+
                         <ul class="list-inline text-size-12">
+                            <li>Ejercicio:
+                              
+                                  <asp:DropDownList ID="DdlEjercicios" runat="server" OnSelectedIndexChanged="DdlEjercicios_SelectedIndexChanged" AutoPostBack="true" 
+                                       style="width: 120px !important;"  CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
+                              
+                            </li>
                             <li>Tipo Periodo:
                                  <asp:DropDownList ID="DdlTipoPeriodo" AutoPostBack="true"  runat="server" CssClass="form-control input-sm select2me" Style="width: 120px !important;" ValidationGroup="GrpGuardar" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo">
                                  </asp:DropDownList>
                             </li>
-                            <li><asp:label ID="LblPeriodo" runat="server"  Visible="true" >Periodo:</asp:label>
-                                 <asp:DropDownList ID="DdlRango"  Visible="true"   AutoPostBack="true"   runat="server" CssClass="form-control input-sm select2me" Style="width: 275px !important;"  DataTextField="NominaEstatus" DataValueField="CvePeriodo"  ValidationGroup="GrpGuardar">
-                                 </asp:DropDownList>
+                            <li>
+                                Período:                                
+                                <asp:DropDownList ID="DdlPeriodo" runat="server"  CssClass="select2me" 
+                                    DataTextField="NominaEstatus" DataValueField="CvePeriodo"   style="width: 120px !important;" >
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
                             </li>
-                        <%--<li>Fecha Inicio:
-                                <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
-                                    <asp:TextBox ID="TxtInicio" runat="server" CssClass="form-control input-sm" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtInicio" PopupButtonID="ImgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha inicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="CVFecha" runat="server" ControlToValidate="TxtInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCOFecha1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="VCOFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </li>
-                            <li>Fecha Fin:
-                                <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
-                                    <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control input-sm" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEETxtFechaFin" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CETxtFechaFin" TargetControlID="TxtFechaFin" PopupButtonID="ImgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-
-                                <asp:RequiredFieldValidator ID="RfvTxtFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="CvTxtFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
-
-                                <ajax:ValidatorCalloutExtender ID="RfvcTxtFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaFin" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="CvcTxtFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtFechaFin" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </li>--%>
+                        
                             <li>SubProyecto:
                                  <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control input-sm select2me" Style="width: 135px; !important;"  DataTextField="SubProyecto" DataValueField="CveSubproyecto">
                                  </asp:DropDownList>
@@ -340,7 +326,7 @@
                     <div class="modal-footer">
                         <div class="row">
                             <asp:Button ID="BtnGuardar" Visible="true" runat="server" Text="Guardar" class="btn btn-primary" OnClick="BtnGuardar_Click" />
-                            <asp:Button ID="BtnEstusAsistenciaModal" Visible="false" runat="server" class="btn btn-success" Text="Aceptar" />
+                            <%--<asp:Button ID="BtnEstusAsistenciaModal" Visible="false" runat="server" class="btn btn-success" Text="Aceptar" />--%>
                             <button id="Button4" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
 
                         </div>
diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb
index 8a568df99..4fab6f22b 100644
--- a/RH/RepChecadorPreAsistencia.aspx.vb
+++ b/RH/RepChecadorPreAsistencia.aspx.vb
@@ -1,4 +1,5 @@
 Option Strict On
+
 Imports Extensiones
 Imports System.Data
 
@@ -60,16 +61,16 @@ Partial Class RH_RepChecadorPreAsistencia
         End Set
     End Property
 
-    Private Property DTPeridos As DataTable
+    Private Property DTPeriodos As DataTable
         Get
-            If ViewState("DTPeridoso") Is Nothing Then
+            If ViewState("DTPeriodos") Is Nothing Then
                 Return New DataTable
             Else
-                Return DirectCast(ViewState("DTPeridoso"), DataTable)
+                Return DirectCast(ViewState("DTPeriodos"), DataTable)
             End If
         End Get
         Set(value As DataTable)
-            ViewState("DTPeridoso") = value
+            ViewState("DTPeriodos") = value
         End Set
     End Property
 
@@ -153,11 +154,26 @@ Partial Class RH_RepChecadorPreAsistencia
     End Property
 
 
+    'Private Property dtPeriodos As DataTable
+    '    Get
+    '        If ViewState("dtPeriodos") Is Nothing Then
+    '            Return Nothing
+    '        Else
+    '            Return DirectCast(ViewState("dtPeriodos"), DataTable)
+    '        End If
+    '    End Get
+    '    Set(value As DataTable)
+    '        ViewState("dtPeriodos") = value
+    '    End Set
+    'End Property
+
+
 #End Region
 
     Private Sub RH_RepChecadorIncidencias_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
+            cargaEjercicios()
             CargaCombos()
         End If
 
@@ -165,6 +181,81 @@ Partial Class RH_RepChecadorPreAsistencia
 
     End Sub
 
+
+    Private Sub cargaEjercicios()
+        Dim EjercicioActual As Integer = UsuarioActual.Empresa.EjercicioActual
+        If EjercicioActual = 0 Then
+            EjercicioActual = Now.Year
+        End If
+
+        Dim dtejercicio As DataTable = Nothing
+        Using objnom As New ClsNominas()
+            If objnom.GetEjercicios(UsuarioActual.CveEmpresa) Then
+                dtejercicio = objnom.DtResultados
+            End If
+        End Using
+
+        DdlEjercicios.DataSource = dtejercicio
+        DdlEjercicios.DataBind()
+
+        Dim litem As ListItem = Nothing
+        If dtejercicio IsNot Nothing AndAlso dtejercicio.Rows.Count > 0 Then
+            If dtejercicio.Compute("COUNT(Ejercicio)", String.Format("Ejercicio={0}", EjercicioActual)).ToString.ToEntero = 0 Then
+                litem = New ListItem(EjercicioActual.ToString(), EjercicioActual.ToString())
+                DdlEjercicios.Items.Insert(0, litem)
+            End If
+            If dtejercicio.Compute("COUNT(Ejercicio)", String.Format("Ejercicio={0}", EjercicioActual - 1)).ToString.ToEntero = 0 Then
+                litem = New ListItem((EjercicioActual - 1).ToString(), (EjercicioActual - 1).ToString())
+                DdlEjercicios.Items.Insert(1, litem)
+                ' DdlEjerciciosCM.Items.Insert(1, litem)
+            End If
+        Else
+            litem = New ListItem(EjercicioActual.ToString(), EjercicioActual.ToString())
+            DdlEjercicios.Items.Insert(0, litem)
+            'DdlEjerciciosCM.Items.Insert(0, litem)
+            litem = New ListItem((EjercicioActual - 1).ToString(), (EjercicioActual - 1).ToString())
+            DdlEjercicios.Items.Insert(1, litem)
+            'DdlEjerciciosCM.Items.Insert(1, litem)
+        End If
+
+        If DdlEjercicios.Items.Count > 0 Then
+            DdlEjercicios.SelectedIndex = 0
+        End If
+
+        ' Additional method to check if selected value exists, and set it if it does
+        DdlEjercicios.SelectedValueExist(Now.Year.ToString())
+    End Sub
+
+    Protected Sub DdlEjercicios_SelectedIndexChanged(sender As Object, e As EventArgs)
+        cargaPeriodos()
+    End Sub
+
+    Private Sub cargaPeriodos()
+        BtnConsultar.Enabled = False
+        Dim tipoPeriodo As Integer = DdlTipoPeriodo.SelectedValue.ToEntero()
+        Dim ejercicio As Integer = DdlEjercicios.SelectedValue.ToEntero()
+        DTPeriodos = Nothing
+
+        If DdlTipoPeriodo.SelectedValue.ToEntero() > 0 Then
+            Using objPeriodos As New ClsNominas()
+                If objPeriodos.GetPeriodos(tipoPeriodo, UsuarioActual.CveEmpresa, ejercicio, -1, -1) Then
+                    If objPeriodos.DtResultados.Rows.Count = 0 Then
+                        Alert("No existen periodos registrados en este año y tipo de periodo, ¿desea registrarlos masivamente?", TipoMensaje.MsgConfirmacion, "$(""#divCargaMasiva"").modal(""show"");", TextoConfirmacion:="Aceptar", TextoSegundoBoton:="No")
+                    End If
+                    DTPeriodos = objPeriodos.DtResultados.FiltraParametros("Estatus IN (1,2,3,4,5)")
+                End If
+            End Using
+
+            BtnConsultar.Enabled = True
+        End If
+
+        DdlPeriodo.DataSource = DTPeriodos
+        DdlPeriodo.DataBind()
+        DdlPeriodo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        UPFiltros.Update()
+        'muestraPeriodo()
+    End Sub
+
     Private Sub CargaCombos()
 
 
@@ -198,10 +289,10 @@ Partial Class RH_RepChecadorPreAsistencia
 
         lblTituloPagina.Text = ""
 
-        If DdlRango.SelectedIndex > 0 Then
-            lblTituloPagina.Text = DdlRango.SelectedItem.Text
+        If DdlPeriodo.SelectedIndex > 0 Then
+            lblTituloPagina.Text = DdlPeriodo.SelectedItem.Text
 
-            Dim DtTemp As DataTable = DTPeridos.FiltraParametros("CvePeriodo = " & DdlRango.SelectedValue.ToEntero)
+            Dim DtTemp As DataTable = DTPeriodos.FiltraParametros("CvePeriodo = " & DdlPeriodo.SelectedValue.ToEntero)
             FechaInicioPeriodo = DtTemp(0)("FechaInicio").ToString().ToDate
             FechaFinPeriodo = DtTemp(0)("FechaFin").ToString().ToDate
         End If
@@ -212,8 +303,8 @@ Partial Class RH_RepChecadorPreAsistencia
 
     Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPeriodo.SelectedIndexChanged
 
-        DdlRango.Items.Clear()
-        DTPeridos = Nothing
+        DdlPeriodo.Items.Clear()
+        DTPeriodos = Nothing
 
         Dim objRh As New ClsRH
 
@@ -222,53 +313,57 @@ Partial Class RH_RepChecadorPreAsistencia
             CveTipoPeriodo = DdlTipoPeriodo.SelectedValue.ToEntero
             DiasPeriodo = DTTipoPeriodoDatos.FiltraParametros(" CveTipoPeriodo = " & DdlTipoPeriodo.SelectedValue)(0)("DiasPeriodo").ToString().ToEntero
 
-            Dim objNomina As New ClsNominas
 
-            If objNomina.GetPeriodos(DdlTipoPeriodo.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, -1, -1, -1) Then
+            cargaPeriodos()
 
-                TxtFechaModal.Text = ""
-                lblTituloPagina.Text = ""
-                UpTituloPagina.Update()
-                UpModalFechaBody.Update()
+            'Dim objNomina As New ClsNominas
 
-                If objNomina.DtResultados.Rows.Count > 0 Then
-                    BtnConsultar.Enabled = True
-                    DTPeridos = objNomina.DtResultados
-                    Dim DTPeridosView As DataView = DTPeridos.DefaultView
-                    DTPeridosView.Sort = " FechaInicio desc "
-                    DTPeridos = DTPeridosView.ToTable
-                    DdlRango.DataSource = objNomina.DtResultados
+            'If objNomina.GetPeriodos(DdlTipoPeriodo.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, -1, -1, -1) Then
 
-                    '  LblPeriodo.Visible = True
-                    'DdlRango.Visible = True
-                Else
-                    ' RegistraScript("$('#ModalModalFecha').modal({ backdrop: 'static',  keyboard: false});")
-                    Alert("No se encontraron periodos disponibles.", TipoMensaje.MsgAdvertencia)
-                    DTPeridos = Nothing
-                    DdlRango.DataSource = Nothing
-                End If
-            Else
-                DTPeridos = Nothing
-                DdlRango.DataSource = Nothing
-            End If
+            '    TxtFechaModal.Text = ""
+            '    lblTituloPagina.Text = ""
+            '    UpTituloPagina.Update()
+            '    UpModalFechaBody.Update()
 
-            Dim DtTempFechaInicial As DataTable = DTPeridos.FiltraParametros("Estatus = 1")
+            '    If objNomina.DtResultados.Rows.Count > 0 Then
+            '        BtnConsultar.Enabled = True
+            '        DTPeriodos = objNomina.DtResultados
+            '        Dim DTPeridosView As DataView = DTPeriodos.DefaultView
+            '        DTPeridosView.Sort = " FechaInicio desc "
+            '        DTPeriodos = DTPeridosView.ToTable
+            '        DdlPeriodo.DataSource = objNomina.DtResultados
 
-            objNomina.Dispose()
-            DdlRango.DataBind()
+            '        '  LblPeriodo.Visible = True
+            '        'DdlRango.Visible = True
+            '    Else
+            '        ' RegistraScript("$('#ModalModalFecha').modal({ backdrop: 'static',  keyboard: false});")
+            '        Alert("No se encontraron periodos disponibles.", TipoMensaje.MsgAdvertencia)
+            '        DTPeriodos = Nothing
+            '        DdlPeriodo.DataSource = Nothing
+            '    End If
+            'Else
+            '    DTPeriodos = Nothing
+            '    DdlPeriodo.DataSource = Nothing
+            'End If
+            'objNomina.Dispose()
+
+            Dim DtTempFechaInicial As DataTable = DTPeriodos.FiltraParametros("Estatus = 1")
+
+
+            DdlPeriodo.DataBind()
 
             If DtTempFechaInicial.Rows.Count > 0 Then
                 Dim temCvePeriodoNomi As Integer = DtTempFechaInicial(0)("CvePeriodo").ToString().ToEntero
-                DdlRango.SelectedValueExist(temCvePeriodoNomi)
+                DdlPeriodo.SelectedValueExist(temCvePeriodoNomi)
             End If
 
-            DdlRango.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+            DdlPeriodo.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
             UPFiltros.Update()
             ' BtnConsultar.Enabled = True
         Else
 
-            DTPeridos = Nothing
-            DdlRango.DataSource = Nothing
+            DTPeriodos = Nothing
+            DdlPeriodo.DataSource = Nothing
 
             'DdlRango.Visible = False
             ' LblPeriodo.Visible = Fale
@@ -281,7 +376,7 @@ Partial Class RH_RepChecadorPreAsistencia
         GeneraFechasInicioFinPerdiodo()
     End Sub
 
-    Private Sub DdlRango_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRango.SelectedIndexChanged
+    Private Sub DdlRango_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPeriodo.SelectedIndexChanged
 
         GeneraFechasInicioFinPerdiodo()
         UpTituloPagina.Update()
@@ -302,7 +397,8 @@ Partial Class RH_RepChecadorPreAsistencia
         Dim dt As New DataTable
 
         Dim Retardos As Integer = 0
-        Dim DTAsistenciasInasistencias As New DataTable
+        'Dim DTAsistenciasInasistencias As New DataTable
+        Dim DTPreAsistenciasInasistencias As New DataTable
         Dim DTChecadorRegistros As New DataTable
         Dim DTHorarios As New DataTable
         Dim DTDiasInhabiles As New DataTable
@@ -376,7 +472,7 @@ Partial Class RH_RepChecadorPreAsistencia
         Resultados.Columns.Add("TipoCorto")
         Resultados.Columns.Add("Sancion")
 
-        If DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlRango.SelectedValue.ToEntero > 0 Then
+        If DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlPeriodo.SelectedValue.ToEntero > 0 Then
 
             Dim FiltroSubProyecto As String = ""
             Dim filtroturno = If(DdlTurno.SelectedValue = "-1", "", $"AND CveTurno = { DdlTurno.SelectedValue}")
@@ -388,7 +484,7 @@ Partial Class RH_RepChecadorPreAsistencia
 
             'DtPersonal = GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(FiltroSubProyecto)
 
-            Dim DtTempPeriodo As DataTable = DTPeridos.FiltraParametros("CvePeriodo = " & DdlRango.SelectedValue.ToEntero)
+            Dim DtTempPeriodo As DataTable = DTPeriodos.FiltraParametros("CvePeriodo = " & DdlPeriodo.SelectedValue.ToEntero)
             Dim FechaInicioPeriodoFiltro = DtTempPeriodo(0)("FechaInicio").ToString().ToDate
 
             Dim FilasFiltradas = From fila In GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(FiltroSubProyecto).AsEnumerable()
@@ -439,8 +535,12 @@ Partial Class RH_RepChecadorPreAsistencia
                 DtVacaciones = objRH.DtResultados
             End If
 
-            If objRH.GetPersonalAsistenciaRegistros(FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa) Then
-                DTAsistenciasInasistencias = objRH.DtResultados
+            'If objRH.GetPersonalAsistenciaRegistros(FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa) Then
+            '    DTAsistenciasInasistencias = objRH.DtResultados
+            'End If
+
+            If objRH.GetPersonalPreAsistenciaRegistros(FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa) Then
+                DTPreAsistenciasInasistencias = objRH.DtResultados
             End If
 
             'If objRH.ChecadorPreAsistenciaRegistrosAsistenciasGet(CveTipoPeriodo, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.Empresa.CveEmpresa) Then
@@ -536,122 +636,166 @@ Partial Class RH_RepChecadorPreAsistencia
 
                             Dim tabladelDia As DataTable = registrosPersonal.FiltraParametros(" CvePersonal = " & dRow(0).ToString() & " AND  FechaRegistro >= '" & tempDatetime1.ToShortDateString & "' AND FechaRegistro <= '" & tempDatetime2.ToString() & "'")
 
-                            If DTAsistenciasInasistencias.FiltraParametros(" CvePersonal = " & dRow(0).ToString() & " AND  Fecha >= '" & Fecha & "'").Rows.Count > 0 Then
-                                ReRow("CveAsistenciasInasistencias") = DTAsistenciasInasistencias(0)("CveAsistenciasInasistencias").ToString()
+
+
+
+                            If DTPreAsistenciasInasistencias.FiltraParametros(" CvePersonal = " & dRow(0).ToString() & " AND  Fecha = '" & Fecha & "'").Rows.Count > 0 Then
+                                ReRow("CveAsistenciasInasistencias") = DTPreAsistenciasInasistencias.FiltraParametros(" CvePersonal = " & dRow(0).ToString() & " AND  Fecha = '" & Fecha & "'")(0)("CveAsistenciasInasistencias").ToString()
+
+                                If ReRow("CveAsistenciasInasistencias").ToString.ToEntero > 0 Then
+
+                                    Dim drowAsistenciaInasistencia As DataRow = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltroPrimero($"CveAsistenciasInasistencias={ReRow("CveAsistenciasInasistencias").ToString.ToEntero}")
+
+                                    ReRow("Asistio") = drowAsistenciaInasistencia("AplicaAsistencia").ToString = "Aplica"
+                                    ReRow("PorcentajePago") = DTPreAsistenciasInasistencias(0)("PorcentajePago").ToString.ToDecimal
+                                    ReRow("Descanso") = drowAsistenciaInasistencia("AplicaVacacion").ToString = "Aplica"
+                                    ReRow("DiaInhabil") = "False"
+                                    ReRow("DiaVacacion") = drowAsistenciaInasistencia("AplicaVacacion").ToString = "Aplica"
+                                    ReRow("FaltaRetardosAcumulados") = drowAsistenciaInasistencia("AplicaFalta").ToString = "Aplica"
+                                    ReRow("Retraso") = drowAsistenciaInasistencia("AplicaRetardo").ToString = "Aplica"
+                                    ReRow("FaltaRetraso") = False 'Not drowAsistenciaInasistencia("AplicaAsistencia").ToString = "Aplica"
+                                    ReRow("TipoCorto") = drowAsistenciaInasistencia("TipoCorto").ToString
+                                End If
                             End If
 
-                            Dim CountRegistros As Integer = tabladelDia.Rows.Count
+                            If Not ReRow("CveAsistenciasInasistencias").ToString.ToEntero > 0 Then
 
-                            Dim Inconsistencia As Boolean = False
+                                'If tabladelDia.Rows.Count > 0 AndAlso tabladelDia.Rows.Count <> 4 And DiaLaboral = False Then
+                                If tabladelDia.Rows.Count > 0 AndAlso tabladelDia.Rows.Count <> 4 Then
+                                    'Dim drowAsistenciaInasistencia As DataRow = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltroPrimero($"CveAsistenciasInasistencias={ReRow("CveAsistenciasInasistencias").ToString.ToEntero}")
 
-                            If Not DiaLaboral Then
-                                ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso
-                                ReRow("PorcentajePago") = "100"
-                                ReRow("Descanso") = "True"
-                            End If
+                                    ReRow("Asistio") = False
+                                    ReRow("PorcentajePago") = 0
+                                    ReRow("Descanso") = False
+                                    ReRow("DiaInhabil") = False
+                                    ReRow("DiaVacacion") = False
+                                    ReRow("FaltaRetardosAcumulados") = False
+                                    ReRow("Retraso") = False
+                                    ReRow("FaltaRetraso") = False
+                                    ReRow("TipoCorto") = "_ND"
 
-                            Dim TempDTValidaciones As DataTable = DTDiasInhabiles.FiltraParametros(" FechaInhabil = '" & Fecha.ToString() & "'")
-                            If TempDTValidaciones.Rows.Count > 0 Then
-                                ReRow("PorcentajePago") = "100"
-                                ReRow("DiaInhabil") = "True"
-                                ReRow("DiaInhabilStr") = TempDTValidaciones(0)("DiaInhabil").ToString()
-                                ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso
-                                ReRow("PorcentajePago") = "100"
-                            Else
-                                ReRow("DiaInhabil") = "False"
-                                ReRow("DiaInhabilStr") = ""
-                            End If
+                                Else
+                                    Dim CountRegistros As Integer = tabladelDia.Rows.Count
+                                    Dim Inconsistencia As Boolean = False
 
-                            TempDTValidaciones = DtVacaciones.FiltraParametros(" Fecha = '" & Fecha.ToString() & "' AND CvePersonal = " & dRow(0).ToString())
+                                    If Not DiaLaboral Then
+                                        ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso
+                                        ReRow("PorcentajePago") = "100"
+                                        ReRow("Descanso") = "True"
+                                    End If
 
-                            If TempDTValidaciones.Rows.Count > 0 Then
-                                ReRow("DiaVacacion") = "True"
-                                ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso
-                                ReRow("PorcentajePago") = "100"
+                                    Dim TempDTValidaciones As DataTable = DTDiasInhabiles.FiltraParametros(" FechaInhabil = '" & Fecha.ToString() & "'")
+                                    If TempDTValidaciones.Rows.Count > 0 Then
+                                        ReRow("PorcentajePago") = "100"
+                                        ReRow("DiaInhabil") = "True"
+                                        ReRow("DiaInhabilStr") = TempDTValidaciones(0)("DiaInhabil").ToString()
+                                        ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso
+                                        ReRow("PorcentajePago") = "100"
+                                    Else
+                                        ReRow("DiaInhabil") = "False"
+                                        ReRow("DiaInhabilStr") = ""
+                                    End If
 
-                            Else
-                                ReRow("DiaVacacion") = "False"
-                            End If
+                                    TempDTValidaciones = DtVacaciones.FiltraParametros(" Fecha = '" & Fecha.ToString() & "' AND CvePersonal = " & dRow(0).ToString())
 
-
-                            If Fecha >= NowADS() Then
-                                ReRow("Asistio") = "True"
-                                ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
-                                ReRow("PorcentajePago") = "100"
-                            Else
-
-                                If ReRow("DiaVacacion").ToString() <> "True" And ReRow("Descanso").ToString() <> "True" Then
-
-                                    If CountRegistros > 0 Then
-
-                                        FechaHoraRegistroEntrada = DateTime.Parse(tabladelDia(0)("FechaRegistro").ToString())
-                                        FechaHoraRegistroSalida = DateTime.Parse(tabladelDia(tabladelDia.Rows.Count - 1)("FechaRegistro").ToString())
-
-                                        If Not (FechaHoraRegistroEntrada - FechaHoraEntrada).TotalMinutes > TolFalEntradaMin Then
-                                            If (FechaHoraRegistroEntrada - FechaHoraEntrada).TotalMinutes > TolRetEntradaMin Then
-
-                                                Retardos = Retardos + 1
-                                                ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Retardo"
-
-                                                If Retardos >= TolRetAcumulados Then
-                                                    ReRow("Asistio") = "False"
-                                                    ReRow("FaltaRetardosAcumulados") = "True"
-                                                    ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & " Falta por " & TolRetAcumulados & "  acumulados. "
-                                                    Retardos = 0
-                                                    ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta
-                                                    ReRow("PorcentajePago") = "0"
-                                                Else
-                                                    ReRow("Asistio") = "True"
-                                                    ReRow("Retraso") = "True"
-                                                    ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaRetardo
-                                                    ReRow("PorcentajePago") = "100"
-                                                End If
-                                            Else
-                                                ReRow("Asistio") = "True"
-                                                ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
-                                                ReRow("PorcentajePago") = "100"
-                                            End If
-                                        Else
-                                            Asistencia = False
-                                            ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Falta por retardo."
-                                            ReRow("FaltaRetraso") = "True"
-                                            ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta
-                                            ReRow("PorcentajePago") = "0"
-                                        End If
-
-                                        If FechahoraSalida > FechaHoraRegistroSalida Then
-
-                                            Dim diferenciasalidaMinutos As Integer = (FechahoraSalida - FechaHoraRegistroSalida).TotalMinutes.ToString().ToEntero
-
-                                            If RetSalidaAntes Then
-                                                If diferenciasalidaMinutos > TolSalidaAntesMin Then
-
-                                                    ReRow("Asistio") = "True"
-                                                    ReRow("Retraso") = "True"
-                                                    ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Retraso por salida antes de tiempo (" & diferenciasalidaMinutos & " minutos)."
-                                                    ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaRetardo
-                                                    ReRow("PorcentajePago") = "100"
-                                                Else
-                                                    ReRow("Asistio") = "True"
-                                                    ReRow("Retraso") = "False"
-                                                    ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Salida antes de tiempo (" & diferenciasalidaMinutos & " minutos)."
-                                                    ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
-                                                    ReRow("PorcentajePago") = "100"
-
-                                                End If
-                                            End If
-                                        End If
+                                    If TempDTValidaciones.Rows.Count > 0 Then
+                                        ReRow("DiaVacacion") = "True"
+                                        ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso
+                                        ReRow("PorcentajePago") = "100"
 
                                     Else
-                                        ReRow("Asistio") = "False"
-                                        ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta
-                                        ReRow("PorcentajePago") = "0"
+                                        ReRow("DiaVacacion") = "False"
                                     End If
+
+
+                                    If Fecha >= NowADS() Then
+                                        ReRow("Asistio") = "True"
+                                        ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
+                                        ReRow("PorcentajePago") = "100"
+                                    Else
+
+                                        If ReRow("DiaVacacion").ToString() <> "True" And ReRow("Descanso").ToString() <> "True" Then
+
+                                            If CountRegistros > 0 Then
+
+                                                FechaHoraRegistroEntrada = DateTime.Parse(tabladelDia(0)("FechaRegistro").ToString())
+                                                FechaHoraRegistroSalida = DateTime.Parse(tabladelDia(tabladelDia.Rows.Count - 1)("FechaRegistro").ToString())
+
+                                                If Not (FechaHoraRegistroEntrada - FechaHoraEntrada).TotalMinutes > TolFalEntradaMin Then
+                                                    If (FechaHoraRegistroEntrada - FechaHoraEntrada).TotalMinutes > TolRetEntradaMin Then
+
+                                                        Retardos = Retardos + 1
+                                                        ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Retardo"
+
+                                                        If Retardos >= TolRetAcumulados Then
+                                                            ReRow("Asistio") = "False"
+                                                            ReRow("FaltaRetardosAcumulados") = "True"
+                                                            ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & " Falta por " & TolRetAcumulados & "  acumulados. "
+                                                            Retardos = 0
+                                                            ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta
+                                                            ReRow("PorcentajePago") = "0"
+                                                        Else
+                                                            ReRow("Asistio") = "True"
+                                                            ReRow("Retraso") = "True"
+                                                            ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaRetardo
+                                                            ReRow("PorcentajePago") = "100"
+                                                        End If
+                                                    Else
+                                                        ReRow("Asistio") = "True"
+                                                        ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
+                                                        ReRow("PorcentajePago") = "100"
+                                                    End If
+                                                Else
+                                                    Asistencia = False
+                                                    ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Falta por retardo."
+                                                    ReRow("FaltaRetraso") = "True"
+                                                    ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta
+                                                    ReRow("PorcentajePago") = "0"
+                                                End If
+
+                                                If FechahoraSalida > FechaHoraRegistroSalida Then
+
+                                                    Dim diferenciasalidaMinutos As Integer = (FechahoraSalida - FechaHoraRegistroSalida).TotalMinutes.ToString().ToEntero
+
+                                                    If RetSalidaAntes Then
+                                                        If diferenciasalidaMinutos > TolSalidaAntesMin Then
+
+                                                            ReRow("Asistio") = "True"
+                                                            ReRow("Retraso") = "True"
+                                                            ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Retraso por salida antes de tiempo (" & diferenciasalidaMinutos & " minutos)."
+                                                            ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaRetardo
+                                                            ReRow("PorcentajePago") = "100"
+                                                        Else
+                                                            ReRow("Asistio") = "True"
+                                                            ReRow("Retraso") = "False"
+                                                            ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Salida antes de tiempo (" & diferenciasalidaMinutos & " minutos)."
+                                                            ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio
+                                                            ReRow("PorcentajePago") = "100"
+
+                                                        End If
+                                                    End If
+                                                End If
+
+                                            Else
+                                                ReRow("Asistio") = "False"
+                                                ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta
+                                                ReRow("PorcentajePago") = "0"
+                                            End If
+                                        End If
+
+                                    End If
+
+                                    If ReRow("Asistio").ToString() = "True" Then ReRow("PorcentajePago") = "100" Else ReRow("PorcentajePago") = "0"
                                 End If
 
+
+
+
                             End If
 
-                            If ReRow("Asistio").ToString() = "True" Then ReRow("PorcentajePago") = "100" Else ReRow("PorcentajePago") = "0"
+
+
+                            'adasdasd
 
 
                             Resultados.Rows.Add(ReRow)
@@ -899,7 +1043,7 @@ Partial Class RH_RepChecadorPreAsistencia
 
             Dim ColumN As Integer = (dt.Columns.Count) - 2
 
-            For x As Integer = 3 To dt.Columns.Count-1
+            For x As Integer = 3 To dt.Columns.Count - 1
                 GVRegDatos.Columns(x).HeaderText = ""
                 GVRegDatos.Columns(x).Visible = False
             Next
@@ -940,36 +1084,48 @@ Partial Class RH_RepChecadorPreAsistencia
 
                         RRow(ColumN) = "-"
 
-                        If ResumenDia(0)("Asistio").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "A" Then
-                            RRow(ColumN) = "A|" & filtro
-                        End If
+                        If ResumenDia(0)("TipoCorto").ToString().Length > 0 Then
 
-                        If ResumenDia(0)("DiaVacacion").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "V" Then
-                            RRow(ColumN) = "V|" & filtro
-                        End If
+                            RRow(ColumN) = $"{ResumenDia(0)("TipoCorto").ToString()}|" & filtro
 
-                        If ResumenDia(0)("Asistio").ToString() = "False" Or ResumenDia(0)("TipoCorto").ToString() = "F" Then
-                            RRow(ColumN) = "F|" & filtro
-                        End If
+                        Else
 
-                        If ResumenDia(0)("Retraso").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "R" Then
-                            RRow(ColumN) = "R|" & filtro
-                        End If
-
-                        If ResumenDia(0)("FaltaRetraso").ToString() = "True" Or TipoCorto = "FR" Then
-                            RRow(ColumN) = "FR|" & filtro
-                        End If
-
-                        If ResumenDia(0)("Descanso").ToString() = "True" Or ResumenDia(0)("DiaInhabil").ToString() = "True" Then
-                            RRow(ColumN) = "D|" & filtro
-                        End If
-
-                        If ResumenDia(0)("Inconsistencia").ToString() = "True" Then
-                            RRow(ColumN) = "IN|" & filtro
-                            If ResumenDia(0)("Descanso").ToString() = "True" Then
-                                RRow(ColumN) = "IND|" & filtro
+                            If ResumenDia(0)("Asistio").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "A" Then
+                                RRow(ColumN) = "A|" & filtro
                             End If
+
+
+                            If ResumenDia(0)("DiaVacacion").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "V" Then
+                                RRow(ColumN) = "V|" & filtro
+                            End If
+
+                            If ResumenDia(0)("Asistio").ToString() = "False" Or ResumenDia(0)("TipoCorto").ToString() = "F" Then
+                                RRow(ColumN) = "F|" & filtro
+                            End If
+
+                            If ResumenDia(0)("Retraso").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "R" Then
+                                RRow(ColumN) = "R|" & filtro
+                            End If
+
+                            If ResumenDia(0)("FaltaRetraso").ToString() = "True" Or TipoCorto = "FR" Then
+                                RRow(ColumN) = "FR|" & filtro
+                            End If
+
+                            If ResumenDia(0)("Descanso").ToString() = "True" Or ResumenDia(0)("DiaInhabil").ToString() = "True" Then
+                                RRow(ColumN) = "D|" & filtro
+                            End If
+
+                            If ResumenDia(0)("Inconsistencia").ToString() = "True" Then
+                                RRow(ColumN) = "IN|" & filtro
+                                If ResumenDia(0)("Descanso").ToString() = "True" Then
+                                    RRow(ColumN) = "IND|" & filtro
+                                End If
+                            End If
+
+
                         End If
+
+
                     Else
 
                         DTTempAsistencias = DTAsistenciasInasistenciasReg.FiltraParametros(filtro)
@@ -1027,7 +1183,7 @@ Partial Class RH_RepChecadorPreAsistencia
 
 
 
-        If DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlRango.SelectedValue.ToEntero > 0 Then
+        If DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlPeriodo.SelectedValue.ToEntero > 0 Then
 
             Dim dt As New DataTable
             Dim DtPersonal As New DataTable
@@ -1039,7 +1195,7 @@ Partial Class RH_RepChecadorPreAsistencia
                 DTAsistenciasInasistencias = objRH.DtResultados
             End If
 
-            Dim DtTempPeriodo As DataTable = DTPeridos.FiltraParametros("CvePeriodo = " & DdlRango.SelectedValue.ToEntero)
+            Dim DtTempPeriodo As DataTable = DTPeriodos.FiltraParametros("CvePeriodo = " & DdlPeriodo.SelectedValue.ToEntero)
             Dim FechaInicioPeriodoFiltro = DtTempPeriodo(0)("FechaInicio").ToString().ToDate
 
             Dim FilasFiltradas = From fila In GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros($" CveTipoPeriodo = { DdlTipoPeriodo.SelectedValue} AND  CveEstado = 1  " & If(DdlTurno.SelectedValue = "-1", "", $" AND CveTurno = {DdlTurno.SelectedValue}")).AsEnumerable()
@@ -1496,9 +1652,9 @@ Partial Class RH_RepChecadorPreAsistencia
 
         DTRespuesta = DtRespuestaView.ToTable
 
-        DdlRango.DataSource = DTRespuesta
-        DdlRango.DataBind()
-        DdlRango.Items.Insert(0, New ListItem("Seleccionar uno", "-1"))
+        DdlPeriodo.DataSource = DTRespuesta
+        DdlPeriodo.DataBind()
+        DdlPeriodo.Items.Insert(0, New ListItem("Seleccionar uno", "-1"))
         'DdlRango.Visible = True
         'LblPeriodo.Visible = True
         UPFiltros.Update()
@@ -1536,6 +1692,14 @@ Partial Class RH_RepChecadorPreAsistencia
 
                 lnkLink.CommandArgument = $"{lnkLink.Text}|{e.Row.DataKey("CvePersonal")}|{e.Row.DataKey("NombreCompleto")}"
 
+                If Instruccion = "_ND" Then
+                    lnkLink.Text = "<i class='fa fa-question' aria-hidden='True'></i>"
+                    lnkLink.ForeColor = Drawing.Color.DarkOrange
+                    lnkLink.ToolTip = "Inconsistencia"
+                    lnkLink.Font.Bold = True
+                End If
+
+
                 If Instruccion = "-" Then
                     lnkLink.Text = "<i class='fa fa-check-square' aria-hidden='true'></i>"
                     lnkLink.ForeColor = Drawing.Color.Green
@@ -1565,6 +1729,12 @@ Partial Class RH_RepChecadorPreAsistencia
                     ContadorFaltas = ContadorFaltas + 1
                 End If
 
+                If Instruccion = "DDV" Then
+                    lnkLink.Text = "<i Class='fa fa-sun-o' aria-hidden='true'></i>"
+                    lnkLink.ToolTip = "Dia de descanso."
+                    lnkLink.ForeColor = Drawing.Color.Green
+                End If
+
                 If Instruccion = "D" Or Instruccion = "V" Then
                     lnkLink.Text = "<i Class='fa fa-sun-o' aria-hidden='true'></i>"
                     lnkLink.ToolTip = "Dia de descanso/no laboral/Vacación"
@@ -1639,6 +1809,13 @@ Partial Class RH_RepChecadorPreAsistencia
                     lnkLink.Font.Bold = True
                 End If
 
+                If Instruccion = "P" Then
+                    lnkLink.Text = "<i class='fa fa-exclamation-triangle' aria-hidden='true'></i>"
+                    lnkLink.ToolTip = "Permiso."
+                    lnkLink.ForeColor = Drawing.Color.DarkOrange
+                    lnkLink.Font.Bold = True
+                End If
+
                 If Filtro.Length > 0 Then
                     AddHandler lnkLink.Click, AddressOf Me.DetalleDia_Click
                 End If
@@ -1707,6 +1884,14 @@ Partial Class RH_RepChecadorPreAsistencia
 
         lnkModalImg.Text = ""
 
+        If Instruccion = "_ND" Then
+            lnkModalImg.Text = "<i class='fa fa-question' aria-hidden='True'></i>"
+            lnkModalImg.ForeColor = Drawing.Color.DarkOrange
+            lnkModalImg.ToolTip = "Inconsistencia"
+            lnkModalImg.Font.Bold = True
+            lblModalMensaje.Text = "Inconsistencia"
+        End If
+
         If Instruccion = "-" Or Instruccion = "A" Then
             lnkModalImg.Text = "<i class='fa fa-check-square fa-3x' aria-hidden='true'></i>"
             lnkModalImg.ForeColor = Drawing.Color.Green
@@ -1741,6 +1926,15 @@ Partial Class RH_RepChecadorPreAsistencia
             'CveEstado = CveDescanso
         End If
 
+
+        If Instruccion = "DDV" Then
+            lnkModalImg.Text = "<i Class='fa fa-sun-o fa-3x' aria-hidden='true'></i>"
+            lnkModalImg.ToolTip = "Dia de descanso."
+            lnkModalImg.ForeColor = Drawing.Color.Green
+            lblModalMensaje.Text = "Dia de descanso."
+            'CveEstado = CveDescanso
+        End If
+
         If Instruccion = "DI" Or Instruccion = "V" Then
             lnkModalImg.Text = "<i Class='fa fa-sun-o' aria-hidden='true'></i>"
             lnkModalImg.ToolTip = "Dia de descanso/no laboral/Vacación"
@@ -1828,39 +2022,39 @@ Partial Class RH_RepChecadorPreAsistencia
 
     End Function
 
-    Private Sub BtnEstusAsistenciaModal_Click(sender As Object, e As EventArgs) Handles BtnEstusAsistenciaModal.Click
+    'Private Sub BtnEstusAsistenciaModal_Click(sender As Object, e As EventArgs) Handles BtnEstusAsistenciaModal.Click
 
-        Dim myRow As DataRow() ' = DtResultados.NewRow
-        Dim temtDt As New DataTable
-        temtDt = DtResultados.FiltraParametros(FiltroAplicado)
+    '    Dim myRow As DataRow() ' = DtResultados.NewRow
+    '    Dim temtDt As New DataTable
+    '    temtDt = DtResultados.FiltraParametros(FiltroAplicado)
 
-        Dim fecha As String = temtDt(0)("Fecha").ToString()
-        Dim CvePersonal As Integer = temtDt(0)("CvePersonal").ToString().ToEntero
-        Dim filtro As String = String.Format(" CvePersonal = '{0}'  AND  Fecha  = '{1}'", CvePersonal, fecha)
+    '    Dim fecha As String = temtDt(0)("Fecha").ToString()
+    '    Dim CvePersonal As Integer = temtDt(0)("CvePersonal").ToString().ToEntero
+    '    Dim filtro As String = String.Format(" CvePersonal = '{0}'  AND  Fecha  = '{1}'", CvePersonal, fecha)
 
-        Dim AplicaFalta As String = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveAsistenciasInasistencias =  {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("AplicaFalta").ToString()
+    '    Dim AplicaFalta As String = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveAsistenciasInasistencias =  {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("AplicaFalta").ToString()
 
 
-        myRow = DtResultados.Select(filtro)
+    '    myRow = DtResultados.Select(filtro)
 
-        If AplicaFalta = "Aplica" Then
-            myRow(0)("Asistio") = "False"
-            myRow(0)("SalarioDiario") = "0"
-        Else
-            myRow(0)("Asistio") = "True"
-            myRow(0)("SalarioDiario") = "100"
-        End If
+    '    If AplicaFalta = "Aplica" Then
+    '        myRow(0)("Asistio") = "False"
+    '        myRow(0)("SalarioDiario") = "0"
+    '    Else
+    '        myRow(0)("Asistio") = "True"
+    '        myRow(0)("SalarioDiario") = "100"
+    '    End If
 
-        myRow(0)("CveAsistenciasInasistencias") = DdlAsistenciaInacistencia.SelectedValue
+    '    myRow(0)("CveAsistenciasInasistencias") = DdlAsistenciaInacistencia.SelectedValue
 
-        myRow(0)("TipoCorto") = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveAsistenciasInasistencias =  {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("TipoCorto").ToString()
+    '    myRow(0)("TipoCorto") = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveAsistenciasInasistencias =  {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("TipoCorto").ToString()
 
-        RegistraScript("$('#divDetallesDia').modal('hide');")
-        Alert("Actualizado correctamente.")
-        ReprocesarTabla()
-        GvBind()
+    '    RegistraScript("$('#divDetallesDia').modal('hide');")
+    '    Alert("Actualizado correctamente.")
+    '    ReprocesarTabla()
+    '    GvBind()
 
-    End Sub
+    'End Sub
 
     Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) Handles BtnAgregar.Click
 
@@ -1997,12 +2191,18 @@ Partial Class RH_RepChecadorPreAsistencia
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
         If DdlAsistenciaInacistencia.SelectedValue.ToEntero > 0 Then
             Dim ObjPersonal As New ClsRH
-            If ObjPersonal.AddAsistencia(CvePersonalSeleccionado, -1, DdlSubProyecto.SelectedValue.ToEntero, FechaSeleccionada,
-                                         DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then
+            'If ObjPersonal.AddAsistencia(CvePersonalSeleccionado, -1, DdlSubProyecto.SelectedValue.ToEntero, FechaSeleccionada, DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then
+
+            If ObjPersonal.AddPreAsistencia(CvePersonalSeleccionado, FechaSeleccionada, DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 Alert("Registro Actualizado Correctamente.")
+                RegistraScript("$('#divDetallesDia').modal('hide');")
+                CargaDatos()
 
             End If
+
             ObjPersonal.Dispose()
         End If
     End Sub
+
+
 End Class
\ No newline at end of file

From 83f7bd944fa1e25b2a46d0fd1f0953dba1f91359 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 17 Apr 2024 09:41:41 -0700
Subject: [PATCH 43/70] Reloj Checador 2024.04.15

---
 RH/RepChecadorPreAsistencia.aspx.vb | 184 +++++++++++++++++++++++++---
 1 file changed, 169 insertions(+), 15 deletions(-)

diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb
index 4fab6f22b..05177136f 100644
--- a/RH/RepChecadorPreAsistencia.aspx.vb
+++ b/RH/RepChecadorPreAsistencia.aspx.vb
@@ -1,8 +1,12 @@
 Option Strict On
 
+
 Imports Extensiones
+Imports System
 Imports System.Data
 
+
+
 Partial Class RH_RepChecadorPreAsistencia
     Inherits ClsPaginas
 #Region "Propiedades"
@@ -543,20 +547,20 @@ Partial Class RH_RepChecadorPreAsistencia
                 DTPreAsistenciasInasistencias = objRH.DtResultados
             End If
 
-            'If objRH.ChecadorPreAsistenciaRegistrosAsistenciasGet(CveTipoPeriodo, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.Empresa.CveEmpresa) Then
-            '    DTAsistenciasInasistenciasReg = objRH.DtResultados
+            If objRH.ChecadorPreAsistenciaRegistrosAsistenciasGet(CveTipoPeriodo, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.Empresa.CveEmpresa) Then
+                DTAsistenciasInasistenciasReg = objRH.DtResultados
 
-            '    If DTAsistenciasInasistenciasReg.Rows.Count > 0 Then
-            '        BtnAgregar.Visible = False
-            '        BtnEstusAsistenciaModal.Visible = False
-            '        'DdlAsistenciaInacistencia.Enabled = False
-            '    Else
-            '        BtnAgregar.Visible = True
-            '        BtnEstusAsistenciaModal.Visible = True
-            '        'DdlAsistenciaInacistencia.Enabled = True
-            '    End If
-            '    UpAgregar.Update()
-            'End If
+                'If DTAsistenciasInasistenciasReg.Rows.Count > 0 Then
+                '    'BtnAgregar.Visible = False
+                '    'BtnEstusAsistenciaModal.Visible = False
+                '    'DdlAsistenciaInacistencia.Enabled = False
+                'Else
+                '    'BtnAgregar.Visible = True
+                '    'BtnEstusAsistenciaModal.Visible = True
+                '    'DdlAsistenciaInacistencia.Enabled = True
+                'End If
+                'UpAcciones.Update()
+            End If
 
             objRH.Dispose()
 
@@ -1165,10 +1169,12 @@ Partial Class RH_RepChecadorPreAsistencia
     End Sub
 
     Private Sub GvBind()
-
+        LnkEnviarAsistencia.Visible = False
         If DtDatosTabla.Rows.Count > 0 Then
             'BtnAgregar.Visible = True
             GVRegDatos.DataSource = DtDatosTabla
+            LnkEnviarAsistencia.Visible = True
+
         Else
             'BtnAgregar.Visible = False
             GVRegDatos.DataSource = Nothing
@@ -1176,6 +1182,7 @@ Partial Class RH_RepChecadorPreAsistencia
 
         GVRegDatos.DataBind()
         UpDatos.Update()
+        UpAcciones.Update()
 
     End Sub
 
@@ -2100,7 +2107,7 @@ Partial Class RH_RepChecadorPreAsistencia
         Else
             objRh.Commit()
             BtnAgregar.Visible = False
-            UpAgregar.Update()
+            UpAcciones.Update()
             Alert("Proceso realizado correctamente.")
         End If
         objRh.Dispose()
@@ -2191,6 +2198,7 @@ Partial Class RH_RepChecadorPreAsistencia
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
         If DdlAsistenciaInacistencia.SelectedValue.ToEntero > 0 Then
             Dim ObjPersonal As New ClsRH
+
             'If ObjPersonal.AddAsistencia(CvePersonalSeleccionado, -1, DdlSubProyecto.SelectedValue.ToEntero, FechaSeleccionada, DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then
 
             If ObjPersonal.AddPreAsistencia(CvePersonalSeleccionado, FechaSeleccionada, DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
@@ -2198,11 +2206,157 @@ Partial Class RH_RepChecadorPreAsistencia
                 RegistraScript("$('#divDetallesDia').modal('hide');")
                 CargaDatos()
 
+
             End If
 
             ObjPersonal.Dispose()
         End If
     End Sub
 
+    Protected Sub LnkEnviarAsistencia_Click(sender As Object, e As EventArgs)
+
+        'ValidaEnvioAsistencia
+        'EnviarAsistencia
+
+    End Sub
+
+
+    Private Sub ValidaEnvioAsistencia()
+
+        'Dim DTChecadorRegistros As New DataTable
+
+        Dim ObjPersonal As New ClsRH
+
+        'If ObjPersonal.PreAsistenciaRegistrosGet(FechaInicioPeriodo, FechaFinPeriodo, DdlTurno.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        '    DTChecadorRegistros = ObjPersonal.DtResultados
+        'End If
+
+        ObjPersonal.IniciaTransacSQL()
+        Dim TieneError As Boolean = False
+
+        Dim separador() As Char = {"|"c}
+
+        Try
+            For Each GvRow As GridViewRow In GVRegDatos.Rows
+
+                Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
+                Dim NombreCompleto As String = GvRow.DataKey("NombreCompleto")
+
+                Dim Fecha As Date = FechaInicioPeriodo
+                For x = 3 To GVRegDatos.Columns.Count - 1
+
+                    If GVRegDatos.Columns(x).Visible Then
+
+                        Dim lnkLinkSender As LinkButton = TryCast(GvRow.Cells(x).Controls(1), LinkButton)
+
+                        If lnkLinkSender IsNot Nothing Then
+                            Dim arrayComands As String() = lnkLinkSender.CommandArgument.Split(separador)
+                            Dim TipoCorto = arrayComands(0)
+                            Dim Filtro = arrayComands(1)
+
+                            If TipoCorto.Contiene("_ND", "") Then
+                                TieneError = True
+                                Exit For
+                            Else
+                                'ok
+                            End If
+                        End If
+                    End If
+                    Fecha = Fecha.AddDays(1)
+                Next
+                If TieneError Then
+                    Exit For
+                End If
+            Next
+        Catch ex As Exception
+            TieneError = True
+        End Try
+
+
+        If TieneError Then
+            ObjPersonal.RollBack()
+            Alert("Se presento un error al enviar asistencia.", TipoMensaje.MsgAdvertencia)
+        Else
+            ObjPersonal.Commit()
+            Alert("Asistencia enviada correctamente.")
+        End If
+
+        ObjPersonal.Dispose()
+
+    End Sub
+    Private Sub EnviarAsistencia()
+        'Dim DTChecadorRegistros As New DataTable
+
+        Dim ObjPersonal As New ClsRH
+
+        'If ObjPersonal.PreAsistenciaRegistrosGet(FechaInicioPeriodo, FechaFinPeriodo, DdlTurno.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        '    DTChecadorRegistros = ObjPersonal.DtResultados
+        'End If
+
+        ObjPersonal.IniciaTransacSQL()
+        Dim TieneError As Boolean = False
+
+        Dim separador() As Char = {"|"c}
+
+        Try
+            For Each GvRow As GridViewRow In GVRegDatos.Rows
+
+                Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
+                Dim NombreCompleto As String = GvRow.DataKey("NombreCompleto")
+
+                Dim Fecha As Date = FechaInicioPeriodo
+                For x = 3 To GVRegDatos.Columns.Count - 1
+
+                    If GVRegDatos.Columns(x).Visible Then
+
+                        Dim lnkLinkSender As LinkButton = TryCast(GvRow.Cells(x).Controls(1), LinkButton)
+
+                        If lnkLinkSender IsNot Nothing Then
+                            Dim arrayComands As String() = lnkLinkSender.CommandArgument.Split(separador)
+                            Dim TipoCorto = arrayComands(0)
+                            Dim Filtro = arrayComands(1)
+
+                            If TipoCorto.Contiene("_ND", "") Then
+                                TieneError = True
+                                Exit For
+                            Else
+                                Dim DTTipoAsistenciaInasistencia As DataTable = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros("  TipoCorto = '" & TipoCorto & "' ")
+
+                                Dim CveAsistenciasInasistencias As Integer = DTTipoAsistenciaInasistencia(0)("CveAsistenciasInasistencias").ToString.ToEntero
+                                Dim PorcentajePago As Integer = If(DTTipoAsistenciaInasistencia(0)("AplicaPago").ToString = "Aplica", 100, 0)
+
+                                'If CveAsistenciasInasistencias > 0 Then
+                                '    If Not ObjPersonal.AddAsistencia(CvePersonal, -1, DdlSubProyecto.SelectedValue.ToEntero, Fecha, CveAsistenciasInasistencias, PorcentajePago, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then
+                                '        TieneError = True
+                                '        Exit For
+                                '    End If
+                                'Else
+                                '    TieneError = True
+                                '    Exit For
+                                'End If
+                            End If
+                        End If
+                    End If
+                    Fecha = Fecha.AddDays(1)
+                Next
+                If TieneError Then
+                    Exit For
+                End If
+            Next
+        Catch ex As Exception
+            TieneError = True
+        End Try
+
+
+        If TieneError Then
+            ObjPersonal.RollBack()
+            Alert("Se presento un error al enviar asistencia.", TipoMensaje.MsgAdvertencia)
+        Else
+            ObjPersonal.Commit()
+            Alert("Asistencia enviada correctamente.")
+        End If
+
+        ObjPersonal.Dispose()
+    End Sub
 
 End Class
\ No newline at end of file

From 38f922f0cad0847b34997ec8004aa7a58201f4be Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 17 Apr 2024 10:09:18 -0700
Subject: [PATCH 44/70] --FIX anticipo puntual en ventas --FIX seleccionar
 usocfdi al refacturar

---
 Ventas/Ventas.aspx.vb | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 930a4be63..486b8be33 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6862,6 +6862,10 @@ Partial Class Ventas
                         If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                             DdlUsoCFDI.Enabled = True
                         End If
+
+                        If NuevaFactura = 1 Then
+                            DdlUsoCFDI.Enabled = True
+                        End If
                     End If
 
                 End If
@@ -16553,9 +16557,12 @@ Partial Class Ventas
             DirectCast(e.Row.FindControl("VCOAmortAnti"), AjaxControlToolkit.ValidatorCalloutExtender).TargetControlID = "CVAmortAnti" & e.Row.RowIndex
 
             'SI NO TIENE PERMISO, NO PERMITIR APLICAR ANTICIPOS PUNTUALES
-            If CBool(e.Row.DBCampo("AnticipoPuntual")) AndAlso Not UsuarioActual.TienePermisoProceso(377) Then
-                e.Row.FCCheckBox("Chk").Enabled = False
+            If GVAnticipos.DataSource IsNot Nothing Then
+                If CBool(e.Row.DBCampo("AnticipoPuntual")) AndAlso Not UsuarioActual.TienePermisoProceso(377) Then
+                    e.Row.FCCheckBox("Chk").Enabled = False
+                End If
             End If
+
         End If
     End Sub
     Protected Sub GVAnticipos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowDataBound

From 0172e5711ce2dffb9b423efac66275676ea64f7c Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 17 Apr 2024 10:56:43 -0700
Subject: [PATCH 45/70] =?UTF-8?q?Compras=20c=C3=B3digos=20no=20se=20ve=20a?=
 =?UTF-8?q?l=20asignar=20alias?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb             | 2 +-
 RH/RepChecadorPreAsistencia.aspx.vb | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 0b165f698..2effb9bda 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9897,7 +9897,7 @@ Partial Class Compras_Compras
                         e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar")
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
+                    'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
 
                     'EQUIVALENCIA
                     If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then
diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb
index 05177136f..321280968 100644
--- a/RH/RepChecadorPreAsistencia.aspx.vb
+++ b/RH/RepChecadorPreAsistencia.aspx.vb
@@ -1686,6 +1686,8 @@ Partial Class RH_RepChecadorPreAsistencia
             Dim separador As Char()
             Dim arrayComands As String()
 
+            Dim Fecha As Date = FechaInicioPeriodo
+
             For x As Integer = 3 To 33
 
                 NombreLink = "LnkFecha" & CountFecha
@@ -1695,6 +1697,10 @@ Partial Class RH_RepChecadorPreAsistencia
                 arrayComands = lnkLink.Text.Split(separador)
                 Instruccion = arrayComands(0)
 
+                If Fecha >= NowADS() Then
+                    lnkLink.Visible = False
+                End If
+
                 If arrayComands.Length > 1 Then Filtro = arrayComands(1) Else Filtro = ""
 
                 lnkLink.CommandArgument = $"{lnkLink.Text}|{e.Row.DataKey("CvePersonal")}|{e.Row.DataKey("NombreCompleto")}"
@@ -1827,6 +1833,7 @@ Partial Class RH_RepChecadorPreAsistencia
                     AddHandler lnkLink.Click, AddressOf Me.DetalleDia_Click
                 End If
                 CountFecha = CountFecha + 1
+                Fecha = Fecha.AddDays(1)
             Next
 
             If ContadorFaltas > 0 Then

From 565d5cb48344a63ebcd3032da04d23c6182726f5 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 17 Apr 2024 11:19:57 -0700
Subject: [PATCH 46/70] --Descargar de excel

---
 Ventas/CatMedicos.aspx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx
index 63fe20e5c..f66cc0647 100644
--- a/Ventas/CatMedicos.aspx
+++ b/Ventas/CatMedicos.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="Catálogo de Médicos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMedicos.aspx.vb" Inherits="Ventas_CatMedicos" %>
+<%@ Page Title="Catálogo de Médicos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMedicos.aspx.vb" Inherits="Ventas_CatMedicos" EnableEventValidation="false" %>
 <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
 <%@ Register Src="~/UserControl/AddMedico.ascx" TagPrefix="UserControl" TagName="AddMedico" %>
 

From 705abcdeab938314d67c5d64312633c027685fae Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 17 Apr 2024 15:37:05 -0700
Subject: [PATCH 47/70] -- mejora en retorno de caja

---
 Bancos/DepositosCaja.aspx    | 8 ++------
 Bancos/DepositosCaja.aspx.vb | 7 ++-----
 2 files changed, 4 insertions(+), 11 deletions(-)

diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index d687afed7..45747d1ea 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -287,13 +287,9 @@
             <div class="row rowcheck truncate" id="DivRowCuenta" style="margin-top: -15px;" runat="server" visible="false" >
 
                 <div class="col-md-1" runat="server" id="Div3" style="width: 155px">
-                    <asp:CheckBox ID="ChkCuentaRetorno" runat="server" Text="Cuenta" CssClass="checkbox" />
+                    <asp:CheckBox ID="ChkCuentaRetorno" runat="server" Text="Caja" CssClass="checkbox" />
                 </div>
-                <div class="col-md-10 rowcheckCampos" id="DivRowCuenta2" style="display: none">
-                    <div class="col-md-3" id="ddd" style="padding-right: 150px;">
-                        <label>Cuenta:</label>
-                        <asp:DropDownList ID="DdlCajaChicaRetorno" CssClassDdl="select2me" Width="150px" CssStyle="100%" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" runat="server"></asp:DropDownList> 
-                    </div>
+                <div class="col-md-10 rowcheckCampos" id="DivRowCuenta2" style="display: none">                    
                     <div class="col-md-2" style="width: 205px;">
                         <div class="col-md-6" id="DivCuentaImporte" style="padding-left: 0px; padding-right: 0px;">
                             <label>Importe:</label>
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index 471cde81e..ca047fa89 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -57,9 +57,6 @@ Partial Class Bancos_DepositosCaja
             divFolio.Visible = True
         End If
 
-        DdlCajaChicaRetorno.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
-        DdlCajaChicaRetorno.DataBind()
-
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             DivRowCuenta.Visible = True
         End If
@@ -350,8 +347,8 @@ Partial Class Bancos_DepositosCaja
 
             If Not OcurrioError AndAlso ChkCuentaRetorno.Checked Then
                 CveTransaccionBanco = 13
-                FolioIE = ObjBancos.GetNextFolio(DdlCajaChicaRetorno.SelectedValue.ToEntero, CveTransaccionBanco)
-                CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChicaRetorno.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Retorno Depósito Bancario", CuentaRetorno, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco)
+                CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Retorno Depósito Bancario", CuentaRetorno, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, CuentaRetorno, CuentaRetorno * TipoCambio, 30, "", "Retorno", CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen) Then
                     OcurrioError = True

From b0265a72ad59ff0ad543a275cf2da34a3fc385ee Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 17 Apr 2024 15:37:40 -0700
Subject: [PATCH 48/70] - si  gpo, solo puede cargar info

---
 Ventas/RepVentaDetalle.aspx.vb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 302599684..0d29ad282 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -120,8 +120,9 @@ Partial Class RepVentaDetalle
             CargaCombos()
             InicializaValores()
             ConfiguraEmpresa()
-            CargaDatos()
-
+            If Request("Gpo") IsNot Nothing Then
+                CargaDatos()
+            End If
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
 
                 LblServicioDomicilioFiltro.Visible = True

From 4ec868dd2d74ee3e29a2e9fc03179948af127e83 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 17 Apr 2024 16:01:59 -0700
Subject: [PATCH 49/70] --FIX reporte de ventas detalle

---
 Ventas/RepVentaDetalle.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 2fbaa3077..87debcbce 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -558,14 +558,14 @@ Partial Class RepVentaDetalle
             Dim Ruta As String = UsuarioActual.Empresa.Ruta
 
             If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.xml") Then
-                e.Row.FCLiteral("LtlXML").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.xml&TipoArchivo=XML"">XML</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+                e.Row.FCLiteral("LtlXML").Text = String.Format("<div class='truncate' style='width:40px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.xml&TipoArchivo=XML"">XML</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
             Else
                 e.Row.FCLiteral("LtlXML").Text = "<div class='truncate' style='width:23px;'></div>"
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                 If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.pdf") Then
-                    e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+                    e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:40px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
                 Else
                     e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>"
                 End If

From a5eb5266af8c9589caefeade9ea9d96d9779f1df Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 17 Apr 2024 17:30:38 -0700
Subject: [PATCH 50/70] IE impresion facturas, agregar prepoliza de IE

---
 App_Code/ClsInventarios.vb                  | 15 +++-----------
 Compras/PopUpVerFactura.aspx.vb             | 23 +++++++++++++++++++--
 Inventarios/KardexAlmacen.aspx.vb           |  6 +-----
 Inventarios/KardexAlmacenHorizontal.aspx.vb |  8 ++-----
 Inventarios/RepEntradasSalidas.aspx.vb      |  5 +----
 5 files changed, 28 insertions(+), 29 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 78d02e430..2baabb88f 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1514,8 +1514,7 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
-             Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
+    Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenGet")
@@ -1528,8 +1527,6 @@ Public Class ClsInventarios
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
-            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try
@@ -1549,7 +1546,7 @@ Public Class ClsInventarios
     Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
                                                IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
                                                Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1",
-                                               Optional GPO As Integer = 1, Optional CodigoPS As String = "-1", Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
+                                               Optional GPO As Integer = 1, Optional CodigoPS As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1573,10 +1570,6 @@ Public Class ClsInventarios
             .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
             .Add("@GPO", SqlDbType.Int).Value = GPO
             .Add("@CodigoPS", SqlDbType.VarChar).Value = CodigoPS
-            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
-            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
-
-
         End With
 
         Try
@@ -1839,7 +1832,7 @@ Public Class ClsInventarios
 
     Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String,
                                    CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As String = "-1", Optional CvePersonal As Integer = -1,
-                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
+                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ReporteMovimientos")
@@ -1862,8 +1855,6 @@ Public Class ClsInventarios
             .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
             .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen
             .Add("@Modalidad", SqlDbType.Int).Value = Modalidad
-            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
-            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index a915f096b..427b1e733 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5746,11 +5746,12 @@ Partial Class PopUpVerFactura
                 If ObjIE.DtResultados.Rows.Count > 0 Then
 
                     Dim reportDataSetsList As New List(Of ReportDataSource)
-
+                    Dim CvePrePoliza As Integer = 0
                     Dim dtMovs As New DataTable
                     If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
 
                         dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
+                        CvePrePoliza = dtMovs.Rows(0)("CVePrePoliza").ToString.ToEntero
 
                         If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                             'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
@@ -5792,7 +5793,25 @@ Partial Class PopUpVerFactura
                         .Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     End With
                     dtMovs.Dispose()
-                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+
+                    If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+
+                        Dim ObjContabilidad As New ClsContabilidad
+
+                        ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
+                        Dim dtPrePoliza As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+                        ObjContabilidad.Dispose()
+
+                        Dim rdsPrePoliza As New ReportDataSource("DSPrePoliza", dtPrePoliza)
+                        reportDataSetsList.Add(rdsPrePoliza)
+
+                        ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+                    Else
+                        ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+                    End If
+
+
+
                 End If
             End If
         End If
diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb
index db9026bd0..f95e5c3b4 100644
--- a/Inventarios/KardexAlmacen.aspx.vb
+++ b/Inventarios/KardexAlmacen.aspx.vb
@@ -1,5 +1,4 @@
 Imports System.Data
-Imports ADSNetLibrary.SIGAPI.Models.CGame
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
@@ -113,10 +112,7 @@ Partial Class Inventarios_KardexAlmacen
         Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
         Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
 
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
-        If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+        If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             dt = ObjMovimientos.DtResultados
             GvDatos.DataSource = ObjMovimientos.DtResultados
         End If
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 27bbfe0af..75a3dd999 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -159,14 +159,10 @@ Partial Class Inventarios_KardexAlmacenHorizontal
         Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
         Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
 
-
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
         If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios,
                                                      DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero,
-                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text,
-                                                     CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then
+
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)
diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb
index 2d6816414..586d6d878 100644
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -256,13 +256,10 @@ Partial Class Inventarios_ReporteEntradasSalidas
             CveMarca = DdlMarca.SelectedValue.ToEntero
         End If
 
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
         If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
                                   Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
                                   DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
-                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
             dt = Reporte.DtResultados
 
 

From cea36490b8e5cdc232d5b05cfeac834322064772 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 17 Apr 2024 17:32:02 -0700
Subject: [PATCH 51/70] Formato IE impresion facturas, agregar prepoliza de IE

---
 .../Grales/Formatos/rptChequeMovimientos.rdlc | 1980 +++++++++++++++++
 1 file changed, 1980 insertions(+)
 create mode 100644 Empresas/Grales/Formatos/rptChequeMovimientos.rdlc

diff --git a/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc b/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc
new file mode 100644
index 000000000..22ac7bbe0
--- /dev/null
+++ b/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc
@@ -0,0 +1,1980 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+  <Body>
+    <ReportItems>
+      <Textbox Name="Cuenta">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!Cuenta.Value</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Cuenta</rd:DefaultName>
+        <Left>0.74936in</Left>
+        <Height>0.23622in</Height>
+        <Width>1in</Width>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Paguese">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!Paguese.Value</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Paguese</rd:DefaultName>
+        <Top>0.25011in</Top>
+        <Left>0.73547in</Left>
+        <Height>0.22233in</Height>
+        <Width>4.91481in</Width>
+        <ZIndex>1</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Importe">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>="&lt;b&gt;Importe: &lt;/b&gt;" &amp; FormatCurrency(Parameters!Importe.Value, 2) &amp; " " &amp;  Parameters!MonedaAbreviatura.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <Format>#,0.00;(#,0.00);'-'</Format>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Importe</rd:DefaultName>
+        <Top>0.264in</Top>
+        <Left>5.71972in</Left>
+        <Height>0.20844in</Height>
+        <Width>1.9609in</Width>
+        <ZIndex>2</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Observaciones">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!Observaciones.Value</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Observaciones</rd:DefaultName>
+        <Top>0.48633in</Top>
+        <Left>0.73547in</Left>
+        <Height>0.23622in</Height>
+        <Width>6.8993in</Width>
+        <ZIndex>3</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Tablix Name="Tablix2">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>2.57974cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>6.32386cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.08353cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.00257cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.29951cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.79499cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.18122cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.4677cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox19">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Factura</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox19</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox21">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Descripción</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox21</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox23">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>F. Factura</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox23</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox25">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Original</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox25</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox27">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Abonado</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox27</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox2">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>N.C</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox2</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Saldo</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox3</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SerieFolio">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SerieFolio.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SerieFolio</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Descripcion">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Descripcion.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Descripcion</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Fecha">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!FechaCompra.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>dd/MM/yyyy</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>FechaCompra</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Total">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Total.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Total</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Importe.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="ImporteNC">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Sum(Fields!ImporteNC.Value)</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>ImporteNC</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Saldo">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Saldo.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Saldo</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox30">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Total</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                            <TextRun>
+                              <Value>:</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox30</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <ColSpan>4</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+                <TablixCell />
+                <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe2">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=IiF(SUM(Fields!Importe.Value) &gt; 0, SUM(Fields!Importe.Value),0.00)</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe2</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox5">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Sum(Fields!ImporteNC.Value)</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox5</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox6">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Sum(Fields!Saldo.Value)</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>N2</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox6</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Details">
+                <GroupExpressions>
+                  <GroupExpression>=Fields!SerieFolio.Value</GroupExpression>
+                  <GroupExpression>=Fields!Descripcion.Value</GroupExpression>
+                  <GroupExpression>=Fields!FechaCompra.Value</GroupExpression>
+                  <GroupExpression>=Fields!Total.Value</GroupExpression>
+                  <GroupExpression>=Fields!Importe.Value</GroupExpression>
+                  <GroupExpression>=Fields!Saldo.Value</GroupExpression>
+                </GroupExpressions>
+              </Group>
+            </TablixMember>
+            <TablixMember>
+              <KeepWithGroup>Before</KeepWithGroup>
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <RepeatColumnHeaders>true</RepeatColumnHeaders>
+        <DataSetName>DataSet1</DataSetName>
+        <Top>2.18687cm</Top>
+        <Left>0.25413cm</Left>
+        <Height>1.6677cm</Height>
+        <Width>19.26542cm</Width>
+        <ZIndex>4</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+      <Textbox Name="Textbox36">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Cuenta:</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox36</rd:DefaultName>
+        <Left>0.22238cm</Left>
+        <Height>0.6cm</Height>
+        <Width>1.64572cm</Width>
+        <ZIndex>5</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox37">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Paguese:</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox36</rd:DefaultName>
+        <Top>0.6cm</Top>
+        <Left>0.22238cm</Left>
+        <Height>0.6cm</Height>
+        <Width>1.64572cm</Width>
+        <ZIndex>6</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox40">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Obs:</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox36</rd:DefaultName>
+        <Top>1.23528cm</Top>
+        <Left>0.22238cm</Left>
+        <Height>0.6cm</Height>
+        <Width>1.64572cm</Width>
+        <ZIndex>7</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Line Name="Line1">
+        <Top>2.03432cm</Top>
+        <Left>19.51955cm</Left>
+        <Height>0cm</Height>
+        <Width>-19.47588cm</Width>
+        <ZIndex>8</ZIndex>
+        <Style>
+          <Border>
+            <Color>Gray</Color>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
+      <Textbox Name="Textbox43">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>="&lt;b&gt; Folio: &lt;/b&gt;" &amp; Parameters!Folio.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox43</rd:DefaultName>
+        <Left>7.55254cm</Left>
+        <Height>0.6cm</Height>
+        <Width>5.23812cm</Width>
+        <ZIndex>9</ZIndex>
+        <ToolTip>="&lt;b&gt; Folio: &lt;/b&gt;" &amp; Parameters!Folio.Value</ToolTip>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Tablix Name="Tablix1">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>2.5cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.95074cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.5cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.52063cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox7">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Resumen Notas de Crédito</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox7</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <ColSpan>3</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+                <TablixCell />
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox4">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Factura</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox4</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox8">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Nota de Crédito</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox8</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox10">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Importe</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                                <Format>#,0.00</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox10</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>LightGrey</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SerieFolio1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SerieFolio.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SerieFolio1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SerieFolioNC">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SerieFolioNC.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SerieFolioNC</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Importe.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00;(#,0.00)</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe3</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox13">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Total:</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox13</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <ColSpan>2</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=SUM(Fields!Importe.Value)</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00;(#,0.00)</Format>
+                                <Language>Es-Mx</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Details1" />
+              <SortExpressions>
+                <SortExpression>
+                  <Value>=Fields!SerieFolio.Value</Value>
+                </SortExpression>
+              </SortExpressions>
+              <TablixMembers>
+                <TablixMember />
+              </TablixMembers>
+            </TablixMember>
+            <TablixMember>
+              <KeepWithGroup>Before</KeepWithGroup>
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <RepeatColumnHeaders>true</RepeatColumnHeaders>
+        <DataSetName>DataSet2</DataSetName>
+        <Top>4.20735cm</Top>
+        <Left>0.25413cm</Left>
+        <Height>2.32063cm</Height>
+        <Width>7.95074cm</Width>
+        <ZIndex>10</ZIndex>
+        <Visibility>
+          <Hidden>=iif(Sum(Fields!Importe.Value)&gt;0,false, true)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+      <Line Name="Line2">
+        <Top>6.70437cm</Top>
+        <Left>19.51955cm</Left>
+        <Height>0cm</Height>
+        <Width>-19.51955cm</Width>
+        <ZIndex>11</ZIndex>
+        <Style>
+          <Border>
+            <Color>Gray</Color>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
+      <Textbox Name="Textbox39">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Fecha:</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox36</rd:DefaultName>
+        <Top>0.0635cm</Top>
+        <Left>14.52104cm</Left>
+        <Height>0.6cm</Height>
+        <Width>1.30176cm</Width>
+        <ZIndex>12</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Cuenta2">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!Fecha.Value</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <Format>dd/MM/yyyy</Format>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Cuenta</rd:DefaultName>
+        <Top>0.0635cm</Top>
+        <Left>6.22945in</Left>
+        <Height>0.23622in</Height>
+        <Width>1.40532in</Width>
+        <ZIndex>13</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+    </ReportItems>
+    <Height>7.24235cm</Height>
+    <Style />
+  </Body>
+  <Width>19.51955cm</Width>
+  <Page>
+    <PageHeader>
+      <Height>2.46175cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox9">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!NombreEmpresa.Value</Value>
+                  <Style>
+                    <FontSize>12pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox1</rd:DefaultName>
+          <Top>0.3175cm</Top>
+          <Left>2.52765cm</Left>
+          <Height>0.6cm</Height>
+          <Width>14.40301cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox11">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>REPORTE DE PAGO DE MOVIMIENTOS</Value>
+                  <Style>
+                    <FontSize>10.5pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value />
+                  <Style>
+                    <FontSize>10.5pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox2</rd:DefaultName>
+          <Top>0.95278cm</Top>
+          <Left>2.52765cm</Left>
+          <Height>0.55591cm</Height>
+          <Width>14.40301cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Image Name="Logo">
+          <Source>External</Source>
+          <Value>=Parameters!LogoPath.Value</Value>
+          <Sizing>FitProportional</Sizing>
+          <Left>0.15522cm</Left>
+          <Height>2.22362cm</Height>
+          <Width>2.33715cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </Image>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageHeader>
+    <PageFooter>
+      <Height>0.52063cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox41">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>="Página " &amp; Globals.PageNumber &amp; " de " &amp; Globals.TotalPages</Value>
+                  <Style>
+                    <FontStyle>Italic</FontStyle>
+                    <FontFamily>verdana</FontFamily>
+                    <FontSize>7pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox41</rd:DefaultName>
+          <Top>0.01764cm</Top>
+          <Left>16.41607cm</Left>
+          <Height>0.48535cm</Height>
+          <Width>2.97625cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox12">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Usuario:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox8</rd:DefaultName>
+          <Top>0.01764cm</Top>
+          <Left>0.15522cm</Left>
+          <Height>0.50299cm</Height>
+          <Width>1.60042cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox14">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!UsuarioImprimio.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox9</rd:DefaultName>
+          <Top>0.01764cm</Top>
+          <Left>1.75564cm</Left>
+          <Height>0.48535cm</Height>
+          <Width>5.14936cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox16">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Fecha Impresión:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox10</rd:DefaultName>
+          <Top>0cm</Top>
+          <Left>7.44414cm</Left>
+          <Height>0.50299cm</Height>
+          <Width>2.87394cm</Width>
+          <ZIndex>3</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox17">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!FechaImpresion.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox11</rd:DefaultName>
+          <Top>0cm</Top>
+          <Left>10.31808cm</Left>
+          <Height>0.50299cm</Height>
+          <Width>4.58986cm</Width>
+          <ZIndex>4</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageFooter>
+    <PageHeight>27.94cm</PageHeight>
+    <PageWidth>21.59cm</PageWidth>
+    <LeftMargin>1cm</LeftMargin>
+    <RightMargin>1cm</RightMargin>
+    <TopMargin>1.5cm</TopMargin>
+    <BottomMargin>1.5cm</BottomMargin>
+    <ColumnSpacing>0.13cm</ColumnSpacing>
+    <Style />
+  </Page>
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DsBancos">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>c18b6686-bd84-460b-985a-bb3859af70bf</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DsBancos</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Folio">
+          <DataField>Folio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Descripcion">
+          <DataField>Descripcion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="FechaCompra">
+          <DataField>FechaCompra</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Total">
+          <DataField>Total</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="ImporteNC">
+          <DataField>ImporteNC</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Saldo">
+          <DataField>Saldo</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsBancos</rd:DataSetName>
+        <rd:SchemaPath>C:\inetpub\wwwVentas\App_Code\DsBancos.xsd</rd:SchemaPath>
+        <rd:TableName>DsCheque</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet2">
+      <Query>
+        <DataSourceName>DsBancos</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SerieFolioNC">
+          <DataField>SerieFolioNC</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Total">
+          <DataField>Total</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsBancos</rd:DataSetName>
+        <rd:SchemaPath>C:\inetpub\wwwVentas\App_Code\DsBancos.xsd</rd:SchemaPath>
+        <rd:TableName>DsCheque</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportParameters>
+    <ReportParameter Name="UsuarioImprimio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaImpresion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NombreEmpresa">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Cuenta">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Fecha">
+      <DataType>DateTime</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Paguese">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Importe">
+      <DataType>Float</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Observaciones">
+      <DataType>String</DataType>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Folio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="MonedaAbreviatura">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="LogoPath">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+  </ReportParameters>
+  <Variables>
+    <Variable Name="SumNC">
+      <Value>=5</Value>
+    </Variable>
+  </Variables>
+  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportID>806b374c-24e0-40bb-a805-d2a7038259c9</rd:ReportID>
+</Report>
\ No newline at end of file

From 9e2f6a6ccb75c3aa746c5bf8d087a22328e7f506 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 17 Apr 2024 17:50:39 -0700
Subject: [PATCH 52/70] Ajustes Kardex siguiente  siguiente PS con movimientos

---
 Inventarios/KardexAlmacen.aspx              |  4 +-
 Inventarios/KardexAlmacenHorizontal.aspx    | 44 ++++----------
 Inventarios/KardexAlmacenHorizontal.aspx.vb | 65 ---------------------
 Inventarios/RepEntradasSalidas.aspx         |  4 +-
 4 files changed, 15 insertions(+), 102 deletions(-)

diff --git a/Inventarios/KardexAlmacen.aspx b/Inventarios/KardexAlmacen.aspx
index 2970592c7..3c9358519 100644
--- a/Inventarios/KardexAlmacen.aspx
+++ b/Inventarios/KardexAlmacen.aspx
@@ -66,11 +66,11 @@
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <li>
-        <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+        <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-file-pdf-o"></i> Generar PDF</asp:LinkButton>
     </li>
 
       <li>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Generar Excel</asp:LinkButton>
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 08e57cd0d..770f57010 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -96,18 +96,17 @@
 
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <li>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Generar Excel</asp:LinkButton>
     </li>
     <asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
-            <ContentTemplate>
-    <li>        
-                <asp:LinkButton runat="server" ID="LnkProyectado" OnClick="LnkProyectado_Click" Text="Cargar Proyecciones" />            
-    </li>
-    
-                </ContentTemplate>
-        </asp:UpdatePanel>
-        <li>        
-                <asp:LinkButton runat="server" ID="LnkPOG" OnClick="LnkProyectado_Click" Visible="false"><i class="fa fa-ad-excel"></i> POG</asp:LinkButton>            
+        <ContentTemplate>
+            <li>                
+                <asp:LinkButton ID="LnkProyectado" runat="server" OnClick="LnkProyectado_Click"><i class="fa fa-upload"></i> Cargar Proyecciones</asp:LinkButton>                
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <li>
+        <asp:LinkButton runat="server" ID="LnkPOG" OnClick="LnkProyectado_Click" Visible="false"><i class="fa fa-file-excel-o"></i> POG</asp:LinkButton>
     </li>
 </asp:Content>
 
@@ -237,29 +236,8 @@
                             </asp:DropDownList>
                         </div>
                     </asp:Panel>
+           
 
-                         <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
-                          <div class="col-md-1">Código Inicio:</div>
-                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
-                          <div class="col-md-1">Código Fin:</div>
-                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>                       
-
-                          <div class="col-md-1" runat="server" id="DVNavegar"  >
-                         <div class="row">
-                             <div class="col-md-5">
-                                 <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
-                             </div>
-                             <div class="col-md-2">
-                             </div>
-                             <div class="col-md-5">
-                                 <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
-                             </div>
-                         </div>
-
-
-    </div>
-    
- </div>
                 </div>
 
                
@@ -329,7 +307,7 @@
                                 <asp:ListItem Text="Entrada" Value="1" Selected="True" />
                                 <asp:ListItem Text="Salida" Value="2" />
                             </asp:RadioButtonList>
-                            <asp:Button runat="server" ID="BtnDescargarFormato" OnClick="BtnDescargarFormato_Click" Text="Descargar formato" CssClass="btn btn-warning" />
+                            <asp:LinkButton runat="server" ID="BtnDescargarFormato" OnClick="BtnDescargarFormato_Click" CssClass="btn btn-warning" ><i class='fa fa-download' aria-hidden='true'></i> Descargar formato</asp:LinkButton>
                         </div>
                         <asp:Label runat="server" ID="Label1" Text="Subir Proyección:" Style="font-size: 15px" />
                         <br />
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 75a3dd999..61a191dec 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -38,10 +38,6 @@ Partial Class Inventarios_KardexAlmacenHorizontal
             If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
             ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
 
-            If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
-                DVFiltroCodigo.Visible = True
-            End If
-
         End If
     End Sub
     Private Sub CargaCombos()
@@ -534,65 +530,4 @@ Partial Class Inventarios_KardexAlmacenHorizontal
     End Sub
 
 
-
-
-    Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
-        NavegacionPS(Siguiente:=False)
-    End Sub
-
-    Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
-        NavegacionPS(Siguiente:=True)
-    End Sub
-    Private Sub NavegacionPS(Siguiente As Boolean)
-        Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
-
-        If Not CvePS > 0 Then
-            Exit Sub
-        End If
-        Dim dt As DataTable = New DataTable
-
-        Dim Entrada As Boolean = True
-        Dim Salida As Boolean = True
-
-        Dim FechaI As String = "-1"
-        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
-        Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
-        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
-        If CveAlmacenes.Contains(",") Then
-            CveAlmacen = -1
-        End If
-        If CvePS > 0 Then
-            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
-            If dr IsNot Nothing Then
-                ddlProducto2.SelectedText = dr("PSCodigo").ToString
-                ddlProducto2.SelectedValue = CvePS.ToString
-            End If
-
-        End If
-
-        Dim CveTiposAlmacen As String = "-1"
-
-
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
-        Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
-            dt = ObjInventarios.DtResultados.Copy
-        End If
-        ObjInventarios.Dispose()
-
-        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-            ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
-            ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
-            ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
-            ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
-            CargarKardex(dt.Rows(0)("CvePS").ToString.ToEntero)
-            UPFiltros.Update()
-
-        End If
-
-    End Sub
-
 End Class
diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx
index 170435582..bcba0f2df 100644
--- a/Inventarios/RepEntradasSalidas.aspx
+++ b/Inventarios/RepEntradasSalidas.aspx
@@ -11,11 +11,11 @@
         </li>
 
         <li>
-            <asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Excel Personalizado</asp:LinkButton>
+            <asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
         </li>
 
         <li>
-            <asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Generar Formato Inventario</asp:LinkButton>
+            <asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Generar Formato Inventario</asp:LinkButton>
         </li>
 
         <li>

From bd9cf87ea3795d2cd0e32b5e52736030c3d9cd5c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 Apr 2024 07:46:14 -0700
Subject: [PATCH 53/70] - cambios en RNC

---
 App_Code/ClsPaginas.vb             |  20 +-
 Compras/Compras.aspx.vb            | 383 +++++++++++------------------
 Compras/RepNotasCredito.aspx.vb    |   4 +-
 Contabilidad/RegPrePolizaS.aspx.vb |   2 +-
 4 files changed, 154 insertions(+), 255 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index f6868d9ec..616dc1d76 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -8863,7 +8863,7 @@ Public Class ClsPaginas
 
         Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
         'cuando el Pago viene por NC, se utiliza un concepto
-        If Pago.TipoPago.Contiene("NC", "DEV") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 304 Else ConPreP.CveConcepto = 272 'pago nota de crédito ME
+        If Pago.TipoPago.Contiene("NC", "DEV", "RNC") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 304 Else ConPreP.CveConcepto = 272 'pago nota de crédito ME
         'cuando el Pago viene por Venta, se utiliza un concepto
         'If Pago.TipoPago.Contiene("Venta") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 275 Else ConPreP.CveConcepto = 275 'Pago Compra con Venta
 
@@ -9163,24 +9163,6 @@ Public Class ClsPaginas
                     Ret.CveConceptoAcreditable = 333
                     Ret.CveConceptoxAcreditar = 334
                 End If
-                'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                '    Dim ObjConta As New ClsContabilidad
-                '    If UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero > 0 Then
-                '        Ret.IdCtaContablexAcreditar = UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero
-                '    Else
-                '        If ObjConta.GetRetCuenta(Ret.CveConceptoxAcreditar, UsuarioActual.CveEmpresa) Then
-                '            If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                '        End If
-                '    End If
-                '    If UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
-                '        Ret.IdCtaContableAcreditable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
-                '    Else
-                '        If ObjConta.GetRetCuenta(Ret.CveConceptoAcreditable, UsuarioActual.CveEmpresa) Then
-                '            If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                '        End If
-                '    End If
-                '    ObjConta.Dispose()
-                'End If
                 Return Ret
             End Get
         End Property
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ba963379c..837cd65fe 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1689,12 +1689,6 @@ Partial Class Compras_Compras
                 DdlTipoComprobante.Items.Add(New ListItem("Devolución", "DEV"))
                 DdlTipoComprobante.SelectedValueExist("DEV")
             End If
-
-            If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
-                DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "15"))
-            End If
-
-
         End If
 
         'SE OCUPAN AFUERA DEL POSTBACK ??
@@ -7013,56 +7007,31 @@ Partial Class Compras_Compras
                                                                 End If
                                                             End If
                                                         Next
+                                                        If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
 
+                                                            If DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 AndAlso ImporteRNCSaldar > 0 Then
 
-                                                        If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 AndAlso ImporteRNCSaldar > 0 Then
+                                                                If Not ErrorPrepoliza Then
+                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 373, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
+                                                                                                        CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
+                                                                        ErrorPrepoliza = True
+                                                                    End If
 
-                                                            'Dim importeMovimientoNC As Decimal = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
+                                                                    If Not ErrorPrepoliza Then
+                                                                        Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
 
-                                                            Dim Pago As New CompraPago
-                                                            Pago.ImportePago = ImporteRNCSaldar
-                                                            Pago.CveMonedaPago = CompraActual.CveMoneda
-                                                            Pago.CveCompraAmortizacion = CompraActual.CveCompra
-                                                            Pago.Referencia = CompraActual.SerieFolio
-                                                            Pago.TCPago = CompraActual.TC
-                                                            Pago.AplicaAcreditable = False
-                                                            Pago.TipoPago = "RNC"
-                                                            Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, ConPrePNC.CveConcepto, Referencia, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
+                                                                                                                CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
+                                                                            ErrorPrepoliza = True
+                                                                        End If
+                                                                    End If
+                                                                End If
+                                                            End If
 
-                                                            Dim CompraPago As New Compra
-                                                            ''datos de la compra tipodocto:Fac, para sobreescribirlos
-                                                            CompraPago.CveCompra = DdlRemisionNotaCredito.SelectedValue.ToEntero
-                                                            CompraPago.CveProveedor = DdlProveedor.SelectedValue.ToEntero
-                                                            CompraPago.SerieFolio = SerieFolioProntoPago
-                                                            CompraPago.TC = TipoCambioProntoPago
-                                                            CompraPago.Fecha = FechaProntoPago
-                                                            CompraPago.CveMoneda = CveMonedaProntoPago
-                                                            CompraPago.Total = ImporteRNCSaldar
-                                                            CompraPago.CveTipoConceptoProveedor = CveTipoConcepto
-                                                            CompraPago.CveSubProyecto = CompraActual.CveSubProyecto
-
-                                                            ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraPago, Pago, CvePrePoliza, ObjConta)
-
-                                                            'If Not ErrorPrepoliza Then
-                                                            '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, 371, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
-                                                            '                                        CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
-                                                            '        ErrorPrepoliza = True
-                                                            '    End If
-
-                                                            '    If Not ErrorPrepoliza Then
-                                                            '        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 372, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
-                                                            '                                                CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
-                                                            '            ErrorPrepoliza = True
-                                                            '        End If
-                                                            '    End If
-                                                            'End If
-
-
-                                                        End If
-
-                                                        If ErrorPrepoliza Then
-                                                            ErrorMovtosCxP = True
-                                                            Exit Select
+                                                            If ErrorPrepoliza Then
+                                                                ErrorMovtosCxP = True
+                                                                Exit Select
+                                                            End If
                                                         End If
 
                                                         importeMovimiento = 0
@@ -7627,8 +7596,8 @@ Partial Class Compras_Compras
                                     End If
 
 
-                                    If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso (ImporteRNC > 0 Or ImporteRNCProntoPago > 0) Then
-                                        If Not GeneraRemisionsNotadeCredito(ObjCompras.IniciaTransacSQL, CveCompra) Then
+                                    If UsuarioActual.Empresa.Funcionalidad(574) = "1" AndAlso (ImporteRNC > 0 Or ImporteRNCProntoPago > 0) Then
+                                        If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, ObjConta, CvePrePoliza) Then
                                             TieneError = True
                                         End If
                                     End If
@@ -14738,10 +14707,6 @@ Partial Class Compras_Compras
             IndexTmpOriginal += 1
         Next
 
-
-
-
-
         If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso (AjusteProntoPagoConIVA > 0 Or AjusteProntoPagoSinIVA > 0) Then
 
             Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
@@ -15680,6 +15645,13 @@ Partial Class Compras_Compras
             If DdlTipoComprobante.SelectedValue = "NC" Then
                 DivReembolso.Visible = False
                 RBLPago.Items(2).Enabled = False
+                If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
+                    If DdlTipoCompra.Items.FindByValue("15") Is Nothing Then
+                        DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "15"))
+                        UpEstatus.Update()
+                    End If
+
+                End If
             Else
                 DivReembolso.Visible = True
                 RBLPago.Items(2).Enabled = True
@@ -19540,20 +19512,18 @@ Partial Class Compras_Compras
 
             If DdlTipoComprobante.SelectedValue = "NC" Then
                 CargaDdlRemisionNotaCredito()
+                'bloquear la vinculación a la compra
+                HLAplicaNCFact.Visible = False
             Else
                 Alert("Para elegir Remisión de Nota de Crédito el tipo de documento debe de ser Nota de Crédito.", TipoMensaje.MsgAdvertencia)
                 DdlRemisionNotaCredito.SelectedValueExist(-1)
                 DdlTipoCompra.SelectedValueExist(-1)
             End If
-
-
         End If
 
-
     End Sub
 
 
-
 #End Region
 
 #Region "GARANTÍAS"
@@ -20867,7 +20837,7 @@ Partial Class Compras_Compras
 
 #Region "PRONTO PAGO"
 
-    Public Function GeneraRemisionsNotadeCredito(ByRef trasaccion As SqlTransaction, CveCompraRegistrada As Integer) As Boolean
+    Public Function GeneraRNC(ByRef sqltransaccion As SqlTransaction, CveCompraRegistrada As Integer, ByRef CompraActual As Compra, ByRef ObjConta As ClsContabilidad, CvePrePoliza As Integer) As Boolean
         Dim respuesta As Boolean = True
         Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
 
@@ -20890,20 +20860,20 @@ Partial Class Compras_Compras
 
         If PSRow IsNot Nothing Then
 
-            Dim CompraRNC As New ClsCompraManagerCompras("", ClsCompraManagerCompras.EnumCargaCompra.SinXML, GlobalDTTiposGastos(UsuarioActual.CveEmpresa), UsuarioActual)
-            CompraRNC.CveFactura = -1
-            CompraRNC.CveProveedor = DdlProveedor.SelectedValue.ToEntero
-            CompraRNC.CveTipoProveedor = CveTipoProveedor
-            CompraRNC.CveTipoConceptoProveedor = CveTipoConcepto
-            CompraRNC.TipoCompra = ClsCompraManagerCompras.EnumTipoCompra.Sin_definir
-            CompraRNC.IEPSGasto = False
-            CompraRNC.Descripcion = $"Remisión Nota de Crédito {TxtDescripcion.Text}"
-            CompraRNC.NombreProveedor = DdlProveedor.SelectedItem.Text
-            CompraRNC.Fecha = TxtFecha.Text.ToDate
-            CompraRNC.CveMoneda = DdlMoneda.SelectedValue.ToEntero
-            CompraRNC.Serie = TxtSerie.Text
-            CompraRNC.Folio = TxtFolio.Text
-            CompraRNC.CveCompraAmortizacion = CveCompraRegistrada
+            Dim CompraRNC As New ClsCompraManagerCompras(UsuarioActual) With {
+                .CveFactura = -1,
+                .TipoDocto = "RNC",
+                .CveProveedor = DdlProveedor.SelectedValue.ToEntero,
+                .CveTipoProveedor = CveTipoProveedor,
+                .CveTipoConceptoProveedor = CveTipoConcepto,
+                .Descripcion = $"Remisión Nota de Crédito {TxtDescripcion.Text}",
+                .NombreProveedor = DdlProveedor.SelectedItem.Text,
+                .Fecha = TxtFecha.Text.ToDate,
+                .CveMoneda = DdlMoneda.SelectedValue.ToEntero,
+                .Serie = TxtSerie.Text,
+                .Folio = TxtFolio.Text,
+                .CveCompraAmortizacion = CveCompraRegistrada
+            }
 
             Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
             If PSRow("CvePSCargo").ToString <> "" Then
@@ -20917,42 +20887,62 @@ Partial Class Compras_Compras
             Dim UM As String = PSRow("UnidadMedida").ToString
             Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
 
-
-            CompraRNC.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, (ImporteRNC + IVARNC), IVARNC)
-            If Not CompraRNC.AddCompraRNC(trasaccion) Then
+            CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, IVARNC, (ImporteRNC + IVARNC), PorcentajeIVA)
+            If CompraRNC.AddCompra(sqltransaccion) Then
+                Dim tImporteRNC = ImporteRNC + IVARNC ' le agrego el importe del iva
+                Dim Pago As New CompraPago
+                Pago.ImportePago = tImporteRNC
+                Pago.CveMonedaPago = CompraActual.CveMoneda
+                Pago.CveCompraAmortizacion = CompraRNC.CveCompra
+                Pago.Referencia = CompraRNC.SerieFolio
+                Pago.TCPago = CompraActual.TC
+                Pago.AplicaAcreditable = False
+                Pago.TipoPago = "RNC"
+                Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
+                respuesta = Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+            Else
                 respuesta = False
             End If
 
-            If respuesta Then
+            If respuesta AndAlso ImporteRNCProntoPago > 0 Then
 
-                Dim CompraRNCProntoPAgo As New ClsCompraManagerCompras("", ClsCompraManagerCompras.EnumCargaCompra.SinXML, GlobalDTTiposGastos(UsuarioActual.CveEmpresa), UsuarioActual)
-                CompraRNCProntoPAgo.CveFactura = -1
-                CompraRNCProntoPAgo.CveProveedor = DdlProveedor.SelectedValue.ToEntero
-                CompraRNCProntoPAgo.CveTipoProveedor = CveTipoProveedor
-                CompraRNCProntoPAgo.CveTipoConceptoProveedor = CveTipoConcepto
-                CompraRNCProntoPAgo.TipoCompra = ClsCompraManagerCompras.EnumTipoCompra.Sin_definir
-                CompraRNCProntoPAgo.IEPSGasto = False
-                CompraRNCProntoPAgo.Descripcion = $"Remisión Nota de Crédito {TxtDescripcion.Text}"
-                CompraRNCProntoPAgo.NombreProveedor = DdlProveedor.SelectedItem.Text
-                CompraRNCProntoPAgo.Fecha = TxtFecha.Text.ToDate
-                CompraRNCProntoPAgo.CveMoneda = DdlMoneda.SelectedValue.ToEntero
-                CompraRNCProntoPAgo.Serie = $"PP-{TxtSerie.Text}"
-                CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}"
-                CompraRNCProntoPAgo.CveCompraAmortizacion = CveCompraRegistrada
-                Dim IVARNCProntoPago As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
+                Dim CompraRNCProntoPago As New ClsCompraManagerCompras(UsuarioActual) With {
+                    .TipoDocto = "RNC",
+                    .CveProveedor = DdlProveedor.SelectedValue.ToEntero,
+                    .CveTipoProveedor = CveTipoProveedor,
+                    .CveTipoConceptoProveedor = CveTipoConcepto,
+                    .Descripcion = $"Remisión Nota de Crédito {TxtDescripcion.Text}",
+                    .NombreProveedor = DdlProveedor.SelectedItem.Text,
+                    .Fecha = TxtFecha.Text.ToDate,
+                    .CveMoneda = DdlMoneda.SelectedValue.ToEntero,
+                    .Serie = $"PP-{TxtSerie.Text}",
+                    .Folio = $"{TxtFolio.Text}",
+                    .CveCompraAmortizacion = CveCompraRegistrada
+                }
+                Dim IVARNCProntoPago As Decimal = (ImporteRNCProntoPago * PorcentajeIVA).RoundSQL(2)
 
-                CompraRNCProntoPAgo.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, (ImporteRNCProntoPago + IVARNCProntoPago), IVARNCProntoPago)
-                If Not CompraRNCProntoPAgo.AddCompraRNC(trasaccion) Then
+                CompraRNCProntoPago.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, (ImporteRNCProntoPago + IVARNCProntoPago), IVARNCProntoPago, PorcentajeIVA)
+                If CompraRNCProntoPago.AddCompra(sqltransaccion) Then
+                    Dim tImporteRNCProntoPago = ImporteRNCProntoPago + IVARNC ' le agrego el importe del iva
+                    Dim Pago As New CompraPago
+                    Pago.ImportePago = tImporteRNCProntoPago
+                    Pago.CveMonedaPago = CompraActual.CveMoneda
+                    Pago.CveCompraAmortizacion = CompraRNCProntoPago.CveCompra
+                    Pago.Referencia = CompraRNCProntoPago.SerieFolio
+                    Pago.TCPago = CompraActual.TC
+                    Pago.AplicaAcreditable = False
+                    Pago.TipoPago = "RNC"
+                    Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
+                    respuesta = Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+                Else
                     respuesta = False
                 End If
-
             End If
         End If
 
         Return respuesta
     End Function
 
-
     Public Property VincularOcProntoPago As Boolean
         Get
             If ViewState("VincularOcProntoPago") Is Nothing Then
@@ -20970,12 +20960,11 @@ Partial Class Compras_Compras
         If VincularOcProntoPago Then
             Return True
         Else
-
+            Dim StrMsg As String = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra. <br/> Se generaran Remisiones de Nota de Crédito. <br/> - Descuento de ${ImporteRNC.ToString("###,###,###.00")}.<br/>"
             If ImporteRNCProntoPago > 0 Then
-                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra. <br/> Se generaran las siguientes Remisiones de Nota de Crédito. <br/> - Descuento de ${ImporteRNC.ToString("###,###,###.00")}.<br/> - Pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
-            Else
-                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generara una Remision de Nota de Crédito por descuento de ${ImporteRNC.ToString("###,###,###.00")}"
+                StrMsg = StrMsg & $"- Pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
             End If
+            LblModalConfirmaVinculacionProntoPago.Text = StrMsg
 
             RegistraScript("$('#DVModalConfirmaVinculacionProntoPago').modal('show');")
             UpModalConfirmaVinculacionProntoPago.Update()
@@ -21002,15 +20991,12 @@ Partial Class Compras_Compras
         If ObjCompras.GetNotasCreditoRep(DdlProveedor.SelectedValue.ToEntero, 0, "-1", "-1", UsuarioActual.CveEmpresa, 2) Then
             DdlRemisionNotaCredito.DataSource = ObjCompras.DtResultados
             DTRemisionesNotaDeCredito = ObjCompras.DtResultados
-        Else
-            Alert("Ocurrió un error al obtener el catálogo de Notas de Crédito", Extensiones.TipoMensaje.MsgError)
         End If
 
         ObjCompras.Dispose()
 
         DdlRemisionNotaCredito.DataBind()
         DdlRemisionNotaCredito.Items.Insert(0, New ListItem("-", "-1"))
-
         UpEstatus.Update()
 
     End Sub
@@ -21069,11 +21055,11 @@ Public Class ClsCompraManagerCompras
     End Enum
     Public Enum EnumCFDIVersion
         v32
-        V33
-        V40
+        v33
+        v40
     End Enum
     Public Enum EnumTipoCompra
-        Sin_definir = -1
+        SinDefinir = -1
         Gasto_con_almacen = 10
         Activo_Fijo = 1
         'Costo_Indirecto = 2
@@ -21112,7 +21098,7 @@ Public Class ClsCompraManagerCompras
     Public Property Folio As String = ""
     Public Property FolioSecundario As String = ""
     Public Property Descripcion As String = ""
-    Public Property CFDIVersion As EnumCFDIVersion = EnumCFDIVersion.V40
+    Public Property CFDIVersion As EnumCFDIVersion = EnumCFDIVersion.v40
     Public Property ProveedorNombre As String = ""
     Public Property EsImportacion As Boolean = False
     Public Property TC As Decimal = 1
@@ -21122,6 +21108,7 @@ Public Class ClsCompraManagerCompras
     Public Property Total As Decimal = 0D
     Public Property Moneda As String = ""
     Public Property TipoComprobante As String
+    Public Property TipoDocto As String = "Fac"
     Public Property TipoCambio As Decimal = 1
     Public Property CompraNoDeducible As Integer = 0
     Public Property IVA As Decimal = 0D
@@ -21269,7 +21256,7 @@ Public Class ClsCompraManagerCompras
     Public Property Proyecto As String = ""
     Public Property CveProyecto As Integer = -1
     Public Property SubProyecto As String = ""
-    Public Property TipoCompra As EnumTipoCompra = EnumTipoCompra.Sin_definir
+    Public Property TipoCompra As EnumTipoCompra = EnumTipoCompra.SinDefinir
     Private Property DTTiposGastos() As DataTable
     Public Property CveTipoProveedor As Integer = -1
     Public Property IEPSGasto As Boolean = False
@@ -21282,14 +21269,19 @@ Public Class ClsCompraManagerCompras
     Public Property CveIE As Integer = -1
     Public Property CveCompraAmortizacion As Integer = -1
 
-    Public Sub New(XmlFuente As String, OpcionCarga As EnumCargaCompra, DTTiposGastos As DataTable, UsuarioActual As Usuario)
+    Public Sub New(UsuarioActual As Usuario)
 
         Errores = New StringBuilder
 
-        Me.DTTiposGastos = DTTiposGastos
         Me.UsuarioActual = UsuarioActual
 
+    End Sub
 
+    Public Sub New(XmlFuente As String, OpcionCarga As EnumCargaCompra, DTTiposGastos As DataTable, UsuarioActual As Usuario)
+
+        Errores = New StringBuilder
+        Me.DTTiposGastos = DTTiposGastos
+        Me.UsuarioActual = UsuarioActual
 
         If OpcionCarga = EnumCargaCompra.SinXML Then
 
@@ -21300,11 +21292,10 @@ Public Class ClsCompraManagerCompras
                 CargaDesdeString(XmlFuente)
             End If
         End If
-
-
-
     End Sub
 
+#Region "C  A  R  G  A  S    D E    F U E N T E S  "
+
     Private Sub CargaDesdeArchivo(XmlFuenteRuta As String)
 
         Dim XMLDoc As New XmlDocument
@@ -21350,7 +21341,6 @@ Public Class ClsCompraManagerCompras
         End If
 
     End Sub
-
     Private Sub CargaComprobanteXML(XMLDoc As XmlDocument)
         Dim nodo As XmlNode = XMLDoc.DocumentElement
 
@@ -21361,9 +21351,9 @@ Public Class ClsCompraManagerCompras
         If StrCFDIVerion = "3.2" Then
             CFDIVersion = EnumCFDIVersion.v32
         ElseIf StrCFDIVerion = "3.3" Then
-            CFDIVersion = EnumCFDIVersion.V33
+            CFDIVersion = EnumCFDIVersion.v33
         ElseIf StrCFDIVerion = "4.0" Then
-            CFDIVersion = EnumCFDIVersion.V40
+            CFDIVersion = EnumCFDIVersion.v40
         Else
             GuardaLog($"CFDI Versión {StrCFDIVerion} no soportada")
             Errores.AppendLine($"CFDI Versión {StrCFDIVerion} no soportada")
@@ -21389,7 +21379,7 @@ Public Class ClsCompraManagerCompras
         TipoComprobante = ValorXML(nodo, "tipoDeComprobante")
         TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDecimal
 
-        If CFDIVersion = EnumCFDIVersion.V33 Or CFDIVersion = EnumCFDIVersion.V40 Then
+        If CFDIVersion = EnumCFDIVersion.v33 Or CFDIVersion = EnumCFDIVersion.v40 Then
             Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
             If drm IsNot Nothing Then
                 CveMetodoPago = drm("CveMetodoPago").ToString.ToEntero
@@ -21404,7 +21394,7 @@ Public Class ClsCompraManagerCompras
         If CFDIVersion = EnumCFDIVersion.v32 Then
             Prefijo = "cfd"
             cfdVer = "http://www.sat.gob.mx/cfd/2"
-        ElseIf CFDIVersion = EnumCFDIVersion.V33 Then
+        ElseIf CFDIVersion = EnumCFDIVersion.v33 Then
             cfdVer = "http://www.sat.gob.mx/cfd/3"
         Else ' se considera que es la version 4.0
             cfdVer = "http://www.sat.gob.mx/cfd/4"
@@ -21415,7 +21405,7 @@ Public Class ClsCompraManagerCompras
         namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
         namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
 
-        If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.V33 OrElse CFDIVersion = EnumCFDIVersion.V40) Then
+        If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40) Then
             Dim UUIDS As String = ""
 
             Dim UUIDSLista As New List(Of String)
@@ -21465,7 +21455,7 @@ Public Class ClsCompraManagerCompras
 
             TotalRetenciones = ValorXML(node, "totalImpuestosRetenidos", "0").ToDecimal
 
-            If CFDIVersion = EnumCFDIVersion.V33 OrElse CFDIVersion = EnumCFDIVersion.V40 Then
+            If CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40 Then
 
                 For Each retencion As XmlNode In nodeRetenciones
                     If retencion.Attributes("Impuesto").Value = "002" Then RetencionIVA += retencion.Attributes("Importe").Value.ToDecimal
@@ -21485,7 +21475,7 @@ Public Class ClsCompraManagerCompras
             TotalTraslados = ValorXML(node, "totalImpuestosTrasladados", "0").ToDecimal
             Dim nodeTraslados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces)
 
-            If CFDIVersion = EnumCFDIVersion.V33 OrElse CFDIVersion = EnumCFDIVersion.V40 Then
+            If CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40 Then
 
                 For Each traslado As XmlNode In nodeTraslados
 
@@ -21586,7 +21576,7 @@ Public Class ClsCompraManagerCompras
 
         ObjeFacturas.Dispose()
 
-        If CFDIVersion = EnumCFDIVersion.V33 OrElse CFDIVersion = EnumCFDIVersion.V40 Then
+        If CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40 Then
             If Not TmpDT.Columns.Contains("Amortizacion") Then
                 TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
             End If
@@ -21599,6 +21589,8 @@ Public Class ClsCompraManagerCompras
 #End Region
     End Sub
 
+#End Region
+
     Public Function ConfiguraRegistroRapidoReembolso(CvePS As Integer, CveSubProyecto As Integer, CveCajaChica As Integer, CvePersonal As Integer, CveRetIVAConcepto As Integer, CveRetISRConcepto As Integer, NumeroReembolso As String) As Boolean
 
         Dim respuesta As Boolean = True
@@ -21645,8 +21637,8 @@ Public Class ClsCompraManagerCompras
         Return respuesta
 
     End Function
-    Public Function ConfiguraRegistroRapidoRNC(CvePS As Integer, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, PS As String, CveSubProyecto As Integer, SubProyecto As String,
-                                               SubTotal As Decimal, Total As Decimal, IVA As Decimal) As Boolean
+    Public Function ConfiguraRegistroRapido(CvePS As Integer, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, PS As String, CveSubProyecto As Integer, SubProyecto As String,
+                                               SubTotal As Decimal, IVA As Decimal, Total As Decimal, PorcentajeIVA As Decimal) As Boolean
 
         Dim respuesta As Boolean = True
         Me.CveSubProyecto = CveSubProyecto
@@ -21660,7 +21652,7 @@ Public Class ClsCompraManagerCompras
         Me.SubTotal = SubTotal
         Me.IVA = IVA
         Me.Total = Total
-
+        Me.PorcentajeIVA = PorcentajeIVA
 
         Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
 
@@ -21673,9 +21665,8 @@ Public Class ClsCompraManagerCompras
             Return False
         End If
 
-
         CreaDTCompras()
-        AddPS(1, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, 1, CveSubProyecto.ToString, SubProyecto, "", "-1", "", SubTotal, SubTotal, 0, 0, 0, 0, 0, 0)
+        AddPS(1, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, 1, CveSubProyecto.ToString, SubProyecto, "", "-1", "", SubTotal, Total, 0, 0, 0, 0, 0, 0, PorcentajeIVA:=PorcentajeIVA)
 
         'If respuesta AndAlso IEPS > 0 Then
         '    If Not AgregaIEPSReembolso(CvePS:=CvePS) Then
@@ -22543,16 +22534,16 @@ Public Class ClsCompraManagerCompras
                 Row("IVA") = 0
                 Row("IVAPorcentaje") = 0
             Else
-                Row("IVA") = (IVA * Total).RoundSQL
-                Row("IVAPorcentaje") = IVA
+                Row("IVA") = (PorcentajeIVA * Total).RoundSQL
+                Row("IVAPorcentaje") = PorcentajeIVA
             End If
 
-            Row("RetIVA") = (RetIVA * Total).RoundSQL
-            Row("RetIVAPorcentaje") = RetIVA
-            Row("RetISR") = (RetISR * Total).RoundSQL
-            Row("RetISRPorcentaje") = RetISR
-            Row("IEPSPS") = (IEPSPS * Total).RoundSQL
-            Row("IEPSPSPorcentaje") = IEPSPS
+            Row("RetIVA") = (PorcentajeRetIVA * Total).RoundSQL
+            Row("RetIVAPorcentaje") = PorcentajeRetIVA
+            Row("RetISR") = (PorcentajeRetISR * Total).RoundSQL
+            Row("RetISRPorcentaje") = PorcentajeRetISR
+            Row("IEPSPS") = (PorcentajeIEPS * Total).RoundSQL
+            Row("IEPSPSPorcentaje") = PorcentajeIEPS
         End If
 
         Row("ImporteConImpuestos") = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) + Row("IVA").ToString.ToDecimal + Row("IEPSPS").ToString.ToDecimal - (Row("RetIVA").ToString.ToDecimal + Row("RetISR").ToString.ToDecimal)
@@ -22877,19 +22868,25 @@ Public Class ClsCompraManagerCompras
         End If
     End Function
 
-    Public Function AddCompra() As Boolean
+    Public Function AddCompra(Optional ByRef transacccion As SqlTransaction = Nothing) As Boolean
 
         If Not AjustesValidacion() Then Return False
 
         Dim respuesta As Boolean = True
-        Dim ObjCompras As New ClsCompras
+        Dim ObjCompras As ClsCompras
+
+        If transacccion IsNot Nothing Then
+            ObjCompras = New ClsCompras(transacccion)
+        Else
+            ObjCompras = New ClsCompras
+        End If
         Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
 
         If Not AddPrepolizaCabecera(ObjConta) Then
             respuesta = False
         End If
 
-        If respuesta AndAlso ObjCompras.AddCompra(If(Me.TipoComprobante = "I", "Fac", "NC"), Me.Descripcion, Me.Serie, Me.Folio, Me.FolioSecundario, Me.CveProveedor, Me.SubTotal, Me.Descuento,
+        If respuesta AndAlso ObjCompras.AddCompra(Me.TipoDocto, Me.Descripcion, Me.Serie, Me.Folio, Me.FolioSecundario, Me.CveProveedor, Me.SubTotal, Me.Descuento,
                           Me.Amortizacion, Me.IVA, Me.RetIVA, Me.RetISR, Me.IEPS, Me.OtrosImpuestos,
                           Me.Redondeo, Me.Total, Me.Fecha, Me.CveMoneda, Me.TipoCambio, If(Me.FechaPago = Nothing, Me.Fecha, Me.FechaPago), Me.AplicaNotaCredito, Me.Observaciones, Me.CveEstatusFactura,
                           Me.CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.IdPoliza, CveCajaChica:=Me.CveCajaChica, CvePersonal:=Me.CvePersonal, NumeroReembolso:=Me.NumeroReembolso, CveProveedorSucursal:=Me.CveProveedorSucursal,
@@ -22940,111 +22937,31 @@ Public Class ClsCompraManagerCompras
             End If
         End If
 
-        If respuesta Then
+        If respuesta AndAlso Me.CveFactura > 0 Then
             If Not ObjCompras.UpdateCompraFactura(Me.CveCompra, Me.CveFactura, Me.Serie, Me.Folio) Then respuesta = False
         End If
 
-        If respuesta Then
-            ObjCompras.Commit()
-        Else
-            ObjCompras.RollBack()
-        End If
-
-        ObjCompras.Dispose()
-        ObjConta.Dispose()
-
-        Return respuesta
-    End Function
-
-
-    Public Function AddCompraRNC(ByRef transacccion As SqlTransaction) As Boolean
-
-        If Not AjustesValidacion() Then Return False
-
-        Dim respuesta As Boolean = True
-        Dim ObjCompras As New ClsCompras(transacccion)
-        Dim ObjConta As New ClsContabilidad(transacccion)
-
-        If Not AddPrepolizaCabecera(ObjConta) Then
-            respuesta = False
-        End If
-
-        If respuesta AndAlso ObjCompras.AddCompra("RNC", Me.Descripcion, Me.Serie, Me.Folio, Me.FolioSecundario, Me.CveProveedor, Me.SubTotal, Me.Descuento,
-                          Me.Amortizacion, Me.IVA, Me.RetIVA, Me.RetISR, Me.IEPS, Me.OtrosImpuestos,
-                          Me.Redondeo, Me.Total, Me.Fecha, Me.CveMoneda, Me.TipoCambio, If(Me.FechaPago = Nothing, Me.Fecha, Me.FechaPago), Me.AplicaNotaCredito, Me.Observaciones, Me.CveEstatusFactura,
-                          Me.CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.IdPoliza, CveCajaChica:=Me.CveCajaChica, CvePersonal:=Me.CvePersonal, NumeroReembolso:=Me.NumeroReembolso, CveProveedorSucursal:=Me.CveProveedorSucursal,
-                          AplicoPromocion:=Me.AplicoPromocion, PorcentajeIVA:=Me.PorcentajeIVA, CveMetodoPago:=Me.CveMetodoPago, CveRetIVAConcepto:=Me.CveRetIVAConcepto,
-                          CveConceptoContableAlmacen:=Me.CveConceptoContableAlmacen,
-                          CveRetISRConcepto:=Me.CveRetISRConcepto, NoDeducible:=Me.NoDeducible, CveTipoCompra:=Me.CveTipoCompra, TotalOriginal:=Me.TotalOriginal, CveTipoConcepto:=Me.CveTipoConcepto,
-                          EsImportacion:=Me.EsImportacion, CveFactura:=Me.CveFactura, CveSubProyecto:=Me.CveSubProyectoPrincipal, DoctosRelacionados:=Me.DocumentosRelacionadosUUIDSString, CveFolioGarantia:=Me.CveFolioGarantia) Then
-            Me.CveCompra = ObjCompras.CveCompra
-        Else
-            respuesta = False
-        End If
-
-        If respuesta AndAlso Me.CveCompra > 0 Then
-
-            For Each Row As DataRow In Me.TmpDT.Rows
-
-                Dim TipoRecepcion As Integer = -1
-                Dim Referencia As String = ""
-                Dim EsNoDeducible As Boolean = False
-                Dim CveAF As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1)
-                Dim CveAFC As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
-
-                If Not ObjCompras.AddCompraDetalle(Me.CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
-                                                                    Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal, Row("Descuento").ToString.ToDecimal,
-                                                                    Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
-                                                                    AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
-                                                                    CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
-                                                                    RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal,
-                                                                    IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal,
-                                                                    IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
-                                                                    CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero, CveActivoFijoCompra:=CveAFC) Then
-
-                    respuesta = False
-                    Exit For
-                End If
-            Next
-        End If
-
-        If respuesta Then
-            If Not AddPrePolizaDetalles(ObjConta, True) Then respuesta = False
-        End If
-
-        If respuesta AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 4) Then
-            If ObjConta.ValorPolizaDescuadre > 0 Then
-                Errores.AppendLine($"Compras/RNC | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}.")
-                GuardaLogAD($"Compras/RNC | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                respuesta = False
+        If transacccion Is Nothing Then 'SINO VIENE DE UNA TRANSACCIÓN
+            If respuesta Then
+                ObjCompras.Commit()
+            Else
+                ObjCompras.RollBack()
             End If
+            ObjCompras.Dispose()
+            ObjConta.Dispose()
         End If
 
-        'If respuesta Then
-        '    If Not ObjCompras.UpdateCompraFactura(Me.CveCompra, Me.CveFactura, Me.Serie, Me.Folio) Then respuesta = False
-        'End If
-
-        'If respuesta Then
-        '    ObjCompras.Commit()
-        'Else
-        '    ObjCompras.RollBack()
-        'End If
-
-        'ObjCompras.Dispose()
-        'ObjConta.Dispose()
-
         Return respuesta
     End Function
 
-
-    Private Function AddPrepolizaCabecera(ByRef ObjConta As ClsContabilidad, Optional ES_RNC As Boolean = False) As Boolean
+    Private Function AddPrePolizaCabecera(ByRef ObjConta As ClsContabilidad) As Boolean
 
         Dim respuesta As Boolean = False
 
         Dim ConceptoPoliza As String = String.Format("{0} - {1} - {2}", NombreProveedor, SerieFolio, "")
         Dim Modulo As String = "eFacturas/Registrar"
 
-        If ES_RNC Then
+        If Me.TipoDocto = "RNC" Then
             ConceptoPoliza = String.Format("{0} - {1} - {2}", NombreProveedor, SerieFolio, "")
             Modulo = "Compras/RNC"
         End If
@@ -23060,7 +22977,7 @@ Public Class ClsCompraManagerCompras
         Dim Concepto As String = $"{Me.NombreProveedor} {Me.SerieFolio}"
         Dim Referencia As String = Me.SerieFolio
 
-        If ES_RNC Then
+        If TipoDocto = "RNC" Then
 
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Me.Total, Me.Total, 370, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Me.CveCompraAmortizacion, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
                                                         CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
@@ -23108,7 +23025,7 @@ Public Class ClsCompraManagerCompras
             If respuesta AndAlso Me.IEPS > 0 Then
                 importeMovimiento = Me.IEPS
                 importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 25, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 25, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
                     respuesta = False
                 End If
             End If
diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb
index 286f7dc18..ed89558d0 100644
--- a/Compras/RepNotasCredito.aspx.vb
+++ b/Compras/RepNotasCredito.aspx.vb
@@ -58,7 +58,7 @@ Partial Class Compras_RepNotasCredito
         If Tab.ActiveTabIndex = 0 Then
             CargaDatos()
         Else
-            CargaDatosRemisiones()
+            CargaDatosRNC()
         End If
 
     End Sub
@@ -142,7 +142,7 @@ Partial Class Compras_RepNotasCredito
 
 
 #Region "REMISIONES"
-    Private Sub CargaDatosRemisiones()
+    Private Sub CargaDatosRNC()
         DtDatosRemisiones = New DataTable
         GvRemisiones.DataSource = Nothing
         Dim ObjCompras As New ClsCompras
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index a78088c73..d3f7770d9 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -554,7 +554,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
             If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
-            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288, 370, 371, 372) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
+            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288, 370, 371, 372, 373) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
             If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 

From 3cb862b8227524e1b50d32ca8977b332a8f90ab8 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 18 Apr 2024 18:25:14 -0700
Subject: [PATCH 54/70] --FIX Folios de refacturacion

---
 Ventas/Ventas.aspx.vb | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 486b8be33..097e8aec3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7214,10 +7214,14 @@ Partial Class Ventas
                 If Opcion = "Cot" Then
                     DdlTipoComprobante.SelectedValueExist("Cot")
                 Else
-                    If Not String.IsNullOrEmpty(UsuarioActual.CveTipoDocumento) Then
-                        DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
-                        DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, Nothing)
+                    'SI ES REFACTURACION NO DEBE CAMBIAR EL TIPÖ DOCTO
+                    If Not (Request("NuevaFactura") IsNot Nothing AndAlso Request("NuevaFactura").ToString() = "1") Then
+                        If Not String.IsNullOrEmpty(UsuarioActual.CveTipoDocumento) Then
+                            DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+                            DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, Nothing)
+                        End If
                     End If
+
                 End If
             End If
         End If

From 0b7b21c1f4e2a285b2abf2935b4602da2f516c85 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 18 Apr 2024 19:16:33 -0700
Subject: [PATCH 55/70] --FIX no cambiar a credito al seleccionar remisiones
 desde facturacion de remisiones

---
 Ventas/Ventas.aspx.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 097e8aec3..0706e5dba 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -32178,8 +32178,12 @@ Partial Class Ventas
                 HdnIVAOriginal.Value = TxtIVA.Text
             End If
 
-            RBLPago.Items(0).Enabled = True 'sino está activo lo activamos porque las remisiones pueden ser a crédito
-            RBLPago.SelectedValue = "1"
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                RBLPago.SelectedValuesIfExist(dtSeleccionadas.FiltroPrimeroValor("CondicionesPago"))
+            Else
+                RBLPago.Items(0).Enabled = True 'sino está activo lo activamos porque las remisiones pueden ser a crédito
+                RBLPago.SelectedValue = "1"
+            End If
 
             RemisionesLista.Clear()
 

From cff37448245627b9d1138f63f80edc3a4686c290 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 Apr 2024 19:43:17 -0700
Subject: [PATCH 56/70] =?UTF-8?q?--=20preparaci=C3=B3n=20para=20cambio=20e?=
 =?UTF-8?q?n=20redireccionamiento=20sobre=20la=20base=20de=20datos.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsAC.vb                             |  2 +-
 App_Code/ClsAF.vb                             |  2 +-
 App_Code/ClsAIMMGM.vb                         |  2 +-
 App_Code/ClsAcarreos.vb                       |  2 +-
 App_Code/ClsBancos.vb                         |  2 +-
 App_Code/ClsBase.vb                           |  6 ++--
 App_Code/ClsCGame.vb                          |  2 +-
 App_Code/ClsCRM.vb                            |  2 +-
 App_Code/ClsClaseBase.vb                      |  2 +-
 App_Code/ClsClasificaciones.vb                |  2 +-
 App_Code/ClsClientes.vb                       |  2 +-
 App_Code/ClsCompEstatusFactura.vb             |  2 +-
 App_Code/ClsCompProveedores.vb                |  2 +-
 App_Code/ClsCompras.vb                        |  2 +-
 App_Code/ClsContabilidad.vb                   |  2 +-
 App_Code/ClsContratos.vb                      |  2 +-
 App_Code/ClsDesarrollo.vb                     |  2 +-
 App_Code/ClsEdoc.vb                           |  2 +-
 App_Code/ClsEdocumentacion.vb                 |  2 +-
 App_Code/ClsEncuestas.vb                      |  2 +-
 App_Code/ClsEsquemasComisiones.vb             |  2 +-
 App_Code/ClsEstatusFactura.vb                 |  2 +-
 App_Code/ClsEventos.vb                        |  2 +-
 App_Code/ClsFISConfiguracion.vb               |  2 +-
 App_Code/ClsFinanzas.vb                       |  2 +-
 App_Code/ClsFlotillas.vb                      |  2 +-
 App_Code/ClsGPS.vb                            |  2 +-
 App_Code/ClsGPSHerramientas.vb                |  2 +-
 App_Code/ClsGenerales.vb                      |  2 +-
 App_Code/ClsGralFolios.vb                     |  2 +-
 ...lsGralProductosServiciosCaracteristicas.vb |  2 +-
 App_Code/ClsImpuestos.vb                      |  2 +-
 App_Code/ClsIndicadores.vb                    |  2 +-
 App_Code/ClsInventarios.vb                    |  2 +-
 App_Code/ClsLeyendasFiscales.vb               |  2 +-
 App_Code/ClsMF.vb                             |  2 +-
 App_Code/ClsMetodosPagos.vb                   | 30 +++++++++----------
 App_Code/ClsModulos.vb                        |  2 +-
 App_Code/ClsMonedas.vb                        |  2 +-
 App_Code/ClsMovimientos.vb                    |  2 +-
 App_Code/ClsNominas.vb                        |  4 +--
 App_Code/ClsOC.vb                             |  2 +-
 App_Code/ClsOIEventos.vb                      |  2 +-
 App_Code/ClsOS.vb                             |  2 +-
 App_Code/ClsPV.vb                             |  2 +-
 App_Code/ClsPaginas.vb                        | 18 +++++++++--
 App_Code/ClsPresupuestos.vb                   |  2 +-
 App_Code/ClsProductosServicios.vb             |  4 +--
 App_Code/ClsProsEncuestas.vb                  |  2 +-
 App_Code/ClsProspectos.vb                     |  2 +-
 App_Code/ClsProyectos.vb                      |  2 +-
 App_Code/ClsPruebasJJMQ.vb                    |  2 +-
 App_Code/ClsPuntoVenta.vb                     |  2 +-
 App_Code/ClsRH.vb                             |  2 +-
 App_Code/ClsRMA.vb                            |  2 +-
 App_Code/ClsRutas.vb                          |  2 +-
 App_Code/ClsSAT.vb                            |  2 +-
 App_Code/ClsSCTLicencias.vb                   |  4 +--
 App_Code/ClsSeguimiento.vb                    |  2 +-
 App_Code/ClsSisEmpresas.vb                    |  4 +--
 App_Code/ClsSisNotificaciones.vb              |  2 +-
 App_Code/ClsSisParametros.vb                  |  2 +-
 App_Code/ClsSisProcesos.vb                    |  2 +-
 App_Code/ClsSisRoles.vb                       |  2 +-
 App_Code/ClsSisUsuarios.vb                    |  6 ++--
 App_Code/ClsStiReports.vb                     |  2 +-
 App_Code/ClsSubProyectos.vb                   |  2 +-
 App_Code/ClsSucursales.vb                     |  2 +-
 App_Code/ClsSucursales.vb.exclude             |  2 +-
 App_Code/ClsTemporal.vb                       |  2 +-
 App_Code/ClsTiposEventos.vb                   |  2 +-
 App_Code/ClsUnidadesMedida.vb                 |  4 +--
 App_Code/ClsVentas.vb                         | 22 ++++++++++++--
 App_Code/ClsVtaPromociones.vb                 |  2 +-
 App_Code/ClsVtaVendedores.vb                  |  4 +--
 App_Code/Empresa.vb                           |  1 +
 LogIn.aspx.vb                                 | 13 ++++----
 MQ/ClsAF.vb                                   |  2 +-
 78 files changed, 141 insertions(+), 109 deletions(-)

diff --git a/App_Code/ClsAC.vb b/App_Code/ClsAC.vb
index 7cfe17261..947830fc4 100644
--- a/App_Code/ClsAC.vb
+++ b/App_Code/ClsAC.vb
@@ -41,7 +41,7 @@ Public Class ClsAC
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb
index a1197aa13..eb935027b 100644
--- a/App_Code/ClsAF.vb
+++ b/App_Code/ClsAF.vb
@@ -100,7 +100,7 @@ Public Class ClsAF
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsAIMMGM.vb b/App_Code/ClsAIMMGM.vb
index 70a4b2ddb..e3521eb2a 100644
--- a/App_Code/ClsAIMMGM.vb
+++ b/App_Code/ClsAIMMGM.vb
@@ -50,7 +50,7 @@ Public Class ClsAIMMGM
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
             SqlCommand = New SqlCommand("", SqlConexion)
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb
index e192b5e48..447932c3b 100644
--- a/App_Code/ClsAcarreos.vb
+++ b/App_Code/ClsAcarreos.vb
@@ -35,7 +35,7 @@ Public Class ClsAcarreos
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 871e4c4b8..9e1e30aa8 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -176,7 +176,7 @@ Public Class ClsBancos
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsBase.vb b/App_Code/ClsBase.vb
index 88069ab6c..4092ccec9 100644
--- a/App_Code/ClsBase.vb
+++ b/App_Code/ClsBase.vb
@@ -35,7 +35,7 @@ Public Class ClsBase
         SqlConexion = New SqlConnection
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         sqlCommand = New SqlCommand("", SqlConexion)
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         Try
             SqlConexion.Open()
         Catch ex As Exception
@@ -48,11 +48,11 @@ Public Class ClsBase
 
         If SqlConexion Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         End If
 
         If SqlConexion.ConnectionString = "" Then
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         End If
 
         If SqlConexion.State <> ConnectionState.Open Then
diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb
index bea872334..753dfe152 100644
--- a/App_Code/ClsCGame.vb
+++ b/App_Code/ClsCGame.vb
@@ -49,7 +49,7 @@ Public Class ClsCGame
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index 866c58dfa..a0fb2d0c7 100644
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -38,7 +38,7 @@ Public Class ClsCRM
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsClaseBase.vb b/App_Code/ClsClaseBase.vb
index 026d983d0..b607febca 100644
--- a/App_Code/ClsClaseBase.vb
+++ b/App_Code/ClsClaseBase.vb
@@ -34,7 +34,7 @@ Public Class ClsClaseBase
             EsTransaccion = True
         Else
             SqlConexion = New SqlConnection()
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
                 SqlAdapter = New SqlDataAdapter("", SqlConexion)
diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb
index bb1535594..fb2c585bf 100644
--- a/App_Code/ClsClasificaciones.vb
+++ b/App_Code/ClsClasificaciones.vb
@@ -40,7 +40,7 @@ Public Class ClsClasificaciones
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 0addaf0c1..5764b4f20 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -168,7 +168,7 @@ Public Class ClsClientes
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsCompEstatusFactura.vb b/App_Code/ClsCompEstatusFactura.vb
index 1d25c41b5..6f5547957 100644
--- a/App_Code/ClsCompEstatusFactura.vb
+++ b/App_Code/ClsCompEstatusFactura.vb
@@ -36,7 +36,7 @@ Public Class ClsCompEstatusFactura
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb
index 51cb4c675..d30f714a2 100644
--- a/App_Code/ClsCompProveedores.vb
+++ b/App_Code/ClsCompProveedores.vb
@@ -96,7 +96,7 @@ Public Class ClsCompProveedores
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index c3f151af4..83ee9fe20 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -56,7 +56,7 @@ Public Class ClsCompras
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 86a7d6533..9afc08dcc 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -94,7 +94,7 @@ Public Class ClsContabilidad
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index 60795a215..a5899031b 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -63,7 +63,7 @@ Public Class ClsContratos
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsDesarrollo.vb b/App_Code/ClsDesarrollo.vb
index d796cb2cb..7095490ea 100644
--- a/App_Code/ClsDesarrollo.vb
+++ b/App_Code/ClsDesarrollo.vb
@@ -36,7 +36,7 @@ Public Class ClsDesarrollo
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsEdoc.vb b/App_Code/ClsEdoc.vb
index 82e6cf1e7..9e05e4671 100644
--- a/App_Code/ClsEdoc.vb
+++ b/App_Code/ClsEdoc.vb
@@ -92,7 +92,7 @@ Public Class ClsEdoc
 #End Region
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb
index d9ea682f3..d2f56e68f 100644
--- a/App_Code/ClsEdocumentacion.vb
+++ b/App_Code/ClsEdocumentacion.vb
@@ -47,7 +47,7 @@ Public Class ClsEdocumentacion
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb
index d7a8e0a51..061eb3349 100644
--- a/App_Code/ClsEncuestas.vb
+++ b/App_Code/ClsEncuestas.vb
@@ -31,7 +31,7 @@ Public Class ClsEncuestas
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
                 ConexionAdd()
diff --git a/App_Code/ClsEsquemasComisiones.vb b/App_Code/ClsEsquemasComisiones.vb
index c5343c3af..4f1197bb7 100644
--- a/App_Code/ClsEsquemasComisiones.vb
+++ b/App_Code/ClsEsquemasComisiones.vb
@@ -51,7 +51,7 @@ Public Class ClsEsquemasComisiones
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsEstatusFactura.vb b/App_Code/ClsEstatusFactura.vb
index 11c8ad64a..6a02b1340 100644
--- a/App_Code/ClsEstatusFactura.vb
+++ b/App_Code/ClsEstatusFactura.vb
@@ -36,7 +36,7 @@ Public Class ClsEstatusFactura
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsEventos.vb b/App_Code/ClsEventos.vb
index 02fccac02..be21fb262 100644
--- a/App_Code/ClsEventos.vb
+++ b/App_Code/ClsEventos.vb
@@ -49,7 +49,7 @@ Public Class ClsEventos
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsFISConfiguracion.vb b/App_Code/ClsFISConfiguracion.vb
index e59bed34d..f37d6d0da 100644
--- a/App_Code/ClsFISConfiguracion.vb
+++ b/App_Code/ClsFISConfiguracion.vb
@@ -46,7 +46,7 @@ Public Class ClsFISConfiguracion
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsFinanzas.vb b/App_Code/ClsFinanzas.vb
index a5d52f0f9..1b1921f60 100644
--- a/App_Code/ClsFinanzas.vb
+++ b/App_Code/ClsFinanzas.vb
@@ -99,7 +99,7 @@ Public Class ClsFinanzas
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsFlotillas.vb b/App_Code/ClsFlotillas.vb
index 569737e73..b6afc7a94 100644
--- a/App_Code/ClsFlotillas.vb
+++ b/App_Code/ClsFlotillas.vb
@@ -53,7 +53,7 @@ Public Class ClsFlotillas
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb
index 2a38bb5aa..d9b6bad0b 100644
--- a/App_Code/ClsGPS.vb
+++ b/App_Code/ClsGPS.vb
@@ -52,7 +52,7 @@ Public Class ClsGPS
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsGPSHerramientas.vb b/App_Code/ClsGPSHerramientas.vb
index 94a74b82c..770a1a6b0 100644
--- a/App_Code/ClsGPSHerramientas.vb
+++ b/App_Code/ClsGPSHerramientas.vb
@@ -30,7 +30,7 @@ Public Class ClsGPSHerramientas
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 27998c296..ef9e785c4 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -76,7 +76,7 @@ Public Class ClsGenerales
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsGralFolios.vb b/App_Code/ClsGralFolios.vb
index 44608558c..37b91f2c2 100644
--- a/App_Code/ClsGralFolios.vb
+++ b/App_Code/ClsGralFolios.vb
@@ -62,7 +62,7 @@ Public Class ClsGralFolios
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsGralProductosServiciosCaracteristicas.vb b/App_Code/ClsGralProductosServiciosCaracteristicas.vb
index 593903c4f..82d8d90a9 100644
--- a/App_Code/ClsGralProductosServiciosCaracteristicas.vb
+++ b/App_Code/ClsGralProductosServiciosCaracteristicas.vb
@@ -43,7 +43,7 @@ Public Class ClsGralProductosServiciosCaracteristicas
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsImpuestos.vb b/App_Code/ClsImpuestos.vb
index 8f410fac2..2a4e5a556 100644
--- a/App_Code/ClsImpuestos.vb
+++ b/App_Code/ClsImpuestos.vb
@@ -33,7 +33,7 @@ Public Class ClsImpuestos
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsIndicadores.vb b/App_Code/ClsIndicadores.vb
index c9d8275aa..3b2e685a2 100644
--- a/App_Code/ClsIndicadores.vb
+++ b/App_Code/ClsIndicadores.vb
@@ -37,7 +37,7 @@ Public Class ClsIndicadores
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 2baabb88f..e1327629c 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -162,7 +162,7 @@ Public Class ClsInventarios
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsLeyendasFiscales.vb b/App_Code/ClsLeyendasFiscales.vb
index 14da05f6f..33a8e1582 100644
--- a/App_Code/ClsLeyendasFiscales.vb
+++ b/App_Code/ClsLeyendasFiscales.vb
@@ -33,7 +33,7 @@ Public Class ClsLeyendasFiscales
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         Try
             SqlConexion.Open()
         Catch ex As Exception
diff --git a/App_Code/ClsMF.vb b/App_Code/ClsMF.vb
index 518bbc842..946f78045 100644
--- a/App_Code/ClsMF.vb
+++ b/App_Code/ClsMF.vb
@@ -32,7 +32,7 @@ Public Class ClsMF
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsMetodosPagos.vb b/App_Code/ClsMetodosPagos.vb
index fb55322f8..f6bf0b888 100644
--- a/App_Code/ClsMetodosPagos.vb
+++ b/App_Code/ClsMetodosPagos.vb
@@ -35,7 +35,7 @@ Public Class ClsMetodosPagos
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         Try
             SqlConexion.Open()
         Catch ex As Exception
@@ -88,20 +88,20 @@ Public Class ClsMetodosPagos
         Data = New DataTable
     End Sub
 #End Region
-    Public Function GetMetodosPago() As Boolean
-        Dim Retorno As Boolean = False
-        Data = New DataTable
-        SqlAdapter = New SqlDataAdapter("PA_MetodosPagosGet", SqlConexion)
-        SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As SqlException
-            OnError("Ocurrió un error al consultar los Métodos de Pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-        SqlAdapter.Dispose()
-        Return Retorno
-    End Function
+    'Public Function GetMetodosPago() As Boolean
+    '    Dim Retorno As Boolean = False
+    '    Data = New DataTable
+    '    SqlAdapter = New SqlDataAdapter("PA_MetodosPagosGet", SqlConexion)
+    '    SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As SqlException
+    '        OnError("Ocurrió un error al consultar los Métodos de Pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '    End Try
+    '    SqlAdapter.Dispose()
+    '    Return Retorno
+    'End Function
 
 #Region "IDisposable Support"
 
diff --git a/App_Code/ClsModulos.vb b/App_Code/ClsModulos.vb
index 19610b9bd..fe0b0c94b 100644
--- a/App_Code/ClsModulos.vb
+++ b/App_Code/ClsModulos.vb
@@ -134,7 +134,7 @@ Public Class ClsModulos
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         Try
             SqlConexion.Open()
         Catch ex As Exception
diff --git a/App_Code/ClsMonedas.vb b/App_Code/ClsMonedas.vb
index 3a4ac8dcd..ab4a9a58c 100644
--- a/App_Code/ClsMonedas.vb
+++ b/App_Code/ClsMonedas.vb
@@ -38,7 +38,7 @@ Public Class ClsMonedas
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index de0fa63dd..90618ea70 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -46,7 +46,7 @@ Public Class ClsMovimientos
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 0f868dd15..c44001a64 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -165,7 +165,7 @@ Public Class ClsNominas
     End Sub
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
@@ -178,7 +178,7 @@ Public Class ClsNominas
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index 28f1d50fd..029912473 100644
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -157,7 +157,7 @@ Public Class ClsOC
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index 37c61db00..0e19ccc6d 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -157,7 +157,7 @@ Public Class ClsOIEventos
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb
index 1f1c44696..1263b38d9 100644
--- a/App_Code/ClsOS.vb
+++ b/App_Code/ClsOS.vb
@@ -101,7 +101,7 @@ Public Class ClsOS
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsPV.vb b/App_Code/ClsPV.vb
index 0e44deb77..e08ddaa83 100644
--- a/App_Code/ClsPV.vb
+++ b/App_Code/ClsPV.vb
@@ -52,7 +52,7 @@ Public Class ClsPV
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index dac906bd5..8de66f377 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -77,7 +77,7 @@ Public Class ClsPaginas
                     Usuario.CerrarSession()
                     Return Nothing
                 Else
-                    Return CType(Context.Session("UsuarioSIG"), Usuario)
+                    Return DirectCast(Context.Session("UsuarioSIG"), Usuario)
                 End If
             Catch ex As Exception
                 Usuario.CerrarSession()
@@ -85,6 +85,20 @@ Public Class ClsPaginas
             End Try
         End Get
     End Property
+
+    Public Shared ReadOnly Property UsuarioActualRutaDB() As String
+        Get
+            Try
+                If HttpContext.Current.Session("UsuarioSIG") Is Nothing Then
+                    Return ""
+                Else
+                    Return DirectCast(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.RutaDB
+                End If
+            Catch ex As Exception
+                Return ""
+            End Try
+        End Get
+    End Property
     Public Property CveModulo As Integer
         Get
             Try
@@ -1171,7 +1185,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTMetodosPago"
             If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
-                Dim ObjMetodoPago As New ClsMetodosPagos
+                Dim ObjMetodoPago As New ClsVentas
                 If ObjMetodoPago.GetMetodosPago() Then HttpContext.Current.Application(AppNombre) = ObjMetodoPago.DtResultados
                 ObjMetodoPago.Dispose()
             End If
diff --git a/App_Code/ClsPresupuestos.vb b/App_Code/ClsPresupuestos.vb
index b920feb35..ba7e03dfb 100644
--- a/App_Code/ClsPresupuestos.vb
+++ b/App_Code/ClsPresupuestos.vb
@@ -52,7 +52,7 @@ Public Class ClsPresupuestos
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index c9bcb106e..17d7860aa 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -112,7 +112,7 @@ Public Class ClsProductosServicios
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
@@ -139,7 +139,7 @@ Public Class ClsProductosServicios
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsProsEncuestas.vb b/App_Code/ClsProsEncuestas.vb
index f15472b0d..dbe9fb6ea 100644
--- a/App_Code/ClsProsEncuestas.vb
+++ b/App_Code/ClsProsEncuestas.vb
@@ -38,7 +38,7 @@ Public Class ClsProsEncuestas
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsProspectos.vb b/App_Code/ClsProspectos.vb
index 08aa72f85..dc09ffca4 100644
--- a/App_Code/ClsProspectos.vb
+++ b/App_Code/ClsProspectos.vb
@@ -151,7 +151,7 @@ Public Class ClsProspectos
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsProyectos.vb b/App_Code/ClsProyectos.vb
index e5b3fe7a3..d108c8f74 100644
--- a/App_Code/ClsProyectos.vb
+++ b/App_Code/ClsProyectos.vb
@@ -42,7 +42,7 @@ Public Class ClsProyectos
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsPruebasJJMQ.vb b/App_Code/ClsPruebasJJMQ.vb
index 1a812e2b5..4a6abd8f7 100644
--- a/App_Code/ClsPruebasJJMQ.vb
+++ b/App_Code/ClsPruebasJJMQ.vb
@@ -36,7 +36,7 @@ Public Class ClsPruebasJJMQ
     Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb
index 6bbffe680..cc16fe654 100644
--- a/App_Code/ClsPuntoVenta.vb
+++ b/App_Code/ClsPuntoVenta.vb
@@ -74,7 +74,7 @@ Public Class ClsPuntoVenta
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index eeb1d6249..c9290bf53 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -67,7 +67,7 @@ Public Class ClsRH
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsRMA.vb b/App_Code/ClsRMA.vb
index 25726a92e..1b2244b6e 100644
--- a/App_Code/ClsRMA.vb
+++ b/App_Code/ClsRMA.vb
@@ -46,7 +46,7 @@ Public Class ClsRMA
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsRutas.vb b/App_Code/ClsRutas.vb
index bde0252dc..bdafc4943 100644
--- a/App_Code/ClsRutas.vb
+++ b/App_Code/ClsRutas.vb
@@ -39,7 +39,7 @@ Public Class ClsRutas
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsSAT.vb b/App_Code/ClsSAT.vb
index b7eb261df..35de3e019 100644
--- a/App_Code/ClsSAT.vb
+++ b/App_Code/ClsSAT.vb
@@ -62,7 +62,7 @@ Public Class ClsSAT
         'ValidaDepurarConexiones(TransaccionCompartida)
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsSCTLicencias.vb b/App_Code/ClsSCTLicencias.vb
index 7ae89385a..41c2b9c4a 100644
--- a/App_Code/ClsSCTLicencias.vb
+++ b/App_Code/ClsSCTLicencias.vb
@@ -47,7 +47,7 @@ Public Class ClsSCTLicencias
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
 
         Try
@@ -413,7 +413,7 @@ End Class
 
 '    Sub New()
 '        SqlConexion = New SqlConnection
-'        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+'        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
 '        Try
 '            SqlConexion.Open()
 '        Catch ex As Exception
diff --git a/App_Code/ClsSeguimiento.vb b/App_Code/ClsSeguimiento.vb
index d3359629a..089a3b2df 100644
--- a/App_Code/ClsSeguimiento.vb
+++ b/App_Code/ClsSeguimiento.vb
@@ -29,7 +29,7 @@ Public Class ClsSeguimiento
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb
index c92c3b19a..a417989b0 100644
--- a/App_Code/ClsSisEmpresas.vb
+++ b/App_Code/ClsSisEmpresas.vb
@@ -204,11 +204,11 @@ Public Class ClsSisEmpresas
     'Public Property PwdContPAQi As String
 #End Region
 
-    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
+    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing, Optional NombreCadena As String = "Conexion")
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb
index 26574baba..d4f4ec8be 100644
--- a/App_Code/ClsSisNotificaciones.vb
+++ b/App_Code/ClsSisNotificaciones.vb
@@ -89,7 +89,7 @@ Public Class ClsSisNotificaciones
 #End Region
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsSisParametros.vb b/App_Code/ClsSisParametros.vb
index 5773f5b29..0f4d8ae89 100644
--- a/App_Code/ClsSisParametros.vb
+++ b/App_Code/ClsSisParametros.vb
@@ -75,7 +75,7 @@ Public Class ClsSisParametros
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsSisProcesos.vb b/App_Code/ClsSisProcesos.vb
index 5f7e1fd78..9f877382a 100644
--- a/App_Code/ClsSisProcesos.vb
+++ b/App_Code/ClsSisProcesos.vb
@@ -67,7 +67,7 @@ Public Class ClsSisProcesos
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb
index c6777a6eb..6cc5d759b 100644
--- a/App_Code/ClsSisRoles.vb
+++ b/App_Code/ClsSisRoles.vb
@@ -37,7 +37,7 @@ Public Class ClsSisRoles
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index fcebdda87..9ce9d0deb 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -63,11 +63,11 @@ Public Class ClsSisUsuarios
     Public Property DescuentoAutorizado As Double
 #End Region
 
-    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
+    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing, Optional NombreCadena As String = "Conexion")
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString
             Try
                 SqlConexion.Open()
             Catch ex As Exception
@@ -3171,7 +3171,7 @@ End Class
 
 '    Sub New()
 '        SqlConexion = New SqlConnection
-'        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+'        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
 '        Try
 '            SqlConexion.Open()
 '        Catch ex As Exception
diff --git a/App_Code/ClsStiReports.vb b/App_Code/ClsStiReports.vb
index 8d000882f..28563b8e4 100644
--- a/App_Code/ClsStiReports.vb
+++ b/App_Code/ClsStiReports.vb
@@ -43,7 +43,7 @@ Public Class ClsStiReports
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb
index 2215fda48..bf6419ecc 100644
--- a/App_Code/ClsSubProyectos.vb
+++ b/App_Code/ClsSubProyectos.vb
@@ -36,7 +36,7 @@ Public Class ClsSubProyectos
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsSucursales.vb b/App_Code/ClsSucursales.vb
index de03554ce..57407d3c7 100644
--- a/App_Code/ClsSucursales.vb
+++ b/App_Code/ClsSucursales.vb
@@ -99,7 +99,7 @@ Public Class ClsSucursales
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsSucursales.vb.exclude b/App_Code/ClsSucursales.vb.exclude
index b7d3f0f00..9dcdcf579 100644
--- a/App_Code/ClsSucursales.vb.exclude
+++ b/App_Code/ClsSucursales.vb.exclude
@@ -101,7 +101,7 @@ Public Class ClsSucursales
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsTemporal.vb b/App_Code/ClsTemporal.vb
index 75e1af8bf..642e06bb7 100644
--- a/App_Code/ClsTemporal.vb
+++ b/App_Code/ClsTemporal.vb
@@ -36,7 +36,7 @@ Public Class ClsTemporal
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsTiposEventos.vb b/App_Code/ClsTiposEventos.vb
index 9da834644..b1f8a4e09 100644
--- a/App_Code/ClsTiposEventos.vb
+++ b/App_Code/ClsTiposEventos.vb
@@ -36,7 +36,7 @@ Public Class ClsTiposEventos
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsUnidadesMedida.vb b/App_Code/ClsUnidadesMedida.vb
index ce7dd2a8b..d65865b1d 100644
--- a/App_Code/ClsUnidadesMedida.vb
+++ b/App_Code/ClsUnidadesMedida.vb
@@ -34,7 +34,7 @@ Public Class ClsUnidadesMedida
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
@@ -59,7 +59,7 @@ Public Class ClsUnidadesMedida
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 1f852c7c0..ff6047d0b 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -80,7 +80,7 @@ Public Class ClsVentas
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
@@ -275,6 +275,20 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+
+    Public Function GetMetodosPago() As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_MetodosPagosGet")
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un error al consultar los Métodos de Pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        SqlAdapter.Dispose()
+        Return Retorno
+    End Function
     Public Function GetVentas(CveEmpresa As Integer, TipoDocto As String, Serie As String, Folio As Integer, Codigo As String, CveCliente As Integer,
                               CveSubProyecto As Integer, CveEstatus As Integer, CveUsuario As Integer, FechaI As String, FechaF As String, FolioFiscal As String, Optional CveClienteSucursal As Integer = -1, Optional CvePS As Integer = -1, Optional PedidoContrato As String = "-1",
                               Optional OrdenCompra As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional ClienteRFC As String = "-1",
@@ -1620,7 +1634,7 @@ Public Class ClsVentas
                                  CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
                                  Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1,
                                  Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                 Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1) As Boolean
+                                 Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasGetRep")
 
@@ -1651,6 +1665,7 @@ Public Class ClsVentas
             .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
             .Add("@CveTipoRelacion", SqlDbType.Int).Value = CveTipoRelacion
             .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
+            .Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal
         End With
 
         Try
@@ -1757,7 +1772,7 @@ Public Class ClsVentas
                                         CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1,
                                         Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
                                          Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                        Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1) As Boolean
+                                        Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasGetRepDetalle")
 
@@ -1793,6 +1808,7 @@ Public Class ClsVentas
             .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
             .Add("@CveTipoRelacion", SqlDbType.Int).Value = CveTipoRelacion
             .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
+            .Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal
         End With
 
         Try
diff --git a/App_Code/ClsVtaPromociones.vb b/App_Code/ClsVtaPromociones.vb
index 1df18d9a2..8b88f74e9 100644
--- a/App_Code/ClsVtaPromociones.vb
+++ b/App_Code/ClsVtaPromociones.vb
@@ -34,7 +34,7 @@ Public Class ClsVtaPromociones
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
diff --git a/App_Code/ClsVtaVendedores.vb b/App_Code/ClsVtaVendedores.vb
index e6bd8101b..a4e7dfc10 100644
--- a/App_Code/ClsVtaVendedores.vb
+++ b/App_Code/ClsVtaVendedores.vb
@@ -29,7 +29,7 @@ Public Class ClsVtaVendedores
 
     Sub New()
         SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         Try
             SqlConexion.Open()
@@ -43,7 +43,7 @@ Public Class ClsVtaVendedores
 
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception
diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb
index 2b0d41c6f..5431ad41a 100644
--- a/App_Code/Empresa.vb
+++ b/App_Code/Empresa.vb
@@ -97,6 +97,7 @@ Public Class Empresa
     Public Property Timbres As Integer
     Public Property _RutaArchivos As String
     Public Property ContaFormatoCuenta As String
+    Public Property RutaDB As String
 
     Public ReadOnly Property Ruta As String
         Get
diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index db5fa348b..3cafc0939 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -1,7 +1,6 @@
 Imports System.Data
 Imports System.IdentityModel.Tokens.Jwt
-Imports System.Security.Claims
-Imports ADSNetLibrary.Application.Conexiones.Api
+Imports System.Security.Claims 
 Imports ADSSession
 Imports Extensiones
 Imports Microsoft.IdentityModel.Tokens
@@ -208,10 +207,11 @@ Partial Class LogIn
         If BtnLogIn_Clickenter = 0 Then 'esta variable se recicla con cada postaback
             BtnLogIn_Clickenter = 1
             Dim tGrupoEmpresa As String = ""
+            Dim NombreCadena As String = "Conexion"
 
             If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD"
             If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH"
-            If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS"
+            If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "Conexion"
             If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
             If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
             If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"
@@ -224,7 +224,7 @@ Partial Class LogIn
             If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ"
             If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA"
 
-            Dim ObjUsuario As New ClsSisUsuarios
+            Dim ObjUsuario As New ClsSisUsuarios(NombreCadena:=NombreCadena)
             Dim Usuario As Usuario = Nothing
 
             Dim isgps As Boolean = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper())
@@ -240,7 +240,7 @@ Partial Class LogIn
             If Usuario IsNot Nothing Then
                 If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then
 
-                    CreaObjetoEmpresa(Usuario)
+                    CreaObjetoEmpresa(Usuario, NombreCadena)
                     ADSSessionConfig.sessionUser.MultipleEmpresa = True
 
                     Dim x As New ADSSessionObj(Usuario.CveUsuario, Usuario.CveEmpresa)
@@ -343,7 +343,7 @@ Partial Class LogIn
         End If
 
     End Function
-    Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
+    Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario, Optional NombreCadena As String = "Conexion")
 
         Dim ObjEmpresa As New ClsSisEmpresas()
         If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
@@ -358,6 +358,7 @@ Partial Class LogIn
             End If
 
             UsuarioActual.Empresa = ObjEmpresa.Empresa
+            If UsuarioActual.Empresa.RutaDB = "" Then UsuarioActual.Empresa.RutaDB = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString
         Else
         End If
         ObjEmpresa.Dispose()
diff --git a/MQ/ClsAF.vb b/MQ/ClsAF.vb
index 43efb1c7c..2d7c2dfb6 100644
--- a/MQ/ClsAF.vb
+++ b/MQ/ClsAF.vb
@@ -147,7 +147,7 @@ Public Class ClsAF
         ValidaDepurarConexiones(TransaccionCompartida)
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
             Try
                 SqlConexion.Open()
             Catch ex As Exception

From 1ba150f8ebd94e52ec3dd42a74d742ace643c62f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 Apr 2024 19:43:41 -0700
Subject: [PATCH 57/70] -- mejora en RNC

---
 Compras/Compras.aspx.vb            | 2 +-
 Contabilidad/RegPrePolizaS.aspx.vb | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 21147d7f7..ace5f8509 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -20931,7 +20931,7 @@ Partial Class Compras_Compras
 
                 CompraRNCProntoPago.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, (ImporteRNCProntoPago + IVARNCProntoPago), IVARNCProntoPago, PorcentajeIVA)
                 If CompraRNCProntoPago.AddCompra(sqltransaccion) Then
-                    Dim tImporteRNCProntoPago = ImporteRNCProntoPago + IVARNC ' le agrego el importe del iva
+                    Dim tImporteRNCProntoPago = ImporteRNCProntoPago + IVARNCProntoPago ' le agrego el importe del iva
                     Dim Pago As New CompraPago
                     Pago.ImportePago = tImporteRNCProntoPago
                     Pago.CveMonedaPago = CompraActual.CveMoneda
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index d3f7770d9..bbf936287 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -451,7 +451,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TxtFolio.Text = dr("FolioPoliza").ToString
                 TxtUsuarioElaboro.Text = dr("Usuario").ToString
                 TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
-                TxtFechaelaboracion.ToolTip = dr("FechaIng").ToString.ToDate.ToShortTimeString
+                TxtFechaelaboracion.ToolTip = dr("FechaIng").ToString.ToDate.ToString("HH:mm:ss")
                 CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString.ToEntero
                 DdlPlantilla.SelectedValueExist(CvePlantillaPoliza)
                 HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}"

From 1a52123f5241ae6e2972f422f0cc2a540106e50e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 Apr 2024 19:43:55 -0700
Subject: [PATCH 58/70] =?UTF-8?q?-=20nuevo=20par=C3=A1metro=20de=20factura?=
 =?UTF-8?q?global?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/RepVentas.aspx    | 9 ++++++++-
 Ventas/RepVentas.aspx.vb | 7 ++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx
index 15ca9b94b..5b1465d50 100644
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -342,7 +342,14 @@
                                 <asp:ListItem   Value="0">No</asp:ListItem>
                             </asp:DropDownList>
                         </div>
-
+                        <asp:Label runat="server" ID="LblFacturaGlobal" class="col-md-1 truncate" Visible="false">Factura Global:</asp:Label>
+                            <div class="col-md-2" runat="server" id="DivFacturaGlobal" Visible="false">
+                                <asp:DropDownList ID="DdlFacturaGlobal" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
+                                    <asp:ListItem   Value ="-1">Todos</asp:ListItem>
+                                    <asp:ListItem   Value="1">Solo Globales</asp:ListItem>
+                                    <asp:ListItem   Value="0">Sin Globales</asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
                     </div>
                 </div>
             </div>
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index a36e18d48..5c09aaab2 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -138,6 +138,11 @@ Partial Class Ventas_RepVentas
                     DdlEstatus.ClearSelection()
                 End If
             End If
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                LblFacturaGlobal.Visible = True
+                DivFacturaGlobal.Visible = True
+            End If
+
             PrePersonalizacion()
             CargaPersonalizacion()
 
@@ -265,7 +270,7 @@ Partial Class Ventas_RepVentas
         If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores,
                                   DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
                                   CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
-                                  EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero) Then
+                                  EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else

From 7bb7a6cc6fbfff738dbca26059fa1a2b0a070ed4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 Apr 2024 19:44:10 -0700
Subject: [PATCH 59/70] - ocultar el registro de PS

---
 OC/OC.aspx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/OC/OC.aspx b/OC/OC.aspx
index f6003cce7..c754747cb 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -26,7 +26,7 @@
                 <a id="BtnSolicitudAnticipo" runat="server" visible="false" data-toggle="modal" href="#ModalSolicitarAnticipo"><i class="fa fa-dollar"></i>Solicitar Anticipo </a>
             </li>
             <li>
-                <asp:HyperLink ID="HyperLink1" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivAgregarPS" runat="server"><i class='fa fa-plus'></i> Agregar PS</asp:HyperLink>
+                <asp:HyperLink ID="HplCrearPS" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#DivAgregarPS" runat="server"><i class='fa fa-plus'></i> Agregar PS</asp:HyperLink>
             </li>
             <li>
                 <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink>

From 675831027782520be7686cfe428082fa8a87e6c0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 Apr 2024 19:44:50 -0700
Subject: [PATCH 60/70] -- mejora en visual

---
 Sistemas/Usuarios.aspx | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/Sistemas/Usuarios.aspx b/Sistemas/Usuarios.aspx
index 5e27abb3f..574e98fb5 100644
--- a/Sistemas/Usuarios.aspx
+++ b/Sistemas/Usuarios.aspx
@@ -42,15 +42,6 @@
 
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div  class="row">
-                <div class="col-lg-1">
-                    Empresa:
-                </div>
-                <div class="col-lg-4">
-
-                </div>
-            </div>
-
             <table width="100%" border="0" cellpadding="0" cellspacing="0">
 
                 <tr class="SubTotales">

From 4628c35a7a5eb37ecc3e81ede8830f88c7809672 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 Apr 2024 20:11:30 -0700
Subject: [PATCH 61/70] -- mejora en direccionamiento de conexion string

---
 App_Code/ClsPaginas.vb     | 2 +-
 App_Code/ClsSisUsuarios.vb | 3 +++
 App_Code/Empresa.vb        | 2 --
 App_Code/Usuario.vb        | 9 ++-------
 Ashx/E119.ashx             | 1 +
 LogIn.aspx.vb              | 1 -
 6 files changed, 7 insertions(+), 11 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 8de66f377..ae4459a62 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -92,7 +92,7 @@ Public Class ClsPaginas
                 If HttpContext.Current.Session("UsuarioSIG") Is Nothing Then
                     Return ""
                 Else
-                    Return DirectCast(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.RutaDB
+                    Return DirectCast(HttpContext.Current.Session("UsuarioSIG"), Usuario).RutaDB
                 End If
             Catch ex As Exception
                 Return ""
diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index 9ce9d0deb..be5aa595a 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -22,6 +22,7 @@ Public Class ClsSisUsuarios
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'PARA REGISTRAR CONEXION
     Private CveConexion As Integer = 0
+    Private ConnStr As String = ""
 
 #End Region
 
@@ -68,6 +69,7 @@ Public Class ClsSisUsuarios
         If TransaccionCompartida Is Nothing Then
             SqlConexion = New SqlConnection
             SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString
+            ConnStr = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString
             Try
                 SqlConexion.Open()
             Catch ex As Exception
@@ -235,6 +237,7 @@ Public Class ClsSisUsuarios
                 Retorno.CodigoAutorizado = Data.Rows(0)("CodigoAutorizado").ToString()
                 Dim autoip As String = Data.Rows(0)("AutorizadoxIP").ToString().ToUpper()
                 Retorno.AutorizadoxIP = (autoip = "1" OrElse autoip = "TRUE")
+                Retorno.RutaDB = ConnStr
 
                 ' Esto es parta el punto de venta
                 Retorno.CveSucursal = Data.Rows(0)("CveSubProyecto").ToString().ToEntero
diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb
index 5431ad41a..5a3da4e8d 100644
--- a/App_Code/Empresa.vb
+++ b/App_Code/Empresa.vb
@@ -97,8 +97,6 @@ Public Class Empresa
     Public Property Timbres As Integer
     Public Property _RutaArchivos As String
     Public Property ContaFormatoCuenta As String
-    Public Property RutaDB As String
-
     Public ReadOnly Property Ruta As String
         Get
             If Not String.IsNullOrEmpty(_RutaArchivos) AndAlso ClsPaginas.EsProduccion Then
diff --git a/App_Code/Usuario.vb b/App_Code/Usuario.vb
index 465e618e6..4ddb1d980 100644
--- a/App_Code/Usuario.vb
+++ b/App_Code/Usuario.vb
@@ -50,23 +50,18 @@ Public Class Usuario
     Public Property ListaPersonalizacion As Hashtable
     Public Property Acceso As Integer
     Public Property TipoControl As Integer
-
     Public Property CvePlataforma As Integer
-
     Public Property DescuentoAutorizado As Double
-
     Public Property AutorizadoxIP As Boolean
     Public Property CodigoAutorizado As String
-
     Public Property UTCOffset As Integer
     Public Property PorcentajeMaximoAutorizacion As Decimal
     Public Property DiasMaximoAutorizacion As Integer
-
     Public Property isLoginseted As Boolean = False
-
     Public Property SesionBloqueada As Boolean = False
     Public Property ErrorDesbloqueo As Boolean = False
-    Public Property MsgErrorDesbloqueo As String = ""
+    Public Property MsgErrorDesbloqueo As String = ""
+    Public Property RutaDB As String
 
     Public ReadOnly Property FechaActualCliente As DateTime
         Get
diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx
index 65c24e516..a774331de 100644
--- a/Ashx/E119.ashx
+++ b/Ashx/E119.ashx
@@ -79,6 +79,7 @@ Public Class E119 : Implements IHttpHandler
             End If
 
             UsuarioActual.Empresa = ObjEmpresa.Empresa
+            If UsuarioActual.Empresa.RutaDB = "" Then UsuarioActual.Empresa.RutaDB = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
         End If
         ObjEmpresa.Dispose()
     End Sub
diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index 3cafc0939..44f3d54ac 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -358,7 +358,6 @@ Partial Class LogIn
             End If
 
             UsuarioActual.Empresa = ObjEmpresa.Empresa
-            If UsuarioActual.Empresa.RutaDB = "" Then UsuarioActual.Empresa.RutaDB = ConfigurationManager.ConnectionStrings(NombreCadena).ConnectionString
         Else
         End If
         ObjEmpresa.Dispose()

From 071de5481b6953cf8ea0baa9cbb709478ed6b29b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 Apr 2024 20:23:17 -0700
Subject: [PATCH 62/70] =?UTF-8?q?--=20unificar=20y=20se=20elimin=C3=B3=20c?=
 =?UTF-8?q?lsmetodos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsMetodosPagos.vb  | 144 -----------------------------------
 Sistemas/CatSesiones.aspx.vb |   2 +-
 asmx/WS_PuntoVenta.asmx      |   2 +-
 3 files changed, 2 insertions(+), 146 deletions(-)
 delete mode 100644 App_Code/ClsMetodosPagos.vb

diff --git a/App_Code/ClsMetodosPagos.vb b/App_Code/ClsMetodosPagos.vb
deleted file mode 100644
index f6bf0b888..000000000
--- a/App_Code/ClsMetodosPagos.vb
+++ /dev/null
@@ -1,144 +0,0 @@
-Option Explicit On
-Option Strict On
-
-Imports System.Data
-Imports System.Data.SqlClient
-Imports Extensiones
-
-Public Class ClsMetodosPagos
-    Implements IDisposable
-
-#Region "Campos"
-
-    'SQL
-    Private SqlConexion As SqlConnection
-    Private SqlAdapter As SqlDataAdapter
-    Private SqlCommand As SqlCommand
-    Private Data As DataTable
-
-    'Atributos de la clase
-    Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
-    'REGISTRAR CONEXIONES ABIERTAS
-    Private CveConexion As Integer = 0
-
-#End Region
-
-#Region "Propiedades"
-
-    Public ReadOnly Property DtResultados() As DataTable
-        Get
-            DtResultados = Data
-        End Get
-    End Property
-
-#End Region
-
-    Sub New()
-        SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB
-        Try
-            SqlConexion.Open()
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
-        End Try
-        SqlAdapter = New SqlDataAdapter("", SqlConexion)
-        ConexionAdd()
-    End Sub
-#Region "Conexiones"
-
-    Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
-            Try
-                DataAdapter("PA_Sis_RegistrarConexion")
-                With SqlAdapter.SelectCommand.Parameters
-                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
-                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
-                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
-                End With
-                SqlAdapter.Fill(Data)
-                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
-            Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End Try
-
-        End If
-    End Sub
-
-    Private Sub ConexionClose()
-        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
-
-            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
-
-            Try
-                SqlAdapter.Fill(Data)
-
-            Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End Try
-            CveConexion = 0
-        End If
-
-    End Sub
-    Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
-        With SqlAdapter.SelectCommand
-            .Parameters.Clear()
-            .CommandText = pStrSQL
-            .CommandType = TipoComando
-        End With
-        Data = New DataTable
-    End Sub
-#End Region
-    'Public Function GetMetodosPago() As Boolean
-    '    Dim Retorno As Boolean = False
-    '    Data = New DataTable
-    '    SqlAdapter = New SqlDataAdapter("PA_MetodosPagosGet", SqlConexion)
-    '    SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
-    '    Try
-    '        SqlAdapter.Fill(Data)
-    '        Retorno = True
-    '    Catch ex As SqlException
-    '        OnError("Ocurrió un error al consultar los Métodos de Pago.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-    '    End Try
-    '    SqlAdapter.Dispose()
-    '    Return Retorno
-    'End Function
-
-#Region "IDisposable Support"
-
-
-    ' IDisposable
-    Protected Overridable Sub Dispose(disposing As Boolean)
-        If Not Me.disposedValue Then
-            If disposing Then
-                ' TODO: dispose managed state (managed objects).
-                If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
-                If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
-                If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
-                If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
-                If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
-
-            End If
-
-            ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
-            ' TODO: set large fields to null.
-        End If
-        Me.disposedValue = True
-    End Sub
-
-    ' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources.
-    'Protected Overrides Sub Finalize()
-    '    ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
-    '    Dispose(False)
-    '    MyBase.Finalize()
-    'End Sub
-
-    ' This code added by Visual Basic to correctly implement the disposable pattern.
-    Public Sub Dispose() Implements IDisposable.Dispose
-        ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
-        ConexionClose()
-        Dispose(True)
-        GC.SuppressFinalize(Me)
-    End Sub
-#End Region
-
-End Class
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 3211d4219..75c6fbe30 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -464,7 +464,7 @@ Partial Class Sistemas_CatSesiones
     'End Sub
 
     Private Sub CargaMetodosPago()
-        Dim ObjMetodoPago As New ClsMetodosPagos()
+        Dim ObjMetodoPago As New ClsVentas()
         If ObjMetodoPago.GetMetodosPago() Then
             Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados
         Else
diff --git a/asmx/WS_PuntoVenta.asmx b/asmx/WS_PuntoVenta.asmx
index f212cb3a5..26f317894 100644
--- a/asmx/WS_PuntoVenta.asmx
+++ b/asmx/WS_PuntoVenta.asmx
@@ -816,7 +816,7 @@ Public Class WS_PuntoVenta
 #Region "MetodosPago"
     <WebMethod()>
     Public Function GetMetodosPagos() As RespuestaWS
-        Dim objMetodoPago As New ClsMetodosPagos
+        Dim objMetodoPago As New ClsVentas
         Dim Respuesta As New RespuestaWS
 
         If objMetodoPago.GetMetodosPago() Then

From 44c9edd60a304f0ce633e0d169d9264c2121d82d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 19 Apr 2024 07:46:43 -0700
Subject: [PATCH 63/70] -- filtro de facturaglobal

---
 Ventas/RepVentaDetalle.aspx    | 9 ++++++++-
 Ventas/RepVentaDetalle.aspx.vb | 7 ++++++-
 Ventas/RepVentas.aspx.vb       | 2 +-
 3 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx
index 0dcc648ac..4a72af537 100644
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
@@ -322,7 +322,14 @@
                                 <asp:ListItem Value="0">No</asp:ListItem>
                             </asp:DropDownList>
                         </div>
-
+                        <asp:Label runat="server" ID="LblFacturaGlobal" class="col-md-1 truncate" Visible="false">Factura Global:</asp:Label>
+                            <div class="col-md-2" runat="server" id="DivFacturaGlobal" Visible="false">
+                                <asp:DropDownList ID="DdlFacturaGlobal" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
+                                    <asp:ListItem   Value ="-1">Todos</asp:ListItem>
+                                    <asp:ListItem   Value="1">Solo Globales</asp:ListItem>
+                                    <asp:ListItem   Value="0">Sin Globales</asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
 
                     </div>
                 </div>
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 29b871eef..7850a1bcb 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -138,6 +138,10 @@ Partial Class RepVentaDetalle
                 LblServicioDomicilioFiltro.Visible = True
                 DVServicioDomicilio.Visible = True
             End If
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                LblFacturaGlobal.Visible = True
+                DivFacturaGlobal.Visible = True
+            End If
 
             PrePersonalizacion()
             CargaPersonalizacion()
@@ -218,6 +222,7 @@ Partial Class RepVentaDetalle
 
 
         DdlServicioDomicilio.SelectedValue = If(Request("ServicioDomicilio") IsNot Nothing, Request("ServicioDomicilio").ToString, "-1").ToString
+        DdlFacturaGlobal.SelectedValue = If(Request("EsFacturaGlobal") IsNot Nothing, Request("EsFacturaGlobal").ToString, "-1").ToString
 
         UPFiltros.Update()
 
@@ -438,7 +443,7 @@ Partial Class RepVentaDetalle
                                          CveCorte.ToEntero, TipoComprobante, DdlSubProyectoEjecucion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaIEjec, FechaFEjec,
                                          CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
                                          CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=Not ChkLecturaAdmin.Checked, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(),
-                                         ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero) Then
+                                         ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero) Then
             DtVentas = AddRows(ObjVentas.DtResultados)
             ImgImprimir.Enabled = True
             GvDatos.DataSource = AddRows(ObjVentas.DtResultados)
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 5c09aaab2..2adae64a3 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -479,7 +479,7 @@ Partial Class Ventas_RepVentas
 
 
             'LIGA A DETALLE
-            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}"
+            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}"
 
 
             e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"

From cd62f9a238edfb9854b8312d786645b066efed15 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 19 Apr 2024 08:41:30 -0700
Subject: [PATCH 64/70] Kardex siguiente  siguiente PS con movimientos
 (Ajustes)

---
 Inventarios/Kardex.aspx.vb             | 39 ++++++++++++++++++++++++--
 Inventarios/KardexAlmacen.aspx.vb      | 39 +++++++++++++++++++++++++-
 Inventarios/RepEntradasSalidas.aspx.vb | 38 ++++++++++++++++++++++++-
 3 files changed, 112 insertions(+), 4 deletions(-)

diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 29b52f758..5811d25d8 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -2,9 +2,11 @@
 Option Explicit On
 
 Imports System.Data
+Imports System.Security.Cryptography.Pkcs
 Imports ADSNetLibrary.SIGAPI.Models.CGame
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
+Imports Telerik.Web.UI
 
 Partial Class Inventarios_Kardex
     Inherits ClsPaginas
@@ -569,7 +571,10 @@ Partial Class Inventarios_Kardex
         Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
 
         If Not CvePS > 0 Then
-            Exit Sub
+            CvePS = ObtenerInicioPSNavegacion(Siguiente:=Siguiente)
+            If Not CvePS > 0 Then
+                Exit Sub
+            End If
         End If
 
         Dim dt As DataTable = New DataTable
@@ -609,6 +614,34 @@ Partial Class Inventarios_Kardex
         ObjInventarios.Dispose()
 
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
+            ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            UPFiltros.Update()
+            UPDatos.Update()
+        End If
+
+    End Sub
+
+    Private Function ObtenerInicioPSNavegacion(Siguiente As Boolean) As Integer
+
+        Dim CvePSRespuesta As Integer = -1
+        Dim dt As DataTable = New DataTable
+
+        If Siguiente Then
+            If TxtCodigoInicio.Text.Trim.Length > 0 Then
+                dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim)
+            End If
+        Else
+            If TxtCodigoFinal.Text.Trim.Length > 0 Then
+                dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim)
+            End If
+        End If
+
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            CvePSRespuesta = dt.Rows(0)("CvePS").ToString.ToEntero
             ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
             ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
             ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
@@ -617,7 +650,9 @@ Partial Class Inventarios_Kardex
             UPFiltros.Update()
             UPDatos.Update()
         End If
-    End Sub
 
 
+        Return CvePSRespuesta
+
+    End Function
 End Class
diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb
index f95e5c3b4..bfad31eaa 100644
--- a/Inventarios/KardexAlmacen.aspx.vb
+++ b/Inventarios/KardexAlmacen.aspx.vb
@@ -212,8 +212,12 @@ Partial Class Inventarios_KardexAlmacen
         Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
 
         If Not CvePS > 0 Then
-            Exit Sub
+            CvePS = ObtenerInicioPSNavegacion(Siguiente:=Siguiente)
+            If Not CvePS > 0 Then
+                Exit Sub
+            End If
         End If
+
         Dim dt As DataTable = New DataTable
 
         Dim Entrada As Boolean = True
@@ -261,4 +265,37 @@ Partial Class Inventarios_KardexAlmacen
         End If
     End Sub
 
+    Private Function ObtenerInicioPSNavegacion(Siguiente As Boolean) As Integer
+
+        Dim CvePSRespuesta As Integer = -1
+        Dim dt As DataTable = New DataTable
+
+        If Siguiente Then
+            If TxtCodigoInicio.Text.Trim.Length > 0 Then
+                'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero
+                dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim)
+            End If
+        Else
+            If TxtCodigoFinal.Text.Trim.Length > 0 Then
+                'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero
+                dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim)
+            End If
+        End If
+
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            CvePSRespuesta = dt.Rows(0)("CvePS").ToString.ToEntero
+            ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
+            ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
+            ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            UPFiltros.Update()
+
+        End If
+
+
+        Return CvePSRespuesta
+
+    End Function
+
 End Class
diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb
index 586d6d878..3e299a807 100644
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -586,7 +586,10 @@ Partial Class Inventarios_ReporteEntradasSalidas
         Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero
 
         If Not CvePS > 0 Then
-            Exit Sub
+            CvePS = ObtenerInicioPSNavegacion(Siguiente:=Siguiente)
+            If Not CvePS > 0 Then
+                Exit Sub
+            End If
         End If
 
         Dim dt As DataTable = New DataTable
@@ -636,6 +639,39 @@ Partial Class Inventarios_ReporteEntradasSalidas
         End If
     End Sub
 
+    Private Function ObtenerInicioPSNavegacion(Siguiente As Boolean) As Integer
+
+        Dim CvePSRespuesta As Integer = -1
+        Dim dt As DataTable = New DataTable
+
+        If Siguiente Then
+            If TxtCodigoInicio.Text.Trim.Length > 0 Then
+                'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero
+                dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim)
+            End If
+        Else
+            If TxtCodigoFinal.Text.Trim.Length > 0 Then
+                'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero
+                dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim)
+            End If
+        End If
+
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            CvePSRespuesta = dt.Rows(0)("CvePS").ToString.ToEntero
+            DdlPS.SelectedValue = dt.Rows(0)("CvePS").ToString
+            DdlPS.SelectedText = dt.Rows(0)("CodigoPS").ToString
+            DdlPS.txtValue.Value = dt.Rows(0)("CvePS").ToString
+            DdlPS.txtText.Value = dt.Rows(0)("CodigoPS").ToString
+            'UPFiltros.Update()
+            UPPMov.Update()
+        End If
+
+
+        Return CvePSRespuesta
+
+    End Function
+
     'Protected Sub Lnkcompuxlsinventarios_Click(sender As Object, e As EventArgs)
     '    Dim continuar = True
     '    Try

From 3bc514ab667658c08a5fdb82fc5bb77fa7a17ab7 Mon Sep 17 00:00:00 2001
From: AbrahamCastilloV <abcastillo.yo@gmail.com>
Date: Fri, 19 Apr 2024 16:49:55 -0700
Subject: [PATCH 65/70] =?UTF-8?q?--Se=20hicieron=20modificaciones=20al=20.?=
 =?UTF-8?q?mrt=20de=20contratos=20V&A=20y=20se=20agregaron=20otros=20campo?=
 =?UTF-8?q?s=20para=20su=20impresi=C3=B3n.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Transportes/RepContratoDetalle.aspx.vb | 34 ++++++++++++++++++++------
 Transportes/RepContratos.aspx.vb       |  2 +-
 2 files changed, 27 insertions(+), 9 deletions(-)

diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index 2a77ddaaf..946121897 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -1,6 +1,10 @@
 Option Explicit On
 Option Strict On
+Imports System.Data
 Imports System.IO
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
 
 Partial Class RepContratoDetalle
     Inherits ClsPaginas
@@ -85,6 +89,15 @@ Partial Class RepContratoDetalle
             ViewState("AsientoSeleccionado") = value
         End Set
     End Property
+    Private Property TelefonoEmpresa As String
+        Get
+            Return ViewState("TelefonoEmpresa").ToString()
+        End Get
+        Set(value As String)
+            ViewState("TelefonoEmpresa") = value
+        End Set
+    End Property
+
 #End Region
 
 #Region "Carga Página"
@@ -100,6 +113,7 @@ Partial Class RepContratoDetalle
             CveViajePasajero = 0
             Session("FileExtension") = ""
             ArchivoUpdate = ""
+            TelefonoEmpresa = ""
 
         End If
     End Sub
@@ -122,7 +136,6 @@ Partial Class RepContratoDetalle
                 Dim Importe As Decimal = Contrato.Rows(0)("Importe").ToString.ToDecimal
                 Dim Pesos As Decimal = Contrato.Rows(0)("ImporteMax").ToString.ToDecimal
                 Dim Anticipo As Decimal = Contrato.Rows(0)("ImporteMin").ToString.ToDecimal
-
                 CveContratoTipo = Contrato.Rows(0)("CveContratoTipo").ToString.ToEntero
                 SubProyecto = Contrato.Rows(0)("SubProyecto").ToString
                 CveMasivo = Contrato.Rows(0)("CveMasivo").ToString.ToEntero
@@ -132,6 +145,7 @@ Partial Class RepContratoDetalle
                 DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString
                 TxtDescripcion.Text = Contrato.Rows(0)("DescripcionContrato").ToString
                 TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString
+                TelefonoEmpresa = Contrato.Rows(0)("Telefono").ToString
                 TxtUbicacion.Text = Contrato.Rows(0)("Ubicacion").ToString
                 TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString
                 TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString
@@ -180,7 +194,7 @@ Partial Class RepContratoDetalle
 #Region "Información General"
     Protected Sub BtnGuardarArchivo_Click1(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click
         Dim FileExtension As String = "-1"
-        Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
+        Dim Filesgral As List(Of Extensiones.Archivo) = Anexo.getfiles().Archivos
         Dim Filename As String = ""
         Dim folderContratosPath As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos")
 
@@ -253,7 +267,7 @@ Partial Class RepContratoDetalle
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
         Try
-            If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus) Then
+            If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservacion.Text) Then
                 Alert("Contrato actualizado correctamente")
             End If
             ObjContratos.Commit()
@@ -304,12 +318,16 @@ Partial Class RepContratoDetalle
             New ReportParameter("Servicio", TxtDescripcion.Text),
             New ReportParameter("Observaciones", TxtObservaciones.Text),
             New ReportParameter("Ubicacion", TxtUbicacion.Text),
-            New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("HH:mm")),
-            New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("HH:mm")),
+            New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("dd/MM/yyyy")),
+            New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("dd/MM/yyyy")),
             New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text),
-            New ReportParameter("TipoAF", DdlTipoAF.Text),
-            New ReportParameter("Importe", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString),
-            New ReportParameter("Anticipo", (TxtAnticipo.Text.ToDecimal * 100).ToString)
+            New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()),
+            New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString),
+            New ReportParameter("Dolares", Math.Round((TxtImporte.Text.ToDecimal / 17.1), 2).ToString),
+            New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal) / 2).ToString),
+            New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString),
+            New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "),
+            New ReportParameter("TelefonoEmpresa", TelefonoEmpresa)
         }
 
         ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato")
diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index 135ddb22d..4df1d60ee 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -100,7 +100,7 @@ Partial Class ListadoContratos
         'Agregamos Contrato
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
-        If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
+        If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then
             ObjContratos.Commit()
             Alert("Agregado Correctamente.")
         End If

From 302d0694992085e8f45ed3283ed91e6e1938f634 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 19 Apr 2024 17:21:22 -0700
Subject: [PATCH 66/70] Thread  GeneraPDFFactura

---
 Ventas/Ventas.aspx    |  2 +-
 Ventas/Ventas.aspx.vb | 23 ++++++++++++++++++++---
 2 files changed, 21 insertions(+), 4 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 935689de9..81715ba2b 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="Ventas - Facturación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Ventas.aspx.vb" Inherits="Ventas" EnableEventValidation="false" %>
+<%@ Page Title="Ventas - Facturación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Ventas.aspx.vb" Inherits="Ventas" EnableEventValidation="false"   %>
 
 <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="cc1" %>
 <%@ Register Src="~/UserControl/AddMedico.ascx" TagPrefix="UserControl" TagName="AddMedico" %>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0706e5dba..86e9bb18b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2898,6 +2898,7 @@ Partial Class Ventas
                     End If
 
                 End If
+
             Else
                 TxtFechaOS.Text = NowADS().ToDateTime.ToString("yyyy-MM-dd HH:mm").Replace(" ", "T")
 
@@ -10770,8 +10771,9 @@ Partial Class Ventas
                                 If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                                     GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, "", UsarDescargaDesdePopUpVerFactura:=False)
                                 Else
+                                    Dim capturedContext = HttpContext.Current
                                     Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-                                    Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
+                                    Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST, EsHilo:=True, Contexto:=capturedContext))
                                     Hilo.Start()
                                 End If
                             Catch ex As Exception
@@ -16307,7 +16309,14 @@ Partial Class Ventas
     ''' <param name="strURLHOST"></param>
     ''' <param name="CorreoCRM"></param>
     ''' <param name="UsarDescargaDesdePopUpVerFactura"></param>
-    Private Sub GeneraPDFFactura(EnviaCorreo As Boolean, Factura As Modelos.Factura, UsuarioActual As Usuario, strURLHOST As String, Optional CorreoCRM As String = "", Optional UsarDescargaDesdePopUpVerFactura As Boolean = True)
+    Private Sub GeneraPDFFactura(EnviaCorreo As Boolean, Factura As Modelos.Factura, UsuarioActual As Usuario, strURLHOST As String, Optional CorreoCRM As String = "", Optional UsarDescargaDesdePopUpVerFactura As Boolean = True,
+                                 Optional EsHilo As Boolean = False, Optional Contexto As HttpContext = Nothing)
+
+        If EsHilo Then
+            HttpContext.Current = Contexto
+            HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
+        End If
+
         'GUARDA PDF
         Dim LocalSerieFolio As String = String.Empty
         Dim LocalTipoDocto As String = String.Empty
@@ -16368,6 +16377,8 @@ Partial Class Ventas
             End If
         End If
 
+
+
     End Sub
     Private Sub GeneraPDFCotizacion(EnviaCorreo As Boolean, Optional CorreoContactoCRM As String = "", Optional pdfCRM As Byte() = Nothing,
                                     Optional SerieFolioCRM As String = "", Optional TipoDoctoCRM As String = "")
@@ -17278,9 +17289,10 @@ Partial Class Ventas
                     'IMPRESION
                     Try
                         'MANDA CORREO
+                        Dim capturedContext = HttpContext.Current
                         Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
                         Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False)
-                        Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
+                        Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST, EsHilo:=True, Contexto:=capturedContext))
                         Hilo.Start()
                     Catch ex As Exception
                         OnError("Ocurrió un error al enviar el PDF", ex)
@@ -38113,5 +38125,10 @@ Partial Class Ventas
         End If
 
     End Sub
+
+
+
+
+
 End Class
 

From 7d92ef383185c736976e0eccfe81970d09bb7497 Mon Sep 17 00:00:00 2001
From: AbrahamCastilloV <abcastillo.yo@gmail.com>
Date: Fri, 19 Apr 2024 17:45:21 -0700
Subject: [PATCH 67/70] --Ajustes al tipo de moneda del contrato

---
 Transportes/RepContratoDetalle.aspx.vb | 3 ++-
 packages.config                        | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index 946121897..39150edd3 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -143,6 +143,7 @@ Partial Class RepContratoDetalle
                 LbCveSubProyecto.Text = Contrato.Rows(0)("CveSubProyecto").ToString
                 DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString
                 DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString
+                DdlMoneda.SelectedValue = Contrato.Rows(0)("CveMoneda").ToString
                 TxtDescripcion.Text = Contrato.Rows(0)("DescripcionContrato").ToString
                 TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString
                 TelefonoEmpresa = Contrato.Rows(0)("Telefono").ToString
@@ -323,7 +324,7 @@ Partial Class RepContratoDetalle
             New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text),
             New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()),
             New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString),
-            New ReportParameter("Dolares", Math.Round((TxtImporte.Text.ToDecimal / 17.1), 2).ToString),
+            New ReportParameter("Moneda", DdlMoneda.SelectedItem.ToString),
             New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal) / 2).ToString),
             New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString),
             New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "),
diff --git a/packages.config b/packages.config
index c3434bbfd..b08049006 100644
--- a/packages.config
+++ b/packages.config
@@ -63,6 +63,7 @@
   <package id="NuGet.Core" version="2.14.0" targetFramework="net481" />
   <package id="Owin" version="1.0" targetFramework="net481" />
   <package id="Portable.BouncyCastle" version="1.8.9" targetFramework="net481" />
+  <package id="QRCoder" version="1.4.3" targetFramework="net48" />
   <package id="StackExchange.Redis.StrongName" version="1.0.488" targetFramework="net481" />
   <package id="System.Buffers" version="4.5.1" targetFramework="net481" />
   <package id="System.Collections.Immutable" version="1.7.1" targetFramework="net481" />

From d60bd65e5f2fe53d0679c942135006e962b65ddf Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 19 Apr 2024 18:00:14 -0700
Subject: [PATCH 68/70] --V&A Cambios en cronograma

---
 Transportes/RepContratosCalendario.aspx    |  8 +++++++-
 Transportes/RepContratosCalendario.aspx.vb | 18 ++++++++++--------
 2 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index b8ab0b757..be43ad1ff 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -21,7 +21,7 @@
 
         #chartdiv {
             width: 100%;
-            height: 500px;
+            height: 700px;
         }
     </style>
 </asp:Content>
@@ -613,9 +613,15 @@
                     orientation: "horizontal"
                 });
 
+                var scrollbarY = am5.Scrollbar.new(root, {
+                    orientation: "vertical"
+                });
+
                 chart.set("scrollbarX", scrollbarX);
                 chart.bottomAxesContainer.children.push(scrollbarX);
 
+                chart.set("scrollbarY", scrollbarY);
+
                 // Make stuff animate on load
                 // https://www.amcharts.com/docs/v5/concepts/animations/
                 series.appear();
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 91813e109..383b245e7 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -62,11 +62,13 @@ Partial Class RepContratosCalendario
     Private Sub CargaCronograma()
         If DtAvance IsNot Nothing Then
 
-            For Each Row As DataRow In DtAvance.Rows
-                If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
-                    Row("CodigoAF") = "Unidad no asignada"
-                End If
-            Next
+            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", "Codigo", {"Codigo"})
+
+            'For Each Row As DataRow In DtAvance.Rows
+            '    If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
+            '        Row("CodigoAF") = "Unidad no asignada"
+            '    End If
+            'Next
 
             Dim jsonData As New JArray()
             Dim jsonCategorias As New JArray()
@@ -87,10 +89,10 @@ Partial Class RepContratosCalendario
                 jsonData.Add(obj)
             Next
 
-            'CATEGORIAS
-            For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> ''", "", {"CodigoAF"}).Rows
+            'CATEGORIAS 'AGREGAR TODAS LAS UNIDADES
+            For Each Row As DataRow In DtUnidades.Rows
                 Dim obj As New JObject(
-                    New JProperty("category", Row("CodigoAF"))
+                    New JProperty("category", Row("Codigo"))
                 )
                 jsonCategorias.Add(obj)
             Next

From e8a993f3facf2816489af7b44d663fbb1b8585b7 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 19 Apr 2024 18:01:29 -0700
Subject: [PATCH 69/70] --FIX, cerrar corte de caja al dia siguiente
 --Anticipos de publico general en otros clientes

---
 Ventas/Ventas.aspx.vb | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0706e5dba..87fd3ae4a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3746,7 +3746,7 @@ Partial Class Ventas
             If ObjPVenta.DtResultados.Rows.Count > 0 Then
                 CveCorte = ObjPVenta.CveCorte
                 Dim FechaICorte As Date = ObjPVenta.FechaInicial.Date '.AddDays(-5)
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso FechaICorte < NowADS().Date Then
+                If (UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1") AndAlso FechaICorte < NowADS().Date Then
                     DebeCerrarCorte = True
                     LblMotivoBloqueo.Text = $"Existe un corte del día <b>{FechaICorte.ToString("dd/MM/yyyy")}</b>. Favor de cerrarlo para iniciar un nuevo corte."
                 Else
@@ -16501,8 +16501,25 @@ Partial Class Ventas
 
             Dim ObjMovtos As New ClsMovimientos()
             If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente) Then
-
                 Me.TmpDTAnticiposNCIxCCliente = ObjMovtos.DtResultados.Copy()
+            End If
+
+            'AGREGAR LOS ANTICIPOS, DEV, IxC QUE ESTEN EN PUBLICO GENERAL
+            If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso UsuarioActual.CveEmpresa = 190 Then
+                Dim CveClientePublicoGeneral = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
+                If CveClientePublicoGeneral > 0 Then
+                    If CveCliente <> CveClientePublicoGeneral Then
+                        If ObjMovtos.GetAnticiposNCIxCCliente(CveClientePublicoGeneral) Then
+                            For Each DrGeneral As DataRow In ObjMovtos.DtResultados.Rows
+                                Me.TmpDTAnticiposNCIxCCliente.Rows.Add(DrGeneral.ItemArray)
+                            Next
+                        End If
+                    End If
+                End If
+            End If
+            ObjMovtos.Dispose()
+
+            If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then
                 Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")}  {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}")
 
                 If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
@@ -16516,7 +16533,6 @@ Partial Class Ventas
             Else
                 GVAnticipos.DataSource = Nothing
             End If
-            ObjMovtos.Dispose()
 
             If CveVenta <= 0 OrElse (EsCreaApartirDe Or CveDevolucion > 0) Then
                 divAmortizacionTipo.Visible = True

From 6af51a671cbb842ad623b7d61de004420239e963 Mon Sep 17 00:00:00 2001
From: AbrahamCastilloV <abcastillo.yo@gmail.com>
Date: Fri, 19 Apr 2024 18:13:45 -0700
Subject: [PATCH 70/70] --

---
 Transportes/RepContratoDetalle.aspx.vb | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index 39150edd3..0a2d19126 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -325,10 +325,12 @@ Partial Class RepContratoDetalle
             New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()),
             New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString),
             New ReportParameter("Moneda", DdlMoneda.SelectedItem.ToString),
-            New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal) / 2).ToString),
+            New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal), 2).ToString),
             New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString),
             New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "),
-            New ReportParameter("TelefonoEmpresa", TelefonoEmpresa)
+            New ReportParameter("TelefonoEmpresa", TelefonoEmpresa),
+            New ReportParameter("FechaImpresion", Date.Now.ToString("dd/MM/yyyy HH:mm:ss")),
+            New ReportParameter("Usuario", UsuarioActual.Nombre)
         }
 
         ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato")