Lines 2039-2049
sub GetLateOrders {
Link Here
|
2039 |
#BEWARE, order of parenthesis and LEFT JOIN is important for speed |
2039 |
#BEWARE, order of parenthesis and LEFT JOIN is important for speed |
2040 |
my $dbdriver = C4::Context->config("db_scheme") || "mysql"; |
2040 |
my $dbdriver = C4::Context->config("db_scheme") || "mysql"; |
2041 |
|
2041 |
|
|
|
2042 |
my $lateOrderSort = C4::Context->preference("AcqLateOrderUseCreationDate"); |
2043 |
my $aqbasketSortField = ( $lateOrderSort eq 'creation' ? 'creationdate' : 'closedate' ); |
2044 |
|
2042 |
my @query_params = (); |
2045 |
my @query_params = (); |
2043 |
my $select = " |
2046 |
my $select = " |
2044 |
SELECT aqbasket.basketno, |
2047 |
SELECT aqbasket.basketno, |
2045 |
aqorders.ordernumber, |
2048 |
aqorders.ordernumber, |
2046 |
DATE(aqbasket.closedate) AS orderdate, |
2049 |
DATE(aqbasket.${aqbasketSortField}) AS orderdate, |
2047 |
aqbasket.basketname AS basketname, |
2050 |
aqbasket.basketname AS basketname, |
2048 |
aqbasket.basketgroupid AS basketgroupid, |
2051 |
aqbasket.basketgroupid AS basketgroupid, |
2049 |
aqbasketgroups.name AS basketgroupname, |
2052 |
aqbasketgroups.name AS basketgroupname, |
Lines 2081-2090
sub GetLateOrders {
Link Here
|
2081 |
$select .= " |
2084 |
$select .= " |
2082 |
aqorders.quantity - COALESCE(aqorders.quantityreceived,0) AS quantity, |
2085 |
aqorders.quantity - COALESCE(aqorders.quantityreceived,0) AS quantity, |
2083 |
(aqorders.quantity - COALESCE(aqorders.quantityreceived,0)) * aqorders.rrp AS subtotal, |
2086 |
(aqorders.quantity - COALESCE(aqorders.quantityreceived,0)) * aqorders.rrp AS subtotal, |
2084 |
DATEDIFF(CAST(now() AS date),closedate) AS latesince |
2087 |
DATEDIFF(CAST(now() AS date),${aqbasketSortField}) AS latesince |
2085 |
"; |
2088 |
"; |
2086 |
if ( defined $delay ) { |
2089 |
if ( defined $delay ) { |
2087 |
$from .= " AND (closedate <= DATE_SUB(CAST(now() AS date),INTERVAL ? DAY)) " ; |
2090 |
$from .= " AND (${aqbasketSortField} <= DATE_SUB(CAST(now() AS date),INTERVAL ? DAY)) " ; |
2088 |
push @query_params, $delay; |
2091 |
push @query_params, $delay; |
2089 |
} |
2092 |
} |
2090 |
$having = " |
2093 |
$having = " |
Lines 2097-2106
sub GetLateOrders {
Link Here
|
2097 |
$select .= " |
2100 |
$select .= " |
2098 |
aqorders.quantity AS quantity, |
2101 |
aqorders.quantity AS quantity, |
2099 |
aqorders.quantity * aqorders.rrp AS subtotal, |
2102 |
aqorders.quantity * aqorders.rrp AS subtotal, |
2100 |
(CAST(now() AS date) - closedate) AS latesince |
2103 |
(CAST(now() AS date) - ${aqbasketSortField}) AS latesince |
2101 |
"; |
2104 |
"; |
2102 |
if ( defined $delay ) { |
2105 |
if ( defined $delay ) { |
2103 |
$from .= " AND (closedate <= (CAST(now() AS date) -(INTERVAL ? DAY)) "; |
2106 |
$from .= " AND (${aqbasketSortField} <= (CAST(now() AS date) -(INTERVAL ? DAY)) "; |
2104 |
push @query_params, $delay; |
2107 |
push @query_params, $delay; |
2105 |
} |
2108 |
} |
2106 |
} |
2109 |
} |