$form->{sort} = $sortorder;
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
-if ($sortorder ne 'id') {
+ if ($sortorder ne 'id' && 1 >= scalar grep { $form->{$_} } qw(l_ordnumber l_quonumber l_invnumber)) {
$sortorder = "lower($sortorder) ${sortdir}";
} else {
$sortorder .= " ${sortdir}";
my $arap = $form->{db} eq "vendor" ? "ap" : "ar";
my $db = $form->{db} eq "customer" ? "customer" : "vendor";
+ my $qty_sign = $form->{db} eq 'vendor' ? ' * -1 AS qty' : '';
my $where = " WHERE 1=1 ";
my @values;
push(@values, conv_date($form->{to}));
}
my $query =
- qq|SELECT s.shiptoname, i.qty, | .
+ qq|SELECT s.shiptoname, i.qty $qty_sign, | .
qq| ${arap}.id, ${arap}.transdate, ${arap}.invnumber, ${arap}.ordnumber, | .
qq| i.description, i.unit, i.sellprice, | .
qq| oe.id AS oe_id | .