diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index ec360eed3..c3c7db3ce 100644
--- 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