projekt kivitendo

  $query =

    qq|SELECT

         ct.name AS customername, a.customer_id, a.duedate,

         a.amount - a.paid AS open_amount,

  my $sortorder = join ', ', map { "$_ $sortdir" } @{ $sort_columns{$sortkey} };

  my $query =

         ct.name AS customername, ct.id AS customer_id, a.duedate, da.fee,

         da.interest, dn.dunning_description, da.transdate AS dunning_date,

         da.duedate AS dunning_duedate, da.dunning_id, da.dunning_config_id,

      map { $_->{SELECTED} = $_->{id} == $row->{next_dunning_config_id} } @{ $row->{DUNNING_CONFIG } };

    }

    map { $row->{$_} = $form->format_amount(\%myconfig, $row->{$_} * 1, -2) } qw(amount open_amount fee interest);

  }

  $form->get_lists('printers'  => 'printers',

                                          'no_opendocument' => 1,);

  $form->header();

  print $form->parse_html_template("dunning/show_invoices");

  $main::lxdebug->leave_sub();

  my @rows = ();

  undef($form->{DUNNING_PDFS});

  if ($form->{groupinvoices}) {

    my %dunnings_for;

      push @{ $level }, { "row"                    => $i,

                          "invoice_id"             => $form->{"inv_id_$i"},

                          "customer_id"            => $form->{"customer_id_$i"},

                          "next_dunning_config_id" => $form->{"next_dunning_config_id_$i"},

                          "email"                  => $form->{"email_$i"}, };

    }

    foreach my $levels (values %dunnings_for) {

      foreach my $level (values %{ $levels }) {

        next unless scalar @{ $level };

        DN->save_dunning(\%myconfig, $form, $level);

      }

    }

      my $level = [ { "row"                    => $i,

                      "invoice_id"             => $form->{"inv_id_$i"},

                      "customer_id"            => $form->{"customer_id_$i"},

                      "next_dunning_config_id" => $form->{"next_dunning_config_id_$i"},

                      "email"                  => $form->{"email_$i"}, } ];

      DN->save_dunning(\%myconfig, $form, $level);

    }

  }

  if($form->{DUNNING_PDFS}) {

    DN->melt_pdfs(\%myconfig, $form, $form->{copies});

  }

    'checkbox'            => { 'text' => '', 'visible' => 'HTML' },

    'dunning_description' => { 'text' => $locale->text('Dunning Level') },

    'customername'        => { 'text' => $locale->text('Customername') },

    'invnumber'           => { 'text' => $locale->text('Invnumber') },

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

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

  );

  $report->set_columns(%column_defs);

                               duedate amount dunning_date dunning_duedate fee interest salesman));

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

  my $edit_url  = sub { build_std_url('script=' . ($_[0]->{invoice} ? 'is' : 'ar') . '.pl', 'action=edit', 'callback') . '&id=' . $::form->escape($_[0]->{id}) };

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

  foreach my $name (qw(dunning_description customername invnumber transdate duedate dunning_date dunning_duedate salesman)) {

      $first_row_for_dunning = 1;

    }

    my $row = { };

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

      $row->{$column} = {

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

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

                    :                                    ''),

      };

    }

      'align'    => 'center',

    };

    push @{ $current_dunning_rows }, $row;

    $previous_dunning_id   = $ref->{dunning_id};

  $report->set_options_from_form();

  $report->generate_with_headers();

  $main::lxdebug->leave_sub();

  $form->{rowcount}     = 1;

  $form->{selected_1}   = 1;

  $form->{dunning_id_1} = $form->{dunning_id};

  print_multiple();

  $form->{title} = $locale->text('Print dunnings');

  my @dunning_ids = map { $form->{"dunning_id_$_"} } grep { $form->{"selected_$_"} } (1..$form->{rowcount});

  if (!scalar @dunning_ids) {

    $form->error($locale->text('No dunnings have been selected for printing.'));

  $form->{DUNNING_PDFS} = [];

  foreach my $dunning_id (@dunning_ids) {

    DN->print_invoice_for_fees(\%myconfig, $form, $dunning_id);

    DN->print_dunning(\%myconfig, $form, $dunning_id);

  }

  if (scalar @{ $form->{DUNNING_PDFS} }) {

    $form->{dunning_id} = strftime("%Y%m%d", localtime time);

  'Output Number Format'        => 'Zahlenformat (Ausgabe)',

  'Outputformat'                => 'Ausgabeformat',

  'Overdue sales quotations and requests for quotations' => 'Überfällige Angebote und Preisanfragen',

  'PAYMENT POSTED'              => 'Rechung gebucht',

  'PDF'                         => 'PDF',

  'PDF (OpenDocument/OASIS)'    => 'PDF (OpenDocument/OASIS)',

  'Output Number Format'        => '',

  'Outputformat'                => '',

  'Overdue sales quotations and requests for quotations' => '',

  'Own Product'                 => '',

  'PAYMENT POSTED'              => '',

  'PDF'                         => '',

[%- USE T8 %]

[% USE HTML %]  <input type="hidden" name="rowcount" value="[% rowcount %]">

  <p>

   [% 'Dunnings' | $T8 %]<br>

[% L.javascript_tag('jquery.checkall') %]

[% SET all_active = 1 %][% FOREACH row = DUNNINGS %][% IF !row.active %][% SET all_active = 0 %][% LAST %][% END %][% END %]

[% SET all_email = 1 %][% FOREACH row = DUNNINGS %][% IF !row.email %][% SET all_email = 0 %][% LAST %][% END %][% END %]

 <script type="text/javascript" src="js/common.js"></script>

 <script type="text/javascript" src="js/dunning.js"></script>

   </th>

   <th class="listheading">[% 'Customername' | $T8 %]</th>

   <th class="listheading">[% 'Invno.' | $T8 %]</th>

   <th class="listheading">[% 'Invdate' | $T8 %]</th>

   <th class="listheading">[% 'Inv. Duedate' | $T8 %]</th>

     <td><input type="checkbox" name="active_[% loop.count %]" value="1" [% IF row.active %]checked[% END %]></td>

     <td><input type="checkbox" name="email_[% loop.count %]" value="1" [% IF row.email %]checked[% END %]></td>

     <td><input type="hidden" name="customername_[% loop.count %]" size="6" value="[% HTML.escape(row.customername) %]">[% HTML.escape(row.customername) %]</td>

     <td>

      <input type="hidden" name="invnumber_[% loop.count %]" size="6" value="[% HTML.escape(row.invnumber) %]">

      <a href="is.pl?action=edit&type=invoice&id=[% row.id | url %]">[% HTML.escape(row.invnumber) %]</a>

  <hr size=3 noshade>

  [% PRINT_OPTIONS %]

  <br>

[%- USE T8 %]

 <style type="text/css">

  <!--