From 186965b7aaf9b6adf08e627b0ca008dbf3b69f7e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 18 Feb 2022 10:43:11 -0700
Subject: [PATCH] -- parametro de cveusuario para consultar, solo sus
 subproyectos

---
 Inventarios/EntregaAlmacenRuta.aspx         | 4 ++--
 Inventarios/InventarioFisico.aspx.vb        | 2 +-
 Inventarios/InventarioFisicoDetalle.aspx.vb | 2 +-
 Inventarios/RepAnomalias.aspx.vb            | 4 ++--
 Inventarios/RepApartados.aspx.vb            | 5 +----
 Inventarios/RepEntregaAlmacenRuta.aspx      | 3 +--
 Inventarios/RepEntregaAlmacenRuta.aspx.cs   | 2 +-
 7 files changed, 9 insertions(+), 13 deletions(-)

diff --git a/Inventarios/EntregaAlmacenRuta.aspx b/Inventarios/EntregaAlmacenRuta.aspx
index a86fa953e..58152aa09 100644
--- a/Inventarios/EntregaAlmacenRuta.aspx
+++ b/Inventarios/EntregaAlmacenRuta.aspx
@@ -147,8 +147,8 @@
                                         </div>
                                     </div>              
                                     <div class="col-md-2 form-group form-md-line-input input-iconright" runat="server" id="DvCartaPorte2" visible="false">
-                                        <asp:CheckBox ID="ChkEmitirCartaPorte" runat="server" Text="Carta Porte"  />
-                                        <label for="<%= ChkEmitirCartaPorte.ClientID.ToString()%>"> Emitir:</label>
+                                        <asp:CheckBox ID="ChkEmitirCartaPorte" runat="server" Text="Carta Porte" Checked="true"  />
+                                        <label for="<%= ChkEmitirCartaPorte.ClientID.ToString()%>"></label>
                                          <i></i>
                                     </div>
                                     <div class="col-md-1" runat="server" id="DVDatosEntrega7">
diff --git a/Inventarios/InventarioFisico.aspx.vb b/Inventarios/InventarioFisico.aspx.vb
index 4fe1da3d9..3ba06162c 100644
--- a/Inventarios/InventarioFisico.aspx.vb
+++ b/Inventarios/InventarioFisico.aspx.vb
@@ -823,7 +823,7 @@ Partial Class Inventarios_InventarioFisico
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
         Dim ObjInventario As New ClsInventarios
-        If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue) Then
+        If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue, UsuarioActual.CveUsuario) Then
             gvIF.DataSource = ObjInventario.DtResultados
             gvIF.DataBind()
             gvIF.Columns(1).HeaderText = LblSubProyecto.Text
diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index 3f3695a07..7cb69b8cb 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -99,7 +99,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
 
         Dim ObjInventario As New ClsInventarios
 
-        If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+        If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
             Dim CveEstatus = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
             Select Case CveEstatus
                 Case "0" 'NUEVO
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index 95c381d4a..6f779193e 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -115,7 +115,7 @@ Partial Class Inventarios_RepAnomalias
             GvGrupos.Columns(15).Visible = UsuarioActual.Procesos(201)   'costo
         End If
 
-        If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
+        If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1, UsuarioActual.CveUsuario) Then
             lbTitulo.Text = Inventario.InventarioFisico
             lbObservaciones.Text = Inventario.Observaciones
             lbSubProyecto.Text = Inventario.SubProyectoInventario
@@ -450,7 +450,7 @@ Partial Class Inventarios_RepAnomalias
         Dim dtS As DataTable = Nothing
         Dim dtF As DataTable = Nothing
 
-        If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
+        If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1, UsuarioActual.CveUsuario) Then
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("Titulo", Inventario.InventarioFisico))
             params.Add(New ReportParameter("Observaciones", Inventario.Observaciones))
diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb
index 9fd7a4901..ad66997c0 100644
--- a/Inventarios/RepApartados.aspx.vb
+++ b/Inventarios/RepApartados.aspx.vb
@@ -47,10 +47,7 @@ Partial Class Inventarios_RepApartados
 
         DdlClienteTraspasar.setEsWebService(True)
 
-        Dim DTVendedores As New DataTable
-        DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
-        DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
-        DdlVendedor.DataSource = DTVendedores
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, Estatus:=-1)
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1"))
 
diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx b/Inventarios/RepEntregaAlmacenRuta.aspx
index 99c34b4b8..4cc2270df 100644
--- a/Inventarios/RepEntregaAlmacenRuta.aspx
+++ b/Inventarios/RepEntregaAlmacenRuta.aspx
@@ -118,8 +118,7 @@
                          <HeaderStyle HorizontalAlign="Left" />
                          <ItemStyle HorizontalAlign="Left" />
                     </asp:TemplateField>
-                    <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" >                                                        
-                    <ItemStyle HorizontalAlign="Left" Width="15%" />
+                    <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal">
                     </asp:BoundField>
                                                         
                     <asp:BoundField DataField="SerieFolio" HeaderText="Folio"  ItemStyle-HorizontalAlign="Left" >
diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx.cs b/Inventarios/RepEntregaAlmacenRuta.aspx.cs
index 8a8337a05..40fc1a130 100644
--- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs
+++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs
@@ -333,7 +333,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
     {
         ClsGenerales ObjGeneral = new ClsGenerales();
 
-        if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(),UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero()))
+        if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(),UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(),UsuarioActual.CveUsuario))
         {
             DTDatos = ObjGeneral.DtResultados;
             GVDatos.DataSource = DTDatos;