Revision bfb31beb
Von Kivitendo Admin vor fast 8 Jahren hinzugefügt
| SL/DB/GLTransaction.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 | 5 |
use SL::DB::MetaSetup::GLTransaction; |
| 6 |
|
|
| 6 |
use SL::Locale::String qw(t8); |
|
| 7 | 7 |
|
| 8 | 8 |
# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all. |
| 9 | 9 |
__PACKAGE__->meta->make_manager_class; |
| ... | ... | |
| 30 | 30 |
return $abbreviation; |
| 31 | 31 |
} |
| 32 | 32 |
|
| 33 |
sub displayable_type {
|
|
| 34 |
return t8('GL Transaction');
|
|
| 35 |
} |
|
| 36 |
|
|
| 33 | 37 |
sub oneline_summary {
|
| 34 | 38 |
my ($self) = @_; |
| 35 | 39 |
return sprintf("%s: %s %s (%s)", $self->abbreviation, $self->description, $self->reference, $_->transdate->to_kivitendo);
|
| SL/Presenter/Record.pm | ||
|---|---|---|
| 55 | 55 |
$output .= _purchase_invoice_list( $self, $groups{purchase_invoices}, %params) if $groups{purchase_invoices};
|
| 56 | 56 |
$output .= _ap_transaction_list( $self, $groups{ap_transactions}, %params) if $groups{ap_transactions};
|
| 57 | 57 |
|
| 58 |
$output .= _gl_transaction_list( $self, $groups{gl_transactions}, %params) if $groups{gl_transactions};
|
|
| 59 |
|
|
| 58 | 60 |
$output .= _bank_transactions( $self, $groups{bank_transactions}, %params) if $groups{bank_transactions};
|
| 59 | 61 |
|
| 60 | 62 |
$output .= _sepa_collection_list( $self, $groups{sepa_collections}, %params) if $groups{sepa_collections};
|
| ... | ... | |
| 435 | 437 |
); |
| 436 | 438 |
} |
| 437 | 439 |
|
| 440 |
sub _gl_transaction_list {
|
|
| 441 |
my ($self, $list, %params) = @_; |
|
| 442 |
|
|
| 443 |
return $self->record_list( |
|
| 444 |
$list, |
|
| 445 |
title => $::locale->text('GL Transactions'),
|
|
| 446 |
type => 'gl_transaction', |
|
| 447 |
columns => [ |
|
| 448 |
[ $::locale->text('Date'), 'transdate' ],
|
|
| 449 |
[ $::locale->text('Reference'), 'reference' ],
|
|
| 450 |
[ $::locale->text('Description'), sub { $self->gl_transaction($_[0 ], display => 'table-cell') } ],
|
|
| 451 |
], |
|
| 452 |
%params, |
|
| 453 |
); |
|
| 454 |
} |
|
| 455 |
|
|
| 438 | 456 |
sub _bank_transactions {
|
| 439 | 457 |
my ($self, $list, %params) = @_; |
| 440 | 458 |
|
| ... | ... | |
| 593 | 611 |
|
| 594 | 612 |
=item * AP transactions |
| 595 | 613 |
|
| 614 |
=item * GL transactions |
|
| 615 |
|
|
| 596 | 616 |
=item * SEPA collections |
| 597 | 617 |
|
| 598 | 618 |
=item * SEPA transfers |
Auch abrufbar als: Unified diff
Record presenter - Dialogbuchungen ebenfalls anzeigen, z.B. bei Projekten