Kbase P24540: How to print the data selected in a regular browser with the
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
5/9/2003 |
|
Status: Unverified
GOAL:
How to print the data selected in a regular browser with the multiple-selection option?
FIX:
The code below walks through the rows selected in a browse object and outputs the records associated with them to the default printer.
DEFINE BUTTON BUTTON-1
LABEL "Button 1"
SIZE 15 BY 1.14.
DEFINE QUERY BROWSE-1 FOR
Bin SCROLLING.
DEFINE BROWSE BROWSE-1
QUERY BROWSE-1 NO-LOCK DISPLAY
Bin.BinName FORMAT "x(30)":U
Bin.BinNum FORMAT "zzzzzzzzz9":U
Bin.Itemnum FORMAT "zzzzzzzzz9":U
Bin.Qty FORMAT "->>>>9":U
Bin.WarehouseNum FORMAT "zzzzzzzzz9":U WIDTH 9.4
WITH NO-ROW-MARKERS SEPARATORS MULTIPLE SIZE 74 BY 11.19
ROW-HEIGHT-CHARS .67 EXPANDABLE.
DEFINE FRAME DEFAULT-FRAME
BROWSE-1 AT ROW 2.19 COL 3
BUTTON-1 AT ROW 14.1 COL 28
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT COL 1 ROW 1
SIZE 80 BY 16.
ON CHOOSE OF BUTTON-1 IN FRAME DEFAULT-FRAME /* Button 1 */
DO:
DEFINE VARIABLE viCounter AS INTEGER NO-UNDO.
OUTPUT TO PRINTER.
DO viCounter = 1 TO BROWSE BROWSE-1:NUM-SELECTED-ROWS WITH FRAME fDisplay:
BROWSE BROWSE-1:FETCH-SELECTED-ROW(viCounter).
IF AVAILABLE bin THEN
DISPLAY bin EXCEPT Bin.BinName.
END.
OUTPUT CLOSE.
END.
MAIN-BLOCK:
DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK
ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK:
ENABLE BROWSE-1 BUTTON-1
WITH FRAME DEFAULT-FRAME.
OPEN QUERY BROWSE-1 FOR EACH Bin NO-LOCK INDEXED-REPOSITION.
IF NOT THIS-PROCEDURE:PERSISTENT THEN
WAIT-FOR CLOSE OF THIS-PROCEDURE.
END.