Revision 8e08bedb
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
|
push(@values, $form->{minamount});
|
||
|
}
|
||
|
|
||
|
$query =
|
||
|
my $query =
|
||
|
qq|SELECT id
|
||
|
FROM dunning_config
|
||
|
WHERE dunning_level = (SELECT MAX(dunning_level) FROM dunning_config)|;
|
||
| ... | ... | |
|
|
||
|
$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);
|
||
| ... | ... | |
|
# 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;
|
||
|
|
||
| ... | ... | |
|
$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>) {
|
||
| ... | ... | |
|
|
||
|
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}));
|
||
| ... | ... | |
|
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 =
|
||
| ... | ... | |
|
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 = ?|;
|
||
| SL/Form.pm | ||
|---|---|---|
|
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();
|
||
| locale/de/acctranscorrections | ||
|---|---|---|
|
'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',
|
||
| locale/de/admin | ||
|---|---|---|
|
'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',
|
||
| locale/de/am | ||
|---|---|---|
|
'Description missing!' => 'Beschreibung fehlt.',
|
||
|
'Directory' => 'Verzeichnis',
|
||
|
'Discount' => 'Rabatt',
|
||
|
'Dunning' => 'Mahnung',
|
||
|
'ELSE' => 'Zusatz',
|
||
|
'Edit' => 'Bearbeiten',
|
||
|
'Edit Account' => 'Kontodaten bearbeiten',
|
||
| locale/de/amcvar | ||
|---|---|---|
|
'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',
|
||
| locale/de/amtemplates | ||
|---|---|---|
|
'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',
|
||
| locale/de/arap | ||
|---|---|---|
|
'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',
|
||
| locale/de/bp | ||
|---|---|---|
|
'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',
|
||
| locale/de/ca | ||
|---|---|---|
|
'Dependency loop detected:' => 'Schleife in den Abhängigkeiten entdeckt:',
|
||
|
'Description' => 'Beschreibung',
|
||
|
'Directory' => 'Verzeichnis',
|
||
|
'Dunning' => 'Mahnung',
|
||
|
'EB-Wert' => 'EB-Wert',
|
||
|
'ELSE' => 'Zusatz',
|
||
|
'EUR' => 'E/?-Rechnung',
|
||
| locale/de/common | ||
|---|---|---|
|
'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',
|
||
| locale/de/cp | ||
|---|---|---|
|
'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',
|
||
| locale/de/datev | ||
|---|---|---|
|
'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',
|
||
| locale/de/drafts | ||
|---|---|---|
|
'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',
|
||
| locale/de/generictranslations | ||
|---|---|---|
|
'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',
|
||
| locale/de/licenses | ||
|---|---|---|
|
'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',
|
||
| locale/de/pe | ||
|---|---|---|
|
'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',
|
||
| locale/de/projects | ||
|---|---|---|
|
'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',
|
||
| locale/de/rc | ||
|---|---|---|
|
'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',
|
||
| locale/de/reportgenerator | ||
|---|---|---|
|
'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',
|
||
| locale/de/rp | ||
|---|---|---|
|
'Description' => 'Beschreibung',
|
||
|
'Directory' => 'Verzeichnis',
|
||
|
'Due' => 'F?llig',
|
||
|
'Dunning' => 'Mahnung',
|
||
|
'E-mail' => 'eMail',
|
||
|
'E-mail Statement to' => 'F?lligkeitsabrechnung als eMail an',
|
||
|
'ELSE' => 'Zusatz',
|
||
| locale/de/ustva | ||
|---|---|---|
|
'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',
|
||
Auch abrufbar als: Unified diff
Mahnsystem - mehr Variablen exportieren
Ausserdem strict fixes.