Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 1904d8c6

Von Sven Schöling vor mehr als 9 Jahren hinzugefügt

  • ID 1904d8c63b2ab4172b36b117ec476c81c690ca86
  • Vorgänger b81ceec0
  • Nachfolger d770b5b3

RecordItem: unit_muiltiplier Methode

Unterschiede anzeigen:

SL/DB/DeliveryOrderItem.pm
5 5 
use SL::DB::MetaSetup::DeliveryOrderItem;
6 6 
use SL::DB::Helper::ActsAsList;
7 7 
use SL::DB::Helper::LinkedRecords;
8 
use SL::DB::Helper::RecordItem;
8 9 
use SL::DB::Helper::CustomVariables (
9 10 
  sub_module  => 'delivery_order_items',
10 11 
  cvars_alias => 1,
SL/DB/Helper/RecordItem.pm
1 
package SL::DB::Helper::RecordItem;
2 

  		




  
  3
  
    
use strict;


  		




  
  4
  
    
use parent qw(Exporter);


  		




  
  5
  
    

  		




  
  6
  
    
our @EXPORT = qw(base_sellprice unit_multiplier);


  		




  
  7
  
    

  		




  
  8
  
    
sub base_sellprice {


  		




  
  9
  
    
  $_[0]->sellprice / $_[0]->unit_multiplier;


  		




  
  10
  
    
}


  		




  
  11
  
    

  		




  
  12
  
    
sub unit_multiplier {


  		




  
  13
  
    
  $_[0]->unit_obj->convert_to(1, $_[0]->part->unit_obj)


  		




  
  14
  
    
}


  		




  
  15
  
    

  		




  
  16
  
    

  		




  
  17
  
    
1;


  		












  

    
      SL/DB/InvoiceItem.pm
    
  





  5
  5
  
    
use SL::DB::MetaSetup::InvoiceItem;


  		




  6
  6
  
    
use SL::DB::Helper::ActsAsList;


  		




  7
  7
  
    
use SL::DB::Helper::LinkedRecords;


  		




  
  8
  
    
use SL::DB::Helper::RecordItem;


  		




  8
  9
  
    
use SL::DB::Helper::CustomVariables (


  		




  9
  10
  
    
  sub_module  => 'invoice',


  		




  10
  11
  
    
  cvars_alias => 1,


  		












  

    
      SL/DB/OrderItem.pm
    
  





  9
  9
  
    
use SL::DB::DeliveryOrderItemsStock;


  		




  10
  10
  
    
use SL::DB::Helper::ActsAsList;


  		




  11
  11
  
    
use SL::DB::Helper::LinkedRecords;


  		




  
  12
  
    
use SL::DB::Helper::RecordItem;


  		




  12
  13
  
    
use SL::DB::Helper::CustomVariables (


  		




  13
  14
  
    
  sub_module  => 'orderitems',


  		




  14
  15
  
    
  cvars_alias => 1,


  		












Auch abrufbar als:  Unified diff