Revision 84bed7a6
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 1456 | 1456 |
} |
| 1457 | 1457 |
|
| 1458 | 1458 |
@columns = |
| 1459 |
qw(transdate id invnumber ordnumber name netamount tax amount paid datepaid |
|
| 1459 |
qw(transdate id type invnumber ordnumber name netamount tax amount paid datepaid
|
|
| 1460 | 1460 |
due duedate notes employee globalprojectnumber); |
| 1461 | 1461 |
|
| 1462 |
$form->{"l_type"} = "Y";
|
|
| 1463 |
|
|
| 1462 | 1464 |
foreach $item (@columns) {
|
| 1463 | 1465 |
if ($form->{"l_$item"} eq "Y") {
|
| 1464 | 1466 |
push @column_index, $item; |
| ... | ... | |
| 1482 | 1484 |
qq|<th><a class=listheading href=$href&sort=transdate>| |
| 1483 | 1485 |
. $locale->text('Date')
|
| 1484 | 1486 |
. qq|</a></th>|; |
| 1487 |
$column_header{type} =
|
|
| 1488 |
"<th class=\"listheading\">" . $locale->text('Type') . "</th>";
|
|
| 1485 | 1489 |
$column_header{duedate} =
|
| 1486 | 1490 |
qq|<th><a class=listheading href=$href&sort=duedate>| |
| 1487 | 1491 |
. $locale->text('Due Date')
|
| ... | ... | |
| 1596 | 1600 |
$subtotaldue += ($ap->{amount} - $ap->{paid});
|
| 1597 | 1601 |
|
| 1598 | 1602 |
$column_data{transdate} = "<td>$ap->{transdate} </td>";
|
| 1603 |
$column_data{type} = "<td>" .
|
|
| 1604 |
($ap->{invoice} ? $locale->text("Invoice (one letter abbreviation)") :
|
|
| 1605 |
$locale->text("AP Transaction (abbreviation)"))
|
|
| 1606 |
. "</td>"; |
|
| 1599 | 1607 |
$column_data{duedate} = "<td>$ap->{duedate} </td>";
|
| 1600 | 1608 |
$column_data{datepaid} = "<td>$ap->{datepaid} </td>";
|
| 1601 | 1609 |
|
Auch abrufbar als: Unified diff
Bei der Liste der Einkaufsrechnungen den Typ anzeigen: "R" für Einkaufsrechnungen und "K" für Kreditorenbuchungen.