projekt kivitendo

use POSIX qw(strftime);

use SL::ReportGenerator;

require "bin/mozilla/report_generator.pl";

sub create_subtotal_row {

  $lxdebug->enter_sub();

  my ($totals, $columns, $column_alignment, $subtotal_columns, $class) = @_;

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

  map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $totals->{$_}, 2) } @{ $subtotal_columns };

  $row->{tax}->{data} = $form->format_amount(\%myconfig, $totals->{amount} - $totals->{netamount}, 2);

  map { $totals->{$_} = 0 } @{ $subtotal_columns };

  $lxdebug->leave_sub();

  return $row;

}

  ($form->{ $form->{vc} }, $form->{"${form->{vc}}_id"}) = split(/--/, $form->{ $form->{vc} });

  $form->{sort} ||= 'transdate';

  $form->{rowcount} = scalar @{ $form->{OE} };

  my @columns = (

    "id",                      $ordnumber,

    "delivered"

  my $allow_multiple_orders = $form->{type} eq 'sales_order';

  if ($allow_multiple_orders) {

    unshift @columns, "ids";

  $form->{l_open}      = $form->{l_closed} = "Y" if ($form->{open}      && $form->{closed});

  $form->{l_delivered} = "Y"                     if ($form->{delivered} && $form->{notdelivered});

  my $attachment_basename;

      $form->{title}       = $locale->text('Purchase Orders');

      $attachment_basename = $locale->text('purchase_order_list');

      $form->{title}       = $locale->text('Request for Quotations');

      $attachment_basename = $locale->text('rfq_list');

  } else {

      $form->{title}       = $locale->text('Sales Orders');

      $attachment_basename = $locale->text('sales_order_list');

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

      $attachment_basename = $locale->text('quotation_list');

  }

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

  my @hidden_variables = map { "l_${_}" } @columns;

  push @hidden_variables, "l_subtotal", $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered ordnumber quonumber

                                                        transaction_description transdatefrom transdateto type vc);

  my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);

  my %column_defs = (

    'ids'                     => { 'text' => '', },

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

    'reqdate'                 => { 'text' => $locale->text('Required by'), },

    'id'                      => { 'text' => $locale->text('ID'), },

    'ordnumber'               => { 'text' => $locale->text('Order'), },

    'quonumber'               => { 'text' => $form->{type} eq "request_quotation" ? $locale->text('RFQ') : $locale->text('Quotation'), },

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

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

    'tax'                     => { 'text' => $locale->text('Tax'), },

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

    'curr'                    => { 'text' => $locale->text('Curr'), },

    'employee'                => { 'text' => $locale->text('Salesperson'), },

    'shipvia'                 => { 'text' => $locale->text('Ship via'), },

    'globalprojectnumber'     => { 'text' => $locale->text('Project Number'), },

    'transaction_description' => { 'text' => $locale->text('Transaction description'), },

    'open'                    => { 'text' => $locale->text('Open'), },

    'delivered'               => { 'text' => $locale->text('Delivered'), },

  );

  foreach my $name (qw(id transdate reqdate quonumber ordnumber name employee shipvia)) {

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

  }

  my %column_alignment = map { $_ => 'right' } qw(netamount tax amount curr);

  $form->{"l_type"} = "Y";

  map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;

  $column_defs{ids}->{visible} = $allow_multiple_orders ? 'HTML' : 0;

  $report->set_columns(%column_defs);

  $report->set_column_order(@columns);

  $report->set_export_options('orders', @hidden_variables);

  my @options;

  if ($form->{customer}) {

    push @options, $locale->text('Customer') . " : $form->{customer}";

  }

  if ($form->{vendor}) {

    push @options, $locale->text('Vendor') . " : $form->{vendor}";

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

  }

  if ($form->{ordnumber}) {

    push @options, $locale->text('Order Number') . " : $form->{ordnumber}";

  }

  if ($form->{notes}) {

    push @options, $locale->text('Notes') . " : $form->{notes}";

  }

  if ($form->{transaction_description}) {

    push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";

    push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1);

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

    push @options, $locale->text('Open');

    push @options, $locale->text('Closed');

  if ($form->{delivered}) {

    push @options, $locale->text('Delivered');

  if ($form->{notdelivered}) {

    push @options, $locale->text('Not delivered');

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

                       'raw_top_info_text'    => $form->parse_html_template('oe/orders_top'),

                       'raw_bottom_info_text' => $form->parse_html_template('oe/orders_bottom', { 'SHOW_CONTINUE_BUTTON' => $allow_multiple_orders }),

                       'output_format'        => 'HTML',

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

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

    );

  $report->set_options_from_form();

  # add sort and escape callback, this one we use for the add sub

  $form->{callback} = $href .= "&sort=$form->{sort}";

  # escape callback for href

  $callback = $form->escape($href);

  my @subtotal_columns = qw(netamount amount);

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

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

  my $idx = 0;

  my $edit_url = build_std_url('action=edit', 'type', 'vc');

  foreach $oe (@{ $form->{OE} }) {

    map { $oe->{$_} *= $oe->{exchangerate} } @subtotal_columns;

    $oe->{tax}       = $oe->{amount} - $oe->{netamount};

    $oe->{open}      = $oe->{closed}    ? $locale->text('No')  : $locale->text('Yes');

    $oe->{delivered} = $oe->{delivered} ? $locale->text('Yes') : $locale->text('No');

    map { $subtotals{$_} += $oe->{$_};

          $totals{$_}    += $oe->{$_} } @subtotal_columns;

    map { $oe->{$_} = $form->format_amount(\%myconfig, $oe->{$_}, 2) } qw(netamount tax amount);

    my $row = { };

    foreach my $column (@columns) {

      next if ($column eq 'ids');

      $row->{$column} = {

        'data'  => $oe->{$column},

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

      };

    }

    $row->{ids} = {

      'raw_data' =>   $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $oe->{id})

                    . $cgi->checkbox('-name' => "multi_id_${idx}", '-value' => 1, '-label' => ''),

      'valign'   => 'center',

      'align'    => 'center',

    };

    $row->{$ordnumber}->{link} = $edit_url . "&id=" . E($oe->{id}) . "&callback=${callback}";

    my $row_set = [ $row ];

    if (($form->{l_subtotal} eq 'Y')

        && (($idx == (scalar @{ $form->{OE} } - 1))

            || ($oe->{ $form->{sort} } ne $form->{OE}->[$idx + 1]->{ $form->{sort} }))) {

      push @{ $row_set }, create_subtotal_row(\%subtotals, \@columns, \%column_alignment, \@subtotal_columns, 'listsubtotal');

    }

    $report->add_data($row_set);

    $idx++;

  }

  $report->add_separator();

  $report->add_data(create_subtotal_row(\%totals, \@columns, \%column_alignment, \@subtotal_columns, 'listtotal'));

  $report->generate_with_headers();

  'New sales order'             => 'Neuer Auftrag',

  'purchase_order_list'         => 'lieferantenauftragsliste',

  'quotation_list'              => 'angebotsliste',

  'rfq_list'                    => 'anfragenliste',

  'sales_order_list'            => 'auftragsliste',

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

  'Could not spawn html2ps or GhostScript.' => 'html2ps oder GhostScript 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',

  'Salesperson'                 => 'Verk?ufer',

  'purchase_order_list'         => 'lieferantenauftragsliste',

  'quotation_list'              => 'angebotsliste',

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

  'rfq_list'                    => 'anfragenliste',

  'sales_order_list'            => 'auftragsliste',

  'create_subtotal_row'         => 'create_subtotal_row',

  'export_as_csv'               => 'export_as_csv',

  'export_as_pdf'               => 'export_as_pdf',

  'report_generator_do'         => 'report_generator_do',

  'als_csv_exportieren'         => 'export_as_csv',

  'als_pdf_exportieren'         => 'export_as_pdf',

<TMPL_IF SHOW_CONTINUE_BUTTON>

 Neuer Auftrag<br>

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

</TMPL_IF>

 <input type="hidden" name="nextsub" value="edit">

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

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

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

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

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

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

</form>

<TMPL_IF SHOW_CONTINUE_BUTTON>

 <translate>New sales order</translate><br>

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

</TMPL_IF>

 <input type="hidden" name="nextsub" value="edit">

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

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

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

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

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

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

</form>

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

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