From a29d3626d0ab5031a90973e798ea1fc2061916c9 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Thu, 15 Oct 2020 15:06:56 -0700
Subject: [PATCH] Bloquear clasificacion, subproyecto cuando exista almacen

---
 OC/OC.aspx    | 2 +-
 OC/OC.aspx.vb | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/OC/OC.aspx b/OC/OC.aspx
index 01867c377..b2d5821c9 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -871,7 +871,7 @@
 
 
                                     <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn"
-                                        DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
+                                        DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,CantidadNoEditable" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <EditItemTemplate>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index dc0d4a830..35b261248 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3741,7 +3741,7 @@ Partial Class OC
         CargaDatosDetalles()
         Dim EditingRow As GridViewRow = GvD.Rows(e.NewEditIndex)
         If Not EsCreaApartirDe Then
-            If EditingRow.DataKey("TipoDato").ToEntero = 2 Then
+            If EditingRow.DataKey("TipoDato").ToEntero = 2 Or EditingRow.DataKey("CantidadNoEditable").ToDecimal > 0 Then
                 EditingRow.FCDropDownList("DdlClasificacion").Enabled = False
                 EditingRow.FCDropDownList("DdlPS").Enabled = False
                 EditingRow.FCDropDownList("CboUnidadMedidaEdit").Enabled = False