diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 092f884ab..d0118d925 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -632,6 +632,7 @@
                                                         <div class="btn btn-default btn-circle btn-xs " data-toggle="tooltip" data-placement="top" title="Cambiar sucursal"><i class="fa fa-arrow-circle-down" style="color: green" aria-hidden="true"></i></div>
                                                         <asp:LinkButton ID="ImgSubProyecto" CssClass="btn btn-default btn-circle btn-xs " data-toggle="tooltip" data-placement="top" ToolTip="Aplicar SubProyecto  a productos" runat="server" Style="display: none;"><i class="fa fa-arrow-circle-down" style="color:green" aria-hidden="true"></i></asp:LinkButton>
                                                     </span>
+                                                    
                                                 </th>
                                                 <th style="width: 80px">Tipo de Gasto
                                                    
@@ -675,6 +676,7 @@
                                                                     </asp:DropDownList>
                                                                 </div>
                                                             </div>
+                                                           
                                                         </ContentTemplate>
                                                     </asp:UpdatePanel>
                                                 </th>
@@ -4284,8 +4286,19 @@
                                                             <%--<asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RFVSubProyecto" ControlToValidate="DdlSubProyecto"  ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
                                                                             <ajax:ValidatorCalloutExtender ID="VCORVSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                                             <label runat="server" id="LblSubProyecto" for="<%= DdlSubProyecto.ClientID.ToString()%>">SubProyecto:</label>
+                                                             
+                                                            </div>
                                                         </div>
+                                                    <div class="col-md-3">
+                                                        <div runat="server"  id="DVCultivosCuadro" visible ="false" class="form-group form-md-line-input input-iconright" >
+                                                                
+                                                                <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:DropDownList>
+                                                             <label runat="server" id="Label9" for="<%= DdlCultivosCuadro.ClientID.ToString()%>">Cultivo:</label>
                                                     </div>
+                                                        </div>
+
                                                 </div>
                                             </ContentTemplate>
                                         </asp:UpdatePanel>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index fc53b60e5..da0b58856 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1319,6 +1319,15 @@ Partial Class Compras_Compras
             DdlPersonal.DataBind()
             DdlPersonalReembolso.DataBind()
 
+            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.DataBind()
+                DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+            End If
+
 
             'Carga Proveedor
             If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
@@ -17655,6 +17664,15 @@ Partial Class Compras_Compras
         If Modalidad <> "U" Or Not CveFactura > 0 Then
             DdlPSChange()
         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 DdlPSChange()
         If CveProveedor > 0 Then
diff --git a/OC/OC.aspx b/OC/OC.aspx
index b7c9eb33e..a5c5ecb11 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -811,6 +811,7 @@
                                                     <ajax:ValidatorCalloutExtender ID="VCORFVSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
                                                     
                                                     <div runat="server"  id="DVCultivosCuadro" visible ="false">
+                                                        Cultivo:
                                                         <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:DropDownList>
@@ -941,9 +942,7 @@
                                                 <ItemTemplate>
 
                                                     <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>
-                                                    
-                                                  
-
+                                                                                               
                                                 </ItemTemplate>
                                                 <EditItemTemplate>
 
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 07bd1ee2d..440141f5c 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -801,6 +801,9 @@ 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.DataBind()
                 DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
             End If
@@ -3562,7 +3565,9 @@ Partial Class OC
 
                 If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then
                     If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-                        e.Row.FCLiteral("LtlSubProyecto").Text = e.Row.DBCampo("SubProyecto")
+                        Dim Str As String = e.Row.DBCampo("SubProyecto")
+                        If e.Row.DBCampo("Cuadro") <> "" Then Str = String.Format("{0}<br/>{1}", Str, e.Row.DBCampo("Cuadro"))
+                        e.Row.FCLiteral("LtlSubProyecto").Text = Str
                     End If
                 End If