Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 5a6d7c03

Von Kivitendo Admin vor mehr als 2 Jahren hinzugefügt

  • ID 5a6d7c03f440180ec7f329877a52daabdf86a81c
  • Vorgänger 529435a8
  • Nachfolger 2001f09d

Neue Belegmethode netamount_base_currency

netamount ist
  • für Angebote und Aufträge und Lieferscheine in der Fremdwährung
  • für EK- und VK-Rechnungen in der Hauptwährung.

Um in bestimmten Berichten, die auf mehrere Belege zugreifen (z.B. Finanzübersicht),
vergleichbare Zahlen zu haben, sollte dann netamount_base_currency statt
netamount verwendet werden.

Unterschiede anzeigen:

SL/DB/Order.pm
19 19 
use SL::DB::Helper::PriceTaxCalculator;
20 20 
use SL::DB::Helper::PriceUpdater;
21 21 
use SL::DB::Helper::TransNumberGenerator;
22 
use SL::DB::Helper::Payment qw(forex);
22 23 
use SL::Locale::String qw(t8);
23 24 
use SL::RecordLinks;
24 25 
use Rose::DB::Object::Helpers qw(as_tree);
......
580 581 
  return $final_version;
581 582 
}
582 583 

  		




  
  584
  
    
sub netamount_base_currency {


  		




  
  585
  
    
  my ($self) = @_;


  		




  
  586
  
    

  		




  
  587
  
    
  return $self->netamount unless $self->forex;


  		




  
  588
  
    

  		




  
  589
  
    
  if ( defined $self->exchangerate ) {


  		




  
  590
  
    
    return $self->netamount * $self->exchangerate;


  		




  
  591
  
    
  } else {


  		




  
  592
  
    
    return $self->netamount * $self->daily_exchangerate;


  		




  
  593
  
    
  }


  		




  
  594
  
    
}


  		




  
  595
  
    

  		




  583
  596
  
    
1;


  		




  584
  597
  
    

  		




  585
  598
  
    
__END__


  		












Auch abrufbar als:  Unified diff