Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision a93f1e39

Von Moritz Bunkus vor fast 12 Jahren hinzugefügt

  • ID a93f1e395694983593c65b35427a13d68e46d380
  • Vorgänger 61bd6288
  • Nachfolger a2820962

Funktion 'is_sales' in SL::DB::{Invoice,PurchaseInvoice}

Gleiche Funktionen für ähnliche Objekttypen

Unterschiede anzeigen:

SL/DB/DeliveryOrder.pm
2 2 

  		




  3
  3
  
    
use strict;


  		




  4
  4
  
    

  		




  
  5
  
    
use Carp;


  		




  
  6
  
    

  		




  5
  7
  
    
use SL::DB::MetaSetup::DeliveryOrder;


  		




  6
  8
  
    
use SL::DB::Manager::DeliveryOrder;


  		




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


  		












  

    
      SL/DB/Invoice.pm
    
  





  37
  37
  
    
sub items        { goto &invoiceitems; }


  		




  38
  38
  
    
sub payment_term { goto &payment;      }


  		




  39
  39
  
    

  		




  
  40
  
    
sub is_sales {


  		




  
  41
  
    
  # For compatibility with Order, DeliveryOrder


  		




  
  42
  
    
  croak 'not an accessor' if @_ > 1;


  		




  
  43
  
    
  return 1;


  		




  
  44
  
    
}


  		




  
  45
  
    

  		




  40
  46
  
    
# it is assumed, that ordnumbers are unique here.


  		




  41
  47
  
    
sub first_order_by_ordnumber {


  		




  42
  48
  
    
  my $self = shift;


  		












  

    
      SL/DB/PurchaseInvoice.pm
    
  





  2
  2
  
    

  		




  3
  3
  
    
use strict;


  		




  4
  4
  
    

  		




  
  5
  
    
use Carp;


  		




  
  6
  
    

  		




  5
  7
  
    
use SL::DB::MetaSetup::PurchaseInvoice;


  		




  6
  8
  
    
use SL::DB::Manager::PurchaseInvoice;


  		




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


  		




  ......




  20
  22
  
    
sub items        { goto &invoiceitems; }


  		




  21
  23
  
    
sub payment_term { goto &payment;      }


  		




  22
  24
  
    

  		




  
  25
  
    
sub is_sales {


  		




  
  26
  
    
  # For compatibility with Order, DeliveryOrder


  		




  
  27
  
    
  croak 'not an accessor' if @_ > 1;


  		




  
  28
  
    
  return 0;


  		




  
  29
  
    
}


  		




  
  30
  
    

  		




  23
  31
  
    
1;


  		












Auch abrufbar als:  Unified diff