From a6b482e307756ad293fbe40d2588f08bc7612095 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 26 Dec 2023 09:15:24 -0700
Subject: [PATCH] -- mejoras en redimiento al obtener movtosdetalle -- mejora
 visual es

---
 App_Code/ClsInventarios.vb          |  5 +-
 App_Code/ClsPaginas.vb              | 20 +++++++
 Compras/Compras.aspx.vb             |  2 +-
 Inventarios/EntradasSalidas.aspx    | 19 +++----
 Inventarios/EntradasSalidas.aspx.vb | 82 +++++++++--------------------
 5 files changed, 56 insertions(+), 72 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 1fe41381d..dfb881de8 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -974,7 +974,7 @@ Public Class ClsInventarios
             Retorno = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero
 
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al obtener los folios de movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno
@@ -1175,14 +1175,13 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoDetalle As Integer = -1, Optional Resumen As Boolean = False) As Boolean
+    Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveMovimientoDetalle As Integer = -1, Optional Resumen As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_MovimientosDetalleGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
             .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle
             .Add("@Resumen", SqlDbType.Int).Value = Resumen
 
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 4415487d8..27df9c007 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1807,6 +1807,26 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
+
+    Property GlobalDTGralCartaPorteConfigAutoTransportes() As DataTable
+        Get
+            Dim AppNombre As String = "GetCartaPorteConfigAutoTransportes"
+            If Application(AppNombre) Is Nothing Then
+                Using ObjGrales As New ClsGenerales
+                    If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
+                        Application(AppNombre) = ObjGrales.DtResultados
+                    End If
+                End Using
+            End If
+            GlobalDTGralCartaPorteConfigAutoTransportes = DirectCast(Application(AppNombre), DataTable)
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = "GetCartaPorteConfigAutoTransportes"
+            Application(AppNombre) = value
+        End Set
+    End Property
+
+
     Property GlobalDTAFCaracteristicasOpciones() As DataTable
         Get
             GlobalDTAFCaracteristicasOpciones = DirectCast(Application("GlobalDTAFCaracteristicasOpciones"), DataTable)
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 372a5c6e4..aee594f27 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -12653,7 +12653,7 @@ Partial Class Compras_Compras
             End If
         End If
 
-        If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1, -1) Then
+        If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1) Then
 
             For Each drow As DataRow In ObjInventario.DtResultados.Rows
                 TotalSumaPU = TotalSumaPU + drow("Total").ToString.ToDecimal
diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index dc94b6426..ca6c1f834 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -664,7 +664,7 @@
                             <asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" OnClick="BtnVinculaAFEdit_Click" Style="display: none;" runat="server" />
                             <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
 
-                            <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" EmptyDataText="Aún no hay registros." 
+                            <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" EmptyDataText="Aún no hay registros." 
                                 DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,Lote,FechaCaducidad,CveSeccionAlmacen" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" >
                                 <Columns>
                                     <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
@@ -684,14 +684,13 @@
                                         <ItemTemplate>
                                             <asp:Literal ID="lbCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:#,##0.######}")%>'> </asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="60px"></ItemStyle>
+                                        <ItemStyle Width="60px" HorizontalAlign="Right"></ItemStyle>
                                     </asp:TemplateField>
                                     <asp:BoundField HeaderText="Producto" ReadOnly="true" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
                                     <asp:TemplateField HeaderText="Unidad">
                                         <ItemTemplate>
                                             <asp:Literal ID="lbUnidad" runat="server" Text='<%# Eval("UnidadMedida")%>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="80px"></ItemStyle>
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Precio unitario" Visible="false">
                                         <EditItemTemplate>
@@ -749,20 +748,19 @@
                                         <ItemTemplate>
                                             <asp:Literal ID="LitMaq" runat="server" Text='<%# If(Eval("CodigoAF").ToString = "-1", "", Eval("CodigoAF").ToString)%>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="60px" HorizontalAlign="Center" />
+                                        <ItemStyle Width="60px" />
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Serie" Visible="false">                                       
                                         <ItemTemplate>
                                             <asp:Literal ID="lbSerie" runat="server" Text='<%# Eval("Serie")%>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="90px" HorizontalAlign="Right"></ItemStyle>
-                                        <FooterStyle HorizontalAlign="Right"></FooterStyle>
+                                        <ItemStyle></ItemStyle>
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Lote" Visible="false">                                       
                                         <ItemTemplate>
                                             <asp:Literal ID="LbLote" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="90px"></ItemStyle>
+                                        <ItemStyle ></ItemStyle>
                                         <FooterStyle ></FooterStyle>
                                     </asp:TemplateField>
                                     <%--<asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false"/>--%>
@@ -781,13 +779,10 @@
                                         <ItemTemplate>
                                             <asp:Literal ID="lblObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="120px" ></ItemStyle>
-                                      
+                                        <ItemStyle ></ItemStyle>                                      
                                     </asp:TemplateField>
-
                                     <asp:TemplateField>
-                                        <EditItemTemplate>
-                                            
+                                        <EditItemTemplate>                                            
                                             <div class="row" style="max-width:80px!important">
                                                 <div class="col-md-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="GrpGV" />
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 4c2492a0c..8fc3b0d2a 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -688,8 +688,6 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
 
-
-
         CargaPS()
 
         ' CargaDdlPaqueteria()
@@ -701,7 +699,7 @@ Partial Class Inventarios_EntradasSalidas
         TxtFechaEntrega.Text = NowADS().ToShortDateString
         TxtFechaLlegada.Text = NowADS().ToShortDateString
 
-        CargarCamiones()
+        'CargarCamiones()
         DdlClienteCarta.setEsWebService(True)
 
     End Sub
@@ -743,15 +741,15 @@ Partial Class Inventarios_EntradasSalidas
         TrPersonal.Visible = True
         Dim dt As DataTable = Nothing
 
-        Dim RH As New ClsRH
+        'Dim RH As New ClsRH
 
-        If RH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-            dt = RH.DtResultados
-        End If
+        'If RH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+        '    dt = RH.DtResultados
+        'End If
 
-        RH.Dispose()
+        'RH.Dispose()
 
-        DdlPersonal.DataSource = dt
+        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
         DdlPersonal.DataBind()
         'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -5804,38 +5802,28 @@ Partial Class Inventarios_EntradasSalidas
         DdlRemolque2.SelectedValueExist(-1)
 
         If DdlConfigAuto.SelectedValue.ToEntero > 0 Then
+            Dim dtt As DataTable = GlobalDTGralCartaPorteConfigAutoTransportes
 
-            Using ObjGrales As New ClsGenerales
-                If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
-                    Dim Remolque As String = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero}'")
-
-
-                    If Remolque = "1" Then
-                        RequiereRemolque = True
-                        MostrarRemolques = True
-                    End If
-
-                    If Remolque = "0, 1" Then
-                        RequiereRemolque = False
-                        MostrarRemolques = True
-                    End If
-
-                    If Remolque = "0" Then
-                        RequiereRemolque = False
-                        MostrarRemolques = False
-                    End If
+            If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
+                Dim Remolque As String = dtt.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero}'")
+                If Remolque = "1" Then
+                    RequiereRemolque = True
+                    MostrarRemolques = True
                 End If
-            End Using
-
+                If Remolque = "0, 1" Then
+                    RequiereRemolque = False
+                    MostrarRemolques = True
+                End If
+                If Remolque = "0" Then
+                    RequiereRemolque = False
+                    MostrarRemolques = False
+                End If
+            End If
         Else
             RequiereRemolque = False
             MostrarRemolques = False
         End If
-
-
-
-
-        If RequiereRemolque Or MostrarRemolques Then
+        If RequiereRemolque OrElse MostrarRemolques Then
             DvRemolque1.Visible = True
         End If
 
@@ -5844,8 +5832,6 @@ Partial Class Inventarios_EntradasSalidas
         Else
             DvConfiguracionVeiculo.Visible = True
         End If
-
-
         UpEmitirTransitorio.Update()
     End Sub
 
@@ -5911,30 +5897,14 @@ Partial Class Inventarios_EntradasSalidas
 
         DdlConfigAuto.Items.Clear()
         DdlUnidadCamion.Items.Clear()
-
-        Using ObjInv As New ClsInventarios
-
-            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:=1) Then
-                DdlUnidadCamion.DataSource = ObjInv.DtResultados
-            End If
-            If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
-                DdlRemolque1.DataSource = ObjInv.DtResultados
-            End If
-
-        End Using
-
+        DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
+        DdlRemolque1.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
         DdlUnidadCamion.DataBind()
         DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
         DdlRemolque1.DataBind()
         DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
 
-        Using ObjGrales As New ClsGenerales
-
-            If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
-                DdlConfigAuto.DataSource = ObjGrales.DtResultados
-            End If
-
-        End Using
+        DdlConfigAuto.DataSource = GlobalDTGralCartaPorteConfigAutoTransportes
         DdlConfigAuto.DataBind()
         DdlConfigAuto.Items.Insert(0, New ListItem("Seleccione una", "-1"))