Contabilidad/FiltraPolizas.aspx.vb

@@ -234,7 +234,7 @@ Partial Class Contabilidad_FiltraPolizas
         Dim ObjCompra As New ClsCompras
         Dim ObjIE As New ClsBancos()
         Dim pathPoliza As String = ""
-        Dim TieneComprobante As Boolean
+        Dim TieneComprobante As String = ""
         Tick = DateTime.Now.Ticks.ToString
         Dim ObjContabilidad As New ClsContabilidad
         Dim CvePrePoliza As Integer
@@ -252,7 +252,7 @@ Partial Class Contabilidad_FiltraPolizas
                         ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
                         TieneComprobante = VerificarComprobante(ObjContabilidad.DtResultados)
 
-                        If TieneComprobante And SinComprobante Then
+                        If TieneComprobante = "" And Not SinComprobante Then
 
                             Path = ImprimirPolizaPDF(CvePrePoliza)
                             pathPoliza = Path
@@ -331,8 +331,8 @@ Partial Class Contabilidad_FiltraPolizas
                                 End If
                             Next
                         Else
-                            If Not TieneComprobante Then
-                                PolizasSinComprobante += String.Format("<a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>{1} {2}</a> <br/>", TempPolizas.DataKey("CvePrePoliza").ToString, TempPolizas.DataKey("TipoPol").ToString, TempPolizas.DataKey("Folio").ToString)
+                            If TieneComprobante <> "" Then
+                                PolizasSinComprobante += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}'>{1} {2}</a> <br/>", TieneComprobante, TempPolizas.DataKey("TipoPol").ToString, TempPolizas.DataKey("Folio").ToString)
                                 SinComprobante = True
                             End If
 
@@ -381,7 +381,7 @@ Partial Class Contabilidad_FiltraPolizas
         If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
             Dim dtVC As DataTable
             Dim dr As DataRow
-            dtVC = ObjConta.DtResultados
+            dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
             dr = dtVC.Rows(0)
             Dim ruta As String = ""
             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
@@ -493,12 +493,12 @@ Partial Class Contabilidad_FiltraPolizas
 
     End Sub
 
-    Private Function VerificarComprobante(ByVal PrepolizaDetalle As DataTable) As Boolean
+    Private Function VerificarComprobante(ByVal PrepolizaDetalle As DataTable) As String
         Dim filtro() As String = {"CveIE", "CveConceptoContable"}
         Dim Path As String
         Dim dt As DataTable = PrepolizaDetalle.FiltraParametros("", "", filtro)
         Dim ObjIE As New ClsBancos()
-        Dim TieneComprobante As Boolean = False
+        Dim TieneComprobante As String = ""
 
         For Each Row As DataRow In dt.FiltraParametros("CveConceptoContable = 30").Rows
 
@@ -506,14 +506,14 @@ Partial Class Contabilidad_FiltraPolizas
                 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
+                        TieneComprobante = ""
                         Exit For
                     Else
-                        TieneComprobante = False
+                        TieneComprobante = Row("CveIE").ToString
                         Exit For
                     End If
                 Else
-                    TieneComprobante = False
+                    TieneComprobante = Row("CveIE").ToString
                     Exit For
                 End If
             End If