From 8e08bedb4b4bfb97adcb4f4eb94a60012ca3729b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Thu, 2 Jul 2009 16:49:06 +0200 Subject: [PATCH] Mahnsystem - mehr Variablen exportieren Ausserdem strict fixes. --- SL/DN.pm | 15 ++++++++------- SL/Form.pm | 1 + locale/de/acctranscorrections | 1 + locale/de/admin | 1 + locale/de/am | 1 + locale/de/amcvar | 1 + locale/de/amtemplates | 1 + locale/de/arap | 1 + locale/de/bp | 1 + locale/de/ca | 1 + locale/de/common | 1 + locale/de/cp | 1 + locale/de/datev | 1 + locale/de/drafts | 1 + locale/de/generictranslations | 1 + locale/de/licenses | 1 + locale/de/pe | 1 + locale/de/projects | 1 + locale/de/rc | 1 + locale/de/reportgenerator | 1 + locale/de/rp | 1 + locale/de/ustva | 1 + 22 files changed, 29 insertions(+), 7 deletions(-) diff --git a/SL/DN.pm b/SL/DN.pm index bd4b5092f..a325766cd 100644 --- a/SL/DN.pm +++ b/SL/DN.pm @@ -457,7 +457,7 @@ sub get_invoices { push(@values, $form->{minamount}); } - $query = + my $query = qq|SELECT id FROM dunning_config WHERE dunning_level = (SELECT MAX(dunning_level) FROM dunning_config)|; @@ -512,7 +512,7 @@ sub get_invoices { $form->{DUNNINGS} = []; - while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { + while (my $ref = $sth->fetchrow_hashref("NAME_lc")) { next if ($ref->{pastdue} < $ref->{terms}); $ref->{interest} = $form->round_amount($ref->{interest}, 2); @@ -537,7 +537,7 @@ sub get_dunning { # connect to database my $dbh = $form->dbconnect($myconfig); - $where = qq| WHERE (da.trans_id = a.id)|; + my $where = qq| WHERE (da.trans_id = a.id)|; my @values; @@ -663,9 +663,10 @@ sub melt_pdfs { $form->error($main::locale->text('Could not spawn the printer command.')) unless $out; } else { + my $dunning_filename = $form->get_formname_translation('dunning'); $out = IO::File->new('>-'); $out->print(qq|Content-Type: Application/PDF\n| . - qq|Content-Disposition: attachment; filename="dunning_${dunning_id}.pdf"\n\n|); + qq|Content-Disposition: attachment; filename="${dunning_filename}_${dunning_id}.pdf"\n\n|); } while (my $line = <$in>) { @@ -712,7 +713,7 @@ sub print_dunning { my $sth = prepare_execute_query($form, $dbh, $query, $dunning_id); my $first = 1; - while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { + while (my $ref = $sth->fetchrow_hashref("NAME_lc")) { if ($first) { $form->{TEMPLATE_ARRAYS} = {}; map({ $form->{TEMPLATE_ARRAYS}->{"dn_$_"} = []; } keys(%{$ref})); @@ -737,7 +738,7 @@ sub print_dunning { LEFT JOIN contacts co ON (ar.cp_id = co.cp_id) WHERE (d.dunning_id = ?) LIMIT 1|; - $ref = selectfirst_hashref_query($form, $dbh, $query, $dunning_id); + my $ref = selectfirst_hashref_query($form, $dbh, $query, $dunning_id); map { $form->{$_} = $ref->{$_} } keys %{ $ref }; $query = @@ -832,7 +833,7 @@ sub print_invoice_for_fees { FROM ar LEFT JOIN customer c ON (ar.customer_id = c.id) WHERE ar.id = ?|; - $ref = selectfirst_hashref_query($form, $dbh, $query, $ar_id); + my $ref = selectfirst_hashref_query($form, $dbh, $query, $ar_id); map { $form->{$_} = $ref->{$_} } keys %{ $ref }; $query = qq|SELECT * FROM employee WHERE login = ?|; diff --git a/SL/Form.pm b/SL/Form.pm index e7ee2b216..74de73833 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -1395,6 +1395,7 @@ sub get_formname_translation { storno_packing_list => $main::locale->text('Storno Packing List'), sales_delivery_order => $main::locale->text('Delivery Order'), purchase_delivery_order => $main::locale->text('Delivery Order'), + dunning => $main::locale->text('Dunning'), ); $main::lxdebug->leave_sub(); diff --git a/locale/de/acctranscorrections b/locale/de/acctranscorrections index 8f1cd2346..e1df3ce4a 100644 --- a/locale/de/acctranscorrections +++ b/locale/de/acctranscorrections @@ -60,6 +60,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Enter longdescription' => 'Langtext eingeben', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', diff --git a/locale/de/admin b/locale/de/admin index f465fb6bf..e7f4825bf 100644 --- a/locale/de/admin +++ b/locale/de/admin @@ -75,6 +75,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Edit User' => 'Benutzerdaten bearbeiten', 'Edit group membership' => 'Gruppenmitgliedschaften bearbeiten', diff --git a/locale/de/am b/locale/de/am index 4411dd69b..5ef6e8160 100644 --- a/locale/de/am +++ b/locale/de/am @@ -147,6 +147,7 @@ $self->{texts} = { 'Description missing!' => 'Beschreibung fehlt.', 'Directory' => 'Verzeichnis', 'Discount' => 'Rabatt', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Edit' => 'Bearbeiten', 'Edit Account' => 'Kontodaten bearbeiten', diff --git a/locale/de/amcvar b/locale/de/amcvar index c83bc5bfd..dc92a0c8c 100644 --- a/locale/de/amcvar +++ b/locale/de/amcvar @@ -57,6 +57,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Edit custom variable' => 'Benutzerdefinierte Variable bearbeiten', 'Enter longdescription' => 'Langtext eingeben', diff --git a/locale/de/amtemplates b/locale/de/amtemplates index 4e641b411..31e5a2ace 100644 --- a/locale/de/amtemplates +++ b/locale/de/amtemplates @@ -59,6 +59,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Edit templates' => 'Vorlage bearbeiten', 'Edit the stylesheet' => 'Stilvorlage bearbeiten', diff --git a/locale/de/arap b/locale/de/arap index f11bc5c59..d11c19e59 100644 --- a/locale/de/arap +++ b/locale/de/arap @@ -60,6 +60,7 @@ $self->{texts} = { 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Description' => 'Beschreibung', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Enter longdescription' => 'Langtext eingeben', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', diff --git a/locale/de/bp b/locale/de/bp index 43d5c3138..d6dd5714d 100644 --- a/locale/de/bp +++ b/locale/de/bp @@ -64,6 +64,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Enter longdescription' => 'Langtext eingeben', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', diff --git a/locale/de/ca b/locale/de/ca index aa49c9509..6263c83ed 100644 --- a/locale/de/ca +++ b/locale/de/ca @@ -74,6 +74,7 @@ $self->{texts} = { 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Description' => 'Beschreibung', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'EB-Wert' => 'EB-Wert', 'ELSE' => 'Zusatz', 'EUR' => 'E/Ü-Rechnung', diff --git a/locale/de/common b/locale/de/common index 7964ae7bb..291210904 100644 --- a/locale/de/common +++ b/locale/de/common @@ -56,6 +56,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Enter longdescription' => 'Langtext eingeben', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', diff --git a/locale/de/cp b/locale/de/cp index a62e3bef4..253737ed1 100644 --- a/locale/de/cp +++ b/locale/de/cp @@ -72,6 +72,7 @@ $self->{texts} = { 'Description' => 'Beschreibung', 'Directory' => 'Verzeichnis', 'Due' => 'Fällig', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Enter longdescription' => 'Langtext eingeben', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', diff --git a/locale/de/datev b/locale/de/datev index 2ec33408e..05d6a4a30 100644 --- a/locale/de/datev +++ b/locale/de/datev @@ -68,6 +68,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Enter longdescription' => 'Langtext eingeben', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', diff --git a/locale/de/drafts b/locale/de/drafts index 89362d136..368019c2b 100644 --- a/locale/de/drafts +++ b/locale/de/drafts @@ -58,6 +58,7 @@ $self->{texts} = { 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', 'Draft saved.' => 'Entwurf gespeichert.', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Enter longdescription' => 'Langtext eingeben', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', diff --git a/locale/de/generictranslations b/locale/de/generictranslations index e28593ba1..4a8720a29 100644 --- a/locale/de/generictranslations +++ b/locale/de/generictranslations @@ -51,6 +51,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Edit greetings' => 'Anreden bearbeiten', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', diff --git a/locale/de/licenses b/locale/de/licenses index 67d798a01..0f390e427 100644 --- a/locale/de/licenses +++ b/locale/de/licenses @@ -65,6 +65,7 @@ $self->{texts} = { 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Description' => 'Beschreibung', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Enter longdescription' => 'Langtext eingeben', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', diff --git a/locale/de/pe b/locale/de/pe index 39be3c59e..87f9f837b 100644 --- a/locale/de/pe +++ b/locale/de/pe @@ -62,6 +62,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Edit Group' => 'Warengruppe editieren', 'Edit Pricegroup' => 'Preisgruppe bearbeiten', diff --git a/locale/de/projects b/locale/de/projects index a7dcc2660..377188c7a 100644 --- a/locale/de/projects +++ b/locale/de/projects @@ -62,6 +62,7 @@ $self->{texts} = { 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Description' => 'Beschreibung', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Edit Project' => 'Projekt bearbeiten', 'Enter longdescription' => 'Langtext eingeben', diff --git a/locale/de/rc b/locale/de/rc index e342f370a..25e7ac072 100644 --- a/locale/de/rc +++ b/locale/de/rc @@ -65,6 +65,7 @@ $self->{texts} = { 'Difference' => 'Differenz', 'Directory' => 'Verzeichnis', 'Done' => 'Fertig', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Enter longdescription' => 'Langtext eingeben', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', diff --git a/locale/de/reportgenerator b/locale/de/reportgenerator index 11eceb9cd..abe4405ad 100644 --- a/locale/de/reportgenerator +++ b/locale/de/reportgenerator @@ -53,6 +53,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', 'File' => 'Datei', diff --git a/locale/de/rp b/locale/de/rp index e0f3e3acf..ca5aa903f 100644 --- a/locale/de/rp +++ b/locale/de/rp @@ -95,6 +95,7 @@ $self->{texts} = { 'Description' => 'Beschreibung', 'Directory' => 'Verzeichnis', 'Due' => 'Fällig', + 'Dunning' => 'Mahnung', 'E-mail' => 'eMail', 'E-mail Statement to' => 'Fälligkeitsabrechnung als eMail an', 'ELSE' => 'Zusatz', diff --git a/locale/de/ustva b/locale/de/ustva index 03a25ef47..944c5b29c 100644 --- a/locale/de/ustva +++ b/locale/de/ustva @@ -74,6 +74,7 @@ $self->{texts} = { 'Delivery Order' => 'Lieferschein', 'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', 'Directory' => 'Verzeichnis', + 'Dunning' => 'Mahnung', 'ELSE' => 'Zusatz', 'ELSTER Export (Taxbird)' => 'ELSTER-Export nach Taxbird', 'ELSTER Export (Winston)' => 'ELSTER Export nach Winston', -- 2.20.1