Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 8e08bedb

Von Sven Schöling vor mehr als 15 Jahren hinzugefügt

  • ID 8e08bedb4b4bfb97adcb4f4eb94a60012ca3729b
  • Vorgänger fa7a78e6
  • Nachfolger 20bb56c1

Mahnsystem - mehr Variablen exportieren

Ausserdem strict fixes.

Unterschiede anzeigen:

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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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&auml;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