SEPA reference nach SEPA-Standard zulässigen Wert (140) erhöht

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 5c7d062ab4ff77b52b8b3391ed2759e821744516..7a9c54e41761fded429183fa5a1ed2f97c2553b2 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -27,7 +27,8 @@
 # GNU General Public License for more details.
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
 # GNU General Public License for more details.
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software

-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.

 #======================================================================
 # Utilities for parsing forms
 # and supporting routines for linking account numbers
 #======================================================================
 # Utilities for parsing forms
 # and supporting routines for linking account numbers


@@ -3180,16 +3181,13 @@ sub get_partsgroup {
   my @values;
 
   if ($p->{searchitems} eq 'part') {
   my @values;
 
   if ($p->{searchitems} eq 'part') {

-    $query .= qq|WHERE p.inventory_accno_id > 0|;
+    $query .= qq|WHERE p.part_type = 'part'|;

   }
   if ($p->{searchitems} eq 'service') {
   }
   if ($p->{searchitems} eq 'service') {

-    $query .= qq|WHERE p.inventory_accno_id IS NULL|;
+    $query .= qq|WHERE p.part_type = 'service'|;

   }
   if ($p->{searchitems} eq 'assembly') {
   }
   if ($p->{searchitems} eq 'assembly') {

-    $query .= qq|WHERE p.assembly = '1'|;
-  }
-  if ($p->{searchitems} eq 'labor') {
-    $query .= qq|WHERE (p.inventory_accno_id > 0) AND (p.income_accno_id IS NULL)|;
+    $query .= qq|WHERE p.part_type = 'assembly'|;

   }
 
   $query .= qq|ORDER BY partsgroup|;
   }
 
   $query .= qq|ORDER BY partsgroup|;