Focal Point
[SOLVED] Graph Header min max dates

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

April 11, 2020, 03:12 PM
devr
[SOLVED] Graph Header min max dates
I'm using this code I found on focal point to add the min and max apptdate to my graph heading. It works fine in a standard report, but in a graph file it does not show the slash lines between day, month, and year. (ex. 02/28/2020) Any suggestions? (instead it reads 02282020)

-DEFAULTH &MIN_DATE= '';
-DEFAULTH &MAX_DATE= '';
TABLE FILE VIEW_PAARRGRPS
SUM
MIN.APPTDATE/MDYY AS 'MIN_DATE'
MAX.APPTDATE/MDYY AS 'MAX_DATE'
ON TABLE SET ASNAMES ON
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS HDATES
END
-RUN

-READFILE HDATES

In header:
HEADING
"Appt Date: &MIN_DATE TO &MAX_DATE"

This message has been edited. Last edited by: FP Mod Chuck,


8.0.09
April 11, 2020, 03:54 PM
devr
Here's my code: I've tried every combination of doing that and using it as by fields or print fields and it still doesn't work.

-DEFAULTH &MIN_DATE= '';
-DEFAULTH &MAX_DATE= '';
TABLE FILE VIEW_PAARRGRPS
SUM
MIN.APPTDATE/MDYY AS 'MIN_DATE'
MAX.APPTDATE/MDYY AS 'MAX_DATE'
ON TABLE SET ASNAMES ON
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS HDATES
END
-RUN

-READFILE HDATES


DEFINE FILE VIEW_PAARRGRPS
DF_INPER/D12CB = IF VIEW_PAARRGRPS.PAARRGRPS.APPTGRP EQ 'IN-PERSON' THEN ARRIVECNT ELSE 0;
DF_PHONE/D12CB = IF VIEW_PAARRGRPS.PAARRGRPS.APPTGRP EQ 'PHONE' THEN ARRIVECNT ELSE 0;
DF_VIDEO/D12CB = IF VIEW_PAARRGRPS.PAARRGRPS.APPTGRP EQ 'VIDEO' THEN ARRIVECNT ELSE 0;
DF_TOTAL/D12CB = ARRIVECNT;
DATE/HYYMD = HDTTM(APPTDATE, 8, 'HYYMD');
DATE1/HYYMD=DATE;
MY_DATE/HMtD=DATE;
END

TABLE FILE VIEW_PAARRGRPS
-*BY VIEW_PAARRGRPS.PAARRGRPS.WDEDWKDATE/MDYY AS 'Week End Date'
-*WHERE VIEW_PAARRGRPS.PAARRGRPS.APPTGRP EQ 'IN-PERSON';
-*ON TABLE SUMMARIZE AS 'Report Total'
SUM
VIEW_PAARRGRPS.PAARRGRPS.DF_INPER
VIEW_PAARRGRPS.PAARRGRPS.DF_PHONE
VIEW_PAARRGRPS.PAARRGRPS.DF_VIDEO
VIEW_PAARRGRPS.PAARRGRPS.DF_TOTAL
BY VIEW_PAARRGRPS.PAARRGRPS.APPTDATE
BY MY_DATE
WHERE VIEW_PAARRGRPS.PAARRGRPS.ORG EQ '&ORG';
WHERE VIEW_PAARRGRPS.PAARRGRPS.PROVBARDEP EQ &DEPT;
WHERE VIEW_PAARRGRPS.PAARRGRPS.PROVBARDIV EQ ÷
WHERE VIEW_PAARRGRPS.PROVSTATUS.REPCAT EQ &REPCAT;
WHERE VIEW_PAARRGRPS.PAARRGRPS.PROVNUM EQ &PROV;
WHERE VIEW_PAARRGRPS.LOCATIONS.LOCCAT2 EQ &LOCCAT2;
WHERE VIEW_PAARRGRPS.PAARRGRPS.SCHLOC EQ &SCHLOC;
WHERE VIEW_PAARRGRPS.SCHLOCATNS.SCHCLNNUM EQ &CLINIC;
WHERE ( VIEW_PAARRGRPS.PAARRGRPS.SRVCTYPE EQ '&SRVCTYPE.(,,).Service Type:.' );
-*ON TABLE SET GRID ON
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE HOLD AS TELE2
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/warm.sty,
$
ENDSTYLE
END
-*-EXIT
-*IA_GRAPH_BEGIN
-*Do not delete or modify the comments below
*-INTERNAL_COMMENT
-*Do not delete or modify the comments above
ENGINE INT CACHE SET ON
SET PAGE-NUM=NOLEAD
SET ARGRAPHENGINE=JSCHART
SET EMBEDHEADING=ON
SET GRAPHDEFAULT=OFF
-DEFAULTH &WF_STYLE_UNITS='PIXELS';
-DEFAULTH &WF_STYLE_HEIGHT='405.0';
-DEFAULTH &WF_STYLE_WIDTH='770.0';
-DEFAULTH &WF_TITLE='WebFOCUS Report';
GRAPH FILE TELE2
-* Created by Info Assist for Graph
SUM TELE2.TELE2.DF_INPER AS 'IN-PERSON'
TELE2.TELE2.DF_PHONE AS 'PHONE'
TELE2.TELE2.DF_VIDEO AS 'VIDEO'
TELE2.TELE2.DF_TOTAL AS 'TOTAL'
BY TELE2.TELE2.MY_DATE AS 'Appt Date'
HEADING
"Daily Arrived Count by Appt Group"
"Appt Date: &MIN_DATE to &MAX_DATE"
ON GRAPH PCHOLD FORMAT JSCHART
ON GRAPH SET VZERO OFF
ON GRAPH SET GRWIDTH 1
ON GRAPH SET AUTOFIT ON
ON GRAPH SET UNITS &WF_STYLE_UNITS
ON GRAPH SET HAXIS &WF_STYLE_WIDTH
ON GRAPH SET VAXIS &WF_STYLE_HEIGHT
ON GRAPH SET LOOKGRAPH LINE
ON GRAPH SET AUTOFIT ON
ON GRAPH SET STYLE *
*GRAPH_SCRIPT
setPieDepth(0);
setPieTilt(0);
setDepthRadius(0);
setPlace(true);
setUseSeriesShapes(true);
setMarkerSizeDefault(50);
setCurveFitEquationDisplay(false);
*END
-*INCLUDE=IBFS:/FILE/IBI_HTML_DIR/javaassist/intl/EN/ENIADefault_combine.sty,$
INCLUDE=IBFS:/WFC/Repository/Branding/np_gphc_theme20130401.sty,$
TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, $
TYPE=HEADING, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=1, ITEM=1, OBJECT=TEXT, FONT='ARIAL', SIZE=9, COLOR=RGB(66 70 73), STYLE=BOLD, $
TYPE=DATA, COLUMN=N1, BUCKET=x-axis, $
TYPE=DATA, COLUMN=N2, BUCKET=y-axis, $
TYPE=DATA, COLUMN=N3, BUCKET=y-axis, $
TYPE=DATA, COLUMN=N4, BUCKET=y-axis, $
TYPE=DATA, COLUMN=N5, BUCKET=y-axis, $
*GRAPH_SCRIPT
setReportParsingErrors(false);
setSelectionEnableMove(false);
setTextRotation(getO1Label(),3);
setDisplay(getDataText(0), true);
setDataTextDisplay(true);
setDataTextPosition(1);
setFontName(getDataText(),"ARIAL");
setFontSizeAbsolute(getDataText(),true);
setAutofit(getDataText(),false);
setFontSizeInPoints(getDataText(),7);
setPlaceResize(getDataText(),0);
setFontName(getO1Label(),"ARIAL");
setFontSizeAbsolute(getO1Label(), true);
setFontSizeInPoints(getO1Label(), 7);
setPlaceResize(getO1Label(), 0);
setFontName(getY1Label(),"ARIAL");
setFontSizeAbsolute(getY1Label(), true);
setFontSizeInPoints(getY1Label(), 7);
setPlaceResize(getY1Label(), 0);
setLegendPosition( 1);
setFontSizeInPoints(getLegendText(), 7);
-*setExtendToFrameEdge(true);
setFontName(getO1Title(),"ARIAL");
setFontSizeAbsolute(getO1Title(), true);
setFontSizeInPoints(getO1Title(), 7);
setPlaceResize(getO1Title(), 0);
*GRAPH_JS_FINAL
"pieProperties": {
"holeSize": "0%"
},
"blaProperties": {
"seriesLayout": "absolute"
},
"agnosticSettings": {
"chartTypeFullName": "Line_Absolute"
}
*END
ENDSTYLE
END
-RUN

-*IA_GRAPH_FINISH


8.0.09
April 12, 2020, 04:35 PM
dbeagan
After your
-READFILE HDATES
put in these two statements:
-SET &MIN_DATE= EDIT(&MIN_DATE,'99/99/9999');
-SET &MAX_DATE= EDIT(&MAX_DATE,'99/99/9999');



WebFOCUS 8.2.06
April 13, 2020, 10:02 AM
devr
That's perfect! Thanks so much!


8.0.09