PriceRule: Erste Version

[mfinanz.git] / SL / DB / Manager / PriceRule.pm

diff --git a/SL/DB/Manager/PriceRule.pm b/SL/DB/Manager/PriceRule.pm
new file mode 100644 (file)
index 0000000..09e588b
--- /dev/null
+++ b/SL/DB/Manager/PriceRule.pm
@@ -0,0 +1,63 @@
+# This file as been auto-generated only because it didn't exist.
+# Feel free to modify it at will; it will not be overwritten automatically.
+
+package SL::DB::Manager::PriceRule;
+
+use strict;
+
+use parent qw(SL::DB::Helper::Manager);
+
+use SL::DB::Helper::Filtered;
+use SL::DB::Helper::Paginated;
+use SL::DB::Helper::Sorted;
+use SL::DBUtils;
+
+use SL::Locale::String qw(t8);
+
+sub object_class { 'SL::DB::PriceRule' }
+
+__PACKAGE__->make_manager_methods;
+
+sub get_matching_filter {
+  my ($class, %params) = @_;
+
+  die 'need record'      unless $params{record};
+  die 'need record_item' unless $params{record_item};
+
+  my $type = $params{record}->is_sales ? 'customer' : 'vendor';
+
+  # plan: 1. search all rule_items that do NOT match this record/record item combo
+  my ($sub_where, @value_subs) = SL::DB::Manager::PriceRuleItem->not_matching_sql_and_values(type => $type);
+  my @values = map { $_->($params{record}, $params{record_item}) } @value_subs;
+
+  # now union all NOT matching, invert ids, load these
+  my $matching_rule_ids = <<SQL;
+    SELECT id FROM price_rules
+    WHERE id NOT IN (
+      SELECT price_rules_id FROM price_rule_items WHERE $sub_where
+    )
+    AND type = ? AND NOT obsolete
+SQL
+
+  push @values, $type;
+
+  return $matching_rule_ids, @values;
+}
+
+sub get_all_matching {
+  my ($self, %params) = @_;
+
+  my ($query, @values) = $self->get_matching_filter(%params);
+  my @ids = selectall_ids($::form, $::form->get_standard_dbh, $query, 0, @values);
+
+  $self->get_all(query => [ id => \@ids ]);
+}
+
+sub _sort_spec {
+  return ( columns => { SIMPLE => 'ALL', },
+           default => [ 'name', 1 ],
+           nulls   => { price => 'LAST', discount => 'LAST'  }
+         );
+}
+
+1;