Revision 598383b3
Von Bernd Bleßmann vor mehr als 4 Jahren hinzugefügt
SL/DB/Order.pm | ||
---|---|---|
277 | 277 |
} |
278 | 278 |
|
279 | 279 |
my %args = ( map({ ( $_ => $source->$_ ) } qw(amount cp_id currency_id cusordnumber customer_id delivery_customer_id delivery_term_id delivery_vendor_id |
280 |
department_id employee_id globalproject_id intnotes marge_percent marge_total language_id netamount notes |
|
280 |
department_id employee_id exchangerate globalproject_id intnotes marge_percent marge_total language_id netamount notes
|
|
281 | 281 |
ordnumber payment_id quonumber reqdate salesman_id shippingpoint shipvia taxincluded taxzone_id |
282 | 282 |
transaction_description vendor_id |
283 | 283 |
)), |
... | ... | |
392 | 392 |
} |
393 | 393 |
foreach my $attr (qw(cp_id currency_id employee_id salesman_id department_id |
394 | 394 |
delivery_customer_id delivery_vendor_id shipto_id |
395 |
globalproject_id)) { |
|
395 |
globalproject_id exchangerate)) {
|
|
396 | 396 |
$attributes{$attr} = undef if any { ($sources->[0]->$attr||0) != ($_->$attr||0) } @$sources; |
397 | 397 |
} |
398 | 398 |
|
Auch abrufbar als: Unified diff
Auftrags-Controller: Wechselkurs pro Beleg …
- Wechselkurs wird pro Beleg gespeichert
- Wechselkurs ist immer änderbar
- vorausgefüllt aus "alter" Tages-Wechselkurstabelle
Bezieht sich auch auf #135
Refs #135