Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c8774e89

Von Tamino Steinert vor etwa 2 Jahren hinzugefügt

  • ID c8774e89fea91da739dd83b9b867ad0ab6eb9956
  • Vorgänger 08e12ce7
  • Nachfolger 6fb26f9a

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