Bitacora de solicitud de cancelacion

App_Code/Modelos.vb

@@ -3682,6 +3682,10 @@ Namespace Modelos
         ''' <param name="ListaRemisionesCancelar"></param>
         ''' <returns></returns>
         Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing) As MCancelacionVentaMensaje
+
+
+
+
             Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar)
         End Function
 
@@ -3936,6 +3940,13 @@ Namespace Modelos
                 CancelacionAcuse = AcuseCancelacion
             End If
 
+            'BITACORA, SOLICITUD DE CANCELACION
+            If CveEstatus > 0 AndAlso CveEstatusFacturaAsignado <= 0 Then
+                Dim ObjE As New ClsOIEventos()
+                ObjE.AddEventoBitacora("Solicitud de cancelación de factura", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta)
+                ObjE.Dispose()
+            End If
+
             'SI ES CANCELACION EN PROCESO CANCELA EL PROCESO DE LAS REMISIONES
             Dim SeCancelaRemisionProceso = (CveEstatus = 20 AndAlso TieneRemisionesRelacionadas AndAlso CancelarRemisiones)