Revision 99b32878
Von Jan Büren vor fast 10 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 683 | 683 |
my $taxzone_id = $form->{taxzone_id} * 1;
|
| 684 | 684 |
$taxzone_id = SL::DB::Manager::TaxZone->get_default->id unless SL::DB::Manager::TaxZone->find_by(id => $taxzone_id); |
| 685 | 685 |
|
| 686 |
# Seit neuestem wird die department_id schon übergeben UND $form->department nicht mehr |
|
| 687 |
# korrekt zusammengebaut. Sehr wahrscheinlich beim Umstieg auf T8 kaputt gegangen |
|
| 688 |
# Ich lass den Code von 2005 erstmal noch stehen ;-) jb 03-2011 |
|
| 689 |
# copy & paste von IS.pm |
|
| 690 |
if (!$form->{department_id}){
|
|
| 691 |
$form->{department_id} = (split /--/, $form->{department})[1];
|
|
| 692 |
} |
|
| 693 | 686 |
$form->{invnumber} = $form->{id} unless $form->{invnumber};
|
| 694 | 687 |
|
| 695 | 688 |
# save AP record |
| SL/IS.pm | ||
|---|---|---|
| 578 | 578 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 579 | 579 |
my $defaultcurrency = $form->{defaultcurrency};
|
| 580 | 580 |
|
| 581 |
# Seit neuestem wird die department_id schon übergeben UND $form->department nicht mehr |
|
| 582 |
# korrekt zusammengebaut. Sehr wahrscheinlich beim Umstieg auf T8 kaputt gegangen |
|
| 583 |
# Ich lass den Code von 2005 erstmal noch stehen ;-) jb 03-2011 |
|
| 584 |
if (!$form->{department_id}){
|
|
| 585 |
($null, $form->{department_id}) = split(/--/, $form->{department});
|
|
| 586 |
} |
|
| 587 |
|
|
| 588 | 581 |
my $all_units = AM->retrieve_units($myconfig, $form); |
| 589 | 582 |
|
| 590 | 583 |
if (!$payments_only) {
|
Auch abrufbar als: Unified diff
2005 backend code entfernt, der dank L überflüssig wurde (department ist kein multibox-feld mehr)