Revision f3a5bf8a
Von Martin Helmling vor fast 8 Jahren hinzugefügt
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 54 | 54 |
my $translation_list = GenericTranslations->list(translation_type => 'sepa_remittance_info_pfx'); |
| 55 | 55 |
my %translations = map { ( ($_->{language_id} || 'default') => $_->{translation} ) } @{ $translation_list };
|
| 56 | 56 |
my $current_date = DateTime->today_local; |
| 57 |
|
|
| 57 |
my %sorted_invoices; |
|
| 58 |
my $sec = 0; |
|
| 59 |
|
|
| 58 | 60 |
foreach my $invoice (@{ $invoices }) {
|
| 59 | 61 |
my $prefix = $translations{ $invoice->{language_id} } || $translations{default} || $::locale->text('Invoice');
|
| 60 | 62 |
$prefix .= ' ' unless $prefix =~ m/ $/; |
| ... | ... | |
| 66 | 68 |
my $prefix_vc_number = $translations{ $invoice->{language_id} } || $translations{default} || $vc_no;
|
| 67 | 69 |
$prefix_vc_number .= ' ' unless $prefix_vc_number =~ m/ $/; |
| 68 | 70 |
$invoice->{reference_prefix_vc} = ' ' . $prefix_vc_number unless $prefix_vc_number =~ m/^ /;
|
| 69 |
} |
|
| 70 | 71 |
|
| 72 |
my $vc_prefix = $invoice->{vc_number} eq '' ? ''
|
|
| 73 |
: $vc eq 'customer' ? $translations{ $invoice->{language_id} } || $translations{default} || ' ' . $::locale->text('Ven.nr.') . ' '
|
|
| 74 |
: $translations{ $invoice->{language_id} } || $translations{default} || ' ' . $::locale->text('Cust.nr.') . ' ';
|
|
| 75 |
$invoice->{vc_prefix} = $vc_prefix;
|
|
| 76 |
|
|
| 77 |
# Check due date for SEPA bank collections. |
|
| 78 |
if ((DateTime->from_kivitendo($invoice->{duedate}) < $current_date) && ($vc eq 'customer')) {
|
|
| 79 |
$invoice->{vc_bank_info_ok} = '2' if $invoice->{vc_bank_info_ok};
|
|
| 80 |
} |
|
| 81 |
$invoice->{duedate} = $invoice->{transdate} if !$invoice->{duedate};
|
|
| 82 |
$invoice->{is_before_today} = 0;
|
|
| 83 |
if ( $invoice->{within_skonto_period} ) {
|
|
| 84 |
$invoice->{is_before_today} = 1 if DateTime->from_kivitendo($invoice->{skonto_date}) <= $current_date;
|
|
| 85 |
$sorted_invoices{DateTime->from_kivitendo($invoice->{skonto_date})->add_duration(DateTime::Duration->new(seconds => $sec))} = $invoice;
|
|
| 86 |
} else {
|
|
| 87 |
$invoice->{is_before_today} = 1 if DateTime->from_kivitendo($invoice->{duedate}) <= $current_date;
|
|
| 88 |
$sorted_invoices{DateTime->from_kivitendo($invoice->{duedate})->add_duration(DateTime::Duration->new(seconds => $sec))} = $invoice;
|
|
| 89 |
} |
|
| 90 |
$sec++; |
|
| 91 |
} |
|
| 92 |
my $newinvoices; |
|
| 93 |
@{ $newinvoices } = map { $sorted_invoices{$_} } sort keys %sorted_invoices;
|
|
| 71 | 94 |
$::request->layout->use_javascript('js/kivi.Sepa.js');
|
| 72 | 95 |
|
| 73 | 96 |
$form->header(); |
| 74 | 97 |
print $form->parse_html_template('sepa/bank_transfer_add',
|
| 75 |
{ 'INVOICES' => $invoices,
|
|
| 98 |
{ 'INVOICES' => $newinvoices,
|
|
| 76 | 99 |
'BANK_ACCOUNTS' => $bank_accounts, |
| 77 | 100 |
'vc' => $vc, |
| 78 | 101 |
'show_empty' => $show_empty, |
Auch abrufbar als: Unified diff
SEPA-Überweisungen: GUI-Verbesserung #2
1. Sortierung der Liste nach Fälligkeitsdatum:
- Für Rechnungen deren Skonto-Datum nicht überschritten wurde wird als Fälligkeitsdatum das Skontodatum verwendet
und die Rechnung entsprechend dort einsortiert, unter den Zahlungsbedingungen wird dann auch das Fälligkeitsdatum ohne Skonto angezeigt
- Für Rechnungen deren Skonto-Datum überschritten wurde - nur nach Fälligkeitsdatum wie gehabt
2. Aktivieren/Deaktivieren der Checkbox durch anklicken der ganzen Zeile
3. Einblenden der Summe der Überweisungsbeträge (oben), permanente Aktualisierung der Summe
3.1 bei Checkbox Änderung (auch alle An/Aus)
3.2 bei Betragänderung
3.3 bei Auswahl anderer Skontobedingung
4. Bankkonto-Auswahl in einer Zeile unterbringen, dazu
- Text Ändern in "Bankkonto als Quelle für Überweisungen:" (bei Bankeinzügen: Bankkonto als Ziel für Einzüge)
- danach Pulldownliste ohne Zeilenumbruch dazwischen
- "Überweisungsbetrag" weiter nach Rechts, ca. in Höhe von der Spalte "Überweisungsbetrag"
5. Spaltenüberschrift "Überweisungs-betrag" kürzen in "Zahlungs-Betrag", Spaltenbreite verringert.
6. Optische Erkennung durch Grünfärbung der Buchungen bis aktuellem Termin
7. In "Schritt Zwei" - (Überprüfung der Kontoinformationen):
- Spalte Kontoinhaber passt sich dynamisch der Breite von Lieferant an
-- Herausnahme des Setzens der Zahlungsbedingungen
fix #4483