1 |
422 |
ahitrov |
<fieldset> |
2 |
|
|
<legend>Отчет по заказам</legend> |
3 |
|
|
<form name="searchdoc" action="orders.html" method="GET" target="_blank"> |
4 |
|
|
<table width="100%" border="0" cellpadding="0" cellspacing="6" class="tform"> |
5 |
|
|
<tr><td><b>Выберите статус:</b></td></tr> |
6 |
|
|
<tr><td><& "/contenido/components/select.msn", name=>'status', values => \@status_values, check => 4, style=>'width:100%;font-size:8pt;' &></td> |
7 |
|
|
<tr><td><b>Сортировать:</b></td></tr> |
8 |
|
|
<tr><td><& "/contenido/components/select.msn", name=>'sort', values => \@sorts, style=>'width:100%;font-size:8pt;' &></td> |
9 |
|
|
<tr><td height="5"></td></tr> |
10 |
|
|
<tr><td><b>Диапазон дат:</b></td></tr> |
11 |
|
|
<tr><td><& "/contenido/components/inputs/date.msn", name => 'from' &></td></tr> |
12 |
|
|
<tr><td><& "/contenido/components/inputs/date.msn", name => 'to' &></td></tr> |
13 |
438 |
ahitrov |
<tr><td><b>По купону:</b></td></tr> |
14 |
|
|
<tr><td><& "/contenido/components/select.msn", name=>'coupon', values => \@coupons, style=>'width:100%;font-size:8pt;' &></td> |
15 |
422 |
ahitrov |
<tr><td><b>Отобразить:</b></td></tr> |
16 |
|
|
<tr><td><& "/contenido/components/select.msn", name=>'show', values => \@shows, style=>'width:100%;font-size:8pt;' &></td> |
17 |
|
|
<tr><td><input type="submit" value="Отобрать" class="btn"></td></tr> |
18 |
|
|
</table> |
19 |
|
|
</form> |
20 |
|
|
</fieldset> |
21 |
|
|
|
22 |
|
|
<%once> |
23 |
|
|
|
24 |
|
|
my @sorts = ( |
25 |
|
|
'id' => 'по номеру заказа', |
26 |
|
|
'uid' => 'по пользователю', |
27 |
|
|
); |
28 |
|
|
|
29 |
|
|
my @shows = ( |
30 |
|
|
'html' => 'В виде HTML', |
31 |
|
|
'tsv' => 'Tab-separated текст', |
32 |
|
|
); |
33 |
|
|
|
34 |
|
|
</%once> |
35 |
|
|
<%args> |
36 |
|
|
|
37 |
|
|
|
38 |
|
|
</%args> |
39 |
|
|
<%init> |
40 |
|
|
|
41 |
|
|
my @props = webshop::Order->new($keeper)->structure; |
42 |
|
|
my ($prop_status) = grep { $_->{attr} eq 'status' } @props; |
43 |
|
|
my @status_values = map { $_->[0] => $_->[1] } @{$prop_status->{cases}}; |
44 |
438 |
ahitrov |
$status_values[1] = 'без учета статуса'; |
45 |
422 |
ahitrov |
|
46 |
438 |
ahitrov |
my @coupons = ('' => 'без учета купонов'); |
47 |
|
|
my $sql = "select id, name from webshop_coupons where class = 'webshop::Coupon' and ( status in (0, 4) or (status in (1,3) and pid = 0) ) order by status = 1 desc, status, dtime desc"; |
48 |
|
|
my $que = $keeper->SQL->prepare($sql); |
49 |
|
|
$que->execute(); |
50 |
|
|
while ( my $ln = $que->fetchrow_hashref ) { |
51 |
|
|
push @coupons, ($ln->{id}, $ln->{name}); |
52 |
|
|
} |
53 |
|
|
|
54 |
422 |
ahitrov |
</%init> |