Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision b5cf30e7

Von Tamino Steinert vor mehr als 2 Jahren hinzugefügt

  • ID b5cf30e76cefb7c3eb04810abae2ad41e788fea8
  • Vorgänger e86dee01
  • Nachfolger 44212e4b

Workflow: delivery_order ↔ reclamation

Unterschiede anzeigen:

SL/DB/ReclamationItem.pm
54 54 
    qw(
55 55 
      SL::DB::ReclamationItem
56 56 
      SL::DB::OrderItem
57 
      SL::DB::DeliveryOrderItem
57 58 
    )
58 59 
  ) {
59 60 
    croak("Unsupported source object type '" . ref($source) . "'");
......
78 79 
      pricegroup_id project_id qty reqdate sellprice serialnumber unit
79 80 
    );
80 81 
    $item_args{custom_variables} = \@custom_variables;
82 
  } elsif (ref($source) eq 'SL::DB::DeliveryOrderItem') {
83 
    map { $item_args{$_} = $source->$_ } qw(
84 
      active_discount_source active_price_source base_qty description discount
85 
      lastcost longdescription parts_id position price_factor price_factor_id
86 
      pricegroup_id project_id qty reqdate sellprice serialnumber unit
87 
    );
88 
    $item_args{custom_variables} = \@custom_variables;
81 89 
  }
82 90 

  		




  83
  91
  
    
  my $item = $class->new(%item_args);


  		












Auch abrufbar als:  Unified diff