Revision 0ecd797d
Von Tamino Steinert vor etwa 2 Jahren hinzugefügt
| SL/DB/Reclamation.pm | ||
|---|---|---|
| 20 | 20 |
use SL::DB::Helper::TransNumberGenerator; |
| 21 | 21 |
use SL::Locale::String qw(t8); |
| 22 | 22 |
use SL::RecordLinks; |
| 23 |
use Rose::DB::Object::Helpers qw(as_tree); |
|
| 23 |
use Rose::DB::Object::Helpers qw(as_tree strip);
|
|
| 24 | 24 |
|
| 25 | 25 |
__PACKAGE__->meta->add_relationship( |
| 26 | 26 |
|
| ... | ... | |
| 258 | 258 |
|
| 259 | 259 |
1; |
| 260 | 260 |
})) {
|
| 261 |
return undef; |
|
| 261 |
return undef, $self->db->error->db_error->db_error;
|
|
| 262 | 262 |
} |
| 263 | 263 |
|
| 264 | 264 |
return $order; |
| ... | ... | |
| 296 | 296 |
return undef, $self->db->error->db_error->db_error; |
| 297 | 297 |
} |
| 298 | 298 |
|
| 299 |
return $delivery_order, undef;
|
|
| 299 |
return $delivery_order; |
|
| 300 | 300 |
} |
| 301 | 301 |
|
| 302 | 302 |
#TODO(Werner): überprüfen ob alle Felder richtig gestetzt werden |
| ... | ... | |
| 485 | 485 |
$record_args{vendor_id} = undef;
|
| 486 | 486 |
$record_args{salesman_id} = undef;
|
| 487 | 487 |
$record_args{payment_id} = undef;
|
| 488 |
$record_args{delivery_term_id} = undef;
|
|
| 488 | 489 |
} |
| 489 | 490 |
|
| 490 | 491 |
|
Auch abrufbar als: Unified diff
Reclamation: Test for workflow (reclamation, order, delivery_order)