projekt kivitendo

use POSIX qw(strftime);

use SL::ReportGenerator;

require "bin/mozilla/report_generator.pl";

  CA->all_accounts(\%myconfig, \%$form);

  my @columns     = qw(accno description debit credit);

  my %column_defs = (

    'accno'       => { 'text' => $locale->text('Account'), },

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

    'debit'       => { 'text' => $locale->text('Debit'), },

    'credit'      => { 'text' => $locale->text('Credit'), },

  );

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

  $report->set_options('output_format'         => 'HTML',

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

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

                       'std_column_visibility' => 1,

    );

  $report->set_options_from_form();

  $report->set_columns(%column_defs);

  $report->set_column_order(@columns);

  $report->set_export_options('chart_of_accounts');

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

  my %totals = ('debit' => 0, 'credit' => 0);

  foreach my $ca (@{ $form->{CA} }) {

    my $row = { };

    foreach (qw(debit credit)) {

      $totals{$_} += $ca->{$_} * 1;

      $ca->{$_}    = $form->format_amount(\%myconfig, $ca->{$_}, 2) if ($ca->{$_});

    map { $row->{$_} = { 'data' => $ca->{$_} } } @columns;

    map { $row->{$_}->{align} = 'right'       } qw(debit credit);

    map { $row->{$_}->{class} = 'listheading' } @columns if ($ca->{charttype} eq "H");

    $row->{accno}->{link} = build_std_url('action=list', 'accno=' . E($ca->{accno}), 'description=' . E($ca->{description}));

    $report->add_data($row);

  }

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

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

  $report->add_separator();

  $report->add_data($row);

  $report->generate_with_headers();

  $form->{title} = $locale->text('Account') . " $form->{accno} - $form->{description}";

  CA->all_transactions(\%myconfig, \%$form);

  my @options;

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

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

    push @options, $locale->text('Project Number') . " : $form->{projectnumber}<br>";

  my $period;

    my ($fromdate, $todate);

    $period = "$fromdate - $todate";

    $period = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);

  push @options, $period;

  my @columns     = qw(transdate reference description debit credit balance);

  my %column_defs = (

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

    'reference'   => { 'text' => $locale->text('Reference'), },

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

    'debit'       => { 'text' => $locale->text('Debit'), },

    'credit'      => { 'text' => $locale->text('Credit'), },

    'balance'     => { 'text' => $locale->text('Balance'), },

  );

  my %column_alignment = map { $_ => 'right' } qw(debit credit balance);

  my @hidden_variables = qw(accno fromdate todate description accounttype l_heading l_subtotal department projectnumber project_id sort);

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

  map { $column_defs{$_}->{link} = $link . "&sort=$_" } qw(transdate reference description);

  $form->{callback} = $link . '&sort=' . E($form->{sort});

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

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

                       'output_format'         => 'HTML',

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

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

                       'std_column_visibility' => 1,

    );

  $report->set_options_from_form();

  $report->set_columns(%column_defs);

  $report->set_column_order(@columns);

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

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

  $column_defs->{balance}->{visible} = $form->{accno} ? 1 : 0;

  my $ml = ($form->{category} =~ /(A|E)/) ? -1 : 1;

  if ($form->{accno} && $form->{balance}) {

    my $row = {

      'balance' => {

        'data'  => $form->format_amount(\%myconfig, $form->{balance} * $ml, 2),

        'align' => 'right',

      },

    };

    $report->add_data($row);

  my $idx       = 0;

  my %totals    = ( 'debit' => 0, 'credit' => 0 );

  my %subtotals = ( 'debit' => 0, 'credit' => 0 );

  foreach my $ca (@{ $form->{CA} }) {

    $form->{balance} += $ca->{amount};

    foreach (qw(debit credit)) {

      $subtotals{$_} += $ca->{$_};

      $totals{$_}    += $ca->{$_};

      $ca->{$_}       = $form->format_amount(\%myconfig, $ca->{$_}, 2) if ($ca->{$_} != 0);

    $ca->{balance} = $form->format_amount(\%myconfig, $form->{balance} * $ml, 2);

    my $row = { };

    foreach (@columns) {

      $row->{$_} = {

        'data'  => $ca->{$_},

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

      };

    }

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

    $report->add_data($row);

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

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

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

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

    }

    $idx++;

  }

  $report->add_data($row_set) if ($row_set);

  $report->add_separator();

  my $row = create_subtotal_row(\%totals, \@columns, \%column_alignment, 'listtotal');

  $row->{balance}->{data} = $form->format_amount(\%myconfig, $form->{balance} * $ml, 2);

  $report->add_data($row);

  $report->generate_with_headers();

sub create_subtotal_row {

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

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

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

  map { $totals->{$_} = 0 } qw(debit credit);

  return $row;

  'chart_of_accounts'           => 'kontenuebersicht',

  'list_of_transactions'        => 'buchungsliste',

  'ADDED'                       => 'Hinzugef?gt',

  'Bin List'                    => 'Lagerliste',

  'CANCELED'                    => 'Storniert',

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

  'Confirmation'                => 'Auftragsbest?tigung',

  '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.',

  'Credit Note'                 => 'Gutschrift',

  'DELETED'                     => 'Gel?scht',

  'DUNNING STARTED'             => 'Mahnprozess gestartet',

  'Dataset upgrade'             => 'Datenbankaktualisierung',

  'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',

  'ELSE'                        => 'Zusatz',

  'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

  'Invoice'                     => 'Rechnung',

  'MAILED'                      => 'Gesendet',

  'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.',

  'Missing \'tag\' field.'      => 'Fehlendes Feld \'tag\'.',

  'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.',

  'PAYMENT POSTED'              => 'Rechung gebucht',

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

  'POSTED'                      => 'Gebucht',

  'POSTED AS NEW'               => 'Als neu gebucht',

  'PRINTED'                     => 'Gedruckt',

  'Packing List'                => 'Lieferschein',

  'Pick List'                   => 'Sammelliste',

  'Proforma Invoice'            => 'Proformarechnung',

  'Purchase Order'              => 'Lieferantenauftrag',

  'Quotation'                   => 'Angebot',

  'RFQ'                         => 'Anfrage',

  'SAVED'                       => 'Gespeichert',

  'SAVED FOR DUNNING'           => 'Gespeichert',

  'SCREENED'                    => 'Angezeigt',

  'Storno Invoice'              => 'Stornorechnung',

  'Storno Packing List'         => 'Stornolieferschein',

  'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.',

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

  'Unknown dependency \'%s\'.'  => 'Unbekannte Abhängigkeit \'%s\'.',

  'bin_list'                    => 'Lagerliste',

  'chart_of_accounts'           => 'kontenuebersicht',

  'invoice'                     => 'Rechnung',

  'list_of_transactions'        => 'buchungsliste',

  'packing_list'                => 'Versandliste',

  'pick_list'                   => 'Entnahmeliste',

  'proforma'                    => 'Proforma',

  'purchase_order'              => 'Auftrag',

  '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.',

  'request_quotation'           => 'Angebotsanforderung',

  'sales_order'                 => 'Kundenauftrag',

  'sales_quotation'             => 'Verkaufsangebot',

  'create_subtotal_row'         => 'create_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',

  'weiter'                      => 'continue',