Revision 875f08f3
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 397 | 397 |
qq| a.ordnumber, v.name, a.invoice, a.netamount, a.datepaid, a.notes, | . |
| 398 | 398 |
qq| a.globalproject_id, a.storno, a.storno_id, | . |
| 399 | 399 |
qq| pr.projectnumber AS globalprojectnumber, | . |
| 400 |
qq| e.name AS employee | . |
|
| 400 |
qq| e.name AS employee, | . |
|
| 401 |
qq| v.vendornumber, v.country, v.ustid, | . |
|
| 402 |
qq| tz.description AS taxzone, | . |
|
| 403 |
qq| pt.description AS payment_terms | . |
|
| 401 | 404 |
qq|FROM ap a | . |
| 402 | 405 |
qq|JOIN vendor v ON (a.vendor_id = v.id) | . |
| 403 | 406 |
qq|LEFT JOIN employee e ON (a.employee_id = e.id) | . |
| 404 |
qq|LEFT JOIN project pr ON (a.globalproject_id = pr.id) |; |
|
| 407 |
qq|LEFT JOIN project pr ON (a.globalproject_id = pr.id) | . |
|
| 408 |
qq|LEFT JOIN tax_zones tz ON (tz.id = v.taxzone_id)| . |
|
| 409 |
qq|LEFT JOIN payment_terms pt ON (pt.id = v.payment_id)|; |
|
| 405 | 410 |
|
| 406 | 411 |
my $where = ''; |
| 407 | 412 |
my @values; |
| ... | ... | |
| 761 | 766 |
|
| 762 | 767 |
# now copy acc_trans entries |
| 763 | 768 |
$query = qq|SELECT a.*, c.link FROM acc_trans a LEFT JOIN chart c ON a.chart_id = c.id WHERE a.trans_id = ? ORDER BY a.acc_trans_id|; |
| 764 |
my $rowref = selectall_hashref_query($form, $dbh, $query, $id);
|
|
| 769 |
my $rowref = selectall_hashref_query($form, $dbh, $query, $id); |
|
| 765 | 770 |
|
| 766 | 771 |
# kill all entries containing payments, which are the last 2n rows, of which the last has link =~ /paid/ |
| 767 | 772 |
while ($rowref->[-1]{link} =~ /paid/) {
|
Auch abrufbar als: Unified diff
Lieferantenanezige in Einkaufsrechnungenbericht