Revision 2746ccd0
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/DB/DeliveryOrder.pm | ||
|---|---|---|
|
return first { $_->is_type('sales_order') } @{ $orders };
|
||
|
}
|
||
|
|
||
|
sub type {
|
||
|
return shift->customer_id ? 'sales_delivery_order' : 'purchase_delivery_order';
|
||
|
}
|
||
|
|
||
|
sub displayable_state {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return join '; ',
|
||
|
($self->closed ? $::locale->text('closed') : $::locale->text('open')),
|
||
|
($self->delivered ? $::locale->text('delivered') : $::locale->text('not delivered'));
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/DB/Invoice.pm | ||
|---|---|---|
|
}
|
||
|
}
|
||
|
|
||
|
sub invoice_type {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return 'ar_transaction' if !$self->invoice;
|
||
|
return 'credit_note' if $self->type eq 'credit_note' && $self->amount < 0 && !$self->storno;
|
||
|
return 'invoice_storno' if $self->type ne 'credit_note' && $self->amount < 0 && $self->storno;
|
||
|
return 'credit_note_storno' if $self->type eq 'credit_note' && $self->amount > 0 && $self->storno;
|
||
|
return 'invoice';
|
||
|
}
|
||
|
|
||
|
sub displayable_state {
|
||
|
my $self = shift;
|
||
|
|
||
|
return $self->closed ? $::locale->text('closed') : $::locale->text('open');
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
| SL/DB/Order.pm | ||
|---|---|---|
|
return shift->type eq shift;
|
||
|
}
|
||
|
|
||
|
sub displayable_type {
|
||
|
my $type = shift->type;
|
||
|
|
||
|
return $::locale->text('Sales quotation') if $type eq 'sales_quotation';
|
||
|
return $::locale->text('Request quotation') if $type eq 'request_quotation';
|
||
|
return $::locale->text('Sales Order') if $type eq 'sales_order';
|
||
|
return $::locale->text('Purchase Order') if $type eq 'purchase_order';
|
||
|
|
||
|
die 'invalid type';
|
||
|
}
|
||
|
|
||
|
|
||
|
sub is_sales {
|
||
|
croak 'not an accessor' if @_ > 1;
|
||
|
return shift->customer_id;
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
sub displayable_state {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return $self->closed ? $::locale->text('closed') : $::locale->text('open');
|
||
|
}
|
||
|
|
||
|
sub abschlag_invoices {
|
||
|
return shift()->invoices(query => [ abschlag => 1 ]);
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Helfermethoden in Belegobjekten.