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

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