Need 'UNique', or 'Distinct' records for my Browse

fuji36

New Member
Is there a 'keyword' , or similar , in Progress, when querying (?)
that would give me 'Unique' records, such as using 'Distinct' in SQL?

ie: I want all customers that have placed orders , but I don't want repeats , each customer only (1) time, I'm using a Browse w/a Query?
 

Casper

ProgressTalk.com Moderator
Staff member
how about:
Code:
for each customer where can-find(first order of customer).

If you just want the customers.

Casper.
 

palthe

Member
Does this do the trick?

Code:
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.
 
Top