From 9c8450d924f0318190cf451a533e1ff883a2fa16 Mon Sep 17 00:00:00 2001 From: Niclas Zimmermann Date: Thu, 14 Mar 2013 13:51:51 +0100 Subject: [PATCH] Erstelle Tabelle currencies MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Für das Upgrade currencies ist es nötig, dass alle Leerzeichen am Anfang und Ende jeder Währung entfernt werden. Dafür sorgt das Upgrade rm_whitespaces.pl. Währungen durch einen Eintrag mit Doppelpunkten zu speichern ist umständlich und unsicher. Dafür wird nun eine eigene Tabelle erstellt. Die neue Tabelle currencies erhält 2 Spalten id und curr. Alle bisherigen Spalten, in der die Währung gespeichert wurde, zeigen nun auf die id. Die Spalte curr ist ein Textfeld und sollte ein Kürzel der Währung enthalten (z.B. EUR). Die Spalte curr in der defaults enthält nun nur noch die Standard- währung. Dieses Feld sollte IMMER gefüllt sein und kann nach erstellen der Datenbank nicht geändert werden. --- SL/AM.pm | 22 ++ locale/de/all | 12 + sql/Pg-upgrade2/currencies.pl | 239 ++++++++++++++++++ sql/Pg-upgrade2/rm_whitespaces.pl | 53 ++++ templates/webpages/am/edit_defaults.html | 17 +- .../dbupgrade/no_default_currency.html | 16 ++ .../dbupgrade/orphaned_currencies.html | 43 ++++ 7 files changed, 397 insertions(+), 5 deletions(-) create mode 100644 sql/Pg-upgrade2/currencies.pl create mode 100644 sql/Pg-upgrade2/rm_whitespaces.pl create mode 100644 templates/webpages/dbupgrade/no_default_currency.html create mode 100644 templates/webpages/dbupgrade/orphaned_currencies.html diff --git a/SL/AM.pm b/SL/AM.pm index 591f580b7..61441faec 100644 --- a/SL/AM.pm +++ b/SL/AM.pm @@ -1287,6 +1287,28 @@ sub defaultaccounts { } $sth->finish; + + #Get currencies: + $query = qq|SELECT curr FROM currencies ORDER BY id|; + + $form->{CURRENCIES} = []; + + $sth = prepare_execute_query($form, $dbh, $query); + $sth->execute || $form->dberror($query); + while (my $ref = $sth->fetchrow_hashref("NAME_lc")) { + push @{ $form->{ CURRENCIES } } , $ref; + } + $sth->finish; + + #Which of them is the default currency? + $query = qq|SELECT curr AS defaultcurrency FROM currencies WHERE id = (SELECT curr FROM defaults LIMIT 1);|; + $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); + + $form->{defaultcurrency} = ($sth->fetchrow_hashref("NAME_lc"))->{defaultcurrency}; + + $sth->finish; + $dbh->disconnect; $main::lxdebug->leave_sub(); diff --git a/locale/de/all b/locale/de/all index 5abb99c1d..301e00179 100644 --- a/locale/de/all +++ b/locale/de/all @@ -18,6 +18,7 @@ $self->{texts} = { '#1 h' => '#1 h', '#1 of #2 importable objects were imported.' => '#1 von #2 importierbaren Objekten wurden importiert.', '#1 prices were updated.' => '#1 Preise wurden aktualisiert.', + '(recommended) Insert the used currencies in the system. You can simply change the name of the currencies by editing the textfields above. Do not use a name of a currency that is already in use.' => '(empfohlen) Fügen Sie die verwaisten Währungen in Ihr System ein. Sie können den Namen der Währung einfach ändern, indem Sie die Felder oben bearbeiten. Benutzen Sie keine Namen von Währungen, die Sie bereits benutzen.', '* there are restrictions for the perpetual method, look at chapter "Bemerkungen zu Bestandsmethode" in' => ' für die Bestandsmethode gibt es Einschränkungen, siehe Kapitel "Bemerkungen zu Bestandsmethode" in', '*) Since version 2.7 these parameters ares set in the client database and not in the configuration file, details in chapter:' => '*) Seit 2.7 werden Gewinnermittlungsart, Versteuerungsart und Warenbuchungsmethode in der Mandanten-DB gesteuert und nicht mehr in der Konfigurationsdatei, Umstellungs-Details:', '*/' => '*/', @@ -315,6 +316,7 @@ $self->{texts} = { 'Both' => 'Beide', 'Bottom' => 'Unten', 'Bought' => 'Gekauft', + 'Break up the update and contact a service provider.' => 'Diese Option bricht das Update ab. Bitte kontaktieren Sie Ihren Administrator oder beauftragen einen Dienstleister.', 'Buchungsdatum' => 'Buchungsdatum', 'Buchungsgruppe' => 'Buchungsgruppe', 'Buchungsgruppe (database ID)' => 'Buchungsgruppe (Datenbank-ID)', @@ -923,6 +925,7 @@ $self->{texts} = { 'Fristsetzung' => 'Fristsetzung', 'From' => 'Von', 'From Date' => 'Von', + 'From this version on it is necessary to name a default value.' => 'Ab dieser Version benötigt kivitendo eine Standardwährung.', 'From this version on the taxkey 0 must have a tax rate of 0 (for DATEV compatibility).' => 'Ab dieser Version muss der Steuerschlüssel 0 einen Steuersatz von 0% haben (auf Grund der DATEV-Kompatibilität).', 'Full Access' => 'Vollzugriff', 'Full Preview' => 'Alles', @@ -1270,6 +1273,7 @@ $self->{texts} = { 'No data was found.' => 'Es wurden keine Daten gefunden.', 'No databases have been found on this server.' => 'Auf diesem Server wurden keine Datenbanken gefunden.', 'No datasets have been selected.' => 'Es wurden keine Datenbanken ausgewählt.', + 'No default currency' => 'Keine Standardwährung', 'No department has been created yet.' => 'Es wurde noch keine Abteilung erfasst.', 'No dunnings have been selected for printing.' => 'Es wurden keine Mahnungen zum Drucken ausgewählt.', 'No entries were found which had no unit assigned to them.' => 'Es wurden keine Einträge gefunden, denen keine Einheit zugeordnet war.', @@ -1355,6 +1359,7 @@ $self->{texts} = { 'Orders / Delivery Orders deleteable' => 'Aufträge / Lieferscheine löschbar', 'Orientation' => 'Seitenformat', 'Orphaned' => 'Nie benutzt', + 'Orphaned currencies' => 'Verwaiste Währungen', 'Other users\' follow-ups' => 'Wiedervorlagen anderer Benutzer', 'Other values are ignored.' => 'Andere Eingaben werden ignoriert.', 'Others' => 'Andere', @@ -1435,6 +1440,7 @@ $self->{texts} = { 'Please contact your administrator.' => 'Bitte wenden Sie sich an Ihren Administrator.', 'Please define a taxkey for the following taxes and run the update again:' => 'Bitte definieren Sie einen Steuerschlüssel für die folgenden Steuern und starten Sie dann das Update erneut:', 'Please enter a profile name.' => 'Bitte geben Sie einen Profilnamen an.', + 'Please enter the currency you are working with.' => 'Bitte geben Sie die Währung an, mit der Sie arbeiten.', 'Please enter the login for the new user.' => 'Bitte geben Sie das Login für den neuen Benutzer ein.', 'Please enter the name of the database that will be used as the template for the new database:' => 'Bitte geben Sie den Namen der Datenbank an, die als Vorlage für die neue Datenbank benutzt wird:', 'Please enter the name of the dataset you want to restore the backup in.' => 'Bitte geben Sie den Namen der Datenbank ein, in der Sie die Sicherung wiederherstellen wollen.', @@ -1596,6 +1602,7 @@ $self->{texts} = { 'Removed spoolfiles!' => 'Druckdateien entfernt!', 'Removing marked entries from queue ...' => 'Markierte Einträge werden von der Warteschlange entfernt ...', 'Rename the group' => 'Gruppe umbenennen', + 'Replace the orphaned currencies by other not orphaned currencies. To do so, please delete the currency in the textfields above and replace it by another currency. You could loose or change unintentionally exchangerates. Go on very carefully since you could destroy transactions.' => 'Ersetze die Währungen durch andere gültige Währungen. Wenn Sie sich hierfür entscheiden, ersetzen Sie bitte alle Währungen, die oben angegeben sind, durch Währungen, die in Ihrem System ordnungsgemäß eingetragen sind. Alle eingetragenen Wechselkurse für die verwaiste Währung werden dabei gelöscht. Bitte gehen Sie sehr vorsichtig vor, denn die betroffenen Buchungen können unter Umständen kaputt gehen.', 'Report Positions' => 'Berichte', 'Report about warehouse contents' => 'Lagerbestand anzeigen', 'Report about warehouse transactions' => 'Lagerbuchungen anzeigen', @@ -1901,6 +1908,7 @@ $self->{texts} = { 'Text variables: \'MAXLENGTH=n\' sets the maximum entry length to \'n\'.' => 'Textzeilen: \'MAXLENGTH=n\' setzt eine Maximallänge von n Zeichen.', 'Text, text field and number variables: The default value will be used as-is.' => 'Textzeilen, Textfelder und Zahlenvariablen: Der Standardwert wird so wie er ist übernommen.', 'That export does not exist.' => 'Dieser Export existiert nicht.', + 'That is why kivitendo could not find a default currency.' => 'Daher konnte kivitendo keine Standardwährung finden.', 'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.', 'The AP transaction #1 has been deleted.' => 'Die Kreditorenbuchung #1 wurde gelöscht.', 'The AR transaction #1 has been deleted.' => 'Die Debitorenbuchung #1 wurde gelöscht.', @@ -1980,6 +1988,7 @@ $self->{texts} = { 'The follow-up date is missing.' => 'Das Wiedervorlagedatum fehlt.', 'The following Buchungsgruppen have already been created:' => 'Die folgenden Buchungsgruppen wurden bereits angelegt:', 'The following Datasets need to be updated' => 'Folgende Datenbanken müssen aktualisiert werden', + 'The following currencies have been used, but they are not defined:' => 'Die folgenden Währungen wurden benutzt, sind aber nicht ordnungsgemäß in der Datenbank eingetragen:', 'The following drafts have been saved and can be loaded.' => 'Die folgenden Entwürfe wurden gespeichert und können geladen werden.', 'The following old files whose settings have to be merged manually into the new configuration file "config/kivitendo.conf" still exist:' => 'Es existieren noch die folgenden alten Dateien, deren Einstellungen manuell in die neue Konfiguratsdatei "config/kivitendo.conf" migriert werden müssen:', 'The following transaction contains wrong taxes:' => 'Die folgende Buchung enthält falsche Steuern:', @@ -2084,8 +2093,10 @@ $self->{texts} = { 'There are no entries in the background job history.' => 'Es gibt keine Einträge im Hintergrund-Job-Verlauf.', 'There are no items in stock.' => 'Dieser Artikel ist nicht eingelagert.', 'There are no items on your TODO list at the moment.' => 'Ihre Aufgabenliste enthält momentan keine Einträge.', + 'There are several options you can handle this problem, please select one:' => 'Bitte wählen Sie eine der folgenden Optionen, um mit dem Problem umzugehen:', 'There are still entries in the database for which no unit has been assigned.' => 'Es gibt noch Einträge in der Datenbank, für die keine Einheit zugeordnet ist.', 'There are still transfers not matching the qty of the delivery order. Stock operations can not be changed later. Do you really want to proceed?' => 'Einige der Lagerbewegungen sind nicht vollständig und Lagerbewegungen können nachträglich nicht mehr verändert werden. Wollen Sie wirklich fortfahren?', + 'There are undefined currencies in your system.' => 'In Ihrer Datenbank wurden Währungen benutzt, die nicht ordnungsgemäß in den Währungen eingetragen wurden.', 'There are usually three ways to install Perl modules.' => 'Es gibt normalerweise drei Arten, ein Perlmodul zu installieren.', 'There is already a taxkey 0 with tax rate not 0.' => 'Es existiert bereits ein Steuerschlüssel mit Steuersatz ungleich 0%.', 'There is an inconsistancy in your database.' => 'In Ihrer Datenbank sind Unstimmigkeiten vorhanden.', @@ -2315,6 +2326,7 @@ $self->{texts} = { 'You cannot create an invoice for delivery orders from different vendors.' => 'Sie können keine Rechnung aus Lieferscheinen von verschiedenen Lieferanten erstellen.', 'You do not have the permissions to access this function.' => 'Sie verfügen nicht über die notwendigen Rechte, um auf diese Funktion zuzugreifen.', 'You have entered or selected the following shipping address for this customer:' => 'Sie haben die folgende Lieferadresse eingegeben oder ausgewählt:', + 'You have never worked with currencies.' => 'Sie haben noch nie mit Währungen gearbeitet.', 'You have not added bank accounts yet.' => 'Sie haben noch keine Bankkonten angelegt.', 'You have not selected any delivery order.' => 'Sie haben keinen Lieferschein ausgewählt.', 'You have not selected any export.' => 'Sie haben keinen Export ausgewählt.', diff --git a/sql/Pg-upgrade2/currencies.pl b/sql/Pg-upgrade2/currencies.pl new file mode 100644 index 000000000..2497be983 --- /dev/null +++ b/sql/Pg-upgrade2/currencies.pl @@ -0,0 +1,239 @@ +# @tag: currencies +# @description: Erstellt neue Tabelle currencies. Währungen können dann einfacher eingegeben und unkritisch geändert werden. +# @depends: release_3_0_0 rm_whitespaces +# @charset: utf-8 + +use utf8; +use strict; + +die("This script cannot be run from the command line.") unless ($main::form); + +sub mydberror { + my ($msg) = @_; + die($dbup_locale->text("Database update error:") . "
$msg
" . $DBI::errstr); +} + +sub do_query { + my ($query, $may_fail) = @_; + + if (!$dbh->do($query)) { + mydberror($query) unless ($may_fail); + $dbh->rollback(); + $dbh->begin_work(); + } +} + + +sub do_update { + #Check wheather default currency exists + my $query = qq|SELECT curr FROM defaults|; + my ($currencies) = $dbh->selectrow_array($query); + + if (length($currencies) == 0 and length($main::form->{defaultcurrency}) == 0){ + print_no_default_currency(); + return 2; + } else { + if (length($main::form->{defaultcurrency}) == 0){ + $main::form->{defaultcurrency} = (split m/:/, $currencies)[0]; + } + } + my @currency_array = grep {$_ ne '' } split m/:/, $currencies; + + $query = qq|SELECT DISTINCT curr FROM ar + UNION + SELECT DISTINCT curr FROM ap + UNION + SELECT DISTINCT curr FROM oe + UNION + SELECT DISTINCT curr FROM customer + UNION + SELECT DISTINCT curr FROM delivery_orders + UNION + SELECT DISTINCT curr FROM exchangerate + UNION + SELECT DISTINCT curr FROM vendor|; + + my $sth = $dbh->prepare($query); + $sth->execute || $self->dberror($query); + + $main::form->{ORPHANED_CURRENCIES} = []; + my $is_orphaned; + my $rowcount = 0; + while (my $ref = $sth->fetchrow_hashref("NAME_lc")) { + next unless length($ref->{curr}) > 0; + $is_orphaned = 1; + foreach my $key (split(/:/, $currencies)) { + if ($ref->{curr} eq $key) { + $is_orphaned = 0; + last; + } + } + if ($is_orphaned) { + push @{ $main::form->{ORPHANED_CURRENCIES} }, $ref; + $main::form->{ORPHANED_CURRENCIES}[$rowcount]->{name} = "curr_$rowcount"; + $rowcount++; + } + } + + $sth->finish; + + if (scalar @{ $main::form->{ORPHANED_CURRENCIES} } > 0 and not ($main::form->{continue_options})) { + print_orphaned_currencies(); + return 2; + } + + if ($main::form->{continue_options} eq 'break_up') { + return 0; + } + + if ($main::form->{continue_options} eq 'insert') { + for my $i (0..($rowcount-1)){ + push @currency_array, $form->{"curr_$i"}; + } + create_and_fill_table(@currency_array); + return 1; + } + + my $still_orphaned; + if ($main::form->{continue_options} eq 'replace') { + for my $i (0..($rowcount - 1)){ + $still_orphaned = 1; + for my $item (@currency_array){ + if ($main::form->{"curr_$i"} eq $item){ + $still_orphaned = 0; + $query = qq|DELETE FROM exchangerate WHERE curr = '| . $main::form->{"old_curr_$i"} . qq|'|; + do_query($query); + $query = qq|UPDATE ap SET curr = '| . $main::form->{"curr_$i"} . qq|' WHERE curr = '| . $main::form->{"old_curr_$i"} . qq|'|; + do_query($query); + $query = qq|UPDATE ar SET curr = '| . $main::form->{"curr_$i"} . qq|' WHERE curr = '| . $main::form->{"old_curr_$i"} . qq|'|; + do_query($query); + $query = qq|UPDATE oe SET curr = '| . $main::form->{"curr_$i"} . qq|' WHERE curr = '| . $main::form->{"old_curr_$i"} . qq|'|; + do_query($query); + $query = qq|UPDATE customer SET curr = '| . $main::form->{"curr_$i"} . qq|' WHERE curr = '| . $main::form->{"old_curr_$i"} . qq|'|; + do_query($query); + $query = qq|UPDATE delivery_orders SET curr = '| . $main::form->{"curr_$i"} . qq|' WHERE curr = '| . $main::form->{"old_curr_$i"} . qq|'|; + do_query($query); + $query = qq|UPDATE vendor SET curr = '| . $main::form->{"curr_$i"} . qq|' WHERE curr = '| . $main::form->{"old_curr_$i"} . qq|'|; + do_query($query); + last; + } + } + if ($still_orphaned){ + $main::form->{continue_options} = ''; + return do_update(); + } + } + create_and_fill_table(@currency_array); + return 1; + } + + #No orphaned currencies, so create table: + create_and_fill_table(@currency_array); + return 1; +}; # end do_update + +sub create_and_fill_table { + #Create an fill table currencies: + my $query = qq|CREATE TABLE currencies (id INTEGER DEFAULT nextval(('id'::text)::regclass) UNIQUE NOT NULL, curr TEXT PRIMARY KEY)|; + do_query($query); + foreach my $item ( @_ ) { + $query = qq|INSERT INTO currencies (curr) VALUES ('| . $item . qq|')|; + do_query($query); + } + + #Set default currency if no currency was chosen: + $query = qq|UPDATE ap SET curr = '| . $main::form->{"defaultcurrency"} . qq|' WHERE curr IS NULL or curr='';|; + $query .= qq|UPDATE ar SET curr = '| . $main::form->{"defaultcurrency"} . qq|' WHERE curr IS NULL or curr='';|; + $query .= qq|UPDATE oe SET curr = '| . $main::form->{"defaultcurrency"} . qq|' WHERE curr IS NULL or curr='';|; + $query .= qq|UPDATE customer SET curr = '| . $main::form->{"defaultcurrency"} . qq|' WHERE curr IS NULL or curr='';|; + $query .= qq|UPDATE delivery_orders SET curr = '| . $main::form->{"defaultcurrency"} . qq|' WHERE curr IS NULL or curr='';|; + $query .= qq|UPDATE vendor SET curr = '| . $main::form->{"defaultcurrency"} . qq|' WHERE curr IS NULL or curr='';|; + $query .= qq|DELETE FROM exchangerate WHERE curr IS NULL or curr='';|; + do_query($query); + + #Check wheather defaultcurrency is already in table currencies: + $query = qq|SELECT curr FROM currencies WHERE curr = '| . $main::form->{defaultcurrency} . qq|'|; + my ($insert_default) = $dbh->selectrow_array($query); + + if (!$insert_default) { + $query = qq|INSERT INTO currencies (curr) VALUES ('| . $main::form->{defaultcurrency} . qq|')|; + do_query($query); + } + + #Create a new columns currency and update with curr.id: + $query = qq|ALTER TABLE ap ADD currency INTEGER; + ALTER TABLE ar ADD currency INTEGER; + ALTER TABLE oe ADD currency INTEGER; + ALTER TABLE customer ADD currency INTEGER; + ALTER TABLE delivery_orders ADD currency INTEGER; + ALTER TABLE exchangerate ADD currency INTEGER; + ALTER TABLE vendor ADD currency INTEGER; + ALTER TABLE defaults ADD currency INTEGER;|; + do_query($query); + #Set defaultcurrency: + $query = qq|UPDATE defaults SET currency= (SELECT id FROM currencies WHERE curr = '| . $main::form->{defaultcurrency} . qq|')|; + do_query($query); + $query = qq|UPDATE ap SET currency = (SELECT id FROM currencies c WHERE c.curr = ap.curr); + UPDATE ar SET currency = (SELECT id FROM currencies c WHERE c.curr = ar.curr); + UPDATE oe SET currency = (SELECT id FROM currencies c WHERE c.curr = oe.curr); + UPDATE customer SET currency = (SELECT id FROM currencies c WHERE c.curr = customer.curr); + UPDATE delivery_orders SET currency = (SELECT id FROM currencies c WHERE c.curr = delivery_orders.curr); + UPDATE exchangerate SET currency = (SELECT id FROM currencies c WHERE c.curr = exchangerate.curr); + UPDATE vendor SET currency = (SELECT id FROM currencies c WHERE c.curr = vendor.curr);|; + do_query($query); + + #Drop column 'curr': + $query = qq|ALTER TABLE ap DROP COLUMN curr; + ALTER TABLE ar DROP COLUMN curr; + ALTER TABLE oe DROP COLUMN curr; + ALTER TABLE customer DROP COLUMN curr; + ALTER TABLE delivery_orders DROP COLUMN curr; + ALTER TABLE exchangerate DROP COLUMN curr; + ALTER TABLE vendor DROP COLUMN curr; + ALTER TABLE defaults DROP COLUMN curr;|; + do_query($query); + + #Rename currency to curr: + $query = qq|ALTER TABLE defaults RENAME COLUMN currency TO curr; + ALTER TABLE ap RENAME COLUMN currency TO curr; + ALTER TABLE ar RENAME COLUMN currency TO curr; + ALTER TABLE oe RENAME COLUMN currency TO curr; + ALTER TABLE customer RENAME COLUMN currency TO curr; + ALTER TABLE delivery_orders RENAME COLUMN currency TO curr; + ALTER TABLE exchangerate RENAME COLUMN currency TO curr; + ALTER TABLE vendor RENAME COLUMN currency TO curr;|; + do_query($query); + + #Set NOT NULL constraints: + $query = qq|ALTER TABLE ap ALTER COLUMN curr SET NOT NULL; + ALTER TABLE ar ALTER COLUMN curr SET NOT NULL; + ALTER TABLE oe ALTER COLUMN curr SET NOT NULL; + ALTER TABLE customer ALTER COLUMN curr SET NOT NULL; + ALTER TABLE delivery_orders ALTER COLUMN curr SET NOT NULL; + ALTER TABLE exchangerate ALTER COLUMN curr SET NOT NULL; + ALTER TABLE vendor ALTER COLUMN curr SET NOT NULL; + ALTER TABLE defaults ALTER COLUMN curr SET NOT NULL;|; + do_query($query); + + #Set foreign keys: + $query = qq|ALTER TABLE ap ADD FOREIGN KEY (curr) REFERENCES currencies(id); + ALTER TABLE ar ADD FOREIGN KEY (curr) REFERENCES currencies(id); + ALTER TABLE oe ADD FOREIGN KEY (curr) REFERENCES currencies(id); + ALTER TABLE customer ADD FOREIGN KEY (curr) REFERENCES currencies(id); + ALTER TABLE delivery_orders ADD FOREIGN KEY (curr) REFERENCES currencies(id); + ALTER TABLE exchangerate ADD FOREIGN KEY (curr) REFERENCES currencies(id); + ALTER TABLE vendor ADD FOREIGN KEY (curr) REFERENCES currencies(id); + ALTER TABLE defaults ADD FOREIGN KEY (curr) REFERENCES currencies(id);|; + do_query($query); + +}; + +sub print_no_default_currency { + print $main::form->parse_html_template("dbupgrade/no_default_currency"); +}; + +sub print_orphaned_currencies { + print $main::form->parse_html_template("dbupgrade/orphaned_currencies"); +}; + +return do_update(); diff --git a/sql/Pg-upgrade2/rm_whitespaces.pl b/sql/Pg-upgrade2/rm_whitespaces.pl new file mode 100644 index 000000000..51d2395ef --- /dev/null +++ b/sql/Pg-upgrade2/rm_whitespaces.pl @@ -0,0 +1,53 @@ +# @tag: rm_whitespaces +# @description: Entfernt mögliche Leerzeichen am Anfang und Ende jeder Währung +# @depends: release_3_0_0 +# @charset: utf-8 + +use utf8; +use strict; + +die("This script cannot be run from the command line.") unless ($main::form); + +sub mydberror { + my ($msg) = @_; + die($dbup_locale->text("Database update error:") . "
$msg
" . $DBI::errstr); +} + +sub do_query { + my ($query, $may_fail) = @_; + + if (!$dbh->do($query)) { + mydberror($query) unless ($may_fail); + $dbh->rollback(); + $dbh->begin_work(); + } +} + + +sub do_update { + my $query = qq|UPDATE ar SET curr = RTRIM(LTRIM(curr))|; + do_query($query); + $query = qq|UPDATE ap SET curr = RTRIM(LTRIM(curr))|; + do_query($query); + $query = qq|UPDATE oe SET curr = RTRIM(LTRIM(curr))|; + do_query($query); + $query = qq|UPDATE customer SET curr = RTRIM(LTRIM(curr))|; + do_query($query); + $query = qq|UPDATE delivery_orders SET curr = RTRIM(LTRIM(curr))|; + do_query($query); + $query = qq|UPDATE exchangerate SET curr = RTRIM(LTRIM(curr))|; + do_query($query); + $query = qq|UPDATE vendor SET curr = RTRIM(LTRIM(curr))|; + do_query($query); + + $query = qq|SELECT curr FROM defaults|; + my ($curr) = selectrow_query($self, $dbh, $query); + + $curr =~ s/ //g; + + $query = qq|UPDATE defaults SET curr = '$curr'|; + do_query($query); + return 1; +}; + +return do_update(); diff --git a/templates/webpages/am/edit_defaults.html b/templates/webpages/am/edit_defaults.html index 36033dbdf..82c1c4546 100644 --- a/templates/webpages/am/edit_defaults.html +++ b/templates/webpages/am/edit_defaults.html @@ -137,8 +137,18 @@ - [% 'Currencies' | $T8 %] (1) - + [% 'Default currency' | $T8 %] + [% HTML.escape(defaultcurrency) %] + + + + + [% 'Currencies' | $T8 %] + [% FOREACH row = CURRENCIES %] + + [% END %] + + @@ -205,8 +215,5 @@
-

- (1) [% 'Enter the abbreviations separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies' | $T8 %] - [% 'IMPORTANT NOTE: You cannot safely change currencies, IF you have already booking entries!' | $T8 %]

diff --git a/templates/webpages/dbupgrade/no_default_currency.html b/templates/webpages/dbupgrade/no_default_currency.html new file mode 100644 index 000000000..e5bbe5d69 --- /dev/null +++ b/templates/webpages/dbupgrade/no_default_currency.html @@ -0,0 +1,16 @@ +[%- USE T8 %] +[% USE HTML %]
[% 'No default currency' | $T8 %]
+ +
+ + +

[% 'You have never worked with currencies.' | $T8 %]

+

[% 'That is why kivitendo could not find a default currency.' | $T8 %]

+

[% 'From this version on it is necessary to name a default value.' | $T8 %]

+

[% 'Please enter the currency you are working with.' | $T8 %]

+ + + + +
+ diff --git a/templates/webpages/dbupgrade/orphaned_currencies.html b/templates/webpages/dbupgrade/orphaned_currencies.html new file mode 100644 index 000000000..ef613d03c --- /dev/null +++ b/templates/webpages/dbupgrade/orphaned_currencies.html @@ -0,0 +1,43 @@ +[%- USE T8 %] +[%- USE L %] +[% USE HTML %]
[% 'Orphaned currencies' | $T8 %]
+ +
+ + + +

[% 'There are undefined currencies in your system.' | $T8 %]

+

[% 'The following currencies have been used, but they are not defined:' | $T8 %]

+[% FOREACH row = ORPHANED_CURRENCIES %] +
+ +[% END %] +

[% 'There are several options you can handle this problem, please select one:' | $T8 %]

+ + + + + + +
+[% L.radio_button_tag('continue_options', + value => 'insert', + disabled => 0, + checked => 0) %] + [% '(recommended) Insert the used currencies in the system. You can simply change the name of the currencies by editing the textfields above. Do not use a name of a currency that is already in use.' | $T8 %]
+[% L.radio_button_tag('continue_options', + value => 'replace', + disabled => 0, + checked => 0) %] + [% 'Replace the orphaned currencies by other not orphaned currencies. To do so, please delete the currency in the textfields above and replace it by another currency. You could loose or change unintentionally exchangerates. Go on very carefully since you could destroy transactions.' | $T8 %]
+[% L.radio_button_tag('continue_options', + value => 'break_up', + disabled => 0, + checked => 0) %] + [% 'Break up the update and contact a service provider.' | $T8 %] +
+ + + +
+ -- 2.20.1