From 3a92f20d7c49f751cfa6346548f09f230c1efa1f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 22 Aug 2019 19:10:54 -0700
Subject: [PATCH]  a

---
 App_Code/ClsCompras.vb                 |  5 ++---
 Compras/Compras.aspx                   |  1 -
 Inventarios/RepNotasSinAlmacen.aspx    |  2 +-
 Inventarios/RepNotasSinAlmacen.aspx.vb | 12 ++++++++++--
 4 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 280bd41ec..dfda922b1 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -2147,14 +2147,13 @@ Public Class ClsCompras
 
         Return Retorno
     End Function
-    Public Function UpdateEstatusAlmacenDetalle(CveCompraDetalle As Integer, ValorEstatus As Integer, Optional CveUsuarioModificoDetalle As Integer = -1) As Boolean
+    Public Function UpdateEstatusAlmacenDetalle(CveCompraDetalle As Integer, ValorEstatus As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ComprasDetalleEstatusAlmacenUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle
-            .Add("@Estatus", SqlDbType.Int).Value = ValorEstatus
-            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModificoDetalle
+            .Add("@Estatus", SqlDbType.Int).Value = ValorEstatus
         End With
 
         Try
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 14e5aeef9..85648f022 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -3467,7 +3467,6 @@
                                     <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
                                 </Columns>
                             </asp:GridView>
diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx
index 2d23b5ed5..b66f5625e 100644
--- a/Inventarios/RepNotasSinAlmacen.aspx
+++ b/Inventarios/RepNotasSinAlmacen.aspx
@@ -184,7 +184,7 @@
                         </div>
                         <asp:UpdatePanel ID="UpDatosGvCompras" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <asp:GridView ID="GvCompras" ClientIDMode="Static" Width="100%" runat="server" GridLines="None" BorderWidth="0" DataKeyNames="CveCompraDetalle" 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,CveCompraDetalle,CvePS" 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" />
diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb
index 9c54911f7..6973d632c 100644
--- a/Inventarios/RepNotasSinAlmacen.aspx.vb
+++ b/Inventarios/RepNotasSinAlmacen.aspx.vb
@@ -292,12 +292,20 @@ Partial Class RepNotasSinAlmacen
             Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
             Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle")
+            Dim CveCompra As Integer = GvRow.DataKey("CveCompra")
+            Dim CvePS As Integer = GvRow.DataKey("CveCompra")
+
+            Dim PS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")
 
             Dim ObjCompras As New ClsCompras
-            If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1, UsuarioActual.CveUsuario) Then
-                Alert("El producto se desmarco correctamente.")
+            Dim ObjEventos As New ClsOIEventos
+            If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1) Then
+                If ObjEventos.AddEventoBitacora(String.Format("Se cambio el estatus de almacen del producto/servicio: {0} a 'No Recibir'", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
+                    Alert("El producto se desmarco correctamente.")
+                End If
             End If
             ObjCompras.Dispose()
+            ObjEventos.Dispose()
 
             CargaDatos()
         End If