diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 654746115..66ef491bf 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -611,7 +611,7 @@ Partial Class Bancos_PopIECompras
                             If UsuarioActual.Empresa.UsaAC Then
                                 RegistraScript("if (confirm('La factura está cancelada ante el SAT., ¿Desea eliminar la compra?')) { $get('BtnEliminarCompra').click();}")
                             Else
-                                Alert("La factura está cancelada ante el SAT.")
+                                Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgError)
                             End If
 
                         Else
@@ -624,47 +624,45 @@ Partial Class Bancos_PopIECompras
                     Valida.Dispose()
                 Else
                     Validada = True
-                End If
+                End If
+                'CargaProveedor
+                CveProveedor = dr("CveProveedor").ToString.ToEntero
+                HdnCveProveedor.Value = CveProveedor.ToString
+                CargaProveedor(CveProveedor, "-1")
+                CveMoneda = dr("CveMoneda").ToString.ToEntero
+                CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
+                CveMonedaCompra = dr("CveMoneda").ToString.ToEntero
+                CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
+                SerieFolio = dr("SerieFolio").ToString
+                TipoCambioOriginal = dr("TipoCambioOriginal").ToString.ToDecimal
+                NombreProveedor = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", String.Format("CveProveedor = {0}", CveProveedor))
 
+                CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
 
+                LtlTitulo.Text = "Cuentas por Pagar"
+                LtlTipo2.Text = "Folio"
+                LtlTipo3.Text = "Fecha"
+                LtlFechaVenta.Text = dr("Fecha").ToString.ToDate.ToShortDateString()
+                LtlFolio.Text = dr("SerieFolio").ToString
+                LtlSaldo.Text = If(CveMoneda = 1, $"{dr("Saldo").ToString.FormatoNumero}{" MXN"}", $"{dr("Saldo").ToString.FormatoNumero}{" USD"}")
+
+                'Configuración de Modalidad Update
+                MovimientoPagar = New IEMovimiento
+                MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
+                MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
+                MovimientoPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal.RoundSQL
+                MovimientoPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal.RoundSQL
+                MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
+                MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal
+                MovimientoPagar.Total = dr("Total").ToString.ToDecimal
+                MovimientoPagar.Saldo = dr("Saldo").ToString.ToDecimal
+                MovimientoPagar.IEPS = dr("IEPS").ToString.ToDecimal
+                MovimientoPagar.ConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero
+                MovimientoPagar.ConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero
+                MovimientoPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
+                MovimientoPagar.IVAPorPagar = dr("IVAPorPagar").ToString.ToDecimal
+
                 If Validada Then
-                    'CargaProveedor
-                    CveProveedor = dr("CveProveedor").ToString.ToEntero
-                    HdnCveProveedor.Value = CveProveedor.ToString
-                    CargaProveedor(CveProveedor, "-1")
-                    CveMoneda = dr("CveMoneda").ToString.ToEntero
-                    CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
-                    CveMonedaCompra = dr("CveMoneda").ToString.ToEntero
-                    CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
-                    SerieFolio = dr("SerieFolio").ToString
-                    TipoCambioOriginal = dr("TipoCambioOriginal").ToString.ToDecimal
-                    NombreProveedor = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", String.Format("CveProveedor = {0}", CveProveedor))
-
-                    CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
-
-                    LtlTitulo.Text = "Cuentas por Pagar"
-                    LtlTipo2.Text = "Folio de la Compra"
-                    LtlTipo3.Text = "Fecha de la Compra"
-                    LtlFechaVenta.Text = dr("Fecha").ToString.ToDate.ToShortDateString()
-                    LtlFolio.Text = dr("SerieFolio").ToString
-                    LtlSaldo.Text = If(CveMoneda = 1, $"{dr("Saldo").ToString.FormatoNumero}{" MXN"}", $"{dr("Saldo").ToString.FormatoNumero}{" USD"}")
-
-                    'Configuración de Modalidad Update
-                    MovimientoPagar = New IEMovimiento
-                    MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
-                    MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
-                    MovimientoPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal.RoundSQL
-                    MovimientoPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal.RoundSQL
-                    MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
-                    MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal
-                    MovimientoPagar.Total = dr("Total").ToString.ToDecimal
-                    MovimientoPagar.Saldo = dr("Saldo").ToString.ToDecimal
-                    MovimientoPagar.IEPS = dr("IEPS").ToString.ToDecimal
-                    MovimientoPagar.ConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero
-                    MovimientoPagar.ConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero
-                    MovimientoPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
-                    MovimientoPagar.IVAPorPagar = dr("IVAPorPagar").ToString.ToDecimal
-
                     TxtFolio.Enabled = True
                     TxtFechaDocumento.Enabled = True
                     Calendario.Enabled = True