Revision bb6ab1cd
Von Tamino Steinert vor mehr als 2 Jahren hinzugefügt
SL/DB/Reclamation.pm | ||
---|---|---|
use SL::DB::Helper::TransNumberGenerator;
|
||
use SL::Locale::String qw(t8);
|
||
use SL::RecordLinks;
|
||
use Rose::DB::Object::Helpers qw(as_tree);
|
||
use Rose::DB::Object::Helpers qw(as_tree strip);
|
||
|
||
__PACKAGE__->meta->add_relationship(
|
||
|
||
... | ... | |
|
||
1;
|
||
})) {
|
||
return undef;
|
||
return undef, $self->db->error->db_error->db_error;
|
||
}
|
||
|
||
return $order;
|
||
... | ... | |
return undef, $self->db->error->db_error->db_error;
|
||
}
|
||
|
||
return $delivery_order, undef;
|
||
return $delivery_order;
|
||
}
|
||
|
||
#TODO(Werner): überprüfen ob alle Felder richtig gestetzt werden
|
||
... | ... | |
$record_args{vendor_id} = undef;
|
||
$record_args{salesman_id} = undef;
|
||
$record_args{payment_id} = undef;
|
||
$record_args{delivery_term_id} = undef;
|
||
}
|
||
|
||
|
Auch abrufbar als: Unified diff
Reclamation: Test for workflow (reclamation, order, delivery_order)