sql/Pg-upgrade2/defaults_datev_check.pl

   1 # @tag: defaults_datev_check
   2 # @description: Einstellung für DATEV-Überprüfungen (datev_check) vom Config-File in die DB verlagern.
   3 # @depends: release_2_7_0
   4 package SL::DBUpgrade2::defaults_datev_check;
   5
   6 use utf8;
   7
   8 use parent qw(SL::DBUpgrade2::Base);
   9 use strict;
  10
  11 sub run {
  12   my ($self) = @_;
  13
  14   # this query will fail if column already exist (new database)
  15   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN datev_check_on_sales_invoice boolean    DEFAULT true|, may_fail => 1);
  16   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN datev_check_on_purchase_invoice boolean DEFAULT true|, may_fail => 1);
  17   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN datev_check_on_ar_transaction boolean   DEFAULT true|, may_fail => 1);
  18   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN datev_check_on_ap_transaction boolean   DEFAULT true|, may_fail => 1);
  19   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN datev_check_on_gl_transaction boolean   DEFAULT true|, may_fail => 1);
  20
  21   # check current configuration and set default variables accordingly, so that
  22   # kivitendo's behaviour isn't changed by this update
  23   # if checks are not set in config set it to true
  24   foreach my $check (qw(check_on_sales_invoice check_on_purchase_invoice check_on_ar_transaction check_on_ap_transaction check_on_gl_transaction)) {
  25     my $check_set = 1;
  26     if ($::lx_office_conf{datev_check}->{$check} == 0 && defined ($::lx_office_conf{datev_check}->{$check})) {
  27       $check_set = 0;
  28     }
  29
  30     my $update_column = "UPDATE defaults SET datev_$check = '$check_set';";
  31     $self->db_query($update_column);
  32   }
  33
  34   return 1;
  35 }
  36
  37 1;