projekt kivitendo

  my %all_taxchart_ids = selectall_as_map($form, $self->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, ar.deliverydate, ar.itime::date,

         ct.name, ct.ustid, ct.customernumber AS vcnumber, ct.id AS customer_id, NULL AS vendor_id,

         c.accno, c.description AS accname, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

       UNION ALL

         ap.invnumber, ap.duedate, ap.amount as umsatz, ap.deliverydate, ap.itime::date,

         ct.name, ct.ustid, ct.vendornumber AS vcnumber, NULL AS customer_id, ct.id AS vendor_id,

         c.accno, c.description AS accname, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

       UNION ALL

         gl.reference AS invnumber, gl.transdate AS duedate, ac.amount as umsatz, NULL as deliverydate, gl.itime::date,

         gl.description AS name, NULL as ustid, '' AS vcname, NULL AS customer_id, NULL AS vendor_id,

         c.accno, c.description AS accname, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

  customer_id       => { type => 'Rose::DB::Object::Metadata::Column::Integer', text => t8('Customer (database ID)'), },

  vendor_id         => { type => 'Rose::DB::Object::Metadata::Column::Integer', text => t8('Vendor (database ID)'), },

  itime             => { type => 'Rose::DB::Object::Metadata::Column::Date',    text => t8('Create Date'), },

);

my @datev_columns = qw(

  credit_accno credit_accname credit_amount credit_tax

  taxdescription tax

  tax_accno    tax_accname    taxkey

);

# rows in this listing are tiers.

      tax              => $tax_amount,

      notes            => $haben->{notes},

      (map { ($_ => $tax->{$_})                    } qw(taxkey tax_accname tax_accno taxdescription)),

    );

#     if ($row{debit_amount} + $row{debit_tax} - ($row{credit_amount} + $row{credit_tax}) > 0.005) {