Revision 4efe2175
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 918 | 918 |
|
| 919 | 919 |
my $arap = $form->{db} eq "vendor" ? "ap" : "ar";
|
| 920 | 920 |
my $db = $form->{db} eq "customer" ? "customer" : "vendor";
|
| 921 |
my $qty_sign = $form->{db} eq 'vendor' ? ' * -1 AS qty' : '';
|
|
| 921 | 922 |
|
| 922 | 923 |
my $where = " WHERE 1=1 "; |
| 923 | 924 |
my @values; |
| ... | ... | |
| 939 | 940 |
push(@values, conv_date($form->{to}));
|
| 940 | 941 |
} |
| 941 | 942 |
my $query = |
| 942 |
qq|SELECT s.shiptoname, i.qty, | . |
|
| 943 |
qq|SELECT s.shiptoname, i.qty $qty_sign, | .
|
|
| 943 | 944 |
qq| ${arap}.id, ${arap}.transdate, ${arap}.invnumber, ${arap}.ordnumber, | .
|
| 944 | 945 |
qq| i.description, i.unit, i.sellprice, | . |
| 945 | 946 |
qq| oe.id AS oe_id | . |
Auch abrufbar als: Unified diff
Lieferant -> Lieferungen: Mengen müssen mal -1 genommen werden, um positiv zu erscheinen.
Ausserdem einen Hilfstext angebracht, der darauf hinweist, dass die Liste auf 15 Zeilen begrenzt ist.
Fix für Bug 982.