projekt kivitendo

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

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

  |;

  my $stornos_ohne_partner =  selectall_hashref_query($::form, $self->dbh, $query);

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

  my $sortorder;

  if ( $join_records ) {

    # in UNION case order by hash key, e.g. salesman

    $sortorder = $allowed_sort_columns{$form->{sort}} ? $form->{sort} : "name";

  } else {

    # in not UNION case order by hash value, e.g. e.name

  }

  $query .= qq| ORDER BY $sortorder|;

  $form->{CT} = selectall_hashref_query($form, $dbh, $query, @values);

  $main::lxdebug->leave_sub();

      next;

    }

    # and which amount it has

    for my $j (0 .. (scalar(@{$trans}) - 1)) {

      # Three cases:

      # 1: gl transaction (Dialogbuchung), invoice is false, no double split booking allowed

    push(@arvalues, '%' . $form->{description} . '%');

    push(@apvalues, '%' . $form->{description} . '%');

  }

  if ($form->{employee} =~ /--/) {

    ($form->{employee_id},$form->{employee_name}) = split(/--/,$form->{employee});

  #if ($form->{employee_id}) {

    'source'          => { 'gl' => 'ac.source',     'arap' => 'ac.source',   },

    'description'     => { 'gl' => 'g.description', 'arap' => 'ct.name',     },

    );

  # sortdir = sort direction (ascending or descending)

  my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';

  my $sortkey   = $sort_columns{$form->{sort}} ? $form->{sort} : $form->{datesort};  # default used to be transdate

  my $query =

    qq|SELECT ct.id as customerid, ct.name as customername,ct.customernumber,ct.country,ar.invnumber,ar.id,ar.transdate,p.partnumber,pg.partsgroup,i.parts_id,i.qty,i.price_factor,i.discount,i.description as description,i.lastcost,i.sellprice,i.fxsellprice,i.marge_total,i.marge_percent,i.unit,b.description as business,e.name as employee,e2.name as salesman, to_char(ar.transdate,'Month') as month, to_char(ar.transdate, 'YYYYMM') as nummonth, p.unit as parts_unit, p.weight | .

    qq|JOIN ar on (i.trans_id = ar.id) | .

    qq|JOIN parts p on (i.parts_id = p.id) | .

    qq|LEFT JOIN partsgroup pg on (p.partsgroup_id = pg.id) | .

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

  }

  if ($form->{business_id}) {

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

  }

    $where .= qq| AND ($cvar_where_ic)|;

    push @values, @cvar_values_ic;

  }

  $query .= " WHERE $where ORDER BY $sortorder "; # LIMIT 5000";

  my @result = selectall_hashref_query($form, $dbh, $query, @values);