Revision c6d59689
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/Controller/EmailJournal.pm | ||
|---|---|---|
| 104 | 104 |
map { $_ => "SL::DB::Manager::$class" } @{ $RECORD_TYPES_INFO{$_}->{types} }
|
| 105 | 105 |
} keys %RECORD_TYPES_INFO; |
| 106 | 106 |
my @ALL_RECORD_TYPES = map { @{ $RECORD_TYPES_INFO{$_}->{types} } } keys %RECORD_TYPES_INFO;
|
| 107 |
my %RECORD_TYPE_TO_NR_KEY = |
|
| 108 |
map {
|
|
| 109 |
my $model = $RECORD_TYPE_TO_MODEL{$_};
|
|
| 110 |
if (any {$model eq $_} qw(SL::DB::Invoice SL::DB::PurchaseInvoice)) {
|
|
| 111 |
$_ => 'invnumber'; |
|
| 112 |
} else {
|
|
| 113 |
my $type_data = SL::DB::Helper::TypeDataProxy->new($model, $_); |
|
| 114 |
$_ => $type_data->properties('nr_key');
|
|
| 115 |
} |
|
| 116 |
} @ALL_RECORD_TYPES; |
|
| 107 | 117 |
|
| 108 | 118 |
# has do be done at runtime for translation to work |
| 109 | 119 |
sub get_record_types_with_info {
|
| ... | ... | |
| 186 | 196 |
$record_types, |
| 187 | 197 |
customer_vendor_type => $cv_type, |
| 188 | 198 |
customer_vendor_id => $customer_vendor && $customer_vendor->id, |
| 189 |
with_closed => 0, |
|
| 199 |
record_number => '', |
|
| 200 |
with_closed => 0, |
|
| 190 | 201 |
); |
| 191 | 202 |
|
| 192 | 203 |
$self->setup_show_action_bar; |
| ... | ... | |
| 205 | 216 |
my ($self, $record_types, %params) = @_; |
| 206 | 217 |
$record_types = [ $record_types ] unless ref $record_types eq 'ARRAY'; |
| 207 | 218 |
|
| 208 |
my $cv_type = $params{customer_vendor_type};
|
|
| 209 |
my $cv_id = $params{customer_vendor_id};
|
|
| 210 |
my $with_closed = $params{with_closed};
|
|
| 219 |
my $cv_type = $params{customer_vendor_type};
|
|
| 220 |
my $cv_id = $params{customer_vendor_id};
|
|
| 221 |
my $record_number = $params{record_number};
|
|
| 222 |
my $with_closed = $params{with_closed};
|
|
| 211 | 223 |
|
| 212 | 224 |
my @records = (); |
| 213 | 225 |
foreach my $record_type (@$record_types) {
|
| ... | ... | |
| 217 | 229 |
if ($cv_type && $cv_id) {
|
| 218 | 230 |
$additional_where{"${cv_type}_id"} = $cv_id;
|
| 219 | 231 |
} |
| 232 |
if ($record_number) {
|
|
| 233 |
my $nr_key = $RECORD_TYPE_TO_NR_KEY{$record_type};
|
|
| 234 |
$additional_where{$nr_key} = { ilike => "%$record_number%" };
|
|
| 235 |
} |
|
| 220 | 236 |
unless ($with_closed) {
|
| 221 | 237 |
if (any {$_ eq 'closed' } $model->meta->columns) {
|
| 222 | 238 |
$additional_where{closed} = 0;
|
| ... | ... | |
| 373 | 389 |
my ($self) = @_; |
| 374 | 390 |
$::auth->assert('email_journal');
|
| 375 | 391 |
my $customer_vendor_type = $::form->{customer_vendor_selection};
|
| 376 |
my $customer_vendor_id = $::form->{"${customer_vendor_type}_id"};
|
|
| 377 |
my $record_type = $::form->{"${customer_vendor_type}_record_type_selection"};
|
|
| 378 |
my $with_closed = $::form->{with_closed};
|
|
| 392 |
my $customer_vendor_id = $::form->{"${customer_vendor_type}_id"};
|
|
| 393 |
my $record_type = $::form->{"${customer_vendor_type}_record_type_selection"};
|
|
| 394 |
my $record_number = $::form->{record_number};
|
|
| 395 |
my $with_closed = $::form->{with_closed};
|
|
| 379 | 396 |
|
| 380 | 397 |
$record_type ||= $self->record_types_for_customer_vendor_type($customer_vendor_type); |
| 381 | 398 |
|
| ... | ... | |
| 383 | 400 |
$record_type, |
| 384 | 401 |
customer_vendor_type => $customer_vendor_type, |
| 385 | 402 |
customer_vendor_id => $customer_vendor_id, |
| 403 |
record_number => $record_number, |
|
| 386 | 404 |
with_closed => $with_closed, |
| 387 | 405 |
); |
| 388 | 406 |
|
Auch abrufbar als: Unified diff
EmailJournal: Workflow: Filter Belege nach Belegnummer