Seriennummer in LS auf Pos. 1, falls Pflichtfeld

[mfinanz.git] / bin / mozilla / io.pl

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index a69521b12f311ac97c62539a79cdd2d6010b6bca..e889f2aef7da2ff46f9718292f84d9027b960ae3 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -172,8 +172,12 @@ sub display_row {
   );
   # serialnr is important for delivery_orders
   if ($form->{type} eq 'sales_delivery_order') {
-    splice @row2_sort, 0, 1;
-    splice @header_sort, 4, 0, "serialnr";
+    for my $i (1 .. $form->{rowcount} - 1) {
+      next unless $form->{"has_sernumber_$i"};
+      splice @row2_sort, 0, 1;
+      splice @header_sort, 4, 0, "serialnr";
+      last;
+    }
   }
 
   my %column_def = (