Saldos iniciales, cambios en OC numero de remision, validacion cultivo 158,

Compras/Compras.aspx

@@ -4417,6 +4417,12 @@
                                                             <asp:DropDownList ID="DdlCultivosCuadro" CssClass=" form-control input-sm select2me" runat="server" DataTextField="TemporadaCuadro" Style="width: 100%; max-width: 600px;"
                                                                 DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpDetalleGuardar">
                                                             </asp:DropDownList>
+                                                            
+                                                            <asp:RequiredFieldValidator ID="RfvDdlCultivosCuadro" runat="server" ControlToValidate="DdlCultivosCuadro" CssClass="help-block errorimput" InitialValue="-1"
+                                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cultivo''</b>  es necesario, por favor ingréselo." 
+                                                                ValidationGroup="GprAgregaPS" Visible="false" Display="None">
+                                                            </asp:RequiredFieldValidator>
+
                                                             <label runat="server" id="Label9" for="<%= DdlCultivosCuadro.ClientID.ToString()%>">Cultivo:</label>
                                                         </div>
                                                     </div>

Compras/Compras.aspx.vb

@@ -16743,6 +16743,9 @@ Partial Class Compras_Compras
         DdlPSChange()
     End Sub
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
+
         If Modalidad <> "U" Or Not CveFactura > 0 Then
             DdlPSChange()
         End If
@@ -16759,6 +16762,13 @@ Partial Class Compras_Compras
             DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
         End If
+
+        If UsuarioActual.Empresa.CveEmpresa = 158 AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 AndAlso DdlSubProyecto.SelectedValue.ToEntero.Contiene(11881, 11882, 11886) Then
+            RfvDdlCultivosCuadro.Visible = True
+        Else
+            RfvDdlCultivosCuadro.Visible = False
+        End If
+
     End Sub
     Private Sub DdlPSChange()
         If CveProveedor > 0 Then