[stackoverflow] [progress Openedge Abl] After Searching In A Database How To Display The...

[sri]

Accept a customer number and then output the details of each order and items to an editor widget. Display them in the editor widget ( editor-1 as object name).

define temp-table ttcustomer
field custnum like customer.cust-num
field cname like customer.name
field orders like order.order-num
field items like item.item-num
field itemname like item.item-name .


find first customer WHERE customer.cust-num = input f1 NO-LOCK .

create ttcustomer .

assign
ttcustomer.custnum = customer.cust-num
ttcustomer.cname = customer.name.



for each order WHERE Order.cust-num = input f1 NO-LOCK .

assign
ttcustomer.orders = order.order-num.

for each order-line where order-line.order-num = order.order-num no-lock.


for each item where item.item-num = order-line.item-num no-lock.

assign
ttcustomer.items = item.item-num
ttcustomer.itemname = item.item-name.
end.
end.
end.

Continue reading...