diff --git a/Compras/RepRembolsoComprobaciones.aspx b/Compras/RepRembolsoComprobaciones.aspx
index 3b0965312..3c3ac64f7 100644
--- a/Compras/RepRembolsoComprobaciones.aspx
+++ b/Compras/RepRembolsoComprobaciones.aspx
@@ -243,7 +243,7 @@
                             <asp:HyperLink ID="HLProv" CssClass="Texto" Text='<%# Eval("CveProveedor")%>' runat="server"></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>                   
-                    <asp:HyperLinkField HeaderText="Poliza" DataTextField="FolioPoliza" DataNavigateUrlFields="IdPoliza" DataNavigateUrlFormatString="/Contabilidad/RegPoliza.aspx?IdPoliza={0}" Target="_blank" ItemStyle-HorizontalAlign="Left" />
+                    <asp:HyperLinkField HeaderText="Poliza" DataTextField="FolioPoliza" DataNavigateUrlFields="CvePrePoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}" Target="_blank" ItemStyle-HorizontalAlign="Left" />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb
index 2dc77cd24..23e243447 100644
--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/Compras/RepRembolsoComprobaciones.aspx.vb
@@ -128,7 +128,7 @@ Partial Class Compras_RepRembolsoComprobaciones
             If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
             If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = ""
             If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""
-            If Not e.Row.DBCampo("IdPoliza").ToEntero > 0 Then e.Row.Cells(13).Text = ""
+            If Not e.Row.DBCampo("CvePrePoliza").ToEntero > 0 Then e.Row.Cells(12).Text = ""
         End If
     End Sub
 
@@ -137,7 +137,7 @@ Partial Class Compras_RepRembolsoComprobaciones
         Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL)
         Dim ObjAC As ClsContPAQi = Nothing
 
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
         Dim CvePrePoliza As Integer = 0
         Dim IdPoliza As Integer = 0
         Dim Msg As New StringBuilder