Re Tricky Ace Report Problem
database icm end
define
variable date1 date
variable date2 date
variable date3 date
variable date4 date
variable date5 date
variable date6 date
variable date7 date
end
output
report to "order1"
left margin 0
right margin 0
end
select 1 key1
from order_table
where 1 = 1
into temp key_table;
select 1 key,order_id id1,line_item li1
from order_table
where date_due = today
into temp date1;
select 1 key,order_id id2,line_item li2
from order_table
where date_due = today + 1
into temp date2;
select 1 key,order_id id3,line_item li3
from order_table
where date_due = today + 2
into temp date3;
select 1 key,order_id id4,line_item li4
from order_table
where date_due = today + 3
into temp date4;
select 1 key,order_id id5,line_item li5
from order_table
where date_due = today + 4
into temp date5;
select 1 key,order_id id6,line_item li6
from order_table
where date_due = today + 5
into temp date6;
select 1 key,order_id id7,line_item li7
from order_table
where date_due = today + 6
into temp date7;
select key1,id1, li1,
id2, li2,
id3, li3,
id4, li4,
id5, li5,
id6, li6,
id7, li7
from key_table, outer date1,
outer date2,
outer date3,
outer date4,
outer date5,
outer date6,
outer date7
where key_table.key1 = date1.key
and key_table.key1 = date2.key
and key_table.key1 = date3.key
and key_table.key1 = date4.key
and key_table.key1 = date5.key
and key_table.key1 = date6.key
and key_table.key1 = date7.key
into temp date_data;
select distinct id1, li1,
id2, li2,
id3, li3,
id4, li4,
id5, li5,
id6, li6,
id7, li7
from date_data
endformat
page header
let date1 = today
let date2 = today + 1
let date3 = today + 2
let date4 = today + 3
let date5 = today + 4
let date6 = today + 5
let date7 = today + 6
print column 30, " Order Report"
skip 1 line
print column 5,date1,
column 15,date2,
column 25,date3,
column 35,date4,
column 45,date5,
column 55,date6,
column 65,date7
skip 1 line
on every row
print column 5, id1 using "###",
column 10, li1 using "###",
column 15, id2 using "###",
column 20, li2 using "###",
column 25, id3 using "###",
column 30, li3 using "###",
column 35, id4 using "###",
column 40, li4 using "###",
column 45, id5 using "###",
column 50, li5 using "###",
column 55, id6 using "###",
column 60, li6 using "###",
column 65, id7 using "###",
column 70, li7 using "###"
end
Order Report
95/07/31 95/08/01 95/08/02 95/08/03 95/08/04 95/08/05 95/08/06
1 11 2 22 4 33 5 44
ciao
p
******************************************************************************
Peter Wages
VSE Corporation 2760 Eisenhower Ave Alexandria, Virginia
pmwages@cais.com
Work: (703) 329-2626 Home: (202) 244-3511
Anywhere is walking distance, if you have the time
******************************************************************************