projekt kivitendo

use POSIX qw(strftime);

use SL::ReportGenerator;

require "bin/mozilla/arap.pl";

require "bin/mozilla/common.pl";

require "bin/mozilla/report_generator.pl";

  $form->{callback} = build_std_url('action=generate_ar_aging', qw(todate customer title));

  aging();

  $form->{callback} = build_std_url('action=generate_ap_aging', qw(todate vendor title));

  aging();

sub create_aging_subtotal_row {

  my ($subtotals, $columns, $periods, $class) = @_;

  my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => 'right' } } @{ $columns } };

  foreach (@{ $periods }) {

    $row->{"c$_"}->{data} = $subtotals->{$_} != 0 ? $form->format_amount(\%myconfig, $subtotals->{$_}, 2) : '';

    $subtotals->{$_}      = 0;

  $lxdebug->leave_sub();

  return $row;

}

sub aging {

  $lxdebug->enter_sub();

  my $report = SL::ReportGenerator->new(\%myconfig, $form);

  my @columns = qw(statement ct invnumber transdate duedate c0 c30 c60 c90);

  my %column_defs = (

    'statement' => { 'text' => '', 'visible' => $form->{ct} eq 'customer' ? 'HTML' : 0, },

    'ct'        => { 'text' => $form->{ct} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },

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

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

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

    'c0'        => { 'text' => $locale->text('Current'), },

    'c30'       => { 'text' => '30', },

    'c60'       => { 'text' => '60', },

    'c90'       => { 'text' => '90', },

  );

  my %column_alignment = ('statement' => 'center',

                          map { $_ => 'right' } qw(c0 c30 c60 c90));

  $report->set_options('std_column_visibility' => 1);

  $report->set_columns(%column_defs);

  $report->set_column_order(@columns);

  my @hidden_variables = qw(todate customer vendor arap title ct);

  $report->set_export_options('generate_' . ($form->{arap} eq 'ar' ? 'ar' : 'ap') . '_aging', @hidden_variables);

  my @options;

  if ($form->{department}) {

    my ($department) = split /--/, $form->{department};

    push @options, $locale->text('Department') . " : $department";

    $form->{callback} .= "&department=" . E($department);

  }

  if (($form->{arap} eq 'ar') && $form->{customer}) {

    push @options, $form->{customer};

  }

  if (($form->{arap} eq 'ap') && $form->{vendor}) {

    push @options, $form->{vendor};

  }

  push @options, $locale->text('for Period') . " " . $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{todate}, 1);

  my $attachment_basename = $form->{ct} eq 'customer' ? $locale->text('ar_aging_list') : $locale->text('ap_aging_list');

  $report->set_options('top_info_text'        => join("\n", @options),

                       'output_format'        => 'HTML',

                       'title'                => $form->{title},

                       'attachment_basename'  => $attachment_basename . strftime('_%Y%m%d', localtime time),

    );

  my $previous_ctid = 0;

  my $row_idx       = 0;

  my @periods       = qw(0 30 60 90);

  my %subtotals     = map { $_ => 0 } @periods;

  my %totals        = map { $_ => 0 } @periods;

  foreach $ref (@{ $form->{AG} }) {

    if ($row_idx && ($previous_ctid != $ref->{ctid})) {

      $report->add_data(create_aging_subtotal_row(\%subtotals, \@columns, \@periods, 'listsubtotal'));

    foreach my $key (@periods) {

      $subtotals{$key}  += $ref->{"c${key}"};

      $totals{$key}     += $ref->{"c${key}"};

      $ref->{"c${key}"}  = $ref->{"c${key}"} != 0 ? $form->format_amount(\%myconfig, $ref->{"c${key}"}, 2) : '';

    }

    my $row = { };

    foreach my $column (@columns) {

      $row->{$column} = {

        'data'   => (($column eq 'ct') || ($column eq 'statement')) ? '' : $ref->{$column},

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

        'valign' => $column eq 'statement' ? 'center' : '',

      };

    }

    $row->{invnumber}->{link} =  build_std_url("script=$ref->{module}.pl", 'action=edit', 'callback', 'id=' . E($ref->{id}));

    if ($previous_ctid != $ref->{ctid}) {

      $row->{statement}->{raw_data} =

          $cgi->hidden('-name' => "customer_id_${row_idx}", '-value' => $ref->{ctid})

        . $cgi->checkbox('-name' => "statement_${row_idx}", '-value' => 1, '-label' => '', 'checked' => $ref->{checked});

      $row->{ct}->{data} = $ref->{name};

      $row_idx++;

    }

    $previous_ctid = $ref->{ctid};

    $report->add_data($row);

  $report->add_data(create_aging_subtotal_row(\%subtotals, \@columns, \@periods, 'listsubtotal')) if ($row_idx);

  $report->add_data(create_aging_subtotal_row(\%totals, \@columns, \@periods, 'listtotal'));

    $raw_top_info_text    = $form->parse_html_template('rp/aging_ar_top');

    $raw_bottom_info_text = $form->parse_html_template('rp/aging_ar_bottom', { 'row_idx' => $row_idx,

                                                                               'PRINT_OPTIONS' => print_options(1), });

    $report->set_options('raw_top_info_text'    => $raw_top_info_text,

                         'raw_bottom_info_text' => $raw_bottom_info_text);

  }

  $report->set_options_from_form();

  $report->generate_with_headers();

  my ($dont_print) = @_;

  my $output = qq|

    $output .= qq|

  $output .= qq|

  print $output unless $dont_print;

  return $output;

  'ap_aging_list'               => 'liste_offene_verbindlichkeiten',

  'ar_aging_list'               => 'liste_offene_forderungen',

  'CSV export -- options'       => 'CSV-Export -- Optionen',

  'Could not spawn html2ps or GhostScript.' => 'html2ps oder GhostScript konnte nicht gestartet werden.',

  'Could not spawn the printer command.' => 'Die Druckanwendung konnte nicht gestartet werden.',

  'Could not write the html2ps config file.' => 'Die temporäre html2ps-Konfigurationsdatei konnte nicht geschrieben werden.',

  'Could not write the temporary HTML file.' => 'Eine temporäre HTML-Datei konnte nicht geschrieben werden.',

  'PDF export -- options'       => 'PDF-Export -- Optionen',

  'The list has been printed.'  => 'Die Liste wurde ausgedruckt.',

  'ap_aging_list'               => 'liste_offene_verbindlichkeiten',

  'ar_aging_list'               => 'liste_offene_forderungen',

  'report_generator_dispatch_to is not defined.' => 'report_generator_dispatch_to ist nicht definiert.',

  'report_generator_nextsub is not defined.' => 'report_generator_nextsub ist nicht definiert.',

  'create_aging_subtotal_row'   => 'create_aging_subtotal_row',

  'report_generator_back'       => 'report_generator_back',

  'report_generator_dispatcher' => 'report_generator_dispatcher',

  'report_generator_do'         => 'report_generator_do',

  'report_generator_export_as_csv' => 'report_generator_export_as_csv',

  'report_generator_export_as_pdf' => 'report_generator_export_as_pdf',

 <input type="hidden" name="rowcount" value="<TMPL_VAR row_idx ESCAPE=HTML>">

 <TMPL_VAR PRINT_OPTIONS>

 <input type="hidden" name="todate" value="<TMPL_VAR todate ESCAPE=HTML>">

 <input type="hidden" name="title" value="<TMPL_VAR title ESCAPE=HTML>">

 <input type="hidden" name="arap" value="<TMPL_VAR arap ESCAPE=HTML>">

 <input type="hidden" name="ct" value="<TMPL_VAR ct ESCAPE=HTML>">

 <input type="hidden" name="customer" value="<TMPL_VAR customer ESCAPE=HTML>">

 <input type="hidden" name="vendor" value="<TMPL_VAR vendor ESCAPE=HTML>">

 <input type="hidden" name="department" value="<TMPL_VAR department ESCAPE=HTML>">

 <input type="hidden" name="login" value="<TMPL_VAR login ESCAPE=HTML>">

 <input type="hidden" name="password" value="<TMPL_VAR password ESCAPE=HTML>">

 Sammelrechnung

 <br>

 <input class="submit" type="submit" name="action" value="Alle ausw?hlen">

 <input class="submit" type="submit" name="action" value="Drucken">

 <input class="submit" type="submit" name="action" value="eMail">

</form>

 <input type="hidden" name="rowcount" value="<TMPL_VAR row_idx ESCAPE=HTML>">

 <TMPL_VAR PRINT_OPTIONS>

 <input type="hidden" name="todate" value="<TMPL_VAR todate ESCAPE=HTML>">

 <input type="hidden" name="title" value="<TMPL_VAR title ESCAPE=HTML>">

 <input type="hidden" name="arap" value="<TMPL_VAR arap ESCAPE=HTML>">

 <input type="hidden" name="ct" value="<TMPL_VAR ct ESCAPE=HTML>">

 <input type="hidden" name="customer" value="<TMPL_VAR customer ESCAPE=HTML>">

 <input type="hidden" name="vendor" value="<TMPL_VAR vendor ESCAPE=HTML>">

 <input type="hidden" name="department" value="<TMPL_VAR department ESCAPE=HTML>">

 <input type="hidden" name="login" value="<TMPL_VAR login ESCAPE=HTML>">

 <input type="hidden" name="password" value="<TMPL_VAR password ESCAPE=HTML>">

 <translate>Statement</translate>

 <br>

 <input class="submit" type="submit" name="action" value="<translate>Select all</translate>">

 <input class="submit" type="submit" name="action" value="<translate>Print</translate>">

 <input class="submit" type="submit" name="action" value="<translate>E-mail</translate>">

</form>

<form method="post" action="rp.pl">

<form method="post" action="rp.pl">