diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 397c6ebd3..cdb6783e5 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8609,7 +8609,6 @@ Partial Class Compras_Compras
                 End If
 
                 Dim CveCompraNC, IdCtaContable, IdCtaContableComp As Integer
-                Dim PorcentajePago As Decimal
                 Dim ConceptoPoliza As String = $"Amortización {NombreProveedor} - {TxtSerie.Text}-{TxtFolio.Text}"
 
                 Try