From f0792f5a36ab582c3268ced05c82cea43ed97c33 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 17 Jun 2024 22:38:36 -0700
Subject: [PATCH 1/8] =?UTF-8?q?--=20unificaci=C3=B3n=20de=20m=C3=B3dulo=20?=
 =?UTF-8?q?de=20contabilidad?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsPaginas.vb | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 16a9ba508..9de571e8d 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9986,13 +9986,13 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad/RepEstadoResultadosAnual.aspx".ToUpper(), 127)
             PaginaDict.Add("/Contabilidad/FiltraPolizas.aspx".ToUpper(), 128)
             PaginaDict.Add("/Contabilidad/RepContabilidadDiaria.aspx".ToUpper(), 504)
-            PaginaDict.Add("/Contabilidad/CatCuentas.aspx".ToUpper(), 178)
-            PaginaDict.Add("/Contabilidad/CatCuentasCI.aspx".ToUpper(), 178)
+            PaginaDict.Add("/Contabilidad/CatCuentas.aspx".ToUpper(), 596)
+            PaginaDict.Add("/Contabilidad/CatCuentasCI.aspx".ToUpper(), 596)
             PaginaDict.Add("/Contabilidad/RepOrigenAplicacion.aspx".ToUpper(), 354)
             PaginaDict.Add("/Contabilidad/RepBalanceGeneralProForma.aspx".ToUpper(), 358)
             PaginaDict.Add("/Contabilidad/RepEstadoResultadosProForma.aspx".ToUpper(), 359)
-            PaginaDict.Add("/Contabilidad/RepBalanceGeneral.aspx".ToUpper(), 362)
-            PaginaDict.Add("/Contabilidad/RepBalanceGeneralCI.aspx".ToUpper(), 362)
+            PaginaDict.Add("/Contabilidad/RepBalanceGeneral.aspx".ToUpper(), 586)
+            PaginaDict.Add("/Contabilidad/RepBalanceGeneralCI.aspx".ToUpper(), 586)
             PaginaDict.Add("/Contabilidad/RepEstadoResultados.aspx".ToUpper(), 363)
             PaginaDict.Add("/Contabilidad/RepIVADiferencias.aspx".ToUpper(), 127)
             PaginaDict.Add("/Contabilidad/PolizasImpresion.aspx".ToUpper(), 380)
@@ -10015,12 +10015,12 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad/RepEstadoResultadosPorSegmento.aspx".ToUpper(), 1317)
             PaginaDict.Add("/Contabilidad/RepAnexoCatalogoMes.aspx".ToUpper(), -1)
             PaginaDict.Add("/Contabilidad/RepAnexoCatalogoSegmento.aspx".ToUpper(), -1)
-            PaginaDict.Add("/Contabilidad/RepAnexoCatalogo.aspx".ToUpper(), 341)
-            PaginaDict.Add("/Contabilidad/RepAnexoCatalogoCI.aspx".ToUpper(), 341)
-            PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 340)
-            PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogoCI.aspx".ToUpper(), 340)
-            PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 344)
-            PaginaDict.Add("/Contabilidad/RepBalanzaComprobacionCI.aspx".ToUpper(), 344)
+            PaginaDict.Add("/Contabilidad/RepAnexoCatalogo.aspx".ToUpper(), 580)
+            PaginaDict.Add("/Contabilidad/RepAnexoCatalogoCI.aspx".ToUpper(), 580)
+            PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 587)
+            PaginaDict.Add("/Contabilidad/RepMovimientosAuxiliaresCatalogoCI.aspx".ToUpper(), 587)
+            PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 582)
+            PaginaDict.Add("/Contabilidad/RepBalanzaComprobacionCI.aspx".ToUpper(), 582)
             PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714)
             PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677)
             PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752)

From 0ba0a5ccd9d0fadef162be687419705d7841426d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 17 Jun 2024 23:08:49 -0700
Subject: [PATCH 2/8] --

---
 App_Code/ClsPaginas.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 9de571e8d..fa9d08dda 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9993,7 +9993,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad/RepEstadoResultadosProForma.aspx".ToUpper(), 359)
             PaginaDict.Add("/Contabilidad/RepBalanceGeneral.aspx".ToUpper(), 586)
             PaginaDict.Add("/Contabilidad/RepBalanceGeneralCI.aspx".ToUpper(), 586)
-            PaginaDict.Add("/Contabilidad/RepEstadoResultados.aspx".ToUpper(), 363)
+            PaginaDict.Add("/Contabilidad/RepEstadoResultados.aspx".ToUpper(), 583)
             PaginaDict.Add("/Contabilidad/RepIVADiferencias.aspx".ToUpper(), 127)
             PaginaDict.Add("/Contabilidad/PolizasImpresion.aspx".ToUpper(), 380)
             PaginaDict.Add("/Contabilidad/RegPrePolizaS.aspx".ToUpper(), 398)
@@ -10028,7 +10028,7 @@ Public Class ClsPaginas
 
             'PaginaDict.Add("/Contabilidad/RepAnexoCatalogo.aspx".ToUpper(), 580)
             'PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 582)
-            PaginaDict.Add("/Contabilidad/RepEstadoActividades.aspx".ToUpper(), 583)
+            'PaginaDict.Add("/Contabilidad/RepEstadoResultados.aspx".ToUpper(), 583)
             'PaginaDict.Add("/Contabilidad/RepFlujoEfectivo.aspx".ToUpper(), 584)
             PaginaDict.Add("/Contabilidad/RepCambiosSituacionFinanciera.aspx".ToUpper(), 585)
             'PaginaDict.Add("/Contabilidad/RepSituacionFinanciera.aspx".ToUpper(), 586)

From e86b460f063264f3e5ec02771fcd9ede76f0a525 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 18 Jun 2024 07:03:56 -0700
Subject: [PATCH 3/8] -- parametro esfilial

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

diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 0fb8625fc..41430dc83 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -219,6 +219,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
+        DdlFilial.SelectedValue = IfNull(Request("EsFilial"), "-1").ToString
 
         UPFiltros.Update()
 
diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx
index c1232922e..b25d64af5 100644
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -334,13 +334,6 @@
                                 <asp:ListItem Text="No Distribuidor" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <label class="col-md-1 truncate">Relación:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlTipoRelacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SATTipoRelacion" DataValueField="CveTipoRelacion">
-                            </asp:DropDownList>
-                        </div>
-
-
                         <asp:Label runat="server" ID="LblServicioDomicilioFiltro" class="col-md-1 truncate" Visible="false">Servicio Domicilio:</asp:Label>
                         <div class="col-md-2" runat="server" id="DVServicioDomicilio" Visible="false">
                             <asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
@@ -358,6 +351,13 @@
                                 </asp:DropDownList>
                             </div>
                     </div>
+                    <div class="row">
+                         <label class="col-md-1 truncate">Relación:</label>
+                             <div class="col-md-2">
+                                 <asp:DropDownList ID="DdlTipoRelacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SATTipoRelacion" DataValueField="CveTipoRelacion">
+                                 </asp:DropDownList>
+                             </div>
+                    </div>
                 </div>
             </div>
         </ContentTemplate>
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index c5313733e..482a7b53e 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -486,7 +486,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}&EsFacturaGlobal={DdlFacturaGlobal.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}&EsFilial={e.Row.DBCampo("EsFilial")}"
 
 
             e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"

From 3080983a7b1af20bccc89eb7e4c0b5a042fba092 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 18 Jun 2024 08:03:38 -0700
Subject: [PATCH 4/8] -- columna de diferencia en vista SAT

---
 Contabilidad/RepBalanzaComprobacion.aspx    |  6 ++++++
 Contabilidad/RepBalanzaComprobacion.aspx.vb | 11 ++++++++---
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/Contabilidad/RepBalanzaComprobacion.aspx b/Contabilidad/RepBalanzaComprobacion.aspx
index 012d56e52..5cd0c879a 100644
--- a/Contabilidad/RepBalanzaComprobacion.aspx
+++ b/Contabilidad/RepBalanzaComprobacion.aspx
@@ -197,6 +197,12 @@
                                 </ItemTemplate>
                                 <ItemStyle Width="120" HorizontalAlign="Right" />
                             </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Diferencia" Visible="false">
+                                <ItemTemplate>
+                                    <asp:Literal ID="Lbdif" runat="server" Text='<%# Eval("diferenciaSAT", "{0:N2}")%>'></asp:Literal>
+                                </ItemTemplate>
+                                <ItemStyle Width="100" HorizontalAlign="Right" />
+                            </asp:TemplateField>
                         </Columns>
                         <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
                     </asp:GridView>
diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb
index 131bf3e00..b25bec6b6 100644
--- a/Contabilidad/RepBalanzaComprobacion.aspx.vb
+++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb
@@ -123,7 +123,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
         Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
 
-        If TipoReporte = 1 Then
+        If DdlVista.SelectedValue = "1" Then
             'mostrar cuales son las cuentas que no tienen asignado el agrupador que sean afectables
 
             If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
@@ -133,7 +133,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
                     For Each dr As DataRow In dtt.Rows
                         str.AppendFormat(" - {0} </br>", dr("CtaCodigo"))
                     Next
-                    Alert(str.ToString)
+                    Alert("Cuentas sin clasificador SAT asignado: <br/>" & str.ToString)
                 End If
             End If
 
@@ -145,8 +145,13 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
             DtDatos = Nothing
             Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)
         End If
-
         ObjConta.Dispose()
+        If DdlVista.SelectedValue = "1" Then
+            GvDatos.Columns(6).Visible = True
+        Else
+            GvDatos.Columns(6).Visible = False
+        End If
+
         CargaGrid()
     End Sub
     Private Sub CargaGrid()

From 2f2bb1f765dc94f649a9c89accf2e4322c9be079 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 18 Jun 2024 08:11:55 -0700
Subject: [PATCH 5/8] -

---
 asmx/WS_PuntoVenta.asmx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/asmx/WS_PuntoVenta.asmx b/asmx/WS_PuntoVenta.asmx
index 1e0d53ca2..04adb10b2 100644
--- a/asmx/WS_PuntoVenta.asmx
+++ b/asmx/WS_PuntoVenta.asmx
@@ -1184,7 +1184,7 @@ Public Class WS_PuntoVenta
         Dim objPV As New ClsPuntoVenta()
         Dim CveCorte As Integer
 
-        If objPV.AddVtaCortes(FechaInicial, ImporteInicial, CveUsuario, Descripcion, CveEmpresa) Then
+        If objPV.AddVtaCortes(FechaInicial, ImporteInicial, CveUsuario, Descripcion, -1, CveEmpresa) Then
             CveCorte = objPV.CveCorte
         End If
 

From 0e09c91a207a96244e501a860153c482a3620bab Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 18 Jun 2024 08:13:31 -0700
Subject: [PATCH 6/8] -- menu - opciones de contabilidad

---
 Metronic/assets/admin/layout/css/custom.css | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css
index 4d90d2786..39d7fa699 100644
--- a/Metronic/assets/admin/layout/css/custom.css
+++ b/Metronic/assets/admin/layout/css/custom.css
@@ -2294,7 +2294,7 @@ select.input-sm {
 .contabilidadbody .page-bar .page-breadcrumb > li > a,
 .contabilidadbody .page-bar .page-breadcrumb > li > span,
 .contabilidadbody .page-bar .page-breadcrumb > li > i {
-    color: white;
+    color: #888;
 }
 
 .contabilidadbody .page-sidebar-closed.page-sidebar-fixed .page-sidebar:hover .page-sidebar-menu > li.active > a:hover,
@@ -2310,12 +2310,12 @@ select.input-sm {
 .contabilidadbody .page-sidebar .page-sidebar-menu > li.active > a:hover,
 .contabilidadbody .page-sidebar .page-sidebar-menu > li.active.open > a:hover,
 .contabilidadbody .page-bar {
-    background-color: #F08886;
+    background-color: #F7F7F7;
 }
 
 .contabilidadbody .portlet-title .font-green,
 .contabilidadbody .portlet-title .font-green a {
-    color: #F08886 !important;
+    color: #F7F7F7 !important;
 }
 /*RH recursos humanos*/
 .rhumanosbody .page-bar .page-breadcrumb > li > a,

From a126ce4e29c38d40d079c6ebf7bd450371b68212 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 18 Jun 2024 08:13:46 -0700
Subject: [PATCH 7/8] -- mejoras en comisiones SMS

---
 Ventas/RepComisionesSMS.aspx    | 2 +-
 Ventas/RepComisionesSMS.aspx.vb | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Ventas/RepComisionesSMS.aspx b/Ventas/RepComisionesSMS.aspx
index 9fce7ed34..ddba4894e 100644
--- a/Ventas/RepComisionesSMS.aspx
+++ b/Ventas/RepComisionesSMS.aspx
@@ -156,7 +156,7 @@
                                   <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
                                       DataKeyNames="CveVenta,SerieFolio,Hospital,Medico,Especialidad,FechaCirugia,Procedimiento,Codigo,PU,Cantidad,Total,CveVendedor,Vendedor,Nombre,ComisionMedico,ComisionVendedor,ComisionTecnico"
                                       data-sort="true"
-                                      EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                      EmptyDataText="No se encontraron Registrados" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                       <Columns>
 
                                           <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta"  DatatextField="SerieFolio" ItemStyle-HorizontalAlign="Left" />
diff --git a/Ventas/RepComisionesSMS.aspx.vb b/Ventas/RepComisionesSMS.aspx.vb
index 94940d4c8..fcf4f8de3 100644
--- a/Ventas/RepComisionesSMS.aspx.vb
+++ b/Ventas/RepComisionesSMS.aspx.vb
@@ -375,6 +375,7 @@ Partial Class Ventas_RepComisionesSMS
             If e.Row.DBCampo("SerieFolio") = "" Then
                 e.Row.CssClass = "SubTotales"
             End If
+            e.Row.Cells(4).Attributes.Add("data-order", e.Row.DBCampo("FechaCirugia").ToDate.ToString("yyyyMMddHHmmss"))
         End If
 
     End Sub

From f3f9a0e187d943c57021cb8ec2025a22e1a3317a Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 18 Jun 2024 09:04:49 -0700
Subject: [PATCH 8/8] Productos Servicios, lentitud productos adicionales

---
 Empresas/Grales/Formatos/OC.rdlc  |   2 +-
 General/SaldosMenores.aspx        | 246 +++++++++++++++++++++---------
 General/SaldosMenores.aspx.vb     | 231 +++++++++++++++++++++-------
 Ventas/ProductosServicios.aspx    |  12 +-
 Ventas/ProductosServicios.aspx.vb |  60 ++++++--
 5 files changed, 401 insertions(+), 150 deletions(-)

diff --git a/Empresas/Grales/Formatos/OC.rdlc b/Empresas/Grales/Formatos/OC.rdlc
index cc597ee16..c73d0eda4 100644
--- a/Empresas/Grales/Formatos/OC.rdlc
+++ b/Empresas/Grales/Formatos/OC.rdlc
@@ -1960,7 +1960,7 @@
               <Width>6.2308cm</Width>
               <ZIndex>3</ZIndex>
               <Visibility>
-                <Hidden>=IIF(Parameters!EntregaDirecta.Value &lt;&gt; "False",FALSE,TRUE)</Hidden>
+                <Hidden>true</Hidden>
               </Visibility>
               <Style>
                 <Border>
diff --git a/General/SaldosMenores.aspx b/General/SaldosMenores.aspx
index 29cf6026e..f342a2863 100644
--- a/General/SaldosMenores.aspx
+++ b/General/SaldosMenores.aspx
@@ -10,7 +10,7 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
+<%--    <li>
         <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-ad-pdf"></i>  Generar PDF</asp:LinkButton>
     </li>
     <li>
@@ -18,17 +18,8 @@
     </li>
     <li>
         <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
-    </li>
-<%--    <asp:UpdatePanel ID="UpLnkAgregar" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <li>
-                <asp:LinkButton ID="LnkHabilitarSaldar" OnClick="LnkHabilitarSaldar_Click" runat="server">Otros Ingresos</asp:LinkButton>
-            </li>
-            <li>
-                <asp:LinkButton ID="LnkSaldar" Visible="false" OnClick="LnkSaldar_Click" runat="server">Saldar</asp:LinkButton>
-            </li>
-        </ContentTemplate>
-    </asp:UpdatePanel>--%>
+    </li>--%>
+ 
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
@@ -44,11 +35,7 @@
                     <div class="titlefiltros  caption">
                         <div class="row" style="margin-left: 10px;">
                             
-                            <%--<label class="col-md-1 " id="LblDdlSucursal" runat="server">Sucursal:</label>
-                            <div class="col-md-2" id="DivDdlSucursal" runat="server">
-                                <asp:DropDownList ID="DdlSucursal" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
-                                </asp:DropDownList>
-                            </div>--%>
+ 
                            
                             <div class="col-md-1" style="">Fecha Ini Doc:</div>
                             <div class="col-md-1">
@@ -96,57 +83,6 @@
                 </div>
                 <div class="portlet-body" style="display: none;">
                     <div class="row" style="margin-left: 10px;">
-
-              <%--          <div class="col-md-1">Tipo:</div>
-                        <div class="col-md-2">
-                            <asp:DropDownList CssClass="form-control input-sm  select2me" ID="DdlTipo" runat="server" Width="100%" Class="table-group-action-input form-control input-inline input-small input-sm">
-                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                <asp:ListItem Text="Anticipos" Value="1"></asp:ListItem>
-                                <asp:ListItem Selected="True" Text="NC X Aplicar" Value="2"></asp:ListItem>
-                                <asp:ListItem Text="Ingresos X Comprobar" Value="3"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <div class="col-md-1" style="width: 5%">Con Saldo:</div>
-                        <div class="col-md-2" style="display:flex; width:20%">
-                            <asp:DropDownList CssClass="form-control input-sm  select2me" ID="DdlConSaldo" runat="server" Width="15%" Class="table-group-action-input form-control input-inline input-small input-sm">
-                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                <asp:ListItem Selected="True" Text="Si" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
-                            </asp:DropDownList>
-                            <div style="width:30%;text-align:center">Vendedor:</div>
-                            <div id="DivDdlVendedor" runat="server" style="width:55%;display:flex">
-                                <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
-                                </asp:DropDownList>
-                            </div>
-                        </div>--%>
-
-                       <%-- <div class="col-md-1">Fecha Ini. Ap:</div>
-                        <div class="col-md-1">
-                            <div class="input-group input-sm input-small date date-picker  " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
-                                <asp:TextBox ID="TxtFechaICorte" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                <span class="input-group-btn ">
-                                    <asp:LinkButton ID="LnkFechaICorte" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                </span>
-                                <ajax:MaskedEditExtender ID="MEEFechaICorte" runat="server" TargetControlID="TxtFechaICorte" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CEFechaICorte" TargetControlID="TxtFechaICorte" PopupButtonID="LnkFechaICorte" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:CompareValidator ID="CVFechaICorte" runat="server" ControlToValidate="TxtFechaICorte" Display="None" ErrorMessage="El campo <b>''Fecha Inicial Corte''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCEFechaICorte2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaICorte" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
-                        </div>
-                        <div class="col-md-1" style="margin-left: 20px">Fecha Fin Ap:</div>
-                        <div class="col-md-1">
-                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
-                                <asp:TextBox ID="TxtFechaFCorte" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                <span class="input-group-btn ">
-                                    <asp:LinkButton ID="LnkFechaFCorte" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                </span>
-                                <ajax:MaskedEditExtender ID="MEEFechaFCorte" runat="server" TargetControlID="TxtFechaFCorte" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CEFechaFCorte" TargetControlID="TxtFechaFCorte" PopupButtonID="LnkFechaFCorte" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:CompareValidator ID="CVFechaFCorte" runat="server" ControlToValidate="TxtFechaFCorte" Display="None" ErrorMessage="El campo <b>''Fecha Final Corte''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCEFechaFCorte2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFCorte" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
-                        </div>--%>
-
                     </div>
                 </div>
             </div>
@@ -200,14 +136,18 @@
 
 
     <ajax:TabContainer runat="server" ID="Tabs">
+        
         <ajax:TabPanel ID="TabIXC" runat="server" HeaderText="IXC" ClientIDMode="Static">
             <ContentTemplate>
-                <div class="row">
-             
-                    <div class="row" style="margin-left: 0px; margin-top: 15px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
-                       <input type="text" id="TxtBusquedaIXC" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaIXC','{0}')", GvDatosIXC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                       <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaIXC','{0}')", GvDatosIXC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                   </div>
+                
+                
+                 <div class="row" style="margin-left: 0px; margin-top: 15px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
+                     <div class="col-md-6">
+                        <input type="text" id="TxtBusquedaIXC" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaIXC','{0}')", GvDatosIXC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaIXC','{0}')", GvDatosIXC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                     </div>                    
+                </div>
+                <div class="row">                                
 
                     <div class="col-md-6">
 
@@ -244,6 +184,164 @@
 
             </ContentTemplate>
         </ajax:TabPanel>
+
+        <ajax:TabPanel ID="TabNCEXC" runat="server" HeaderText="NC-EXC" ClientIDMode="Static">
+            <ContentTemplate>
+
+                 
+                 <div class="row" style="margin-left: 0px; margin-top: 15px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
+                     <div class="col-md-6">
+                        <input type="text" id="TxtBusquedaNCEXC" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaNCEXC','{0}')", GvDatosNCEXC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaNCEXC','{0}')", GvDatosNCEXC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                     </div>                    
+                </div>
+                <div class="row">                                
+
+                    <div class="col-md-6">
+
+                        <asp:UpdatePanel ID="UpDatosNCEXC" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+
+                                <asp:GridView ID="GvDatosNCEXC" runat="server" OnRowDataBound="GvDatosIXC_RowDataBound" GridLines="None"
+                                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False"
+                                    EmptyDataText="No se encontraron registros" data-sort="true" Width="99%"
+                                    DataKeyNames="CveCliente,CveMoneda,Saldo,CveVenta,NombreComercial,CveVentaAmortizacion,SerieFolioAmortizacion,SerieFolio,Total,TipoCambio,
+                                      Fecha,FechaAmortizacion,SubTotal,SubTotalAmortizacion,ImporteAmortizacion,CveIE,Tipo,SaldoAcumulativo,CveSubProyecto">
+                                    <Columns>
+                                        <asp:TemplateField>
+                                            <ItemTemplate>
+                                                <asp:CheckBox ID="chk" Checked="false" Visible="false" runat="server" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                        <asp:BoundField DataField="TipoColumna" HeaderText="" ItemStyle-HorizontalAlign="Left" />
+                                        <asp:BoundField DataField="SerieFolio" HeaderText="Cliente/Folio" ItemStyle-HorizontalAlign="Left" />
+                                        <asp:BoundField DataField="Fecha" ItemStyle-Width="10%" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
+                                        <asp:BoundField DataField="SubTotal" ItemStyle-Width="10%" HeaderText="Importe" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" />
+                                        <asp:BoundField DataField="ImporteAmortizacion" ItemStyle-Width="10%" HeaderText="Aplicado" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" Visible="false" />
+                                        <asp:BoundField DataField="Saldo" ItemStyle-Width="10%" HeaderText="Saldo" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" />
+                                        <asp:BoundField DataField="Abreviatura" ItemStyle-Width="5%" HeaderText="Moneda" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="Center" Visible="false" />
+                                        <asp:BoundField DataField="Costo" ItemStyle-Width="10%" HeaderText="Costo" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="Center" Visible="false" />
+                                    </Columns>
+                                </asp:GridView>
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+
+                    </div>
+                </div>
+
+
+            </ContentTemplate>
+        </ajax:TabPanel>
+
+
+       <ajax:TabPanel ID="TabVentas" runat="server" HeaderText="Ventas" ClientIDMode="Static">
+           <ContentTemplate>
+
+               <div class="row" style="margin-left: 0px; margin-top: 15px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
+                   <div class="col-md-6">
+                       <input type="text" id="TxtBusquedaVentas" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaVentas','{0}')", GvCxC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                       <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaVentas','{0}')", GvCxC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                   </div>
+               </div>
+               <div class="row">
+
+                   <div class="col-md-6">
+                        
+                       <asp:UpdatePanel ID="UPVentas" runat="server" UpdateMode="Conditional">
+                           <ContentTemplate>
+                               <asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Cobrar Pendientes"
+                                   DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago,CveTipoRetencion,Descuento,ClaveMetodoPagoSAT"
+                                   CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None" HeaderStyle-CssClass="ADtr">
+                                   <Columns>
+
+                                    
+                                       <asp:TemplateField>
+                                           <HeaderTemplate>
+                                               <input type="checkbox" id="ChkAll" onclick="CheckAll();" />
+                                           </HeaderTemplate>
+                                           <ItemTemplate>
+                                               <asp:CheckBox ID="Chk" CssClass="chkgv" runat="server"></asp:CheckBox>
+                                           </ItemTemplate>
+                                       </asp:TemplateField>
+                               
+                                       <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                                           <HeaderTemplate>Venta</HeaderTemplate>
+                                           <ItemTemplate>
+                                               <asp:HyperLink ID="HplF" CssClass="Texto" NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>' Text='<%# Eval("SerieFolio")%>' runat="server"></asp:HyperLink>
+                                           </ItemTemplate>
+                                       </asp:TemplateField>
+                                   
+                                       <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                                           <HeaderTemplate>
+                                               Tipo<br>
+                                               Docto
+                                           </HeaderTemplate>
+                                           <ItemTemplate>
+                                               <asp:Literal ID="LtlTipoDocto" runat="server" Text='<%# Eval("TipoDocto") %>'></asp:Literal>
+                                           </ItemTemplate>
+                                       </asp:TemplateField>
+                                     
+                                       <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                                           <HeaderTemplate>
+                                               Fecha<br>
+                                               Venta
+                                           </HeaderTemplate>
+                                           <ItemTemplate>
+                                               <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
+                                           </ItemTemplate>
+                                       </asp:TemplateField>
+                                      
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                                         <HeaderTemplate>
+                                            Moneda
+                                         </HeaderTemplate>
+                                         <ItemTemplate>
+                                             <asp:Literal ID="LtlMoneda" runat="server" Text='<%# Eval("Moneda" ) %>'></asp:Literal>
+                                         </ItemTemplate>
+                                     </asp:TemplateField>                                       
+                                       
+                                       <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                           <HeaderTemplate>
+                                               Monto
+                                                <br>
+                                               Venta
+                                           </HeaderTemplate>
+                                           <ItemTemplate>
+                                               <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                           </ItemTemplate>
+                                       </asp:TemplateField>
+                                       
+                                       <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                           <HeaderTemplate>Saldo</HeaderTemplate>
+                                           <ItemTemplate>
+                                               <asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                           </ItemTemplate>
+                                       </asp:TemplateField>                                       
+
+                                   </Columns>
+                               </asp:GridView>
+
+                           </ContentTemplate>
+                       </asp:UpdatePanel>
+
+                   </div>
+               </div>
+
+
+           </ContentTemplate>
+        </ajax:TabPanel>
+
+
+          <ajax:TabPanel ID="TabCompras" runat="server" HeaderText="Compras" ClientIDMode="Static">
+            <ContentTemplate>
+
+
+
+            </ContentTemplate>
+        </ajax:TabPanel>
+
+
     </ajax:TabContainer>
 
       
diff --git a/General/SaldosMenores.aspx.vb b/General/SaldosMenores.aspx.vb
index a28a3f8d2..d8faa5d11 100644
--- a/General/SaldosMenores.aspx.vb
+++ b/General/SaldosMenores.aspx.vb
@@ -11,10 +11,28 @@ Partial Public Class General_SaldosMenores
 #Region "PROPIEDADES"
     Private Property DtDatosIXC As DataTable
         Get
-            Return DirectCast(ViewState("DtDatos"), DataTable)
+            Return DirectCast(ViewState("DtDatosIXC"), DataTable)
         End Get
         Set(value As DataTable)
-            ViewState("DtDatos") = value
+            ViewState("DtDatosIXC") = value
+        End Set
+    End Property
+
+    Private Property DtDatosNCEXC As DataTable
+        Get
+            Return DirectCast(ViewState("DtDatosNCEXC"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtDatosNCEXC") = value
+        End Set
+    End Property
+
+    Private Property DtDatosVentas As DataTable
+        Get
+            Return DirectCast(ViewState("DtDatosVentas"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtDatosVentas") = value
         End Set
     End Property
 
@@ -64,6 +82,9 @@ Partial Public Class General_SaldosMenores
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
 
         DvSaldar.Visible = False
+        DtDatosIXC = New DataTable
+        DtDatosNCEXC = New DataTable
+        DtDatosVentas = New DataTable
 
         If Tabs.ActiveTab Is TabIXC Then
             CargaDatosIXC()
@@ -72,6 +93,15 @@ Partial Public Class General_SaldosMenores
             End If
         End If
 
+
+
+        If Tabs.ActiveTab Is TabVentas Then
+            CargaDatosVentas()
+            If DtDatosVentas.Rows.Count > 0 Then
+                DvSaldar.Visible = True
+            End If
+        End If
+
         Upsaldar.Update()
 
     End Sub
@@ -165,6 +195,11 @@ Partial Public Class General_SaldosMenores
         End If
 
 
+        If Tabs.ActiveTab Is TabVentas Then
+
+        End If
+
+
         TxtFecha.Text = DateTime.Today.ToString()
         Upsaldar.Update()
     End Sub
@@ -207,25 +242,9 @@ Partial Public Class General_SaldosMenores
         DdlSubProyectoSaldar.DataBind()
     End Sub
 
-
-
-
-
     Protected Sub CargaDatosIXC()
 
 
-
-
-        'If TipoCambio = 3 AndAlso TxtEspecifico.Text <> "" Then
-        '    TCEspecifico = TxtEspecifico.Text.ToDouble()
-        'Else
-        '    TCEspecifico = -1
-        'End If
-
-        'If TipoCambio <> 1 Then
-        '    CveMoneda = -1
-        'End If
-
         Dim FechaICorte As DateTime = MinFecha
         Dim FechaFCorte As DateTime = MaxFecha
 
@@ -250,17 +269,6 @@ Partial Public Class General_SaldosMenores
     End Sub
 
 
-
-    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
-        'GenerarPDF("EXCEL")
-    End Sub
-
-    Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
-        'GenerarPDF("PDF")
-    End Sub
-
-
-
     Protected Sub GvDatosIXC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosIXC.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             Dim Css As String = "Texto"
@@ -321,42 +329,147 @@ Partial Public Class General_SaldosMenores
         End If
     End Sub
 
-#Region "SALDAR"
 
-    'Private Sub HabilitarCheckbox()
-    '    For Each Gv As GridViewRow In GvDatosIXC.Rows
-    '        If (Gv.DataKey("CveVenta").ToEntero() > 0 OrElse Gv.DataKey("CveIE").ToEntero() > 0) AndAlso (Gv.DataKey("CveVentaAmortizacion").ToEntero() < 1) Then
-    '            Gv.FCCheckBox("Chk").Visible = True
-    '        End If
-    '    Next
-    'End Sub
 
-    'Protected Sub LnkHabilitarSaldar_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldar.Click
-    '    HabilitarCheckbox()
-    '    LnkSaldar.Visible = True
-    '    LnkHabilitarSaldar.Visible = False
-    '    UpLnkAgregar.Update()
-    '    UpDatos.Update()
-    'End Sub
 
-    Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs) 'Handles LnkSaldar.Click
-        If Tipo = 1 Then
-            TxtConcepto.Text = "Cancelación de Anticipos"
-        ElseIf Tipo = 2 Then
-            TxtConcepto.Text = "Cancelación de Saldo de Nota de crédito"
-        ElseIf Tipo = 3 Then
-            TxtConcepto.Text = "Cancelación de Ingresos por Comprobar"
+
+#End Region
+
+#Region "N C E X C"
+
+    '/Compras/RepAnt-NC-EXCDetalle.aspx
+
+    Protected Sub CargaDatosNCEXC()
+
+        Dim FechaICorte As DateTime = MinFecha
+        Dim FechaFCorte As DateTime = MaxFecha
+
+        Dim ObjVenta As New ClsVentas()
+        Dim CveCliente As Integer = -1
+
+        If ObjVenta.GetRepAnticiposNCIXCDetalle(CveCliente, -1, txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa, 1, -1, CveMoneda, FechaICorte, FechaFCorte, TipoCambio, TCEspecifico,
+                                                SaldoMayorA:=TxtSaldoMayorA.Text.ToDecimal, SaldoMenorA:=TxtSaldoMenorA.Text.ToDecimal) Then
+            GvDatosNCEXC.DataSource = ObjVenta.DtResultados
+            DtDatosNCEXC = ObjVenta.DtResultados
         End If
-        Upsaldar.Update()
-        RegistraScript("$('#DivModalSaldar').modal();")
+
+        ObjVenta.Dispose()
+        GvDatosIXC.DataBind()
+        UpDatos.Update()
+
+
+    End Sub
+
+
+    Protected Sub GvDatosNCEXC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosNCEXC.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim Css As String = "Texto"
+            Dim Liga As String = ""
+
+            If e.Row.DataKey("Tipo").ToEntero() < 1 Then
+                e.Row.CssClass = "SubTotales3"
+                e.Row.Cells(2).Text = e.Row.DBCampo("Moneda").ToString()
+            ElseIf e.Row.DataKey("CveCliente").ToEntero() < 1 Then
+                e.Row.CssClass = "SubTotales2"
+                Select Case e.Row.DataKey("Tipo").ToEntero()
+                    Case 1
+                        e.Row.Cells(2).Text = "Anticipos"
+                    Case 2
+                        e.Row.Cells(2).Text = "NC X Aplicar"
+                    Case 3
+                        e.Row.Cells(2).Text = "Ingresos X Comprobar"
+                End Select
+            ElseIf e.Row.DataKey("CveVentaAmortizacion").ToEntero() < 1 AndAlso e.Row.DataKey("CveVenta").ToEntero() < 1 AndAlso e.Row.DataKey("CveIE").ToEntero() < 1 Then
+                e.Row.CssClass = "Totales"
+                e.Row.Cells(2).Text = e.Row.DataKey("NombreComercial")
+                e.Row.Cells(7).Text = ""
+            ElseIf e.Row.DataKey("CveVentaAmortizacion").ToEntero() < 1 AndAlso e.Row.DataKey("CveVenta").ToEntero() > 0 Then
+                e.Row.CssClass = "SubTotales"
+                e.Row.Cells(2).Text = e.Row.DataKey("SerieFolio")
+                e.Row.Cells(3).Text = e.Row.DataKey("Fecha").ToDate().ToShortDateString()
+
+
+
+                Liga = $"/Ventas/Ventas.aspx?&CveVenta={e.Row.DataKey("CveVenta")}"
+                e.Row.Cells(2).Text = $"<a class=""{Css}"" href=""{Liga}"">{e.Row.Cells(2).Text}</a>"
+            ElseIf e.Row.DataKey("CveIE").ToEntero() > 0 AndAlso e.Row.DataKey("CveVentaAmortizacion").ToEntero() < 1 Then
+                e.Row.CssClass = "SubTotales"
+                e.Row.Cells(2).Text = e.Row.DataKey("SerieFolio")
+                e.Row.Cells(3).Text = e.Row.DataKey("Fecha").ToDate().ToShortDateString()
+                e.Row.Cells(4).Text = "$" & e.Row.DataKey("Total").FormatoNumero()
+                Liga = $"/Bancos/IE.aspx?&CveIE={e.Row.DataKey("CveIE")}"
+                e.Row.Cells(2).Text = $"<a class=""{Css}"" href=""{Liga}"">{e.Row.Cells(2).Text}</a>"
+            Else
+                e.Row.Cells(2).Text = e.Row.DataKey("SerieFolioAmortizacion")
+                e.Row.Cells(3).Text = e.Row.DataKey("FechaAmortizacion").ToDate().ToShortDateString()
+                e.Row.Cells(4).Text = "$" & e.Row.DataKey("ImporteAmortizacion").FormatoNumero()
+                e.Row.Cells(5).Text = "$" & e.Row.DataKey("ImporteAmortizacion").FormatoNumero()
+                e.Row.Cells(6).Text = "$" & e.Row.DataKey("SaldoAcumulativo").FormatoNumero()
+                Liga = $"/Ventas/Ventas.aspx?&CveVenta={e.Row.DataKey("CveVentaAmortizacion")}"
+                e.Row.Cells(2).Text = $"<a class=""{Css}"" href=""{Liga}"">{e.Row.Cells(2).Text}</a>"
+            End If
+
+
+            If (e.Row.DataKey("CveVenta").ToEntero() > 0 OrElse e.Row.DataKey("CveIE").ToEntero() > 0) AndAlso (e.Row.DataKey("CveVentaAmortizacion").ToEntero() < 1) Then
+                e.Row.FCCheckBox("Chk").Visible = True
+            End If
+
+        End If
+    End Sub
+
+
+
+
+
+
+#End Region
+
+#Region "V E N T A S"
+
+
+    '/Compras/RepAnt-NC-EXCDetalle.aspx
+
+    Protected Sub CargaDatosVentas()
+
+        Dim Mov As New ClsMovimientos
+        Dim FechaI As String = txtFechaI.Text
+        Dim FechaF As String = txtFechaF.Text
+
+        Dim FechaCorte As Date = NowADS().AddYears(1).ToShortDateString.ToString.ToDate
+
+        Dim SumDescuentoProntoPago As Double = 0.0
+        If Mov.GetCxCClienteDetalle(-1, FechaI, FechaF, -1, -1, UsuarioActual.CveEmpresa, -1, FechaCorte:=FechaCorte) Then
+            DtDatosVentas = Mov.DtResultados.FiltraParametros($"Saldo > {TxtSaldoMayorA.Text.ToDecimal} AND  Saldo < {TxtSaldoMenorA.Text.ToDecimal} ", "Fecha,SerieFolio").AsEnumerable().Take(51).CopyToDataTable()
+
+            'Dim TmpCxCAux As DataTable
+            'TmpCxCAux = Mov.DtResultados.FiltraParametros($"Saldo > {TxtSaldoMayorA.Text.ToDecimal} AND  Saldo < {TxtSaldoMenorA.Text.ToDecimal} ", "Fecha,SerieFolio").AsEnumerable().Take(51).CopyToDataTable()
+            SumDescuentoProntoPago = DtDatosVentas.SUM("DescuentoProntoPago")
+
+            GvCxC.DataSource = DtDatosVentas
+
+
+
+        End If
+        Mov.Dispose()
+        GvCxC.DataBind()
+
+        If SumDescuentoProntoPago > 0.0 Then
+            GvCxC.Columns(14).Visible = True 'MOSTRAR DESCUENTO PRONTO PAGO
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                GvCxC.Columns(15).Visible = True 'HABILITAR NC
+            End If
+        End If
+
+        UPVentas.Update()
+
+
+    End Sub
+
+
+    Protected Sub GvCxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCxC.RowDataBound
+
     End Sub
 
 
 #End Region
-
-
-
-
-#End Region
-
 End Class
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 8711161f6..231cfe849 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -475,7 +475,7 @@
                                                         </div>
                                                         <div class="actions">
                                                             <div class="btn-group">
-                                                                <asp:LinkButton ID="BtnAgregarPSAdicionalesModal" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar Producto/Servicio Adicional." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
+                                                                <asp:LinkButton ID="BtnAgregarPSAdicionalesModal" runat="server" data-toggle="tooltip" data-placement="top" title="Agregar Producto/Servicio Adicional." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
                                                             </div>
                                                         </div>
                                                     </div>
@@ -2340,10 +2340,12 @@
                             <ContentTemplate>
                                 <div class="row">
                                     <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlPSAdicional" Width="100%" runat="server" CssClass="form-control select2me" DataValueField="CvePS" DataTextField="PS"></asp:DropDownList>
-                                            <asp:RequiredFieldValidator ID="RFVPSAdicional" runat="server" ControlToValidate="DdlPSAdicional" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto/Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                            <label for="<%= DdlPSAdicional.ClientID.ToString()%>">Producto/Servicio:</label>
+                                        <div class="form-group form-md-line-input input-iconright">                                           
+                                            
+                                            <ADS:Dropdownlost runat="server" ID="DdlPSAdicional" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me"  CssStyle="width:100%" DataTextField="PSCodigo" DataValueField="CvePS" />                                                
+                                            <label for="<%= DdlPSAdicional.ClientID.ToString()%>" >Producto/Servicio:</label>
+                                            
+                                            
                                         </div>
                                     </div>
                                     <div class="col-md-6" id="DivTipoAdicional" runat="server" visible="false">
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 0c2c2bbde..917925e4c 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1982,10 +1982,12 @@ Partial Class ProductosyServicios
         BtnAgregarPSAdicional.Text = "Agregar"
         CvePSAdicional = -1
 
-        DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
-        DdlPSAdicional.DataBind()
-        DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
-        UpAddPSAdicional.Update()
+        CargaPSAdicional(DdlPSAdicional)
+
+        'DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
+        'DdlPSAdicional.DataBind()
+        'DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
+
 
         DdlPSAdicional.SelectedValue = "-1"
         TxtCantidadPSAdicional.Text = ""
@@ -1993,9 +1995,36 @@ Partial Class ProductosyServicios
         RBLCantidad.SelectedValue = "1"
         RblTipoAdicional.SelectedValue = "1"
 
+        UpAddPSAdicional.Update()
         RegistraScript("$('#divAddPSAdicional').modal();")
     End Sub
+
+    Private Sub CargaPSAdicional(Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True)
+
+        Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1")
+
+        If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then
+            Objeto.ddl.Items.Clear()
+            Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1, Estatus:=1, AplicaParaVenta:=If(AplicaParaVenta, 1, -1))
+            Objeto.ddl.DataBind()
+            Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
+            Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        Else
+            Objeto.SelectedValue = " - 1"
+            Objeto.txtText.Value = ""
+            Objeto.txtValue.Value = ""
+        End If
+
+    End Sub
+
     Private Sub BtnAgregarPSAdicional_Click(sender As Object, e As EventArgs) Handles BtnAgregarPSAdicional.Click
+
+
+        If DdlPSAdicional.SelectedValue.ToEntero <= 0 Then
+            Alert("Debe seleccionar un producto", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ObjProductosServicios As New ClsProductosServicios()
         ObjProductosServicios.IniciaTransacSQL()
         Dim TieneError As Boolean = False
@@ -2017,7 +2046,7 @@ Partial Class ProductosyServicios
         End If
 
         If TieneError Then
-            Alert("Ocurrio un error al agregar/actualizar el Producto/Servicio Adicional.", TipoMensaje.MsgError)
+            Alert("Ocurrio un Error al agregar/actualizar el Producto/Servicio Adicional.", TipoMensaje.MsgError)
             ObjProductosServicios.RollBack()
         Else
             ObjProductosServicios.Commit()
@@ -2032,6 +2061,8 @@ Partial Class ProductosyServicios
 
     Protected Sub Edit_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
         BtnAgregarPSAdicional.Text = "Guardar"
         TxtCantidadPSAdicional.Text = GvRow.DataKey("Cantidad")
         PSAdicionalAnterior = GvRow.DataKey("PS").ToString
@@ -2044,17 +2075,24 @@ Partial Class ProductosyServicios
             UpCantidad.Visible = True
             RBLCantidad.SelectedValue = "2"
         End If
-        UpAddPSAdicional.Update()
 
-        DdlPSAdicional.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
-        DdlPSAdicional.DataBind()
-        DdlPSAdicional.Items.Add(New ListItem("Seleccione", "-1"))
-        UpAddPSAdicional.Update()
 
         CvePSAdicional = GvRow.DataKey("CvePSAdicional").ToEntero
+
+        CargaPSAdicional(DdlPSAdicional)
+
+        DdlPSAdicional.txtValue.Value = GvRow.DataKey("CvePSAdicional")
+        DdlPSAdicional.txtText.Value = GvRow.DataKey("CodigoPS")
+
         DdlPSAdicional.SelectedValue = GvRow.DataKey("CvePSAdicional")
+        DdlPSAdicional.SelectedText = GvRow.DataKey("CodigoPS")
+
+
+        UpBodyDireccion.Update()
+        UpAddPSAdicional.Update()
 
         RegistraScript("$('#divAddPSAdicional').modal();")
+
     End Sub
 
     Protected Sub RBLCantidad_SelectedIndexChanged1(sender As Object, e As EventArgs)
@@ -3261,7 +3299,7 @@ Partial Class ProductosyServicios
             Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x))
             For Each Franquicia As Integer In EmpresasFranquicia
                 Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero
-                Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero
+                Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.txtText.Value)).ToEntero
 
                 If CvePSPagina <= 0 Then
                     Alert(String.Format("El producto de la página no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)