Revision 82574e78
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 41 | 41 |
use SL::PE; |
| 42 | 42 |
use SL::ReportGenerator; |
| 43 | 43 |
use List::Util qw(max reduce sum); |
| 44 |
use Data::Dumper; |
|
| 44 | 45 |
|
| 45 | 46 |
require "bin/mozilla/io.pl"; |
| 46 | 47 |
require "bin/mozilla/arap.pl"; |
| ... | ... | |
| 465 | 466 |
|
| 466 | 467 |
check_oe_access(); |
| 467 | 468 |
|
| 469 |
# $main::lxdebug->message(0, Dumper($form)); |
|
| 470 |
|
|
| 468 | 471 |
set_headings($form->{"id"} ? "edit" : "add");
|
| 469 | 472 |
|
| 470 | 473 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate) unless $recursive_call;
|
| ... | ... | |
| 491 | 494 |
&& ($form->{"partsgroup_$i"} eq "")) {
|
| 492 | 495 |
|
| 493 | 496 |
$form->{creditremaining} += ($form->{oldinvtotal} - $form->{oldtotalpaid});
|
| 494 |
&check_form; |
|
| 495 | 497 |
|
| 498 |
&check_form; |
|
| 496 | 499 |
} else {
|
| 497 | 500 |
|
| 498 | 501 |
if ($form->{type} =~ /^sales/) {
|
| ... | ... | |
| 502 | 505 |
} |
| 503 | 506 |
|
| 504 | 507 |
my $rows = scalar @{ $form->{item_list} };
|
| 505 |
|
|
| 506 |
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{discount} * 100);
|
|
| 508 |
# hier ist das problem fuer bug 817 $form->{discount} wird nicht durchgeschliffen
|
|
| 509 |
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{customer_discount} * 100);
|
|
| 507 | 510 |
|
| 508 | 511 |
if ($rows) {
|
| 509 | 512 |
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
|
Auch abrufbar als: Unified diff
Korrektur fuer Bug 817 Rabatte die beim Kunden hinterlegt sind, werden jetzt bei jeder neuen Position automatisch gesetzt in der Angebots/Auftrags-Maske sowie in der Rechnungsmaske (so war dies sicherlich irgendwann mal fruehr SQL-Ledger vor dem fork ...;-)). - Beim Kundenwechsel wird der vorher gesetzte Rabatt nicht ueberschrieben. Ferner heisst die Variable jetzt customer_discount, da discount ueberall und fuer alles verwendet wurde