Focal Point
[solved]: Guided Adhoc - SubTotal

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/1397078786

September 28, 2017, 10:00 AM
BM
[solved]: Guided Adhoc - SubTotal
Hi,
How do I add Subtotal to Guided Adhoc Report.
Since the user can pass any By Field , not sure how to pass it for Subtotal.

Thanks

This message has been edited. Last edited by: BM,


WebFOCUS 8202M
September 28, 2017, 11:53 AM
BabakNYC
Depending on what your sort variable is you can append the SUBTOTAL syntax to it. Let's say your sort field is called &RP_FN01B_Sort16. You can create a variable called &SUBTOTALS like this:
 
-SET &FINDIT        = POSIT(&RP_FN01B_Sort16,1250,' BY ',4,'I4');

-SET &FINDIT2       = IF &FINDIT EQ 0 THEN &RP_FN01B_Sort16.LENGTH ELSE &FINDIT;
-SET &FIRSTBY       = SUBSTR(1250,&RP_FN01B_Sort16,1,(&FINDIT2),(&FINDIT2),'A75');

-SET &SUBTOTALS     = IF &SUBTOTALS EQ 'Off' OR '' THEN 'FOC_NONE' ELSE 'ON ' | &FIRSTBY | ' SUBTOTAL' ; 



Then in your TABLE FILE part just place &SUBTOTALS somewhere after the WHERE.


WebFOCUS 8206, Unix, Windows
September 28, 2017, 12:21 PM
MartinY
-SET &BY1 = 'COUNTRY';
-SET &BY2 = 'CAR';
-SET &SUM1 = 'RETAIL_COST';

TABLE FILE CAR
SUM &SUM1
BY &BY1
BY &BY2
ON &BY1 SUBTOTAL
END



WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF
In Focus since 2007
September 28, 2017, 02:03 PM
BabakNYC
I assumed by guided adhoc, BM wants to combine the BY fields into one list like this:

  
-SET &FINDIT        = POSIT(&RP_FN01B_Sort16,1250,' BY ',4,'I4');

-SET &FINDIT2       = IF &FINDIT EQ 0 THEN &RP_FN01B_Sort16.LENGTH ELSE &FINDIT;
-SET &FIRSTBY       = SUBSTR(1250,&RP_FN01B_Sort16,1,(&FINDIT2),(&FINDIT2),'A75');

-SET &SUBTOTALS     = IF &SUBTOTALS.(<Off>,<On>).Subotal?. EQ 'Off' THEN 'FOC_NONE' ELSE 'ON ' | &FIRSTBY | ' SUBTOTAL' ; 

-TYPE &SUBTOTALS

TABLE FILE CAR
SUM RETAIL DEALER
BY &RP_FN01B_Sort16.(BY(<COUNTRY>,<CAR>,<MODEL>)).Select Sort fields.
&SUBTOTALS
END



WebFOCUS 8206, Unix, Windows
September 29, 2017, 11:23 AM
BM
Thanks. This is exactly what I was looking for Smiler


WebFOCUS 8202M