OC Bloquear cancelacion cuando exista movimiento de almacen

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>

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()