Revision 8e08bedb
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
SL/DN.pm | ||
---|---|---|
457 | 457 |
push(@values, $form->{minamount}); |
458 | 458 |
} |
459 | 459 |
|
460 |
$query = |
|
460 |
my $query =
|
|
461 | 461 |
qq|SELECT id |
462 | 462 |
FROM dunning_config |
463 | 463 |
WHERE dunning_level = (SELECT MAX(dunning_level) FROM dunning_config)|; |
... | ... | |
512 | 512 |
|
513 | 513 |
$form->{DUNNINGS} = []; |
514 | 514 |
|
515 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
|
515 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
|
516 | 516 |
next if ($ref->{pastdue} < $ref->{terms}); |
517 | 517 |
|
518 | 518 |
$ref->{interest} = $form->round_amount($ref->{interest}, 2); |
... | ... | |
537 | 537 |
# connect to database |
538 | 538 |
my $dbh = $form->dbconnect($myconfig); |
539 | 539 |
|
540 |
$where = qq| WHERE (da.trans_id = a.id)|; |
|
540 |
my $where = qq| WHERE (da.trans_id = a.id)|;
|
|
541 | 541 |
|
542 | 542 |
my @values; |
543 | 543 |
|
... | ... | |
663 | 663 |
$form->error($main::locale->text('Could not spawn the printer command.')) unless $out; |
664 | 664 |
|
665 | 665 |
} else { |
666 |
my $dunning_filename = $form->get_formname_translation('dunning'); |
|
666 | 667 |
$out = IO::File->new('>-'); |
667 | 668 |
$out->print(qq|Content-Type: Application/PDF\n| . |
668 |
qq|Content-Disposition: attachment; filename="dunning_${dunning_id}.pdf"\n\n|);
|
|
669 |
qq|Content-Disposition: attachment; filename="${dunning_filename}_${dunning_id}.pdf"\n\n|);
|
|
669 | 670 |
} |
670 | 671 |
|
671 | 672 |
while (my $line = <$in>) { |
... | ... | |
712 | 713 |
|
713 | 714 |
my $sth = prepare_execute_query($form, $dbh, $query, $dunning_id); |
714 | 715 |
my $first = 1; |
715 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
|
716 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
|
716 | 717 |
if ($first) { |
717 | 718 |
$form->{TEMPLATE_ARRAYS} = {}; |
718 | 719 |
map({ $form->{TEMPLATE_ARRAYS}->{"dn_$_"} = []; } keys(%{$ref})); |
... | ... | |
737 | 738 |
LEFT JOIN contacts co ON (ar.cp_id = co.cp_id) |
738 | 739 |
WHERE (d.dunning_id = ?) |
739 | 740 |
LIMIT 1|; |
740 |
$ref = selectfirst_hashref_query($form, $dbh, $query, $dunning_id); |
|
741 |
my $ref = selectfirst_hashref_query($form, $dbh, $query, $dunning_id);
|
|
741 | 742 |
map { $form->{$_} = $ref->{$_} } keys %{ $ref }; |
742 | 743 |
|
743 | 744 |
$query = |
... | ... | |
832 | 833 |
FROM ar |
833 | 834 |
LEFT JOIN customer c ON (ar.customer_id = c.id) |
834 | 835 |
WHERE ar.id = ?|; |
835 |
$ref = selectfirst_hashref_query($form, $dbh, $query, $ar_id); |
|
836 |
my $ref = selectfirst_hashref_query($form, $dbh, $query, $ar_id);
|
|
836 | 837 |
map { $form->{$_} = $ref->{$_} } keys %{ $ref }; |
837 | 838 |
|
838 | 839 |
$query = qq|SELECT * FROM employee WHERE login = ?|; |
SL/Form.pm | ||
---|---|---|
1395 | 1395 |
storno_packing_list => $main::locale->text('Storno Packing List'), |
1396 | 1396 |
sales_delivery_order => $main::locale->text('Delivery Order'), |
1397 | 1397 |
purchase_delivery_order => $main::locale->text('Delivery Order'), |
1398 |
dunning => $main::locale->text('Dunning'), |
|
1398 | 1399 |
); |
1399 | 1400 |
|
1400 | 1401 |
$main::lxdebug->leave_sub(); |
locale/de/acctranscorrections | ||
---|---|---|
60 | 60 |
'Delivery Order' => 'Lieferschein', |
61 | 61 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
62 | 62 |
'Directory' => 'Verzeichnis', |
63 |
'Dunning' => 'Mahnung', |
|
63 | 64 |
'ELSE' => 'Zusatz', |
64 | 65 |
'Enter longdescription' => 'Langtext eingeben', |
65 | 66 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
locale/de/admin | ||
---|---|---|
75 | 75 |
'Delivery Order' => 'Lieferschein', |
76 | 76 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
77 | 77 |
'Directory' => 'Verzeichnis', |
78 |
'Dunning' => 'Mahnung', |
|
78 | 79 |
'ELSE' => 'Zusatz', |
79 | 80 |
'Edit User' => 'Benutzerdaten bearbeiten', |
80 | 81 |
'Edit group membership' => 'Gruppenmitgliedschaften bearbeiten', |
locale/de/am | ||
---|---|---|
147 | 147 |
'Description missing!' => 'Beschreibung fehlt.', |
148 | 148 |
'Directory' => 'Verzeichnis', |
149 | 149 |
'Discount' => 'Rabatt', |
150 |
'Dunning' => 'Mahnung', |
|
150 | 151 |
'ELSE' => 'Zusatz', |
151 | 152 |
'Edit' => 'Bearbeiten', |
152 | 153 |
'Edit Account' => 'Kontodaten bearbeiten', |
locale/de/amcvar | ||
---|---|---|
57 | 57 |
'Delivery Order' => 'Lieferschein', |
58 | 58 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
59 | 59 |
'Directory' => 'Verzeichnis', |
60 |
'Dunning' => 'Mahnung', |
|
60 | 61 |
'ELSE' => 'Zusatz', |
61 | 62 |
'Edit custom variable' => 'Benutzerdefinierte Variable bearbeiten', |
62 | 63 |
'Enter longdescription' => 'Langtext eingeben', |
locale/de/amtemplates | ||
---|---|---|
59 | 59 |
'Delivery Order' => 'Lieferschein', |
60 | 60 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
61 | 61 |
'Directory' => 'Verzeichnis', |
62 |
'Dunning' => 'Mahnung', |
|
62 | 63 |
'ELSE' => 'Zusatz', |
63 | 64 |
'Edit templates' => 'Vorlage bearbeiten', |
64 | 65 |
'Edit the stylesheet' => 'Stilvorlage bearbeiten', |
locale/de/arap | ||
---|---|---|
60 | 60 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
61 | 61 |
'Description' => 'Beschreibung', |
62 | 62 |
'Directory' => 'Verzeichnis', |
63 |
'Dunning' => 'Mahnung', |
|
63 | 64 |
'ELSE' => 'Zusatz', |
64 | 65 |
'Enter longdescription' => 'Langtext eingeben', |
65 | 66 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
locale/de/bp | ||
---|---|---|
64 | 64 |
'Delivery Order' => 'Lieferschein', |
65 | 65 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
66 | 66 |
'Directory' => 'Verzeichnis', |
67 |
'Dunning' => 'Mahnung', |
|
67 | 68 |
'ELSE' => 'Zusatz', |
68 | 69 |
'Enter longdescription' => 'Langtext eingeben', |
69 | 70 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
locale/de/ca | ||
---|---|---|
74 | 74 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
75 | 75 |
'Description' => 'Beschreibung', |
76 | 76 |
'Directory' => 'Verzeichnis', |
77 |
'Dunning' => 'Mahnung', |
|
77 | 78 |
'EB-Wert' => 'EB-Wert', |
78 | 79 |
'ELSE' => 'Zusatz', |
79 | 80 |
'EUR' => 'E/?-Rechnung', |
locale/de/common | ||
---|---|---|
56 | 56 |
'Delivery Order' => 'Lieferschein', |
57 | 57 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
58 | 58 |
'Directory' => 'Verzeichnis', |
59 |
'Dunning' => 'Mahnung', |
|
59 | 60 |
'ELSE' => 'Zusatz', |
60 | 61 |
'Enter longdescription' => 'Langtext eingeben', |
61 | 62 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
locale/de/cp | ||
---|---|---|
72 | 72 |
'Description' => 'Beschreibung', |
73 | 73 |
'Directory' => 'Verzeichnis', |
74 | 74 |
'Due' => 'F?llig', |
75 |
'Dunning' => 'Mahnung', |
|
75 | 76 |
'ELSE' => 'Zusatz', |
76 | 77 |
'Enter longdescription' => 'Langtext eingeben', |
77 | 78 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
locale/de/datev | ||
---|---|---|
68 | 68 |
'Delivery Order' => 'Lieferschein', |
69 | 69 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
70 | 70 |
'Directory' => 'Verzeichnis', |
71 |
'Dunning' => 'Mahnung', |
|
71 | 72 |
'ELSE' => 'Zusatz', |
72 | 73 |
'Enter longdescription' => 'Langtext eingeben', |
73 | 74 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
locale/de/drafts | ||
---|---|---|
58 | 58 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
59 | 59 |
'Directory' => 'Verzeichnis', |
60 | 60 |
'Draft saved.' => 'Entwurf gespeichert.', |
61 |
'Dunning' => 'Mahnung', |
|
61 | 62 |
'ELSE' => 'Zusatz', |
62 | 63 |
'Enter longdescription' => 'Langtext eingeben', |
63 | 64 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
locale/de/generictranslations | ||
---|---|---|
51 | 51 |
'Delivery Order' => 'Lieferschein', |
52 | 52 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
53 | 53 |
'Directory' => 'Verzeichnis', |
54 |
'Dunning' => 'Mahnung', |
|
54 | 55 |
'ELSE' => 'Zusatz', |
55 | 56 |
'Edit greetings' => 'Anreden bearbeiten', |
56 | 57 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
locale/de/licenses | ||
---|---|---|
65 | 65 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
66 | 66 |
'Description' => 'Beschreibung', |
67 | 67 |
'Directory' => 'Verzeichnis', |
68 |
'Dunning' => 'Mahnung', |
|
68 | 69 |
'ELSE' => 'Zusatz', |
69 | 70 |
'Enter longdescription' => 'Langtext eingeben', |
70 | 71 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
locale/de/pe | ||
---|---|---|
62 | 62 |
'Delivery Order' => 'Lieferschein', |
63 | 63 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
64 | 64 |
'Directory' => 'Verzeichnis', |
65 |
'Dunning' => 'Mahnung', |
|
65 | 66 |
'ELSE' => 'Zusatz', |
66 | 67 |
'Edit Group' => 'Warengruppe editieren', |
67 | 68 |
'Edit Pricegroup' => 'Preisgruppe bearbeiten', |
locale/de/projects | ||
---|---|---|
62 | 62 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
63 | 63 |
'Description' => 'Beschreibung', |
64 | 64 |
'Directory' => 'Verzeichnis', |
65 |
'Dunning' => 'Mahnung', |
|
65 | 66 |
'ELSE' => 'Zusatz', |
66 | 67 |
'Edit Project' => 'Projekt bearbeiten', |
67 | 68 |
'Enter longdescription' => 'Langtext eingeben', |
locale/de/rc | ||
---|---|---|
65 | 65 |
'Difference' => 'Differenz', |
66 | 66 |
'Directory' => 'Verzeichnis', |
67 | 67 |
'Done' => 'Fertig', |
68 |
'Dunning' => 'Mahnung', |
|
68 | 69 |
'ELSE' => 'Zusatz', |
69 | 70 |
'Enter longdescription' => 'Langtext eingeben', |
70 | 71 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
locale/de/reportgenerator | ||
---|---|---|
53 | 53 |
'Delivery Order' => 'Lieferschein', |
54 | 54 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
55 | 55 |
'Directory' => 'Verzeichnis', |
56 |
'Dunning' => 'Mahnung', |
|
56 | 57 |
'ELSE' => 'Zusatz', |
57 | 58 |
'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s', |
58 | 59 |
'File' => 'Datei', |
locale/de/rp | ||
---|---|---|
95 | 95 |
'Description' => 'Beschreibung', |
96 | 96 |
'Directory' => 'Verzeichnis', |
97 | 97 |
'Due' => 'F?llig', |
98 |
'Dunning' => 'Mahnung', |
|
98 | 99 |
'E-mail' => 'eMail', |
99 | 100 |
'E-mail Statement to' => 'F?lligkeitsabrechnung als eMail an', |
100 | 101 |
'ELSE' => 'Zusatz', |
locale/de/ustva | ||
---|---|---|
74 | 74 |
'Delivery Order' => 'Lieferschein', |
75 | 75 |
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:', |
76 | 76 |
'Directory' => 'Verzeichnis', |
77 |
'Dunning' => 'Mahnung', |
|
77 | 78 |
'ELSE' => 'Zusatz', |
78 | 79 |
'ELSTER Export (Taxbird)' => 'ELSTER-Export nach Taxbird', |
79 | 80 |
'ELSTER Export (Winston)' => 'ELSTER Export nach Winston', |
Auch abrufbar als: Unified diff
Mahnsystem - mehr Variablen exportieren
Ausserdem strict fixes.