Kbase P14728: How to get subtotaling on 2 columns when the tables are 1-1
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
1/31/2003 |
|
Status: Unverified
GOAL:
How to get subtotaling when 2 tables are one-to-one relationship
GOAL:
Subtotaling 2 columns with the same field from 2 different tables.
FACT(s) (Environment):
Progress 9.x
FIX:
DEFINE VARIABLE qbf-count AS INTEGER NO-UNDO.
DEFINE VARIABLE qbf-governor AS INTEGER NO-UNDO.
DEFINE VARIABLE qbf-govcnt AS INTEGER NO-UNDO.
DEFINE VARIABLE qbf-loop AS INTEGER NO-UNDO.
DEFINE VARIABLE qbf-time AS INTEGER NO-UNDO.
DEFINE BUFFER Table1 FOR db.table1.
DEFINE BUFFER table2 FOR db.table2.
ASSIGN
qbf-count = 0
qbf-governor = 0
qbf-time = TIME.
OUTPUT TO TERMINAL PAGED.
FOR EACH Table1, FIRST Table2 OF Table1 NO-LOCK
BREAK BY Table1.field1
BY Table1.field2:
qbf-count = qbf-count + 1.
FORM
Table1.field1 COLUMN-LABEL "Field1" FORMAT "x(7)"
Table1.field2 COLUMN-LABEL "Field2" FORMAT "999"
Table1.field3 COLUMN-LABEL "Field3" FORMAT ">>>9"
Table1.field4 COLUMN-LABEL "Field4" FORMAT "-zzz,zz9.999"
Table2.field1 COLUMN-LABEL "T2-Field1" FORMAT "x(7)"
Table2.field2 COLUMN-LABEL "T2-Field2" FORMAT "999"
Table2.field3 COLUMN-LABEL "T2-Field3" FORMAT "zzz9"
Table2.field4 COLUMN-LABEL "T2-Field4" FORMAT ">,>>>,>>9.99<<<"
WITH FRAME qbf-report-1 DOWN COLUMN 1 WIDTH 225
NO-ATTR-SPACE NO-VALIDATE NO-BOX USE-TEXT STREAM-IO.
DISPLAY
Table1.field1
Table1.field2
Table1.field3
Table1.field4 (SUB-TOTAL BY Table1.field2)
Table2.field1
Table2.field2
Table2.field3
Table2.field4 (SUB-TOTAL BY Table2.field2)
WITH FRAME qbf-report-1.
DOWN WITH FRAME qbf-report-1.
END.
PAGE.
OUTPUT CLOSE.
RETURN.