Compras pagos conciliados al cancelar compra

Compras/Compras.aspx.vb

@@ -14637,6 +14637,35 @@ Partial Class Compras_Compras
     Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DivCancelarCompra').modal('hide');")
 
+
+        Dim ObjComprasComprobacion As New ClsCompras
+
+
+        If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then
+
+            Dim TienePagosConciliados As Boolean = False
+
+            If ObjComprasComprobacion.DtResultados.Rows.Count > 0 Then
+                TienePagosConciliados = True
+                Dim PagosConciliados As New StringBuilder
+
+                For Each Drow As DataRow In ObjComprasComprobacion.DtResultados.Rows
+                    PagosConciliados.AppendLine($"<a target='_blank' class='Texto' href=../Bancos/IE.aspx?CveIE={Drow("CveIE").ToString}>{Drow("Folio").ToString} </a>  <br>")
+                Next
+
+
+                Alert($"La compra no se puede cancelar, tiene pagos conciliados: <br>  {PagosConciliados.ToString}", TipoMensaje.MsgAdvertencia)
+            End If
+
+            If TienePagosConciliados Then
+                ObjComprasComprobacion.Dispose()
+                Exit Sub
+            End If
+
+
+        End If
+        ObjComprasComprobacion.Dispose()
+
         Dim ObjAC As ClsContPAQi = Nothing
         If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
             ObjAC = New ClsContPAQi(UsuarioActual.Empresa)