Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e13733db

Von Tamino Steinert vor etwa 1 Jahr hinzugefügt

  • ID e13733db2a63caf6765beb2afa4f7a86fb62bef8
  • Vorgänger 3751ebca
  • Nachfolger 2f9853c8

Part: um Helferfunktionen für den Warenstand erweitert

Unterschiede anzeigen:

SL/DB/Part.pm
8 8
use Rose::DB::Object::Helpers qw(as_tree);
9 9

  
10 10
use SL::Locale::String qw(t8);
11
use SL::Helper::Inventory;
11 12
use SL::DBUtils;
12 13
use SL::DB::MetaSetup::Part;
13 14
use SL::DB::Manager::Part;
......
91 92

  
92 93
__PACKAGE__->meta->initialize;
93 94

  
95
use Rose::Object::MakeMethods::Generic (
96
  'scalar --get_set_init' => [ qw(onhandqty stockqty get_open_ordered_qty) ],
97
);
94 98
__PACKAGE__->attr_html('notes');
95 99
__PACKAGE__->attr_sorted({ unsorted => 'makemodels',     position => 'sortorder' });
96 100
__PACKAGE__->attr_sorted({ unsorted => 'customerprices', position => 'sortorder' });
......
578 582
  return 1;
579 583
}
580 584

  
585
sub init_onhandqty{
586
  my ($self) = @_;
587
  my $qty = SL::Helper::Inventory::get_onhand(part => $self->id) || 0;
588
  return $qty;
589
}
590

  
591
sub init_stockqty{
592
  my ($self) = @_;
593
  my $qty = SL::Helper::Inventory::get_stock(part => $self->id) || 0;
594
  return $qty;
595
}
596

  
597
sub init_get_open_ordered_qty {
598
  my ($self) = @_;
599
  my $result = SL::DB::Manager::Part->get_open_ordered_qty($self->id);
600

  
601
  return $result;
602
}
603

  
581 604
1;
582 605

  
583 606
__END__

Auch abrufbar als: Unified diff