Compras prodcutos servicios agrupador

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -296,6 +296,12 @@ Partial Class Compras_RepProductosServiciosDetalle
         DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10"))
         DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11"))
         DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12"))
+
+        'Agrega el grupo si es una empresa Agricola
+        If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
+            DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15"))
+        End If
+
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
     End Sub