Revision 2803b3fd
Von Werner Hahn vor mehr als 8 Jahren hinzugefügt
SL/BackgroundJob/ShopOrder.pm | ||
---|---|---|
1 |
package SL::BackgroundJob::ShopOrder; |
|
2 |
|
|
3 |
use strict; |
|
4 |
use warnings; |
|
5 |
|
|
6 |
use parent qw(SL::BackgroundJob::Base); |
|
7 |
|
|
8 |
# Workflow Dreschflegel Shoporder import -> wo geht automatisch nach Order(Auftrag) und DeliveryOrder (Lieferschein) mit auslagern transferieren |
|
9 |
# |
|
10 |
|
|
11 |
use SL::DB::ShopOrder; |
|
12 |
use SL::DB::Order; |
|
13 |
use SL::DB::DeliveryOrder; |
|
14 |
use SL::DB::Inventory; |
|
15 |
|
|
16 |
use constant WAITING_FOR_EXECUTION => 0; |
|
17 |
use constant CONVERTING_TO_DELIVERY_ORDER => 1; |
|
18 |
use constant DONE => 5; |
|
19 |
|
|
20 |
# Data format: |
|
21 |
# my $data = { |
|
22 |
# shop_order_record_ids => [ 603, 604, 605], |
|
23 |
# transdate => $today, |
|
24 |
# num_order_created => 0, |
|
25 |
# num_delivery_order_created => 0, |
|
26 |
# conversation_errors => [ { id => 603 , item => 2, message => "Out of stock"}, ], |
|
27 |
# }; |
|
28 |
# |
|
29 |
|
|
30 |
sub create_order { |
|
31 |
my ( $self ) = @_; |
|
32 |
$::lxdebug->dump(0, 'WH: ', \$self); |
|
33 |
my $job_obj = $self->{job_obj}; |
|
34 |
} |
|
35 |
|
|
36 |
sub create_delivery_order { |
|
37 |
my ( $self ) = @_; |
|
38 |
} |
|
39 |
1; |
Auch abrufbar als: Unified diff
shopOrder backgroundshop anfang