diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 0a8ec268e..139f108c2 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -4303,6 +4303,7 @@ Partial Class Bancos_IE
         Dim MensajeError = ""
         Dim IdPolizaNueva = -1
         Dim FolioPolizaNueva = -1
+        Dim MensajeLog As String = ""
 
         Dim Banc As New ClsBancos
         Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL())
@@ -4427,7 +4428,7 @@ Partial Class Bancos_IE
                     End If
 
                 End If
-
+                MensajeLog += "GeneraCancelacionEnCero:" & GeneraCancelacionEnCero
                 Dim CvePrePolizaCancelacion As Integer = 0
 
                 If Not GeneraCancelacionEnCero Then