From dfb834cdc6f269c10741b35c47848f52adbe0135 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Thu, 17 Oct 2019 10:52:38 -0700
Subject: [PATCH] Se corrigio mensaje al terminar registro, siempre intentaba
 mostrar el mensaje de   IE

---
 Contabilidad/RegPrePoliza.aspx    | 2 ++
 Contabilidad/RegPrePoliza.aspx.vb | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx
index c0620e052..2836aea82 100644
--- a/Contabilidad/RegPrePoliza.aspx
+++ b/Contabilidad/RegPrePoliza.aspx
@@ -140,12 +140,14 @@
                                     </div>
 
                                 </div>
+
                                 <div class="row" id="trNotificar" runat="server" visible="False">
                                     <label class="col-md-2">Notificar:</label>
                                     <div class="col-md-10">
                                         <asp:TextBox ID="TxtNotificarA" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
                                     </div>
                                 </div>
+
                                 <div class="row" id="trCuentaDeposito" runat="server" visible="False">
                                     <label class="col-md-2">Cuenta Depósito:</label>
                                     <div class="col-md-10">
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("<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