Contabilidad/RegPrePoliza.aspx

@@ -67,8 +67,7 @@
     <asp:Label ID="LblEncabezado" runat="server" Text=" Registro de Póliza"></asp:Label>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <asp:UpdatePanel runat="server">
-        <ContentTemplate>
+     
             <li>
                 <asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
             </li>
@@ -82,11 +81,7 @@
                 <asp:LinkButton ID="LnkComprobante" runat="server" Visible="false"  data-toggle="modal" data-target="#ModalUpload" Style="color: #686868;"><i class="fa fa-upload" style="color:#686868;"></i> Cargar Comprobante</asp:LinkButton>
             </li>
 
-        </ContentTemplate>
-        <Triggers>
-            <asp:PostBackTrigger ControlID="LnkComprobante" />
-        </Triggers>
-    </asp:UpdatePanel>
+         
 
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">

Contabilidad/RegPrePoliza.aspx.vb

@@ -1870,6 +1870,8 @@ Partial Class ContabilidadC_RegPrePoliza
         Catch ex As Exception
             Alert("Error al descargar el paquete", TipoMensaje.MsgError)
         End Try
+        ObjCompra.Dispose()
+        ObjIE.Dispose()
     End Sub
     Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String
         Dim ObjConta As New ClsContabilidad
@@ -2324,30 +2326,26 @@ Partial Class ContabilidadC_RegPrePoliza
         Dim Path As String
         Dim dt As DataTable = DtMovimientos.FiltraParametros("", "", filtro)
         Dim ObjIE As New ClsBancos()
-        Dim TieneComprobante As Boolean = True
+        Dim TieneComprobante As Boolean = False
 
-        For Each Row As DataRow In dt.Rows
+        For Each Row As DataRow In dt.FiltraParametros("CveConceptoContable = 30").Rows
 
-            If TieneComprobante Then
-                If Row("CveConceptoContable").ToString.ToEntero = 30 Then
-                    If Row("CveIE").ToString.ToEntero > 0 Then
-                        If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
-                            If ObjIE.DtResultados.Rows.Count > 0 Then
-                                Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
-                                If File.Exists(Path) Then
-                                    TieneComprobante = True
-                                Else
-                                    TieneComprobante = False
-                                    Exit For
-                                End If
-                            Else
-                                TieneComprobante = False
-                                Exit For
-                            End If
+            If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+                    If ObjIE.DtResultados.Rows.Count > 0 Then
+                        Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
+                        If File.Exists(Path) Then
+                            TieneComprobante = True
+                            Exit For
+                        Else
+                            TieneComprobante = False
+                            Exit For
                         End If
+                    Else
+                        TieneComprobante = False
+                        Exit For
                     End If
                 End If
-            End If
+
         Next
         ObjIE.Dispose()
         Return TieneComprobante