Revision 2c5603bb
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
| 418 | 418 |
|
| 419 | 419 |
my @values; |
| 420 | 420 |
|
| 421 |
$form->{customer_id} = $1 if ($form->{customer} =~ /--(\d+)$/);
|
|
| 422 |
|
|
| 423 | 421 |
if ($form->{customer_id}) {
|
| 424 | 422 |
$where .= qq| AND (a.customer_id = ?)|; |
| 425 | 423 |
push(@values, $form->{customer_id});
|
| ... | ... | |
| 429 | 427 |
push(@values, '%' . $form->{customer} . '%');
|
| 430 | 428 |
} |
| 431 | 429 |
|
| 432 |
|
|
| 433 | 430 |
my %columns = ( |
| 434 | 431 |
"ordnumber" => "a.ordnumber", |
| 435 | 432 |
"invnumber" => "a.invnumber", |
| ... | ... | |
| 446 | 443 |
push(@values, conv_i($form->{dunning_level}));
|
| 447 | 444 |
} |
| 448 | 445 |
|
| 449 |
$form->{minamount} = $form->parse_amount($myconfig,$form->{minamount});
|
|
| 446 |
if ($form->{department_id}) {
|
|
| 447 |
$where .= qq| AND a.department_id = ?|; |
|
| 448 |
push @values, conv_i($form->{department_id});
|
|
| 449 |
} |
|
| 450 |
|
|
| 451 |
$form->{minamount} = $form->parse_amount($myconfig, $form->{minamount});
|
|
| 450 | 452 |
if ($form->{minamount}) {
|
| 451 | 453 |
$where .= qq| AND ((a.amount - a.paid) > ?) |; |
| 452 | 454 |
push(@values, $form->{minamount});
|
Auch abrufbar als: Unified diff
Den Rest von dn.pl auf die Verwendung von HTML-Vorlagen umgestellt.