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)