Consultor Eletrônico



Kbase P13704: How to associate a dynamic query object with a regular browse widget?
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   21/02/2005
Status: Unverified

GOAL:

How to associate a dynamic query object with a regular browse widget?

GOAL:

How to use the browse widget's QUERY attribute?

FACT(s) (Environment):

Progress 9.x
Windows

FIX:

To link a dynamic query to a browse widget, it is necessary to assign the QUERY 4GL attribute of the browse widget to the handle of the dynamic query object. e.g.:

DEFINE VARIABLE vhQueryHdl AS HANDLE NO-UNDO.

DEFINE BROWSE BROWSE-1
WITH NO-ROW-MARKERS SEPARATORS SIZE 63 BY 5.48 EXPANDABLE.

DEFINE FRAME DEFAULT-FRAME
BROWSE-1 AT ROW 3.62 COL 8
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT COL 1 ROW 1
SIZE 80 BY 16.

CREATE QUERY vhQueryHdl.

vhQueryHdl:SET-BUFFERS(BUFFER employee:HANDLE).
vhQueryHdl:QUERY-PREPARE("FOR EACH employee NO-LOCK":U).
vhQueryHdl:QUERY-OPEN.

ENABLE ALL WITH FRAME DEFAULT-FRAME.

BROWSE BROWSE-1:QUERY = vhQueryHdl.
BROWSE BROWSE-1:ADD-COLUMNS-FROM("employee":U,"deptCode":U).

WAIT-FOR CLOSE OF THIS-PROCEDURE.