From 10a748bfffd4fb870d2edba18b005c1407fc82c0 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 27 Feb 2025 17:09:08 -0700
Subject: [PATCH] Kardex. poner precio de F1 y F2, Kardex, incluir columnas
 "Cliente/Proveedor". despues de folio doc. igual que el reporte de
 movimientos, solo para FNC382

---
 Inventarios/Kardex.aspx    | 76 ++++++++++++++++++++++++++++++++------
 Inventarios/Kardex.aspx.vb | 69 +++++++++++++++++++++++++++++-----
 2 files changed, 123 insertions(+), 22 deletions(-)

diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index 5ffcc68ab..60305c207 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -425,7 +425,7 @@
     </asp:UpdatePanel>
 
     <div class="row">
-        <div class="col-md-8">
+        <div class="col-md-7">
             <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpNumeroParte">
                 <ContentTemplate>
                     <asp:Label runat="server" ID="LblNumeroParte" Text="" Visible ="false"></asp:Label>
@@ -433,24 +433,54 @@
             </asp:UpdatePanel>
             
         </div>
-        <div class="col-md-2" style="text-align:right!important">
+        
+            
             <asp:UpdatePanel runat="server" ID="UpOCS" UpdateMode="Conditional">
-                <ContentTemplate>             
-                    <div id="DivIndicadorOC2" runat="server" visible="false" >
-                        <div style=" color: gray;font-size: 12px;font-weight: bold;">
-                            OC
-                        </div>
-                        <div style=" color: blue; font-size: 20px; font-weight: bold;">
-                            <asp:LinkButton ID="LnkIndicador_OC2" Text="" OnClick="LnkIndicador_OC_Click" runat="server" CssClass="Texto" />                                            
-                        </div>
+                <ContentTemplate> 
 
+                    <div class="col-md-1" style="text-align:right!important">
+                        
+                        <div id="DivIndicadorOC2" runat="server" visible="false" >
+                            <div style=" color: gray;font-size: 12px;font-weight: bold;">
+                                OC
+                            </div>
+                            <div style=" color: blue; font-size: 20px; font-weight: bold;">
+                                <asp:LinkButton ID="LnkIndicador_OC2" Text="" OnClick="LnkIndicador_OC_Click" runat="server" CssClass="Texto" />                                            
+                            </div>
+
+                        </div>
                     </div>
+
+                   <div class="col-md-1" style="text-align:right!important">
+                       <div id="DivIndicadorL1" runat="server" visible="false" >
+                            <div style="font-size: 12px">
+                                <asp:Label runat="server" ID="LblHeaderL1"></asp:Label>
+                            </div>
+                            <div style="font-size: 12px">
+                                <asp:Label runat="server" ID="LblL1"></asp:Label>
+                            </div>
+
+                        </div>
+                   </div>
+
+                   <div class="col-md-1" style="text-align:right!important">
+                       <div id="DivIndicadorL2" runat="server" visible="false" >
+                             <div style="font-size: 12px">
+                                 <asp:Label runat="server" ID="LblHeaderL2"></asp:Label>
+                             </div>
+                             <div style="font-size: 12px">
+                                 <asp:Label runat="server" ID="LblL2"></asp:Label>
+                             </div>
+
+                         </div>
+                   </div>
+
                   
                 </ContentTemplate>
             </asp:UpdatePanel>
                 
            
-        </div>
+        
         <div class="col-md-2">
             <div class="text-right" style="margin: 5px 0px;">
                 <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvM.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
@@ -467,67 +497,85 @@
             <asp:GridView ID="GvM" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
                 ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" DataKeyNames="CveMovimiento,FechaMovto">
                 <Columns>
+                    <%--0--%>
                     <asp:BoundField DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="70px" HeaderText="Fecha" />
+                    <%--1--%>
                     <asp:TemplateField ItemStyle-Width="10px" ItemStyle-HorizontalAlign="Left" Visible="false">
                         <ItemTemplate>
                             <asp:LinkButton data-toggle="tooltip" title="Editar Fecha" ID="LnkEditarFecha" OnClick="LnkEditarFecha_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--2--%>
                     <asp:BoundField DataField="Concepto" HeaderText="Movimiento" ItemStyle-HorizontalAlign="Left" />
+                    <%--3--%>
                     <asp:BoundField DataField="Almacen" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left" />
+                    <%--4--%>
                     <asp:TemplateField ItemStyle-Width="70px" HeaderText="Folio">
                         <ItemTemplate>
                             <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--5--%>
                     <asp:BoundField DataField="AlmacenDestino" HeaderText="A.Destino" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px"  />
+                    <%--6--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Doc.">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--7--%>
+                    <asp:BoundField DataField="ClienteProveedor" HeaderText="Cliente/Proveedor" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                    <%--8--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioDr" Text='<%# Eval("FolioRelacionEntrada")%>' NavigateUrl='<%# Eval("CveVentaRelacionada", "/Ventas/Ventas.aspx?CveVenta={0}")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--9--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Left" HeaderText="U. M.">
                         <ItemTemplate>
                             <asp:Label ID="lbUm" runat="server" Text='<%# Eval("UnidadMedida")%>' data-toggle="tooltip" title='<%# Eval("CveUnidadMedida")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--10--%>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Sección" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbSA" runat="server" Text='<%# Eval("SeccionAlmacen")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--11--%>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Serie" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbS" runat="server" Text='<%# Eval("Serie")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--12--%>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Lote" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbL" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--13--%>
                     <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Center" HeaderText="F. Caducidad" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="lbFCad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}")%>' data-toggle="tooltip"></asp:Label>
-                        </ItemTemplate>
+                        </ItemTemplate>                        
                     </asp:TemplateField>
+                    <%--14--%>
                     <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" HeaderText="Entrada">
                         <ItemTemplate>
                             <asp:Label ID="lbEntrada" runat="server"
                                 Text='<%# Eval("Entrada", "{0:###,###.####}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--15--%>
                     <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" HeaderText="Salida">
                         <ItemTemplate>
                             <asp:Label ID="lbSalida" runat="server"
                                 Text='<%# Eval("Salida", "{0:###,###.####}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--16--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" HeaderText="Costo">
                         <ItemTemplate>
                             <asp:Label ID="lbCosto" runat="server"
@@ -535,24 +583,28 @@
                         </ItemTemplate>
                         <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
+                    <%--17--%>
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Importe">
                         <ItemTemplate>
                             <asp:Label ID="lbImporte" runat="server"
                                 Text='<%# Eval("Importe", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--18--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" HeaderText="Existencias">
                         <ItemTemplate>
                             <asp:Label ID="lbExistencias" runat="server"
                                 Text='<%# Eval("Existencias", "{0:#,###.####}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--19--%>
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Valor">
                         <ItemTemplate>
                             <asp:Label ID="lbValor" runat="server"
                                 Text='<%# Eval("ValorInventario", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--20--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Center" HeaderText="OdeC">
                         <ItemTemplate>
                             <asp:Label ID="LbOC" runat="server" Text='<%# Eval("NoOrden")%>' data-toggle="tooltip" title='<%# Eval("CveOrdendeCorte")%>'></asp:Label>
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()