From 22f01c9e47287610d6d13a012caef2159449c174 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 7 Sep 2024 11:17:18 -0700
Subject: [PATCH] Puntos GDiaz: --en Kardex, visualizar el almacen destino de
 los trapasos de alamcen

---
 Inventarios/Kardex.aspx    |  1 +
 Inventarios/Kardex.aspx.vb | 24 +++++++++++++-----------
 2 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index 4042dd19b..b1486eab8 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -437,6 +437,7 @@
                             <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:BoundField DataField="AlmacenDestino" HeaderText="A.Destino" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px"  />
                     <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Doc.">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" />
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 823c5b937..7e6ca3dd5 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -79,11 +79,11 @@ Partial Class Inventarios_Kardex
     Private Sub CargaPermisos()
         If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        GvM.Columns(14).Visible = TienePermisoImportes ' costo
-        GvM.Columns(15).Visible = TienePermisoImportes ' importe
-        GvM.Columns(17).Visible = TienePermisoImportes ' valor
+        GvM.Columns(15).Visible = TienePermisoImportes ' costo
+        GvM.Columns(16).Visible = TienePermisoImportes ' importe
+        GvM.Columns(18).Visible = TienePermisoImportes ' valor
 
-        GvM.Columns(18).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
+        GvM.Columns(19).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
 
         If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
             DVFiltroCodigo.Visible = True
@@ -259,19 +259,21 @@ Partial Class Inventarios_Kardex
 
             If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
 
-                Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean
+                Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie, AplicaAlmacenDestino As Boolean
                 AplicaSerie = DtTemp.MAX("Serie") <> ""
                 AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> ""
                 AplicaLote = DtTemp.MAX("Lote") <> ""
                 AplicaCaducidad = DtTemp.MAX("FechaCaducidad") <> ""
+                AplicaAlmacenDestino = DtTemp.MAX("AlmacenDestino") <> ""
 
-                GvM.Columns(6).Visible = DtTemp.MAX("FolioRelacionEntrada") <> ""
+                GvM.Columns(5).Visible = AplicaAlmacenDestino
+                GvM.Columns(7).Visible = DtTemp.MAX("FolioRelacionEntrada") <> ""
 
-                If AplicaSeccion Then GvM.Columns(8).Visible = True
-                If AplicaSerie Then GvM.Columns(9).Visible = True
-                If AplicaLote Then GvM.Columns(10).Visible = True
-                If AplicaCaducidad Then GvM.Columns(11).Visible = True
-                If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(11).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
+                If AplicaSeccion Then GvM.Columns(9).Visible = True
+                If AplicaSerie Then GvM.Columns(10).Visible = True
+                If AplicaLote Then GvM.Columns(11).Visible = True
+                If AplicaCaducidad Then GvM.Columns(12).Visible = True
+                If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(12).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
 
                 Dim Drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("")