Compras pagos conciliados al cancelar compra

App_Code/ClsCompras.vb

@@ -2445,6 +2445,30 @@ Public Class ClsCompras
         Return Retorno
     End Function
 
+    Public Function GetComprasPagosConciliados(CveCompra As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_ComprasPagosConciliadosGet")
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los de pagos de compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+
+
+
+
     Public Function RemoveComplementoPagoDesVincular(CveFactura As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_CompraComplementoDesVincular")

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)