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/Order.pm
84 84
  return shift->type eq shift;
85 85
}
86 86

  
87
sub displayable_type {
88
  my $type = shift->type;
89

  
90
  return $::locale->text('Sales quotation')   if $type eq 'sales_quotation';
91
  return $::locale->text('Request quotation') if $type eq 'request_quotation';
92
  return $::locale->text('Sales Order')       if $type eq 'sales_order';
93
  return $::locale->text('Purchase Order')    if $type eq 'purchase_order';
94

  
95
  die 'invalid type';
96
}
97

  
98

  
87 99
sub is_sales {
88 100
  croak 'not an accessor' if @_ > 1;
89 101
  return shift->customer_id;
......
105 117
  }
106 118
}
107 119

  
120
sub displayable_state {
121
  my ($self) = @_;
122

  
123
  return $self->closed ? $::locale->text('closed') : $::locale->text('open');
124
}
125

  
108 126
sub abschlag_invoices {
109 127
  return shift()->invoices(query => [ abschlag => 1 ]);
110 128
}

Auch abrufbar als: Unified diff