diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index c7290769b..7f80edd22 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -816,7 +816,7 @@ Partial Class ContabilidadC_RegPrePoliza
Dim Conta As ClsContPAQi = Nothing
Dim IDPoliza As Integer = 0
Dim MsgError As String = ""
- Dim CveIE As Integer
+ Dim CveIE As Integer = -1
Dim CveIEInsertado As Integer = -1
Dim FolioIE As String = ""
@@ -925,7 +925,7 @@ Partial Class ContabilidadC_RegPrePoliza
If MsgError = "" Then
'MENSAJE IE
- If CveIE Then
+ If CveIE > 0 Then
MensajeAlert.AppendFormat("
Folio Bancario:
{1}", CveIE, FolioIE)
Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
Else