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] =?UTF-8?q?-=20nuevo=20par=C3=A1metro=20de=20facturaglobal?=
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