projekt kivitendo

use utf8;

use strict;

  my ($self) = @_;

  # TODO FIXME calc dates better, unless this is wanted

  $self->todate($self->fromdate->clone->add(years => 1)->add(days => -1));

  $self->dbh($::form->get_standard_dbh);

}

  $query = qq| select sum(netamount) from ar where transdate >= ? and transdate <= ? AND invoice; |;

  my ($netamount_laut_ar) =  selectfirst_array_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);

  $self->tester->ok($correct, "Summe laut Verkaufsbericht sollte gleich Summe aus Verkauf -> Berichte -> Rechnungen sein");

  if (!$correct) {

  my $query = qq|

       select invnumber,paid,amount,transdate,c.customernumber,c.name from ar left join customer c on (ar.customer_id = c.id)

       AND transdate >= ? and transdate <= ?

  my $overpaids_ar =  selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);

  my $query = qq|

      select invnumber,paid,amount,transdate,vc.vendornumber,vc.name from ap left join vendor vc on (ap.vendor_id = vc.id)

      AND transdate >= ? and transdate <= ?

  my $overpaids_ap =  selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);

  my ($self) = @_;

  my $query = qq|

    FROM ar, customer

    WHERE paid != amount

      AND ar.storno

      AND (ar.customer_id = customer.id)

      AND ar.transdate >= ? and ar.transdate <= ?

  my $paid_stornos = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);

  $self->tester->ok(0 == @$paid_stornos, "Keine bezahlten Stornos");

    FROM ar

    LEFT JOIN customer c on (c.id = ar.customer_id)

    WHERE storno_id is null AND storno is true AND ar.id not in (SELECT storno_id FROM ar WHERE storno_id is not null AND storno is true)

    UNION

    SELECT (SELECT cast ('ap' as text)) as invoice,ap.id,invnumber,storno,amount,transdate,type,vendornumber as cv_number

    FROM ap

    LEFT JOIN vendor v on (v.id = ap.vendor_id)

  $self->tester->ok(@$stornos_ohne_partner == 0, 'Es sollte keine Stornos ohne Partner geben');

  if (@$stornos_ohne_partner) {

  }

  my $stornoheader = 0;

  for my $storno (@{ $stornos_ohne_partner }) {

  # geht nur auf wenn acc_trans Zahlungseingänge auch im Untersuchungszeitraum lagen

  # Stornos werden rausgefiltert

  my $query = qq|

  my $count_overpayments = scalar grep {

       $_->{"paid via ar"} != $_->{"paid via acc_trans"}

  my $query = qq|

          select sum(ac.amount) as amount, ar.invnumber,ar.netamount

          from acc_trans ac left join ar on (ac.trans_id = ar.id)

  if ( scalar @{ $ar_amount_not_ac_amount } > 0 ) {

    $self->tester->ok(0, "Folgende Ausgangsrechnungen haben einen falschen Netto-Wert im Nebenbuch:");

  my $query = qq|

          select sum(ac.amount) as amount, ap.invnumber,ap.netamount

          from acc_trans ac left join ap on (ac.trans_id = ap.id)

  if ( scalar @{ $ap_amount_not_ac_amount } > 0 ) {

    $self->tester->ok(0, "Folgende Eingangsrechnungen haben einen falschen Netto-Wert im Nebenbuch:");

  my $query = qq| select trans_id, chart.accno,transdate from acc_trans left join chart on (chart.id = acc_trans.chart_id)

                    WHERE taxkey <> 0 AND trans_id NOT IN

                    (select trans_id from acc_trans where chart_link ilike '%tax%' and trans_id IN

  if ( scalar @{ $missing_tax_bookings } > 0 ) {

    $self->tester->ok(0, "Folgende Konten weisen Buchungen ohne Steuer auf:");