projekt kivitendo

  $form->{sort} = $sortorder;

use CGI::Ajax;

use POSIX qw(strftime);

use SL::CT;

use SL::ReportGenerator;

require "bin/mozilla/reportgenerator.pl";

  $form->{IS_CUSTOMER} = $form->{db} eq 'customer';

  CT->search(\%myconfig, \%$form);

  my @options;

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

  } elsif ($form->{status} eq 'orphaned') {

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

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

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

    push @options, $locale->text('Number') . qq| : $form->{"$form->{db}number"}|;

    push @options, $locale->text('E-mail') . " : $form->{email}";

  my @columns = (

    'id',        'name',  "$form->{db}number", 'address',  'contact',  'phone',

    'fax',       'email', 'taxnumber',         'sic_code', 'business', 'invnumber',

    'ordnumber', 'quonumber'

  );

  my %column_defs = (

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

    "$form->{db}number" => { 'text' => $form->{IS_CUSTOMER} ? $locale->text('Customer Number') : $locale->text('Vendor Number'), },

    'name'              => { 'text' => $locale->text('Name'), },

    'address'           => { 'text' => $locale->text('Address'), },

    'contact'           => { 'text' => $locale->text('Contact'), },

    'phone'             => { 'text' => $locale->text('Phone'), },

    'fax'               => { 'text' => $locale->text('Fax'), },

    'email'             => { 'text' => $locale->text('E-mail'), },

    'cc'                => { 'text' => $locale->text('Cc'), },

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

    'sic_code'          => { 'text' => $locale->text('SIC'), },

    'business'          => { 'text' => $locale->text('Type of Business'), },

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

    'ordnumber'         => { 'text' => $form->{IS_CUSTOMER} ? $locale->text('Sales Order') : $locale->text('Purchase Order'), },

    'quonumber'         => { 'text' => $form->{IS_CUSTOMER} ? $locale->text('Quotation')   : $locale->text('Request for Quotation'), },

  );

  map { $column_defs{$_}->{visible} = $form->{"l_$_"} eq 'Y' } @columns;

  my @hidden_variables  = (qw(db status obsolete), map { "l_$_" } @columns);

  my @hidden_nondefault = grep({ $form->{$_} } @hidden_variables);

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

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

  map { $column_defs{$_}->{link} = "${callback}&sort=${_}" } @columns;

  my ($ordertype, $quotationtype, $attachment_basename);

  if ($form->{IS_CUSTOMER}) {

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

    $ordertype           = 'sales_order';

    $quotationtype       = 'sales_quotation';

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

  } else {

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

    $ordertype           = 'purchase_order';

    $quotationtype       = 'request_quotation';

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

  }

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

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

                       'raw_bottom_info_text'  => $form->parse_html_template2('ct/list_names_bottom'),

                       'output_format'         => 'HTML',

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

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

    );

  $report->set_options_from_form();

  $report->set_columns(%column_defs);

  $report->set_column_order(@columns);

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

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

  my $previous_id;

  foreach my $ref (@{ $form->{CT} }) {

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

    if ($ref->{id} ne $previous_id) {

      $previous_id = $ref->{id};

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

      $row->{name}->{link}  = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback', @hidden_nondefault);

      $row->{email}->{link} = 'mailto:' . E($ref->{email});

    my $base_url              = build_std_url("script=$ref->{module}.pl", 'action=edit', 'id=' . E($ref->{invid}), 'callback', @hidden_nondefault);

    $row->{invnumber}->{link} = $base_url;

    $row->{ordnumber}->{link} = $base_url . "&type=${ordertype}";

    $row->{quonumber}->{link} = $base_url . "&type=${quotationtype}";

    my $column                = $ref->{formtype} eq 'invoice' ? 'invnumber' : $ref->{formtype} eq 'order' ? 'ordnumber' : 'quonumber';

    $row->{$column}->{data}   = $ref->{$column};

    $report->add_data($row);

  $report->generate_with_headers();

  'New customer'                => 'Neuer Kunde',

  'New vendor'                  => 'Neuer Lieferante',

  'customer_list'               => 'kundenliste',

  'vendor_list'                 => 'lieferantenliste',

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

  'Request for Quotation'       => 'Anfrage',

  'Sales Order'                 => 'Kundenauftrag',

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

  'customer_list'               => 'kundenliste',

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

  'vendor_list'                 => 'lieferantenliste',

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

[% USE HTML %]<form method="post" action="ct.pl">

 <input name="callback" type="hidden" value="[% HTML.escape(callback) %]">

 <input name="db" type="hidden" value="[% HTML.escape(db) %]">

 <input name="login" type="hidden" value="[% HTML.escape(login) %]">

 <input name="password" type="hidden" value="[% HTML.escape(password) %]">

 [% IF IS_CUSTOMER %]Neuer Kunde[% ELSE %]Neuer Lieferante[% END %]<br>

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

</form>

[% USE HTML %]<form method="post" action="ct.pl">

 <input name="callback" type="hidden" value="[% HTML.escape(callback) %]">

 <input name="db" type="hidden" value="[% HTML.escape(db) %]">

 <input name="login" type="hidden" value="[% HTML.escape(login) %]">

 <input name="password" type="hidden" value="[% HTML.escape(password) %]">

 [% IF IS_CUSTOMER %]<translate>New customer</translate>[% ELSE %]<translate>New vendor</translate>[% END %]<br>

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

</form>