projekt kivitendo

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

  # Delete old payment entries from acc_trans.

  my $query =

       FROM acc_trans

       WHERE (trans_id = ?) AND fx_transaction

       UNION

       FROM acc_trans at

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

       WHERE (trans_id = ?) AND (c.link LIKE '%AP_paid%')|;

  $query =

       FROM acc_trans at

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

       WHERE (trans_id = ?)

         AND ((c.link = 'AP') OR (c.link LIKE '%:AP') OR (c.link LIKE 'AP:%'))

       OFFSET 1|;

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

  }

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

       WHERE (trans_id = ?)

         AND ((c.link = 'AP') OR (c.link LIKE '%:AP') OR (c.link LIKE 'AP:%'))

       LIMIT 1|;

  ($form->{APselected}) = selectfirst_array_query($form, $dbh, $query, conv_i($form->{id}));

  do_query($form, $dbh, $query, $id);

  # now copy acc_trans entries

  my $rowref = selectall_hashref_query($form, $dbh, $query, $id); 

  # kill all entries containing payments, which are the last 2n rows, of which the last has link =~ /paid/

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

  # Delete old payment entries from acc_trans.

  my $query =

       FROM acc_trans

       WHERE (trans_id = ?) AND fx_transaction

       UNION

       FROM acc_trans at

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

       WHERE (trans_id = ?) AND (c.link LIKE '%AR_paid%')|;

  $query =

       FROM acc_trans at

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

       WHERE (trans_id = ?)

         AND ((c.link = 'AR') OR (c.link LIKE '%:AR') OR (c.link LIKE 'AR:%'))

       OFFSET 1|;

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

  }

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

       WHERE (trans_id = ?)

         AND ((c.link = 'AR') OR (c.link LIKE '%:AR') OR (c.link LIKE 'AR:%'))

       LIMIT 1|;

  ($form->{ARselected}) = selectfirst_array_query($form, $dbh, $query, conv_i($form->{id}));

  do_query($form, $dbh, $query, $id);

  # now copy acc_trans entries

  my $rowref = selectall_hashref_query($form, $dbh, $query, $id); 

  # kill all entries containing payments, which are the last 2n rows, of which the last has link =~ /paid/

  }

  my $query = qq!

      c.accno, c.description AS chartdescription, c.charttype, c.category AS chartcategory, c.link AS chartlink,

      COALESCE(gl.reference, COALESCE(ap.invnumber, ar.invnumber)) AS reference,

      COALESCE(ap.invoice, COALESCE(ar.invoice, FALSE)) AS invoice,

    LEFT JOIN ap      ON (at.trans_id = ap.id)

    LEFT JOIN ar      ON (at.trans_id = ar.id)

    $where

!;

  my @transactions = ();

      }

      foreach my $entry (@{ $data{$side}->{entries} }) {

        delete $entry->{tax_entry};

        $entry->{display_amount}       = $form->round_amount(abs($entry->{amount}) * $storno_mult, 2);

            my $tax_info = $all_taxes{taxkeys}->{$taxkey};

            push @{ $entry->{correct_taxkeys} }, {

              'taxkey'      => $taxkey,

#             $solution->{rows}->[$i]->{taxdescription} .= ' ' . $form->format_amount(\%myconfig, $tax_entry->{taxrate} * 100) . ' %';

#             push @{ $solution->{changes} }, {

#               'taxkey' => $solution->{taxkeys}->[$i],

#             };

#           }

  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);

  my $query    = qq|SELECT 'ap' AS module,

                      c.link

                    FROM acc_trans at

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

                    UNION

                    SELECT 'ar' AS module,

                      c.link

                    FROM acc_trans at

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

                    WHERE (trans_id IN (SELECT id FROM ar WHERE NOT invoice))

                      AND (taxkey IN (8, 9, 18, 19))

  my $sth      = prepare_execute_query($form, $dbh, $query);

  my @transactions;

      my %all_taxes = $self->{taxkeys}->get_full_tax_info('transdate' => $non_tax->{transdate});

                          },

                          {

                          });

    }

  }

  if (scalar @corrections) {

    my $h_taxkey_only     = prepare_query($form, $dbh, $q_taxkey_only);

    my $h_taxkey_chart_id = prepare_query($form, $dbh, $q_taxkey_chart_id);

    foreach my $entry (@corrections) {

      if ($entry->{chart_id}) {

      } else {

      }

    }

  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);

                    FROM acc_trans at

                    LEFT JOIN ar      ON (at.trans_id = ar.id)

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

                    UNION

                    FROM acc_trans at

                    LEFT JOIN ap      ON (at.trans_id = ap.id)

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

                    WHERE (ap.invoice)

  my $sth      = prepare_execute_query($form, $dbh, $query);

  my @transactions;

      foreach my $entry (@{ $sub_transaction }) {

        next if ($entry->{taxkey} == 0);

      }

    }

  }

  if (@corrections) {

    $sth   = prepare_query($form, $dbh, $query);

    }

    $sth->finish();

  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);

  my $h_taxkey_only  = prepare_query($form, $dbh, $q_taxkey_only);

  my $h_taxkey_chart = prepare_query($form, $dbh, $q_taxkey_chart);

  my $h_transdate    = prepare_query($form, $dbh, $q_transdate);

  foreach my $fix (@{ $params{fixes} }) {

    my ($transdate) = $h_transdate->fetchrow_array();

    my %all_taxes = $self->{taxkeys}->get_full_tax_info('transdate' => $transdate);

    next unless ($tax_info);

  }

  $h_taxkey_only->finish();

  my %all_taxchart_ids = selectall_as_map($form, $dbh, qq|SELECT DISTINCT chart_id, TRUE AS is_set FROM tax|, 'chart_id', 'is_set');

  my $query    =

         ar.invnumber, ar.duedate, ar.amount as umsatz,

         ct.name,

         c.accno, c.taxkey_id as charttax, c.datevautomatik, c.id, c.link,

       UNION ALL

         ap.invnumber, ap.duedate, ap.amount as umsatz,

         ct.name,

         c.accno, c.taxkey_id as charttax, c.datevautomatik, c.id, c.link,

       UNION ALL

         gl.reference AS invnumber, gl.transdate AS duedate, ac.amount as umsatz,

         gl.description AS name,

         c.accno, c.taxkey_id as charttax, c.datevautomatik, c.id, c.link,

         AND $fromto

         $filter

  my $sth = prepare_execute_query($form, $dbh, $query);

  $ref = selectfirst_hashref_query($form, $dbh, $query, $form->{login});

  map { $form->{"employee_${_}"} = $ref->{$_} } keys %{ $ref };

  $sth   = prepare_execute_query($form, $dbh, $query, $ar_id);

  my ($row, $fee, $interest) = (0, 0, 0);

                                      (startdate <= a.transdate) ORDER BY startdate DESC LIMIT 1))

         WHERE a.trans_id = ?

         AND a.fx_transaction = '0'

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

    do_statement($self, $sth, $query, $self->{id});

  my $query =

    qq|SELECT

        g.description, ac.transdate, ac.source, ac.trans_id,

        $project_columns

        $columns_for_sorting{gl}

      FROM gl g, acc_trans ac $project_join, chart c

      UNION

        ct.name, ac.transdate, ac.source, ac.trans_id,

        $project_columns

        $columns_for_sorting{arap}

      FROM ar a, acc_trans ac $project_join, customer ct, chart c

      UNION

        ct.name, ac.transdate, ac.source, ac.trans_id,

        $project_columns

        $columns_for_sorting{arap}

      FROM ap a, acc_trans ac $project_join, vendor ct, chart c

        AND (a.vendor_id = ct.id)

        AND (a.id = ac.trans_id)

  my @values = (@glvalues, @arvalues, @apvalues);

              ORDER BY startdate DESC LIMIT 1))

         WHERE (a.trans_id = ?)

           AND (a.fx_transaction = '0')

    $form->{GL} = selectall_hashref_query($form, $dbh, $query, conv_i($form->{id}));

  } else {

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

  # Delete old payment entries from acc_trans.

  my $query =

       FROM acc_trans

       WHERE (trans_id = ?) AND fx_transaction

       UNION

       FROM acc_trans at

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

       WHERE (trans_id = ?) AND (c.link LIKE '%AP_paid%')|;

  $query =

       FROM acc_trans at

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

       WHERE (trans_id = ?)

         AND ((c.link = 'AP') OR (c.link LIKE '%:AP') OR (c.link LIKE 'AP:%'))

       OFFSET 1|;

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

  }

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

       WHERE (trans_id = ?)

         AND ((c.link = 'AP') OR (c.link LIKE '%:AP') OR (c.link LIKE 'AP:%'))

       LIMIT 1|;

  ($form->{AP}) = selectfirst_array_query($form, $dbh, $query, conv_i($form->{id}));

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

  # Delete old payment entries from acc_trans.

  my $query =

       FROM acc_trans

       WHERE (trans_id = ?) AND fx_transaction

       UNION

       FROM acc_trans at

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

       WHERE (trans_id = ?) AND (c.link LIKE '%AR_paid%')|;

  $query =

       FROM acc_trans at

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

       WHERE (trans_id = ?)

         AND ((c.link = 'AR') OR (c.link LIKE '%:AR') OR (c.link LIKE 'AR:%'))

       OFFSET 1|;

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

  }

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

       WHERE (trans_id = ?)

         AND ((c.link = 'AR') OR (c.link LIKE '%:AR') OR (c.link LIKE 'AR:%'))

       LIMIT 1|;

  ($form->{AR}) = selectfirst_array_query($form, $dbh, $query, conv_i($form->{id}));

  ($form->{beginningbalance}, $form->{category}) =

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

             'Oracle' => 'ac.rowid');

  @values = ();

  $query =

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

  my ($query, $i);

             'Oracle' => 'rowid');

  # clear flags

    </tr>

    [%- SET curr_row = 0 %]

     [%- SET order = [ 'credit', 'debit' ] %]

     [%- SET other_side = 'debit' %]

    [%- ELSE %]

       <td>

        [%- IF row.taxkey_error %]

         <select name="fixes[].taxkey" style="width: 250px" onchange="enable_fix_button_maybe()">

          <option value="">---bitte ausw?hlen---</option>

          [%- FOREACH taxkey = row.correct_taxkeys %]

    </tr>

    [%- SET curr_row = 0 %]

     [%- SET order = [ 'credit', 'debit' ] %]

     [%- SET other_side = 'debit' %]

    [%- ELSE %]

       <td>

        [%- IF row.taxkey_error %]

         <select name="fixes[].taxkey" style="width: 250px" onchange="enable_fix_button_maybe()">

          <option value=""><translate>---please select---</translate></option>

          [%- FOREACH taxkey = row.correct_taxkeys %]