From 3489c820de80226cda86de981db82ca7194a965c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 6 Sep 2019 12:57:40 -0700 Subject: [PATCH] Bitacora de solicitud de cancelacion --- App_Code/Modelos.vb | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 4303c4e15..c08365267 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3682,6 +3682,10 @@ Namespace Modelos ''' ''' 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)