Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e7f0039c

Von Niclas Zimmermann vor etwa 12 Jahren hinzugefügt

  • ID e7f0039c14a102c5b263d92ca9b7792f122e28ae
  • Vorgänger e2b15672
  • Nachfolger 0499c65e

Einheiten im Verkauf

In dem Verkaufsbericht gab es noch Probleme mit der Einheit in Bezug
auf den EK Preis. Dies hatte sich auch auf die Marge ausgewirkt. Beides
wird jetzt richtig berechnet.

In der Verkaufsrechnung gab es ähnliche Probleme. Hier wurde der
VK Preis nach Wechsel der Einheit umgerechnet, der EK Preis nicht.
Jetzt wird auch der EK Preis an die Einheit angepasst. Die Berechnung
war dadurch auch fehlerhaft durch unterschiedliche Einheiten
und wurde auch korrigiert.

Weiterhin wurde ein Problem mit dem Preisfaktor behoben. Wenn
ein Artikel in der Datenbank mit Preisfaktor hinterlegt war,
wurde der Preisfaktor bisher doppelt berechnet, jetzt nur
noch einmal.

Unterschiede anzeigen:

bin/mozilla/io.pl
226 226
    # adjust prices by unit, ignore if pricegroup changed
227 227
    if ((!$form->{"prices_$i"}) || ($form->{"new_pricegroup_$i"} == $form->{"old_pricegroup_$i"})) {
228 228
        $form->{"sellprice_$i"} *= AM->convert_unit($form->{"selected_unit_$i"}, $form->{"unit_old_$i"}, $all_units) || 1;
229
        $form->{"lastcost_$i"} *= AM->convert_unit($form->{"selected_unit_$i"}, $form->{"unit_old_$i"}, $all_units) || 1;
229 230
        $form->{"unit_old_$i"}   = $form->{"selected_unit_$i"};
230 231
    }
231 232
    my $this_unit = $form->{"unit_$i"};
......
358 359
    } else {
359 360
      $real_sellprice            = $linetotal;
360 361
    };
361
    my $real_lastcost            = $form->{"lastcost_$i"} * $form->{"qty_$i"} / ( $form->{"marge_price_factor_$i"} || 1 );
362
    my $real_lastcost            = $form->round_amount($form->{"lastcost_$i"} * $form->{"qty_$i"} / $price_factor, 2);
362 363
    my $marge_percent_warn       = $myconfig{marge_percent_warn} * 1 || 15;
363 364
    my $marge_adjust_credit_note = $form->{type} eq 'credit_note' ? -1 : 1;
364 365

  
bin/mozilla/vk.pl
334 334
    $ar->{price_factor} = 1 unless $ar->{price_factor};
335 335
    # calculate individual sellprice
336 336
    # discount was already accounted for in db sellprice
337
    $ar->{sellprice} = $ar->{sellprice} / $ar->{price_factor} / $basefactor;
338
    $ar->{lastcost} = $ar->{lastcost} / $ar->{price_factor};
337
    $ar->{sellprice}       = $ar->{sellprice}  / $ar->{price_factor} / $basefactor;
338
    $ar->{lastcost}        = $ar->{lastcost}   / $ar->{price_factor} / $basefactor;
339 339
    $ar->{sellprice_total} = $ar->{qty} * ( $ar->{fxsellprice} * ( 1 - $ar->{discount} ) ) / $ar->{price_factor};
340 340
    $ar->{lastcost_total}  = $ar->{qty} * $ar->{lastcost} * $basefactor;
341 341
    # marge_percent wird neu berechnet, da Wert in invoice leer ist (Bug)

Auch abrufbar als: Unified diff