Direktes Speichern beim Hinzufügen eines Artikels
authorMartin Helmling <MartinHelmling@octo-soft.de>
Tue, 7 Jan 2014 15:13:53 +0000 (16:13 +0100)
committerMartin Helmling <MartinHelmling@octo-soft.de>
Tue, 7 Jan 2014 15:14:10 +0000 (16:14 +0100)
per eindeutiger Artikelnummer wird zugelassen.
Ein Hinzufügen über Beschreibung oder Warengruppe wird ignoriert.
Behebt #2040

Commit 2bc376b9be6507cc0fdf
Behebt #2047
Behebt #2400

SL/IC.pm
locale/de/all

index b99ec2a..3b7eb08 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -457,6 +457,22 @@ sub save {
 
   # add assembly records
   if ($form->{item} eq 'assembly') {
+    # check additional assembly row
+    my $i = $form->{assembly_rows};
+    # if last row is not empty add them
+    if ($form->{"partnumber_$i"} ne "") {
+       $query = qq|SELECT id FROM parts WHERE partnumber = ?|;
+       my ($partid) = selectrow_query($form, $dbh, $query,$form->{"partnumber_$i"} );
+       if ( $partid ) {
+           $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
+           $form->{"id_$i"} = $partid;
+           $form->{"bom_$i"} = 0;
+           $form->{assembly_rows}++;
+       }
+       else {
+           $::form->error($::locale->text("uncorrect partnumber ").$form->{"partnumber_$i"});
+       }
+    }
 
     for my $i (1 .. $form->{assembly_rows}) {
       $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
@@ -469,7 +485,6 @@ sub save {
         do_query($form, $dbh, $query, @values);
       }
     }
-
     my @a = localtime;
     $a[5] += 1900;
     $a[4]++;
index e7c9de4..3fdc2a9 100755 (executable)
@@ -2763,6 +2763,7 @@ $self->{texts} = {
   'transferred out'             => 'ausgelagert',
   'trial_balance'               => 'susa',
   'unconfigured'                => 'unkonfiguriert',
+  'uncorrect partnumber '       => 'Unbekannte Teilenummer ',
   'up'                          => 'hoch',
   'use program settings'        => 'benutze Programmeinstellungen',
   'use user config'             => 'Verwende Benutzereinstellung',