Revision 8f1fb2d6
Von Roman Karushka vor etwa 15 Jahren hinzugefügt
| bin/mozilla/dn.pl | ||
|---|---|---|
| 319 | 319 |
$main::auth->assert('dunning_edit');
|
| 320 | 320 |
|
| 321 | 321 |
my @filter_field_list = qw(customer_id customer dunning_level department_id invnumber ordnumber |
| 322 |
transdatefrom transdateto dunningfrom dunningto notes showold); |
|
| 322 |
transdatefrom transdateto dunningfrom dunningto notes showold salesman);
|
|
| 323 | 323 |
|
| 324 | 324 |
report_generator_set_default_sort('customername', 1);
|
| 325 | 325 |
|
| ... | ... | |
| 360 | 360 |
'interest' => { 'text' => $locale->text('Interest') },
|
| 361 | 361 |
); |
| 362 | 362 |
|
| 363 |
if ($form->{l_salesman}) {
|
|
| 364 |
# Show salesman column |
|
| 365 |
$column_defs{'salesman'} = ( { 'text' => $locale->text('Salesperson') } );
|
|
| 366 |
} |
|
| 367 |
|
|
| 363 | 368 |
$report->set_columns(%column_defs); |
| 364 | 369 |
$report->set_column_order(qw(checkbox dunning_description customername invnumber transdate |
| 365 |
duedate amount dunning_date dunning_duedate fee interest)); |
|
| 370 |
duedate amount dunning_date dunning_duedate fee interest salesman));
|
|
| 366 | 371 |
$report->set_sort_indicator($form->{sort}, $form->{sortdir});
|
| 367 | 372 |
|
| 368 | 373 |
my $edit_url = build_std_url('script=is.pl', 'action=edit', 'callback') . '&id=';
|
| 369 | 374 |
my $print_url = build_std_url('action=print_dunning', 'format=pdf', 'media=screen') . '&dunning_id=';
|
| 370 | 375 |
my $sort_url = build_std_url('action=show_dunning', grep { $form->{$_} } @filter_field_list);
|
| 371 | 376 |
|
| 372 |
foreach my $name (qw(dunning_description customername invnumber transdate duedate dunning_date dunning_duedate)) {
|
|
| 377 |
foreach my $name (qw(dunning_description customername invnumber transdate duedate dunning_date dunning_duedate salesman)) {
|
|
| 373 | 378 |
my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
|
| 374 | 379 |
$column_defs{$name}->{link} = $sort_url . "&sort=$name&sortdir=$sortdir";
|
| 375 | 380 |
} |
| 376 | 381 |
|
| 377 |
my %alignment = map { $_ => 'right' } qw(transdate duedate amount dunning_date dunning_duedate fee interest);
|
|
| 382 |
my %alignment = map { $_ => 'right' } qw(transdate duedate amount dunning_date dunning_duedate fee interest salesman);
|
|
| 378 | 383 |
|
| 379 | 384 |
my ($current_dunning_rows, $previous_dunning_id, $first_row_for_dunning); |
| 380 | 385 |
|
Auch abrufbar als: Unified diff
Neue Funktion: Checkbox fuer Verkaeuferanzeige in Mahnungsberichten.