Revision 0bbfb33b
Von Jan Büren vor fast 14 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 527 | 527 |
|
| 528 | 528 |
# set values which could be empty |
| 529 | 529 |
my $taxzone_id = $form->{taxzone_id} * 1;
|
| 530 |
$form->{department_id} = (split /--/, $form->{department})[1];
|
|
| 530 |
|
|
| 531 |
# Seit neuestem wird die department_id schon übergeben UND $form->department nicht mehr |
|
| 532 |
# korrekt zusammengebaut. Sehr wahrscheinlich beim Umstieg auf T8 kaputt gegangen |
|
| 533 |
# Ich lass den Code von 2005 erstmal noch stehen ;-) jb 03-2011 |
|
| 534 |
# copy & paste von IS.pm |
|
| 535 |
if (!$form->{department_id}){
|
|
| 536 |
$form->{department_id} = (split /--/, $form->{department})[1];
|
|
| 537 |
} |
|
| 531 | 538 |
$form->{invnumber} = $form->{id} unless $form->{invnumber};
|
| 532 | 539 |
|
| 533 | 540 |
$taxzone_id = 0 if (3 < $taxzone_id) || (0 > $taxzone_id); |
| SL/IS.pm | ||
|---|---|---|
| 529 | 529 |
} |
| 530 | 530 |
|
| 531 | 531 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 532 |
|
|
| 533 |
($null, $form->{department_id}) = split(/--/, $form->{department});
|
|
| 532 |
# Seit neuestem wird die department_id schon übergeben UND $form->department nicht mehr |
|
| 533 |
# korrekt zusammengebaut. Sehr wahrscheinlich beim Umstieg auf T8 kaputt gegangen |
|
| 534 |
# Ich lass den Code von 2005 erstmal noch stehen ;-) jb 03-2011 |
|
| 535 |
if (!$form->{department_id}){
|
|
| 536 |
($null, $form->{department_id}) = split(/--/, $form->{department});
|
|
| 537 |
} |
|
| 534 | 538 |
|
| 535 | 539 |
my $all_units = AM->retrieve_units($myconfig, $form); |
| 536 | 540 |
|
Auch abrufbar als: Unified diff
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