Revision 16c6be41
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/DB/DeliveryOrder.pm | ||
|---|---|---|
| 51 | 51 |
($self->delivered ? $::locale->text('delivered') : $::locale->text('not delivered'));
|
| 52 | 52 |
} |
| 53 | 53 |
|
| 54 |
sub date {
|
|
| 55 |
goto &transdate; |
|
| 56 |
} |
|
| 57 |
|
|
| 54 | 58 |
1; |
| SL/DB/Invoice.pm | ||
|---|---|---|
| 241 | 241 |
return $self->closed ? $::locale->text('closed') : $::locale->text('open');
|
| 242 | 242 |
} |
| 243 | 243 |
|
| 244 |
sub date {
|
|
| 245 |
goto &transdate; |
|
| 246 |
} |
|
| 247 |
|
|
| 244 | 248 |
1; |
| 245 | 249 |
|
| 246 | 250 |
__END__ |
| SL/DB/Order.pm | ||
|---|---|---|
| 132 | 132 |
return $self->${ \ $number_method{$self->type} }(@_);
|
| 133 | 133 |
} |
| 134 | 134 |
|
| 135 |
sub date {
|
|
| 136 |
goto &transdate; |
|
| 137 |
} |
|
| 138 |
|
|
| 135 | 139 |
1; |
| 136 | 140 |
|
| 137 | 141 |
__END__ |
| SL/DB/PurchaseInvoice.pm | ||
|---|---|---|
| 27 | 27 |
return 0; |
| 28 | 28 |
} |
| 29 | 29 |
|
| 30 |
sub date {
|
|
| 31 |
goto &transdate; |
|
| 32 |
} |
|
| 33 |
|
|
| 30 | 34 |
1; |
| SL/Presenter/Record.pm | ||
|---|---|---|
| 22 | 22 |
|
| 23 | 23 |
%params = map { exists $params{$_} ? ($_ => $params{$_}) : () } qw(edit_record_links with_columns object_id object_model);
|
| 24 | 24 |
|
| 25 |
my %groups = _group_records($list);
|
|
| 25 |
my %groups = _sort_grouped_lists(_group_records($list));
|
|
| 26 | 26 |
my $output = ''; |
| 27 | 27 |
|
| 28 | 28 |
$output .= _sales_quotation_list( $self, $groups{sales_quotations}, %params) if $groups{sales_quotations};
|
| ... | ... | |
| 159 | 159 |
return %groups; |
| 160 | 160 |
} |
| 161 | 161 |
|
| 162 |
sub _sort_grouped_lists {
|
|
| 163 |
my (%groups) = @_; |
|
| 164 |
|
|
| 165 |
$groups{$_} = [ sort { $a->date <=> $b->date } @{ $groups{$_} } ] for keys %groups;
|
|
| 166 |
|
|
| 167 |
return %groups; |
|
| 168 |
} |
|
| 169 |
|
|
| 162 | 170 |
sub _sales_quotation_list {
|
| 163 | 171 |
my ($self, $list, %params) = @_; |
| 164 | 172 |
|
Auch abrufbar als: Unified diff
Verknüpfte Belege Einkauf/Verkauf/Projekte: Listen nach Datum sortieren