diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index bb4b9f445..90756c028 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -378,9 +378,9 @@
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel.">
+                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false">
                         <ItemTemplate>
-                            <asp:HyperLink runat="server" Target="_blank" ID="hlFolioDr" Text='<%# Eval("FolioRelacionEntrada")%>' NavigateUrl='<%# Eval("CveMovimientoEntrada", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' CssClass="Texto" />
+                            <asp:HyperLink runat="server" Target="_blank" ID="hlFolioDr" Text='<%# Eval("FolioRelacionEntrada")%>' NavigateUrl='<%# Eval("CveVentaRelacionada", "/Ventas/Ventas.aspx?CveVenta={0}")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" HeaderText="U. M.">
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index efe5b9a3c..15991bad4 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -199,51 +199,54 @@ Partial Class Inventarios_Kardex
                 AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> ""
                 AplicaLote = DtTemp.MAX("Lote") <> ""
                 AplicaCaducidad = DtTemp.MAX("FechaCaducidad") <> ""
+
+                GvM.Columns(6).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 AplicaSerie Then GvM.Columns(9).Visible = True
+                    If AplicaLote Then GvM.Columns(10).Visible = True
+                    If AplicaCaducidad Then GvM.Columns(11).Visible = True
 
-                Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True"
-                LnkSeries.Visible = AuxAplicaSerie
-                'CARGA INDICADORES
-                If UsuarioActual.TienePermisoProceso(201) Then
-                    DivIndicadores.Visible = True
+                    Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True"
+                    LnkSeries.Visible = AuxAplicaSerie
+                    'CARGA INDICADORES
+                    If UsuarioActual.TienePermisoProceso(201) Then
+                        DivIndicadores.Visible = True
 
-                    Dim Dr = DtTemp.FiltroUltimo("")
-                    Dim TC = If(GlobalTipoCambio(Now) > 0, GlobalTipoCambio(Now), 1)
+                        Dim Dr = DtTemp.FiltroUltimo("")
+                        Dim TC = If(GlobalTipoCambio(Now) > 0, GlobalTipoCambio(Now), 1)
 
-                    LtIndicador_Existencia.Text = Dr("Existencias").ToString.FormatoNumero()
+                        LtIndicador_Existencia.Text = Dr("Existencias").ToString.FormatoNumero()
 
-                    LtIndicador_ValorPesos.Text = Dr("ValorInventario").ToString.FormatoNumero()
-                    LtIndicador_ValorDolares.Text = (Dr("ValorInventario").ToString.ToDouble / TC).FormatoNumero()
+                        LtIndicador_ValorPesos.Text = Dr("ValorInventario").ToString.FormatoNumero()
+                        LtIndicador_ValorDolares.Text = (Dr("ValorInventario").ToString.ToDouble / TC).FormatoNumero()
 
-                    Dim CostoPromedio = If(Dr("Existencias").ToString.ToDouble > 0, Dr("ValorInventario").ToString.ToDouble / Dr("Existencias").ToString.ToDouble, 0)
-                    LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero()
-                    LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero()
+                        Dim CostoPromedio = If(Dr("Existencias").ToString.ToDouble > 0, Dr("ValorInventario").ToString.ToDouble / Dr("Existencias").ToString.ToDouble, 0)
+                        LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero()
+                        LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero()
 
-                    LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero()
-                    LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero()
+                        LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero()
+                        LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero()
 
-                    LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del dia <b> $ {TC.FormatoNumero(4)} </b>"
+                        LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del dia <b> $ {TC.FormatoNumero(4)} </b>"
 
-                    If TxtSerie.Text <> "" Then
-                        LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por numero de serie: <b> {TxtSerie.Text} </b>"
+                        If TxtSerie.Text <> "" Then
+                            LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por numero de serie: <b> {TxtSerie.Text} </b>"
+                        Else
+                            LtIndicador_MensajeSerie.Text = ""
+                        End If
+
+                        UpIndicadores.Update()
+
+                        GvM.Attributes.Add("data-heighterror", "430")
                     Else
-                        LtIndicador_MensajeSerie.Text = ""
+                        GvM.Attributes.Add("data-heighterror", "270")
                     End If
-
-                    UpIndicadores.Update()
-
-                    GvM.Attributes.Add("data-heighterror", "430")
-                Else
-                    GvM.Attributes.Add("data-heighterror", "270")
+                    GvM.DataSource = DtTemp
+                    GvM.DataBind()
+                    UpAcciones.Update()
                 End If
-                GvM.DataSource = DtTemp
-                GvM.DataBind()
-                UpAcciones.Update()
-            End If
-        Else
+            Else
             Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
         End If
     End Sub