diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ee9dc3df8..b6367d8f7 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4160,8 +4160,10 @@ Partial Class Compras_Compras
 
                 CvePrePoliza = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
 
-                'seria de contado, solo cuando no tenga vinculado ningun anticipo
-                If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
+                If CvePrePoliza > 0 Then
+
+                    'seria de contado, solo cuando no tenga vinculado ningun anticipo
+                    If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
 
                     If RBLContado.SelectedValue = "1" Then
                         'se registra primero el movimiento en bancos para  luego vincularlo en la compra
@@ -7715,6 +7717,7 @@ Partial Class Compras_Compras
                     ObjCompras.RollBack()
                 End If
 
+                End If
 
             Catch ex As Exception
                 ObjCompras.RollBack()