Revision 18da4a96
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
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
report_generator.pl in reportgenerator.pl umbenannt.