Unterstützung für PostgreSQL 12 Teil 3

Sortierung der Erzeugnisse nach der dafür vorgesehenen
Positionsspalte, nicht ID.

diff --git a/SL/DO.pm b/SL/DO.pm
index f32e097..034189f 100644 (file)
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -1030,9 +1030,9 @@ sub order_details {
       my $sortorder = "";
       if ($form->{groupitems}) {
         $sortorder =
-          qq|ORDER BY pg.partsgroup, a.id|;
+          qq|ORDER BY pg.partsgroup, a.position|;
       } else {
-        $sortorder = qq|ORDER BY a.id|;
+        $sortorder = qq|ORDER BY a.position|;
       }
 
       do_statement($form, $h_pg, $q_pg, conv_i($form->{"id_$i"}));

diff --git a/SL/IS.pm b/SL/IS.pm
index 894a8ae..f79952e 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -442,9 +442,9 @@ sub invoice_details {
         my $sortorder = "";
         if ($form->{groupitems}) {
           $sortorder =
-            qq|ORDER BY pg.partsgroup, a.id|;
+            qq|ORDER BY pg.partsgroup, a.position|;
         } else {
-          $sortorder = qq|ORDER BY a.id|;
+          $sortorder = qq|ORDER BY a.position|;
         }
 
         my $query =

diff --git a/SL/OE.pm b/SL/OE.pm
index a94e9c2..d86b6c0 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -1528,9 +1528,9 @@ sub order_details {
         # get parts and push them onto the stack
         my $sortorder = "";
         if ($form->{groupitems}) {
-          $sortorder = qq|ORDER BY pg.partsgroup, a.id|;
+          $sortorder = qq|ORDER BY pg.partsgroup, a.position|;
         } else {
-          $sortorder = qq|ORDER BY a.id|;
+          $sortorder = qq|ORDER BY a.position|;
         }
 
         $query = qq|SELECT p.partnumber, p.description, p.unit, a.qty, | .