class ProcedurePresentation < ApplicationRecord EXTRA_SORT_COLUMNS = { 'notifications' => ['notifications'], 'self' => ['id', 'state'] } TABLE = 'table' COLUMN = 'column' ORDER = 'order' SLASH = '/' TYPE_DE_CHAMP = 'type_de_champ' TYPE_DE_CHAMP_PRIVATE = 'type_de_champ_private' FILTERS_VALUE_MAX_LENGTH = 100 belongs_to :assign_to, optional: false has_many :exports, dependent: :destroy delegate :procedure, :instructeur, to: :assign_to validate :check_allowed_displayed_fields validate :check_allowed_sort_column validate :check_allowed_sort_order validate :check_allowed_filter_columns validate :check_filters_max_length def self_fields [ field_hash('self', 'created_at', type: :date), field_hash('self', 'updated_at', type: :date), field_hash('self', 'depose_at', type: :date), field_hash('self', 'en_construction_at', type: :date), field_hash('self', 'en_instruction_at', type: :date), field_hash('self', 'processed_at', type: :date), *sva_svr_fields(for_filters: true), field_hash('self', 'updated_since', type: :date, virtual: true), field_hash('self', 'depose_since', type: :date, virtual: true), field_hash('self', 'en_construction_since', type: :date, virtual: true), field_hash('self', 'en_instruction_since', type: :date, virtual: true), field_hash('self', 'processed_since', type: :date, virtual: true), field_hash('self', 'state', type: :enum, scope: 'instructeurs.dossiers.filterable_state', virtual: true) ].compact_blank end def fields fields = self_fields fields.push( field_hash('user', 'email', type: :text), field_hash('followers_instructeurs', 'email', type: :text), field_hash('groupe_instructeur', 'id', type: :enum), field_hash('avis', 'question_answer', filterable: false) ) if procedure.for_individual fields.push( field_hash("individual", "prenom", type: :text), field_hash("individual", "nom", type: :text), field_hash("individual", "gender", type: :text) ) end if !procedure.for_individual fields.push( field_hash('etablissement', 'entreprise_siren', type: :text), field_hash('etablissement', 'entreprise_forme_juridique', type: :text), field_hash('etablissement', 'entreprise_nom_commercial', type: :text), field_hash('etablissement', 'entreprise_raison_sociale', type: :text), field_hash('etablissement', 'entreprise_siret_siege_social', type: :text), field_hash('etablissement', 'entreprise_date_creation', type: :date) ) fields.push( field_hash('etablissement', 'siret', type: :text), field_hash('etablissement', 'libelle_naf', type: :text), field_hash('etablissement', 'code_postal', type: :text) ) end fields.concat(procedure.types_de_champ_for_procedure_presentation .pluck(:type_champ, :libelle, :private, :stable_id) .reject { |(type_champ)| type_champ == TypeDeChamp.type_champs.fetch(:repetition) } .map do |(type_champ, libelle, is_private, stable_id)| if is_private field_hash_for_type_de_champ_private(type_champ, libelle, stable_id) else field_hash_for_type_de_champ_public(type_champ, libelle, stable_id) end end) fields end def displayable_fields_for_select [ fields.reject { |field| field['virtual'] } .map { |field| [field['label'], field_id(field)] }, displayed_fields.map { |field| field_id(field) } ] end def filterable_fields_options fields.filter_map do |field| next if field['filterable'] == false [field['label'], field_id(field)] end end def displayed_fields_for_headers [ field_hash('self', 'id', classname: 'number-col'), *displayed_fields, field_hash('self', 'state', classname: 'state-col'), *sva_svr_fields ] end def sva_svr_fields(for_filters: false) return if !procedure.sva_svr_enabled? i18n_scope = [:activerecord, :attributes, :procedure_presentation, :fields, :self] fields = [] fields << field_hash('self', 'sva_svr_decision_on', type: :date, label: I18n.t("#{procedure.sva_svr_decision}_decision_on", scope: i18n_scope), classname: for_filters ? '' : 'sva-col') if for_filters fields << field_hash('self', 'sva_svr_decision_before', label: I18n.t("#{procedure.sva_svr_decision}_decision_before", scope: i18n_scope), type: :date, virtual: true) end fields end def sorted_ids(dossiers, count) table, column, order = sort.values_at(TABLE, COLUMN, 'order') case table when 'notifications' dossiers_id_with_notification = dossiers.merge(instructeur.followed_dossiers).with_notifications.ids if order == 'desc' dossiers_id_with_notification + (dossiers.order('dossiers.updated_at desc').ids - dossiers_id_with_notification) else (dossiers.order('dossiers.updated_at asc').ids - dossiers_id_with_notification) + dossiers_id_with_notification end when TYPE_DE_CHAMP ids = dossiers .with_type_de_champ(column) .order("champs.value #{order}") .pluck(:id) if ids.size != count rest = dossiers.where.not(id: ids).order(id: order).pluck(:id) order == 'asc' ? ids + rest : rest + ids else ids end when TYPE_DE_CHAMP_PRIVATE ids = dossiers .with_type_de_champ(column) .order("champs.value #{order}") .pluck(:id) if ids.size != count rest = dossiers.where.not(id: ids).order(id: order).pluck(:id) order == 'asc' ? ids + rest : rest + ids else ids end when 'followers_instructeurs' assert_supported_column(table, column) # LEFT OUTER JOIN allows to keep dossiers without assigned instructeurs yet dossiers .includes(:followers_instructeurs) .joins('LEFT OUTER JOIN users instructeurs_users ON instructeurs_users.id = instructeurs.user_id') .order("instructeurs_users.email #{order}") .pluck(:id) .uniq when 'avis' dossiers.includes(table) .order("#{self.class.sanitized_column(table, column)} #{order}") .pluck(:id) .uniq when 'self', 'user', 'individual', 'etablissement', 'groupe_instructeur' (table == 'self' ? dossiers : dossiers.includes(table)) .order("#{self.class.sanitized_column(table, column)} #{order}") .pluck(:id) end end def filtered_ids(dossiers, statut) filters.fetch(statut) .group_by { |filter| filter.values_at(TABLE, COLUMN) } .map do |(table, column), filters| values = filters.pluck('value') value_column = filters.pluck('value_column').compact.first || :value case table when 'self' field = self_fields.find { |h| h['column'] == column } if field['type'] == :date dates = values .filter_map { |v| Time.zone.parse(v).beginning_of_day rescue nil } dossiers.filter_by_datetimes(column, dates) elsif field['column'] == "state" && values.include?("pending_correction") dossiers.joins(:corrections).where(corrections: DossierCorrection.pending) elsif field['column'] == "state" && values.include?("en_construction") dossiers.where("dossiers.#{column} IN (?)", values).includes(:corrections).where.not(corrections: DossierCorrection.pending) else dossiers.where("dossiers.#{column} IN (?)", values) end when TYPE_DE_CHAMP dossiers.with_type_de_champ(column) .filter_ilike(:champs, value_column, values) when TYPE_DE_CHAMP_PRIVATE dossiers.with_type_de_champ(column) .filter_ilike(:champs, value_column, values) when 'etablissement' if column == 'entreprise_date_creation' dates = values .filter_map { |v| v.to_date rescue nil } dossiers .includes(table) .where(table.pluralize => { column => dates }) else dossiers .includes(table) .filter_ilike(table, column, values) end when 'followers_instructeurs' assert_supported_column(table, column) dossiers .includes(:followers_instructeurs) .joins('INNER JOIN users instructeurs_users ON instructeurs_users.id = instructeurs.user_id') .filter_ilike('instructeurs_users', :email, values) when 'user', 'individual', 'avis' dossiers .includes(table) .filter_ilike(table, column, values) when 'groupe_instructeur' assert_supported_column(table, column) if column == 'label' dossiers .joins(:groupe_instructeur) .filter_ilike(table, column, values) else dossiers .joins(:groupe_instructeur) .where(groupe_instructeur_id: values) end end.pluck(:id) end.reduce(:&) end def filtered_sorted_ids(dossiers, statut, count: nil) dossiers_by_statut = dossiers.by_statut(statut, instructeur) dossiers_sorted_ids = self.sorted_ids(dossiers_by_statut, count || dossiers_by_statut.size) if filters[statut].present? dossiers_sorted_ids.intersection(filtered_ids(dossiers_by_statut, statut)) else dossiers_sorted_ids end end def human_value_for_filter(filter) if [TYPE_DE_CHAMP, TYPE_DE_CHAMP_PRIVATE].include?(filter[TABLE]) find_type_de_champ(filter[COLUMN]).dynamic_type.filter_to_human(filter['value']) elsif filter['column'] == 'state' if filter['value'] == 'pending_correction' Dossier.human_attribute_name("pending_correction.for_instructeur") else Dossier.human_attribute_name("state.#{filter['value']}") end elsif filter['table'] == 'groupe_instructeur' && filter['column'] == 'id' instructeur.groupe_instructeurs .find { _1.id == filter['value'].to_i }&.label || filter['value'] else field = find_field(filter[TABLE], filter[COLUMN]) if field["type"] == :date parsed_date = safe_parse_date(filter['value']) return parsed_date.present? ? I18n.l(parsed_date) : nil end filter['value'] end end def safe_parse_date(string) Date.parse(string) rescue Date::Error nil end def add_filter(statut, field, value) if value.present? table, column = field.split(SLASH) label, value_column = find_field(table, column).values_at('label', 'value_column') case table when TYPE_DE_CHAMP, TYPE_DE_CHAMP_PRIVATE value = find_type_de_champ(column).dynamic_type.human_to_filter(value) end updated_filters = filters.dup updated_filters[statut] << { 'label' => label, TABLE => table, COLUMN => column, 'value_column' => value_column, 'value' => value } update(filters: updated_filters) end end def remove_filter(statut, field, value) table, column = field.split(SLASH) updated_filters = filters.dup updated_filters[statut] = filters[statut].reject do |filter| filter.values_at(TABLE, COLUMN, 'value') == [table, column, value] end update!(filters: updated_filters) end def update_displayed_fields(values) if values.nil? values = [] end fields = values.map { |value| find_field(*value.split(SLASH)) } update!(displayed_fields: fields) if !values.include?(field_id(sort)) update!(sort: Procedure.default_sort) end end def update_sort(table, column, order) update!(sort: { TABLE => table, COLUMN => column, ORDER => order.presence || opposite_order_for(table, column) }) end def opposite_order_for(table, column) if sort.values_at(TABLE, COLUMN) == [table, column] sort['order'] == 'asc' ? 'desc' : 'asc' elsif [table, column] == ["notifications", "notifications"] 'desc' # default order for notifications else 'asc' end end def snapshot slice(:filters, :sort, :displayed_fields) end def field_type(field_id) find_field(*field_id.split(SLASH))['type'] end def field_enum(field_id) field = find_field(*field_id.split(SLASH)) if field['scope'].present? I18n.t(field['scope']).map(&:to_a).map(&:reverse) elsif field['table'] == 'groupe_instructeur' instructeur.groupe_instructeurs.filter_map do if _1.procedure_id == procedure.id [_1.label, _1.id] end end else find_type_de_champ(field['column']).options_for_select end end def sortable?(field) sort['table'] == field['table'] && sort['column'] == field['column'] end def aria_sort(order, field) if sortable?(field) if order == 'asc' { "aria-sort": "ascending" } elsif order == 'desc' { "aria-sort": "descending" } end else {} end end private def field_id(field) field.values_at(TABLE, COLUMN).join(SLASH) end def find_field(table, column) fields.find { |field| field.values_at(TABLE, COLUMN) == [table, column] } end def find_type_de_champ(column) TypeDeChamp .joins(:revision_types_de_champ) .where(revision_types_de_champ: { revision_id: procedure.revisions }) .order(created_at: :desc) .find_by(stable_id: column) end def check_allowed_displayed_fields displayed_fields.each do |field| check_allowed_field(:displayed_fields, field) end end def check_allowed_sort_column check_allowed_field(:sort, sort, EXTRA_SORT_COLUMNS) end def check_allowed_sort_order order = sort['order'] if !["asc", "desc"].include?(order) errors.add(:sort, "#{order} n’est pas une ordre permis") end end def check_allowed_filter_columns filters.each do |key, columns| return true if key == 'migrated' columns.each do |column| check_allowed_field(:filters, column) end end end def check_allowed_field(kind, field, extra_columns = {}) table, column = field.values_at(TABLE, COLUMN) if !valid_column?(table, column, extra_columns) errors.add(kind, "#{table}.#{column} n’est pas une colonne permise") end end def check_filters_max_length filters.values.flatten.each do |filter| next if !filter.is_a?(Hash) next if filter['value']&.length.to_i <= FILTERS_VALUE_MAX_LENGTH errors.add(:base, "Le filtre #{filter['label']} est trop long (maximum: #{FILTERS_VALUE_MAX_LENGTH} caractères)") end end def field_hash(table, column, label: nil, classname: '', virtual: false, type: :text, scope: '', value_column: :value, filterable: true) { 'label' => label || I18n.t(column, scope: [:activerecord, :attributes, :procedure_presentation, :fields, table]), TABLE => table, COLUMN => column, 'classname' => classname, 'virtual' => virtual, 'type' => type, 'scope' => scope, 'value_column' => value_column, 'filterable' => filterable } end def field_hash_for_type_de_champ_public(type_champ, libelle, stable_id) field_hash(TYPE_DE_CHAMP, stable_id.to_s, label: libelle, type: TypeDeChamp.filter_hash_type(type_champ), value_column: TypeDeChamp.filter_hash_value_column(type_champ)) end def field_hash_for_type_de_champ_private(type_champ, libelle, stable_id) field_hash(TYPE_DE_CHAMP_PRIVATE, stable_id.to_s, label: libelle, type: TypeDeChamp.filter_hash_type(type_champ), value_column: TypeDeChamp.filter_hash_value_column(type_champ)) end def valid_column?(table, column, extra_columns = {}) valid_columns_for_table(table).include?(column) || extra_columns[table]&.include?(column) end def valid_columns_for_table(table) @column_whitelist ||= fields .group_by { |field| field[TABLE] } .transform_values { |fields| Set.new(fields.pluck(COLUMN)) } @column_whitelist[table] || [] end def self.sanitized_column(association, column) table = if association == 'self' Dossier.table_name elsif (association_reflection = Dossier.reflect_on_association(association)) association_reflection.klass.table_name else # Allow filtering on a joined table alias (which doesn’t exist # in the ActiveRecord domain). association end [table, column] .map { |name| ActiveRecord::Base.connection.quote_column_name(name) } .join('.') end def assert_supported_column(table, column) if table == 'followers_instructeurs' && column != 'email' raise ArgumentError, 'Table `followers_instructeurs` only supports the `email` column.' end if table == 'groupe_instructeur' && (column != 'label' && column != 'id') raise ArgumentError, 'Table `groupe_instructeur` only supports the `label` or `id` column.' end end end