diff --git a/Inventarios/KardexAlmacen.aspx b/Inventarios/KardexAlmacen.aspx
index 2970592c7..3c9358519 100644
--- a/Inventarios/KardexAlmacen.aspx
+++ b/Inventarios/KardexAlmacen.aspx
@@ -66,11 +66,11 @@
- Generar PDF
+ Generar PDF
- Generar Excel
+ Generar Excel
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 08e57cd0d..770f57010 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -96,18 +96,17 @@
- Generar Excel
+ Generar Excel
-
-
-
-
-
-
-
-
- POG
+
+
+ Cargar Proyecciones
+
+
+
+
+ POG
@@ -237,29 +236,8 @@
+
-
-
Código Inicio:
-
-
Código Fin:
-
-
-
-
-
@@ -329,7 +307,7 @@
-
+ Descargar formato
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 75a3dd999..61a191dec 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -38,10 +38,6 @@ Partial Class Inventarios_KardexAlmacenHorizontal
If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
- If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
- DVFiltroCodigo.Visible = True
- End If
-
End If
End Sub
Private Sub CargaCombos()
@@ -534,65 +530,4 @@ Partial Class Inventarios_KardexAlmacenHorizontal
End Sub
-
-
- Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
- NavegacionPS(Siguiente:=False)
- End Sub
-
- Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
- NavegacionPS(Siguiente:=True)
- End Sub
- Private Sub NavegacionPS(Siguiente As Boolean)
- Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
-
- If Not CvePS > 0 Then
- Exit Sub
- End If
- Dim dt As DataTable = New DataTable
-
- Dim Entrada As Boolean = True
- Dim Salida As Boolean = True
-
- Dim FechaI As String = "-1"
- Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
- Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
- Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
- If CveAlmacenes.Contains(",") Then
- CveAlmacen = -1
- End If
- If CvePS > 0 Then
- Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
- If dr IsNot Nothing Then
- ddlProducto2.SelectedText = dr("PSCodigo").ToString
- ddlProducto2.SelectedValue = CvePS.ToString
- End If
-
- End If
-
- Dim CveTiposAlmacen As String = "-1"
-
-
- Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
- Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
- Dim ObjInventarios As New ClsInventarios
- If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
- CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
- dt = ObjInventarios.DtResultados.Copy
- End If
- ObjInventarios.Dispose()
-
- If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
- ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
- ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
- ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
- ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
- CargarKardex(dt.Rows(0)("CvePS").ToString.ToEntero)
- UPFiltros.Update()
-
- End If
-
- End Sub
-
End Class
diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx
index 170435582..bcba0f2df 100644
--- a/Inventarios/RepEntradasSalidas.aspx
+++ b/Inventarios/RepEntradasSalidas.aspx
@@ -11,11 +11,11 @@
- Excel Personalizado
+ Excel Personalizado
- Generar Formato Inventario
+ Generar Formato Inventario