Focal Point
[SHARING] Quick way to create active report

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

April 01, 2016, 10:25 AM
Tony A
[SHARING] Quick way to create active report
You might be interested in this method of creating an "active" report -

TABLE FILE CAR
SUM RCOST
    DCOST
 BY COUNTRY
 BY CAR
 BY MODEL
 ON TABLE SET HTMLCSS ON
 ON TABLE SET PAGE NOLEAD
ON TABLE HOLD FORMAT HTMTABLE
END
-RUN

-HTMLFORM BEGIN
<html>
<head>
<title></title>
</head>
<body>
!IBI.FIL.HOLD;
</body>
<script language=javascript>
R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200;
DI=document.getElementsByTagName("TD");
DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style;
DIS.position='absolute'; DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+"px";
DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+"px"}R++}setInterval('A()',50);
void(0);
</script>
</html>
-HTMLFORM END


T


In FOCUS
since 1986		WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
April 01, 2016, 10:43 AM
David Briars
Thank you Tony.

Got a couple of use cases for this in mind already.
April 01, 2016, 10:51 AM
eric.woerle
HAHAHAHA! I'm sure this is exactly what my end users need to understand their data better.


Eric Woerle
8.1.05M Gen 913- Reporting Server Unix
8.1.05 Client Unix
Oracle 11.2.0.2
April 01, 2016, 12:20 PM
Tony A
Gents,

Glad to have brightened your day(?). Remember, it's countdown to Miller Time Smiler

T


In FOCUS
since 1986		WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
April 01, 2016, 01:15 PM
jcannavo
LOL! If only there were only a way to then hook this up on a timer so that after 30 seconds do a system reboot, would be a great April Fools joke.


JC
WebFOCUS Dev Studio / App Studio
8.2.01
Windows 7
April 01, 2016, 01:29 PM
jcannavo
Made a minor enhancement:
   
TABLE FILE CAR
SUM RCOST
    DCOST
 BY COUNTRY
 BY CAR
 BY MODEL
 ON TABLE SET HTMLCSS ON
 ON TABLE SET PAGE NOLEAD
ON TABLE HOLD FORMAT HTMTABLE
END
-RUN

-HTMLFORM BEGIN
<html>
<head>
<title></title>
</head>
<body>
!IBI.FIL.HOLD;
</body>
<script language=javascript>
R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200;
DI=document.getElementsByTagName("TD");
DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style;
DIS.position='absolute'; DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+"px";
DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+"px"}R++}setInterval('A()',50);
void(0);
</script>
<div style="position:absolute; top: 450px;"><img src="http://www.animationplayhouse.com/whiz2.gif" /></div>
</html>
-HTMLFORM END



JC
WebFOCUS Dev Studio / App Studio
8.2.01
Windows 7
April 01, 2016, 02:21 PM
GavinL
Haha, nice.. Lets play a game!!!

TABLE FILE CAR
SUM RCOST
    DCOST
 BY COUNTRY
 BY CAR
 BY MODEL
 ON TABLE SET HTMLCSS ON
 ON TABLE SET PAGE NOLEAD
ON TABLE HOLD FORMAT HTMTABLE
ON TABLE SET STYLESHEET *
TYPE=DATA,COLUMN=COUNTRY,COLOR=RED,JAVASCRIPT=congrats(),WHEN=COUNTRY EQ 'W GERMANY',$
TYPE=DATA,COLOR=RED,$
TYPE=TITLE,COLOR=RED,$
END
-RUN

-HTMLFORM BEGIN
<html>
<head>
<title></title>
</head>
<body>
<div>Click on W GERMANY, if you can!</div>
!IBI.FIL.HOLD;
</body>
<script language=javascript>
var startTime = new Date();
R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200;
DI=document.getElementsByTagName("TD");
DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style;
DIS.position='absolute'; DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+"px";
DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+"px"}R++}setInterval('A()',50);
void(0);
function congrats() {
	var endTime = new Date();
	var dif = endTime.getTime() - startTime.getTime();
	var sec = dif / 1000;

	if(sec>60)
		str='You suck';
	else if(sec>40)
		str='Really';
	else if(sec>30)
		str='You need work';
	else if(sec>20)
		str='Your getting there!';
	else if(sec>10)
		str='Not too bad!';
	else if(sec<10)
		str='Congrats, you really have nothing better to do?';

	alert('Your time: ' + sec + 'sec\n\n'+str);
}
</script>
</html>
-HTMLFORM END

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



- FOCUS Man, just FOCUS!
-----------------------------
Product: WebFOCUS
Version: 8.1.04
Server: Windows 2008 Server
April 03, 2016, 06:13 PM
Waz
This is a great cheer up for a Monday morning.

Thanks

Good One


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

April 04, 2016, 04:18 AM
Danny-SRL
Tony,
Is this the "activity" observed at a client site?


Daniel
In Focus since 1982
wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF

April 04, 2016, 05:13 AM
Tony A
Hi Danny,

I think that this is a visual representation of what happens in my brain when I try and remember the precise syntax that I need to complete a report!

T


In FOCUS
since 1986		WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
April 04, 2016, 08:36 AM
stur0063
Too funny!


webFOCUS 8207.15
WindowsServer 2019
April 04, 2016, 06:30 PM
CoolGuy
Good stuff! Thanks for sharing!


8.2.02M (production), 8.2.02M (test), Windows 10, all outputs.
April 10, 2016, 12:09 PM
j.gross
quote:
Originally posted by jcannavo:
...
<script language=javascript>
R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200;
DI=document.getElementsByTagName("TD");
DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style;
DIS.position='absolute'; DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+"px";
DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+"px"}R++}setInterval('A()',50);
void(0);

...


For anyone interested, the script unravels to:
...
R=0;
x1=.1;   y1=.05;
x2=.25;  y2=.24;
x3=1.6;  y3=.24;
x4=300;  y4=200;
x5=300;  y5=200;
DI=document.getElementsByTagName("TD");
DIL=DI.length;
function A(){
  for(i=0;i-DIL;i++){
    DIS=DI[i].style;
    DIS.position='absolute';
    DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+"px";
    DIS.top =(Math.cos(R*y1+i*y2+y3)*y4+y5)+"px"
  }
  R++
}
setInterval('A()',50);
void(0);
...

April 11, 2016, 11:10 AM
CoolGuy
Thanks Jack. Smiler


8.2.02M (production), 8.2.02M (test), Windows 10, all outputs.
April 11, 2016, 11:50 AM
Squatch
I couldn't help but notice that nobody used HTML Composer for any of this. It would have been much easier than all of that hand coding. Tsk, tsk, tsk...


App Studio
WebFOCUS 8.1.05M
Windows, All Outputs
April 11, 2016, 12:14 PM
Tim P.
quote:
Originally posted by Squatch:
I couldn't help but notice that nobody used HTML Composer for any of this. It would have been much easier than all of that hand coding. Tsk, tsk, tsk...


Yea really, it will even rewrite your code for you! Roll Eyes


WebFOCUS App Studio 8.2.02
Windows 7, All Outputs
April 11, 2016, 06:24 PM
Waz
Ha ha.

Eeker


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

April 11, 2016, 06:25 PM
Waz
I was hoping for a Matrix type report....

Cool


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

April 12, 2016, 03:36 AM
Tony A
Well here's a challenge! I wonder who will be the first to take it up?

Here's an example of what Waz means (I think?)

T

This message has been edited. Last edited by: Tony A,


In FOCUS
since 1986		WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
April 12, 2016, 05:42 PM
Waz
Ha ha , yeah, thats it


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!