Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 607a8079

Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt

  • ID 607a807999fdcdbe8c15e43dd124fbe27b749651
  • Vorgänger b6966a5f
  • Nachfolger afb20e7c

Enthält Upgrade-Script für eindeutige Artikelnummern

Dieses Upgrade Script setzt einen Unique-Constraint auf die Spale
partnumer in der Tabelle parts. Falls es doppelte Artikelnummern
gibt, wird das Update abgebrochen.

Weiterhin wird ein neuer Nummernkreis für Erzeugnisse in die defaults
eingefügt.

Unterschiede anzeigen:

locale/de/all
681 681 
  'Documentation (in German)'   => 'Dokumentation',
682 682 
  'Documents in the WebDAV repository' => 'Dokumente im WebDAV-Repository',
683 683 
  'Done'                        => 'Fertig',
684 
  'Double partnumbers'          => 'Doppelte Artikelnummern',
684 685 
  'Download SEPA XML export file' => 'SEPA-XML-Exportdatei herunterladen',
685 686 
  'Download sample file'        => 'Beispieldatei herunterladen',
686 687 
  'Download the backup'         => 'Die Sicherungsdatei herunterladen',
......
923 924 
  'Fristsetzung'                => 'Fristsetzung',
924 925 
  'From'                        => 'Von',
925 926 
  'From Date'                   => 'Von',
927 
  'From this version on the partnumer of articles and assemblies have to be unique.' => 'Ab dieser Version muss die Artikelnummer eindeutig sein.',
926 928 
  '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).',
927 929 
  'Full Access'                 => 'Vollzugriff',
928 930 
  'Full Preview'                => 'Alles',
......
1384 1386 
  'Part Notes'                  => 'Bemerkungen',
1385 1387 
  'Part Number'                 => 'Artikelnummer',
1386 1388 
  'Part Number missing!'        => 'Artikelnummer fehlt!',
1389 
  'Partnumber'                  => 'Artikelnummer',
1387 1390 
  'Partnumber must not be set to empty!' => 'Die Artikelnummer darf nicht auf leer geändert werden.',
1388 1391 
  'Partnumber not unique!'      => 'Artikelnummer bereits vorhanden!',
1389 1392 
  'Parts'                       => 'Waren',
......
1431 1434 
  'Please Check the bank information for each customer:' => 'Bitte überprüfen Sie die Bankinformationen der Kunden:',
1432 1435 
  'Please Check the bank information for each vendor:' => 'Bitte überprüfen Sie die Kontoinformationen der Lieferanten:',
1433 1436 
  'Please ask your administrator to create warehouses and bins.' => 'Bitten Sie Ihren Administrator, dass er Lager und Lagerplätze anlegt.',
1437 
  'Please change the partnumber of the following parts and run the update again:' => 'Bitte ändern Sie daher die Artikelnumer folgender Artikel:',
1434 1438 
  'Please contact your administrator or a service provider.' => 'Bitte kontaktieren Sie Ihren Administrator oder einen Dienstleister.',
1435 1439 
  'Please contact your administrator.' => 'Bitte wenden Sie sich an Ihren Administrator.',
1436 1440 
  '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:',
......
1729 1733 
  'Service Items'               => 'Dienstleistungen',
1730 1734 
  'Service Number missing!'     => 'Dienstleistungsnummer fehlt!',
1731 1735 
  'Service unit'                => 'Dienstleistungseinheit',
1736 
  'Service, assembly or part'   => 'Dienstleistung, Erzeugnis oder Ware',
1732 1737 
  'Services'                    => 'Dienstleistungen',
1733 1738 
  'Set Language Values'         => 'Spracheinstellungen',
1734 1739 
  'Set eMail text'              => 'eMail Text eingeben',
......
2077 2082 
  'There are #1 more open invoices from this vendor with other currencies.' => 'Es gibt #1 weitere offene Rechnungen von diesem Lieferanten, die in anderen Währungen ausgestellt wurden.',
2078 2083 
  'There are #1 unfinished follow-ups of which #2 are due.' => 'Es gibt #1 Wiedervorlage(n), von denen #2 fällig ist/sind.',
2079 2084 
  'There are bookings to the account 3803 after 01.01.2007. If you didn\'t change this account manually to 19% the bookings are probably incorrect.' => 'Das Konto 3803 wurde nach dem 01.01.2007 bebucht. Falls Sie dieses Konto nicht manuell auf 19% gestellt haben sind die Buchungen wahrscheinlich mit falscher Umsatzsteuer gebucht worden.',
2085 
  'There are double partnumbers in your database.' => 'In ihrer Datenbank befinden sich mehrfach vergebene Artikelnummern.',
2080 2086 
  'There are entries in tax where taxkey is NULL.' => 'In der Datenbank sind Steuern ohne Steuerschlüssel vorhanden (in der Tabelle tax Spalte taxkey).',
2081 2087 
  'There are four tax zones.'   => 'Es gibt vier Steuerzonen.',
2082 2088 
  'There are invalid taxnumbers in use.' => 'Es werden ungültige Steuerautomatik-Konten benutzt.',
......
2360 2366 
  'ap_aging_list'               => 'liste_offene_verbindlichkeiten',
2361 2367 
  'ar_aging_list'               => 'liste_offene_forderungen',
2362 2368 
  'as at'                       => 'zum Stand',
2369 
  'assembly'                    => 'Erzeugnis',
2363 2370 
  'assembly_list'               => 'erzeugnisliste',
2364 2371 
  'averaged values, in invoice mode only useful when filtered by a part' => 'gemittelte Werte, im Rechnungsmodus nur sinnvoll wenn nach Artikel gefiltert wird',
2365 2372 
  'back'                        => 'zurück',
......
2475 2482 
  'order'                       => 'Reihenfolge',
2476 2483 
  'our vendor number at customer' => 'Unsere Lieferanten-Nr. beim Kunden',
2477 2484 
  'parsing csv'                 => 'Parse CSV Daten',
2485 
  'part'                        => 'Ware',
2478 2486 
  'part_list'                   => 'Warenliste',
2479 2487 
  'percental'                   => 'prozentual',
2480 2488 
  'periodic'                    => 'Aufwandsmethode',
sql/Pg-upgrade2/erzeugnisnummern.pl
1 
# @tag: erzeugnisnummern
2 
# @description: Erzeugnisnummern und Artikelnummern sollen eindeutig sein.
3 
# @depends: release_3_0_0
4 
# @charset: utf-8
5 

  		




  
  6
  
    
use utf8;


  		




  
  7
  
    
use strict;


  		




  
  8
  
    
use SL::Locale;


  		




  
  9
  
    

  		




  
  10
  
    
die("This script cannot be run from the command line.") unless ($main::form);


  		




  
  11
  
    

  		




  
  12
  
    
sub mydberror {


  		




  
  13
  
    
  my ($msg) = @_;


  		




  
  14
  
    
  die($dbup_locale->text("Database update error:") . "<br>$msg<br>" . $DBI::errstr);


  		




  
  15
  
    
}


  		




  
  16
  
    

  		




  
  17
  
    
sub do_query {


  		




  
  18
  
    
  my ($query, $may_fail) = @_;


  		




  
  19
  
    

  		




  
  20
  
    
  if (!$dbh->do($query)) {


  		




  
  21
  
    
    mydberror($query) unless ($may_fail);


  		




  
  22
  
    
    $dbh->rollback();


  		




  
  23
  
    
    $dbh->begin_work();


  		




  
  24
  
    
  }


  		




  
  25
  
    
}


  		




  
  26
  
    

  		




  
  27
  
    
sub do_update {


  		




  
  28
  
    
    my $query = qq|SELECT id, partnumber, description, unit, notes, assembly, ean, inventory_accno_id


  		




  
  29
  
    
                   FROM parts pa


  		




  
  30
  
    
                   WHERE (SELECT COUNT(*)


  		




  
  31
  
    
                          FROM parts p


  		




  
  32
  
    
                          WHERE p.partnumber=pa.partnumber)


  		




  
  33
  
    
                          > 1


  		




  
  34
  
    
                   ORDER BY partnumber;|;


  		




  
  35
  
    

  		




  
  36
  
    
  my $sth = $dbh->prepare($query);


  		




  
  37
  
    
  $sth->execute || $main::form->dberror($query);


  		




  
  38
  
    

  		




  
  39
  
    
  $main::form->{PARTS} = [];


  		




  
  40
  
    
  while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {


  		




  
  41
  
    
    push @{ $main::form->{PARTS} }, $ref;


  		




  
  42
  
    
  }


  		




  
  43
  
    

  		




  
  44
  
    
  if ( scalar @{ $main::form->{PARTS} } > 0 ) {


  		




  
  45
  
    
    &print_error_message;


  		




  
  46
  
    
    return 0;


  		




  
  47
  
    
  }


  		




  
  48
  
    

  		




  
  49
  
    
  $query = qq|ALTER TABLE parts ADD UNIQUE (partnumber)|;


  		




  
  50
  
    
  do_query($query);


  		




  
  51
  
    

  		




  
  52
  
    
  $query = qq|ALTER TABLE defaults ADD assemblynumber TEXT|;


  		




  
  53
  
    
  do_query($query);


  		




  
  54
  
    
  return 1;


  		




  
  55
  
    
}; # end do_update


  		




  
  56
  
    

  		




  
  57
  
    

  		




  
  58
  
    
sub print_error_message {


  		




  
  59
  
    
  print $main::form->parse_html_template("dbupgrade/erzeugnisnummern");


  		




  
  60
  
    
}


  		




  
  61
  
    

  		




  
  62
  
    
return do_update();


  		












  

    
      templates/webpages/dbupgrade/erzeugnisnummern.html
    
  





  
  1
  
    
[%- USE T8 %]


  		




  
  2
  
    
[% USE HTML %]<div class="listtop">[% 'Double partnumbers' | $T8 %]</div>


  		




  
  3
  
    

  		




  
  4
  
    
<form name="Form" method="post" action="login.pl">


  		




  
  5
  
    
<input type="hidden" name="action" value="login">


  		




  
  6
  
    

  		




  
  7
  
    
<p>[% 'There are double partnumbers in your database.' | $T8 %]</p>


  		




  
  8
  
    
<p>[% 'From this version on the partnumer of articles and assemblies have to be unique.' | $T8 %]</p>


  		




  
  9
  
    

  		




  
  10
  
    
<p>[% 'Please change the partnumber of the following parts and run the update again:' | $T8 %]</p>


  		




  
  11
  
    
<table>


  		




  
  12
  
    
  <tr>


  		




  
  13
  
    
    <th class="listheading">[% 'Partnumber' | $T8 %]</th>


  		




  
  14
  
    
    <th class="listheading">[% 'Description' | $T8 %]</th>


  		




  
  15
  
    
    <th class="listheading">[% 'Unit' | $T8 %]</th>


  		




  
  16
  
    
    <th class="listheading">[% 'Notes' | $T8 %]</th>


  		




  
  17
  
    
    <th class="listheading">[% 'EAN' | $T8 %]</th>


  		




  
  18
  
    
    <th class="listheading">[% 'Service, assembly or part' | $T8 %]</th>


  		




  
  19
  
    
  </tr>


  		




  
  20
  
    

  		




  
  21
  
    
  [% SET row_odd = '1' %][% FOREACH row = PARTS %]


  		




  
  22
  
    
  <tr class="listrow[% IF row_odd %]1[% SET row_odd = '0' %][% ELSE %]0[% SET row_odd = '1' %][% END %]">


  		




  
  23
  
    
    <td align="right">[% HTML.escape(row.partnumber) %]</td>


  		




  
  24
  
    
    <td align="left"> [% HTML.escape(row.description) %]</a></td>


  		




  
  25
  
    
    <td align="right">[% HTML.escape(row.unit) %]</td>


  		




  
  26
  
    
    <td align="right">[% HTML.escape(row.notes) %]</td>


  		




  
  27
  
    
    <td align="right">[% HTML.escape(row.ean) %]</td>


  		




  
  28
  
    
    <td align="right">[% IF row.assembly %] [% 'assembly' | $T8 %] [% ELSE %] [% IF row.inventory_accno_id %] [% 'part' | $T8 %] [% ELSE %] [% 'service' %] [% END %] [% END %]</td>


  		




  
  29
  
    
  </tr>


  		




  
  30
  
    
  [% END %]


  		




  
  31
  
    
</table>


  		




  
  32
  
    

  		




  
  33
  
    
</form>


  		












Auch abrufbar als:  Unified diff