= date(2004,01,01)
and
{Orders.Order Date}<= date(2004,12,31)
]]>
increment
increment = increment + 1
if maximum(param (increment)) <> minimum(param (increment)) _
then outputr = outputr + minimum(param (increment)) + " to " + maximum( param (increment)) + "\par " _
else outputd = outputd + minimum( param (increment)) + "\par " _
Loop
cdStringParamDisplay = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033" + _
"{\fonttbl{\f0\fswiss\fprq2\fcharset0 Arial;}{\f1\fswiss\fcharset0 Arial;}}" + _
"{\colortbl ;\red0\green0\blue128;\red191\green165\blue125;}" + _
"\viewkind4\uc1\pard\cf1\b\f0\fs22 " + title + "\cf0\b0\f1\fs16\par" + _
"\par" + _
"\ul\b\fs16 Distinct Entries\ulnone\par" + _
"\cf2 " + _
"\par " + _
outputd + _
"\par " + _
"\cf0 " + _
"\ul\b Range Entries\ulnone\par " + _
"\par " + _
"\cf2 " + _
outputr + _
"}"
End Function]]>
0 then
(
numbervar ds:= (date(enddate) - date(startdate))*86400;
numbervar hs:= (hour(enddate) - hour(startdate))*3600;
numbervar ms:= (minute(enddate) - minute(startdate))*60;
numbervar ss:= second(enddate) - second(startdate);
numbervar ts:= ds+hs+ms+ss;
ds:= truncate(ts/86400);
hs:= truncate((remainder(ts,86400))/3600);
ms:= truncate((remainder(ts,3600))/60);
ss:= truncate(remainder(ts,60));
stringvar dsd;
stringvar hsd;
stringvar msd;
stringvar ssd;
if ds < 10 then dsd:= "0" + totext(ds,0,"") else dsd:= totext(ds,0,"");
if hs < 10 then hsd:= "0" + totext(hs,0,"") else hsd:= totext(hs,0,"");
if ms < 10 then msd:= "0" + totext(ms,0,"") else msd:= totext(ms,0,"");
if ss < 10 then ssd:= "0" + totext(ss,0,"") else ssd:= totext(ss,0,"");
stringvar display:= " " + dsd + ":" + hsd + ":" + msd + ":" + ssd;
)
else
(
numbervar ds:= (date(startdate) - date(enddate))*86400;
numbervar hs:= (hour(startdate) - hour(enddate))*3600;
numbervar ms:= (minute(startdate) - minute(enddate))*60;
numbervar ss:= second(startdate) - second(enddate);
numbervar ts:= ds+hs+ms+ss;
ds:= truncate(ts/86400);
hs:= truncate((remainder(ts,86400))/3600);
ms:= truncate((remainder(ts,3600))/60);
ss:= truncate(remainder(ts,60));
stringvar dsd;
stringvar hsd;
stringvar msd;
stringvar ssd;
if ds < 10 then dsd:= "0" + totext(ds,0,"") else dsd:= totext(ds,0,"");
if hs < 10 then hsd:= "0" + totext(hs,0,"") else hsd:= totext(hs,0,"");
if ms < 10 then msd:= "0" + totext(ms,0,"") else msd:= totext(ms,0,"");
if ss < 10 then ssd:= "0" + totext(ss,0,"") else ssd:= totext(ss,0,"");
stringvar display:= "-" + dsd + ":" + hsd + ":" + msd + ":" + ssd;
);
display;]]>
= 0
then {Orders.Order Amount}]]>
100000
then cdCurrencyScalerChoice (sum({@On-Time Orders}), "M", 2)
else cdCurrencyScalerChoice (sum({@On-Time Orders}), "K", 1)]]>
10000
then cdCurrencyScalerChoice (sum({@Late Orders}), "K", 0)
else cdCurrencyScalerChoice (sum({@Late Orders}), "K", 2)]]>
= 0
then "On Time" else "Late"]]>
0]]>
0]]>
0]]>
0]]>
{?Pm-@Late Orders Running Total}]]>
{?Pm-@Late Orders Running Total}]]>
{?Pm-@Late Orders Running Total}]]>
0]]>
0
]]>
0
]]>