SMS-- Liga para armado de paquetes

Inventarios/EntregaAlmacen.aspx.vb

@@ -1015,9 +1015,31 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
 
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.Header Then
+
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                If DtDatos IsNot Nothing Then
+                    If DtDatos.MAX("EsPaquete") = "True" Then
+                        e.Row.FCLiteral("LtlHeaderPS").Text = "Paquete"
+                    Else
+                        e.Row.FCLiteral("LtlHeaderPS").Text = "Producto"
+                    End If
+                End If
+            End If
+
+        End If
+
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                If e.Row.DBCampo("EsPaquete") = "True" Then
+                    e.Row.FCHyperLink("HplPS").NavigateUrl = $"/Inventarios/PaquetesArmadoDesarmado.aspx?CvePS={e.Row.DBCampo("CvePS")}&Cantidad={e.Row.DBCampo("CantidadF")}"
+                Else
+                    e.Row.FCHyperLink("HplPS").NavigateUrl = $"/Ventas/ProductosServicios.aspx?CvePS={e.Row.DBCampo("CvePS")}"
+                End If
+            Else
+                e.Row.FCHyperLink("HplPS").NavigateUrl = $"/Ventas/ProductosServicios.aspx?CvePS={e.Row.DBCampo("CvePS")}"
+            End If
 
             'código temporal
             Dim AplicaSerie As Boolean = CBool(e.Row.DBCampo("AplicaSerie"))