Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision ca48cabb

Von Jan Büren vor mehr als 15 Jahren hinzugefügt

  • ID ca48cabb1cda087e3a27fa04dc64e4352e150446
  • Vorgänger 48579303
  • Nachfolger a819e20c

Der Verkaufspreis bei Erzeugnissen wird automatisch berechnet. Das macht kaum Sinn, deswegen werfen wir die entsprechenden Zeilen aus check_form und save in io.pl und ic.pl weg

Unterschiede anzeigen:

bin/mozilla/ic.pl
1881 1881
      # change/add values for assembly item
1882 1882
      map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
1883 1883

  
1884
      $form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1884
      # das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09
1885
      #$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1885 1886
      $form->{weight}    += $form->{"weight_$i"} * $form->{"qty_$i"};
1886 1887

  
1887 1888
    } else {
bin/mozilla/io.pl
689 689

  
690 690
  } elsif ($form->{item} eq 'assembly') {
691 691

  
692
    $form->{sellprice} = 0;
692
    # fuer assemblies auskommentiert. seiteneffekte? ;-) wird die woanders benoetigt?
693
    #$form->{sellprice} = 0;
693 694
    $form->{weight}    = 0;
694 695
    map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
695 696
      qw(listprice rop stock);
......
708 709

  
709 710
        #($form->{"sellprice_$i"},$form->{"$pricegroup_old_$i"}) = split /--/, $form->{"sellprice_$i"};
710 711

  
711
        $form->{sellprice} += ($form->{"qty_$i"} * $form->{"sellprice_$i"} / ($form->{"price_factor_$i"} || 1));
712
        # fuer assemblies auskommentiert. siehe oben
713
	#    $form->{sellprice} += ($form->{"qty_$i"} * $form->{"sellprice_$i"} / ($form->{"price_factor_$i"} || 1));
712 714
        $form->{weight}    += ($form->{"qty_$i"} * $form->{"weight_$i"} / ($form->{"price_factor_$i"} || 1));
713 715
        $count++;
714 716
      }
715 717
    }
716

  
718
    # kann das hier auch weg? s.o. jb
717 719
    $form->{sellprice} = $form->round_amount($form->{sellprice}, 2);
718 720

  
719 721
    $form->redo_rows(\@flds, \@a, $count, $form->{assembly_rows});

Auch abrufbar als: Unified diff