" style="display: inline-block; margin-right: -20px; width: 150px;" />
@@ -467,67 +497,85 @@
+ <%--0--%>
+ <%--1--%>
+ <%--2--%>
+ <%--3--%>
+ <%--4--%>
+ <%--5--%>
+ <%--6--%>
+ <%--7--%>
+
+ <%--8--%>
+ <%--9--%>
+ <%--10--%>
+ <%--11--%>
+ <%--12--%>
+ <%--13--%>
-
+
+ <%--14--%>
+ <%--15--%>
+ <%--16--%>
+ <%--17--%>
+ <%--18--%>
+ <%--19--%>
+ <%--20--%>
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index ecdac6154..2277199e7 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -79,16 +79,20 @@ Partial Class Inventarios_Kardex
Private Sub CargaPermisos()
If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
- GvM.Columns(15).Visible = TienePermisoImportes ' costo
- GvM.Columns(16).Visible = TienePermisoImportes ' importe
- GvM.Columns(18).Visible = TienePermisoImportes ' valor
+ GvM.Columns(16).Visible = TienePermisoImportes ' costo
+ GvM.Columns(17).Visible = TienePermisoImportes ' importe
+ GvM.Columns(19).Visible = TienePermisoImportes ' valor
- GvM.Columns(19).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
+ GvM.Columns(20).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
DVFiltroCodigo.Visible = True
End If
+ If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+ GvM.Columns(7).Visible = True
+ End If
+
End Sub
Private Function isWithFamily() As Boolean
@@ -261,13 +265,13 @@ Partial Class Inventarios_Kardex
AplicaAlmacenDestino = DtTemp.MAX("AlmacenDestino") <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1"
GvM.Columns(5).Visible = AplicaAlmacenDestino
- GvM.Columns(7).Visible = DtTemp.MAX("FolioRelacionEntrada") <> ""
+ GvM.Columns(8).Visible = DtTemp.MAX("FolioRelacionEntrada") <> ""
- 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)
+ If AplicaSeccion Then GvM.Columns(10).Visible = True
+ If AplicaSerie Then GvM.Columns(11).Visible = True
+ If AplicaLote Then GvM.Columns(12).Visible = True
+ If AplicaCaducidad Then GvM.Columns(13).Visible = True
+ If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(13).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
Dim Drp As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
Dim AuxAplicaSerie As Boolean
@@ -341,6 +345,50 @@ Partial Class Inventarios_Kardex
UpOCS.Update()
End Sub
+
+ Private Sub CargaPreciosLista(CvePS As Integer)
+
+
+ LblHeaderL1.Text = ""
+ LblL1.Text = ""
+
+ LblHeaderL2.Text = ""
+ LblL2.Text = ""
+
+ DivIndicadorL1.Visible = False
+ DivIndicadorL2.Visible = False
+
+ Dim DTPrecioLista As New DataTable
+
+ Dim objPS As New ClsProductosServicios
+ If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CvePS:=CvePS) Then
+ DTPrecioLista = objPS.DtResultados.Copy
+ End If
+ objPS.Dispose()
+
+
+ If DTPrecioLista.Rows.Count = 1 Then
+ LblHeaderL1.Text = DTPrecioLista.Rows(0)("PrecioLista").ToString
+ LblL1.Text = DTPrecioLista.Rows(0)("Precio").ToString.ToDecimal.ToString("###,###,###.00")
+ DivIndicadorL1.Visible = True
+ ElseIf DTPrecioLista.Rows.Count >= 2 Then
+
+ LblHeaderL1.Text = DTPrecioLista.Rows(0)("PrecioLista").ToString
+ LblL1.Text = DTPrecioLista.Rows(0)("Precio").ToString.ToDecimal.ToString("###,###,###.00")
+
+ LblHeaderL2.Text = DTPrecioLista.Rows(1)("PrecioLista").ToString
+ LblL2.Text = DTPrecioLista.Rows(1)("Precio").ToString.ToDecimal.ToString("###,###,###.00")
+
+ DivIndicadorL1.Visible = True
+ DivIndicadorL2.Visible = True
+
+ End If
+
+
+
+
+ End Sub
+
Private Function CargarKardex(CvePS As Integer) As DataTable
Dim dt As DataTable = Nothing
@@ -409,6 +457,7 @@ Partial Class Inventarios_Kardex
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
CargarOCPendientesCompra()
+ CargaPreciosLista(CvePS)
DivIndicadorOC.Visible = True
DivIndicadorOC2.Visible = True
UpOCS.Update()