Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision d9c9bc22

Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt

  • ID d9c9bc227fbf8518ff8d63428d181d479ed848d8
  • Vorgänger f5c548f0
  • Nachfolger a596e63e

Bugfix Rabattberechnung: Berechnung so umgestellt, dass der Rabatt von der Zeilensumme genommen wird und nicht vom Einzelpreis (Rundung). Fix für Bug 325.
Bugfix Zwischensummen: Bei Belegen aus OE.pm (Angebote, Aufträge, Anfragen) wurde die Variable <%runningnumber%> innerhalb eines Zwischensummenblocks nicht "1.1, 1.2, 1.3" etc hochgezählt, sondern normal "1, 2, 3" etc.
Bugfix Zwischensummen: Bei manchen Browsern wurden die Checkboxen "Zwischensumme" nach "Erneuern" oder neuem Aufrufen eines Beleges nicht richtig vorausgewählt, auch wenn der Status in der Datenbank richtig war.
Kosmetik: Einrückung, Ausrichtung.

Unterschiede anzeigen:

bin/mozilla/io.pl
33 33
#
34 34
#######################################################################
35 35

  
36
use CGI;
37
use CGI::Ajax;
38
use List::Util qw(max);
39

  
36 40
use SL::Common;
37 41
use SL::CT;
38 42
use SL::IC;
39
use CGI::Ajax;
40
use CGI;
41 43

  
42 44
require "bin/mozilla/common.pl";
43 45

  
......
297 299
        $form->{"unit_old_$i"} = $form->{"selected_unit_$i"};
298 300
      }
299 301
    }
302

  
300 303
    ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
301
    $dec           = length $dec;
302
    $decimalplaces = ($dec > 2) ? $dec : 2;
303

  
304
    $discount =
305
      $form->round_amount(
306
                        $form->{"sellprice_$i"} * $form->{"discount_$i"} / 100,
307
                        $decimalplaces);
308

  
309
    $linetotal =
310
      $form->round_amount($form->{"sellprice_$i"} - $discount, $decimalplaces);
311
    $linetotal = $form->round_amount($linetotal * $form->{"qty_$i"}, 2);
312
    my $real_sellprice = $form->{"sellprice_$i"} - $discount;
304
    $decimalplaces = max length($dec), 2;
305

  
306
    $discount  = (100 - $form->{"discount_$i"} * 1) / 100;
307
    $linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} * $discount, $decimalplaces);
308

  
309
    my $real_sellprice = $form->{"sellprice_$i"} * $discount;
313 310

  
314 311
    # marge calculations
315 312
    my ($marge_font_start, $marge_font_end);

Auch abrufbar als: Unified diff