Bitacora de refacturacion

2020-05-26 12:52:31 -07:00
parent 9d4372c564
commit d203d219e5
1 changed files with 7 additions and 1 deletions
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4260,8 +4260,14 @@ Namespace Modelos

            'BITACORA, SOLICITUD DE CANCELACION
            If CveEstatus > 0 AndAlso CveEstatusFacturaAsignado <= 0 Then
+
+                Dim msgBitacora As String = "Solicitud de cancelación de factura"
+                If EsRefacturacion Then
+                    msgBitacora = "Solicitud de cancelación por refacturación"
+                End If
+
                Dim ObjE As New ClsOIEventos()
-                ObjE.AddEventoBitacora("Solicitud de cancelación de factura", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta)
+                ObjE.AddEventoBitacora(msgBitacora, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta)
                ObjE.Dispose()
            End If