Revision 72cfe17f
Von Jan Büren vor fast 2 Jahren hinzugefügt
| SL/Controller/BankTransaction.pm | ||
|---|---|---|
| 958 | 958 |
align => 'right' }, |
| 959 | 959 |
invoice_amount => { sub => sub { $_[0]->invoice_amount_as_number },
|
| 960 | 960 |
align => 'right' }, |
| 961 |
invoices => { sub => sub { my @invnumbers; for my $obj (@{ $_[0]->linked_invoices }) {
|
|
| 962 |
next unless $obj; push @invnumbers, $obj->invnumber } return \@invnumbers } }, |
|
| 961 |
invoices => { sub => sub { my @invnumbers; for my $obj (@{ $_[0]->linked_invoices }) {
|
|
| 962 |
next unless $obj; push @invnumbers, $obj->invnumber } return \@invnumbers }, |
|
| 963 |
obj_link => sub { my @links; for my $obj (@{ $_[0]->linked_invoices }) {
|
|
| 964 |
next unless $obj; my $script = ref $obj eq 'SL::DB::GLTransaction' ? 'gl.pl' |
|
| 965 |
: $obj->is_sales && $obj->invoice ? 'is.pl' |
|
| 966 |
: $obj->is_sales && !$obj->invoice ? 'ar.pl' |
|
| 967 |
: !$obj->is_sales && $obj->invoice ? 'ir.pl' |
|
| 968 |
: !$obj->is_sales && !$obj->invoice ? 'ap.pl' |
|
| 969 |
: die "Invalid invoice state for link"; |
|
| 970 |
push @links,$script . "?action=edit&id=" . $obj->id } return \@links } |
|
| 971 |
}, |
|
| 963 | 972 |
currency => { sub => sub { $_[0]->currency->name } },
|
| 964 | 973 |
purpose => { },
|
| 965 | 974 |
local_account_number => { sub => sub { $_[0]->local_bank_account->account_number } },
|
Auch abrufbar als: Unified diff
Bankbewegungsbericht, verlinkte Buchungen anklickbar gemacht