Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 2746ccd0

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

Helfermethoden in Belegobjekten.

Unterschiede anzeigen:

SL/DB/DeliveryOrder.pm
45 45 
  return first { $_->is_type('sales_order') } @{ $orders };
46 46 
}
47 47 

  		




  
  48
  
    
sub type {


  		




  
  49
  
    
  return shift->customer_id ? 'sales_delivery_order' : 'purchase_delivery_order';


  		




  
  50
  
    
}


  		




  
  51
  
    

  		




  
  52
  
    
sub displayable_state {


  		




  
  53
  
    
  my ($self) = @_;


  		




  
  54
  
    

  		




  
  55
  
    
  return join '; ',


  		




  
  56
  
    
    ($self->closed    ? $::locale->text('closed')    : $::locale->text('open')),


  		




  
  57
  
    
    ($self->delivered ? $::locale->text('delivered') : $::locale->text('not delivered'));


  		




  
  58
  
    
}


  		




  
  59
  
    

  		




  48
  60
  
    
1;


  		












Auch abrufbar als:  Unified diff