Actualizar estatus de inventario en compras

Inventarios/RepNotasSinAlmacen.aspx

@@ -80,6 +80,7 @@
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
                         <asp:Button ID="btConsultar" CssClass="btn btn-primary" runat="server" Text="Consultar" /></td>
+                   
                     </div>
                     <div class="titlefiltros caption ">
                         <div class="row">
@@ -183,12 +184,17 @@
                         </div>
                         <asp:UpdatePanel ID="UpDatosGvCompras" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <asp:GridView ID="GvCompras" ClientIDMode="Static" Width="100%" runat="server" GridLines="None" BorderWidth="0" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" OnRowDataBound="GvCompras_RowDataBound">
+                                <asp:GridView ID="GvCompras" ClientIDMode="Static" Width="100%" runat="server" GridLines="None" BorderWidth="0" DataKeyNames="CveCompra" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" OnRowDataBound="GvCompras_RowDataBound">
                                     <Columns>
                                         <asp:BoundField HeaderText="Cantidad Solicitada" DataField="CantidadC" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" />
                                         <asp:BoundField HeaderText="Cantidad Restante" DataField="CantidadF" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" />
                                         <asp:BoundField HeaderText="Proveedor/Producto ó Servicio" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
                                         <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" />
+                                        <asp:TemplateField ItemStyle-Width="70px" HeaderText="Acción" ItemStyle-HorizontalAlign="Center">
+                                            <ItemTemplate>
+                                                <asp:LinkButton runat="server" OnClick="BtnActulizarEstatus_Click" CssClass="btn btn-sm red" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de marcar el producto como que no se recibirá?" data-btn-ok-label="si"></asp:LinkButton>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
                                     </Columns>
                                 </asp:GridView>
                             </ContentTemplate>

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -71,8 +71,10 @@ Partial Class RepNotasSinAlmacen
     End Sub
     Private Sub CargaPermisos()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
+        Dim TienePermisoDesmarcar As Boolean = UsuarioActual.TienePermisoProceso(278)
         GvVentas.Columns(4).Visible = TienePermisoImportes
         GvCompras.Columns(3).Visible = TienePermisoImportes
+        GvCompras.Columns(4).Visible = TienePermisoDesmarcar
     End Sub
     Private Sub CargaCombos()
         TxtFechaF.Text = Date.Now.ToShortDateString
@@ -276,8 +278,30 @@ Partial Class RepNotasSinAlmacen
                 e.Row.Cells(1).Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString
                 e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
                 e.Row.Cells(2).Text = "<a class=""Texto"" href=""/Compras/Proveedores.aspx?CveProveedor=" & e.Row.DBCampo("CveProveedor") & """>" & e.Row.DBCampo("RazonSocial") & "</a>"
+            Else
+                If GvCompras.Columns(4).Visible Then
+                    e.Row.Cells(4).Text = ""
+                End If
             End If
         End If
     End Sub
 
+    Protected Sub BtnActulizarEstatus_Click(sender As Object, e As EventArgs)
+        If UsuarioActual.TienePermisoProceso(278) Then
+            Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+            Dim CveCompra As Integer = GvRow.DataKey("CveCompra")
+
+            Dim ObjCompras As New ClsCompras
+            If ObjCompras.UpdateEstatusAlmacen(CveCompra, 1) Then
+                Alert("La compra se desmarco correctamente.")
+            End If
+            ObjCompras.Dispose()
+
+            CargaDatos()
+        End If
+
+
+    End Sub
+
 End Class