diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 02bb186f9..01188dd7f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6207,7 +6207,6 @@ Partial Class Compras_Compras
 
                                                                 Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
 
-                                                                If importeMovimiento <> 0 Then
                                                                     'Conta ContPAQ
                                                                     If IdCtaContable = 0 Then
                                                                         CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
@@ -6224,9 +6223,8 @@ Partial Class Compras_Compras
                                                                     End If
 
 
-                                                                End If
 
-                                                                Dim ContienePSNeteoBonif As Boolean = False
+                                                                    Dim ContienePSNeteoBonif As Boolean = False
                                                                 For Each Dr As DataRow In TmpDT.Rows
                                                                     If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
                                                                         ContienePSNeteoBonif = True