DEFINE VARIABLE hframe AS HANDLE NO-UNDO.
DEFINE VARIABLE hbrowse AS HANDLE NO-UNDO.
DEFINE VARIABLE hquery AS HANDLE NO-UNDO.
DEFINE VARIABLE ctable1 AS CHARACTER NO-UNDO.
DEFINE VARIABLE ctable2 AS CHARACTER NO-UNDO.
DEFINE VARIABLE hbuf1 AS HANDLE NO-UNDO.
DEFINE VARIABLE hbuf2 AS HANDLE NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
CREATE FRAME hframe
ASSIGN
WIDTH = SESSION:WIDTH / 3
HEIGHT = SESSION:HEIGHT / 3
THREE-D = YES
.
CREATE BROWSE hbrowse
ASSIGN
FRAME = hframe
WIDTH = hframe:WIDTH - 1
HEIGHT = hframe:HEIGHT - 1
VISIBLE = YES
SENSITIVE = YES
.
ctable1 = "customer".
ctable2 = "order".
CREATE BUFFER hbuf1 FOR TABLE ctable1.
CREATE BUFFER hbuf2 FOR TABLE ctable2.
CREATE QUERY hquery.
hquery:SET-BUFFERS(hbuf1,hbuf2).
hquery:QUERY-PREPARE("for each customer, first order of customer").
hquery:QUERY-OPEN.
hbuf1:BUFFER-FIELD("Salesrep"):VALIDATE-EXPRESSION = "".
hbrowse:QUERY = hquery.
DO i = 1 TO hbuf1:NUM-FIELDS:
hbrowse:ADD-LIKE-COLUMN(hbuf1:BUFFER-FIELD(i)).
END.