SMS-- Liga para armado de paquetes

Inventarios/EntregaAlmacen.aspx

@@ -316,15 +316,15 @@
                                 <div class="portlet-title">
                                     <div class="caption font-green">
 
-                                                  <i class="icon-pin font-green"></i>
+                                        <i class="icon-pin font-green"></i>
-                                                <span class="caption-subject bold uppercase">Ventas por surtir</span>
+                                        <span class="caption-subject bold uppercase">Ventas por surtir</span>
 
-                                                 <code style="font-family: Menlo,Monaco,Consolas,'Courier New',monospace; font-size: 10px">
+                                        <code style="font-family: Menlo,Monaco,Consolas,'Courier New',monospace; font-size: 10px">
-                                                <asp:Literal Text="" runat="server" ID="LtActualizado" />
+                                            <asp:Literal Text="" runat="server" ID="LtActualizado" />
-                                            </code>
+                                        </code>
 
 
-                                            &nbsp
+                                        &nbsp
                                     </div>
                                     <div class="actions">
                                         <div class="btn-group">
@@ -545,7 +545,15 @@
                                 </ItemTemplate>
                             </asp:TemplateField>
                             <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
-                            <asp:HyperLinkField HeaderText="Producto o Servicio" Target="_blank" DataTextField="CodigoPS" DataNavigateUrlFields="CvePS" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" ItemStyle-HorizontalAlign="Left" />
+<%--                            <asp:HyperLinkField HeaderText="Producto o Servicio" Target="_blank" DataTextField="CodigoPS" DataNavigateUrlFields="CvePS" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" ItemStyle-HorizontalAlign="Left" />--%>
+                            <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                                <HeaderTemplate>
+                                    <asp:Literal ID="LtlHeaderPS" Text="Producto o Servicio" runat="server"></asp:Literal>
+                                </HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:HyperLink ID="HplPS" runat="server" Target="_blank" Text='<%# Eval("CodigoPS", "{0}") %>'></asp:HyperLink>
+                                </ItemTemplate>
+                            </asp:TemplateField>
                             <asp:BoundField HeaderText="Observación" DataField="ObservacionesDetalle" ItemStyle-Width="7.5%" />
 
                             <asp:TemplateField HeaderText="Sección" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">

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"))

Inventarios/PaquetesArmadoDesarmado.aspx.vb

@@ -130,6 +130,15 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             InicializaValores()
+
+            If Request("CvePS") IsNot Nothing Then
+                DdlPaqueteArmado.SelectedValueExist(Request("CvePS").ToString())
+            End If
+
+            If Request("Cantidad") IsNot Nothing Then
+                TxtCantidadArmado.Text = Request("Cantidad").ToString()
+            End If
+
         End If
     End Sub