Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 6fb26f9a

Von Tamino Steinert vor etwa 2 Jahren hinzugefügt

  • ID 6fb26f9aa9e1e194a46aee62d1f143d5c807b1d7
  • Vorgänger c8774e89
  • Nachfolger cc9d7f43

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