Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 8522a85e

Von Tamino Steinert vor fast 2 Jahren hinzugefügt

  • ID 8522a85e2af8b665386b911d0224e550e8fcd8bd
  • Vorgänger 7ac17a23
  • Nachfolger fe3e0ed3

Workflow: (sales/purchase) invoice → reclamation

Unterschiede anzeigen:

SL/DB/ReclamationItem.pm
55 55 
      SL::DB::ReclamationItem
56 56 
      SL::DB::OrderItem
57 57 
      SL::DB::DeliveryOrderItem
58 
      SL::DB::InvoiceItem
58 59 
    )
59 60 
  ) {
60 61 
    croak("Unsupported source object type '" . ref($source) . "'");
......
86 87 
      pricegroup_id project_id qty reqdate sellprice serialnumber unit
87 88 
    );
88 89 
    $item_args{custom_variables} = \@custom_variables;
90 
  } elsif (ref($source) eq 'SL::DB::InvoiceItem') {
91 
    map { $item_args{$_} = $source->$_ } qw(
92 
      active_discount_source active_price_source base_qty description discount
93 
      lastcost longdescription parts_id position price_factor price_factor_id
94 
      pricegroup_id project_id qty sellprice serialnumber unit
95 
    );
96 
    $item_args{custom_variables} = \@custom_variables;
89 97 
  }
90 98 

  		




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


  		












Auch abrufbar als:  Unified diff