diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index b305df95f..a2dc11030 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1415,6 +1415,12 @@ Partial Class Bancos_PopIECompras
                 CveConcepto2 = 41
                 CveProveedor2 = DdlAcreedor.SelectedValue.ToEntero
                 CveIE = -1
+                'verifica que se halla selccionado algun acreedor
+                If DdlAcreedor.SelectedValue.ToEntero <= 0 Then
+                    Inserta = False
+                    Alert("Debe especificar el Acreedor.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
             Case "6" 'Ventas
                 ImportePagado = TxtImporte.Text.Trim.ToDecimal
                 CveProveedor2 = CveProveedor
@@ -3312,18 +3318,18 @@ Partial Class Bancos_PopIECompras
                                             ImporteMovimiento = 0
                                     End Select
 
-                                    If ImporteMovimiento <> 0 Then
+                                    If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
                                         'Conta ContPAQ
                                         If IdCtaContable = 0 Then
                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                             idCuentaContabilizacion = 0
                                         End If
 
-                                        'Conta SIG
-                                        If CveCuenta = 0 Then
-                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                            CveCuentaContabilizacion = 0
-                                        End If
+                                        ''Conta SIG
+                                        'If CveCuenta = 0 Then
+                                        '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+                                        '    CveCuentaContabilizacion = 0
+                                        'End If
 
                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                             MsgError = "No se pudo insertar la póliza"
@@ -3333,7 +3339,7 @@ Partial Class Bancos_PopIECompras
                                 Next
 
 
-                                If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
+                                If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
                                     If ObjMov.ValorPolizaDescuadre > 0 Then
                                         MsgError = ObjMov.MensajePolizaDescuadre
                                         GuardaLogAD($"Bancos/PopIECompras | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")