Se corrigio mensaje al terminar registro, siempre intentaba mostrar el mensaje de IE

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("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
                     Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
                 Else