Beim Rechnungsbericht eine Spalte "Typ" anzeigen, in der R für Rechnung, S für Storno...

diff --git a/SL/AR.pm b/SL/AR.pm
index b4c0ae1..3240fb7 100644 (file)
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -411,7 +411,7 @@ sub ar_transactions {
   my $query = qq|SELECT a.id, a.invnumber, a.ordnumber, a.transdate,
                  a.duedate, a.netamount, a.amount, a.paid, c.name,
                 a.invoice, a.datepaid, a.terms, a.notes, a.shipvia,
-                a.shippingpoint,
+                a.shippingpoint, a.storno,
                 e.name AS employee
                 FROM ar a
              JOIN customer c ON (a.customer_id = c.id)

diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index 540a4f1..3b45404 100644 (file)
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -1296,9 +1296,11 @@ sub ar_transactions {
   }
 
   @columns = $form->sort_columns(
-    qw(transdate id invnumber ordnumber name netamount tax amount paid datepaid due duedate notes employee shippingpoint shipvia)
+    qw(transdate id type invnumber ordnumber name netamount tax amount paid datepaid due duedate notes employee shippingpoint shipvia)
   );
 
+  $form->{"l_type"} = "Y";
+
   foreach $item (@columns) {
     if ($form->{"l_$item"} eq "Y") {
       push @column_index, $item;
@@ -1326,6 +1328,8 @@ sub ar_transactions {
       "<th><a class=listheading href=$href&sort=duedate>"
     . $locale->text('Due Date')
     . "</a></th>";
+  $column_header{type} =
+      "<th class=\"listheading\">" . $locale->text('Type') . "</th>";
   $column_header{invnumber} =
       "<th><a class=listheading href=$href&sort=invnumber>"
     . $locale->text('Invoice')
@@ -1452,6 +1456,11 @@ sub ar_transactions {
 
     $column_data{invnumber} =
       "<td><a href=$module?action=edit&id=$ar->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ar->{invnumber}</a></td>";
+    $column_data{type} = "<td>" .
+      ($ar->{storno} ? $locale->text("Storno (one letter abbreviation)") :
+       $ar->{amount} < 0 ?
+       $locale->text("Credit note (one letter abbreviation)") :
+       $locale->text("Invoice (one letter abbreviation)")) . "</td>";
     $column_data{ordnumber} = "<td>$ar->{ordnumber}&nbsp;</td>";
     $column_data{name}      = "<td>$ar->{name}</td>";
     $ar->{notes} =~ s/\r\n/<br>/g;

diff --git a/locale/de/all b/locale/de/all
index 64dd52c..9b9ef45 100644 (file)
--- a/locale/de/all
+++ b/locale/de/all
@@ -264,6 +264,7 @@ aktualisieren wollen?',
   'Credit Note Number'          => 'Gutschriftnummer',
   'Credit Tax'                  => 'Umsatzsteuer',
   'Credit Tax Account'          => 'Umsatzsteuerkonto',
+  'Credit note (one letter abbreviation)' => 'G',
   'Curr'                        => 'Währung',
   'Currency'                    => 'Währung',
   'Current'                     => 'Betrag',
@@ -526,6 +527,7 @@ gestartet',
   'Invno.'                      => 'Rg. Nr.',
   'Invnumber'                   => 'Rechnungsnummer',
   'Invoice'                     => 'Rechnung',
+  'Invoice (one letter abbreviation)' => 'R',
   'Invoice Date'                => 'Rechnungsdatum',
   'Invoice Date missing!'       => 'Rechnungsdatum fehlt!',
   'Invoice Duedate'             => 'Fälligkeitsdatum',
@@ -924,6 +926,7 @@ gestartet',
   'Stock'                       => 'einlagern',
   'Stock Assembly'              => 'Erzeugnis einlagern',
   'Storno'                      => 'Storno',
+  'Storno (one letter abbreviation)' => 'S',
   'Storno Invoice'              => 'Stornorechnung',
   'Storno Packing List'         => 'Stornolieferschein',
   'Straße'                      => 'Straße',
@@ -962,7 +965,6 @@ gestartet',
   'The database update/creation did not succeed. The file <TMPL_VAR file ESCAPE=HTML> contained the following error:' => 'Die Datenbankaktualisierung/erstellung schlug fehl. Die Datei <TMPL_VAR file ESCAPE=HTML> enthielt den folgenden Fehler:',
   'The database upgrade for the introduction of Buchungsgruppen is now complete.' => 'Das Datenbankupgrade f&uuml;r die Einf&uuml;hrung von Buchungsgruppen ist jetzt beendet.',
   'The database upgrade for the introduction of units is now complete.' => 'Das Datenbankupgrade zwecks Einf&uuml;hrung von Einheiten ist nun beendet.',
-  'The dunning process is started' => '',
   'The dunning process started' => 'Der Mahnprozess ist gestartet.',
   'The factor is missing in row %d.' => 'Der Faktor fehlt in Zeile %d.',
   'The factor is missing.'      => 'Der Faktor fehlt.',
@@ -1009,6 +1011,7 @@ gestartet',
   'Transfer Inventory'          => 'Ware umlagern',
   'Transfer to'                 => 'umlagern nach',
   'Trial Balance'               => 'Saldenbilanz',
+  'Type'                        => 'Typ',
   'Type of Business'            => 'Kundentyp',
   'USTVA-Hint: Method'          => 'Wenn Sie Ist-Versteuert sind, wählen Sie die Einnahmen-/Überschuß-Rechnung aus. Sind Sie Soll-Versteuert und bilanzverpflichtet, dann wählen Sie Bilanz aus.',
   'USTVA-Hint: Tax Authoritys'  => 'Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zuständigen Finanzamts auswählen.',

diff --git a/locale/de/ar b/locale/de/ar
index 06ba33a..03434d1 100644 (file)
--- a/locale/de/ar
+++ b/locale/de/ar
@@ -21,6 +21,7 @@ $self->{texts} = {
   'Confirm!'                    => 'Bestätigen Sie!',
   'Continue'                    => 'Weiter',
   'Credit Limit'                => 'Kreditlimit',
+  'Credit note (one letter abbreviation)' => 'G',
   'Currency'                    => 'Währung',
   'Customer'                    => 'Kunde',
   'Customer missing!'           => 'Kundenname fehlt!',
@@ -46,6 +47,7 @@ $self->{texts} = {
   'Include in Report'           => 'In Bericht aufnehmen',
   'Incoming Payments'           => 'Zahlungseingänge',
   'Invoice'                     => 'Rechnung',
+  'Invoice (one letter abbreviation)' => 'R',
   'Invoice Date'                => 'Rechnungsdatum',
   'Invoice Date missing!'       => 'Rechnungsdatum fehlt!',
   'Invoice Number'              => 'Rechnungsnummer',
@@ -85,6 +87,7 @@ $self->{texts} = {
   'Ship via'                    => 'Transportmittel',
   'Shipping Point'              => 'Versandort',
   'Source'                      => 'Beleg',
+  'Storno (one letter abbreviation)' => 'S',
   'Subtotal'                    => 'Zwischensumme',
   'Tax'                         => 'Steuer',
   'Tax Included'                => 'Steuer im Preis inbegriffen',
@@ -92,6 +95,7 @@ $self->{texts} = {
   'Total'                       => 'Summe',
   'Transaction deleted!'        => 'Buchung gelöscht!',
   'Transaction posted!'         => 'Buchung verbucht!',
+  'Type'                        => 'Typ',
   'Update'                      => 'Erneuern',
   'Use As Template'             => 'Als Vorlage verwenden',
   'Vendor not on file!'         => 'Lieferant ist nicht in der Datenbank!',