projekt kivitendo

    push(@values, like($form->{$key}));

  }

  if ($form->{dunning_level}) {

    $where .= qq| AND a.dunning_config_id = ?|;

    push(@values, conv_i($form->{dunning_level}));

    'duedate'             => [ qw(a.duedate a.invnumber) ],

    'dunning_date'        => [ qw(dunning_date da.dunning_id a.invnumber) ],

    'dunning_duedate'     => [ qw(dunning_duedate da.dunning_id a.invnumber) ],

    'salesman'            => [ qw(salesman) ],

    );

use POSIX qw(strftime);

use SL::IS;

use SL::DN;

use SL::DB::Department;

  $main::auth->assert('dunning_edit');

                             transdatefrom transdateto dunningfrom dunningto notes showold l_salesman salesman_id);

  report_generator_set_default_sort('customername', 1);

    'transdate'           => { 'text' => $locale->text('Invdate') },

    'duedate'             => { 'text' => $locale->text('Invoice Duedate') },

    'amount'              => { 'text' => $locale->text('Amount') },

    'dunning_date'        => { 'text' => $locale->text('Dunning Date') },

    'dunning_duedate'     => { 'text' => $locale->text('Dunning Duedate') },

    'fee'                 => { 'text' => $locale->text('Total Fees') },

  );

  $report->set_columns(%column_defs);

                               duedate amount dunning_date dunning_duedate fee interest salesman));

  $report->set_sort_indicator($form->{sort}, $form->{sortdir});

  my $print_url = sub { build_std_url('action=print_dunning', 'format=pdf', 'media=screen', 'dunning_id='.$_[0]->{dunning_id}, 'language_id=' . $_[0]->{language_id}) };

  my $sort_url  = build_std_url('action=show_dunning', grep { $form->{$_} } @filter_field_list);

    my $sortdir                 = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};

    $column_defs{$name}->{link} = $sort_url . "&sort=$name&sortdir=$sortdir";

  }

  my ($current_dunning_rows, $previous_dunning_id, $first_row_for_dunning);

    my $row = { };

    foreach my $column (keys %{ $ref }) {

      $row->{$column} = {

        'align' => $alignment{$column},

        'link'  => (  $column eq 'invnumber'           ? $edit_url->($ref)

                    : $column eq 'dunning_description' ? $print_url->($ref)

                    :                                    ''),

      };

    }

       <td colspan="3"><input name="invnumber" size="20"></td>

      </tr>

      <tr>

       <th align="right" nowrap>[% 'Order Number' | $T8 %]</th>

       <td colspan="3"><input name="ordnumber" size="20"></td>