From e6994d9f458ef102d6d2592b56f52eeef906c1f8 Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Fri, 10 Feb 2023 16:49:54 -0700
Subject: [PATCH] OC Bloquear cancelacion cuando  exista movimiento de almacen

---
 Compras/Compras.aspx |  2 +-
 OC/OC.aspx.vb        | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletion(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index cd7e217ee..be2e48980 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -875,7 +875,7 @@
                                             <ContentTemplate>
 
                                                 <asp:Literal runat="server" ID="LtlGvAnticiposSel" Visible="false">Anticipos/NC Vinculados</asp:Literal>                                                
-                                                <asp:GridView ID="GvAnticiposSel" runat="server" CssClass="table table-striped table-hover ScrollAD" Width="100%" AutoGenerateColumns="False" DataKeyNames="TipoDocto,CveCompraNC" ClientIDMode="Static" EmptyDataText=""  data-height="280" 
+                                                <asp:GridView ID="GvAnticiposSel" runat="server" CssClass="table table-striped table-hover ScrollAD" Width="100%" AutoGenerateColumns="False" DataKeyNames="TipoDocto,CveCompraNC" ClientIDMode="Static" EmptyDataText=""  data-height="200" 
                                                       GridLines="None">
                                                     <Columns>
                                                         <asp:TemplateField>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 0c1b1972b..959542ab0 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -922,10 +922,31 @@ Partial Class OC_OC
 
         MostrarUsuarioAsignado()
 
+        ValidaCancelacionConAlamcen()
+
         Me.Form.DefaultButton = ""
 
     End Sub
 
+    Private Sub ValidaCancelacionConAlamcen()
+
+        ' BtnCancelarPrevio.Visible = True
+        ' BtnCancelarPrevio.Enabled = True
+
+        If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then
+
+
+            'BtnCancelarPrevio.Attributes.Remove("onclick")
+            BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip")
+            BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.")
+            BtnCancelarPrevio.OnClientClick = "return false;"
+            'BtnCancelarPrevio.Attributes.Add("onclick", "$('#DivCancelarCompra').modal('hide')")
+
+        End If
+
+
+    End Sub
+
 #Region "  PERMISOS PAGINA  "
     Private Sub PermisosPagina()
         ActivarIVAEditable()