1 |
198 |
ahitrov |
package webshop::Order; |
2 |
|
|
|
3 |
|
|
use base "Contenido::Document"; |
4 |
270 |
ahitrov |
use Contenido::Globals; |
5 |
|
|
|
6 |
198 |
ahitrov |
sub extra_properties |
7 |
|
|
{ |
8 |
|
|
return ( |
9 |
504 |
ahitrov |
{ 'attr' => 'name', 'type' => 'string', postedit => 1, faciledit => 1 }, |
10 |
198 |
ahitrov |
{ 'attr' => 'status', 'type' => 'status', 'rusname' => 'Статус заказа', facilshow => 1, postshow => 1, |
11 |
|
|
'cases' => [ |
12 |
|
|
[0, 'открыт'], |
13 |
|
|
[1, 'обрабатывается'], |
14 |
|
|
[2, 'комплектуется'], |
15 |
|
|
[3, 'в доставке'], |
16 |
|
|
[4, 'доставлен'], |
17 |
|
|
[5, 'отклонен'], |
18 |
545 |
ahitrov |
[6, 'ожидание оплаты'], |
19 |
|
|
[7, 'товар в резерве'], |
20 |
|
|
[8, 'не дозвонились'], |
21 |
663 |
ahitrov |
[-1, 'удален'], |
22 |
198 |
ahitrov |
], |
23 |
|
|
}, |
24 |
|
|
{ 'attr' => 'delivery', 'type' => 'lookup', 'rusname' => 'Тип доставки', facilshow => 1, postshow => 1, |
25 |
719 |
ahitrov |
'allow_null' => 1, |
26 |
198 |
ahitrov |
'lookup_opts' => { |
27 |
|
|
'class' => 'webshop::Delivery', |
28 |
|
|
}, |
29 |
|
|
}, |
30 |
413 |
ahitrov |
{ 'attr' => 'pay_by', 'type' => 'lookup', 'rusname' => 'Тип оплаты', facilshow => 1, postshow => 1, |
31 |
719 |
ahitrov |
'allow_null' => 1, |
32 |
413 |
ahitrov |
'lookup_opts' => { |
33 |
|
|
'class' => 'webshop::Payment', |
34 |
|
|
}, |
35 |
|
|
}, |
36 |
434 |
ahitrov |
{ 'attr' => 'pay_alias', 'type' => 'string', 'rusname' => 'Название метода оплаты', shortname => 'Оплата', |
37 |
|
|
postshow => 1, facilshow => 1 }, |
38 |
553 |
ahitrov |
{ 'attr' => 'pay_amount', 'type' => 'string', 'rusname' => 'Оплаченная сумма', |
39 |
|
|
postshow => 1, facilshow => 1 }, |
40 |
198 |
ahitrov |
{ 'attr' => 'btime', 'type' => 'datetime', 'rusname' => 'Заказ отдан на комплектацию', |
41 |
|
|
postshow => 1, facilshow => 1 }, |
42 |
|
|
{ 'attr' => 'ftime', 'type' => 'datetime', 'rusname' => 'Заказ передан в доставку', |
43 |
|
|
manager_hidden => 1, postshow => 1, faciledit => 1 }, |
44 |
|
|
{ 'attr' => 'etime', 'type' => 'datetime', 'rusname' => 'Заказ доставлен', |
45 |
|
|
manager_hidden => 1, postedit => 1, facilshow => 1 }, |
46 |
|
|
{ 'attr' => 'num', 'type' => 'integer', 'rusname' => 'Количество позиций', |
47 |
297 |
ahitrov |
manager_hidden => 1, manshow => 1, postshow => 1, facilshow => 1 }, |
48 |
422 |
ahitrov |
{ 'attr' => 'sum', 'type' => 'string', 'rusname' => 'Сумма (gross)', shortname => 'Сумма', |
49 |
297 |
ahitrov |
manager_hidden => 1, column => 5, postshow => 1, facilshow => 1 }, |
50 |
270 |
ahitrov |
{ 'attr' => 'sum_discount', 'type' => 'string', 'rusname' => 'Сумма скидки', shortname => 'Скидка', |
51 |
297 |
ahitrov |
manager_hidden => 1, column => 6, postshow => 1, facilshow => 1 }, |
52 |
198 |
ahitrov |
{ 'attr' => 'sum_delivery', 'type' => 'string', 'rusname' => 'Стоимость доставки', shortname => 'Доставка', |
53 |
297 |
ahitrov |
manager_hidden => 1, column => 7, postshow => 1, facilshow => 1 }, |
54 |
270 |
ahitrov |
{ 'attr' => 'sum_total', 'type' => 'string', 'rusname' => 'Сумма общая', shortname => 'Total', |
55 |
297 |
ahitrov |
manager_hidden => 1, column => 8, virtual => 1, postshow => 1, facilshow => 1 }, |
56 |
799 |
ahitrov |
{ 'attr' => 'tracking', 'type' => 'string', 'rusname' => 'Трек-номер заказа', shortname => 'Трекинг', |
57 |
|
|
postshow => 1, facilshow => 1 }, |
58 |
198 |
ahitrov |
{ 'attr' => 'contact', 'type' => 'string', 'rusname' => 'Контактное лицо', facilshow => 1 }, |
59 |
|
|
{ 'attr' => 'email', 'type' => 'string', 'rusname' => 'E-mail для связи', shortname => 'E-mail', |
60 |
259 |
ahitrov |
column => 3, postshow => 1, facilshow => 1, mandatory => 1, }, |
61 |
198 |
ahitrov |
{ 'attr' => 'phone', 'type' => 'string', 'rusname' => 'Телефон для связи', shortname => 'Тел.', |
62 |
259 |
ahitrov |
column => 4, postshow => 1, facilshow => 1, |
63 |
|
|
mandatory => 1, rel => 'Не указан телефон' }, |
64 |
297 |
ahitrov |
{ 'attr' => 'address', 'type' => 'text', 'rusname' => 'Адрес доставки', rows => 5, postedit => 1, facilshow => 1, |
65 |
298 |
ahitrov |
mandatory => 1, rel => 'Не заполнен адрес доставки' }, |
66 |
259 |
ahitrov |
{ 'attr' => 'zipcode', 'type' => 'string', 'rusname' => 'Почтовый индекс', postshow => 1, |
67 |
|
|
mandatory => 1, rel => 'Не указан почтовый индекс' }, |
68 |
|
|
{ 'attr' => 'area', 'type' => 'lookup', 'rusname' => 'Регион', |
69 |
|
|
lookup_opts => { class => 'webshop::Area', order_by => 'name' }, |
70 |
|
|
allow_null => 1, mandatory => 1, rel => 'Не выбран регион' |
71 |
|
|
}, |
72 |
|
|
{ 'attr' => 'town_id', 'type' => 'lookup', 'rusname' => 'Город', |
73 |
|
|
lookup_opts => { class => 'webshop::Town', order_by => 'name' }, |
74 |
|
|
allow_null => 1, mandatory => 1, rel => 'Не выбран город' |
75 |
|
|
}, |
76 |
|
|
{ 'attr' => 'town', 'type' => 'string', 'rusname' => 'Город', postshow => 1, facilshow => 1, |
77 |
|
|
mandatory => 1, rel => 'Не указан город' }, |
78 |
544 |
ahitrov |
{ 'attr' => 'carrier', 'type' => 'string', 'rusname' => 'Транспортная компания', postshow => 1 }, |
79 |
297 |
ahitrov |
{ 'attr' => 'metro', 'type' => 'string', 'rusname' => 'Ближайшее метро', manager_hidden => 1, postshow => 1 }, |
80 |
663 |
ahitrov |
{ 'attr' => 'timeline', 'type' => 'string', 'rusname' => 'Предпочтительная дата и время', postshow => 1, }, |
81 |
304 |
ahitrov |
{ 'attr' => 'description', 'type' => 'text', 'rusname' => 'Описание для курьера', rows => 5, postshow => 1, faciledit => 1 }, |
82 |
504 |
ahitrov |
{ 'attr' => 'manager_comment', 'type' => 'text', 'rusname' => 'Комментарий менеджера', rows => 5, postedit => 1, faciledit => 1 }, |
83 |
297 |
ahitrov |
{ 'attr' => 'facility_comment', 'type' => 'text', 'rusname' => 'Описание проблем с комплектацией', rows => 5, manager_hidden => 1, faciledit => 1 }, |
84 |
|
|
{ 'attr' => 'delivery_comment', 'type' => 'text', 'rusname' => 'Описание проблем с доставкой', rows => 5, manager_hidden => 1, postedit => 1 }, |
85 |
198 |
ahitrov |
) |
86 |
|
|
} |
87 |
|
|
|
88 |
714 |
ahitrov |
sub recount { |
89 |
|
|
my $self = shift; |
90 |
|
|
my $basket = $self->keeper->{webshop}->get_basket( order_id => $self->id ); |
91 |
|
|
my $store = 0; |
92 |
|
|
if ( ref $basket && @$basket ) { |
93 |
|
|
my $sum = 0; |
94 |
|
|
foreach my $bi ( @$basket ) { |
95 |
|
|
$sum += $bi->price * $bi->number; |
96 |
|
|
} |
97 |
|
|
if ( $sum != $self->sum ) { |
98 |
|
|
$self->sum( $sum ); |
99 |
|
|
$store = 1; |
100 |
|
|
} |
101 |
|
|
my $coupons = $self->keeper->get_documents( |
102 |
|
|
class => 'webshop::Coupon', |
103 |
|
|
lclass => 'webshop::OrderCouponLink', |
104 |
|
|
); |
105 |
|
|
} |
106 |
|
|
if ( $store ) { |
107 |
|
|
$self->store; |
108 |
|
|
} |
109 |
|
|
} |
110 |
270 |
ahitrov |
|
111 |
|
|
sub sum_total { |
112 |
|
|
my $self = shift; |
113 |
|
|
|
114 |
|
|
return ($self->sum || 0) - ($self->sum_discount || 0) + ($self->sum_delivery || 0); |
115 |
|
|
} |
116 |
|
|
|
117 |
|
|
|
118 |
198 |
ahitrov |
sub sum_formatted { |
119 |
|
|
my $self = shift; |
120 |
|
|
|
121 |
426 |
ahitrov |
my $price = $self->sum; |
122 |
198 |
ahitrov |
$price = reverse $price; |
123 |
|
|
$price =~ s/(\d{3})/$1\ /g; |
124 |
|
|
$price = reverse $price; |
125 |
|
|
|
126 |
|
|
return $price; |
127 |
|
|
} |
128 |
|
|
|
129 |
|
|
sub total_formatted { |
130 |
|
|
my $self = shift; |
131 |
|
|
|
132 |
270 |
ahitrov |
my $price = $self->sum_total; |
133 |
|
|
return $keeper->{webshop}->price_format( $price ); |
134 |
198 |
ahitrov |
} |
135 |
|
|
|
136 |
|
|
|
137 |
|
|
sub reject { |
138 |
|
|
my $self = shift; |
139 |
|
|
|
140 |
297 |
ahitrov |
# my $query = $self->{keeper}->SQL->prepare("delete from basket where order_id = ? and uid = ?"); |
141 |
|
|
# $query->execute( $self->id, $self->uid ); |
142 |
565 |
ahitrov |
|
143 |
297 |
ahitrov |
$self->status(5); |
144 |
|
|
$self->store; |
145 |
198 |
ahitrov |
} |
146 |
|
|
|
147 |
788 |
ahitrov |
sub delete { |
148 |
|
|
my $self = shift; |
149 |
|
|
my %opts = @_; |
150 |
|
|
if ( $opts{mandatory} ) { |
151 |
|
|
$self->SUPER::delete; |
152 |
|
|
} |
153 |
|
|
$self->reject; |
154 |
|
|
} |
155 |
198 |
ahitrov |
|
156 |
|
|
sub class_name |
157 |
|
|
{ |
158 |
|
|
return 'Заказ'; |
159 |
|
|
} |
160 |
|
|
|
161 |
|
|
sub class_description |
162 |
|
|
{ |
163 |
|
|
return 'Заказ'; |
164 |
|
|
} |
165 |
|
|
|
166 |
|
|
sub class_table |
167 |
|
|
{ |
168 |
|
|
return 'webshop::SQL::Order'; |
169 |
|
|
} |
170 |
|
|
|
171 |
356 |
ahitrov |
sub table_links |
172 |
|
|
{ |
173 |
|
|
return [ |
174 |
|
|
{ name => 'Корзина', class => 'webshop::Basket', filter => 'order_id', field => 'order_id' }, |
175 |
|
|
]; |
176 |
|
|
} |
177 |
198 |
ahitrov |
|
178 |
572 |
ahitrov |
sub post_store |
179 |
565 |
ahitrov |
{ |
180 |
|
|
my $self = shift; |
181 |
356 |
ahitrov |
|
182 |
565 |
ahitrov |
if ( grep { $_ eq 'payments' } split /\s+/, $state->plugins ) { |
183 |
|
|
my $action; |
184 |
|
|
my ($lastop) = $keeper->get_documents( class => 'payments::Operation', order_id => $self->id, order_by => 'id desc', limit => 1 ); |
185 |
|
|
if ( ref $lastop ) { |
186 |
|
|
if ( $self->status == 1 || $self->status == 2 || $self->status == 6 ) { |
187 |
|
|
if ( $lastop->name eq 'suspend' || $lastop->name eq 'cancel' || $lastop->name eq 'close' ) { |
188 |
|
|
$action = 'resume'; |
189 |
|
|
} |
190 |
|
|
} elsif ( $self->status == 7 ) { |
191 |
|
|
if ( $lastop->name ne 'suspend' ) { |
192 |
|
|
$action = 'suspend'; |
193 |
|
|
} |
194 |
|
|
} elsif ( $self->status == 4 ) { |
195 |
|
|
if ( $lastop->name ne 'close' ) { |
196 |
|
|
$action = 'close'; |
197 |
|
|
} |
198 |
|
|
} elsif ( $self->status == 5 ) { |
199 |
|
|
if ( $lastop->name ne 'cancel' ) { |
200 |
|
|
$action = 'cancel'; |
201 |
|
|
} |
202 |
|
|
} |
203 |
|
|
} else { |
204 |
|
|
if ( $self->status == 1 || $self->status == 2 || $self->status == 6 ) { |
205 |
|
|
$action = 'create'; |
206 |
|
|
} elsif ( $self->status == 7 ) { |
207 |
|
|
$action = 'suspend'; |
208 |
|
|
} elsif ( $self->status == 4 ) { |
209 |
|
|
$action = 'close'; |
210 |
|
|
} elsif ( $self->status == 5 ) { |
211 |
|
|
$action = 'cancel'; |
212 |
|
|
} |
213 |
|
|
} |
214 |
714 |
ahitrov |
if ( $action && exists $keeper->{payments} ) { |
215 |
|
|
my $op = $keeper->{payments}->add( order => $self, type => $action, ref $user ? (uuid => $user->id) : () ); |
216 |
565 |
ahitrov |
} |
217 |
|
|
} |
218 |
|
|
return 1; |
219 |
|
|
} |
220 |
|
|
|
221 |
|
|
|
222 |
198 |
ahitrov |
sub post_delete |
223 |
|
|
{ |
224 |
|
|
my $self = shift; |
225 |
|
|
my @items = $self->keeper->get_documents( |
226 |
|
|
class => 'webshop::Basket', |
227 |
|
|
order_id => $self->id, |
228 |
|
|
); |
229 |
|
|
foreach my $item ( @items ) { |
230 |
|
|
$item->delete( attachments => 1 ); |
231 |
|
|
} |
232 |
270 |
ahitrov |
my $sql = $self->keeper->SQL->prepare('DELETE FROM webshop_order_coupons where source_id = ?'); |
233 |
|
|
$sql->execute( $self->id ); |
234 |
|
|
|
235 |
198 |
ahitrov |
1; |
236 |
|
|
} |
237 |
|
|
|
238 |
|
|
1; |