projekt kivitendo

  my $dbh = $form->dbconnect($myconfig);

  my $query = qq{

    SELECT c.accno, c.description, c.charttype, c.category,

      c.pos_bwa, datevautomatik,

      tk.taxkey_id, tk.pos_ustva, tk.tax_id,

      tk.tax_id || '--' || tk.taxkey_id AS tax, tk.startdate

    WHERE c.id = ?

    };

  $main::lxdebug->message(LXDebug::QUERY, "\$query=\n $query");

  my $sth = $dbh->prepare($query);

  $sth->execute($form->{id}) || $form->dberror($query . " ($form->{id})");

  # get taxkeys and description

  $query = qq{

      (SELECT accno FROM chart WHERE id=tax.chart_id) AS chart_accno,

      taxkey,

      rate

    FROM tax ORDER BY taxkey

  };

  if ($form->{id}) {

    # get new accounts

    $query = qq|SELECT id, accno,description

                ORDER BY accno|;

    $main::lxdebug->message(LXDebug::QUERY, "\$query=\n $query");

    $sth = $dbh->prepare($query);

    $sth->finish;

    # get the taxkeys of account

    $query = qq{

      SELECT

        tk.id,

        tk.tax_id,

        t.taxdescription,

        t.rate,

        tk.startdate

      FROM taxkeys tk

      LEFT JOIN   tax t ON (t.id = tk.tax_id)

      LEFT JOIN chart c ON (c.id = t.chart_id)

      WHERE tk.chart_id = ?

    };

    $main::lxdebug->message(LXDebug::QUERY, "\$query=\n $query");

    $sth = $dbh->prepare($query);

      push @{ $form->{ACCOUNT_TAXKEYS} }, $ref;

    }

  }

  # check if we have any transactions

  if ($form->{id}) {

    $query = qq|UPDATE chart SET

                  charttype = ?,

                  link = ?,

                  pos_bilanz = ?,

                  valid_from = ?,

                  datevautomatik = ?

                WHERE id = ?|;

                  $form->{charttype},

                  $form->{link},

                  conv_i($form->{pos_bwa}),

                  conv_i($form->{pos_eur}),

                  conv_i($form->{new_chart_id}),

                  conv_date($form->{valid_from}),

                $form->{id},

    );

  elsif ($form->{id} && !$form->{new_chart_valid}) {

    $query = qq|

                  valid_from = ?

                  WHERE id = ?

             |;

                  conv_date($form->{valid_from}),

                  $form->{id}

              );

  else {

    $query = qq|

                  INSERT INTO chart (

                      charttype,

                      link,

                      pos_eur,

                      valid_from,

                      datevautomatik )

                  VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)

             |;

    @values = (

                      $form->{charttype},

                      $form->{category}, $form->{link},

                      conv_i($form->{pos_bwa}),

              );

  }

  do_query($form, $dbh, $query, @values);

  #Save Taxkeys

  my @taxkeys = ();

  my $MAX_TRIES = 10; # Maximum count of taxkeys in form

  my $tk_count;

  READTAXKEYS:

  for $tk_count (0 .. $MAX_TRIES) {

    # Loop control

    # Check if the account already exists, else cancel

    last READTAXKEYS if ( $form->{'id'} == 0);

    }

    # Add valid taxkeys into the array

      {

        id        => ($form->{"taxkey_id_$tk_count"} eq 'NEW') ? conv_i('') : conv_i($form->{"taxkey_id_$tk_count"}),

        tax_id    => conv_i($form->{"taxkey_tax_$tk_count"}),

        pos_ustva => conv_i($form->{"taxkey_pos_ustva_$tk_count"}),

        delete    => ( $form->{"taxkey_del_$tk_count"} eq 'delete' ) ? '1' : '',

      };

    $tk_count++;

  }

  for my $j (0 .. $#taxkeys){

    if ( defined $taxkeys[$j]{'id'} ){

      # delete Taxkey?

      if ($taxkeys[$j]{'delete'}){

        $query = qq{

          DELETE FROM taxkeys WHERE id = ?

        @values = ($taxkeys[$j]{'id'});

        do_query($form, $dbh, $query, @values);

        next TAXKEY;

      }

      # UPDATE Taxkey

      $query = qq{

        UPDATE taxkeys

        SET taxkey_id = (SELECT taxkey FROM tax WHERE tax.id = ?),

            pos_ustva = ?,

            startdate = ?

        WHERE id = ?

      @values = (

        $taxkeys[$j]{'tax_id'},

        $taxkeys[$j]{'chart_id'},

        $taxkeys[$j]{'pos_ustva'},

      );

      do_query($form, $dbh, $query, @values);

    }

    else {

      # INSERT Taxkey

      $query = qq{

        INSERT INTO taxkeys (

          taxkey_id,

          startdate

        )

        VALUES ((SELECT taxkey FROM tax WHERE tax.id = ?), ?, ?, ?, ?)

      @values = (

        $taxkeys[$j]{'pos_ustva'},

      );

      do_query($form, $dbh, $query, @values);

    }

  }

  # commit

  # connect to database

  my $dbh = $form->dbconnect($myconfig);

                   t.id,

                   t.taxkey,

                   t.taxdescription,

                   c.accno AS taxnumber,

                   c.description AS account_description

                 FROM tax t

  my $dbh = $form->dbconnect($myconfig);

  # get Accounts from chart

                 id,

                 accno || ' - ' || description AS _taxaccount

               FROM chart

               WHERE link LIKE '%_tax%'

             };

  $sth = $dbh->prepare($query);

  # connect to database

  my $dbh = $form->dbconnect($myconfig);

                   taxkey,

                   taxdescription,

                   chart_id

                 FROM tax

                 WHERE id = ? |;

  my $sth = $dbh->prepare($query);

  $sth->execute($form->{id}) || $form->dberror($query . " ($form->{id})");

  # see if it is used by a taxkey

  $query = qq|SELECT count(*) FROM taxkeys

              WHERE tax_id = ?|;

  ($form->{orphaned}) = selectrow_query($form, $dbh, $query, $form->{id});

  $form->{orphaned} = !$form->{orphaned};

  $sth->finish;

  if (!$form->{orphaned} ) {

    $query = qq|SELECT DISTINCT c.id, c.accno

                FROM taxkeys tk

                LEFT JOIN   tax t ON (t.id = tk.tax_id)

                LEFT JOIN chart c ON (c.id = tk.chart_id)

                WHERE tk.tax_id = ?|;

    $sth = $dbh->prepare($query);

    $sth->execute($form->{id}) || $form->dberror($query . " ($form->{id})");

    $sth->finish;

  }

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

  my ($self, $myconfig, $form) = @_;

  # connect to database

  $form->{rate} = $form->{rate} / 100;

                  taxnumber      = (SELECT accno FROM chart WHERE id= ? )

                WHERE id = ?|;

    push(@values, $form->{id});

    #ok

    $query = qq|INSERT INTO tax (

                  taxkey,

  }

  do_query($form, $dbh, $query, @values);

  $main::lxdebug->leave_sub();

}

  my ($self, $myconfig, $form) = @_;

  # connect to database

  $query = qq|DELETE FROM tax

              WHERE id = ?|;

  do_query($form, $dbh, $query, $form->{id});

  $main::lxdebug->leave_sub();

}

  AM->get_tax(\%myconfig, \%$form);

  _get_taxaccount_selection();

  $form->header();

  my $parameters_ref = {

  AM->taxes(\%myconfig, \%$form);

  $form->{title} = $locale->text('Tax-O-Matic');

  $form->isblank("rate", $locale->text('Taxrate missing!'));

  $form->isblank("taxdescription", $locale->text('Taxdescription  missing!'));

  $form->isblank("taxkey", $locale->text('Taxkey  missing!'));

  if ( $form->{rate} <= 0 || $form->{rate} >= 100 ) {

    $form->error($locale->text('Tax Percent is a number between 0 and 100'));

  }