From 525f2670ad551223a95ec1c0a76936152b937187 Mon Sep 17 00:00:00 2001
From: RPimienta <dany_pimi@hotmail.com>
Date: Sat, 20 May 2023 01:21:13 -0600
Subject: [PATCH] Desvinculacion de OC al cancelar la compra

---
 App_Code/ClsCompras.vb  | 20 ++++++++++++++++++++
 Compras/Compras.aspx.vb |  6 ++++++
 2 files changed, 26 insertions(+)

diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 38db7e34a..030f28eaf 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -2117,6 +2117,26 @@ Public Class ClsCompras
         Return Retorno
     End Function
 
+    Public Function CancelarCompraOC(CveCompra As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_CancelarCompraOC")
+
+        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 desvincular la oc de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 
 
 #End Region
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index a83716886..28a619d80 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -13899,6 +13899,12 @@ Partial Class Compras_Compras
 
         End If
 
+        If Not ErrorCancelar Then
+            If Not ObjCompras.CancelarCompraOC(CveCompra, UsuarioActual.CveEmpresa) Then
+                ErrorCancelar = True
+            End If
+        End If
+
 
         'CANCELA COMPRA
         If Not ErrorCancelar Then