From 8c803b4a992ed40ae579cc64a89a926bd85d7670 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Tue, 24 Nov 2020 22:16:30 -0700
Subject: [PATCH] OC Correcion DropDownCultivos

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

diff --git a/OC/OC.aspx b/OC/OC.aspx
index d4dce1d93..b7c9eb33e 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -812,8 +812,7 @@
                                                     
                                                     <div runat="server"  id="DVCultivosCuadro" visible ="false">
                                                         <asp:DropDownList ID="DdlCultivosCuadro" CssClass=" form-control input-sm select2me" runat="server"   DataTextField="Cuadro" Style="width: 100%; max-width: 600px;" 
-                                                        DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpDetalleGuardar">
-                                                        <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                        DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpDetalleGuardar">                                                        
                                                     </asp:DropDownList>
                                                     </div>
                                                     
@@ -941,7 +940,7 @@
                                             <asp:TemplateField>
                                                 <ItemTemplate>
 
-                                                    <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# String.Format("{0}<br/>{1}{2}", Eval("Proyecto"), Eval("SubProyecto"), If(Eval("CveCultivoCuadroDetalle").ToString.Length > 0, String.Format("<br/>{0}", Eval("Cuadro")), "")) %>'></asp:Literal>
+                                                    <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# String.Format("{0}<br/>{1}{2}", Eval("Proyecto"), Eval("SubProyecto"), If(Eval("CveCultivoCuadroDetalle").ToString <> "" And Eval("CveCultivoCuadroDetalle").ToString <> "0" And Eval("CveCultivoCuadroDetalle").ToString <> "-1", String.Format("<br/>{0}", Eval("Cuadro")), "")) %>'></asp:Literal>
                                                     
                                                   
 
@@ -951,7 +950,8 @@
                                                     <asp:DropDownList ID="DdlProyectoEdit" runat="server" Style="width: 100%" AppendDataBoundItems="true" AutoPostBack="true" CssClass=" form-control input-sm select2me" DataTextField="Proyecto" DataValueField="CveProyecto" ValidationGroup="grpEditar" OnSelectedIndexChanged="DdlProyectoEdit_SelectedIndexChanged">
                                                         <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
-                                                    <asp:DropDownList ID="DdlSubProyectoEdit" Style="width: 100%" runat="server" AppendDataBoundItems="true" CssClass=" form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="grpEditar">
+                                                    <asp:DropDownList ID="DdlSubProyectoEdit" Style="width: 100%" runat="server" AppendDataBoundItems="true" CssClass=" form-control input-sm select2me" OnSelectedIndexChanged="DdlSubProyectoEdit_SelectedIndexChanged" AutoPostBack="true"
+                                                        DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="grpEditar">
                                                         <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
                                                       <asp:DropDownList ID="DdlCultivosCuadroEdit" Visible="false" CssClass=" form-control input-sm select2me" runat="server"   DataTextField="Cuadro" Style="width: 100%; max-width: 600px;" 
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index ce5dfb98d..07bd1ee2d 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -801,9 +801,8 @@ Partial Class OC
 
             If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
                 DVCultivosCuadro.Visible = True
-                DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa)
-                DdlCultivosCuadro.DataBind()
                 DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
             End If
 
             'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO
@@ -3747,7 +3746,7 @@ Partial Class OC
 
                 If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
                     e.Row.FCDropDownList("DdlCultivosCuadroEdit").Visible = True
-                    e.Row.FCDropDownList("DdlCultivosCuadroEdit").DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa)
+                    e.Row.FCDropDownList("DdlCultivosCuadroEdit").DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {e.Row.DBCampo("CveSubProyecto").ToEntero}")
                     e.Row.FCDropDownList("DdlCultivosCuadroEdit").DataBind()
 
                     e.Row.FCDropDownList("DdlCultivosCuadroEdit").Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -6864,6 +6863,18 @@ Partial Class OC
         If UsuarioActual.Empresa.Funcionalidad(141) = "1" Or True Then
             SeleccionaSucursal()
         End If
+
+
+        If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
+
+            DdlCultivosCuadro.Items.Clear()
+            DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($" CveSubProyecto = {DdlSubProyecto.SelectedValue}")
+            DdlCultivosCuadro.DataBind()
+            DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+        End If
+
+
     End Sub
     Private Sub CargaSucursal()
         DdlSucursal.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -8414,4 +8425,19 @@ Partial Class OC
 
     End Sub
 
+    Protected Sub DdlSubProyectoEdit_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = CType(CType(sender, DropDownList).BindingContainer, GridViewRow)
+
+        Dim DdlSubProyectoEdit As DropDownList = GvRow.FCDropDownList("DdlSubProyectoEdit")
+        Dim DdlCultivosCuadroEdit As DropDownList = GvRow.FCDropDownList("DdlCultivosCuadroEdit")
+        Dim CveCultivoCuadroDetalle As Integer = GvRow.DataKey("CveCultivoCuadroDetalle").ToString.ToEntero
+
+        DdlCultivosCuadroEdit.Items.Clear()
+        DdlCultivosCuadroEdit.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoEdit.SelectedValue}")
+        DdlCultivosCuadroEdit.DataBind()
+        DdlCultivosCuadroEdit.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        DdlCultivosCuadroEdit.SelectedValueExist(CveCultivoCuadroDetalle)
+
+    End Sub
 End Class