From 9b9ba096fa96e94da44ac3028677e96a54eca4ab Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 8 Jan 2025 11:09:37 -0700
Subject: [PATCH] Liga a Kardex en  Gvs  OC GVPS, Compras GvInv GvInvMovtos,
 Ventas GvInv

---
 Compras/Compras.aspx                         | 10 ++++++-
 Compras/Compras.aspx.vb                      | 29 ++++++++++++++++++++
 Empresas/189/Formatos/RepComprasDetalle.rdlc |  2 +-
 OC/OC.aspx                                   |  1 +
 OC/OC.aspx.vb                                | 22 +++++++++++++++
 Ventas/Ventas.aspx                           |  2 ++
 Ventas/Ventas.aspx.vb                        | 20 ++++++++++++++
 7 files changed, 84 insertions(+), 2 deletions(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 660c5a22c..fff9c865e 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -1342,7 +1342,14 @@
                                                  </ItemTemplate>
                                              </asp:TemplateField>
                                             <%--3--%>
-                                            <asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText=" Producto" DataField="CodigoPS" />
+                                            <%--<asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText=" Producto" DataField="CodigoPS" />--%>
+                                            <asp:TemplateField>
+                                            <HeaderTemplate>Producto</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
+                                                <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("CodigoPS") %>' Visible="false" Target="_blank"></asp:HyperLink>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
                                             <%--4--%>
                                             <asp:BoundField ItemStyle-Width="120px" HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
                                             <%--5--%>
@@ -1439,6 +1446,7 @@
                                                     <HeaderTemplate>Producto</HeaderTemplate>
                                                     <ItemTemplate>
                                                         <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
+                                                        <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("CodigoPS") %>' Visible="false" Target="_blank"></asp:HyperLink>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
                                                 <asp:TemplateField HeaderText="Serie" Visible="false">
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 48d4a0c62..c5402f87d 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1228,6 +1228,19 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property TienePermisoKardex As Boolean
+        Get
+            If ViewState("TienePermisoKardex") Is Nothing Then
+                ViewState("TienePermisoKardex") = False
+            End If
+
+            Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("TienePermisoKardex") = value
+        End Set
+    End Property
+
     Private Property CveCompraDRMC As Integer
         Get
             If ViewState("CveCompraDRMC") Is Nothing Then
@@ -1246,6 +1259,7 @@ Partial Class Compras_Compras
             'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
             'ImgBtnBuscarOC.Attributes.Add("data-placement", "top")
             EsGrupoDiaz = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False)
+            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
 
             CargaDatosAgregarPS()
             TieneAnticiposXML = False
@@ -11252,6 +11266,14 @@ Partial Class Compras_Compras
     Protected Sub GVINV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
 
         If e.Row.RowType = DataControlRowType.DataRow Then
+
+
+            If TienePermisoKardex Then
+                e.Row.FCLiteral("LtlPS").Visible = False
+                e.Row.FCHyperLink("HlPS").Visible = True
+                e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}"
+            End If
+
             Dim AplicaLote As Boolean = e.Row.DBCampo("AplicaLote").ToBool
             Dim AplicaCaducidad As Boolean = e.Row.DBCampo("AplicaCaducidad").ToBool
 
@@ -19619,6 +19641,13 @@ Partial Class Compras_Compras
                     e.Row.Font.Bold = True
                 End If
             Else
+
+                If TienePermisoKardex Then
+                    e.Row.FCLiteral("LtlPS").Visible = False
+                    e.Row.FCHyperLink("HlPS").Visible = True
+                    e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}"
+                End If
+
                 e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
             End If
         End If
diff --git a/Empresas/189/Formatos/RepComprasDetalle.rdlc b/Empresas/189/Formatos/RepComprasDetalle.rdlc
index ea6b05964..e3229b8a4 100644
--- a/Empresas/189/Formatos/RepComprasDetalle.rdlc
+++ b/Empresas/189/Formatos/RepComprasDetalle.rdlc
@@ -1247,7 +1247,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value EvaluationMode="Constant">Parameters!FechaImpresion.Value</Value>
+                      <Value>=Parameters!FechaImpresion.Value</Value>
                       <Style>
                         <FontSize>9pt</FontSize>
                         <Format>D</Format>
diff --git a/OC/OC.aspx b/OC/OC.aspx
index a69daf7e9..5309c172b 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -998,6 +998,7 @@
                                                     </span>
                                                     <br />
                                                     <asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS") %>'></asp:Label>
+                                                    <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("PS") %>' Visible="false" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
                                                 <EditItemTemplate>
                                                     <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control input-sm select2me" Style="width: 100%; max-width: 600px;" OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged1">
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 124005de0..4485b59c0 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -671,6 +671,19 @@ Partial Class OC_OC
         End Set
     End Property
 
+    Private Property TienePermisoKardex As Boolean
+        Get
+            If ViewState("TienePermisoKardex") Is Nothing Then
+                ViewState("TienePermisoKardex") = False
+            End If
+
+            Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("TienePermisoKardex") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -684,6 +697,8 @@ Partial Class OC_OC
                 EsGrupoDiaz = True
             End If
 
+            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
+
             CargaDatosAgregarPS()
             CveProveedorOriginal = -1
             InventarioPrePoliza176 = 0
@@ -4096,6 +4111,12 @@ Partial Class OC_OC
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then
+                e.Row.FCLabel("LblPS").Visible = False
+                e.Row.FCHyperLink("HlPS").Visible = True
+                e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}"
+            End If
+
             Try
                 If e.Row.FCLabel("LtlCantidad") IsNot Nothing Then
                     e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip")
@@ -4316,6 +4337,7 @@ Partial Class OC_OC
             End If
 
 
+
         End If
     End Sub
     Protected Sub GvD_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvD.RowDeleting
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index f2dcdb177..80ad7aa25 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1983,6 +1983,7 @@
                                                                 <HeaderTemplate>Producto</HeaderTemplate>
                                                                 <ItemTemplate>
                                                                     <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
+                                                                    <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("CodigoPS") %>' Visible="false" Target="_blank"></asp:HyperLink>
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:TemplateField HeaderText="Serie" Visible="false">
@@ -2051,6 +2052,7 @@
                                                         <HeaderTemplate>Producto o Servicio</HeaderTemplate>
                                                         <ItemTemplate>
                                                             <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
+                                                            <asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("PS") %>' Visible="false" Target="_blank"></asp:HyperLink>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index afec170f3..30c4cce4f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2387,7 +2387,18 @@ Partial Class Ventas
         End Set
     End Property
 
+    Private Property TienePermisoKardex As Boolean
+        Get
+            If ViewState("TienePermisoKardex") Is Nothing Then
+                ViewState("TienePermisoKardex") = False
+            End If
 
+            Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("TienePermisoKardex") = value
+        End Set
+    End Property
 
 
 #Region "VENTA MEDICA"
@@ -2446,6 +2457,8 @@ Partial Class Ventas
                 Exit Sub
             End If
 
+            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
+
             Modalidad = ""
             Opcion = ""
             Index = 0
@@ -9515,6 +9528,7 @@ Partial Class Ventas
                     e.Row.CssClass = "SubTotales"
                 End If
             Else
+
                 Dim tFecha As Date = If(e.Row.DBCampo("Fecha") <> "", e.Row.DBCampo("Fecha").ToDate, NowADS())
                 e.Row.FCLiteral("LtlPS").Text = String.Format("<a Class='Texto'  target='_blank' href='/Inventarios/Kardex.aspx?CvePS={0}&CveAlmacen={1}&FechaI={2}&FechaF={3}'> {4}</a>", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveAlmacen"), tFecha.AddDays(-7).ToShortDateString, tFecha.AddDays(7).ToShortDateString, e.Row.DBCampo("PS"))
 
@@ -9536,6 +9550,12 @@ Partial Class Ventas
                     End If
                 End If
 
+                If TienePermisoKardex Then
+                    e.Row.FCLiteral("LtlPS").Visible = False
+                    e.Row.FCHyperLink("HlPS").Visible = True
+                    e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}"
+                End If
+
             End If
 
             If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not AplicaDevolucion Then