X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FOE.pm;h=fab550712b699e9315039e3bdfb279be6c5bd455;hb=40db40e8dab881065df1cfbe61bb2212de0ff6db;hp=86ac15b88cc1e0922d66ba93848a1e5f64091723;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git

diff --git a/SL/OE.pm b/SL/OE.pm
index 86ac15b88..fab550712 100644
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -1,4 +1,4 @@
-#=====================================================================
+#====================================================================
 # LX-Office ERP
 # Copyright (C) 2004
 # Based on SQL-Ledger Version 2.1.9
@@ -34,7 +34,6 @@
 
 package OE;
 
-
 sub transactions {
   $main::lxdebug->enter_sub();
 
@@ -42,24 +41,24 @@ sub transactions {
 
   # connect to database
   my $dbh = $form->dbconnect($myconfig);
- 
+
   my $query;
   my $ordnumber = 'ordnumber';
   my $quotation = '0';
   my ($null, $department_id) = split /--/, $form->{department};
 
   my $department = " AND o.department_id = $department_id" if $department_id;
-  
+
   my $rate = ($form->{vc} eq 'customer') ? 'buy' : 'sell';
 
   if ($form->{type} =~ /_quotation$/) {
     $quotation = '1';
     $ordnumber = 'quonumber';
   }
-  
+
   my $number = $form->like(lc $form->{$ordnumber});
-  my $name = $form->like(lc $form->{$form->{vc}});
- 
+  my $name   = $form->like(lc $form->{ $form->{vc} });
+
   my $query = qq|SELECT o.id, o.ordnumber, o.transdate, o.reqdate,
                  o.amount, ct.name, o.netamount, o.$form->{vc}_id,
 		 ex.$rate AS exchangerate,
@@ -72,12 +71,12 @@ sub transactions {
 		                               AND ex.transdate = o.transdate)
 	         WHERE o.quotation = '$quotation'
 		 $department|;
-		 
+
   # build query if type eq (ship|receive)_order
   if ($form->{type} =~ /(ship|receive)_order/) {
     my ($warehouse, $warehouse_id) = split /--/, $form->{warehouse};
-    
-    $query =  qq|SELECT DISTINCT ON (o.id) o.id, o.ordnumber, o.transdate,
+
+    $query = qq|SELECT DISTINCT ON (o.id) o.id, o.ordnumber, o.transdate,
                  o.reqdate, o.amount, ct.name, o.netamount, o.$form->{vc}_id,
 		 ex.$rate AS exchangerate,
 		 o.closed, o.quonumber, o.shippingpoint, o.shipvia,
@@ -87,11 +86,11 @@ sub transactions {
 		 JOIN orderitems oi ON (oi.trans_id = o.id)
 		 JOIN parts p ON (p.id = oi.parts_id)|;
 
-      if ($warehouse_id && $form->{type} eq 'ship_order') {
-	$query .= qq|
+    if ($warehouse_id && $form->{type} eq 'ship_order') {
+      $query .= qq|
 	         JOIN inventory i ON (oi.parts_id = i.parts_id)
 		 |;
-      }
+    }
 
     $query .= qq|
 	         LEFT JOIN employee e ON (o.employee_id = e.id)
@@ -101,7 +100,7 @@ sub transactions {
 		 AND (p.inventory_accno_id > 0 OR p.assembly = '1')
 		 AND oi.qty <> oi.ship
 		 $department|;
-		 
+
     if ($warehouse_id && $form->{type} eq 'ship_order') {
       $query .= qq|
                  AND i.warehouse_id = $warehouse_id
@@ -110,11 +109,11 @@ sub transactions {
     }
 
   }
- 
+
   if ($form->{"$form->{vc}_id"}) {
     $query .= qq| AND o.$form->{vc}_id = $form->{"$form->{vc}_id"}|;
   } else {
-    if ($form->{$form->{vc}}) {
+    if ($form->{ $form->{vc} }) {
       $query .= " AND lower(ct.name) LIKE '$name'";
     }
   }
@@ -124,13 +123,15 @@ sub transactions {
     $query .= ($form->{open}) ? " AND o.closed = '0'" : " AND o.closed = '1'";
   }
 
+  my $sortorder = join ', ',
+    ("o.id", $form->sort_columns(transdate, $ordnumber, name));
+  $sortorder = $form->{sort} if $form->{sort};
 
-  my $sortorder = join ', ', ("o.id", $form->sort_columns(transdate, $ordnumber, name));
-  $sortorder = $form->{sort} unless $sortorder;
-  
   $query .= " AND lower($ordnumber) LIKE '$number'" if $form->{$ordnumber};
-  $query .= " AND o.transdate >= '$form->{transdatefrom}'" if $form->{transdatefrom};
-  $query .= " AND o.transdate <= '$form->{transdateto}'" if $form->{transdateto};
+  $query .= " AND o.transdate >= '$form->{transdatefrom}'"
+    if $form->{transdatefrom};
+  $query .= " AND o.transdate <= '$form->{transdateto}'"
+    if $form->{transdateto};
   $query .= " ORDER by $sortorder";
 
   my $sth = $dbh->prepare($query);
@@ -139,22 +140,21 @@ sub transactions {
   my %id = ();
   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
     $ref->{exchangerate} = 1 unless $ref->{exchangerate};
-    push @{ $form->{OE} }, $ref if $ref->{id} != $id{$ref->{id}};
-    $id{$ref->{id}} = $ref->{id};
+    push @{ $form->{OE} }, $ref if $ref->{id} != $id{ $ref->{id} };
+    $id{ $ref->{id} } = $ref->{id};
   }
 
   $sth->finish;
   $dbh->disconnect;
-  
+
   $main::lxdebug->leave_sub();
 }
 
-
 sub save {
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $form) = @_;
-  
+
   # connect to database, turn off autocommit
   my $dbh = $form->dbconnect_noauto($myconfig);
 
@@ -165,16 +165,16 @@ sub save {
   unless ($form->{employee_id}) {
     $form->get_employee($dbh);
   }
-  
+
   ($null, $form->{contact_id}) = split /--/, $form->{contact};
   $form->{contact_id} *= 1;
 
   my $ml = ($form->{type} eq 'sales_order') ? 1 : -1;
-  
+
   if ($form->{id}) {
-    
+
     &adj_onhand($dbh, $form, $ml) if $form->{type} =~ /_order$/;
-    
+
     $query = qq|DELETE FROM orderitems
                 WHERE trans_id = $form->{id}|;
     $dbh->do($query) || $form->dberror($query);
@@ -185,16 +185,16 @@ sub save {
 
   } else {
 
-    my $uid = rand().time;
+    my $uid = rand() . time;
 
     $uid .= $form->{login};
 
-    $uid = substr($uid,2,75);
+    $uid = substr($uid, 2, 75);
 
     $query = qq|INSERT INTO oe (ordnumber, employee_id)
 		VALUES ('$uid', $form->{employee_id})|;
     $dbh->do($query) || $form->dberror($query);
-   
+
     $query = qq|SELECT o.id FROM oe o
                 WHERE o.ordnumber = '$uid'|;
     $sth = $dbh->prepare($query);
@@ -204,8 +204,9 @@ sub save {
     $sth->finish;
   }
 
-  map { $form->{$_} =~ s/\'/\'\'/g } qw(ordnumber quonumber shippingpoint shipvia notes intnotes message);
-  
+  map { $form->{$_} =~ s/\'/\'\'/g }
+    qw(ordnumber quonumber shippingpoint shipvia notes intnotes message);
+
   my $amount;
   my $linetotal;
   my $discount;
@@ -221,91 +222,115 @@ sub save {
 
   for my $i (1 .. $form->{rowcount}) {
 
-    map { $form->{"${_}_$i"} = $form->parse_amount($myconfig, $form->{"${_}_$i"}) } qw(qty ship);
-    
+    map {
+      $form->{"${_}_$i"} =
+        $form->parse_amount($myconfig, $form->{"${_}_$i"})
+    } qw(qty ship);
+
     if ($form->{"qty_$i"}) {
-      
-      map { $form->{"${_}_$i"} =~ s/\'/\'\'/g } qw(partnumber description unit);
-      
+
+      map { $form->{"${_}_$i"} =~ s/\'/\'\'/g }
+        qw(partnumber description unit);
+
       # set values to 0 if nothing entered
-      $form->{"discount_$i"} = $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100;
+      $form->{"discount_$i"} =
+        $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100;
 
-      $form->{"sellprice_$i"} = $form->parse_amount($myconfig, $form->{"sellprice_$i"});
+      $form->{"sellprice_$i"} =
+        $form->parse_amount($myconfig, $form->{"sellprice_$i"});
       $fxsellprice = $form->{"sellprice_$i"};
 
       my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
       $dec = length $dec;
       my $decimalplaces = ($dec > 2) ? $dec : 2;
-      
-      $discount = $form->round_amount($form->{"sellprice_$i"} * $form->{"discount_$i"}, $decimalplaces);
-      $form->{"sellprice_$i"} = $form->round_amount($form->{"sellprice_$i"} - $discount, $decimalplaces);
-      
+
+      $discount =
+        $form->round_amount($form->{"sellprice_$i"} * $form->{"discount_$i"},
+                            $decimalplaces);
+      $form->{"sellprice_$i"} =
+        $form->round_amount($form->{"sellprice_$i"} - $discount,
+                            $decimalplaces);
+
       $form->{"inventory_accno_$i"} *= 1;
-      $form->{"expense_accno_$i"} *= 1;
-      
-      $linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"}, 2);
-      
+      $form->{"expense_accno_$i"}   *= 1;
+
+      $linetotal =
+        $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"}, 2);
+
       @taxaccounts = split / /, $form->{"taxaccounts_$i"};
-      $taxrate = 0;
-      $taxdiff = 0;
-      
+      $taxrate     = 0;
+      $taxdiff     = 0;
+
       map { $taxrate += $form->{"${_}_rate"} } @taxaccounts;
 
       if ($form->{taxincluded}) {
-	$taxamount = $linetotal * $taxrate / (1 + $taxrate);
-	$taxbase = $linetotal - $taxamount;
-	# we are not keeping a natural price, do not round
-	$form->{"sellprice_$i"} = $form->{"sellprice_$i"} * (1 / (1 + $taxrate));
+        $taxamount = $linetotal * $taxrate / (1 + $taxrate);
+        $taxbase   = $linetotal - $taxamount;
+
+        # we are not keeping a natural price, do not round
+        $form->{"sellprice_$i"} =
+          $form->{"sellprice_$i"} * (1 / (1 + $taxrate));
       } else {
-	$taxamount = $linetotal * $taxrate;
-	$taxbase = $linetotal;
+        $taxamount = $linetotal * $taxrate;
+        $taxbase   = $linetotal;
       }
 
-      if ($form->round_amount($taxrate,7) == 0) {
-	if ($form->{taxincluded}) {
-	  foreach $item (@taxaccounts) {
-	    $taxamount = $form->round_amount($linetotal * $form->{"${item}_rate"} / (1 + abs($form->{"${item}_rate"})), 2);
-
-	    $taxaccounts{$item} += $taxamount;
-	    $taxdiff += $taxamount; 
-
-	    $taxbase{$item} += $taxbase;
-	  }
-	  $taxaccounts{$taxaccounts[0]} += $taxdiff;
-	} else {
-	  foreach $item (@taxaccounts) {
-	    $taxaccounts{$item} += $linetotal * $form->{"${item}_rate"};
-	    $taxbase{$item} += $taxbase;
-	  }
-	}
+      if ($form->round_amount($taxrate, 7) == 0) {
+        if ($form->{taxincluded}) {
+          foreach $item (@taxaccounts) {
+            $taxamount =
+              $form->round_amount($linetotal * $form->{"${item}_rate"} /
+                                    (1 + abs($form->{"${item}_rate"})),
+                                  2);
+
+            $taxaccounts{$item} += $taxamount;
+            $taxdiff            += $taxamount;
+
+            $taxbase{$item} += $taxbase;
+          }
+          $taxaccounts{ $taxaccounts[0] } += $taxdiff;
+        } else {
+          foreach $item (@taxaccounts) {
+            $taxaccounts{$item} += $linetotal * $form->{"${item}_rate"};
+            $taxbase{$item}     += $taxbase;
+          }
+        }
       } else {
-	foreach $item (@taxaccounts) {
-	  $taxaccounts{$item} += $taxamount * $form->{"${item}_rate"} / $taxrate;
-	  $taxbase{$item} += $taxbase;
-	}
+        foreach $item (@taxaccounts) {
+          $taxaccounts{$item} +=
+            $taxamount * $form->{"${item}_rate"} / $taxrate;
+          $taxbase{$item} += $taxbase;
+        }
       }
 
-
       $netamount += $form->{"sellprice_$i"} * $form->{"qty_$i"};
-      
+
       $project_id = 'NULL';
       if ($form->{"projectnumber_$i"}) {
-	$project_id = $form->{"projectnumber_$i"};
+        $project_id = $form->{"projectnumber_$i"};
       }
-      $reqdate = ($form->{"reqdate_$i"}) ? qq|'$form->{"reqdate_$i"}'| : "NULL";
-      
+      $reqdate =
+        ($form->{"reqdate_$i"}) ? qq|'$form->{"reqdate_$i"}'| : "NULL";
+
+      # get pricegroup_id and save ist
+      ($null, my $pricegroup_id) = split /--/, $form->{"sellprice_drag_$i"};
+      $pricegroup_id *= 1;
+
       # save detail record in orderitems table
       $query = qq|INSERT INTO orderitems (|;
       $query .= "id, " if $form->{"orderitems_id_$i"};
       $query .= qq|trans_id, parts_id, description, qty, sellprice, discount,
-		   unit, reqdate, project_id, serialnumber, ship)
+		   unit, reqdate, project_id, serialnumber, ship, pricegroup_id,
+		   ordnumber, transdate, cusordnumber)
                    VALUES (|;
-      $query .= qq|$form->{"orderitems_id_$i"},| if $form->{"orderitems_id_$i"};
+      $query .= qq|$form->{"orderitems_id_$i"},|
+        if $form->{"orderitems_id_$i"};
       $query .= qq|$form->{id}, $form->{"id_$i"},
 		   '$form->{"description_$i"}', $form->{"qty_$i"},
 		   $fxsellprice, $form->{"discount_$i"},
 		   '$form->{"unit_$i"}', $reqdate, (SELECT id from project where projectnumber = '$project_id'),
-		   '$form->{"serialnumber_$i"}', $form->{"ship_$i"})|;
+		   '$form->{"serialnumber_$i"}', $form->{"ship_$i"}, '$pricegroup_id',
+		   '$form->{"ordnumber_$i"}', '$form->{"transdate_$i"}', '$form->{"cusordnumber_$i"}')|;
       $dbh->do($query) || $form->dberror($query);
 
       $form->{"sellprice_$i"} = $fxsellprice;
@@ -313,39 +338,49 @@ sub save {
     }
   }
 
-
   # set values which could be empty
-  map { $form->{$_} *= 1 } qw(vendor_id customer_id taxincluded closed quotation);
+  map { $form->{$_} *= 1 }
+    qw(vendor_id customer_id taxincluded closed quotation);
 
   $reqdate = ($form->{reqdate}) ? qq|'$form->{reqdate}'| : "NULL";
-  
+
   # add up the tax
   my $tax = 0;
   map { $tax += $form->round_amount($taxaccounts{$_}, 2) } keys %taxaccounts;
-  
+
   $amount = $form->round_amount($netamount + $tax, 2);
   $netamount = $form->round_amount($netamount, 2);
 
   if ($form->{currency} eq $form->{defaultcurrency}) {
     $form->{exchangerate} = 1;
   } else {
-    $exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? 'buy' : 'sell');
+    $exchangerate =
+      $form->check_exchangerate($myconfig,
+                                $form->{currency},
+                                $form->{transdate},
+                                ($form->{vc} eq 'customer') ? 'buy' : 'sell');
   }
-  
-  $form->{exchangerate} = ($exchangerate) ? $exchangerate : $form->parse_amount($myconfig, $form->{exchangerate});
-  
+
+  $form->{exchangerate} =
+    ($exchangerate)
+    ? $exchangerate
+    : $form->parse_amount($myconfig, $form->{exchangerate});
+
   my $quotation;
+
   # fill in subject if there is none
   if ($form->{type} =~ /_order$/) {
     $quotation = '0';
-    $form->{subject} = qq|$form->{label} $form->{ordnumber}| unless $form->{subject};
+    $form->{subject} = qq|$form->{label} $form->{ordnumber}|
+      unless $form->{subject};
   } else {
     $quotation = '1';
-    $form->{subject} = qq|$form->{label} $form->{quonumber}| unless $form->{subject};
+    $form->{subject} = qq|$form->{label} $form->{quonumber}|
+      unless $form->{subject};
   }
-  
+
   # if there is a message stuff it into the intnotes
-  my $cc = "Cc: $form->{cc}\\r\n" if $form->{cc};
+  my $cc  = "Cc: $form->{cc}\\r\n"   if $form->{cc};
   my $bcc = "Bcc: $form->{bcc}\\r\n" if $form->{bcc};
   my $now = scalar localtime;
   $form->{intnotes} .= qq|\r
@@ -357,7 +392,7 @@ To: $form->{email}\r
 $cc${bcc}Subject: $form->{subject}\r
 \r
 Message: $form->{message}\r| if $form->{message};
-  
+
   ($null, $form->{department_id}) = split(/--/, $form->{department});
   $form->{department_id} *= 1;
 
@@ -389,33 +424,35 @@ Message: $form->{message}\r| if $form->{message};
   $form->{ordtotal} = $amount;
 
   if ($form->{webdav}) {
-  	&webdav_folder($myconfig, $form);
+    &webdav_folder($myconfig, $form);
   }
-  
+
   # add shipto
-  $form->{name} = $form->{$form->{vc}};
+  $form->{name} = $form->{ $form->{vc} };
   $form->{name} =~ s/--$form->{"$form->{vc}_id"}//;
   $form->add_shipto($dbh, $form->{id});
 
   # save printed, emailed, queued
-  $form->save_status($dbh); 
-    
+  $form->save_status($dbh);
+
   if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
     if ($form->{vc} eq 'customer') {
-      $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, $form->{exchangerate}, 0);
+      $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate},
+                                 $form->{exchangerate}, 0);
     }
     if ($form->{vc} eq 'vendor') {
-      $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, 0, $form->{exchangerate});
+      $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate},
+                                 0, $form->{exchangerate});
     }
   }
-  
 
   if ($form->{type} =~ /_order$/) {
+
     # adjust onhand
     &adj_onhand($dbh, $form, $ml * -1);
     &adj_inventory($dbh, $myconfig, $form);
   }
-  
+
   my $rc = $dbh->commit;
   $dbh->disconnect;
 
@@ -424,7 +461,49 @@ Message: $form->{message}\r| if $form->{message};
   return $rc;
 }
 
+# this function closes multiple orders given in $form->{ordnumber_#}.
+# use this for multiple orders that don't have to be saved back
+# single orders should use OE::save instead.
+sub close_orders {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig, $form) = @_;
+
+  for my $i (1 .. $form->{rowcount}) {
 
+    map {
+      $form->{"${_}_$i"} =
+        $form->parse_amount($myconfig, $form->{"${_}_$i"})
+    } qw(qty ship);
+    if ($delete_oe_id) {
+      $form->{"orderitems_id_$i"} = "";
+    }
+
+    if ($form->{"qty_$i"}) {
+
+      # set values to 0 if nothing entered
+      $form->{"discount_$i"} =
+        $form->parse_amount($myconfig, $form->{"discount_$i"});
+
+      $form->{"sellprice_$i"} =
+        $form->parse_amount($myconfig, $form->{"sellprice_$i"});
+    }
+  }
+
+  # get ids from $form
+  map { push @ids, $form->{"ordnumber_$_"} if $form->{"ordnumber_$_"} }
+    (1 .. $form->{rowcount});
+
+  my $dbh = $form->dbconnect($myconfig);
+  $query = qq|UPDATE oe SET
+              closed = TRUE
+              WHERE ordnumber IN (|
+    . join(', ', map { $dbh->quote($_) } @ids) . qq|)|;
+  $dbh->do($query) || $form->dberror($query);
+  $dbh->disconnect;
+
+  $main::lxdebug->leave_sub();
+}
 
 sub delete {
   $main::lxdebug->enter_sub();
@@ -448,18 +527,13 @@ sub delete {
   }
   $sth->finish;
 
-
   $query = qq|SELECT o.parts_id, o.ship FROM orderitems o
               WHERE o.trans_id = $form->{id}|;
   $sth = $dbh->prepare($query);
   $sth->execute || $self->dberror($query);
 
   while (my ($id, $ship) = $sth->fetchrow_array) {
-    $form->update_balance($dbh,
-			  "parts",
-			  "onhand",
-			  qq|id = $id|,
-			  $ship * -1);
+    $form->update_balance($dbh, "parts", "onhand", qq|id = $id|, $ship * -1);
   }
   $sth->finish;
 
@@ -467,12 +541,12 @@ sub delete {
   $query = qq|DELETE FROM inventory
               WHERE oe_id = $form->{id}|;
   $dbh->do($query) || $form->dberror($query);
-  
+
   # delete status entries
   $query = qq|DELETE FROM status
               WHERE trans_id = $form->{id}|;
   $dbh->do($query) || $form->dberror($query);
-  
+
   # delete OE record
   $query = qq|DELETE FROM oe
               WHERE id = $form->{id}|;
@@ -486,7 +560,7 @@ sub delete {
   $query = qq|DELETE FROM shipto
               WHERE trans_id = $form->{id}|;
   $dbh->do($query) || $form->dberror($query);
-  
+
   my $rc = $dbh->commit;
   $dbh->disconnect;
 
@@ -495,14 +569,12 @@ sub delete {
       unlink "$spool/$spoolfile" if $spoolfile;
     }
   }
-  
+
   $main::lxdebug->leave_sub();
 
   return $rc;
 }
 
-
-
 sub retrieve {
   $main::lxdebug->enter_sub();
 
@@ -511,9 +583,22 @@ sub retrieve {
   # connect to database
   my $dbh = $form->dbconnect_noauto($myconfig);
 
-  my $query;
+  my $query, @ids;
+
+  # translate the ids (given by id_# and trans_id_#) into one array of ids, so we can join them later
+  map {
+    push @ids, $form->{"trans_id_$_"}
+      if ($form->{"id_$_"} and $form->{"trans_id_$_"})
+  } (1 .. $form->{"rowcount"});
+
+  # if called in multi id mode, and still only got one id, switch back to single id
+  if ($form->{"rowcount"} and $#ids == 0) {
+    $form->{"id"} = $ids[0];
+    undef @ids;
+  }
 
   if ($form->{id}) {
+
     # get default accounts and last order number
     $query = qq|SELECT (SELECT c.accno FROM chart c
                         WHERE d.inventory_accno_id = c.id) AS inventory_accno,
@@ -550,11 +635,20 @@ sub retrieve {
   $sth->finish;
 
   ($form->{currency}) = split /:/, $form->{currencies};
-  
-  if ($form->{id}) {
-    
-    # retrieve order
-    $query = qq|SELECT o.cp_id,o.ordnumber, o.transdate, o.reqdate,
+
+  # set reqdate if this is an invoice->order conversion. If someone knows a better check to ensure
+  # we come from invoices, feel free.
+  $form->{reqdate} = $form->{deliverydate}
+    if (    $form->{deliverydate}
+        and $form->{callback} =~ /action=ar_transactions/);
+
+  if ($form->{id} or @ids) {
+
+    # retrieve order for single id
+    # NOTE: this query is intended to fetch all information only ONCE.
+    # so if any of these infos is important (or even different) for any item,
+    # it will be killed out and then has to be fetched from the item scope query further down
+    $query = qq|SELECT o.cp_id, o.ordnumber, o.transdate, o.reqdate,
                 o.taxincluded, o.shippingpoint, o.shipvia, o.notes, o.intnotes,
 		o.curr AS currency, e.name AS employee, o.employee_id,
 		o.$form->{vc}_id, cv.name AS $form->{vc}, o.amount AS invtotal,
@@ -564,123 +658,165 @@ sub retrieve {
 	        JOIN $form->{vc} cv ON (o.$form->{vc}_id = cv.id)
 	        LEFT JOIN employee e ON (o.employee_id = e.id)
 	        LEFT JOIN department d ON (o.department_id = d.id)
-		WHERE o.id = $form->{id}|;
-    $sth = $dbh->prepare($query);
-    $sth->execute || $form->dberror($query);
+		|
+      . ($form->{id}
+         ? qq|WHERE o.id = $form->{id}|
+         : qq|WHERE o.id IN (| . join(', ', @ids) . qq|)|);
+
+    #$main::lxdebug->message(0, $query);
 
-    $ref = $sth->fetchrow_hashref(NAME_lc);
-    map { $form->{$_} = $ref->{$_} } keys %$ref;
-    $sth->finish;
-    
-   
-    $query = qq|SELECT s.* FROM shipto s
-                WHERE s.trans_id = $form->{id}|;
     $sth = $dbh->prepare($query);
     $sth->execute || $form->dberror($query);
 
     $ref = $sth->fetchrow_hashref(NAME_lc);
     map { $form->{$_} = $ref->{$_} } keys %$ref;
-    $sth->finish;
-
-    # get printed, emailed and queued
-    $query = qq|SELECT s.printed, s.emailed, s.spoolfile, s.formname
-                FROM status s
-		WHERE s.trans_id = $form->{id}|;
-    $sth = $dbh->prepare($query);
-    $sth->execute || $form->dberror($query);
 
+    # set all entries for multiple ids blank that yield different information
     while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
-      $form->{printed} .= "$ref->{formname} " if $ref->{printed};
-      $form->{emailed} .= "$ref->{formname} " if $ref->{emailed};
-      $form->{queued} .= "$ref->{formname} $ref->{spoolfile} " if $ref->{spoolfile};
+      map { $form->{$_} = '' if ($ref->{$_} ne $form->{$_}) } keys %$ref;
     }
+
+    # if not given, fill transdate with current_date
+    $form->{transdate} = $form->current_date($myconfig)
+      unless $form->{transdate};
+
     $sth->finish;
-    map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);
 
+    # shipto and pinted/mailed/queued status makes only sense for single id retrieve
+    if (!@ids) {
+      $query = qq|SELECT s.* FROM shipto s
+                  WHERE s.trans_id = $form->{id}|;
+      $sth = $dbh->prepare($query);
+      $sth->execute || $form->dberror($query);
+
+      $ref = $sth->fetchrow_hashref(NAME_lc);
+      map { $form->{$_} = $ref->{$_} } keys %$ref;
+      $sth->finish;
 
-    my %oid = ( 'Pg'		=> 'oid',
-                'Oracle'	=> 'rowid'
-	      );
+      # get printed, emailed and queued
+      $query = qq|SELECT s.printed, s.emailed, s.spoolfile, s.formname
+                  FROM status s
+                  WHERE s.trans_id = $form->{id}|;
+      $sth = $dbh->prepare($query);
+      $sth->execute || $form->dberror($query);
+
+      while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
+        $form->{printed} .= "$ref->{formname} " if $ref->{printed};
+        $form->{emailed} .= "$ref->{formname} " if $ref->{emailed};
+        $form->{queued} .= "$ref->{formname} $ref->{spoolfile} "
+          if $ref->{spoolfile};
+      }
+      $sth->finish;
+      map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);
+    }    # if !@ids
+
+    my %oid = ('Pg'     => 'oid',
+               'Oracle' => 'rowid');
 
     # retrieve individual items
+    # this query looks up all information about the items
+    # stuff different from the whole will not be overwritten, but saved with a suffix.
     $query = qq|SELECT o.id AS orderitems_id,
                 c1.accno AS inventory_accno,
                 c2.accno AS income_accno,
 		c3.accno AS expense_accno,
+		oe.ordnumber AS ordnumber_oe, oe.transdate AS transdate_oe, oe.cusordnumber AS cusordnumber_oe, 
                 p.partnumber, p.assembly, o.description, o.qty,
 		o.sellprice, o.parts_id AS id, o.unit, o.discount, p.bin, p.notes AS partnotes,
                 o.reqdate, o.project_id, o.serialnumber, o.ship,
+		o.ordnumber, o.transdate, o.cusordnumber,
 		pr.projectnumber,
-		pg.partsgroup
+		pg.partsgroup, o.pricegroup_id, (SELECT pricegroup FROM pricegroup WHERE id=o.pricegroup_id) as pricegroup
 		FROM orderitems o
 		JOIN parts p ON (o.parts_id = p.id)
+		JOIN oe ON (o.trans_id = oe.id)
 		LEFT JOIN chart c1 ON (p.inventory_accno_id = c1.id)
 		LEFT JOIN chart c2 ON (p.income_accno_id = c2.id)
 		LEFT JOIN chart c3 ON (p.expense_accno_id = c3.id)
 		LEFT JOIN project pr ON (o.project_id = pr.id)
 		LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
-		WHERE o.trans_id = $form->{id}
+		|
+      . ($form->{id}
+         ? qq|WHERE o.trans_id = $form->{id}|
+         : qq|WHERE o.trans_id IN (| . join(", ", @ids) . qq|)|)
+      . qq|
                 ORDER BY o.$oid{$myconfig->{dbdriver}}|;
+
     $sth = $dbh->prepare($query);
     $sth->execute || $form->dberror($query);
 
     while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
 
-     
-     #set expense_accno=inventory_accno if they are different => bilanz     
-     $vendor_accno = ($ref->{expense_accno}!=$ref->{inventory_accno}) ? $ref->{inventory_accno} :$ref->{expense_accno};
-
-     
-     # get tax rates and description
-     $accno_id = ($form->{vc} eq "customer") ? $ref->{income_accno} : $vendor_accno;
-     $query = qq|SELECT c.accno, c.description, t.rate, t.taxnumber
+      # in collective order, copy global ordnumber, transdate, cusordnumber into item scope
+      #   unless already present there
+      # remove _oe entries afterwards
+      map { $ref->{$_} = $ref->{"${_}_oe"} if ($ref->{$_} eq '') }
+        qw|ordnumber transdate cusordnumber|
+        if (@ids);
+      map { delete $ref->{$_} } qw|ordnumber_oe transdate_oe cusordnumber_oe|;
+
+      # delete orderitems_id in collective orders, so that they get cloned no matter what
+      delete $ref->{orderitems_id} if (@ids);
+
+      #set expense_accno=inventory_accno if they are different => bilanz
+      $vendor_accno =
+        ($ref->{expense_accno} != $ref->{inventory_accno})
+        ? $ref->{inventory_accno}
+        : $ref->{expense_accno};
+
+      # get tax rates and description
+      $accno_id =
+        ($form->{vc} eq "customer") ? $ref->{income_accno} : $vendor_accno;
+      $query = qq|SELECT c.accno, c.description, t.rate, t.taxnumber
 	         FROM chart c, tax t
 	         WHERE c.id=t.chart_id AND t.taxkey in (SELECT taxkey_id from chart where accno = '$accno_id')
 	         ORDER BY accno|;
-     $stw = $dbh->prepare($query);
-     $stw->execute || $form->dberror($query);
-     $ref->{taxaccounts} = "";
-     while ($ptr = $stw->fetchrow_hashref(NAME_lc)) {
-   #    if ($customertax{$ref->{accno}}) {
-         $ref->{taxaccounts} .= "$ptr->{accno} ";
-         if (!($form->{taxaccounts}=~/$ptr->{accno}/)) {
-           $form->{"$ptr->{accno}_rate"} = $ptr->{rate};
-           $form->{"$ptr->{accno}_description"} = $ptr->{description};
-           $form->{"$ptr->{accno}_taxnumber"} = $ptr->{taxnumber};
-           $form->{taxaccounts} .= "$ptr->{accno} ";
-         }
-
-     }
-
-     chop $ref->{taxaccounts};
-     push @{ $form->{form_details} }, $ref;
-     $stw->finish;
+      $stw = $dbh->prepare($query);
+      $stw->execute || $form->dberror($query);
+      $ref->{taxaccounts} = "";
+      while ($ptr = $stw->fetchrow_hashref(NAME_lc)) {
+
+        #    if ($customertax{$ref->{accno}}) {
+        $ref->{taxaccounts} .= "$ptr->{accno} ";
+        if (!($form->{taxaccounts} =~ /$ptr->{accno}/)) {
+          $form->{"$ptr->{accno}_rate"}        = $ptr->{rate};
+          $form->{"$ptr->{accno}_description"} = $ptr->{description};
+          $form->{"$ptr->{accno}_taxnumber"}   = $ptr->{taxnumber};
+          $form->{taxaccounts} .= "$ptr->{accno} ";
+        }
+
+      }
+
+      chop $ref->{taxaccounts};
+      push @{ $form->{form_details} }, $ref;
+      $stw->finish;
     }
     $sth->finish;
 
   } else {
 
     # get last name used
-    $form->lastname_used($dbh, $myconfig, $form->{vc}) unless $form->{"$form->{vc}_id"};
+    $form->lastname_used($dbh, $myconfig, $form->{vc})
+      unless $form->{"$form->{vc}_id"};
 
   }
 
-  $form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
-  
+  $form->{exchangerate} =
+    $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate},
+                            ($form->{vc} eq 'customer') ? "buy" : "sell");
+
   if ($form->{webdav}) {
-  	&webdav_folder($myconfig, $form);
+    &webdav_folder($myconfig, $form);
   }
-  
+
   my $rc = $dbh->commit;
   $dbh->disconnect;
-  
+
   $main::lxdebug->leave_sub();
 
   return $rc;
 }
 
-
-
 sub order_details {
   $main::lxdebug->enter_sub();
 
@@ -690,14 +826,14 @@ sub order_details {
   my $dbh = $form->dbconnect($myconfig);
   my $query;
   my $sth;
-    
+
   my $item;
   my $i;
   my @partsgroup = ();
   my $partsgroup;
-  my %oid = ( 'Pg' => 'oid',
-              'Oracle' => 'rowid' );
-  
+  my %oid = ('Pg'     => 'oid',
+             'Oracle' => 'rowid');
+
   # sort items by partsgroup
   for $i (1 .. $form->{rowcount}) {
     $partsgroup = "";
@@ -705,11 +841,12 @@ sub order_details {
       $form->format_string("partsgroup_$i");
       $partsgroup = $form->{"partsgroup_$i"};
     }
-    push @partsgroup, [ $i, $partsgroup ];
+    push @partsgroup, [$i, $partsgroup];
   }
 
   # if there is a warehouse limit picking
   if ($form->{warehouse_id} && $form->{formname} =~ /(pick|packing)_list/) {
+
     # run query to check for inventory
     $query = qq|SELECT sum(i.qty) AS qty
                 FROM inventory i
@@ -724,14 +861,13 @@ sub order_details {
       $sth->finish;
 
       $form->{"qty_$i"} = 0 if $qty == 0;
-      
+
       if ($form->parse_amount($myconfig, $form->{"ship_$i"}) > $qty) {
-	$form->{"ship_$i"} = $form->format_amount($myconfig, $qty);
+        $form->{"ship_$i"} = $form->format_amount($myconfig, $qty);
       }
     }
   }
-    
-  
+
   my $sameitem = "";
   foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
     $i = $item->[0];
@@ -740,27 +876,30 @@ sub order_details {
       push(@{ $form->{description} }, qq|$item->[1]|);
       $sameitem = $item->[1];
 
-      map { push(@{ $form->{$_} }, "") } qw(runningnumber number qty ship unit bin partnotes serialnumber reqdate sellprice listprice netprice discount linetotal);
+      map { push(@{ $form->{$_} }, "") }
+        qw(runningnumber number qty ship unit bin partnotes serialnumber reqdate sellprice listprice netprice discount linetotal);
     }
 
     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
-    
+
     if ($form->{"qty_$i"} != 0) {
 
       # add number, description and qty to $form->{number}, ....
       push(@{ $form->{runningnumber} }, $i);
-      push(@{ $form->{number} }, qq|$form->{"partnumber_$i"}|);
-      push(@{ $form->{description} }, qq|$form->{"description_$i"}|);
-      push(@{ $form->{qty} }, $form->format_amount($myconfig, $form->{"qty_$i"}));
-      push(@{ $form->{ship} }, $form->format_amount($myconfig, $form->{"ship_$i"}));
-      push(@{ $form->{unit} }, qq|$form->{"unit_$i"}|);
-      push(@{ $form->{bin} }, qq|$form->{"bin_$i"}|);
-      push(@{ $form->{"partnotes"} }, qq|$form->{"partnotes_$i"}|);
+      push(@{ $form->{number} },        qq|$form->{"partnumber_$i"}|);
+      push(@{ $form->{description} },   qq|$form->{"description_$i"}|);
+      push(@{ $form->{qty} },
+           $form->format_amount($myconfig, $form->{"qty_$i"}));
+      push(@{ $form->{ship} },
+           $form->format_amount($myconfig, $form->{"ship_$i"}));
+      push(@{ $form->{unit} },         qq|$form->{"unit_$i"}|);
+      push(@{ $form->{bin} },          qq|$form->{"bin_$i"}|);
+      push(@{ $form->{"partnotes"} },  qq|$form->{"partnotes_$i"}|);
       push(@{ $form->{serialnumber} }, qq|$form->{"serialnumber_$i"}|);
-      push(@{ $form->{reqdate} }, qq|$form->{"reqdate_$i"}|);
-      
+      push(@{ $form->{reqdate} },      qq|$form->{"reqdate_$i"}|);
+
       push(@{ $form->{sellprice} }, $form->{"sellprice_$i"});
-      
+
       push(@{ $form->{listprice} }, $form->{"listprice_$i"});
 
       my $sellprice = $form->parse_amount($myconfig, $form->{"sellprice_$i"});
@@ -768,59 +907,84 @@ sub order_details {
       $dec = length $dec;
       my $decimalplaces = ($dec > 2) ? $dec : 2;
 
-      
-      my $discount = $form->round_amount($sellprice * $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100, $decimalplaces);
+      my $i_discount =
+        $form->round_amount(
+                            $sellprice * $form->parse_amount($myconfig,
+                                                 $form->{"discount_$i"}) / 100,
+                            $decimalplaces);
 
-      # keep a netprice as well, (sellprice - discount)
-      $form->{"netprice_$i"} = $sellprice - $discount;
+      my $discount =
+        $form->round_amount($form->{"qty_$i"} * $i_discount, $decimalplaces);
 
-      my $linetotal = $form->round_amount($form->{"qty_$i"} * $form->{"netprice_$i"}, 2);
-
-      push(@{ $form->{netprice} }, ($form->{"netprice_$i"} != 0) ? $form->format_amount($myconfig, $form->{"netprice_$i"}, $decimalplaces) : " ");
-      
-      $discount = ($discount != 0) ? $form->format_amount($myconfig, $discount * -1, $decimalplaces) : " ";
+      # keep a netprice as well, (sellprice - discount)
+      #$form->{"netprice_$i"} = $sellprice - $discount;
+      $form->{"netprice_$i"} = $sellprice - $i_discount;
+
+      my $linetotal =
+        $form->round_amount($form->{"qty_$i"} * $form->{"netprice_$i"}, 2);
+
+      push(@{ $form->{netprice} },
+           ($form->{"netprice_$i"} != 0)
+           ? $form->format_amount(
+                                 $myconfig, $form->{"netprice_$i"},
+                                 $decimalplaces
+             )
+           : " ");
+
+      $discount =
+        ($discount != 0)
+        ? $form->format_amount($myconfig, $discount * -1, $decimalplaces)
+        : " ";
       $linetotal = ($linetotal != 0) ? $linetotal : " ";
 
-      push(@{ $form->{discount} }, $discount);
-      
+      push(@{ $form->{discount} },   $discount);
+      push(@{ $form->{p_discount} }, $form->{"discount_$i"});
+
       $form->{ordtotal} += $linetotal;
 
-      push(@{ $form->{linetotal} }, $form->format_amount($myconfig, $linetotal, 2));
-      
+      push(@{ $form->{linetotal} },
+           $form->format_amount($myconfig, $linetotal, 2));
+
       my ($taxamount, $taxbase);
       my $taxrate = 0;
-      
-      map { $taxrate += $form->{"${_}_rate"} } split / /, $form->{"taxaccounts_$i"};
+
+      map { $taxrate += $form->{"${_}_rate"} } split / /,
+        $form->{"taxaccounts_$i"};
 
       if ($form->{taxincluded}) {
-	# calculate tax
-	$taxamount = $linetotal * $taxrate / (1 + $taxrate);
-	$taxbase = $linetotal / (1 + $taxrate);
+
+        # calculate tax
+        $taxamount = $linetotal * $taxrate / (1 + $taxrate);
+        $taxbase = $linetotal / (1 + $taxrate);
       } else {
         $taxamount = $linetotal * $taxrate;
-	$taxbase = $linetotal;
+        $taxbase   = $linetotal;
       }
 
-
       if ($taxamount != 0) {
-	foreach my $item (split / /, $form->{"taxaccounts_$i"}) {
-	  $taxaccounts{$item} += $taxamount * $form->{"${item}_rate"} / $taxrate;
-	  $taxbase{$item} += $taxbase;
-	}
+        foreach my $item (split / /, $form->{"taxaccounts_$i"}) {
+          $taxaccounts{$item} +=
+            $taxamount * $form->{"${item}_rate"} / $taxrate;
+          $taxbase{$item} += $taxbase;
+        }
       }
 
+      $tax_rate = $taxrate * 100;
+      push(@{ $form->{tax_rate} }, qq|$tax_rate|);
+
       if ($form->{"assembly_$i"}) {
-	$sameitem = "";
-	
+        $sameitem = "";
+
         # get parts and push them onto the stack
-	my $sortorder = "";
-	if ($form->{groupitems}) {
-	  $sortorder = qq|ORDER BY pg.partsgroup, a.$oid{$myconfig->{dbdriver}}|;
-	} else {
-	  $sortorder = qq|ORDER BY a.$oid{$myconfig->{dbdriver}}|;
-	}
-	
-	$query = qq|SELECT p.partnumber, p.description, p.unit, a.qty,
+        my $sortorder = "";
+        if ($form->{groupitems}) {
+          $sortorder =
+            qq|ORDER BY pg.partsgroup, a.$oid{$myconfig->{dbdriver}}|;
+        } else {
+          $sortorder = qq|ORDER BY a.$oid{$myconfig->{dbdriver}}|;
+        }
+
+        $query = qq|SELECT p.partnumber, p.description, p.unit, a.qty,
 	            pg.partsgroup
 	            FROM assembly a
 		    JOIN parts p ON (a.parts_id = p.id)
@@ -831,48 +995,56 @@ sub order_details {
         $sth = $dbh->prepare($query);
         $sth->execute || $form->dberror($query);
 
-	while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-	  if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) {
-	    map { push(@{ $form->{$_} }, "") } qw(runningnumber ship bin serialnumber number unit bin qty reqdate sellprice listprice netprice discount linetotal);
-	    $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--";
-	    push(@{ $form->{description} }, $sameitem);
-	  }
-	  
-	  push(@{ $form->{description} }, $form->format_amount($myconfig, $ref->{qty} * $form->{"qty_$i"}) . qq|, $ref->{partnumber}, $ref->{description}|);
-
-          map { push(@{ $form->{$_} }, "") } qw(number unit qty runningnumber ship bin serialnumber reqdate sellprice listprice netprice discount linetotal);
-	  
-	}
-	$sth->finish;
+        while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
+          if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) {
+            map { push(@{ $form->{$_} }, "") }
+              qw(runningnumber ship bin serialnumber number unit bin qty reqdate sellprice listprice netprice discount linetotal);
+            $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--";
+            push(@{ $form->{description} }, $sameitem);
+          }
+
+          push(@{ $form->{description} },
+               $form->format_amount($myconfig, $ref->{qty} * $form->{"qty_$i"}
+                 )
+                 . qq|, $ref->{partnumber}, $ref->{description}|);
+
+          map { push(@{ $form->{$_} }, "") }
+            qw(number unit qty runningnumber ship bin serialnumber reqdate sellprice listprice netprice discount linetotal);
+
+        }
+        $sth->finish;
       }
 
     }
   }
 
-
   my $tax = 0;
   foreach $item (sort keys %taxaccounts) {
     if ($form->round_amount($taxaccounts{$item}, 2) != 0) {
-      push(@{ $form->{taxbase} }, $form->format_amount($myconfig, $taxbase{$item}, 2));
-      
+      push(@{ $form->{taxbase} },
+           $form->format_amount($myconfig, $taxbase{$item}, 2));
+
       $tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2);
-      
+
       push(@{ $form->{tax} }, $form->format_amount($myconfig, $taxamount, 2));
       push(@{ $form->{taxdescription} }, $form->{"${item}_description"});
-      push(@{ $form->{taxrate} }, $form->format_amount($myconfig, $form->{"${item}_rate"} * 100));
+      push(@{ $form->{taxrate} },
+           $form->format_amount($myconfig, $form->{"${item}_rate"} * 100));
       push(@{ $form->{taxnumber} }, $form->{"${item}_taxnumber"});
     }
   }
 
-
   $form->{subtotal} = $form->format_amount($myconfig, $form->{ordtotal}, 2);
-  $form->{ordtotal} = ($form->{taxincluded}) ? $form->{ordtotal} : $form->{ordtotal} + $tax;
-  
+  $form->{ordtotal} =
+    ($form->{taxincluded}) ? $form->{ordtotal} : $form->{ordtotal} + $tax;
+
   # format amounts
-  $form->{quototal} = $form->{ordtotal} = $form->format_amount($myconfig, $form->{ordtotal}, 2);
+  $form->{quototal} = $form->{ordtotal} =
+    $form->format_amount($myconfig, $form->{ordtotal}, 2);
 
   # myconfig variables
-  map { $form->{$_} = $myconfig->{$_} } (qw(company address tel fax signature businessnumber));
+  map { $form->{$_} = $myconfig->{$_} }
+    (qw(company address tel fax signature businessnumber));
   $form->{username} = $myconfig->{name};
 
   $dbh->disconnect;
@@ -880,7 +1052,6 @@ sub order_details {
   $main::lxdebug->leave_sub();
 }
 
-
 sub project_description {
   $main::lxdebug->enter_sub();
 
@@ -893,7 +1064,7 @@ sub project_description {
   $sth->execute || $form->dberror($query);
 
   ($_) = $sth->fetchrow_array;
-  
+
   $sth->finish;
 
   $main::lxdebug->leave_sub();
@@ -901,13 +1072,13 @@ sub project_description {
   return $_;
 }
 
-
 sub get_warehouses {
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $form) = @_;
-  
+
   my $dbh = $form->dbconnect($myconfig);
+
   # setup warehouses
   my $query = qq|SELECT id, description
                  FROM warehouse|;
@@ -925,12 +1096,11 @@ sub get_warehouses {
   $main::lxdebug->leave_sub();
 }
 
-
 sub save_inventory {
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $form) = @_;
-  
+
   my ($null, $warehouse_id) = split /--/, $form->{warehouse};
   $warehouse_id *= 1;
 
@@ -938,13 +1108,13 @@ sub save_inventory {
   ($null, $employee_id) = split /--/, $form->{employee};
 
   my $ml = ($form->{type} eq 'ship_order') ? -1 : 1;
-  
+
   my $dbh = $form->dbconnect_noauto($myconfig);
   my $sth;
   my $wth;
   my $serialnumber;
   my $ship;
-  
+
   $query = qq|SELECT o.serialnumber, o.ship
               FROM orderitems o
               WHERE o.trans_id = ?
@@ -957,12 +1127,14 @@ sub save_inventory {
 	      WHERE i.parts_id = ?
 	      AND i.warehouse_id = ?|;
   $wth = $dbh->prepare($query) || $form->dberror($query);
-  
 
   for my $i (1 .. $form->{rowcount} - 1) {
 
-    $ship = (abs($form->{"ship_$i"}) > abs($form->{"qty_$i"})) ? $form->{"qty_$i"} : $form->{"ship_$i"};
-    
+    $ship =
+      (abs($form->{"ship_$i"}) > abs($form->{"qty_$i"}))
+      ? $form->{"qty_$i"}
+      : $form->{"ship_$i"};
+
     if ($warehouse_id && $form->{type} eq 'ship_order') {
 
       $wth->execute($form->{"id_$i"}, $warehouse_id) || $form->dberror;
@@ -971,11 +1143,10 @@ sub save_inventory {
       $wth->finish;
 
       if ($ship > $qty) {
-	$ship = $qty;
+        $ship = $qty;
       }
     }
 
-    
     if ($ship != 0) {
 
       $ship *= $ml;
@@ -986,9 +1157,10 @@ sub save_inventory {
 		  $form->{"orderitems_id_$i"}, '$form->{shippingdate}',
 		  $employee_id)|;
       $dbh->do($query) || $form->dberror($query);
-     
+
       # add serialnumber, ship to orderitems
-      $sth->execute($form->{id}, $form->{"orderitems_id_$i"}) || $form->dberror;
+      $sth->execute($form->{id}, $form->{"orderitems_id_$i"})
+        || $form->dberror;
       ($serialnumber, $ship) = $sth->fetchrow_array;
       $sth->finish;
 
@@ -1002,20 +1174,16 @@ sub save_inventory {
 		  WHERE trans_id = $form->{id}
 		  AND id = $form->{"orderitems_id_$i"}|;
       $dbh->do($query) || $form->dberror($query);
-      
-      
+
       # update order with ship via
       $query = qq|UPDATE oe SET
                   shippingpoint = '$form->{shippingpoint}',
                   shipvia = '$form->{shipvia}'
 		  WHERE id = $form->{id}|;
       $dbh->do($query) || $form->dberror($query);
-      
-		  
+
       # update onhand for parts
-      $form->update_balance($dbh,
-                            "parts",
-                            "onhand",
+      $form->update_balance($dbh, "parts", "onhand",
                             qq|id = $form->{"id_$i"}|,
                             $form->{"ship_$i"} * $ml);
 
@@ -1030,7 +1198,6 @@ sub save_inventory {
   return $rc;
 }
 
-
 sub adj_onhand {
   $main::lxdebug->enter_sub();
 
@@ -1050,45 +1217,42 @@ sub adj_onhand {
   my $ath = $dbh->prepare($query) || $form->dberror($query);
 
   my $ispa;
-  
+
   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
 
     if ($ref->{inventory_accno_id} || $ref->{assembly}) {
 
       # do not update if assembly consists of all services
       if ($ref->{assembly}) {
-	$ath->execute($ref->{parts_id}) || $form->dberror($query);
+        $ath->execute($ref->{parts_id}) || $form->dberror($query);
 
         ($ispa) = $sth->fetchrow_array;
-	$ath->finish;
-	
-	next unless $ispa;
-	
+        $ath->finish;
+
+        next unless $ispa;
+
       }
 
       # adjust onhand in parts table
-      $form->update_balance($dbh,
-			    "parts",
-			    "onhand",
-			    qq|id = $ref->{parts_id}|,
-			    $ref->{ship} * $ml);
+      $form->update_balance($dbh, "parts", "onhand",
+                            qq|id = $ref->{parts_id}|,
+                            $ref->{ship} * $ml);
     }
   }
-  
+
   $sth->finish;
 
   $main::lxdebug->leave_sub();
 }
 
-
 sub adj_inventory {
   $main::lxdebug->enter_sub();
 
   my ($dbh, $myconfig, $form) = @_;
 
-  my %oid = ('Pg'	=> 'oid',
-             'Oracle'	=> 'rowid');
-  
+  my %oid = ('Pg'     => 'oid',
+             'Oracle' => 'rowid');
+
   # increase/reduce qty in inventory table
   my $query = qq|SELECT oi.id, oi.parts_id, oi.ship
                  FROM orderitems oi
@@ -1104,10 +1268,10 @@ sub adj_inventory {
               WHERE oe_id = $form->{id}
 	      AND orderitems_id = ?|;
   my $ith = $dbh->prepare($query) || $form->dberror($query);
-  
+
   my $qty;
   my $ml = ($form->{type} =~ /(ship|sales)_order/) ? -1 : 1;
-  
+
   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
 
     $ith->execute($ref->{id}, $ref->{id}) || $form->dberror($query);
@@ -1115,11 +1279,9 @@ sub adj_inventory {
     while (my $inv = $ith->fetchrow_hashref(NAME_lc)) {
 
       if (($qty = (($inv->{total} * $ml) - $ref->{ship})) >= 0) {
-	$qty = $inv->{qty} if ($qty > ($inv->{qty} * $ml));
-	
-	$form->update_balance($dbh,
-                              "inventory",
-                              "qty",
+        $qty = $inv->{qty} if ($qty > ($inv->{qty} * $ml));
+
+        $form->update_balance($dbh, "inventory", "qty",
                               qq|$oid{$myconfig->{dbdriver}} = $inv->{oid}|,
                               $qty * -1 * $ml);
       }
@@ -1138,17 +1300,16 @@ sub adj_inventory {
   $main::lxdebug->leave_sub();
 }
 
-
 sub get_inventory {
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $form) = @_;
-  
+
   my ($null, $warehouse_id) = split /--/, $form->{warehouse};
   $warehouse_id *= 1;
 
   my $dbh = $form->dbconnect($myconfig);
-  
+
   my $query = qq|SELECT p.id, p.partnumber, p.description, p.onhand,
                  pg.partsgroup
                  FROM parts p
@@ -1170,10 +1331,9 @@ sub get_inventory {
     $query .= "
                  AND lower(pg.partsgroup) LIKE '$var'";
   }
-  
+
   $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
-  
 
   $query = qq|SELECT sum(i.qty), w.description, w.id
               FROM inventory i
@@ -1184,17 +1344,19 @@ sub get_inventory {
   $wth = $dbh->prepare($query) || $form->dberror($query);
 
   while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
-    
+
     $wth->execute($ref->{id}) || $form->dberror;
-    
+
     while (($qty, $warehouse, $warehouse_id) = $wth->fetchrow_array) {
-      push @{ $form->{all_inventory} }, {'id' => $ref->{id},
-                                         'partnumber' => $ref->{partnumber},
-                                         'description' => $ref->{description},
-					 'partsgroup' => $ref->{partsgroup},
-					 'qty' => $qty,
-					 'warehouse_id' => $warehouse_id,
-                                         'warehouse' => $warehouse} if $qty > 0;
+      push @{ $form->{all_inventory} },
+        { 'id'           => $ref->{id},
+          'partnumber'   => $ref->{partnumber},
+          'description'  => $ref->{description},
+          'partsgroup'   => $ref->{partsgroup},
+          'qty'          => $qty,
+          'warehouse_id' => $warehouse_id,
+          'warehouse'    => $warehouse }
+        if $qty > 0;
     }
     $wth->finish;
   }
@@ -1203,21 +1365,22 @@ sub get_inventory {
   $dbh->disconnect;
 
   # sort inventory
-  @{ $form->{all_inventory} } = sort { $a->{$form->{sort}} cmp $b->{$form->{sort}} } @{ $form->{all_inventory} };
+  @{ $form->{all_inventory} } =
+    sort { $a->{ $form->{sort} } cmp $b->{ $form->{sort} } }
+    @{ $form->{all_inventory} };
 
   $main::lxdebug->leave_sub();
 
   return @{ $form->{all_inventory} };
 }
 
-
 sub transfer {
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $form) = @_;
-  
+
   my $dbh = $form->dbconnect_noauto($myconfig);
-  
+
   my $query = qq|INSERT INTO inventory
                  (warehouse_id, parts_id, qty, shippingdate, employee_id)
 		 VALUES (?, ?, ?, ?, ?)|;
@@ -1225,22 +1388,30 @@ sub transfer {
 
   $form->get_employee($dbh);
 
-  my @a = localtime; $a[5] += 1900; $a[4]++;
+  my @a = localtime;
+  $a[5] += 1900;
+  $a[4]++;
   $shippingdate = "$a[5]-$a[4]-$a[3]";
 
   for my $i (1 .. $form->{rowcount}) {
     $qty = $form->parse_amount($myconfig, $form->{"transfer_$i"});
 
     $qty = $form->{"qty_$i"} if ($qty > $form->{"qty_$i"});
-    
+
     if ($qty) {
+
       # to warehouse
-      $sth->execute($form->{warehouse_id}, $form->{"id_$i"}, $qty, $shippingdate, $form->{employee_id}) || $form->dberror;
+      $sth->execute($form->{warehouse_id}, $form->{"id_$i"}, $qty,
+                    $shippingdate, $form->{employee_id})
+        || $form->dberror;
 
       $sth->finish;
-      
+
       # from warehouse
-      $sth->execute($form->{"warehouse_id_$i"}, $form->{"id_$i"}, $qty * -1, $shippingdate, $form->{employee_id}) || $form->dberror;
+      $sth->execute($form->{"warehouse_id_$i"},
+                    $form->{"id_$i"}, $qty * -1, $shippingdate,
+                    $form->{employee_id})
+        || $form->dberror;
 
       $sth->finish;
     }
@@ -1258,34 +1429,35 @@ sub webdav_folder {
   $main::lxdebug->enter_sub();
 
   my ($myconfig, $form) = @_;
-  
 
-  SWITCH: {
-  	$path = "webdav/angebote/".$form->{quonumber}, last SWITCH if ($form->{type} eq "sales_quotation");
-	$path = "webdav/bestellungen/".$form->{ordnumber}, last SWITCH if ($form->{type} eq "sales_order"); 
-	$path = "webdav/anfragen/".$form->{quonumber}, last SWITCH if ($form->{type} eq "request_quotation"); 
-	$path = "webdav/lieferantenbestellungen/".$form->{ordnumber}, last SWITCH if ($form->{type} eq "purchase_order");
+SWITCH: {
+    $path = "webdav/angebote/" . $form->{quonumber}, last SWITCH
+      if ($form->{type} eq "sales_quotation");
+    $path = "webdav/bestellungen/" . $form->{ordnumber}, last SWITCH
+      if ($form->{type} eq "sales_order");
+    $path = "webdav/anfragen/" . $form->{quonumber}, last SWITCH
+      if ($form->{type} eq "request_quotation");
+    $path = "webdav/lieferantenbestellungen/" . $form->{ordnumber}, last SWITCH
+      if ($form->{type} eq "purchase_order");
   }
 
-
-  if (! -d $path) {
-  	mkdir ($path, 0770) or die "can't make directory $!\n";
+  if (!-d $path) {
+    mkdir($path, 0770) or die "can't make directory $!\n";
   } else {
-  	if ($form->{id}) {
-		@files = <$path/*>;
-		foreach $file (@files) {
-			$file =~ /\/([^\/]*)$/;
-			$fname = $1;
-			$ENV{'SCRIPT_NAME'} =~ /\/([^\/]*)\//;
-			$lxerp = $1;
-			$link = "http://".$ENV{'SERVER_NAME'}."/".$lxerp."/".$file;
-			$form->{WEBDAV}{$fname} = $link; 
-		}
-	}
+    if ($form->{id}) {
+      @files = <$path/*>;
+      foreach $file (@files) {
+        $file =~ /\/([^\/]*)$/;
+        $fname = $1;
+        $ENV{'SCRIPT_NAME'} =~ /\/([^\/]*)\//;
+        $lxerp = $1;
+        $link  = "http://" . $ENV{'SERVER_NAME'} . "/" . $lxerp . "/" . $file;
+        $form->{WEBDAV}{$fname} = $link;
+      }
+    }
   }
-  
-  
+
   $main::lxdebug->leave_sub();
-} 
+}
 1;