From 6c2d6d99ce9a276005383bd7a3c32cc947ccfa08 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 28 Aug 2021 13:28:00 -0700
Subject: [PATCH] nuevo permiso para lbierar el  cambio de PU

---
 OC/OC.aspx.vb | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 92af42596..9e52fbaf9 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -579,7 +579,7 @@ Partial Class OC
 
 
         If Not Page.IsPostBack Then
-
+            GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
             CargaDatosAgregarPS()
             CveProveedorOriginal = -1
             'MODALIDAD MULTIEMPRESA
@@ -813,7 +813,7 @@ Partial Class OC
             If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
                 DVCultivosCuadro.Visible = True
                 DdlSubProyecto.AutoPostBack = True
-                DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
+                DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue} AND Estatus =1")
                 DdlCultivosCuadro.DataBind()
                 DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
@@ -3754,8 +3754,12 @@ Partial Class OC
                     e.Row.FCDropDownList("DdlPS").Enabled = False
                     e.Row.FCDropDownList("DdlClasificacion").Enabled = False
                     e.Row.FCDropDownList("CboUnidadMedidaEdit").Enabled = False
-                    e.Row.FCTextBox("TxtImporteEdit").Enabled = False
-                    e.Row.FCTextBox("TxtDescuentoEdit").Enabled = False
+                    'que tenga el permiso que no bloquee
+                    If Not UsuarioActual.TienePermisoProceso(329) AndAlso e.Row.DBCampo("CantidadVinculadaCompra").ToDouble = 0 Then 'permite editar pu, aun estando recibida
+                        e.Row.FCTextBox("TxtImporteEdit").Enabled = False
+                        e.Row.FCTextBox("TxtDescuentoEdit").Enabled = False
+                    End If
+
                 End If
 
                 'DDL PS
@@ -3812,7 +3816,7 @@ Partial Class OC
 
                 If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then 'empresa agricola
                     e.Row.FCDropDownList("DdlCultivosCuadroEdit").Visible = True
-                    e.Row.FCDropDownList("DdlCultivosCuadroEdit").DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {e.Row.DBCampo("CveSubProyecto").ToEntero}")
+                    e.Row.FCDropDownList("DdlCultivosCuadroEdit").DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {e.Row.DBCampo("CveSubProyecto").ToEntero}  AND Estatus =1")
                     e.Row.FCDropDownList("DdlCultivosCuadroEdit").DataBind()
 
                     e.Row.FCDropDownList("DdlCultivosCuadroEdit").Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -6954,7 +6958,7 @@ Partial Class OC
         If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
 
             DdlCultivosCuadro.Items.Clear()
-            DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($" CveSubProyecto = {DdlSubProyecto.SelectedValue}")
+            DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($" CveSubProyecto = {DdlSubProyecto.SelectedValue} AND Estatus =1")
             DdlCultivosCuadro.DataBind()
             DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
@@ -8530,7 +8534,7 @@ Partial Class OC
         Dim CveCultivoCuadroDetalle As Integer = GvRow.DataKey("CveCultivoCuadroDetalle").ToString.ToEntero
 
         DdlCultivosCuadroEdit.Items.Clear()
-        DdlCultivosCuadroEdit.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoEdit.SelectedValue}")
+        DdlCultivosCuadroEdit.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoEdit.SelectedValue} AND Estatus =1")
         DdlCultivosCuadroEdit.DataBind()
         DdlCultivosCuadroEdit.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
         DdlCultivosCuadroEdit.SelectedValueExist(CveCultivoCuadroDetalle)