FRAME-NAME
|
FOR EACH Customer, EACH Order OF Customer:
DISPLAY Order.OrderNum WITH CENTERED ROW 2 FRAME onum. UPDATE Customer.CustNum AT 5 Customer.Name AT 30 SKIP WITH FRAME custfrm WITH CENTERED 1 DOWN EDITING: DISPLAY " You are currently editing a frame called " FRAME-NAME WITH FRAME d1 WITH 1 DOWN CENTERED. READKEY. APPLY LASTKEY. IF LASTKEY = KEYCODE("RETURN") THEN MESSAGE " Press the space bar to edit order shipdate". END. /* Editing */ HIDE FRAME custfrm. HIDE FRAME d1. UPDATE Order.ShipDate AT 5 WITH FRAME orderfrm WITH CENTERED 1 DOWN EDITING: DISPLAY " Now you are editing a frame called" FRAME-NAME WITH FRAME d2 WITH 1 DOWN CENTERED. READKEY. APPLY LASTKEY. END. HIDE FRAME orderfrm. HIDE FRAME d2. END. |