From 0bbfb33b6aa8e38bb6c81d1684ab7d08e5b5c5af Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Fri, 4 Mar 2011 08:48:11 +0100 Subject: [PATCH] Wahrscheinlich wird $form->department seit der T8 Umstellung nicht mehr korrekt zusammengesetzt. Offen: Interne DB-ID wird immer noch bei Abteilung angezeigt (?!) Ferner: Erfolgs- und Kostenstelle ist noch defekt. War meiner Meinung auch noch nie ganz sauber. Ansonsten, wichtigster Schritt zum Fixen von 1613 --- SL/IR.pm | 9 ++++++++- SL/IS.pm | 8 ++++++-- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/SL/IR.pm b/SL/IR.pm index 850d6ada8..83921779a 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -527,7 +527,14 @@ sub post_invoice { # set values which could be empty my $taxzone_id = $form->{taxzone_id} * 1; - $form->{department_id} = (split /--/, $form->{department})[1]; + + # Seit neuestem wird die department_id schon übergeben UND $form->department nicht mehr + # korrekt zusammengebaut. Sehr wahrscheinlich beim Umstieg auf T8 kaputt gegangen + # Ich lass den Code von 2005 erstmal noch stehen ;-) jb 03-2011 + # copy & paste von IS.pm + if (!$form->{department_id}){ + $form->{department_id} = (split /--/, $form->{department})[1]; + } $form->{invnumber} = $form->{id} unless $form->{invnumber}; $taxzone_id = 0 if (3 < $taxzone_id) || (0 > $taxzone_id); diff --git a/SL/IS.pm b/SL/IS.pm index d91a36b8b..3936e92e1 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -529,8 +529,12 @@ sub post_invoice { } $form->{defaultcurrency} = $form->get_default_currency($myconfig); - - ($null, $form->{department_id}) = split(/--/, $form->{department}); + # Seit neuestem wird die department_id schon übergeben UND $form->department nicht mehr + # korrekt zusammengebaut. Sehr wahrscheinlich beim Umstieg auf T8 kaputt gegangen + # Ich lass den Code von 2005 erstmal noch stehen ;-) jb 03-2011 + if (!$form->{department_id}){ + ($null, $form->{department_id}) = split(/--/, $form->{department}); + } my $all_units = AM->retrieve_units($myconfig, $form); -- 2.20.1