Agregar bitacora en cambio de estatus de almacen por producto/cargar cambio de moneda cuando se agregar el PS en ventas
This commit is contained in:
@@ -278,10 +278,11 @@ 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
|
||||
@@ -290,11 +291,11 @@ Partial Class RepNotasSinAlmacen
|
||||
If UsuarioActual.TienePermisoProceso(278) Then
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
Dim CveCompra As Integer = GvRow.DataKey("CveCompra")
|
||||
Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle")
|
||||
|
||||
Dim ObjCompras As New ClsCompras
|
||||
If ObjCompras.UpdateEstatusAlmacen(CveCompra, 1) Then
|
||||
Alert("La compra se desmarco correctamente.")
|
||||
If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1, UsuarioActual.CveUsuario) Then
|
||||
Alert("El producto se desmarco correctamente.")
|
||||
End If
|
||||
ObjCompras.Dispose()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user