Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 18da4a96

Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt

  • ID 18da4a96827fd65559a6f64334c3d8a313884f84
  • Vorgänger 4d8a6515
  • Nachfolger bf3cc4b6

report_generator.pl in reportgenerator.pl umbenannt.

Unterschiede anzeigen:

bin/mozilla/ap.pl
42 42
require "bin/mozilla/arap.pl";
43 43
require "bin/mozilla/common.pl";
44 44
require "bin/mozilla/drafts.pl";
45
require "bin/mozilla/report_generator.pl";
45
require "bin/mozilla/reportgenerator.pl";
46 46

  
47 47
1;
48 48

  
bin/mozilla/ar.pl
47 47
require "bin/mozilla/arap.pl";
48 48
require "bin/mozilla/common.pl";
49 49
require "bin/mozilla/drafts.pl";
50
require "bin/mozilla/report_generator.pl";
50
require "bin/mozilla/reportgenerator.pl";
51 51

  
52 52
1;
53 53

  
bin/mozilla/ca.pl
37 37
use SL::CA;
38 38
use SL::ReportGenerator;
39 39

  
40
require "bin/mozilla/report_generator.pl";
40
require "bin/mozilla/reportgenerator.pl";
41 41

  
42 42
1;
43 43

  
bin/mozilla/dn.pl
39 39
use SL::ReportGenerator;
40 40

  
41 41
require "bin/mozilla/common.pl";
42
require "bin/mozilla/report_generator.pl";
42
require "bin/mozilla/reportgenerator.pl";
43 43
require "bin/mozilla/io.pl";
44 44
require "bin/mozilla/arap.pl";
45 45

  
bin/mozilla/gl.pl
40 40

  
41 41
require "bin/mozilla/arap.pl";
42 42
require "bin/mozilla/common.pl";
43
require "bin/mozilla/report_generator.pl";
43
require "bin/mozilla/reportgenerator.pl";
44 44

  
45 45
1;
46 46

  
bin/mozilla/oe.pl
41 41

  
42 42
require "bin/mozilla/io.pl";
43 43
require "bin/mozilla/arap.pl";
44
require "bin/mozilla/report_generator.pl";
44
require "bin/mozilla/reportgenerator.pl";
45 45

  
46 46
1;
47 47

  
bin/mozilla/report_generator.pl
1
#=====================================================================
2
# LX-Office ERP
3
# Copyright (C) 2004
4
# Based on SQL-Ledger Version 2.1.9
5
# Web http://www.lx-office.org
6
######################################################################
7
#
8
# Stuff that can be used from other modules
9
#
10
######################################################################
11

  
12
use List::Util qw(max);
13

  
14
use SL::Form;
15
use SL::Common;
16
use SL::MoreCommon;
17
use SL::ReportGenerator;
18

  
19
sub report_generator_export_as_pdf {
20
  $lxdebug->enter_sub();
21

  
22
  if ($form->{report_generator_pdf_options_set}) {
23
    my $saved_form = save_form();
24

  
25
    report_generator_do('PDF');
26

  
27
    if ($form->{report_generator_printed}) {
28
      restore_form($saved_form);
29
      $form->{MESSAGE} = $locale->text('The list has been printed.');
30
      report_generator_do('HTML');
31
    }
32

  
33
    $lxdebug->leave_sub();
34
    return;
35
  }
36

  
37
  my @form_values;
38
  map { push @form_values, { 'key' => $_, 'value' => $form->{$_} } } keys %{ $form };
39

  
40
  $form->get_lists('printers' => 'ALL_PRINTERS');
41
  map { $_->{selected} = $myconfig{default_printer_id} == $_->{id} } @{ $form->{ALL_PRINTERS} };
42

  
43
  $form->{copies} = max $myconfig{copies} * 1, 1;
44

  
45
  $form->{title} = $locale->text('PDF export -- options');
46
  $form->header();
47
  print $form->parse_html_template('report_generator/pdf_export_options',
48
                                   { 'HIDDEN'         => \@form_values,
49
                                     'default_margin' => $form->format_amount(\%myconfig, 1.5),
50
                                     'SHOW_PRINTERS'  => scalar @{ $form->{ALL_PRINTERS} },
51
                                   });
52

  
53
  $lxdebug->leave_sub();
54
}
55

  
56
sub report_generator_export_as_csv {
57
  $lxdebug->enter_sub();
58

  
59
  if ($form->{report_generator_csv_options_set}) {
60
    report_generator_do('CSV');
61
    $lxdebug->leave_sub();
62
    return;
63
  }
64

  
65
  my @form_values;
66
  map { push @form_values, { 'key' => $_, 'value' => $form->{$_} } } keys %{ $form };
67

  
68
  $form->{title} = $locale->text('CSV export -- options');
69
  $form->header();
70
  print $form->parse_html_template('report_generator/csv_export_options', { 'HIDDEN' => \@form_values });
71

  
72
  $lxdebug->leave_sub();
73
}
74

  
75
sub report_generator_back {
76
  $lxdebug->enter_sub();
77

  
78
  report_generator_do('HTML');
79

  
80
  $lxdebug->leave_sub();
81
}
82

  
83
sub report_generator_do {
84
  $lxdebug->enter_sub();
85

  
86
  my $format  = shift;
87

  
88
  my $nextsub = $form->{report_generator_nextsub};
89
  if (!$nextsub) {
90
    $form->error($locale->text('report_generator_nextsub is not defined.'));
91
  }
92

  
93
  foreach my $key (split m/ +/, $form->{report_generator_variable_list}) {
94
    $form->{$key} = $form->{"report_generator_hidden_${key}"};
95
  }
96

  
97
  $form->{report_generator_output_format} = $format;
98

  
99
  delete @{$form}{map { "report_generator_$_" } qw(nextsub variable_list)};
100

  
101
  call_sub($nextsub);
102

  
103
  $lxdebug->leave_sub();
104
}
105

  
106
sub report_generator_dispatcher {
107
  $lxdebug->enter_sub();
108

  
109
  my $nextsub = $form->{report_generator_dispatch_to};
110
  if (!$nextsub) {
111
    $form->error($locale->text('report_generator_dispatch_to is not defined.'));
112
  }
113

  
114
  delete $form->{report_generator_dispatch_to};
115

  
116
  call_sub($nextsub);
117

  
118
  $lxdebug->leave_sub();
119
}
120

  
121
1;
bin/mozilla/reportgenerator.pl
1
#=====================================================================
2
# LX-Office ERP
3
# Copyright (C) 2004
4
# Based on SQL-Ledger Version 2.1.9
5
# Web http://www.lx-office.org
6
######################################################################
7
#
8
# Stuff that can be used from other modules
9
#
10
######################################################################
11

  
12
use List::Util qw(max);
13

  
14
use SL::Form;
15
use SL::Common;
16
use SL::MoreCommon;
17
use SL::ReportGenerator;
18

  
19
sub report_generator_export_as_pdf {
20
  $lxdebug->enter_sub();
21

  
22
  if ($form->{report_generator_pdf_options_set}) {
23
    my $saved_form = save_form();
24

  
25
    report_generator_do('PDF');
26

  
27
    if ($form->{report_generator_printed}) {
28
      restore_form($saved_form);
29
      $form->{MESSAGE} = $locale->text('The list has been printed.');
30
      report_generator_do('HTML');
31
    }
32

  
33
    $lxdebug->leave_sub();
34
    return;
35
  }
36

  
37
  my @form_values;
38
  map { push @form_values, { 'key' => $_, 'value' => $form->{$_} } } keys %{ $form };
39

  
40
  $form->get_lists('printers' => 'ALL_PRINTERS');
41
  map { $_->{selected} = $myconfig{default_printer_id} == $_->{id} } @{ $form->{ALL_PRINTERS} };
42

  
43
  $form->{copies} = max $myconfig{copies} * 1, 1;
44

  
45
  $form->{title} = $locale->text('PDF export -- options');
46
  $form->header();
47
  print $form->parse_html_template('report_generator/pdf_export_options',
48
                                   { 'HIDDEN'         => \@form_values,
49
                                     'default_margin' => $form->format_amount(\%myconfig, 1.5),
50
                                     'SHOW_PRINTERS'  => scalar @{ $form->{ALL_PRINTERS} },
51
                                   });
52

  
53
  $lxdebug->leave_sub();
54
}
55

  
56
sub report_generator_export_as_csv {
57
  $lxdebug->enter_sub();
58

  
59
  if ($form->{report_generator_csv_options_set}) {
60
    report_generator_do('CSV');
61
    $lxdebug->leave_sub();
62
    return;
63
  }
64

  
65
  my @form_values;
66
  map { push @form_values, { 'key' => $_, 'value' => $form->{$_} } } keys %{ $form };
67

  
68
  $form->{title} = $locale->text('CSV export -- options');
69
  $form->header();
70
  print $form->parse_html_template('report_generator/csv_export_options', { 'HIDDEN' => \@form_values });
71

  
72
  $lxdebug->leave_sub();
73
}
74

  
75
sub report_generator_back {
76
  $lxdebug->enter_sub();
77

  
78
  report_generator_do('HTML');
79

  
80
  $lxdebug->leave_sub();
81
}
82

  
83
sub report_generator_do {
84
  $lxdebug->enter_sub();
85

  
86
  my $format  = shift;
87

  
88
  my $nextsub = $form->{report_generator_nextsub};
89
  if (!$nextsub) {
90
    $form->error($locale->text('report_generator_nextsub is not defined.'));
91
  }
92

  
93
  foreach my $key (split m/ +/, $form->{report_generator_variable_list}) {
94
    $form->{$key} = $form->{"report_generator_hidden_${key}"};
95
  }
96

  
97
  $form->{report_generator_output_format} = $format;
98

  
99
  delete @{$form}{map { "report_generator_$_" } qw(nextsub variable_list)};
100

  
101
  call_sub($nextsub);
102

  
103
  $lxdebug->leave_sub();
104
}
105

  
106
sub report_generator_dispatcher {
107
  $lxdebug->enter_sub();
108

  
109
  my $nextsub = $form->{report_generator_dispatch_to};
110
  if (!$nextsub) {
111
    $form->error($locale->text('report_generator_dispatch_to is not defined.'));
112
  }
113

  
114
  delete $form->{report_generator_dispatch_to};
115

  
116
  call_sub($nextsub);
117

  
118
  $lxdebug->leave_sub();
119
}
120

  
121
1;
bin/mozilla/rp.pl
45 45

  
46 46
require "bin/mozilla/arap.pl";
47 47
require "bin/mozilla/common.pl";
48
require "bin/mozilla/report_generator.pl";
48
require "bin/mozilla/reportgenerator.pl";
49 49

  
50 50
1;
51 51

  
locale/de/all
665 665
  'List Pricegroups'            => 'Preisgruppen anzeigen',
666 666
  'List Printer'                => 'Drucker anzeigen',
667 667
  'List Transactions'           => 'Buchungsliste',
668
  'List export'                 => 'Listenexport',
669 668
  'Load draft'                  => 'Entwurf laden',
670 669
  'Local Tax Office Preferences' => 'Angaben zum Finanzamt',
671 670
  'Lock System'                 => 'System sperren',
locale/de/reportgenerator
1
$self->{texts} = {
2
  'ADDED'                       => 'Hinzugef?gt',
3
  'Bin List'                    => 'Lagerliste',
4
  'CANCELED'                    => 'Storniert',
5
  'CSV export -- options'       => 'CSV-Export -- Optionen',
6
  'Confirmation'                => 'Auftragsbest?tigung',
7
  'Could not spawn html2ps or GhostScript.' => 'html2ps oder GhostScript konnte nicht gestartet werden.',
8
  'Could not spawn the printer command.' => 'Die Druckanwendung konnte nicht gestartet werden.',
9
  'Could not write the html2ps config file.' => 'Die temporäre html2ps-Konfigurationsdatei konnte nicht geschrieben werden.',
10
  'Could not write the temporary HTML file.' => 'Eine temporäre HTML-Datei konnte nicht geschrieben werden.',
11
  'Credit Note'                 => 'Gutschrift',
12
  'DELETED'                     => 'Gel?scht',
13
  'DUNNING STARTED'             => 'Mahnprozess gestartet',
14
  'Dataset upgrade'             => 'Datenbankaktualisierung',
15
  'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
16
  'ELSE'                        => 'Zusatz',
17
  'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',
18
  'Invoice'                     => 'Rechnung',
19
  'MAILED'                      => 'Gesendet',
20
  'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.',
21
  'Missing \'tag\' field.'      => 'Fehlendes Feld \'tag\'.',
22
  'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.',
23
  'PAYMENT POSTED'              => 'Rechung gebucht',
24
  'PDF export -- options'       => 'PDF-Export -- Optionen',
25
  'POSTED'                      => 'Gebucht',
26
  'POSTED AS NEW'               => 'Als neu gebucht',
27
  'PRINTED'                     => 'Gedruckt',
28
  'Packing List'                => 'Lieferschein',
29
  'Pick List'                   => 'Sammelliste',
30
  'Proforma Invoice'            => 'Proformarechnung',
31
  'Purchase Order'              => 'Lieferantenauftrag',
32
  'Quotation'                   => 'Angebot',
33
  'RFQ'                         => 'Anfrage',
34
  'SAVED'                       => 'Gespeichert',
35
  'SAVED FOR DUNNING'           => 'Gespeichert',
36
  'SCREENED'                    => 'Angezeigt',
37
  'Storno Invoice'              => 'Stornorechnung',
38
  'Storno Packing List'         => 'Stornolieferschein',
39
  'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.',
40
  'The list has been printed.'  => 'Die Liste wurde ausgedruckt.',
41
  'Unknown dependency \'%s\'.'  => 'Unbekannte Abhängigkeit \'%s\'.',
42
  'bin_list'                    => 'Lagerliste',
43
  'invoice'                     => 'Rechnung',
44
  'packing_list'                => 'Versandliste',
45
  'pick_list'                   => 'Entnahmeliste',
46
  'proforma'                    => 'Proforma',
47
  'purchase_order'              => 'Auftrag',
48
  'report_generator_dispatch_to is not defined.' => 'report_generator_dispatch_to ist nicht definiert.',
49
  'report_generator_nextsub is not defined.' => 'report_generator_nextsub ist nicht definiert.',
50
  'request_quotation'           => 'Angebotsanforderung',
51
  'sales_order'                 => 'Kundenauftrag',
52
  'sales_quotation'             => 'Verkaufsangebot',
53
};
54

  
55
$self->{subs} = {
56
  'report_generator_back'       => 'report_generator_back',
57
  'report_generator_dispatcher' => 'report_generator_dispatcher',
58
  'report_generator_do'         => 'report_generator_do',
59
  'report_generator_export_as_csv' => 'report_generator_export_as_csv',
60
  'report_generator_export_as_pdf' => 'report_generator_export_as_pdf',
61
  'weiter'                      => 'continue',
62
};
63

  
64
1;

Auch abrufbar als: Unified diff